Revision 2724417c src/Ganeti/HTools/Backend/Luxi.hs

b/src/Ganeti/HTools/Backend/Luxi.hs
173 173 
  xauto_balance <- convert "auto_balance" auto_balance
174 174 
  xdt <- convert "disk_template" disk_template
175 175 
  xsu <- convert "be/spindle_use" su
176 
  let inst = Instance.create xname xmem xdisk [xdisk] xvcpus
177 
             xrunning xtags xauto_balance xpnode snode xdt xsu []
176 
  let inst = Instance.create xname xmem xdisk [Instance.Disk xdisk Nothing]
177 
             xvcpus xrunning xtags xauto_balance xpnode snode xdt xsu []
178 178 
  return (xname, inst)
179 179 

  		





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


  		












Also available in:
  Unified diff