diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-07-30 15:57:19 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-07-30 15:57:19 -0400 |
| commit | a2626b6b247eaa6fa24e9f8fe1166ccd0a19b079 (patch) | |
| tree | 20d6a8b1a09feadb4513c1c03940f22908986fae /Annex/Transfer.hs | |
| parent | 8c2e87e0f2342b34c920422fdf18484664753b16 (diff) | |
Display exception message when a transfer fails due to an exception.
For example, I had a copy to a remote that was failing for an unknown
reason. This let me see the exception was createDirectory: permission
denied; the underlying problem being a permissions issue.
Diffstat (limited to 'Annex/Transfer.hs')
| -rw-r--r-- | Annex/Transfer.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Annex/Transfer.hs b/Annex/Transfer.hs index df5aba09c..001539adc 100644 --- a/Annex/Transfer.hs +++ b/Annex/Transfer.hs @@ -106,7 +106,8 @@ runTransfer t file shouldretry a = do v <- tryAnnex run case v of Right b -> return b - Left _ -> do + Left e -> do + warning (show e) b <- getbytescomplete metervar let newinfo = oldinfo { bytesComplete = Just b } if shouldretry oldinfo newinfo |