From 7916df381a7832f01f6dafb83ab62d5095af808d Mon Sep 17 00:00:00 2001
From: Alexander Foremny <aforemny@posteo.de>
Date: Wed, 19 Feb 2025 14:20:33 +0100
Subject: generalize `Store.query`

---
 app/Main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'app/Main.hs')

diff --git a/app/Main.hs b/app/Main.hs
index 3b7f59d..9da083a 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -91,6 +91,6 @@ main = do
                   <$> W.lazyRequestBody req
               r <- liftIO $ Q.withStore root ref (Q.query q)
               respond . W.responseLBS W.status200 [] $
-                J.encode r
+                J.encode @J.Value r
           | otherwise ->
               respond $ W.responseLBS W.status200 [] "OK"
-- 
cgit v1.2.3