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

b/htools/Ganeti/HTools/Luxi.hs
163 163 
  xauto_balance <- convert "auto_balance" auto_balance
164 164 
  xdt <- convert "disk_template" disk_template
165 165 
  let inst = Instance.create xname xmem xdisk xvcpus
166 
             xrunning xtags xauto_balance xpnode snode xdt
166 
             xrunning xtags xauto_balance xpnode snode xdt 1
167 167 
  return (xname, inst)
168 168 

  		





  169
  169
  
    
parseInstance _ v = fail ("Invalid instance query result: " ++ show v)


  		












Also available in:
  Unified diff