From c24bdec62054983d0ae2621cb50e03a3432c7592 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 5 Dec 2014 14:06:48 -0400 Subject: [PATCH] propellor spin --- src/Propellor/Property/OS.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/Propellor/Property/OS.hs b/src/Propellor/Property/OS.hs index 3ed23fb..bc57551 100644 --- a/src/Propellor/Property/OS.hs +++ b/src/Propellor/Property/OS.hs @@ -137,7 +137,8 @@ massRename :: [(FilePath, FilePath)] -> IO () massRename = go [] where go _ [] = return () - go undo ((from, to):rest) = + go undo ((from, to):rest) = do + warningMessage $ show ("rename", from, to) tryNonAsync (rename from to) >>= either (rollback undo)