Revision 89352544 src/Ganeti/Query/Server.hs

b/src/Ganeti/Query/Server.hs
182 182
  handleClassicQuery cfg (Qlang.ItemTypeOpCode Qlang.QRNode)
183 183
    (map Left names) fields lock
184 184

  
185
handleCall _ cfg (QueryInstances names fields lock) =
186
  handleClassicQuery cfg (Qlang.ItemTypeOpCode Qlang.QRInstance)
187
    (map Left names) fields lock
188

  
185 189
handleCall _ cfg (QueryGroups names fields lock) =
186 190
  handleClassicQuery cfg (Qlang.ItemTypeOpCode Qlang.QRGroup)
187 191
    (map Left names) fields lock

Also available in: Unified diff