diff --git a/Main.hs b/Main.hs
index d972f69..2f13dc3 100644
--- 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