From 349e0e18a3de8098a8c96c05b52c48100d728bcc Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Tue, 1 Aug 2006 13:10:27 +0000 Subject: [PATCH 1/1] savingOldConfig: add Exception.block for extra paranoia --- utils/ghc-pkg/Main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 1.7.10.4