==================== Parser ====================
module UnamedConstructorFields where
data A = A
data B = B
data C = C
data Foo
  = MkFoo -- | 'A' has a comment
          A B -- | 'C' has a comment
              C