Revision e10c4a69 src/Ganeti/Query/Server.hs
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