Revision 981bb5cf htools/Ganeti/HTools/Rapi.hs

b/htools/Ganeti/HTools/Rapi.hs
124 124 
  auto_balance <- extract "auto_balance" beparams
125 125 
  dt <- extract "disk_template" a
126 126 
  let inst = Instance.create name mem disk vcpus running tags
127 
             auto_balance pnode snode dt
127 
             auto_balance pnode snode dt 1
128 128 
  return (name, inst)
129 129 

  		





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


  		












Also available in:
  Unified diff