Commit d8dea07b authored by Ian Lynagh's avatar Ian Lynagh

Hack to get the compare tool to work on Windows "bindists"

parent 63919ea0
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment