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 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Ganeti/Query/Server.hs b/src/Ganeti/Query/Server.hs index 0cfa5d0..5ca5a1f 100644 --- a/src/Ganeti/Query/Server.hs +++ b/src/Ganeti/Query/Server.hs @@ -383,8 +383,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) + , ("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
