Fix build with dns-3.0.
This commit was sponsored by Henrik Riomar on Patreon.
This commit is contained in:
parent
005d9a897d
commit
ed9d5da2d5
2 changed files with 2 additions and 1 deletions
|
@ -2,6 +2,7 @@ git-annex (6.20171110) UNRELEASED; urgency=medium
|
|||
|
||||
* Display progress meter when uploading a key without size information,
|
||||
getting the size by statting the content file.
|
||||
* Fix build with dns-3.0.
|
||||
|
||||
-- Joey Hess <id@joeyh.name> Tue, 14 Nov 2017 16:14:20 -0400
|
||||
|
||||
|
|
|
@ -44,7 +44,7 @@ lookupSRV (SRV srv) = do
|
|||
where
|
||||
use = orderHosts . map tohosts
|
||||
tohosts (priority, weight, port, hostname) =
|
||||
( (priority, weight)
|
||||
( (fromIntegral priority, fromIntegral weight)
|
||||
, (B8.toString hostname, PortNumber $ fromIntegral port)
|
||||
)
|
||||
|
||||
|
|
Loading…
Reference in a new issue