Revision 2c9336a4 htools/Ganeti/HTools/Simu.hs

b/htools/Ganeti/HTools/Simu.hs
54 54 
parseDesc desc =
55 55 
    case sepSplit ',' desc of
56 56 
      [a, n, d, m, c] -> do
57 
        apol <- apolFromString a `mplus` apolAbbrev a
57 
        apol <- allocPolicyFromString a `mplus` apolAbbrev a
58 58 
        ncount <- tryRead "node count" n
59 59 
        disk <- annotateResult "disk size" (parseUnit d)
60 60 
        mem <- annotateResult "memory size" (parseUnit m)

Also available in: Unified diff