Allow confd to serve network list-fields queries

The fields are not yet complete, but at least we can enable the
list-field query to see what is there already.

Signed-off-by: Iustin Pop <iustin@google.com>
Reviewed-by: Guido Trotter <ultrotter@google.com>

diff --git a/src/Ganeti/Query/Query.hs b/src/Ganeti/Query/Query.hs
index d6836b4..a6a5231 100644 (file)
--- a/src/Ganeti/Query/Query.hs
+++ b/src/Ganeti/Query/Query.hs
@@ -313,6 +313,9 @@ queryFields (QueryFields (ItemTypeOpCode QRNode) fields) =
 queryFields (QueryFields (ItemTypeOpCode QRGroup) fields) =
   Ok $ fieldsExtractor Group.fieldsMap fields
 
+queryFields (QueryFields (ItemTypeOpCode QRNetwork) fields) =
+  Ok $ fieldsExtractor Network.fieldsMap fields
+
 queryFields (QueryFields (ItemTypeLuxi QRJob) fields) =
   Ok $ fieldsExtractor Query.Job.fieldsMap fields