Revision d25643d1 htools/Ganeti/HTools/Rapi.hs

b/htools/Ganeti/HTools/Rapi.hs
120 120
  tags <- extract "tags" a
121 121
  auto_balance <- extract "auto_balance" beparams
122 122
  let inst = Instance.create name mem disk vcpus running tags
123
             auto_balance pnode snode
123
             auto_balance pnode snode DTDrbd8
124 124
  return (name, inst)
125 125

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

Also available in: Unified diff