Revision d254d6ce

b/htools/Ganeti/HTools/Instance.hs
42 42
    , shrinkByType
43 43
    , runningStates
44 44
    , requiredNodes
45
    , allNodes
45 46
    ) where
46 47

  
47 48
import qualified Ganeti.HTools.Types as T
......
189 190
requiredNodes :: T.DiskTemplate -> Int
190 191
requiredNodes T.DTDrbd8 = 2
191 192
requiredNodes _         = 1
193

  
194
-- | Computes all nodes of an instance.
195
allNodes :: Instance -> [T.Ndx]
196
allNodes inst = case diskTemplate inst of
197
                  T.DTDrbd8 -> [pNode inst, sNode inst]
198
                  _ -> [pNode inst]

Also available in: Unified diff