Revision a1f35d0a

b/src/Ganeti/Config.hs
35 35
    , getDefaultHypervisor
36 36
    , getInstancesIpByLink
37 37
    , getMasterCandidates
38
    , getOnlineNodes
38 39
    , getNode
39 40
    , getInstance
40 41
    , getGroup
......
56 57
    ) where
57 58

  
58 59
import Control.Monad (liftM)
60
import qualified Data.Foldable as F
59 61
import Data.List (foldl', nub)
60 62
import qualified Data.Map as M
61 63
import qualified Data.Set as S
......
143 145
-- | Get the list of master candidates.
144 146
getMasterCandidates :: ConfigData -> [Node]
145 147
getMasterCandidates cfg = 
146
  filter ((==) NRCandidate . getNodeRole cfg)
147
    (map snd . M.toList . fromContainer . configNodes $ cfg)
148
  filter ((==) NRCandidate . getNodeRole cfg) . F.toList . configNodes $ cfg
149

  
150
-- | Get the list of online nodes.
151
getOnlineNodes :: ConfigData -> [Node]
152
getOnlineNodes = filter (not . nodeOffline) . F.toList . configNodes
148 153

  
149 154
-- | Returns the default cluster link.
150 155
getDefaultNicLink :: ConfigData -> String

Also available in: Unified diff