Revision b003b8c0 htools/Ganeti/HTools/Rapi.hs

b/htools/Ganeti/HTools/Rapi.hs
123 123
  tags <- extract "tags" a
124 124
  auto_balance <- extract "auto_balance" beparams
125 125
  dt <- extract "disk_template" a
126
  su <- extract "spindle_usage" beparams
126 127
  let inst = Instance.create name mem disk vcpus running tags
127
             auto_balance pnode snode dt 1
128
             auto_balance pnode snode dt su
128 129
  return (name, inst)
129 130

  
130 131
-- | Construct a node from a JSON object.

Also available in: Unified diff