summaryrefslogtreecommitdiff
path: root/Utility
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-05-30 13:36:51 -0400
committerGravatar Joey Hess <joey@kitenet.net>2013-05-30 13:36:51 -0400
commitd225254c04f7eb1a7be691bb9328d6748c8736e7 (patch)
tree6aa46d17885be49a25acd71a7fb071e27d83fd1b /Utility
parentde31be323a1ac6ae7c9a07aea77240bd1c0dee59 (diff)
remove debug prints
Diffstat (limited to 'Utility')
-rw-r--r--Utility/SRV.hs2
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) =