Revision da5f09ef test/hs/Test/Ganeti/HTools/Types.hs

b/test/hs/Test/Ganeti/HTools/Types.hs
110 110 
    dts  <- genUniquesList num_tmpl arbitrary
111 111 
    vcpu_ratio <- choose (1.0, maxVcpuRatio)
112 112 
    spindle_ratio <- choose (1.0, maxSpindleRatio)
113 
    return Types.IPolicy { Types.iPolicyMinSpec = imin
113 
    return Types.IPolicy { Types.iPolicyMinMaxISpecs = Types.MinMaxISpecs
114 
                           { Types.minMaxISpecsMinSpec = imin
115 
                           , Types.minMaxISpecsMaxSpec = imax
116 
                           }
114 117 
                         , Types.iPolicyStdSpec = istd
115 
                         , Types.iPolicyMaxSpec = imax
116 118 
                         , Types.iPolicyDiskTemplates = dts
117 119 
                         , Types.iPolicyVcpuRatio = vcpu_ratio
118 120 
                         , Types.iPolicySpindleRatio = spindle_ratio

Also available in: Unified diff