diff options
| author |  Alexander Foremny <aforemny@posteo.de> | 2024-10-11 15:31:48 +0200 |
|---|---|---|
| committer | Alexander Foremny <aforemny@posteo.de> | 2024-10-11 15:31:48 +0200 |
| commit | 56f733ebfb3aaf3cfd5ceb4e4a7240a5697a81c0 (patch) | |
| tree | e9741f79231117323502bdc26030482557f00c9b | |
| parent | 58b2ef265847d005300df4b6e908734bae1a7cb4 (diff) | |
fix DELETE
| -rw-r--r-- | src/Store/Query.hs | 3 |
1 files changed, 1 insertions, 2 deletions
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 |