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