Revision bfa9a5d1 src/Ganeti/HTools/Instance.hs

b/src/Ganeti/HTools/Instance.hs
246 246 
                              in if v < T.unitMem
247 247 
                                 then Bad "out of memory"
248 248 
                                 else Ok inst { mem = v }
249 
shrinkByType inst T.FailDisk = let v = dsk inst - T.unitDsk
250 
                               in if v < T.unitDsk
251 
                                  then Bad "out of disk"
252 
                                  else Ok inst { dsk = v }
249 
shrinkByType inst T.FailDisk =
250 
  let newdisks = map (flip (-) T.unitDsk) $ disks inst
251 
      v = dsk inst - (length . disks $ inst) * T.unitDsk
252 
  in if any (< T.unitDsk) newdisks
253 
     then Bad "out of disk"
254 
     else Ok inst { dsk = v, disks = newdisks }
253 255 
shrinkByType inst T.FailCPU = let v = vcpus inst - T.unitCpu
254 256 
                              in if v < T.unitCpu
255 257 
                                 then Bad "out of vcpus"

Also available in: Unified diff