Revision ec629280 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 
  su <- extract "spindle_use" beparams
127 127 
  let inst = Instance.create name mem disk vcpus running tags
128 128 
             auto_balance pnode snode dt su
129 129 
  return (name, inst)

Also available in: Unified diff