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