cadey
/
propellor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

propellor spin

This commit is contained in:
Joey Hess 2014-12-05 14:06:48 -04:00
parent be8317c790
commit c24bdec620
Failed to extract signature
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Propellor/Property/OS.hs
View File

@ -137,7 +137,8 @@ massRename :: [(FilePath, FilePath)] -> IO ()
massRename = go [] massRename = go []
where where
go _ [] = return () go _ [] = return ()
go undo ((from, to):rest) = go undo ((from, to):rest) = do
warningMessage $ show ("rename", from, to)
tryNonAsync (rename from to) tryNonAsync (rename from to)
>>= either >>= either
(rollback undo) (rollback undo)