fix display of http exceptions
This commit is contained in:
parent
5bd515960c
commit
05d52f9699
1 changed files with 0 additions and 2 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue