Minor code cleanup.

jgm · Feb 20, 2024 · b103792 · b103792
1 parent c131f8d
commit b103792
Showing 1 changed file with 2 additions and 3 deletions.
diff --git 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