projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
34b0bd5
)
savingOldConfig: add Exception.block for extra paranoia
author
Simon Marlow
<simonmar@microsoft.com>
Tue, 1 Aug 2006 13:10:27 +0000
(13:10 +0000)
committer
Simon Marlow
<simonmar@microsoft.com>
Tue, 1 Aug 2006 13:10:27 +0000
(13:10 +0000)
utils/ghc-pkg/Main.hs
patch
|
blob
|
history
diff --git
a/utils/ghc-pkg/Main.hs
b/utils/ghc-pkg/Main.hs
index
cc634ea
..
8290345
100644
(file)
--- 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