git.iko.soy/ormolu
on ae40a33 help sign in
ormolu/data/examples/declaration/value/function/do-out.hs
48 lines 541 B history raw
1{-# LANGUAGE RecursiveDo #-}
3bar = do
4 foo
5 bar
7baz = mdo
8 bar a
9 a <- foo
10 b <-
11 bar
12 1
13 2
14 3
15 return (a + b)
17baz = do
18 a <- foo
19 let b = a + 2
20 c = b + 3
21 bar c
22 let d = c + 2
23 return d
25quux =
26 something $ do
27 foo
28 case x of
29 1 -> 10
30 2 -> 20
31 bar
32 if something
33 then x
34 else y
35 baz
37foo = do
38 rec a <- b + 5
39 let d = c
40 b <- a * 5
41 something
42 c <- a + b
43 print c
44 rec something $ do
45 x <- a
46 print x
47 y <- c
48 print y