TH_foreignInterruptible.hs:1:1: Splicing declarations
    return
      [ForeignD
         (ImportF
            CCall
            Interruptible
            "&"
            (mkName "foo")
            (AppT (ConT ''Ptr) (ConT ''())))]
  ======>
    TH_foreignInterruptible.hs:8:3-100
    foreign import ccall interruptible "static &foo" foo
      :: Ptr GHC.Tuple.()