git.iko.soy/streamly
on 7b52ccf help sign in
streamly/examples/loop.hs
16 lines 345 B history raw
1import Control.Applicative ((<|>))
2import Control.Concurrent (threadDelay)
3import Control.Monad.IO.Class (liftIO)
4import System.Random (randomIO)
5import Asyncly
7main = wait_ $ do
8 x <- loop
9 liftIO $ print x
11 where
13 loop = do
14 liftIO $ threadDelay 1000000
15 x <- liftIO (randomIO :: IO Int)
16 return x <|> loop