1module Main where
2
3-- | Baz
4class Baz a where
5  foobar :: a -> a
6  foobar a =
7    barbaz (bazbar a)
8
9  -- | Bar baz
10  barbaz ::
11    a -> a
12
13  -- | Baz bar
14  bazbar ::
15    a ->
16    a
17
18  -- First comment
19  barbaz a =
20    bazbar -- Middle comment
21      a
22
23  -- Last comment
24  bazbar a =
25    barbaz
26      a
27