Revision 41044e04 test/hs/Test/Ganeti/TestHTools.hs

b/test/hs/Test/Ganeti/TestHTools.hs
52 52 
-- | Null iPolicy, and by null we mean very liberal.
53 53 
nullIPolicy :: Types.IPolicy
54 54 
nullIPolicy = Types.IPolicy
55 
  { Types.iPolicyMinMaxISpecs = Types.MinMaxISpecs
55 
  { Types.iPolicyMinMaxISpecs = [Types.MinMaxISpecs
56 56 
    { Types.minMaxISpecsMinSpec = Types.ISpec { Types.iSpecMemorySize = 0
57 57 
                                              , Types.iSpecCpuCount   = 0
58 58 
                                              , Types.iSpecDiskSize   = 0
......
68 68 
      , Types.iSpecNicCount   = C.maxNics
69 69 
      , Types.iSpecSpindleUse = maxBound
70 70 
      }
71 
    }
71 
    }]
72 72 
  , Types.iPolicyStdSpec = Types.ISpec { Types.iSpecMemorySize = Types.unitMem
73 73 
                                       , Types.iSpecCpuCount   = Types.unitCpu
74 74 
                                       , Types.iSpecDiskSize   = Types.unitDsk

Also available in: Unified diff