@@ -103,7 +103,7 @@ setRQBody b t req = req { reqBody = Just (b, t) }
103103
104104reqToRequest :: (Functor m, MonadThrow m) => Req -> BaseUrl -> m Request
105105reqToRequest req (BaseUrl reqScheme reqHost reqPort path) =
106− setheaders . setAccept . setrqb . setQS <$> parseUrl url
106+ setheaders . setAccept . setrqb . setQS <$> parseUrlThrow url
107107
108108 where url = show $ nullURI { uriScheme = case reqScheme of
109109 Http -> "http:"
@@ -129,6 +129,9 @@ reqToRequest req (BaseUrl reqScheme reqHost reqPort path) =
129129 | not . null . reqAccept $ req] }
130130 toProperHeader (name, val) =
131131 (fromString name, encodeUtf8 val)
132+#if !MIN_VERSION_http_client(0,4,30)
133+ parseUrlThrow = parseUrl
134+#endif
132135
133136
134137-- * performing requests