@@ -14,10 +14,11 @@ main = runAsyncly $ do
1414 eventA <|> eventB
1515
1616eventA = do
17+ liftIO $ threadDelay 1000000
1718 x <- liftIO (randomIO :: IO Int)
1819 evThread <- liftIO myThreadId
19− liftIO $ putStrLn $ "X Event thread: " ++ show evThread
20− liftIO $ putStrLn $ "x = " ++ (show x)
20+ liftIO $ putStrLn $ "A Event thread: " ++ show evThread
21+ liftIO $ putStrLn $ "a = " ++ (show x)
2122 return x
2223
2324eventB = do
@@ -25,6 +26,6 @@ eventB = do
2526
2627 -- liftIO $ threadDelay 10000000
2728 evThread <- liftIO myThreadId
28− liftIO $ putStrLn $ "Y Event thread: " ++ show evThread
29− liftIO $ putStrLn $ "y = " ++ (show y)
29+ liftIO $ putStrLn $ "B Event thread: " ++ show evThread
30+ liftIO $ putStrLn $ "b = " ++ (show y)
3031 return y