diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-05-30 13:36:51 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-05-30 13:36:51 -0400 |
| commit | d225254c04f7eb1a7be691bb9328d6748c8736e7 (patch) | |
| tree | 6aa46d17885be49a25acd71a7fb071e27d83fd1b /Utility/SRV.hs | |
| parent | de31be323a1ac6ae7c9a07aea77240bd1c0dee59 (diff) | |
remove debug prints
Diffstat (limited to 'Utility/SRV.hs')
| -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) = |