Minor code cleanup.

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