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(-)

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