Add a "Done." line to compare
authorIan Lynagh <ian@well-typed.com>
Sun, 27 Jan 2013 16:28:36 +0000 (16:28 +0000)
committerIan Lynagh <ian@well-typed.com>
Sun, 27 Jan 2013 16:28:36 +0000 (16:28 +0000)
Makes it clearer whether it succeeded when redirecting output

distrib/compare/compare.hs

index db3d0fd..23b983f 100644 (file)
@@ -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