Revision 0349f9c6

b/src/Ganeti/Query/Server.hs
221 221
  answerEval <- sequence answer
222 222
  return . Ok . showJSON $ answerEval
223 223

  
224
handleCall _ _ cfg (QueryExports nodes lock) =
225
  handleClassicQuery cfg (Qlang.ItemTypeOpCode Qlang.QRExport)
226
    (map Left nodes) ["node", "export"] lock
227

  
224 228
handleCall qlock qstat cfg (SubmitJobToDrainedQueue ops) = runResultT $ do
225 229
    let mcs = Config.getMasterCandidates cfg
226 230
    jid <- mkResultT $ allocateJobId mcs qlock

Also available in: Unified diff