ghc/tests/ccall/should_fail/cc005.hs

   1 -- !!! illegal types in foreign export delarations
   2
   3 module ShouldFail where
   4
   5 import PrelGHC
   6
   7 foreign export foo :: Int# -> IO ()
   8 foo i | i ==# 0# = return ()
   9
  10 foreign export bar :: Int -> Int#
  11 bar _ = 42#