Revision 795d035d src/Ganeti/Query/Server.hs

b/src/Ganeti/Query/Server.hs
173 173 
  handleClassicQuery cfg (Qlang.ItemTypeLuxi Qlang.QRJob)
174 174 
    (map (Right . fromIntegral . fromJobId) names)  fields False
175 175 

  		





  
  176
  
    
handleCall cfg (QueryNetworks names fields lock) =


  		





  
  177
  
    
  handleClassicQuery cfg (Qlang.ItemTypeOpCode Qlang.QRNetwork)


  		





  
  178
  
    
    (map Left names) fields lock


  		





  
  179
  
    

  		





  176
  180
  
    
handleCall _ op =


  		





  177
  181
  
    
  return . Bad $


  		





  178
  182
  
    
    GenericError ("Luxi call '" ++ strOfOp op ++ "' not implemented")


  		












Also available in:
  Unified diff