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