This enables the config to be queried for the configuration parameter 'modify ssh setup'. This will later be used in gnt-node add.
Signed-off-by: Helga Velroyen <[email protected]> --- src/Ganeti/Query/Server.hs | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/Ganeti/Query/Server.hs b/src/Ganeti/Query/Server.hs index c153740..d020e44 100644 --- a/src/Ganeti/Query/Server.hs +++ b/src/Ganeti/Query/Server.hs @@ -379,6 +379,8 @@ handleCall _ _ cfg (QueryConfigValues fields) = do , ("master_node", return . genericResult (const JSNull) showJSON $ QCluster.clusterMasterNodeName cfg) , ("drain_flag", liftM (showJSON . not) isQueueOpen) + , ("modify_ssh_setup", return . showJSON . clusterModifySshSetup + . configCluster $ cfg) ] :: [(String, IO JSValue)] let answer = map (fromMaybe (return JSNull) . flip lookup params) fields answerEval <- sequence answer -- 2.6.0.rc2.230.g3dd15c0
