git.iko.soy/ormolu
on 46d175c help sign in
ormolu/data/examples/declaration/value/function/do-out.hs
28 lines 273 B history raw
1{-# LANGUAGE RecursiveDo #-}
2bar = do
3 foo
4 bar
6baz = mdo
7 bar a
8 a <- foo
9 b <-
10 bar
11 1
12 2
13 3
14 return (a + b)
16baz = do
17 a <- foo
18 let b = a + 2
19 c = b + 3
20 bar c
21 let d = c + 2
22 return d
24quux =
25 something $ do
26 foo
27 bar
28 baz