Revision 67ec18c0 src/Ganeti/HTools/Backend/Luxi.hs

b/src/Ganeti/HTools/Backend/Luxi.hs
194 194 
  xvm_capable <- convert "vm_capable" vm_capable
195 195 
  xspindles <- convert "spindles" spindles
196 196 
  xgdx   <- convert "group.uuid" g_uuid >>= lookupGroup ktg xname
197 
  let live = not xoffline && not xdrained && xvm_capable
197 
  let live = not xoffline && xvm_capable
198 198 
      lvconvert def n d = eitherLive live def $ convert n d
199 199 
  xmtotal <- lvconvert 0.0 "mtotal" mtotal
200 200 
  xmnode <- lvconvert 0 "mnode" mnode
......
203 203 
  xdfree <- lvconvert 0 "dfree" dfree
204 204 
  xctotal <- lvconvert 0.0 "ctotal" ctotal
205 205 
  let node = Node.create xname xmtotal xmnode xmfree xdtotal xdfree
206 
             xctotal (not live) xspindles xgdx
206 
             xctotal (not live || xdrained) xspindles xgdx
207 207 
  return (xname, node)
208 208 

  		





  209
  209
  
    
parseNode _ v = fail ("Invalid node query result: " ++ show v)


  		












Also available in:
  Unified diff