Revision d25643d1 htools/Ganeti/HTools/Luxi.hs

b/htools/Ganeti/HTools/Luxi.hs
131 131 
  xtags <- convert "tags" tags
132 132 
  xauto_balance <- convert "auto_balance" auto_balance
133 133 
  let inst = Instance.create xname xmem xdisk xvcpus
134 
             xrunning xtags xauto_balance xpnode snode
134 
             xrunning xtags xauto_balance xpnode snode DTDrbd8
135 135 
  return (xname, inst)
136 136 

  		





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


  		












Also available in:
  Unified diff