on 8cb86d3 help sign in
18 lines 272 B history raw
1main = do
2 a <- bar
3 let a = b; c = d
4 baz d
5 let e = f
6 g = h
7 return c
9-- single line let-where
10samples n f = do
11 gen <- newQCGen
12 let rands g = g1 : rands g2 where (g1, g2) = split g
13 return $ rands gen
15trickyLet = do
16 foo
17 let x = 5
18 in bar x