diff options
Diffstat (limited to 'Utility/SRV.hs')
-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) ) |