diff options
Diffstat (limited to 'src/Store/Query.hs')
| -rw-r--r-- | src/Store/Query.hs | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/src/Store/Query.hs b/src/Store/Query.hs index 84e22a7..5d375bd 100644 --- a/src/Store/Query.hs +++ b/src/Store/Query.hs @@ -54,7 +54,6 @@ query' (Delete c w) = do mapM (\fn -> fmap ((fn,) . fromValue c) . decodeFile c $ fn) =<< S.listFiles c let fps = map fst $ whereBy snd w (map (second (: [])) c') - lift $ print fps mapM_ S.deleteFile (map (c </>) fps) S.commit pure (J.toJSON ([] @())) |