better exception display

This commit is contained in:
Joey Hess 2014-07-26 23:01:44 -04:00
parent 0d89b65bfc
commit 867fd116a7
5 changed files with 10 additions and 8 deletions

View file

@ -74,7 +74,7 @@ storeChunks key tmp dest storer recorder finalizer = either onerr return
finalizer tmp dest
return (not $ null stored)
onerr e = do
print e
warningIO (show e)
return False
basef = tmp ++ keyFile key
@ -105,7 +105,7 @@ storeChunked chunksize dests storer content = either onerr return
| otherwise = storechunks sz [] dests content
onerr e = do
print e
warningIO (show e)
return []
storechunks _ _ [] _ = return [] -- ran out of dests