Synnefo » snf-ganeti

maxCpu :: Int

maxCpu = 1024

-- | All disk templates (used later)

allDiskTemplates :: [Types.DiskTemplate]

allDiskTemplates = [minBound..maxBound]

                                       , Types.iSpecNicCount   = 1

                                       }

  , Types.iPolicyDiskTemplates = [Types.DTDrbd8, Types.DTPlain]

  }

    imax <- genBiggerISpec istd

    num_tmpl <- choose (0, length allDiskTemplates)

    dts  <- genUniquesList num_tmpl

    return Types.IPolicy { Types.iPolicyMinSpec = imin

                         , Types.iPolicyStdSpec = istd

                         , Types.iPolicyMaxSpec = imax

                         , Types.iPolicyDiskTemplates = dts

                         , Types.iPolicyVcpuRatio = vcpu_ratio

                         }

-- * Actual tests

-- | Generate policy data from a given policy object.

serializeIPolicy :: String -> IPolicy -> String

serializeIPolicy owner ipol =

      strings = [ owner

                , serializeISpec stdspec

                , serializeISpec minspec

                , serializeISpec maxspec

                , serializeDiskTemplates dts

                , show vcpu_ratio

                ]

  in intercalate "|" strings

-- | Loads an ipolicy from a field list.

loadIPolicy :: [String] -> Result (String, IPolicy)

  xstdspec <- loadISpec (owner ++ "/stdspec") (commaSplit stdspec)

  xminspec <- loadISpec (owner ++ "/minspec") (commaSplit minspec)

  xmaxspec <- loadISpec (owner ++ "/maxspec") (commaSplit maxspec)

  xdts <- mapM diskTemplateFromRaw $ commaSplit dtemplates

  xvcpu_ratio <- tryRead (owner ++ "/vcpu_ratio") vcpu_ratio

loadIPolicy s = fail $ "Invalid ipolicy data: '" ++ show s ++ "'"

loadOnePolicy :: (IPolicy, Group.List) -> String

      THH.simpleField C.ipolicyDts [t| [DiskTemplate] |]

  , THH.renameField "VcpuRatio" $

      THH.simpleField C.ipolicyVcpuRatio [t| Double |]

  ])

-- | Converts an ISpec type to a RSpec one.

                     -- htools, we are mostly looking at DRBD

                     , iPolicyDiskTemplates = [DTDrbd8, DTPlain]

                     , iPolicyVcpuRatio = C.ipolicyDefaultsVcpuRatio

                     }

-- | The dynamic resource specs of a machine (i.e. load or load