From 76d894f2e555e249b70d1ca2771a32c14619ad5a Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 30 Jul 2014 15:57:19 -0400 Subject: [PATCH] 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. --- Annex/Transfer.hs | 3 ++- debian/changelog | 1 + 2 files changed, 3 insertions(+), 1 deletion(-) 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