conc021.hs 206 Bytes
Newer Older
1
module Main where
2
3
4

-- !!! test for uncaught exception

Simon Marlow's avatar
Simon Marlow committed
5
foreign export ccall foo :: Int -> IO Int
6
foreign import ccall safe "foo" foo_imported :: Int -> IO Int
7
8
9
10

foo n = error "wurble"

main = foo_imported 3