Add function to get master IP parameters from configuration

Add a function to extract the MasterNetworkParameters from
the ConfigData. That will be needed to set up the master IP.
Signed-off-by: Klaus Aehlig <aehlig@google.com>
Reviewed-by: Petr Pudlak <pudlak@google.com>

src/Ganeti/Config.hs

@@ -36,6 +36,7 @@ module Ganeti.Config
     , getInstancesIpByLink
     , getMasterCandidates
     , getMasterOrCandidates
+    , getMasterNetworkParameters
     , getOnlineNodes
     , getNode
     , getInstance
@@ -161,6 +162,18 @@ getMasterOrCandidates cfg =
   let isMC r = (r == NRCandidate) || (r == NRMaster)
   in filter (isMC . getNodeRole cfg) . F.toList . configNodes $ cfg
 
+-- | Get the network parameters for the master IP address.
+getMasterNetworkParameters :: ConfigData -> MasterNetworkParameters
+getMasterNetworkParameters cfg =
+  let cluster = configCluster cfg
+  in MasterNetworkParameters
+      { masterNetworkParametersUuid = clusterMasterNode cluster
+      , masterNetworkParametersIp = clusterMasterIp cluster
+      , masterNetworkParametersNetmask = clusterMasterNetmask cluster
+      , masterNetworkParametersNetdev = clusterMasterNetdev cluster
+      , masterNetworkParametersIpFamily = clusterPrimaryIpFamily cluster
+      }
+
 -- | Get the list of online nodes.
 getOnlineNodes :: ConfigData -> [Node]
 getOnlineNodes = filter (not . nodeOffline) . F.toList . configNodes