This looks like a no-brainer to me: forever :: Applicative f => f a -> f b forever a = let x = a *> x in x -------------- next part -------------- An HTML attachment was scrubbed... URL: <http://mail.haskell.org/pipermail/libraries/attachments/20150512/e477d211/attachment.html>