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 <>
Reviewed-by: default avatarHelga Velroyen <>
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
$ genericResult (const Nothing)
(\family -> Just $ Socket.defaultHints { Socket.addrFamily = family })
-- | 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