1 2 3 4 5 6 7 8 9 10 11 12 13
==================== Parser ==================== module ShouldCompile where data R a = R {field1 :: a, -- | comment for field2 field2 :: a, -- | comment for field3 field3 :: a, {-| comment for field4 -} field4 :: a}