Test datatype with multiple single fields
@@ -55,6 +55,7 @@ data N
data N = N
data N = N { a :: Int }
data N = N { a, b :: Int }
+data N = N { a :: Int, b :: Int }
---
@@ -75,4 +76,8 @@ data N = N { a, b :: Int }
(fields (field (variable_identifier) (variable_identifier) (constructor_identifier)))))
(algebraic_datatype
(simple_type (constructor_identifier))
- (constructors (constructor_identifier) (fields (variable_identifier) (variable_identifier) (constructor_identifier)))))
+ (constructors
+ (constructor_identifier)
+ (fields
+ (field (variable_identifier) (constructor_identifier))
+ (field (variable_identifier) (constructor_identifier))))))
