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