diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-10-28 21:21:01 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-10-28 21:21:01 -0400 |
| commit | 30685dd2a6e6706128a3539f3617b017f4e20e60 (patch) | |
| tree | 500af9efacbe77fed2f8d6c46e9aad496134653d /Utility/SRV.hs | |
| parent | b20abd1cd40069159f087b20efb74262b4a1612d (diff) | |
allow WITH_HOST setting too
Diffstat (limited to 'Utility/SRV.hs')
| -rw-r--r-- | Utility/SRV.hs | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/Utility/SRV.hs b/Utility/SRV.hs index d9c70321b..c43782a56 100644 --- a/Utility/SRV.hs +++ b/Utility/SRV.hs @@ -31,12 +31,14 @@ import Data.Maybe import ADNS.Resolver import Data.Either #else +#ifndef WITH_HOST #ifdef WITH_DNS import qualified Network.DNS.Lookup as DNS import Network.DNS.Resolver import qualified Data.ByteString.UTF8 as B8 #endif #endif +#endif newtype SRV = SRV String deriving (Show, Eq) @@ -62,6 +64,9 @@ lookupSRV (SRV srv) = initResolver [] $ \resolver -> do resolveSRV resolver srv return $ either (\_ -> []) id r #else +#ifdef WITH_HOST +lookupSRV = lookupSRVHost +#else #ifdef WITH_DNS lookupSRV (SRV srv) = do seed <- makeResolvSeed defaultResolvConf @@ -78,6 +83,7 @@ lookupSRV (SRV srv) = do lookupSRV = lookupSRVHost #endif #endif +#endif lookupSRVHost :: SRV -> IO [HostPort] lookupSRVHost (SRV srv) |