ilyakooo0/streamly
1
0
Fork 0
mirror of https://github.com/ilyakooo0/streamly.git synced 2024-10-06 21:27:35 +03:00
Code Issues Packages Projects Releases Wiki Activity

minor fix to alternative example

Browse Source
This commit is contained in:
Harendra Kumar 2017-08-28 06:51:37 +05:30
parent a0e2a34bbe
commit 3e1239048e
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
examples/alternative.hs
View File

@ -14,10 +14,11 @@ main = runAsyncly $ do
eventA <|> eventB
eventA = do
liftIO $ threadDelay 1000000
x <- liftIO (randomIO :: IO Int)
evThread <- liftIO myThreadId
liftIO $ putStrLn $ "X Event thread: " ++ show evThread
liftIO $ putStrLn $ "x = " ++ (show x)
liftIO $ putStrLn $ "A Event thread: " ++ show evThread
liftIO $ putStrLn $ "a = " ++ (show x)
return x
eventB = do
@ -25,6 +26,6 @@ eventB = do
-- liftIO $ threadDelay 10000000
evThread <- liftIO myThreadId
liftIO $ putStrLn $ "Y Event thread: " ++ show evThread
liftIO $ putStrLn $ "y = " ++ (show y)
liftIO $ putStrLn $ "B Event thread: " ++ show evThread
liftIO $ putStrLn $ "b = " ++ (show y)
return y