mirror of
https://github.com/composewell/streamly.git
synced 2024-09-21 00:20:08 +03:00
21 lines
616 B
Haskell
21 lines
616 B
Haskell
import Control.Applicative ((<|>), empty)
|
|
import Control.Concurrent (myThreadId, threadDelay)
|
|
import Control.Monad.IO.Class (liftIO)
|
|
import System.IO (stdout, hSetBuffering, BufferMode(LineBuffering))
|
|
import System.Random (randomIO)
|
|
import Asyncly
|
|
|
|
main = runAsyncly $ do
|
|
liftIO $ hSetBuffering stdout LineBuffering
|
|
x <- loop "A" <|> loop "B" <|> empty
|
|
liftIO $ myThreadId >>= putStr . show
|
|
>> putStr " "
|
|
>> print x
|
|
|
|
where
|
|
|
|
loop name = do
|
|
liftIO $ threadDelay 1000000
|
|
rnd <- liftIO (randomIO :: IO Int)
|
|
return (name, rnd) <|> loop name <|> empty
|