X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Flib%2FglaExts%2FIOExts.lhs;fp=ghc%2Flib%2FglaExts%2FIOExts.lhs;h=0000000000000000000000000000000000000000;hb=28139aea50376444d56f43f0914291348a51a7e7;hp=9f108b14a53eb530d5ccf40c86b6500ec3aab375;hpb=98a1ebecb6d22d793b1d9f8e1d24ecbb5a2d130f;p=ghc-hetmet.git

diff --git a/ghc/lib/glaExts/IOExts.lhs b/ghc/lib/glaExts/IOExts.lhs
deleted file mode 100644
index 9f108b1..0000000
--- a/ghc/lib/glaExts/IOExts.lhs
+++ /dev/null
@@ -1,86 +0,0 @@
-%
-% (c) The AQUA Project, Glasgow University, 1994-1996
-%
-
-\section[IOExts]{Module @IOExts@}
-
-\begin{code}
-{-# OPTIONS -fno-implicit-prelude #-}
-
-module IOExts
-        ( fixIO
-        , unsafePerformIO
-        , unsafeInterleaveIO
-
-        , IORef
-          -- instance Eq (IORef a)
-        , newIORef
-        , readIORef
-        , writeIORef
-
-	, IOArray
-	  -- instance Eq (IOArray ix a)
-	, newIOArray
-	, boundsIOArray
-	, readIOArray
-	, writeIOArray
-	, freezeIOArray
-
-        , trace
-        , performGC
-	
-	, reallyUnsafePtrEq
-        ) where
-\end{code}
-
-\begin{code}
-import PrelBase
-import IOBase
-import STBase
-import Unsafe
-import GHC
-import ArrBase
-import Ix
-
-reallyUnsafePtrEq a b =
-    case reallyUnsafePtrEquality# a b of
-	 0# -> False
-	 _  -> True
-\end{code}
-
-\begin{code}
-newtype IORef a = IORef (MutableVar RealWorld a) 
-    deriving Eq
-
-newIORef :: a -> IO (IORef a)
-newIORef v = stToIO (newVar v) >>= \ var -> return (IORef var)
-
-readIORef :: IORef a -> IO a
-readIORef (IORef var) = stToIO (readVar var)
-
-writeIORef :: IORef a -> a -> IO ()
-writeIORef (IORef var) v = stToIO (writeVar var v)
-\end{code}
-
-\begin{code}
-newtype IOArray ix elt = IOArray (MutableArray RealWorld ix elt)
-    deriving Eq
-
-newIOArray          :: Ix ix => (ix,ix) -> elt -> IO (IOArray ix elt)
-boundsIOArray       :: Ix ix => IOArray ix elt -> (ix, ix)
-readIOArray         :: Ix ix => IOArray ix elt -> ix -> IO elt
-writeIOArray        :: Ix ix => IOArray ix elt -> ix -> elt -> IO ()
-freezeIOArray       :: Ix ix => IOArray ix elt -> IO (Array ix elt)
-
-newIOArray ixs elt = 
-    stToIO (newArray ixs elt) >>= \arr -> 
-    return (IOArray arr)
-
-boundsIOArray (IOArray arr) = boundsOfArray arr
-
-readIOArray (IOArray arr) ix = stToIO (readArray arr ix)
-
-writeIOArray (IOArray arr) ix elt = stToIO (writeArray arr ix elt)
-
-freezeIOArray (IOArray arr) = stToIO (freezeArray arr)
-\end{code}