@@ -1,4 +1,4 @@
1−import Control.Applicative ((<|>), empty)
1+import Control.Applicative ((<|>))
2import Control.Concurrent (myThreadId, threadDelay)
2import Control.Concurrent (myThreadId, threadDelay)
3import Control.Monad.IO.Class (liftIO)
3import Control.Monad.IO.Class (liftIO)
4import System.IO (stdout, hSetBuffering, BufferMode(LineBuffering))
4import System.IO (stdout, hSetBuffering, BufferMode(LineBuffering))
@@ -7,7 +7,7 @@ import Asyncly
8main = runAsyncly $ do
8main = runAsyncly $ do
9 liftIO $ hSetBuffering stdout LineBuffering
9 liftIO $ hSetBuffering stdout LineBuffering
10− x <- loop "A" <|> loop "B" <|> empty
10+ x <- loop "A" <|> loop "B"
11 liftIO $ myThreadId >>= putStr . show
11 liftIO $ myThreadId >>= putStr . show
12 >> putStr " "
12 >> putStr " "
13 >> print x
13 >> print x
@@ -17,4 +17,4 @@ main = runAsyncly $ do
17 loop name = do
17 loop name = do
18 liftIO $ threadDelay 1000000
18 liftIO $ threadDelay 1000000
19 rnd <- liftIO (randomIO :: IO Int)
19 rnd <- liftIO (randomIO :: IO Int)
20− return (name, rnd) <|> loop name <|> empty
20+ return (name, rnd) <|> loop name