Revision e2436511 Ganeti/HTools/Cluster.hs

b/Ganeti/HTools/Cluster.hs
187 187 
-- | Compute the delta between two cluster state.
188 188 
--
189 189 
-- This is used when doing allocations, to understand better the
190 
-- available cluster resources.
190 
-- available cluster resources. The return value is a triple of the
191 
-- current used values, the delta that was still allocated, and what
192 
-- was left unallocated.
191 193 
computeAllocationDelta :: CStats -> CStats -> AllocStats
192 194 
computeAllocationDelta cini cfin =
193 195 
    let CStats {csImem = i_imem, csIdsk = i_idsk, csIcpu = i_icpu} = cini
194 196 
        CStats {csImem = f_imem, csIdsk = f_idsk, csIcpu = f_icpu,
195 197 
                csTmem = t_mem, csTdsk = t_dsk, csVcpu = v_cpu } = cfin
196 198 
        rini = RSpec i_icpu i_imem i_idsk
197 
        rfin = RSpec f_icpu f_imem f_idsk
199 
        rfin = RSpec (f_icpu - i_icpu) (f_imem - i_imem) (f_idsk - i_idsk)
198 200 
        un_cpu = if v_cpu == Node.noLimitInt
199 201 
                 then Node.noLimitInt
200 202 
                 else v_cpu - f_icpu

Also available in: Unified diff