Drop support for building with old versions of dns and http-conduit.

This commit is contained in:
Joey Hess 2017-03-10 15:49:14 -04:00
parent fc3925a1cd
commit ca49a84ba5
No known key found for this signature in database
GPG key ID: C910D9222512E3C7
4 changed files with 4 additions and 18 deletions

View file

@ -14,6 +14,7 @@ git-annex (6.20170301.2) UNRELEASED; urgency=medium
* Windows: Improve handling of shebang in external special remote
program, searching for the program in the PATH.
* Drop support for building without network-uri.
* Drop support for building with old versions of dns and http-conduit.
-- Joey Hess <id@joeyh.name> Thu, 02 Mar 2017 12:51:40 -0400

View file

@ -5,8 +5,6 @@
- License: BSD-2-clause
-}
{-# LANGUAGE CPP #-}
module Utility.SRV (
mkSRVTcp,
mkSRV,
@ -42,12 +40,7 @@ lookupSRV :: SRV -> IO [HostPort]
lookupSRV (SRV srv) = do
seed <- makeResolvSeed defaultResolvConf
r <- withResolver seed $ flip DNS.lookupSRV $ B8.fromString srv
return $
#if MIN_VERSION_dns(1,0,0)
either (const []) use r
#else
maybe [] use r
#endif
return $ either (const []) use r
where
use = orderHosts . map tohosts
tohosts (priority, weight, port, hostname) =

View file

@ -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,

View file

@ -342,7 +342,7 @@ Executable git-annex
resourcet,
http-client,
http-types,
http-conduit,
http-conduit (>= 2.0.0),
time,
old-locale,
esqueleto,
@ -395,7 +395,7 @@ Executable git-annex
CPP-Options: -DWITH_WEBDAV
if flag(Assistant) && ! os(solaris)
Build-Depends: dns, mountpoints
Build-Depends: dns (>= 1.0.0), mountpoints
CPP-Options: -DWITH_ASSISTANT
if flag(Assistant)