GLR-penalize pat_name reduction to compensate for pat_apply design

tree-sitter · Apr 4, 2024 · 47ad951 · 47ad951
1 parent 1855bd2
commit 47ad951
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 5 deletions.
diff --git a/grammar/pat.js b/grammar/pat.js
@@ -9,7 +9,7 @@ module.exports = {
 
   pat_fields: $ => braces($, optional(sep1(',', $.pat_field))),
 
-  pat_name: $ => choice(prec('pat-name', $._var), $._cons),
+  pat_name: $ => choice(prec('pat-name', prec.dynamic(-10, $._var)), $._cons),
 
   pat_as: $ => prec('prefix', seq(field('bind', $.variable), $._tight_at, field('pattern', $._infixpat))),
 

diff --git a/test/corpus/pat.txt b/test/corpus/pat.txt
@@ -1194,10 +1194,9 @@ a (a :: A -> A {}) = a
 
 (haskell
   (declarations
-    (bind
-      (pat_apply
-        (pat_name
-          (variable))
+    (function
+      (variable)
+      (patterns
         (pat_parens
           (pat_annotated
             (pat_name