feat: add support for haskell persistent library

lua/nvim-treesitter/parsers.lua

@@ -633,6 +633,15 @@ list.haskell = {
   },
 }
 
+list.haskell_persistent = {
+  install_info = {
+    url = "https://github.com/MercuryTechnologies/tree-sitter-haskell-persistent",
+    files = { "src/parser.c", "src/scanner.cc" },
+  },
+  filetype = "haskell.persistent",
+  maintainers = { "@lykahb" },
+}
+
 list.hcl = {
   install_info = {
     url = "https://github.com/MichaHoffmann/tree-sitter-hcl",

queries/haskell/injections.scm

@@ -76,3 +76,10 @@
   (#eq? @_name "sql")
   ((quasiquote_body) @sql)
 )
+
+; persistent
+(quasiquote
+ (quoter) @_name
+ (#any-of? @_name "persistUpperCase" "persistLowerCase" "persistWith")
+ ((quasiquote_body) @haskell_persistent)
+)

queries/haskell_persistent/folds.scm

@@ -0,0 +1,3 @@
+[
+  (entity_definition)
+] @fold

queries/haskell_persistent/highlights.scm

@@ -0,0 +1,38 @@
+;; ----------------------------------------------------------------------------
+;; Literals and comments
+
+(integer) @number
+(float) @float
+(char) @character
+(string) @string
+(attribute_name) @attribute
+(attribute_exclamation_mark) @attribute
+
+(con_unit) @symbol  ; unit, as in ()
+
+(comment) @comment @spell
+
+;; ----------------------------------------------------------------------------
+;; Keywords, operators, includes
+
+[
+  "Id"
+  "Primary"
+  "Foreign"
+  "deriving"
+] @keyword
+
+"=" @operator
+
+
+;; ----------------------------------------------------------------------------
+;; Functions and variables
+
+(variable) @variable
+
+;; ----------------------------------------------------------------------------
+;; Types
+
+(type) @type
+
+(constructor) @constructor