untabify

[ghc-base.git] / Setup.hs

diff --git a/Setup.hs b/Setup.hs
index 2ad48a4..2afec6f 100644 (file)
--- a/Setup.hs
+++ b/Setup.hs
@@ -53,7 +53,7 @@ build_primitive_sources f pd lbi uhs x
 maybeUpdateFile :: FilePath -> FilePath -> IO ()
 maybeUpdateFile source target = do
   r <- rawSystem "cmp" ["-s" {-quiet-}, source, target]
-  case r of 
+  case r of
     ExitSuccess   -> removeFile source
     ExitFailure _ -> do try (removeFile target); renameFile source target