diff --git a/Annex/Transfer.hs b/Annex/Transfer.hs index df5aba09cf..001539adcc 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 diff --git a/debian/changelog b/debian/changelog index bbdea7b7b6..7b743b7113 100644 --- a/debian/changelog +++ b/debian/changelog @@ -7,6 +7,7 @@ git-annex (5.20140718) UNRELEASED; urgency=medium Fix this, including support for fixing up repositories that were incompletely repaired before. * Fix cost calculation for non-encrypted remotes. + * Display exception message when a transfer fails due to an exception. -- Joey Hess Mon, 21 Jul 2014 14:41:26 -0400