Revision 1264bd58

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