X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=utils%2Fghc-pkg%2FMain.hs;h=697816eb099f86ab95549b5c03b5587da1ec0fa4;hp=bdd9c80893d28d56d97e1ab561ec8112b1b76d30;hb=32b906efc4c6474d8af6fd7be2a3ddac2ae20a16;hpb=18b15542d69770ca761e0663fde6c6fa52fdb129

diff --git a/utils/ghc-pkg/Main.hs b/utils/ghc-pkg/Main.hs
index bdd9c80..697816e 100644
--- a/utils/ghc-pkg/Main.hs
+++ b/utils/ghc-pkg/Main.hs
@@ -693,17 +693,16 @@ savingOldConfig filename io = Exception.block $ do
     `Exception.catch` \e -> do
       hPutStr stdout ("WARNING: an error was encountered while writing "
                    ++ "the new configuration.\n")
-      if restore_on_error 
-         then do 
+        -- remove any partially complete new version:
+      try (removeFile filename)
+        -- and attempt to restore the old one, if we had one:
+      when restore_on_error $ do
            hPutStr stdout "Attempting to restore the old configuration... "
            do renameFile oldFile filename
               hPutStrLn stdout "done."
             `catch` \err -> hPutStrLn stdout ("Failed: " ++ show err)
-         else do
-           -- file did not exist before, so the new one which
-           -- might be partially complete.
-           try (removeFile filename)
-           return ()
+        -- Note the above renameFile sometimes fails on Windows with
+        -- "permission denied", I have no idea why --SDM.
       Exception.throwIO e
 
 -----------------------------------------------------------------------------