LGTM Thanks,
Guido On Mon, Dec 23, 2013 at 6:25 PM, Klaus Aehlig <[email protected]> wrote: > The drain flag is set, if the queue is not open. > > Signed-off-by: Klaus Aehlig <[email protected]> > --- > src/Ganeti/Query/Server.hs | 2 +- > 1 file changed, 1 insertion(+), 1 deletion(-) > > diff --git a/src/Ganeti/Query/Server.hs b/src/Ganeti/Query/Server.hs > index add8f6f..db363a8 100644 > --- a/src/Ganeti/Query/Server.hs > +++ b/src/Ganeti/Query/Server.hs > @@ -211,7 +211,7 @@ handleCall _ _ cfg (QueryConfigValues fields) = do > QCluster.isWatcherPaused) > , ("master_node", return . genericResult (const JSNull) > showJSON > $ QCluster.clusterMasterNodeName cfg) > - , ("drain_flag", liftM showJSON isQueueOpen) > + , ("drain_flag", liftM (showJSON . not) isQueueOpen) > ] :: [(String, IO JSValue)] > let answer = map (fromMaybe (return JSNull) . flip lookup params) fields > answerEval <- sequence answer > -- > 1.8.5.1 > -- Guido Trotter Ganeti Engineering Google Germany GmbH Dienerstr. 12, 80331, München Registergericht und -nummer: Hamburg, HRB 86891 Sitz der Gesellschaft: Hamburg Geschäftsführer: Graham Law, Christine Elizabeth Flores Steuernummer: 48/725/00206 Umsatzsteueridentifikationsnummer: DE813741370
