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