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