From 1d4c8879191ec0c2a5fb55f067d20aeb873438b0 Mon Sep 17 00:00:00 2001
From: Wen Kokke <wenkokke@users.noreply.github.com>
Date: Fri, 13 Sep 2024 16:53:47 +0100
Subject: [PATCH] Rebase on top of HEAD and disable previous queries and
 supported scopes

---
 .../common/src/scopeSupportFacets/haskell.ts  | 16 +++++------
 .../haskell.branch.scm                        |  0
 .../haskell.functionApplication.scm           |  0
 .../haskell.functionDeclaration.scm           |  0
 queries/haskell.scm                           | 28 -------------------
 queries/haskell.scm.disabled                  | 28 +++++++++++++++++++
 6 files changed, 36 insertions(+), 36 deletions(-)
 rename queries/{haskell => haskell.disabled}/haskell.branch.scm (100%)
 rename queries/{haskell => haskell.disabled}/haskell.functionApplication.scm (100%)
 rename queries/{haskell => haskell.disabled}/haskell.functionDeclaration.scm (100%)
 create mode 100644 queries/haskell.scm.disabled

diff --git a/packages/common/src/scopeSupportFacets/haskell.ts b/packages/common/src/scopeSupportFacets/haskell.ts
index 9c8964ecc3..78f98628cf 100644
--- a/packages/common/src/scopeSupportFacets/haskell.ts
+++ b/packages/common/src/scopeSupportFacets/haskell.ts
@@ -23,10 +23,10 @@ export const haskellScopeSupport: LanguageScopeSupportFacetMap = {
   // "class.instance": unsupported,
   className: unsupported,
 
-  namedFunction: supported,
+  namedFunction: unsupported,
   "namedFunction.method": unsupported,
   anonymousFunction: unsupported,
-  functionName: supported,
+  functionName: unsupported,
 
   functionCall: unsupported,
   "functionCall.constructor": unsupported,
@@ -35,16 +35,16 @@ export const haskellScopeSupport: LanguageScopeSupportFacetMap = {
 
   "argument.actual": unsupported,
   "argument.actual.iteration": unsupported,
-  "argument.formal": supported,
-  "argument.formal.iteration": supported,
+  "argument.formal": unsupported,
+  "argument.formal.iteration": unsupported,
 
   "comment.line": unsupported,
   "comment.block": unsupported,
 
   "string.singleLine": unsupported,
 
-  "branch.match": supported,
-  "branch.match.iteration": supported,
+  "branch.match": unsupported,
+  "branch.match.iteration": unsupported,
   "branch.if": unsupported,
   "branch.if.iteration": unsupported,
   "branch.ternary": unsupported,
@@ -54,7 +54,7 @@ export const haskellScopeSupport: LanguageScopeSupportFacetMap = {
 
   "name.assignment": unsupported,
   "name.assignment.pattern": unsupported,
-  "name.function": supported,
+  "name.function": unsupported,
   "name.class": unsupported,
   "name.field": unsupported,
 
@@ -77,7 +77,7 @@ export const haskellScopeSupport: LanguageScopeSupportFacetMap = {
   // "type.field": unsupported,
   // "type.foreignExport": unsupported,
   // "type.foreignImport": unsupported,
-  "type.formalParameter": unsupported,
+  // "type.formalParameter": unsupported,
   // "type.function": unsupported,
   // "type.gadt": unsupported,
   // "type.newtype": unsupported,
diff --git a/queries/haskell/haskell.branch.scm b/queries/haskell.disabled/haskell.branch.scm
similarity index 100%
rename from queries/haskell/haskell.branch.scm
rename to queries/haskell.disabled/haskell.branch.scm
diff --git a/queries/haskell/haskell.functionApplication.scm b/queries/haskell.disabled/haskell.functionApplication.scm
similarity index 100%
rename from queries/haskell/haskell.functionApplication.scm
rename to queries/haskell.disabled/haskell.functionApplication.scm
diff --git a/queries/haskell/haskell.functionDeclaration.scm b/queries/haskell.disabled/haskell.functionDeclaration.scm
similarity index 100%
rename from queries/haskell/haskell.functionDeclaration.scm
rename to queries/haskell.disabled/haskell.functionDeclaration.scm
diff --git a/queries/haskell.scm b/queries/haskell.scm
index c8f3b0f8ab..e69de29bb2 100644
--- a/queries/haskell.scm
+++ b/queries/haskell.scm
@@ -1,28 +0,0 @@
-;; import haskell/haskell.branch.scm
-;; import haskell/haskell.functionApplication.scm
-;; import haskell/haskell.functionDeclaration.scm
-
-;; Short declarations are below.
-
-;; anonymousFunction
-(exp_lambda) @anonymousFunction
-(exp_lambda_case) @anonymousFunction
-
-;; list
-(exp_list) @list
-(exp_list_comprehension) @list
-(exp_tuple) @list
-(exp_unboxed_tuple) @list
-(pat_list) @list
-(pat_tuple) @list
-(pat_unboxed_tuple) @list
-(type_tuple) @list
-(type_unboxed_tuple) @list
-
-;; map
-(exp_record) @map
-(pat_record) @map
-
-;; string
-(string) @string
-(char) @string
diff --git a/queries/haskell.scm.disabled b/queries/haskell.scm.disabled
new file mode 100644
index 0000000000..8794a00177
--- /dev/null
+++ b/queries/haskell.scm.disabled
@@ -0,0 +1,28 @@
+;; ;; import haskell/haskell.branch.scm
+;; ;; import haskell/haskell.functionApplication.scm
+;; ;; import haskell/haskell.functionDeclaration.scm
+
+;; Short declarations are below.
+
+;; anonymousFunction
+(exp_lambda) @anonymousFunction
+(exp_lambda_case) @anonymousFunction
+
+;; list
+(exp_list) @list
+(exp_list_comprehension) @list
+(exp_tuple) @list
+(exp_unboxed_tuple) @list
+(pat_list) @list
+(pat_tuple) @list
+(pat_unboxed_tuple) @list
+(type_tuple) @list
+(type_unboxed_tuple) @list
+
+;; map
+(exp_record) @map
+(pat_record) @map
+
+;; string
+(string) @string
+(char) @string