Skip to content

GitLab

GHC
GHC
Switch branch/tag
Find file Normal viewHistoryPermalink
T3319.hs 306 Bytes
Newer Older
Simon Marlow's avatar
add test for #3319  
Simon Marlow committed
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 ()