Forever example
commitbdad073f60bf1ccbd12eba076c7426b08ca654a9
authorPhil Freeman <paf31@cantab.net>
dateThu 16 Jan 2014, 22:17 (13 years ago)
parent0b98112
examples/passing/Do.purs+5
@@ -57,4 +57,9 @@ test8 = do Just (do Just 1)
5757
5858foo x y z = x + y + z
5959
60+forever :: forall m a b. (Monad m) => m a -> m b
61+forever a = do
62+ a
63+ forever a
64+
6065test9 = foo <$> Just 1 <*> Just 2 <*> Just 3