diff options
Diffstat (limited to 'Utility')
| -rw-r--r-- | Utility/SRV.hs | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/Utility/SRV.hs b/Utility/SRV.hs index da1342c2c..0a77191c4 100644 --- a/Utility/SRV.hs +++ b/Utility/SRV.hs @@ -66,9 +66,7 @@ lookupSRV (SRV srv) = initResolver [] $ \resolver -> do #ifdef WITH_DNS lookupSRV (SRV srv) = do seed <- makeResolvSeed defaultResolvConf - print srv r <- withResolver seed $ flip DNS.lookupSRV $ B8.fromString srv - print r return $ maybe [] (orderHosts . map tohosts) r where tohosts (priority, weight, port, hostname) = |