benbot/nvim-treesitter
1
0
Fork 0
mirror of https://github.com/nvim-treesitter/nvim-treesitter.git synced 2026-07-01 11:06:54 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix(haskell): correct use of supertypes in (decl) patterns

Browse source 
Problem: These patterns were impossible, since children need to be children of
every subtype of a supertype to be captured in this way. As subtypes
could appear as children themselves, the query code silently "skipped
over" the supertype restriction in the pattern. This was fixed in
tree-sitter v0.26.0, which now (correctly) flags these patterns as
"impossible".

Solution: Add the appropriate child nodes explicitly.
This commit is contained in:
Christian Clason 2025-11-25 10:23:02 +01:00 • committed by Christian Clason
parent 3bbae7b32e
commit d6ebbd5039
1 changed files with 31 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

34
runtime/queries/haskell/highlights.scm
View file

@ -121,7 +121,21 @@
; ----------------------------------------------------------------------------
; Functions and variables
(decl
(decl/signature
[
name: (variable) @function
names: (binding_list
(variable) @function)
])
(decl/function
[
name: (variable) @function
names: (binding_list
(variable) @function)
])
(decl/bind
[
name: (variable) @function
names: (binding_list
@ -142,7 +156,14 @@
type: (type))
.
(decl
name: (variable) @variable)
[
(signature
name: (variable) @variable)
(function
name: (variable) @variable)
(bind
name: (variable) @variable)
])
match: (_)
(#eq? @_name @variable))
@ -160,7 +181,14 @@
(#eq? @_type "IO"))
.
(decl
name: (variable) @function)
[
(signature
name: (variable) @function)
(function
name: (variable) @function)
(bind
name: (variable) @function)
])
match: (_)
(#eq? @_name @function))