@@ -14,10 +14,11 @@ main = runAsyncly $ do
14 eventA <|> eventB
14 eventA <|> eventB
16eventA = do
16eventA = do
17+ liftIO $ threadDelay 1000000
17 x <- liftIO (randomIO :: IO Int)
18 x <- liftIO (randomIO :: IO Int)
18 evThread <- liftIO myThreadId
19 evThread <- liftIO myThreadId
19− liftIO $ putStrLn $ "X Event thread: " ++ show evThread
20+ liftIO $ putStrLn $ "A Event thread: " ++ show evThread
20− liftIO $ putStrLn $ "x = " ++ (show x)
21+ liftIO $ putStrLn $ "a = " ++ (show x)
23eventB = do
24eventB = do
@@ -25,6 +26,6 @@ eventB = do
26 -- liftIO $ threadDelay 10000000
27 -- liftIO $ threadDelay 10000000
27 evThread <- liftIO myThreadId
28 evThread <- liftIO myThreadId
28− liftIO $ putStrLn $ "Y Event thread: " ++ show evThread
29+ liftIO $ putStrLn $ "B Event thread: " ++ show evThread
29− liftIO $ putStrLn $ "y = " ++ (show y)
30+ liftIO $ putStrLn $ "b = " ++ (show y)