path: root/testsuite/tests/concurrent/prog002/FileIO.hs

module FileIO where
import System.IO
import Foreign
import Foreign.C


foreign import ccall safe "fileio.h c_file_getresult" 
  c_file_getresult :: CInt -> IO CInt