Fix build with dns-3.0.

This commit was sponsored by Henrik Riomar on Patreon.
This commit is contained in:
Joey Hess 2017-11-24 10:49:31 -04:00
parent 005d9a897d
commit ed9d5da2d5
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
2 changed files with 2 additions and 1 deletions

View file

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

View file

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