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