X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=distrib%2Fcompare%2Fcompare.hs;fp=distrib%2Fcompare%2Fcompare.hs;h=7d526093f0ff86bacbdc70902da613de34c41596;hp=14e83b63705bc22a0f0f5c4354b03e283b963938;hb=16c0d8a6cac2086b6119b4314e182575a13398c9;hpb=d93aa4f4421c2a99d1f5be816882de0018d0a56a

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]