From: Ian Lynagh <igloo@earth.li>
Date: Wed, 16 Mar 2011 22:13:38 +0000 (+0000)
Subject: bindist comparison tool: Improve way-difference behaviour
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=16c0d8a6cac2086b6119b4314e182575a13398c9;p=ghc-hetmet.git

bindist comparison tool: Improve way-difference behaviour
---

diff --git a/distrib/compare/compare.hs b/distrib/compare/compare.hs
index 14e83b6..7d52609 100644
--- a/distrib/compare/compare.hs
+++ b/distrib/compare/compare.hs
@@ -198,6 +198,8 @@ findFileWay :: FilePath -> Maybe String
 findFileWay fp
  | Just [way] <- re "\\.([a-z_]+)_hi$" fp
     = Just way
+ | Just [_, _, way] <- re ("libHS.*-" ++ versionRE ++ "_([a-z_]+).a$") fp
+    = Just way
  | otherwise = Nothing
 
 compareTarLine :: TarLine -> TarLine -> [Problem]