utils/ext-core/lib/GHC_ExtCore/IO.hs

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