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