Revision f5a67757 src/Ganeti/Config.hs

b/src/Ganeti/Config.hs
33 33 
    , getDefaultNicLink
34 34 
    , getDefaultHypervisor
35 35 
    , getInstancesIpByLink
36 
    , getMasterCandidates
36 37 
    , getNode
37 38 
    , getInstance
38 39 
    , getGroup
......
129 130 
  | nodeOffline node = NROffline
130 131 
  | otherwise = NRRegular
131 132 

  		





  
  133
  
    
-- | Get the list of master candidates.


  		





  
  134
  
    
getMasterCandidates :: ConfigData -> [Node]


  		





  
  135
  
    
getMasterCandidates cfg = 


  		





  
  136
  
    
  filter ((==) NRCandidate . getNodeRole cfg)


  		





  
  137
  
    
    (map snd . M.toList . fromContainer . configNodes $ cfg)


  		





  
  138
  
    

  		





  132
  139
  
    
-- | Returns the default cluster link.


  		





  133
  140
  
    
getDefaultNicLink :: ConfigData -> String


  		





  134
  141
  
    
getDefaultNicLink =


  		












Also available in:
  Unified diff