@willbooster/tree-sitter-haskell 12.0.0 → 12.1.0

package/README.md

@@ -22,6 +22,7 @@ the supported language extensions. The fork's node and query contracts are descr
 The fork's main differences from upstream 0.23.1 are:
 
 - **Whitespace**: horizontal tabs separate tokens, are accepted before Haddock markers, and advance layout to the next eight-column tab stop.
+- **OrPatterns**: parenthesized alternatives separated by semicolons, such as `(A; B)`, parse as an `or_pattern` node with an `alternative` field for each pattern.
 - **MultilineStrings**: triple-quoted literals retain their complete source as a single `string` node, including embedded quotes, escapes, and string gaps.
 - **Comment scanning**: comments and Haddock nodes expose a named `content` child, preserving body whitespace and excluding outer delimiters. Ordinary comment injection captures this child.
   Empty block comments such as `{--}` terminate at their closing delimiter and preserve following code.

package/grammar/pat.js

@@ -23,6 +23,8 @@ const patternRules = (name, recordField) => {
 
     [name('_pat_tuple')]: $ => parens($, rule($, '_pat_tuple_elems')),
 
+    [name('_pat_or')]: $ => parens($, sep2(';', field('alternative', rule($, '_pat_texp')))),
+
     [name('_pat_unboxed_tuple')]: $ => unboxed_tuple_full($, rule($, '_pat_texp')),
 
     [name('_pat_unboxed_sum')]: $ => unboxed_sum_single($, rule($, '_pat_texp')),
@@ -120,6 +122,7 @@ const patternRules = (name, recordField) => {
       alias(rule($, '_pat_wildcard'), $.wildcard),
       alias(rule($, '_pat_parens'), $.parens),
       alias(rule($, '_pat_tuple'), $.tuple),
+      alias(rule($, '_pat_or'), $.or_pattern),
       alias(rule($, '_pat_unboxed_tuple'), $.unboxed_tuple),
       alias(rule($, '_pat_unboxed_sum'), $.unboxed_sum),
       alias(rule($, '_pat_list'), $.list),

package/hsc/src/node-types.json

@@ -45,6 +45,10 @@
         "type": "negation",
         "named": true
       },
+      {
+        "type": "or_pattern",
+        "named": true
+      },
       {
         "type": "parens",
         "named": true
@@ -603,6 +607,10 @@
         "type": "negation",
         "named": true
       },
+      {
+        "type": "or_pattern",
+        "named": true
+      },
       {
         "type": "parens",
         "named": true
@@ -4874,6 +4882,38 @@
       }
     }
   },
+  {
+    "type": "or_pattern",
+    "named": true,
+    "fields": {
+      "alternative": {
+        "multiple": true,
+        "required": true,
+        "types": [
+          {
+            "type": "binding_pattern_operand",
+            "named": true
+          },
+          {
+            "type": "infix_chain",
+            "named": true
+          },
+          {
+            "type": "pattern_operand",
+            "named": true
+          },
+          {
+            "type": "signature",
+            "named": true
+          },
+          {
+            "type": "view_pattern",
+            "named": true
+          }
+        ]
+      }
+    }
+  },
   {
     "type": "parens",
     "named": true,

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@willbooster/tree-sitter-haskell",
-  "version": "12.0.0",
+  "version": "12.1.0",
   "description": "Haskell grammar for tree-sitter",
   "keywords": [
     "incremental",

package/src/node-types.json

@@ -41,6 +41,10 @@
         "type": "negation",
         "named": true
       },
+      {
+        "type": "or_pattern",
+        "named": true
+      },
       {
         "type": "parens",
         "named": true
@@ -587,6 +591,10 @@
         "type": "negation",
         "named": true
       },
+      {
+        "type": "or_pattern",
+        "named": true
+      },
       {
         "type": "parens",
         "named": true
@@ -4711,6 +4719,38 @@
       }
     }
   },
+  {
+    "type": "or_pattern",
+    "named": true,
+    "fields": {
+      "alternative": {
+        "multiple": true,
+        "required": true,
+        "types": [
+          {
+            "type": "binding_pattern_operand",
+            "named": true
+          },
+          {
+            "type": "infix_chain",
+            "named": true
+          },
+          {
+            "type": "pattern_operand",
+            "named": true
+          },
+          {
+            "type": "signature",
+            "named": true
+          },
+          {
+            "type": "view_pattern",
+            "named": true
+          }
+        ]
+      }
+    }
+  },
   {
     "type": "parens",
     "named": true,

package/tree-sitter.json

@@ -35,7 +35,7 @@
     }
   ],
   "metadata": {
-    "version": "12.0.0",
+    "version": "12.1.0",
     "license": "MIT",
     "description": "Haskell grammar for tree-sitter",
     "authors": [