7beefce · streamly · git.iko.soy

git.iko.soy/streamly

Fix examples

commit7beefcec672cb00800a6c0134b16972d1cd610d4 authorHarendra Kumar <harendra.kumar@gmail.com> dateThu 24 Aug 2017, 03:07 (9 years ago) parentb68840b

3 files changed+8−6

unifiedsplit

examples/echo-loop.hs+3−1

@@ -13,4 +13,6 @@ output strings = do

1313 s <- strings

1414 liftIO $ putStrLn s

1515

16−main = runAsyncly $ output input

16+main = do

17+ putStrLn "Type something and press enter, repeat"

18+ runAsyncly $ output input

examples/nested-loops.hs+1−1

@@ -5,7 +5,7 @@ import System.IO (stdout, hSetBuffering, BufferMode(LineBuffering))

55import System.Random (randomIO)

66import Asyncly

8−main = wait_ $ do

8+main = runAsyncly $ do

99 liftIO $ hSetBuffering stdout LineBuffering

1010 x <- loop "A " 2

1111 y <- loop "B " 2

examples/parallel-loops.hs+4−4

@@ -1,13 +1,13 @@

1−import Control.Applicative ((<|>))

1+import Control.Applicative ((<|>), empty)

22import Control.Concurrent (myThreadId, threadDelay)

33import Control.Monad.IO.Class (liftIO)

44import System.IO (stdout, hSetBuffering, BufferMode(LineBuffering))

55import System.Random (randomIO)

66import Asyncly

8−main = wait_ $ do

8+main = runAsyncly $ do

99 liftIO $ hSetBuffering stdout LineBuffering

10− x <- loop "A" <|> loop "B"

10+ x <- loop "A" <|> loop "B" <|> empty

1111 liftIO $ myThreadId >>= putStr . show

1212 >> putStr " "

1313 >> print x

@@ -17,4 +17,4 @@ main = wait_ $ do

1717 loop name = do

1818 liftIO $ threadDelay 1000000

1919 rnd <- liftIO (randomIO :: IO Int)

20− return (name, rnd) <|> loop name

20+ return (name, rnd) <|> loop name <|> empty