Revision a8633d70

b/src/Ganeti/Query/Server.hs
156 156 
               TagKindGroup    -> groupTags <$> Config.getGroup    cfg name
157 157 
               TagKindNode     -> nodeTags  <$> Config.getNode     cfg name
158 158 
               TagKindInstance -> instTags  <$> Config.getInstance cfg name
159 
               TagKindNetwork  -> Bad $ OpPrereqError
160 
                                        "Network tag is not allowed"
161 
                                        ECodeInval
159 162 
  return (J.showJSON <$> tags)
160 163 

  		





  161
  164
  
    
handleCall cfg (Query qkind qfields qfilter) = do


  		












  

    
      b/src/Ganeti/Types.hs
    
  






  275
  275
  
    
  , ("TagKindNode",     "node")


  		





  276
  276
  
    
  , ("TagKindGroup",    "nodegroup")


  		





  277
  277
  
    
  , ("TagKindCluster",  "cluster")


  		





  
  278
  
    
  , ("TagKindNetwork",  "network")


  		





  278
  279
  
    
  ])


  		





  279
  280
  
    
$(THH.makeJSONInstance ''TagKind)


  		





  280
  281
  
    

  		












Also available in:
  Unified diff