Remove unused types, methods etc.

vipentti · Dec 16, 2023 · 5489276 · 5489276
1 parent 7fee41d
commit 5489276
Show file tree

Hide file tree

Showing 4 changed files with 1,171 additions and 1,367 deletions.
diff --git a/src/Visp.Compiler/Parser.fsy b/src/Visp.Compiler/Parser.fsy
@@ -613,25 +613,6 @@ quoted_expr:
     | HASH_BRACE quoted_exprs RBRACE
         { SynQuoted.HashSet ($2, lhs parseState) }
 
-value_exprs: rev_value_exprs { List.rev $1 }
-rev_value_exprs:
-    | { [] }
-    | value_expr { [$1] }
-    | rev_value_exprs value_expr { $2 :: $1 }
-
-value_expr:
-    | constant { SynValue.Const(fst $1, snd $1) }
-    | symbol { SynValue.Symbol($1) }
-    | keyword { SynValue.Keyword($1) }
-    | LPAREN value_exprs RPAREN
-        { SynValue.List ($2, lhs parseState) }
-    | LBRACKET value_exprs RBRACKET
-        { SynValue.Vector ($2, lhs parseState) }
-    | LBRACE value_exprs RBRACE
-        { SynValue.HashMap ($2, lhs parseState) }
-    | HASH_BRACE value_exprs RBRACE
-        { SynValue.HashSet ($2, lhs parseState) }
-
 quasiquoted_exprs: rev_quasiquoted_exprs { List.rev $1 }
 rev_quasiquoted_exprs:
     | quasiquoted_expr { [$1] }
@@ -791,12 +772,12 @@ union_field:
 record_expr:
     | RECORD symbol record_labels_or_members
         {
-            let labels, members = Syntax.partitionMembers $3
+            let members, labels = Syntax.partitionChoices $3
             SynExpr.Record($2, labels, members, [] , lhs parseState)
         }
     | attribute_list RECORD symbol record_labels_or_members
         {
-            let labels, members = Syntax.partitionMembers $4
+            let members, labels = Syntax.partitionChoices $4
             SynExpr.Record($3, labels, members, $1 , lhs parseState)
         }
 
@@ -811,13 +792,13 @@ record_label_or_member_parens:
 
 record_label_or_member:
     | MEMBER symbol expr
-        { RecordContent.Member(SynTypeMember.Member($2, $3, lhs parseState)) }
+        { Choice1Of2(SynTypeMember.Member($2, $3, lhs parseState)) }
     | MEMBER FN symbol arg_list_start expr_list
-        { RecordContent.Member(SynTypeMember.MemberFn($3, $4, $5, (lhs parseState))) }
+        { Choice1Of2(SynTypeMember.MemberFn($3, $4, $5, (lhs parseState))) }
     | symbol COLON syntype_ident
-        { RecordContent.Label (RecordLabel(RecordLabelKind.Default, $1, $3, lhs parseState)) }
+        { Choice2Of2 (RecordLabel(RecordLabelKind.Default, $1, $3, lhs parseState)) }
     | MUT symbol COLON syntype_ident
-        { RecordContent.Label (RecordLabel(RecordLabelKind.Mutable, $2, $4, lhs parseState)) }
+        { Choice2Of2 (RecordLabel(RecordLabelKind.Mutable, $2, $4, lhs parseState)) }
 
 typed_list: rev_typed_list { List.rev $1 }
 rev_typed_list: