Add support for job queries in hconfd

[ganeti-local] / htools / Ganeti / Query / Server.hs

diff --git a/htools/Ganeti/Query/Server.hs b/htools/Ganeti/Query/Server.hs
index 7a751a6..db0af61 100644 (file)
--- a/htools/Ganeti/Query/Server.hs
+++ b/htools/Ganeti/Query/Server.hs
@@ -163,6 +163,10 @@ handleCall cfg (QueryGroups names fields lock) =
   handleClassicQuery cfg (Qlang.ItemTypeOpCode Qlang.QRGroup)
     (map Left names) fields lock
 
+handleCall cfg (QueryJobs names fields) =
+  handleClassicQuery cfg (Qlang.ItemTypeLuxi Qlang.QRJob)
+    (map (Right . fromIntegral . fromJobId) names)  fields False
+
 handleCall _ op =
   return . Bad $
     GenericError ("Luxi call '" ++ strOfOp op ++ "' not implemented")