1 {-# OPTIONS -fglasgow-exts #-}
3 -- Replacement for GHC.IO module
5 module GHC_ExtCore.IO where
8 import GHC_ExtCore.Handle
10 hPutStr :: Handle -> String -> IO ()
11 hPutStr h s = mapM_ (hPutChar h) s
13 hPutChar :: Handle -> Char -> IO ()
14 hPutChar (H (I# i)) (C# c) = hPutChar# i c
16 ------------------------------------------------------------
17 -- fake stubs for primops to fool GHC into typechecking this
18 ------------------------------------------------------------
19 {-# NOINLINE hPutChar# #-}
20 hPutChar# :: Int# -> Char# -> IO ()
21 hPutChar# _ _ = return ()