Revision 241cea1e src/Ganeti/HTools/Backend/Rapi.hs

b/src/Ganeti/HTools/Backend/Rapi.hs
130 130 
  let owner_name = "Instance '" ++ name ++ "', error while parsing data"
131 131 
  let extract s x = tryFromObj owner_name x s
132 132 
  disk <- extract "disk_usage" a
133 
  disks <- extract "disk.sizes" a
133 134 
  beparams <- liftM fromJSObject (extract "beparams" a)
134 135 
  omem <- extract "oper_ram" a
135 136 
  mem <- case omem of
......
146 147 
  auto_balance <- extract "auto_balance" beparams
147 148 
  dt <- extract "disk_template" a
148 149 
  su <- extract "spindle_use" beparams
149 
  let inst = Instance.create name mem disk vcpus running tags
150 
  let inst = Instance.create name mem disk disks vcpus running tags
150 151 
             auto_balance pnode snode dt su
151 152 
  return (name, inst)
152 153 

  		












Also available in:
  Unified diff