bindist comparison tool: Improve way-difference behaviour

[ghc-hetmet.git] / distrib / compare / compare.hs

diff --git a/distrib/compare/compare.hs b/distrib/compare/compare.hs
index 14e83b6..7d52609 100644 (file)
--- 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]