on a392aef help sign in
39 lines 454 B history raw
1foo = bar
2 ++ case foo of
3 a -> a
5main =
6 bar
7 $ baz -- bar
8 -- baz
10f =
11 Foo <$> bar
12 <*> baz
14update =
15 do
16 foobar
17 `catch` \case
18 a -> a
20foo =
21 do
22 1
23 + 2
25main =
26 do stuff
27 `finally` do
28 recover
30lenses =
31 Just $ M.fromList
32 $ "type"
33 .= ("user.connection" :: Text)
34 # "connection"
35 .= uc
36 # "user" .= case name of
37 Just n -> Just $ object ["name" .= n]
38 Nothing -> Nothing
39 # []