+1

On Monday, May 11, 2015, David Feuer <david.feuer@gmail.com> wrote:

This looks like a no-brainer to me:

forever :: Applicative f => f a -> f b
forever a = let x = a *> x in x



--
-- Dan Burton