Replace deprecated parseUrl with parseRequest

restaumatic · Jul 6, 2016 · c6896cc · c6896cc
1 parent 510c787
commit c6896cc
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/Network/HTTP/Proxy.hs b/Network/HTTP/Proxy.hs
@@ -159,7 +159,7 @@ doUpstreamRequest settings mgr respond mwreq
         respond $ responseRawSource (handleConnect mwreq)
                     (Wai.responseLBS HT.status500 [("Content-Type", "text/plain")] "No support for responseRaw")
     | otherwise = do
-        hreq0 <- HC.parseUrl $ BS.unpack (Wai.rawPathInfo mwreq <> Wai.rawQueryString mwreq)
+        hreq0 <- HC.parseRequest $ BS.unpack (Wai.rawPathInfo mwreq <> Wai.rawQueryString mwreq)
         let hreq = hreq0
                 { HC.method = Wai.requestMethod mwreq
                 , HC.requestHeaders = filter dropRequestHeader $ Wai.requestHeaders mwreq

diff --git a/Test/Request.hs b/Test/Request.hs
@@ -62,7 +62,7 @@ mkTestRequest method scheme path mbody = do
                         Http -> httpTestPort portsDef
                         Https -> httpsTestPort portsDef
         url = map toLower (show scheme) ++ "://localhost:" ++ port ++ path
-    req <- HC.parseUrl url
+    req <- HC.parseRequest url
     return $ req
         { HC.method = if HC.method req /= method then method else HC.method req
         , HC.requestBody = fromMaybe (HC.requestBody req) mbody