Revision 9d0b521e src/Ganeti/Query/Server.hs
b/src/Ganeti/Query/Server.hs | ||
---|---|---|
150 | 150 |
TagGroup name -> groupTags <$> Config.getGroup cfg name |
151 | 151 |
TagNode name -> nodeTags <$> Config.getNode cfg name |
152 | 152 |
TagInstance name -> instTags <$> Config.getInstance cfg name |
153 |
TagNetwork name -> networkTags <$> Config.getNetwork cfg name |
|
153 | 154 |
in return (J.showJSON <$> tags) |
154 | 155 |
|
155 | 156 |
handleCall cfg (Query qkind qfields qfilter) = do |
Also available in: Unified diff