@willbooster/tree-sitter-haskell 13.0.0 → 13.1.0

package/README.md

@@ -23,6 +23,7 @@ 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.
 - **ExplicitNamespaces**: import and export items, including subordinate items, accept the `data` namespace, and fixity declarations accept `type` and `data`. A namespaced subordinate item such as `type (#)` or `data P` is a `namespaced_child` node with a `namespace` child; a `data` item puts a constructor name in a `constructor` field and a variable or operator in the `variable` or `operator` field.
+- **NamedDefaults**: `default` declarations accept a class name before the type list, such as `default Monoid ([Int])`, in a `class` field, and export lists accept `default` items such as `default Monoid` as `default_export` nodes.
 - **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.

package/grammar/decl.js

@@ -187,6 +187,6 @@ module.exports = {
     field('signature', $._foreign_signature),
   ),
 
-  default_types: $ => seq('default', parens($, optional(sep1(',', field('type', $._ktype))))),
+  default_types: $ => seq('default', optional(field('class', $._tyconids)), parens($, optional(sep1(',', field('type', $._ktype))))),
 
 }

package/grammar/module.js

@@ -111,9 +111,11 @@ module.exports = {
 
   module_export: $ => seq('module', field('module', $.module)),
 
+  default_export: $ => seq('default', field('class', $._tyconids)),
+
   exports: $ => parens(
     $,
-    optional(sep1(',', choice(field('export', alias($._ie_entity, $.export)), $.module_export))),
+    optional(sep1(',', choice(field('export', alias($._ie_entity, $.export)), $.module_export, $.default_export))),
     optional(','),
   ),
 

package/hsc/src/node-types.json

@@ -2028,6 +2028,26 @@
       ]
     }
   },
+  {
+    "type": "default_export",
+    "named": true,
+    "fields": {
+      "class": {
+        "multiple": false,
+        "required": true,
+        "types": [
+          {
+            "type": "name",
+            "named": true
+          },
+          {
+            "type": "qualified",
+            "named": true
+          }
+        ]
+      }
+    }
+  },
   {
     "type": "default_signature",
     "named": true,
@@ -2048,6 +2068,20 @@
     "type": "default_types",
     "named": true,
     "fields": {
+      "class": {
+        "multiple": false,
+        "required": false,
+        "types": [
+          {
+            "type": "name",
+            "named": true
+          },
+          {
+            "type": "qualified",
+            "named": true
+          }
+        ]
+      },
       "type": {
         "multiple": true,
         "required": false,
@@ -2581,6 +2615,10 @@
       "multiple": true,
       "required": false,
       "types": [
+        {
+          "type": "default_export",
+          "named": true
+        },
         {
           "type": "module_export",
           "named": true

package/package.json

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

package/queries/highlights.scm

@@ -105,6 +105,7 @@
   "as"
   "hiding"
   "deriving"
+  "default"
   "via"
   "stock"
   "anyclass"

package/src/node-types.json

@@ -1980,6 +1980,26 @@
       ]
     }
   },
+  {
+    "type": "default_export",
+    "named": true,
+    "fields": {
+      "class": {
+        "multiple": false,
+        "required": true,
+        "types": [
+          {
+            "type": "name",
+            "named": true
+          },
+          {
+            "type": "qualified",
+            "named": true
+          }
+        ]
+      }
+    }
+  },
   {
     "type": "default_signature",
     "named": true,
@@ -2000,6 +2020,20 @@
     "type": "default_types",
     "named": true,
     "fields": {
+      "class": {
+        "multiple": false,
+        "required": false,
+        "types": [
+          {
+            "type": "name",
+            "named": true
+          },
+          {
+            "type": "qualified",
+            "named": true
+          }
+        ]
+      },
       "type": {
         "multiple": true,
         "required": false,
@@ -2511,6 +2545,10 @@
       "multiple": true,
       "required": false,
       "types": [
+        {
+          "type": "default_export",
+          "named": true
+        },
         {
           "type": "module_export",
           "named": true

package/tree-sitter.json

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