better exception display
This commit is contained in:
parent
0d89b65bfc
commit
867fd116a7
5 changed files with 10 additions and 8 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue