Commit b084f551 authored by Klaus Aehlig's avatar Klaus Aehlig

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