diff options
| author | Joey Hess <id@joeyh.name> | 2014-12-05 14:06:48 -0400 |
|---|---|---|
| committer | Joey Hess <id@joeyh.name> | 2014-12-05 14:06:48 -0400 |
| commit | c24bdec62054983d0ae2621cb50e03a3432c7592 (patch) | |
| tree | d235add9c029b9727e930220ac1036684dee2a4c /src | |
| parent | be8317c790d7d59b116b312b223f11ba70545570 (diff) | |
propellor spin
Diffstat (limited to 'src')
| -rw-r--r-- | src/Propellor/Property/OS.hs | 3 |
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) |