[project @ 1997-11-20 16:49:04 by simonm]

add compatibility cruft for PrimIO.

diff --git a/ghc/lib/glaExts/GlaExts.lhs b/ghc/lib/glaExts/GlaExts.lhs
index 525dc92..84342a0 100644 (file)
--- a/ghc/lib/glaExts/GlaExts.lhs
+++ b/ghc/lib/glaExts/GlaExts.lhs
@@ -3,6 +3,13 @@
 %
 \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
@@ -24,6 +31,12 @@ module GlaExts
         stToIO,       -- :: ST RealWorld a -> IO a
        ioToST,       -- :: IO a -> ST RealWorld a
 
+       -- compatibility cruft
+       PrimIO,
+       ioToPrimIO,
+       primIOToIO,
+       unsafePerformPrimIO,
+
         -- Everything from module ByteArray:
        module ByteArray,
 
@@ -52,4 +65,9 @@ import Monad
 import IOBase
 import Foreign
 
+type PrimIO a = IO a
+primIOToIO io = io
+ioToPrimIO io = io
+unsafePerformPrimIO = unsafePerformIO
+
 \end{code}