Fix #11287.
[ghc.git] / testsuite / tests / th / TH_foreignInterruptible.hs
1 {-# LANGUAGE TemplateHaskell, ForeignFunctionInterface, InterruptibleFFI #-}
2
3 module TH_foreign where
4
5 import Foreign.Ptr
6 import Language.Haskell.TH
7
8 $(return [ForeignD (ImportF CCall Interruptible "&" (mkName "foo") (AppT (ConT ''Ptr) (ConT ''())))])
9
10 -- Should generate the same as this:
11 foreign import ccall interruptible "&" foo1 :: Ptr ()