Commit 349e0e18 authored by Simon Marlow's avatar Simon Marlow

savingOldConfig: add Exception.block for extra paranoia

parent 34b0bd51
......@@ -577,7 +577,7 @@ writeNewConfig filename packages = do
hPutStrLn stdout "done."
savingOldConfig :: FilePath -> IO () -> IO ()
savingOldConfig filename io = do
savingOldConfig filename io = Exception.block $ do
hPutStr stdout "Saving old package config file... "
-- mv rather than cp because we've already done an hGetContents
-- on this file so we won't be able to open it for writing
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment