From: Simon Marlow <simonmar@microsoft.com>
Date: Tue, 1 Aug 2006 13:10:27 +0000 (+0000)
Subject: savingOldConfig: add Exception.block for extra paranoia
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=349e0e18a3de8098a8c96c05b52c48100d728bcc

savingOldConfig: add Exception.block for extra paranoia
---

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