This looks like a no-brainer to me:
forever :: Applicative f => f a -> f b
_______________________________________________
forever a = let x = a *> x in x
Libraries mailing list
Libraries@haskell.org
http://mail.haskell.org/cgi-bin/mailman/listinfo/libraries