From 8888e74b32bfaa65e3357d1718e7ff626f355a06 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 24 Nov 2017 10:49:31 -0400 Subject: Fix build with dns-3.0. This commit was sponsored by Henrik Riomar on Patreon. --- CHANGELOG | 1 + Utility/SRV.hs | 2 +- 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/CHANGELOG b/CHANGELOG index 72d8d775f..b2fc5ac2f 100644 --- a/CHANGELOG +++ b/CHANGELOG @@ -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 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) ) -- cgit v1.2.3