aboutsummaryrefslogtreecommitdiffstats
path: root/src/Store/Query/Parser.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Store/Query/Parser.hs')
-rw-r--r--src/Store/Query/Parser.hs4
1 files changed, 2 insertions, 2 deletions
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 =