From 38424abffb5b40fb4e316244c2ac1c03a1fee58d Mon Sep 17 00:00:00 2001
From: Adam Vogt <vogt.adam@gmail.com>
Date: Fri, 30 May 2025 09:52:18 -0400
Subject: [PATCH] feat(haskell) injections for inline-c-cpp quasiquotes

---
 queries/haskell/injections.scm | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/queries/haskell/injections.scm b/queries/haskell/injections.scm
index a82addbce..5d35a3830 100644
--- a/queries/haskell/injections.scm
+++ b/queries/haskell/injections.scm
@@ -82,3 +82,18 @@
   (quoter) @injection.language
   (#any-of? @injection.language "pymain" "pye" "py_" "pyf")
   (quasiquote_body) @injection.content)
+
+; -----------------------------------------------------------------------------
+; CPP
+; inline-c-cpp
+((quasiquote
+  (quoter
+    (qualified
+      module: (module (module_id) @_module)
+      id: (variable) @_id))
+  body: (quasiquote_body) @injection.content)
+ (#eq? @_module "C")
+ (#any-of? @_id "exp" "block")
+ (#set! injection.language "cpp")
+ (#set! injection.include-children)
+ (#set! injection.pattern "^\\$[a-zA-Z_][a-zA-Z0-9_]*:[a-zA-Z_][a-zA-Z0-9_]*$"))