summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Utility/SRV.hs6
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)