@@ -1,4 +1,4 @@
1−import Control.Applicative ((<|>), empty)
1+import Control.Applicative ((<|>))
22import Control.Concurrent (myThreadId, threadDelay)
33import Control.Monad.IO.Class (liftIO)
44import System.IO (stdout, hSetBuffering, BufferMode(LineBuffering))
@@ -7,7 +7,7 @@ import Asyncly
77
88main = runAsyncly $ do
99 liftIO $ hSetBuffering stdout LineBuffering
10− x <- loop "A" <|> loop "B" <|> empty
10+ x <- loop "A" <|> loop "B"
1111 liftIO $ myThreadId >>= putStr . show
1212 >> putStr " "
1313 >> print x
@@ -17,4 +17,4 @@ main = runAsyncly $ do
1717 loop name = do
1818 liftIO $ threadDelay 1000000
1919 rnd <- liftIO (randomIO :: IO Int)
20− return (name, rnd) <|> loop name <|> empty
20+ return (name, rnd) <|> loop name