Commit 1095d515 authored by ian@well-typed.com's avatar ian@well-typed.com
Browse files

Add a "Done." line to compare

Makes it clearer whether it succeeded when redirecting output
parent d1fd45d1
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment