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

Export list update

1 files changed, 19 insertions, 8 deletions

diff --git a/ghc/lib/glaExts/GlaExts.lhs b/ghc/lib/glaExts/GlaExts.lhs
index 1a55b9176f..adb7761bbf 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}