From: Simon Marlow <simonmar@microsoft.com>
Date: Wed, 21 Nov 2007 08:43:41 +0000 (+0000)
Subject: Fix compilation with GHC 6.2.x
X-Git-Tag: 2008-05-28~111
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=abc9e4369fa4c24363de159bec3acb7d2baa3ec7;p=ghc-base.git

Fix compilation with GHC 6.2.x
---

diff --git a/Setup.hs b/Setup.hs
index 40033bd..e8f73b6 100644
--- a/Setup.hs
+++ b/Setup.hs
@@ -58,9 +58,9 @@ maybeUpdateFile :: FilePath -> FilePath -> IO ()
 maybeUpdateFile source target = do
   r <- rawSystem "cmp" ["-s" {-quiet-}, source, target]
   case r of 
-    ExitSuccess   -> return ()
-    ExitFailure _ -> copyFile source target
-  removeFile source
+    ExitSuccess   -> removeFile source
+    ExitFailure _ -> do removeFile target; renameFile source target
+  
 
 filter_modules_hook :: Hook a -> Hook a
 filter_modules_hook f pd lbi uhs x