Hugs only: #ifndef out the bits Hugs can't do.
-- * Basic concurrency operations
-- * Basic concurrency operations
module Control.Concurrent.SampleVar,
-- * Merging of streams
module Control.Concurrent.SampleVar,
-- * Merging of streams
mergeIO, -- :: [a] -> [a] -> IO [a]
nmergeIO, -- :: [[a]] -> IO [a]
mergeIO, -- :: [a] -> [a] -> IO [a]
nmergeIO, -- :: [[a]] -> IO [a]
-- $merge
-- * GHC's implementation of concurrency
-- $merge
-- * GHC's implementation of concurrency
-import IOExts ( unsafeInterleaveIO )
-import ConcBase
#endif
import Control.Concurrent.MVar
#endif
import Control.Concurrent.MVar
#endif /* __GLASGOW_HASKELL__ */
#endif /* __GLASGOW_HASKELL__ */
max_buff_size :: Int
max_buff_size = 1
max_buff_size :: Int
max_buff_size = 1
return val
where
mapIO f xs = sequence (map f xs)
return val
where
mapIO f xs = sequence (map f xs)
-- ---------------------------------------------------------------------------
-- More docs
-- ---------------------------------------------------------------------------
-- More docs