From b103792c17062aab6690ebb4f2542a280ff3d846 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Mon, 19 Feb 2024 22:00:30 -0800 Subject: Minor code cleanup. --- src/Text/Pandoc/Class/IO.hs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'src') 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 -- cgit v1.2.3