aboutsummaryrefslogtreecommitdiff
path: root/Utility/Url.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joeyh@joeyh.name>2017-03-10 15:49:14 -0400
committerGravatar Joey Hess <joeyh@joeyh.name>2017-03-10 15:49:14 -0400
commit7204a6774d81b681be9ea4733596dd58a05906b1 (patch)
tree91abc35dee2ec1227922a8a3d1c1f7fec928d24c /Utility/Url.hs
parentbfad6f5a7d156d5ddf0e5cf3840d8d22f82a2377 (diff)
Drop support for building with old versions of dns and http-conduit.
Diffstat (limited to 'Utility/Url.hs')
-rw-r--r--Utility/Url.hs8
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,