diff options
author | Joey Hess <joey@kitenet.net> | 2014-07-26 23:01:44 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2014-07-26 23:01:44 -0400 |
commit | 0950b8314a21e125aec383db078afc648bd4444e (patch) | |
tree | 59a37c2d90e73dfcbcb21e2dcc15e83f7e80715e /Remote/WebDAV.hs | |
parent | 51a6a833c5e07d8ac57ab8857c649669502d9f6b (diff) |
better exception display
Diffstat (limited to 'Remote/WebDAV.hs')
-rw-r--r-- | Remote/WebDAV.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Remote/WebDAV.hs b/Remote/WebDAV.hs index 36df60945..31e4225e4 100644 --- a/Remote/WebDAV.hs +++ b/Remote/WebDAV.hs @@ -113,7 +113,7 @@ storeHelper :: Remote -> Key -> DavUrl -> DavUser -> DavPass -> L.ByteString -> storeHelper r k baseurl user pass b = catchBoolIO $ do mkdirRecursiveDAV tmpurl user pass case chunkconfig of - NoChunks -> flip catchNonAsync (\e -> print e >> return False) $ do + NoChunks -> flip catchNonAsync (\e -> warningIO (show e) >> return False) $ do storehttp tmpurl b finalizer tmpurl keyurl return True |