Revision a10a476a htools/Ganeti/HTools/Instance.hs

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

  
46 47
import qualified Ganeti.HTools.Types as T
......
183 184
specOf :: Instance -> T.RSpec
184 185
specOf Instance { mem = m, dsk = d, vcpus = c } =
185 186
    T.RSpec { T.rspecCpu = c, T.rspecMem = m, T.rspecDsk = d }
187

  
188
-- | Computed the number of nodes for a given disk template
189
requiredNodes :: T.DiskTemplate -> Int
190
requiredNodes T.DTDrbd8 = 2
191
requiredNodes _         = 1

Also available in: Unified diff