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 /Utility | |
| parent | 57ea3fe48b5bb5f98a199aca2f7319fc84cbe342 (diff) | |
Fix build with dns-3.0.
This commit was sponsored by Henrik Riomar on Patreon.
Diffstat (limited to 'Utility')
| -rw-r--r-- | Utility/SRV.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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) ) |