Allow boolean negation in guard clauses

This is newly allowed in v0.33.0.
gleam-lang · Dec 6, 2023 · fa28819 · fa28819
1 parent 78123c1
commit fa28819
Show file tree

Hide file tree

Showing 2 changed files with 34 additions and 1 deletion.
diff --git a/grammar.js b/grammar.js
@@ -431,7 +431,8 @@ module.exports = grammar({
     _case_clause_guard_expression: ($) =>
       choice(
         $._case_clause_guard_unit,
-        alias($._case_clause_guard_binary_expression, $.binary_expression)
+        alias($._case_clause_guard_binary_expression, $.binary_expression),
+        $.boolean_negation
       ),
     _case_clause_guard_binary_expression: ($) =>
       choice(

diff --git a/test/corpus/cases.txt b/test/corpus/cases.txt
@@ -186,3 +186,35 @@ case tag {
             (argument
               (record
                 (constructor_name)))))))))
+
+================================================================================
+Case with boolean negation in a guard
+================================================================================
+
+case var {
+  1 if !other_var -> True
+  _ -> False
+}
+
+--------------------------------------------------------------------------------
+
+(source_file
+  (case
+    (case_subjects
+      (identifier))
+    (case_clauses
+      (case_clause
+        (case_clause_patterns
+          (case_clause_pattern
+            (integer)))
+        (case_clause_guard
+          (boolean_negation
+            (identifier)))
+        (record
+          (constructor_name)))
+      (case_clause
+        (case_clause_patterns
+          (case_clause_pattern
+            (discard)))
+        (record
+          (constructor_name))))))