From ff448719b9fa0463639440dcdfcca17294a02d83 Mon Sep 17 00:00:00 2001
From: Alexander Foremny <aforemny@posteo.de>
Date: Fri, 11 Oct 2024 15:31:52 +0200
Subject: fix INSERT
---
src/Store/Query.hs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
(limited to 'src')
diff --git a/src/Store/Query.hs b/src/Store/Query.hs
index 8cef050..c400206 100644
--- a/src/Store/Query.hs
+++ b/src/Store/Query.hs
@@ -38,7 +38,7 @@ query (Insert vs c) = do
fileName v@(J.Object kvs) =
case JM.lookup "$fileName" kvs of
- Just (J.String fileName) -> c </> T.unpack fileName
+ Just (J.String fileName) -> T.unpack fileName
_ -> throw (MissingFileName v)
mapM_ (\((c, fn), v) -> encodeFile c fn v) vs'
S.commit
--
cgit v1.2.3