ghc/tests/ccall/should_compile/cc008.hs

   1 -- !!! cc008 -- foreign export dynamic returning newtype of Addr
   2 module Test where
   3
   4 import Addr
   5
   6 newtype Ptr a = Ptr Addr
   7
   8 foreign export dynamic mkFoo :: IO () -> IO (Ptr Int)