Revision ec629280 htools/Ganeti/HTools/Luxi.hs
| b/htools/Ganeti/HTools/Luxi.hs | ||
|---|---|---|
| 107 | 107 |
L.Query L.QRInstance ["name", "disk_usage", "be/memory", "be/vcpus", |
| 108 | 108 |
"status", "pnode", "snodes", "tags", "oper_ram", |
| 109 | 109 |
"be/auto_balance", "disk_template", |
| 110 |
"be/spindle_usage"] ()
|
|
| 110 |
"be/spindle_use"] () |
|
| 111 | 111 |
|
| 112 | 112 |
-- | The input data for cluster query. |
| 113 | 113 |
queryClusterInfoMsg :: L.LuxiOp |
| ... | ... | |
| 163 | 163 |
xtags <- convert "tags" tags |
| 164 | 164 |
xauto_balance <- convert "auto_balance" auto_balance |
| 165 | 165 |
xdt <- convert "disk_template" disk_template |
| 166 |
xsu <- convert "be/spindle_usage" su
|
|
| 166 |
xsu <- convert "be/spindle_use" su |
|
| 167 | 167 |
let inst = Instance.create xname xmem xdisk xvcpus |
| 168 | 168 |
xrunning xtags xauto_balance xpnode snode xdt xsu |
| 169 | 169 |
return (xname, inst) |
Also available in: Unified diff