Revision 2724417c src/Ganeti/HTools/Backend/Rapi.hs

b/src/Ganeti/HTools/Backend/Rapi.hs
122 122 
  let owner_name = "Instance '" ++ name ++ "', error while parsing data"
123 123 
  let extract s x = tryFromObj owner_name x s
124 124 
  disk <- extract "disk_usage" a
125 
  disks <- extract "disk.sizes" a
125 
  dsizes <- extract "disk.sizes" a
126 
  dspindles <- tryArrayMaybeFromObj owner_name a "disk.spindles"
126 127 
  beparams <- liftM fromJSObject (extract "beparams" a)
127 128 
  omem <- extract "oper_ram" a
128 129 
  mem <- case omem of
......
139 140 
  auto_balance <- extract "auto_balance" beparams
140 141 
  dt <- extract "disk_template" a
141 142 
  su <- extract "spindle_use" beparams
143 
  let disks = zipWith Instance.Disk dsizes dspindles
142 144 
  let inst = Instance.create name mem disk disks vcpus running tags
143 145 
             auto_balance pnode snode dt su []
144 146 
  return (name, inst)

Also available in: Unified diff