fix: stop using legacy nvim-treesitter api

Author: Marc Jakobi

doc/tags

@@ -0,0 +1,39 @@
+DataSnippetCollection	haskell-snippets.txt	/*DataSnippetCollection*
+ExpressionSnippetCollection	haskell-snippets.txt	/*ExpressionSnippetCollection*
+FunctionSnippetCollection	haskell-snippets.txt	/*FunctionSnippetCollection*
+HaskellSnippetCollection	haskell-snippets.txt	/*HaskellSnippetCollection*
+ModuleSnippetCollection	haskell-snippets.txt	/*ModuleSnippetCollection*
+PragmaSnippetCollection	haskell-snippets.txt	/*PragmaSnippetCollection*
+QuasiQuoteSnippetCollection	haskell-snippets.txt	/*QuasiQuoteSnippetCollection*
+Snippet	haskell-snippets.txt	/*Snippet*
+data.adt	haskell-snippets.txt	/*data.adt*
+data.cls	haskell-snippets.txt	/*data.cls*
+data.constraint	haskell-snippets.txt	/*data.constraint*
+data.ins	haskell-snippets.txt	/*data.ins*
+data.newtype	haskell-snippets.txt	/*data.newtype*
+data.rec	haskell-snippets.txt	/*data.rec*
+expressions.case	haskell-snippets.txt	/*expressions.case*
+expressions.if_expr	haskell-snippets.txt	/*expressions.if_expr*
+expressions.if_expr_multiline	haskell-snippets.txt	/*expressions.if_expr_multiline*
+expressions.if_expr_multiway	haskell-snippets.txt	/*expressions.if_expr_multiway*
+expressions.lambdacase	haskell-snippets.txt	/*expressions.lambdacase*
+functions.fn	haskell-snippets.txt	/*functions.fn*
+functions.func	haskell-snippets.txt	/*functions.func*
+functions.lambda	haskell-snippets.txt	/*functions.lambda*
+haskell-snippets	haskell-snippets.txt	/*haskell-snippets*
+haskell-snippets.datadat	haskell-snippets.txt	/*haskell-snippets.datadat*
+haskell-snippets.expressions	haskell-snippets.txt	/*haskell-snippets.expressions*
+haskell-snippets.function	haskell-snippets.txt	/*haskell-snippets.function*
+haskell-snippets.module	haskell-snippets.txt	/*haskell-snippets.module*
+haskell-snippets.pragmas	haskell-snippets.txt	/*haskell-snippets.pragmas*
+haskell-snippets.quasiqotes	haskell-snippets.txt	/*haskell-snippets.quasiqotes*
+module.impc	haskell-snippets.txt	/*module.impc*
+module.mod	haskell-snippets.txt	/*module.mod*
+module.qual	haskell-snippets.txt	/*module.qual*
+module.qualc	haskell-snippets.txt	/*module.qualc*
+pragmas.discover	haskell-snippets.txt	/*pragmas.discover*
+pragmas.lang	haskell-snippets.txt	/*pragmas.lang*
+pragmas.nowarn	haskell-snippets.txt	/*pragmas.nowarn*
+pragmas.prag	haskell-snippets.txt	/*pragmas.prag*
+quasiquotes.qq	haskell-snippets.txt	/*quasiquotes.qq*
+quasiquotes.sql	haskell-snippets.txt	/*quasiquotes.sql*

lua/haskell-snippets/module.lua

@@ -21,9 +21,10 @@ local choice = ls.choice_node
 local dynamic = ls.dynamic_node
 local func = ls.function_node
 
-local has_treesitter, parsers = pcall(require, 'nvim-treesitter.parsers')
-local hs_lang = has_treesitter and parsers.ft_to_lang('haskell') or 'haskell'
-local has_haskell_parser = pcall(vim.treesitter.get_string_parser, '', 'haskell')
+---@type fun(ft: string): string? | nil
+local get_lang = vim.tbl_get(vim.treesitter, 'language', 'get_lang')
+local treesitter_haskell_lang_name = get_lang and get_lang('haskell') or 'haskell'
+local has_haskell_parser = pcall(vim.treesitter.get_string_parser, '', treesitter_haskell_lang_name)
 
 --- Parses without injections
 local function fast_parse(lang_tree)
@@ -42,11 +43,15 @@ end
 ---@return string|nil
 local function treesitter_module_name(apply, content, query_string, legacy_query_string)
   assert(has_haskell_parser, 'No tree-sitter parser for Haskell found.')
-  local ok, module_query = pcall(vim.treesitter.query.parse, hs_lang, query_string)
+  local ok, module_query = pcall(vim.treesitter.query.parse, treesitter_haskell_lang_name, query_string)
   if not ok then
-    module_query = vim.treesitter.query.parse(hs_lang, legacy_query_string)
+    module_query = vim.treesitter.query.parse(treesitter_haskell_lang_name, legacy_query_string)
   end
-  local lang_tree = vim.treesitter.get_string_parser(content, hs_lang, { injections = { [hs_lang] = '' } })
+  local lang_tree = vim.treesitter.get_string_parser(
+    content,
+    treesitter_haskell_lang_name,
+    { injections = { [treesitter_haskell_lang_name] = '' } }
+  )
   local root = fast_parse(lang_tree):root()
   ---@diagnostic disable-next-line
   for _, match in module_query:iter_matches(root, content) do