Haskell 98 related changes + the addition of the MVar primop,
isEmptyMVar :: MVar a -> IO Bool
-- use with care.
-------------
writeList2Chan :: Chan a -> [a] -> IO ()
-------------
writeList2Chan :: Chan a -> [a] -> IO ()
-writeList2Chan ch ls = sequence (map (writeChan ch) ls)
+writeList2Chan ch ls = sequence_ (map (writeChan ch) ls)
- 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
- mergeIO, --:: [a] -> [a] -> IO [a]
- nmergeIO --:: [[a]] -> IO [a]
+ mergeIO, -- :: [a] -> [a] -> IO [a]
+ nmergeIO -- :: [[a]] -> IO [a]
\begin{code}
module SampleVar
(
\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 ()
- newQSem, --:: Int -> IO QSem
- waitQSem, --:: QSem -> IO ()
- signalQSem, --:: QSem -> IO ()
+ newQSem, -- :: Int -> IO QSem
+ waitQSem, -- :: QSem -> IO ()
+ signalQSem, -- :: QSem -> IO ()
- newQSemN, --:: Int -> IO QSemN
- waitQSemN, --:: QSemN -> Int -> IO ()
- signalQSemN --:: QSemN -> Int -> IO ()
+ newQSemN, -- :: Int -> IO QSemN
+ waitQSemN, -- :: QSemN -> Int -> IO ()
+ signalQSemN -- :: QSemN -> Int -> IO ()