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