From 56f733ebfb3aaf3cfd5ceb4e4a7240a5697a81c0 Mon Sep 17 00:00:00 2001
From: Alexander Foremny <aforemny@posteo.de>
Date: Fri, 11 Oct 2024 15:31:48 +0200
Subject: fix DELETE
---
src/Store/Query.hs | 3 +--
1 file changed, 1 insertion(+), 2 deletions(-)
(limited to 'src')
diff --git a/src/Store/Query.hs b/src/Store/Query.hs
index 2b86c82..8cef050 100644
--- a/src/Store/Query.hs
+++ b/src/Store/Query.hs
@@ -27,11 +27,10 @@ query :: Query -> S.StoreM [J.Value]
query (Delete c w) = do
c' <-
mapM (\fn -> fmap ((fn,) . fromValue c) . decodeFile c $ fn)
- . map (c </>)
=<< S.listFiles c
let fps = map fst $ whereBy snd w (map (second (: [])) c')
lift $ print fps
- mapM_ S.deleteFile fps
+ mapM_ S.deleteFile (map (c </>) fps)
S.commit
pure []
query (Insert vs c) = do
--
cgit v1.2.3