ghc/compiler/ilxGen/tests/test21.hs

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