Revision 5a4a3b7f

b/htools/Ganeti/HTools/IAlloc.hs
66 66
  mem   <- extract "memory"
67 67
  vcpus <- extract "vcpus"
68 68
  tags  <- extract "tags"
69
  dt    <- extract "disk_template"
69 70
  let running = "running"
70
  return (n, Instance.create n mem disk vcpus running tags True 0 0 DTDrbd8)
71
  return (n, Instance.create n mem disk vcpus running tags True 0 0 dt)
71 72

  
72 73
-- | Parses an instance as found in the cluster instance list.
73 74
parseInstance :: NameAssoc -- ^ The node name-to-index association list
b/htools/Ganeti/HTools/Rapi.hs
119 119
  running <- extract "status" a
120 120
  tags <- extract "tags" a
121 121
  auto_balance <- extract "auto_balance" beparams
122
  dt <- extract "disk_template" a
122 123
  let inst = Instance.create name mem disk vcpus running tags
123
             auto_balance pnode snode DTDrbd8
124
             auto_balance pnode snode dt
124 125
  return (name, inst)
125 126

  
126 127
-- | Construct a node from a JSON object.

Also available in: Unified diff