Revision 3603605a htools/Ganeti/HTools/Node.hs

b/htools/Ganeti/HTools/Node.hs
328 328 
removeSec :: Node -> Instance.Instance -> Node
329 329 
removeSec t inst =
330 330 
  let iname = Instance.idx inst
331 
      uses_disk = Instance.usesLocalStorage inst
332 331 
      cur_dsk = fDsk t
333 332 
      pnode = Instance.pNode inst
334 333 
      new_slist = delete iname (sList t)
335 
      new_dsk = if uses_disk
334 
      new_dsk = if Instance.usesLocalStorage inst
336 335 
                  then cur_dsk + Instance.dsk inst
337 336 
                  else cur_dsk
338 337 
      old_peers = peers t

Also available in: Unified diff