path: root/testsuite/tests/ffi/should_compile/cc009.hs

-- !!! cc009 -- foreign label returning newtype of Addr
module ShouldCompile where

import Foreign
type Addr = Ptr ()
newtype NPtr a = NPtr Addr

foreign import ccall "&" foo :: NPtr Int