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