mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

remove debug prints

Browse source
This commit is contained in:
Joey Hess 2013-05-30 13:36:51 -04:00
parent 79e080c120
commit 273798c8bd
1 changed files with 0 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Utility/SRV.hs
View file

@ -66,9 +66,7 @@ lookupSRV (SRV srv) = initResolver [] $ \resolver -> do
#ifdef WITH_DNS #ifdef WITH_DNS
lookupSRV (SRV srv) = do lookupSRV (SRV srv) = do
seed <- makeResolvSeed defaultResolvConf seed <- makeResolvSeed defaultResolvConf
print srv
r <- withResolver seed $ flip DNS.lookupSRV $ B8.fromString srv r <- withResolver seed $ flip DNS.lookupSRV $ B8.fromString srv
print r
return $ maybe [] (orderHosts . map tohosts) r return $ maybe [] (orderHosts . map tohosts) r
where where
tohosts (priority, weight, port, hostname) = tohosts (priority, weight, port, hostname) =