on be6d09d help sign in
40 lines 475 B history raw
1foo = bar
2 ++ {- some comment -}
3 case foo of
4 a -> a
6main =
7 bar
8 $ baz -- bar
9 -- baz
11f =
12 Foo <$> bar
13 <*> baz
15update =
16 do
17 foobar
18 `catch` \case
19 a -> a
21foo =
22 do
23 1
24 + 2
26main =
27 do stuff
28 `finally` do
29 recover
31lenses =
32 Just $ M.fromList
33 $ "type"
34 .= ("user.connection" :: Text)
35 # "connection"
36 .= uc
37 # "user" .= case name of
38 Just n -> Just $ object ["name" .= n]
39 Nothing -> Nothing
40 # []