diff --git a/src/Ganeti/Query/Server.hs b/src/Ganeti/Query/Server.hs index 20ccc4cf4b8ed9443d66ce80fba28800aa7b017d..ffc7ec521bb7304268e0bb9c42ebcd1f8a08b9ee 100644 --- a/src/Ganeti/Query/Server.hs +++ b/src/Ganeti/Query/Server.hs @@ -158,12 +158,10 @@ handleCall cdata QueryClusterInfo = handleCall cfg (QueryTags kind name) = do let tags = case kind of TagKindCluster -> Ok . clusterTags $ configCluster cfg - TagKindGroup -> groupTags <$> Config.getGroup cfg name - TagKindNode -> nodeTags <$> Config.getNode cfg name - TagKindInstance -> instTags <$> Config.getInstance cfg name - TagKindNetwork -> Bad $ OpPrereqError - "Network tag is not allowed" - ECodeInval + TagKindGroup -> groupTags <$> Config.getGroup cfg name + TagKindNode -> nodeTags <$> Config.getNode cfg name + TagKindInstance -> instTags <$> Config.getInstance cfg name + TagKindNetwork -> networkTags <$> Config.getNetwork cfg name return (J.showJSON <$> tags) handleCall cfg (Query qkind qfields qfilter) = do