on f937aa7 help sign in
23 lines 265 B history raw
1{-# LANGUAGE RecursiveDo #-}
3bar = do { foo; bar }
5baz =
6 mdo bar a
7 a <- foo
8 b <- bar
9 1 2 3
10 return (a + b)
12baz = do
13 a <- foo
14 let b = a + 2
15 c = b + 3
16 bar c
17 let d = c + 2
18 return d
20quux = something $ do
21 foo
22 bar
23 baz