Commit b084f551 authored by Klaus Aehlig's avatar Klaus Aehlig
Browse files

Make getFQDN prefer cluster protocol family



In getFQDN, if the primary IP family of the cluster is known,
provide it as a hint.
Signed-off-by: default avatarKlaus Aehlig <aehlig@google.com>
Reviewed-by: default avatarHelga Velroyen <helgav@google.com>
parent baecc91f
......@@ -334,7 +334,12 @@ getFQDNwithHints hints = do
-- | Return the full qualified host name, honoring the vcluster setup.
getFQDN :: IO String
getFQDN = getFQDNwithHints Nothing
getFQDN = do
familyresult <- Ssconf.getPrimaryIPFamily Nothing
getFQDNwithHints
$ genericResult (const Nothing)
(\family -> Just $ Socket.defaultHints { Socket.addrFamily = family })
familyresult
-- | Returns if the current node is the master node.
isMaster :: IO Bool
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment