cycle package:streaming

cycle :: (Monad m, Functor f) => Stream f m r -> Stream f m s
streaming Streaming.Prelude
Cycle repeatedly through the layers of a stream, ad inf. This function is functor-general 
cycle = forever

>>> rest <- S.print $ S.splitAt 3 $ S.cycle (yield True >> yield False)
True
False
True

>>> S.print $ S.take 3 rest
False
True
False
cycles :: (Monad m, Functor f) => Stream f m () -> Stream f m r
streaming Streaming.Internal
Construct an infinite stream by cycling a finite one 
cycles = forever

>>>