Revision 670e954a src/Ganeti/Ssconf.hs
b/src/Ganeti/Ssconf.hs | ||
---|---|---|
31 | 31 |
, sSKeyFromRaw |
32 | 32 |
, getPrimaryIPFamily |
33 | 33 |
, getMasterCandidatesIps |
34 |
, getMasterNode |
|
34 | 35 |
, keyToFilename |
35 | 36 |
, sSFilePrefix |
36 | 37 |
) where |
... | ... | |
134 | 135 |
getMasterCandidatesIps optPath = do |
135 | 136 |
result <- readSSConfFile optPath Nothing SSMasterCandidatesIps |
136 | 137 |
return $ liftM lines result |
138 |
|
|
139 |
-- | Read the name of the master node. |
|
140 |
getMasterNode :: Maybe FilePath -> IO (Result String) |
|
141 |
getMasterNode optPath = do |
|
142 |
result <- readSSConfFile optPath Nothing SSMasterNode |
|
143 |
return (liftM rStripSpace result) |
Also available in: Unified diff