1 2 3 4 5 6 7 8 9 10
module ShouldCompile where data A -- | A comment that documents the first constructor = A -- | comment for B | {-^ comment for A -} B -- | comment for C | C | D