diff options
| author | Simon Marlow <simonmar@microsoft.com> | 2006-08-01 13:10:27 +0000 |
|---|---|---|
| committer | Simon Marlow <simonmar@microsoft.com> | 2006-08-01 13:10:27 +0000 |
| commit | 349e0e18a3de8098a8c96c05b52c48100d728bcc (patch) | |
| tree | 862ee560f0985ffe12edabda1c895d3aff127cb1 /utils | |
| parent | 34b0bd51383120fe9a2da21d5c0af3c9a662e598 (diff) | |
| download | haskell-349e0e18a3de8098a8c96c05b52c48100d728bcc.tar.gz | |
savingOldConfig: add Exception.block for extra paranoia
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/ghc-pkg/Main.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/utils/ghc-pkg/Main.hs b/utils/ghc-pkg/Main.hs index cc634ea358..829034578a 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 |