feat: interfaces with property members

examples/types.fs

@@ -1,5 +1,9 @@
+namespace Test
 
-type IFun =
+type IProp1 =
-  abstract member MyFun: x:int * y:int -> int
+    abstract member Prop1: string
+    abstract member Prop2: Array<int>
 
-  member _.F(?x:int) = x
+type IProp2 =
+    abstract member Prop1: string
+    abstract member Prop2: Array<int>

grammar.js

@@ -1138,9 +1138,7 @@ module.exports = grammar({
 
     curried_spec: $ =>
       seq(
-        $.arguments_spec,
+        repeat(seq($.arguments_spec, '->')),
-        repeat(seq('->', $.arguments_spec)),
-        '->',
         $.type
       ),
 

src/grammar.json

@@ -4335,30 +4335,22 @@
     "curried_spec": {
       "type": "SEQ",
       "members": [
-        {
-          "type": "SYMBOL",
-          "name": "arguments_spec"
-        },
         {
           "type": "REPEAT",
           "content": {
             "type": "SEQ",
             "members": [
-              {
-                "type": "STRING",
-                "value": "->"
-              },
               {
                 "type": "SYMBOL",
                 "name": "arguments_spec"
+              },
+              {
+                "type": "STRING",
+                "value": "->"
               }
             ]
           }
         },
-        {
-          "type": "STRING",
-          "value": "->"
-        },
         {
           "type": "SYMBOL",
           "name": "type"

test/corpus/type_defn.txt

@@ -970,3 +970,70 @@ type A(x: int, y:int) =
               (long_identifier_or_op
                 (long_identifier
                   (identifier))))))))))
+
+================================================================================
+multiple interfaces with property members
+================================================================================
+
+namespace Test
+
+type IProp1 =
+    abstract member Prop1: string
+    abstract member Prop2: Array<int>
+
+type IProp2 =
+    abstract member Prop1: string
+    abstract member Prop2: Array<int>
+
+--------------------------------------------------------------------------------
+
+(file
+  (namespace
+    (long_identifier
+      (identifier))
+    (type_definition
+      (anon_type_defn
+        (type_name
+          (identifier))
+        (member_defn
+          (member_signature
+            (identifier)
+            (curried_spec
+              (type
+                (long_identifier
+                  (identifier))))))
+        (member_defn
+          (member_signature
+            (identifier)
+            (curried_spec
+              (type
+                (long_identifier
+                  (identifier))
+                (type_attributes
+                  (type_attribute
+                    (type
+                      (long_identifier
+                        (identifier)))))))))))
+    (type_definition
+      (anon_type_defn
+        (type_name
+          (identifier))
+        (member_defn
+          (member_signature
+            (identifier)
+            (curried_spec
+              (type
+                (long_identifier
+                  (identifier))))))
+        (member_defn
+          (member_signature
+            (identifier)
+            (curried_spec
+              (type
+                (long_identifier
+                  (identifier))
+                (type_attributes
+                  (type_attribute
+                    (type
+                      (long_identifier
+                        (identifier)))))))))))))