diff options
author | Don Stewart <dons@galois.com> | 2008-03-03 19:50:02 +0000 |
---|---|---|
committer | Don Stewart <dons@galois.com> | 2008-03-03 19:50:02 +0000 |
commit | 0f41ab5a49581583ee76f33eb4a85c5c25cce819 (patch) | |
tree | 9b78b5a09923658bf05fb0a7990d8d8861267ef6 /libraries/base/Setup.hs | |
parent | ed725c0e96b362924bfc6bb5ab83538f14124025 (diff) | |
download | haskell-0f41ab5a49581583ee76f33eb4a85c5c25cce819.tar.gz |
untabify
Diffstat (limited to 'libraries/base/Setup.hs')
-rw-r--r-- | libraries/base/Setup.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libraries/base/Setup.hs b/libraries/base/Setup.hs index 2ad48a435d..2afec6fc79 100644 --- a/libraries/base/Setup.hs +++ b/libraries/base/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 |