diff options
| author | Ian Lynagh <igloo@earth.li> | 2011-03-16 22:13:38 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2011-03-16 22:13:38 +0000 |
| commit | 16c0d8a6cac2086b6119b4314e182575a13398c9 (patch) | |
| tree | b9ea031478bb8fdb3e9f95b33fb0358bb4519cc2 /distrib/compare | |
| parent | d93aa4f4421c2a99d1f5be816882de0018d0a56a (diff) | |
| download | haskell-16c0d8a6cac2086b6119b4314e182575a13398c9.tar.gz | |
bindist comparison tool: Improve way-difference behaviour
Diffstat (limited to 'distrib/compare')
| -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] |