summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJoey Hess2014-12-05 14:06:48 -0400
committerJoey Hess2014-12-05 14:06:48 -0400
commitc24bdec62054983d0ae2621cb50e03a3432c7592 (patch)
treed235add9c029b9727e930220ac1036684dee2a4c
parentbe8317c790d7d59b116b312b223f11ba70545570 (diff)
propellor spin
-rw-r--r--src/Propellor/Property/OS.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Propellor/Property/OS.hs b/src/Propellor/Property/OS.hs
index 3ed23fb4..bc575512 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)