As this will be necessary for checking whether to create the ganeti_pub_keys file.
Signed-off-by: Hrvoje Ribicic <[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 e2d770a..aff1c44 100644 --- a/src/Ganeti/Query/Server.hs +++ b/src/Ganeti/Query/Server.hs @@ -381,6 +381,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 $ clusterProperty clusterModifySshSetup) ] :: [(String, IO JSValue)] let answer = map (fromMaybe (return JSNull) . flip lookup params) fields answerEval <- sequence answer -- 2.1.4
