[fix export-import test on 64 bit systems
John Meacham <john@repetae.net>**20090828122604
 Ignore-this: 9a06a7310635fa6bc0ac98d24d2001cd
] hunk ./regress/tests/1_io/ffi/ExportImport.hs 9
-putChar :: Char__ -> IO ()
-putChar c = c_putwchar (charToInt c)
+putChar :: Char -> IO ()
+putChar c = c_putwchar (charToInt c) >> return ()
hunk ./regress/tests/1_io/ffi/ExportImport.hs 12
-foreign import primitive "U2U" charToInt :: Char__ -> Int
-foreign import ccall "stdio.h jhc_utf8_putchar" c_putwchar :: Int -> IO ()
+foreign import primitive "U2U" charToInt :: Char -> Int
+foreign import ccall "stdio.h jhc_utf8_putchar" c_putwchar :: Int -> IO Int
hunk ./regress/tests/1_io/ffi/ExportImport.hs 15
-foreign export ccall "myputc" putChar :: Char__ -> IO ()
+foreign export ccall "myputc" putChar :: Char -> IO ()