X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=utils%2Fghc-pkg%2FMain.hs;h=829034578a73cc9478192f0a239137ba2b2f9def;hp=cc634ea358ad588990c788f554b8d14a37bca557;hb=349e0e18a3de8098a8c96c05b52c48100d728bcc;hpb=34b0bd51383120fe9a2da21d5c0af3c9a662e598

diff --git a/utils/ghc-pkg/Main.hs b/utils/ghc-pkg/Main.hs
index cc634ea..8290345 100644
--- a/utils/ghc-pkg/Main.hs
+++ b/utils/ghc-pkg/Main.hs
@@ -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