Fix Haskell query

CHANGELOG.rst

@@ -24,12 +24,41 @@ Added
 - Missing patterns for Typescript:
    - `enum_body`
    - `interface_body`
+- Missing patterns for Haskell:
+  - `children`
+  - `fields`
+  - `list`
+  - `parens`
+  - `prefix_id`
+  - `record`
+  - `tuple`
+  - `unit`
 
 Removed
 =======
 
 - Deprecated patterns for Java:
   - `condition`
+- Deprecated patterns for Haskell:
+  - `con_list`
+  - `context`
+  - `deriving`
+  - `exp_arithmetic_sequence`
+  - `exp_lambda`
+  - `exp_list_comprehension`
+  - `exp_list`
+  - `exp_name`
+  - `exp_record`
+  - `exp_section_right`
+  - `pat_fields`
+  - `pat_list`
+  - `pat_parens`
+  - `pat_tuple`
+  - `record_fields`
+  - `type_list`
+  - `type_parens`
+  - `type_tuple`
+  - `type_tuple`
 
 
 [0.4.0] - 2024-05-07

queries/haskell/rainbow-delimiters.scm

@@ -1,12 +1,12 @@
-(exp_parens
+(parens
   "(" @delimiter
   ")" @delimiter @sentinel) @container
 
-(exp_tuple
+(tuple
   "(" @delimiter
   ")" @delimiter @sentinel) @container
 
-(con_unit
+(unit
   "(" @delimiter
   ")" @delimiter @sentinel) @container
 
@@ -14,7 +14,7 @@
   "(" @delimiter
   ")" @delimiter @sentinel) @container
 
-(export_names
+(children
   "(" @delimiter
   ")" @delimiter @sentinel) @container
 
@@ -22,83 +22,18 @@
   "(" @delimiter
   ")" @delimiter @sentinel) @container
 
-(import_item
+(prefix_id
   "(" @delimiter
   ")" @delimiter @sentinel) @container
 
-(type_parens
-  "(" @delimiter
-  ")" @delimiter @sentinel) @container
-
-(type_tuple
-  "(" @delimiter
-  ")" @delimiter @sentinel) @container
-
-(pat_parens
-  "(" @delimiter
-  ")" @delimiter @sentinel) @container
-
-(pat_tuple
-  "(" @delimiter
-  ")" @delimiter @sentinel) @container
-
-(pat_list
+(list
   "[" @delimiter
   "]" @delimiter @sentinel) @container
 
-(exp_lambda
-  "\\" @delimiter
-  @sentinel) @container
-
-(type_tuple
-  "(" @delimiter
-  ")" @delimiter @sentinel) @container
-
-(deriving
-  "(" @delimiter
-  ")" @delimiter @sentinel) @container
-
-(record_fields
+(fields
   "{" @delimiter
   "}" @delimiter @sentinel) @container
 
-(exp_record
+(record
   "{" @delimiter
   "}" @delimiter @sentinel) @container
-
-(pat_fields
-  "{" @delimiter
-  "}" @delimiter @sentinel) @container
-
-(exp_list
-  "[" @delimiter
-  "]" @delimiter @sentinel) @container
-
-(type_list
-  "[" @delimiter
-  "]" @delimiter @sentinel) @container
-
-(exp_list_comprehension
-  "[" @delimiter
-  "|" @delimiter
-  "]" @delimiter @sentinel) @container
-
-(exp_arithmetic_sequence
-  "[" @delimiter
-  "]" @delimiter @sentinel) @container
-
-(context
-  "(" @delimiter
-   ")" @delimiter @sentinel) @container
-
-(con_list
-  "[" @delimiter
-  "]" @delimiter @sentinel) @container
-
-(exp_section_right
-  "(" @delimiter
-  ")" @delimiter @sentinel) @container
-
-(exp_name
-  "(" @delimiter
-  ")" @delimiter @sentinel) @container