ghc/tests/typecheck/should_fail/tcfail045.hs

   1 -- !!! a bad _CCallable thing (from a bug from Satnam)
   2 --
   3 module ShouldFail where
   4
   5 import Foreign
   6 import Addr
   7 import CCall
   8
   9 data Socket = Socket# Addr
  10 instance CCallable Socket
  11
  12 f :: Socket -> IO ()
  13 f x = _ccall_ foo x