diff options
| author | sof <unknown> | 1999-01-14 18:21:51 +0000 |
|---|---|---|
| committer | sof <unknown> | 1999-01-14 18:21:51 +0000 |
| commit | abcfc36e5458b4b9c19a3f1c0fb49154ab8b479c (patch) | |
| tree | 211fdacc6eb0ddae20bfeb3317c8b6be39154b7a /ghc/lib/concurrent/Channel.lhs | |
| parent | 08af80d89e259668327c533a717617836ddeca7c (diff) | |
| download | haskell-abcfc36e5458b4b9c19a3f1c0fb49154ab8b479c.tar.gz | |
[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.
Diffstat (limited to 'ghc/lib/concurrent/Channel.lhs')
| -rw-r--r-- | ghc/lib/concurrent/Channel.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ghc/lib/concurrent/Channel.lhs b/ghc/lib/concurrent/Channel.lhs index ec874797d7..f9293c5e76 100644 --- 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} |