git.iko.soy/streamly
on e9828b3 help sign in
streamly/examples/Rate.hs
11 lines 252 B history raw
1import Streamly
2import qualified Streamly.Prelude as S
3import qualified Streamly.Internal.Data.Stream.IsStream as Internal
5main :: IO ()
6main =
7 S.mapM_ print
8 $ asyncly
9 $ avgRate 1
10 $ Internal.timestamped
11 $ S.repeatM (pure "tick")