From 58a9f513610826a5d5ba8b258e515e17a54e07b6 Mon Sep 17 00:00:00 2001
From: Pseudomata <pseudomata@proton.me>
Date: Fri, 26 Jan 2024 12:28:52 -0500
Subject: [PATCH] Comment out haskell_persistent and sql injections

- the haskell_persistent grammar has not been added, see https://github.com/nvim-treesitter/nvim-treesitter/tree/master/queries/haskell_persistent and https://github.com/MercuryTechnologies/tree-sitter-haskell-persistent
- the sql grammar has not been added either
---
 .../zed/src/languages/haskell/injections.scm  | 26 ++++++++++++-------
 1 file changed, 17 insertions(+), 9 deletions(-)

diff --git a/crates/zed/src/languages/haskell/injections.scm b/crates/zed/src/languages/haskell/injections.scm
index 237dbfa0ee..c042b8e9b5 100644
--- a/crates/zed/src/languages/haskell/injections.scm
+++ b/crates/zed/src/languages/haskell/injections.scm
@@ -75,15 +75,23 @@
   (#set! injection.language "json"))
 
 ; -----------------------------------------------------------------------------
+; NOTE: Commented out because the "sql" grammar is not currently added to Zed.
+;
 ; SQL
 ; postgresql-simple
-(quasiquote
-  (quoter) @injection.language
-  (#eq? @injection.language "sql")
-  (quasiquote_body) @injection.content)
+;
+; (quasiquote
+;   (quoter) @injection.language
+;   (#eq? @injection.language "sql")
+;   (quasiquote_body) @injection.content)
 
-(quasiquote
-  (quoter) @_name
-  (#any-of? @_name "persistUpperCase" "persistLowerCase" "persistWith")
-  (quasiquote_body) @injection.content
-  (#set! injection.language "haskell_persistent"))
+; -----------------------------------------------------------------------------
+; NOTE: Commented out because the "haskell_persistent" grammar is not currently added to Zed.
+;       See: https://github.com/nvim-treesitter/nvim-treesitter/tree/master/queries/haskell_persistent
+;            https://github.com/MercuryTechnologies/tree-sitter-haskell-persistent
+;
+; (quasiquote
+;   (quoter) @_name
+;   (#any-of? @_name "persistUpperCase" "persistLowerCase" "persistWith")
+;   (quasiquote_body) @injection.content
+;   (#set! injection.language "haskell_persistent"))