diff options
| author | Ian Lynagh <ian@well-typed.com> | 2013-01-27 16:28:36 +0000 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2013-01-27 16:28:36 +0000 |
| commit | 1095d51520e3e917e90f073782c04a785ea9f7be (patch) | |
| tree | 2143d137e82fcbf9ed1c892ce8d3f666b11b9d4e /distrib/compare | |
| parent | d1fd45d122131bb9b07784bf3afe280162089483 (diff) | |
| download | haskell-1095d51520e3e917e90f073782c04a785ea9f7be.tar.gz | |
Add a "Done." line to compare
Makes it clearer whether it succeeded when redirecting output
Diffstat (limited to 'distrib/compare')
| -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 |