Revision 8a9ee1e9 htools/Ganeti/HTools/Luxi.hs

b/htools/Ganeti/HTools/Luxi.hs
98 98
-- | The input data for node query.
99 99
queryNodesMsg :: L.LuxiOp
100 100
queryNodesMsg =
101
  L.Query L.QRNode ["name", "mtotal", "mnode", "mfree", "dtotal", "dfree",
102
                    "ctotal", "offline", "drained", "vm_capable",
103
                    "ndp/spindle_count", "group.uuid"] Qlang.EmptyFilter
101
  L.Query Qlang.QRNode ["name", "mtotal", "mnode", "mfree", "dtotal", "dfree",
102
                        "ctotal", "offline", "drained", "vm_capable",
103
                        "ndp/spindle_count", "group.uuid"] Qlang.EmptyFilter
104 104

  
105 105
-- | The input data for instance query.
106 106
queryInstancesMsg :: L.LuxiOp
107 107
queryInstancesMsg =
108
  L.Query L.QRInstance ["name", "disk_usage", "be/memory", "be/vcpus",
109
                        "status", "pnode", "snodes", "tags", "oper_ram",
110
                        "be/auto_balance", "disk_template",
111
                        "be/spindle_use"] Qlang.EmptyFilter
108
  L.Query Qlang.QRInstance ["name", "disk_usage", "be/memory", "be/vcpus",
109
                            "status", "pnode", "snodes", "tags", "oper_ram",
110
                            "be/auto_balance", "disk_template",
111
                            "be/spindle_use"] Qlang.EmptyFilter
112 112

  
113 113
-- | The input data for cluster query.
114 114
queryClusterInfoMsg :: L.LuxiOp
......
117 117
-- | The input data for node group query.
118 118
queryGroupsMsg :: L.LuxiOp
119 119
queryGroupsMsg =
120
  L.Query L.QRGroup ["uuid", "name", "alloc_policy", "ipolicy"]
120
  L.Query Qlang.QRGroup ["uuid", "name", "alloc_policy", "ipolicy"]
121 121
   Qlang.EmptyFilter
122 122

  
123 123
-- | Wraper over 'callMethod' doing node query.

Also available in: Unified diff