diff --git a/htools/Ganeti/HTools/Rapi.hs b/htools/Ganeti/HTools/Rapi.hs index c2d79cefde2b096a9ece3ee34b9144d6e7f8e1f7..936fc442877af9690dc6e9d22b3e433b7e81c344 100644 --- a/htools/Ganeti/HTools/Rapi.hs +++ b/htools/Ganeti/HTools/Rapi.hs @@ -122,7 +122,9 @@ parseInstance ktn a = do else readEitherString (head snodes) >>= lookupNode ktn name) running <- extract "status" a tags <- extract "tags" a - let inst = Instance.create name mem disk vcpus running tags True pnode snode + auto_balance <- extract "auto_balance" beparams + let inst = Instance.create name mem disk vcpus running tags + auto_balance pnode snode return (name, inst) -- | Construct a node from a JSON object.