From 16c0d8a6cac2086b6119b4314e182575a13398c9 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Wed, 16 Mar 2011 22:13:38 +0000 Subject: [PATCH] bindist comparison tool: Improve way-difference behaviour --- distrib/compare/compare.hs | 2 ++ 1 file changed, 2 insertions(+) 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] -- 1.7.10.4