change verb when dry-running

2021-09-06 00:42:09 +02:00 · 2021-09-06 00:42:09 +02:00 · 6c3e5a5c4e
commit 6c3e5a5c4e
parent cfe3ac83eb
1 changed files with 5 additions and 1 deletions
--- a/Main.hs
+++ b/Main.hs
@ -142,9 +142,13 @@ runAction settings name x = do
    printFailed msg = T.putStrLn ("- " <> name <> " cleaning failed:\n  " <> msg)
    printResult (n, bad)
      | n > 0 = do
-        T.putStrLn ("- " <> name <> ": deleted " <> T.pack (show n) <> " entries for:")
+        T.putStrLn ("- " <> name <> ": " <> verb <>
+                    " " <> T.pack (show n) <> " entries for:")
        T.putStrLn (T.unlines $ map ("  * " <>) bad)
      | otherwise = T.putStrLn ("- " <> name <> ": nothing to delete")
+    verb = if (dryRun . options $ settings)
+             then "would delete"
+             else "deleted"


 -- * Cleaning actions