mirror of
https://github.com/ilyakooo0/streamly.git
synced 2024-10-06 21:27:35 +03:00
13 lines
322 B
Haskell
13 lines
322 B
Haskell
import Strands
|
|
import Control.Monad.IO.Class (liftIO)
|
|
|
|
main = do
|
|
xs <- waitLogged $ logged $ threads 0 $ do
|
|
r <- logged $ return (5::Int)
|
|
logged $ liftIO $ print ("A",r)
|
|
suspend
|
|
logged $ liftIO $ print ("B",r)
|
|
suspend
|
|
liftIO $ print ("C",r)
|
|
putStrLn $ show xs
|