Revision 1138d32f src/Ganeti/Query/Query.hs

b/src/Ganeti/Query/Query.hs
338 338 
queryFields (QueryFields (ItemTypeOpCode QRExport) fields) =
339 339 
  Ok $ fieldsExtractor Export.fieldsMap fields
340 340 

  		





  
  341
  
    
queryFields (QueryFields (ItemTypeOpCode QRInstance) fields) =


  		





  
  342
  
    
  Ok $ fieldsExtractor Instance.fieldsMap fields


  		





  
  343
  
    

  		





  
  344
  
    

  		





  341
  345
  
    
queryFields (QueryFields qkind _) =


  		





  342
  346
  
    
  Bad . GenericError $ "QueryFields '" ++ show qkind ++ "' not supported"


  		





  343
  347
  
    

  		












Also available in:
  Unified diff