From ada8d0bebdb79b26f7168e0a77ee7ecf053bcf14 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 30 Oct 2012 19:28:46 -0400 Subject: don't test host in configure That'll fail when building offline. --- Utility/SRV.hs | 11 ++++------- 1 file changed, 4 insertions(+), 7 deletions(-) (limited to 'Utility/SRV.hs') diff --git a/Utility/SRV.hs b/Utility/SRV.hs index c43782a56..5443b8b1a 100644 --- a/Utility/SRV.hs +++ b/Utility/SRV.hs @@ -16,7 +16,6 @@ module Utility.SRV ( lookupSRV, ) where -import qualified Build.SysConfig import Utility.Process import Utility.Exception import Utility.PartialPrelude @@ -86,12 +85,10 @@ lookupSRV = lookupSRVHost #endif lookupSRVHost :: SRV -> IO [HostPort] -lookupSRVHost (SRV srv) - | Build.SysConfig.host = catchDefaultIO [] $ - parseSrvHost <$> readProcessEnv "host" ["-t", "SRV", "--", srv] - -- clear environment, to avoid LANG affecting output - (Just []) - | otherwise = return [] +lookupSRVHost (SRV srv) = catchDefaultIO [] $ + parseSrvHost <$> readProcessEnv "host" ["-t", "SRV", "--", srv] + -- clear environment, to avoid LANG affecting output + (Just []) parseSrvHost :: String -> [HostPort] parseSrvHost = orderHosts . catMaybes . map parse . lines -- cgit v1.2.3