Revision a7e484c4 htools/Ganeti/Query/Server.hs

b/htools/Ganeti/Query/Server.hs
163 163 
  handleClassicQuery cfg (Qlang.ItemTypeOpCode Qlang.QRGroup)
164 164 
    (map Left names) fields lock
165 165 

  		





  
  166
  
    
handleCall cfg (QueryJobs names fields) =


  		





  
  167
  
    
  handleClassicQuery cfg (Qlang.ItemTypeLuxi Qlang.QRJob)


  		





  
  168
  
    
    (map (Right . fromIntegral . fromJobId) names)  fields False


  		





  
  169
  
    

  		





  166
  170
  
    
handleCall _ op =


  		





  167
  171
  
    
  return . Bad $


  		





  168
  172
  
    
    GenericError ("Luxi call '" ++ strOfOp op ++ "' not implemented")


  		












Also available in:
  Unified diff