From a2626b6b247eaa6fa24e9f8fe1166ccd0a19b079 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 30 Jul 2014 15:57:19 -0400 Subject: 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 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'Annex') 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 -- cgit v1.2.3