Revision 2724417c src/Ganeti/HTools/Backend/Luxi.hs
b/src/Ganeti/HTools/Backend/Luxi.hs | ||
---|---|---|
173 | 173 |
xauto_balance <- convert "auto_balance" auto_balance |
174 | 174 |
xdt <- convert "disk_template" disk_template |
175 | 175 |
xsu <- convert "be/spindle_use" su |
176 |
let inst = Instance.create xname xmem xdisk [xdisk] xvcpus
|
|
177 |
xrunning xtags xauto_balance xpnode snode xdt xsu [] |
|
176 |
let inst = Instance.create xname xmem xdisk [Instance.Disk xdisk Nothing]
|
|
177 |
xvcpus xrunning xtags xauto_balance xpnode snode xdt xsu []
|
|
178 | 178 |
return (xname, inst) |
179 | 179 |
|
180 | 180 |
parseInstance _ v = fail ("Invalid instance query result: " ++ show v) |
Also available in: Unified diff