diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Class/IO.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Class/IO.hs b/src/Text/Pandoc/Class/IO.hs index 4ede6df10..0e288270c 100644 --- a/src/Text/Pandoc/Class/IO.hs +++ b/src/Text/Pandoc/Class/IO.hs @@ -137,13 +137,12 @@ openURL u disableCertificateValidation <- getsCommonState stNoCheckCertificate report $ Fetching u res <- liftIO $ E.try $ withSocketsDo $ do - let parseReq = parseRequest proxy <- tryIOError (getEnv "http_proxy") let addProxy' x = case proxy of Left _ -> return x - Right pr -> parseReq pr >>= \r -> + Right pr -> parseRequest pr >>= \r -> return (addProxy (host r) (port r) x) - req <- parseReq (unpack u) >>= addProxy' + req <- parseRequest (unpack u) >>= addProxy' let req' = req{requestHeaders = customHeaders ++ requestHeaders req} let tlsSimple = TLSSettingsSimple disableCertificateValidation False False let tlsManagerSettings = mkManagerSettings tlsSimple Nothing |