[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 (file)
--- 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}