From 97c299fc60c7bde52b69014f0c85a5c4c73a4889 Mon Sep 17 00:00:00 2001
From: Alexander Foremny <aforemny@posteo.de>
Date: Wed, 5 Jun 2024 09:48:57 +0200
Subject: support comparing `$fileName` against literals

---
 src/Store/Query/Parser.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/Store/Query/Parser.hs')

diff --git a/src/Store/Query/Parser.hs b/src/Store/Query/Parser.hs
index e16c926..99ddc79 100644
--- a/src/Store/Query/Parser.hs
+++ b/src/Store/Query/Parser.hs
@@ -114,9 +114,9 @@ instance IsString Query where
           ]
 
       comparison = do
-        a <- field
+        a <- P.choice [Left <$> value, Right <$> field]
         eq
-        b <- field
+        b <- P.choice [Left <$> value, Right <$> field]
         pure $ Eq a b
 
       fieldSelector =
-- 
cgit v1.2.3