[project @ 1998-02-02 17:27:26 by simonm]

[ghc-hetmet.git] / ghc / lib / glaExts / GlaExts.lhs

diff --git a/ghc/lib/glaExts/GlaExts.lhs b/ghc/lib/glaExts/GlaExts.lhs
deleted file mode 100644 (file)
index 98d48bd..0000000
--- a/ghc/lib/glaExts/GlaExts.lhs
+++ /dev/null
@@ -1,97 +0,0 @@
-%
-% (c) The AQUA Project, Glasgow University, 1994-1996
-%
-\section[GlaExts]{The @GlaExts@ interface}
-
-Compatibility cruft: Deprecated! Don't use!  This rug will
-dissappear from underneath your feet very soon.
-
-This module will eventually be the interface to GHC-ONLY extensions:
-i.e. unboxery and primitive operations over unboxed values.
-
-OLD:
-The @GlaExts@ packages up various Glasgow extensions and
-exports them all through one interface. The Idea being that
-a Haskell program using a Glasgow extension doesn't have to
-selective import of obscure/likely-to-move (believe me, we
-really like to move functions around for the prelude bits!)
-GHC interfaces - instead import the GlaExts rag bag and you should be away!
-
-\begin{code}
-module GlaExts
-
-       (
-        ST, RealWorld,
-
-       unsafePerformIO, 
-       unsafeInterleaveIO,
-        
-        -- operations for interfacing IO and ST
-        --
-        stToIO,       -- :: ST RealWorld a -> IO a
-       ioToST,       -- :: IO a -> ST RealWorld a
-
-       -- compatibility cruft
-       PrimIO,
-       ioToPrimIO,
-       primIOToIO,
-       unsafePerformPrimIO,
-       thenPrimIO, thenIO_Prim,
-       seqPrimIO, returnPrimIO,
-
-       seqST, thenST, returnST,
-
-        -- Everything from module ByteArray:
-       module ByteArray,
-
-        -- Same for Mutable(Byte)Array interface:
-       module MutableArray,
-       
-        -- the representation of some basic types:
-        Int(..),Addr(..),Word(..),Float(..),Double(..),Integer(..),Char(..),
-
-        -- misc bits
-       trace,
-       Lift(..),
-
-        -- and finally, all the unboxed primops of GHC!
-        module GHC
-
-       ) where
-
-import GHC
-import STBase
-import IOExts
-import PrelBase
-import ByteArray
-import MutableArray
-import Monad
-import IOBase
-import Foreign
-
-type PrimIO a = IO a
-primIOToIO io = io
-ioToPrimIO io = io
-unsafePerformPrimIO = unsafePerformIO
-thenPrimIO :: PrimIO a -> (a -> PrimIO b) -> PrimIO b
-thenPrimIO = (>>=)
-
-seqPrimIO :: PrimIO a -> PrimIO b -> PrimIO b
-seqPrimIO = (>>)
-
-returnPrimIO :: a -> PrimIO a
-returnPrimIO = return
-
-thenIO_Prim :: PrimIO a -> (a -> IO b) -> IO b
-thenIO_Prim = (>>=)
-
--- ST compatibility stubs.
-thenST :: ST s a -> ( a -> ST s b) -> ST s b
-thenST = (>>=)
-
-seqST :: ST s a -> ST s b -> ST s b
-seqST = (>>)
-
-returnST :: a -> ST s a
-returnST = return
-\end{code}