From 05d52f9699143e0880b813a057d7ace311e63297 Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Sat, 10 Aug 2019 11:09:25 -0400
Subject: [PATCH] fix display of http exceptions

---
 Utility/Url.hs | 2 --
 1 file changed, 2 deletions(-)

diff --git a/Utility/Url.hs b/Utility/Url.hs
index 4ab79e5a76..b10aba1c93 100644
--- a/Utility/Url.hs
+++ b/Utility/Url.hs
@@ -338,11 +338,9 @@ download' noerror meterupdate url file uo =
 					(matchStatusCodeException (== found302))
 					(downloadConduit meterupdate req file uo >> return True)
 					(followredir r)
-						`catchNonAsync` (dlfailed . show)
 				(DownloadWithConduit (DownloadWithCurlRestricted r), Nothing)
 					| isfileurl u -> downloadfile u
 					| isftpurl u -> downloadcurlrestricted r u url ftpport
-						`catchNonAsync` (dlfailed . show)
 					| otherwise -> unsupportedUrlScheme u dlfailed
 				(DownloadWithCurl _, _)
 					| isfileurl u -> downloadfile u