Add helper function for querying cluster properties
authorHrvoje Ribicic <riba@google.com>
Tue, 13 Oct 2015 21:57:02 +0000 (21:57 +0000)
committerHrvoje Ribicic <riba@google.com>
Fri, 20 Nov 2015 10:14:02 +0000 (11:14 +0100)
As more and more configuration values will have to be made available via
queries, this patch adds a small helper method for these.

Signed-off-by: Hrvoje Ribicic <riba@google.com>
Reviewed-by: Helga Velroyen <helgav@google.com>

src/Ganeti/Query/Server.hs

index 8806183..0cfa5d0 100644 (file)
@@ -376,8 +376,8 @@ handleCall _ _ cfg (QueryNetworks names fields lock) =
     (map Left names) fields lock
 
 handleCall _ _ cfg (QueryConfigValues fields) = do
-  let params = [ ("cluster_name", return . showJSON . clusterClusterName
-                                    . configCluster $ cfg)
+  let clusterProperty fn = showJSON . fn . configCluster $ cfg
+  let params = [ ("cluster_name", return $ clusterProperty clusterClusterName)
                , ("watcher_pause", liftM (maybe JSNull showJSON)
                                      QCluster.isWatcherPaused)
                , ("master_node", return . genericResult (const JSNull) showJSON