diff options
| author | Ian Lynagh <igloo@earth.li> | 2011-03-21 22:31:07 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2011-03-21 22:31:07 +0000 |
| commit | d8dea07bbaef8840736545571bf557d556002bef (patch) | |
| tree | 7deccc343b8576504ffd13aa778e98dd25a5a4e2 | |
| parent | 63919ea06f9d4c51ca5119070336b1f9722c9852 (diff) | |
| download | haskell-d8dea07bbaef8840736545571bf557d556002bef.tar.gz | |
Hack to get the compare tool to work on Windows "bindists"
| -rw-r--r-- | distrib/compare/compare.hs | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/distrib/compare/compare.hs b/distrib/compare/compare.hs index 7d526093f0..8daa773c40 100644 --- a/distrib/compare/compare.hs +++ b/distrib/compare/compare.hs @@ -34,10 +34,15 @@ main = do args <- getArgs doit :: Bool -> FilePath -> FilePath -> IO () doit ignoreSizeChanges bd1 bd2 - = do tls1 <- readTarLines bd1 + = do let windows = any ("mingw" `isPrefixOf`) (tails bd1) + tls1 <- readTarLines bd1 tls2 <- readTarLines bd2 - ways1 <- dieOnErrors $ findWays tls1 - ways2 <- dieOnErrors $ findWays tls2 + -- If it looks like we have a Windows "bindist" then just + -- set ways to [] for now. + ways1 <- if windows then return [] + else dieOnErrors $ findWays tls1 + ways2 <- if windows then return [] + else dieOnErrors $ findWays tls2 content1 <- dieOnErrors $ mkContents ways1 tls1 content2 <- dieOnErrors $ mkContents ways2 tls2 let mySort = sortBy (compare `on` fst) |