diff options
Diffstat (limited to 'testsuite/tests/ffi/should_run/ffi010.hs')
| -rw-r--r-- | testsuite/tests/ffi/should_run/ffi010.hs | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/testsuite/tests/ffi/should_run/ffi010.hs b/testsuite/tests/ffi/should_run/ffi010.hs new file mode 100644 index 0000000000..b02522dd1f --- /dev/null +++ b/testsuite/tests/ffi/should_run/ffi010.hs @@ -0,0 +1,9 @@ +import Foreign + +-- !!! GHC 5.04.2 was missing rts_mkFunPtr, which meant that this example +-- !!! didn't link. + +foreign import ccall "wrapper" + makeHaskellFun :: (FunPtr a -> IO ()) -> IO (FunPtr (FunPtr a -> IO ())) + +main = makeHaskellFun (const (return ())) |