From abc9e4369fa4c24363de159bec3acb7d2baa3ec7 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Wed, 21 Nov 2007 08:43:41 +0000 Subject: [PATCH] Fix compilation with GHC 6.2.x --- Setup.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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 -- 1.7.10.4