better display of thrown errors

This commit is contained in:
Joey Hess 2011-07-05 14:58:33 -04:00
parent 82eb082ab9
commit d31b84c777
4 changed files with 15 additions and 5 deletions

View file

@ -175,6 +175,7 @@ scan r = do
showEndOk
return r'
Nothing -> do
showProgress
showEndFail
return r