Revision 0349f9c6 src/Ganeti/Query/Server.hs

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