testsuite/tests/rts/T21465/T21465.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14

{-# LANGUAGE ForeignFunctionInterface #-}
module Main where

foreign import ccall "test_c" testC :: IO ()

helper :: IO ()
helper = putStrLn "This is the helper function"

foreign export ccall helper :: IO ()

main :: IO ()
main = do
    x <- testC
    putStrLn "Done."