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

fix build with haskell DNS 1.0.0

Browse source
This commit is contained in:
Joey Hess 2013-09-17 11:54:09 -04:00
parent 634132c64b
commit 26baae8967
1 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Utility/SRV.hs
View file

@ -67,8 +67,14 @@ lookupSRV (SRV srv) = initResolver [] $ \resolver -> do
lookupSRV (SRV srv) = do lookupSRV (SRV srv) = do
seed <- makeResolvSeed defaultResolvConf seed <- makeResolvSeed defaultResolvConf
r <- withResolver seed $ flip DNS.lookupSRV $ B8.fromString srv r <- withResolver seed $ flip DNS.lookupSRV $ B8.fromString srv
return $ maybe [] (orderHosts . map tohosts) r return $
#if MIN_VERSION_dns(1,0,0)
either (const []) use r
#else
maybe [] use r
#endif
where where
use = orderHosts . map tohosts
tohosts (priority, weight, port, hostname) = tohosts (priority, weight, port, hostname) =
( (priority, weight) ( (priority, weight)
, (B8.toString hostname, PortNumber $ fromIntegral port) , (B8.toString hostname, PortNumber $ fromIntegral port)