Revision a8633d70 src/Ganeti/Query/Server.hs

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


  		












Also available in:
  Unified diff