ghc/lib/glaExts/IOExts.lhs

   1 %
   2 % (c) The AQUA Project, Glasgow University, 1994-1996
   3 %
   4
   5 \section[IOExts]{Module @IOExts@}
   6
   7 \begin{code}
   8 {-# OPTIONS -fno-implicit-prelude #-}
   9
  10 module IOExts
  11         ( fixIO
  12         , unsafePerformIO
  13         , unsafeInterleaveIO
  14
  15         , IORef
  16           -- instance Eq (MutVar a)
  17         , newIORef
  18         , readIORef
  19         , writeIORef
  20
  21         , trace
  22         , performGC
  23
  24         , reallyUnsafePtrEq
  25         ) where
  26 \end{code}
  27
  28 \begin{code}
  29 import PrelBase
  30 import IOBase
  31 import IORef
  32 import STBase
  33 import Unsafe
  34 import GHC
  35
  36 reallyUnsafePtrEq a b =
  37     case reallyUnsafePtrEquality# a b of
  38          0# -> False
  39          _  -> True
  40 \end{code}