git.iko.soy/ormolu
on 116a5a8 help sign in
ormolu/data/examples/declaration/value/function/do-out.hs
60 lines 742 B history raw
1{-# LANGUAGE RecursiveDo #-}
3bar = do
4 foo
5 bar
7baz =
8 mdo
9 bar a
10 a <- foo
11 b <-
12 bar
13 1
14 2
15 3
16 return (a + b)
18baz = do
19 a <- foo
20 let b = a + 2
21 c = b + 3
22 bar c
23 let d = c + 2
24 return d
26quux =
27 something $ do
28 foo
29 case x of
30 1 -> 10
31 2 -> 20
32 bar
33 if something
34 then x
35 else y
36 baz
38foo = do
39 rec a <- b + 5
40 let d = c
41 b <- a * 5
42 something
43 c <- a + b
44 print c
45 rec something $ do
46 x <- a
47 print x
48 y <- c
49 print y
51trickyLet = do
52 foo
53 let x = 5
54 in bar x
56-- single line let-where
57samples n f = do
58 gen <- newQCGen
59 let rands g = g1 : rands g2 where (g1, g2) = split g
60 return $ rands gen