diff options
| -rw-r--r-- | distrib/compare/compare.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/distrib/compare/compare.hs b/distrib/compare/compare.hs index 14e83b6370..7d526093f0 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] |