diff options
-rw-r--r-- | CHANGELOG | 1 | ||||
-rw-r--r-- | Utility/SRV.hs | 2 |
2 files changed, 2 insertions, 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 diff --git a/Utility/SRV.hs b/Utility/SRV.hs index 64cca6060..df81f49a5 100644 --- a/Utility/SRV.hs +++ b/Utility/SRV.hs @@ -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) ) |