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