diff options
Diffstat (limited to 'distrib/compare/compare.hs')
| -rw-r--r-- | distrib/compare/compare.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/distrib/compare/compare.hs b/distrib/compare/compare.hs index db3d0fd81d..23b983f0ac 100644 --- a/distrib/compare/compare.hs +++ b/distrib/compare/compare.hs @@ -62,7 +62,8 @@ doDirectory ignoreSizeChanges p1 p2 extraFile d fp = do putBreak putStrLn ("Extra file in " ++ show d ++ ": " ++ show fp) - doFiles [] [] = return () + doFiles [] [] = do putBreak + putStrLn "Done." doFiles ((_, fp) : xs) [] = do extraFile p1 fp doFiles xs [] doFiles [] ((_, fp) : ys) = do extraFile p2 fp |