diff options
author | Joey Hess <joeyh@joeyh.name> | 2017-03-10 15:49:14 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2017-03-10 15:49:14 -0400 |
commit | 7204a6774d81b681be9ea4733596dd58a05906b1 (patch) | |
tree | 91abc35dee2ec1227922a8a3d1c1f7fec928d24c /Utility/Url.hs | |
parent | bfad6f5a7d156d5ddf0e5cf3840d8d22f82a2377 (diff) |
Drop support for building with old versions of dns and http-conduit.
Diffstat (limited to 'Utility/Url.hs')
-rw-r--r-- | Utility/Url.hs | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/Utility/Url.hs b/Utility/Url.hs index 1b68dce7f..2b71b6be4 100644 --- a/Utility/Url.hs +++ b/Utility/Url.hs @@ -67,11 +67,7 @@ data UrlOptions = UrlOptions { userAgent :: Maybe UserAgent , reqHeaders :: Headers , reqParams :: [CommandParam] -#if MIN_VERSION_http_conduit(2,0,0) , applyRequest :: Request -> Request -#else - , applyRequest :: forall m. Request m -> Request m -#endif } instance Default UrlOptions @@ -232,11 +228,7 @@ contentDispositionFilename s drop 1 $ dropWhile (/= '"') s | otherwise = Nothing -#if MIN_VERSION_http_conduit(2,0,0) headRequest :: Request -> Request -#else -headRequest :: Request m -> Request m -#endif headRequest r = r { method = methodHead -- remove defaut Accept-Encoding header, to get actual, |