diff options
author | Joey Hess <joeyh@joeyh.name> | 2017-11-24 10:49:31 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2017-11-24 10:49:31 -0400 |
commit | 8888e74b32bfaa65e3357d1718e7ff626f355a06 (patch) | |
tree | cd4a9743997f18df3987866d3de5202d8cc36cc1 | |
parent | 57ea3fe48b5bb5f98a199aca2f7319fc84cbe342 (diff) |
Fix build with dns-3.0.
This commit was sponsored by Henrik Riomar on Patreon.
-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) ) |