Revision e10c4a69

b/src/Ganeti/Query/Server.hs
158 158 
handleCall cfg (QueryTags kind name) = do
159 159 
  let tags = case kind of
160 160 
               TagKindCluster  -> Ok . clusterTags $ configCluster cfg
161 
               TagKindGroup    -> groupTags <$> Config.getGroup    cfg name
162 
               TagKindNode     -> nodeTags  <$> Config.getNode     cfg name
163 
               TagKindInstance -> instTags  <$> Config.getInstance cfg name
164 
               TagKindNetwork  -> Bad $ OpPrereqError
165 
                                        "Network tag is not allowed"
166 
                                        ECodeInval
161 
               TagKindGroup    -> groupTags   <$> Config.getGroup    cfg name
162 
               TagKindNode     -> nodeTags    <$> Config.getNode     cfg name
163 
               TagKindInstance -> instTags    <$> Config.getInstance cfg name
164 
               TagKindNetwork  -> networkTags <$> Config.getNetwork  cfg name
167 165 
  return (J.showJSON <$> tags)
168 166 

  		





  169
  167
  
    
handleCall cfg (Query qkind qfields qfilter) = do


  		












Also available in:
  Unified diff