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

   1 {-# OPTIONS -fglasgow-exts #-}
   2
   3 -- Replacement for GHC.Handle module
   4
   5 module GHC_ExtCore.Handle(Handle(..), stdin, stderr, stdout, hFlush) where
   6
   7 import GHC.Exts
   8
   9 newtype Handle = H Int
  10
  11 -- these shouldn't actually get used
  12 stdout, stdin, stderr :: Handle
  13 stdin  = H 0
  14 stdout = H 1
  15 stderr = H 2
  16
  17 -- ditto
  18 hFlush :: Handle -> IO ()
  19 hFlush _ = return ()