git.iko.soy/ormolu
on 05e4201 help sign in
ormolu/data/examples/declaration/value/function/do-out.hs
47 lines 540 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
36foo = do
37 rec a <- b + 5
38 let d = c
39 b <- a * 5
40 something
41 c <- a + b
42 print c
43 rec something $ do
44 x <- a
45 print x
46 y <- c
47 print y