Revision d8e9131b
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