[commit: ghc] master: Add a "Done." line to compare (1095d51)

[Ian Lynagh]

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/1095d51520e3e917e90f073782c04a785ea9f7be

>---------------------------------------------------------------

commit 1095d51520e3e917e90f073782c04a785ea9f7be
Author: Ian Lynagh <ian at well-typed.com>
Date:   Sun Jan 27 16:28:36 2013 +0000

    Add a "Done." line to compare
    
    Makes it clearer whether it succeeded when redirecting output

>---------------------------------------------------------------

 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 db3d0fd..23b983f 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