Revision b20cbf06 htools/Ganeti/HTools/Luxi.hs
| b/htools/Ganeti/HTools/Luxi.hs | ||
|---|---|---|
| 95 | 95 |
queryNodesMsg = |
| 96 | 96 |
L.Query L.QRNode ["name", "mtotal", "mnode", "mfree", "dtotal", "dfree", |
| 97 | 97 |
"ctotal", "offline", "drained", "vm_capable", |
| 98 |
"group.uuid"] Nothing
|
|
| 98 |
"group.uuid"] ()
|
|
| 99 | 99 |
|
| 100 | 100 |
-- | The input data for instance query. |
| 101 | 101 |
queryInstancesMsg :: L.LuxiOp |
| 102 | 102 |
queryInstancesMsg = |
| 103 | 103 |
L.Query L.QRInstance ["name", "disk_usage", "be/memory", "be/vcpus", |
| 104 | 104 |
"status", "pnode", "snodes", "tags", "oper_ram", |
| 105 |
"be/auto_balance", "disk_template"] Nothing
|
|
| 105 |
"be/auto_balance", "disk_template"] ()
|
|
| 106 | 106 |
|
| 107 | 107 |
-- | The input data for cluster query. |
| 108 | 108 |
queryClusterInfoMsg :: L.LuxiOp |
| ... | ... | |
| 111 | 111 |
-- | The input data for node group query. |
| 112 | 112 |
queryGroupsMsg :: L.LuxiOp |
| 113 | 113 |
queryGroupsMsg = |
| 114 |
L.Query L.QRGroup ["uuid", "name", "alloc_policy"] Nothing
|
|
| 114 |
L.Query L.QRGroup ["uuid", "name", "alloc_policy"] ()
|
|
| 115 | 115 |
|
| 116 | 116 |
-- | Wraper over 'callMethod' doing node query. |
| 117 | 117 |
queryNodes :: L.Client -> IO (Result JSValue) |
Also available in: Unified diff