Revision 1264bd58 src/Ganeti/Query/Server.hs

b/src/Ganeti/Query/Server.hs
211 211 
                                     QCluster.isWatcherPaused)
212 212 
               , ("master_node", return . genericResult (const JSNull) showJSON
213 213 
                                   $ QCluster.clusterMasterNodeName cfg)
214 
               , ("drain_flag", liftM showJSON isQueueOpen)
214 
               , ("drain_flag", liftM (showJSON . not) isQueueOpen)
215 215 
               ] :: [(String, IO JSValue)]
216 216 
  let answer = map (fromMaybe (return JSNull) . flip lookup params) fields
217 217 
  answerEval <- sequence answer

Also available in: Unified diff