From 1908837b767a9c755f607339cae3d75ca27eb3fa Mon Sep 17 00:00:00 2001
From: simonm <unknown>
Date: Thu, 20 Nov 1997 16:49:04 +0000
Subject: [PATCH] [project @ 1997-11-20 16:49:04 by simonm] add compatibility
 cruft for PrimIO.

---
 ghc/lib/glaExts/GlaExts.lhs |   18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

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