http-conduit-browser 1.7.1.1 → 1.7.1.2

raw patch · 2 files changed

+7/−2 lines, 2 files

Files

• Network/HTTP/Conduit/Browser.hs +6/−1
• http-conduit-browser.cabal +1/−1

@@ -262,7 +262,12 @@ parseRelativeUrl url = maybe err (parseUrl . use) . currentLocation =<< get   where err = throw $ InvalidUrlException url "Invalid URL"         uri = fromMaybe err $ parseRelativeReference url-        use = flip (uriToString id) "" . fromMaybe err . relativeTo uri+        use = flip (uriToString id) "" . fromMaybe err . relativeTo' uri+#if MIN_VERSION_network(2,4,0)+        relativeTo' x = Just . relativeTo x+#else+        relativeTo' = relativeTo+#endif  -- | Make a request, using all the state in the current BrowserState makeRequest :: (MonadBaseControl IO m, MonadResource m) => Request (ResourceT IO) -> GenericBrowserAction m (Response (ResumableSource (ResourceT IO) BS.ByteString))

@@ -1,5 +1,5 @@ name:            http-conduit-browser-version:         1.7.1.1+version:         1.7.1.2 license:         BSD3 license-file:    LICENSE author:          Myles C. Maxfield <myles.maxfield@gmail.com>