blob: eec30285f5933c0b9c1d0c1e04091ceaf3b6feac (
plain)
1
2
3
4
5
6
7
8
9
10
|
==================== Parser ====================
module ShouldCompile where
data R a
= R {field1 :: a,
field2 :: a " comment for field2",
field3 :: a " comment for field3",
field4 :: a " comment for field4 "}
|