From: sof <unknown>
Date: Sun, 18 May 1997 04:12:18 +0000 (+0000)
Subject: [project @ 1997-05-18 04:12:18 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~680
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=163911e0e0f614da41a368cc74c9263f9cb6d336;p=ghc-hetmet.git

[project @ 1997-05-18 04:12:18 by sof]
Export list update
---

diff --git a/ghc/lib/glaExts/GlaExts.lhs b/ghc/lib/glaExts/GlaExts.lhs
index 1a55b91..adb7761 100644
--- a/ghc/lib/glaExts/GlaExts.lhs
+++ b/ghc/lib/glaExts/GlaExts.lhs
@@ -19,18 +19,28 @@ module GlaExts
 	PrimIO,
         ST, RealWorld,
         module Monad,   -- ST is an instance
-        fixPrimIO, unsafePerformPrimIO, unsafeInterleavePrimIO,
-        returnPrimIO, thenPrimIO, seqPrimIO,
+
+	thenPrimIO,     -- 
+        returnPrimIO, 
+	seqPrimIO,
+        fixPrimIO, 
+	unsafePerformPrimIO, 
+	unsafeInterleavePrimIO,
         
-        listPrimIO, mapPrimIO, mapAndUnzipPrimIO,
+	-- backwards compatibility
+        listPrimIO,        -- :: [PrimIO a] -> PrimIO [a]
+	mapPrimIO,         -- :: (a -> PrimIO b) -> [a] -> PrimIO [b]
+        mapAndUnzipPrimIO, -- :: (a -> PrimIO (b,c)) -> [a] -> PrimIO ([b],[c])
+
 
         -- operations for interfacing IO and ST/PrimIO
         --
-        stToIO,       --:: ST RealWorld a -> IO a
-	primIOToIO,   --:: PrimIO a       -> IO a
-	ioToST,	      --:: IO a -> ST RealWorld a
-	ioToPrimIO,   --:: IO a -> PrimIO       a
+        stToIO,       -- :: ST RealWorld a -> IO a
+	primIOToIO,   -- :: PrimIO a       -> IO a
+	ioToST,	      -- :: IO a -> ST RealWorld a
+	ioToPrimIO,   -- :: IO a -> PrimIO       a
         thenIO_Prim,  -- :: PrimIO a -> (a -> IO b) -> IO b
+        seqIO_Prim,   -- :: PrimIO a -> IO b -> IO b
 
         -- Everything from module ByteArray:
 	module ByteArray,
@@ -39,7 +49,7 @@ module GlaExts
 	module MutableArray,
 	
         -- the representation of some basic types:
-        Int(..),Addr(..),Word(..),Float(..),Double(..),Integer(..),
+        Int(..),Addr(..),Word(..),Float(..),Double(..),Integer(..),Char(..),
 
         -- misc bits
 	trace,
@@ -56,5 +66,6 @@ import ByteArray
 import MutableArray
 import Monad
 import IOBase
+import Foreign
 
 \end{code}