Commit 3d83af85 authored by simonmar's avatar simonmar
Browse files

[project @ 2001-06-29 15:37:52 by simonmar]

The "Warning: deleting non-existent foo" message should only be
printed in verbose mode.
parent af630baa
......@@ -494,9 +494,11 @@ removeTmpFiles verb fs
("Deleting: " ++ unwords fs)
(mapM_ rm fs)
where
rm f = removeFile f `catchAllIO`
(\exn -> hPutStrLn stderr ("Warning: deleting non-existent " ++ f) >>
return ())
rm f = removeFile f `catchAllIO`
(\_ignored ->
when (verb >= 2) $
hPutStrLn stderr ("Warning: deleting non-existent " ++ f)
)
\end{code}
......
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