From 3993d90a521d58673ce4a618afc9f9bcf79b92f9 Mon Sep 17 00:00:00 2001
From: Guillaume Bouchard <guillaum.bouchard@gmail.com>
Date: Sat, 27 Aug 2022 15:50:03 +0200
Subject: [PATCH] Haskell injection: support inline json

Support for inline json using the quasiquoter `aesonQQ`: https://github.com/sol/aeson-qq#readme
---
 queries/haskell/injections.scm | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/queries/haskell/injections.scm b/queries/haskell/injections.scm
index 0b231a7a1..c3c51358a 100644
--- a/queries/haskell/injections.scm
+++ b/queries/haskell/injections.scm
@@ -56,3 +56,13 @@
  (#eq? @_name "hsx")
  ((quasiquote_body) @html)
 )
+
+;; -----------------------------------------------------------------------------
+;; Inline JSON from aeson
+
+(quasiquote
+  (quoter) @_name
+  (#eq? @_quoter "aesonQQ")
+  ((quasiquote_body) @json)
+)
+