ghc/compiler/tests/typecheck/should_fail/tcfail045.hs

   1 --!!! a bad _CCallable thing (from a bug from Satnam)
   2 --
   3 module ShouldSucceed where
   4 import PreludeGlaST
   5
   6 data Socket = Socket# Addr
   7 instance CCallable Socket
   8
   9 f :: Socket -> PrimIO ()
  10 f x = _ccall_ foo x