Revision d8e9131b htools/Ganeti/Ssconf.hs

b/htools/Ganeti/Ssconf.hs
30 30
  , sSKeyToRaw
31 31
  , sSKeyFromRaw
32 32
  , getPrimaryIPFamily
33
  , getMasterCandidatesIps
33 34
  , keyToFilename
34 35
  , sSFilePrefix
35 36
  ) where
......
127 128
  result <- readSSConfFile optpath (Just (show C.ip4Family)) SSPrimaryIpFamily
128 129
  return (liftM rStripSpace result >>=
129 130
          tryRead "Parsing af_family" >>= parseIPFamily)
131

  
132
-- | Read the list of IP addresses of the master candidates of the cluster.
133
getMasterCandidatesIps :: Maybe FilePath -> IO (Result [String])
134
getMasterCandidatesIps optPath = do
135
  result <- readSSConfFile optPath Nothing SSMasterCandidatesIps
136
  return $ liftM lines result

Also available in: Unified diff