diff options
Diffstat (limited to 'Utility/SRV.hs')
| -rw-r--r-- | Utility/SRV.hs | 11 |
1 files changed, 4 insertions, 7 deletions
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 |