[project @ 1999-01-14 18:21:49 by sof]

Haskell 98 related changes + the addition of the MVar primop,

   isEmptyMVar :: MVar a -> IO Bool
     -- use with care.

diff --git a/ghc/lib/concurrent/Channel.lhs b/ghc/lib/concurrent/Channel.lhs
index ec87479..f9293c5 100644 (file)
--- a/ghc/lib/concurrent/Channel.lhs
+++ b/ghc/lib/concurrent/Channel.lhs
@@ -111,6 +111,6 @@ getChanContents ch
 
 -------------
 writeList2Chan :: Chan a -> [a] -> IO ()
-writeList2Chan ch ls = sequence (map (writeChan ch) ls)
+writeList2Chan ch ls = sequence_ (map (writeChan ch) ls)
 
 \end{code}

diff --git a/ghc/lib/concurrent/ChannelVar.lhs b/ghc/lib/concurrent/ChannelVar.lhs
index 5a7db0e..50c893c 100644 (file)
--- a/ghc/lib/concurrent/ChannelVar.lhs
+++ b/ghc/lib/concurrent/ChannelVar.lhs
@@ -11,9 +11,9 @@ module ChannelVar
        (
         {- abstract -}
          CVar,
-        newCVar,       --:: IO (CVar a)
-        writeCVar,     --:: CVar a -> a -> IO ()
-        readCVar,      --:: CVar a -> IO a
+        newCVar,       -- :: IO (CVar a)
+        writeCVar,     -- :: CVar a -> a -> IO ()
+        readCVar,      -- :: CVar a -> IO a
         MVar
 
        ) where

diff --git a/ghc/lib/concurrent/Merge.lhs b/ghc/lib/concurrent/Merge.lhs
index 39f1c4c..706f0e6 100644 (file)
--- a/ghc/lib/concurrent/Merge.lhs
+++ b/ghc/lib/concurrent/Merge.lhs
@@ -10,8 +10,8 @@ IO monad.
 module Merge
 
        (
-        mergeIO,       --:: [a]   -> [a] -> IO [a]
-        nmergeIO       --:: [[a]] -> IO [a]
+        mergeIO,       -- :: [a]   -> [a] -> IO [a]
+        nmergeIO       -- :: [[a]] -> IO [a]
        ) where
 
 import Semaphore

diff --git a/ghc/lib/concurrent/SampleVar.lhs b/ghc/lib/concurrent/SampleVar.lhs
index 53199a6..75476b6 100644 (file)
--- a/ghc/lib/concurrent/SampleVar.lhs
+++ b/ghc/lib/concurrent/SampleVar.lhs
@@ -19,13 +19,13 @@ potentially, wakes up a blocked reader  (same as for @putMVar@ on empty @MVar@).
 \begin{code}
 module SampleVar
        (
-         SampleVar,         --:: type _ =
+         SampleVar,         -- :: type _ =
  
-        newEmptySampleVar, --:: IO (SampleVar a)
-         newSampleVar,      --:: a -> IO (SampleVar a)
-        emptySampleVar,    --:: SampleVar a -> IO ()
-        readSampleVar,     --:: SampleVar a -> IO a
-        writeSampleVar     --:: SampleVar a -> a -> IO ()
+        newEmptySampleVar, -- :: IO (SampleVar a)
+         newSampleVar,      -- :: a -> IO (SampleVar a)
+        emptySampleVar,    -- :: SampleVar a -> IO ()
+        readSampleVar,     -- :: SampleVar a -> IO a
+        writeSampleVar     -- :: SampleVar a -> a -> IO ()
 
        ) where
 

diff --git a/ghc/lib/concurrent/Semaphore.lhs b/ghc/lib/concurrent/Semaphore.lhs
index 9fc8a0b..e7bd0d4 100644 (file)
--- a/ghc/lib/concurrent/Semaphore.lhs
+++ b/ghc/lib/concurrent/Semaphore.lhs
@@ -11,15 +11,15 @@ module Semaphore
        {- abstract -}
        QSem,
 
-       newQSem,                --:: Int  -> IO QSem
-       waitQSem,       --:: QSem -> IO ()
-       signalQSem,     --:: QSem -> IO ()
+       newQSem,                -- :: Int  -> IO QSem
+       waitQSem,       -- :: QSem -> IO ()
+       signalQSem,     -- :: QSem -> IO ()
 
        {- abstract -}
        QSemN,
-       newQSemN,       --:: Int   -> IO QSemN
-       waitQSemN,      --:: QSemN -> Int -> IO ()
-       signalQSemN     --:: QSemN -> Int -> IO ()
+       newQSemN,       -- :: Int   -> IO QSemN
+       waitQSemN,      -- :: QSemN -> Int -> IO ()
+       signalQSemN     -- :: QSemN -> Int -> IO ()
        
       ) where