From: simonm <unknown>
Date: Thu, 20 Nov 1997 16:49:04 +0000 (+0000)
Subject: [project @ 1997-11-20 16:49:04 by simonm]
X-Git-Tag: Approx_2487_patches~1287
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=1908837b767a9c755f607339cae3d75ca27eb3fa;p=ghc-hetmet.git

[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
--- 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}