From b45700cee37d259e78315ee525b7d7ef6bd3a674 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Sat, 20 Apr 2013 17:55:13 +0100 Subject: Tweak the bindist comparison tool It now just warns about files it doesn't recognise, rather than giving an error. This means that random text files etc in the same directory as the bindists don't make it fall over. --- distrib/compare/compare.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'distrib/compare/compare.hs') diff --git a/distrib/compare/compare.hs b/distrib/compare/compare.hs index 23b983f0ac..81055c2826 100644 --- a/distrib/compare/compare.hs +++ b/distrib/compare/compare.hs @@ -52,7 +52,8 @@ doDirectory ignoreSizeChanges p1 p2 mkFileInfo fp@('g':'h':'c':'-':x:xs) | isDigit x = return [(("ghc-", "VERSION", dropWhile isVersionChar xs), fp)] | otherwise = die ["No version number in " ++ show fp] - mkFileInfo fp = die ["Unrecognised filename " ++ show fp] + mkFileInfo fp = do warn ["Unrecognised filename " ++ show fp] + return [] fss1' <- mapM mkFileInfo fs1 fss2' <- mapM mkFileInfo fs2 let fs1' = sort $ concat fss1' -- cgit v1.2.1