From 9772e7f357585f567c7d93e138870f460f0342ab Mon Sep 17 00:00:00 2001 From: Alexander Foremny Date: Wed, 19 Feb 2025 14:21:15 +0100 Subject: drop debug print --- src/Store/Query.hs | 1 - 1 file changed, 1 deletion(-) 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 ([] @())) -- cgit v1.2.3