blob: 1870f22b97193f5b5e50f677926db168cd395ef9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
{-# OPTIONS -fno-implicit-prelude #-}
import PrelIOBase
import PrelIO
import PrelBase
import PrelAddr
foreign import "libHS_cbits" "getErrStr__" unsafe ggetErrStr__ :: Int -> IO Addr
main = putStr (uunsafePerformIO (ggetErrStr__ 4))
uunsafePerformIO :: IO Addr -> [Char]
uunsafePerformIO (IO m) = case m realWorld# of (# _, (A# r) #) -> (unpackCString# r)
|
