diff options
Diffstat (limited to 'src')
| -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 |