summaryrefslogtreecommitdiff
path: root/testsuite/tests/th/T3319.hs
blob: afe7f01c1052adb53d4a71e043073394bcc58bce (plain)
1
2
3
4
5
6
7
8
9
10
11
{-# LANGUAGE TemplateHaskell,ForeignFunctionInterface #-}

module T3319 where

import Foreign.Ptr
import Language.Haskell.TH

$(return [ForeignD (ImportF CCall Unsafe "&" (mkName "foo") (AppT (ConT ''Ptr) (ConT ''())))])

-- Should generate the same as this:
foreign import ccall unsafe "&" foo1 :: Ptr ()