Revision b3c5e8de htools/Ganeti/HTools/Luxi.hs
| b/htools/Ganeti/HTools/Luxi.hs | ||
|---|---|---|
| 77 | 77 |
queryInstancesMsg = |
| 78 | 78 |
L.QueryInstances [] ["name", "disk_usage", "be/memory", "be/vcpus", |
| 79 | 79 |
"status", "pnode", "snodes", "tags", "oper_ram", |
| 80 |
"be/auto_balance"] False |
|
| 80 |
"be/auto_balance", "disk_template"] False
|
|
| 81 | 81 |
|
| 82 | 82 |
-- | The input data for cluster query. |
| 83 | 83 |
queryClusterInfoMsg :: L.LuxiOp |
| ... | ... | |
| 115 | 115 |
-> Result (String, Instance.Instance) |
| 116 | 116 |
parseInstance ktn (JSArray [ name, disk, mem, vcpus |
| 117 | 117 |
, status, pnode, snodes, tags, oram |
| 118 |
, auto_balance ]) = do |
|
| 118 |
, auto_balance, disk_template ]) = do
|
|
| 119 | 119 |
xname <- annotateResult "Parsing new instance" (fromJVal name) |
| 120 | 120 |
let convert a = genericConvert "Instance" xname a |
| 121 | 121 |
xdisk <- convert "disk_usage" disk |
| ... | ... | |
| 130 | 130 |
xrunning <- convert "status" status |
| 131 | 131 |
xtags <- convert "tags" tags |
| 132 | 132 |
xauto_balance <- convert "auto_balance" auto_balance |
| 133 |
xdt <- convert "disk_template" disk_template |
|
| 133 | 134 |
let inst = Instance.create xname xmem xdisk xvcpus |
| 134 |
xrunning xtags xauto_balance xpnode snode DTDrbd8
|
|
| 135 |
xrunning xtags xauto_balance xpnode snode xdt
|
|
| 135 | 136 |
return (xname, inst) |
| 136 | 137 |
|
| 137 | 138 |
parseInstance _ v = fail ("Invalid instance query result: " ++ show v)
|
Also available in: Unified diff