git.iko.soy/ormolu
on e00bd3e help sign in
ormolu/data/examples/declaration/value/function/do-out.hs
34 lines 354 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 case x of
28 1 -> 10
29 2 -> 20
30 bar
31 if something
32 then x
33 else y
34 baz