Add modify_ssh_setup to queryable config params
authorHrvoje Ribicic <riba@google.com>
Wed, 18 Nov 2015 14:49:19 +0000 (14:49 +0000)
committerHrvoje Ribicic <riba@google.com>
Fri, 20 Nov 2015 10:14:04 +0000 (11:14 +0100)
As this will be necessary for checking whether to create the
ganeti_pub_keys file.

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

src/Ganeti/Query/Server.hs

index 0cfa5d0..5ca5a1f 100644 (file)
@@ -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