Ganeti.Objects

Contents

• Generic definitions
• Network definitions
  • Ipv4 types
  • Ganeti "network" config object.
• NIC definitions
• Disk definitions
• Instance definitions
• IPolicy definitions
• Node definitions
• NodeGroup definitions
• Cluster definitions
• ConfigData definitions

Description

Synopsis

• fillDict :: Ord k => Map k v -> Map k v -> [k] -> Map k v
• type HvParams = Container JSValue
• type OsParams = Container String
• class TimeStampObject a where
  • cTimeOf :: a -> Double
  • mTimeOf :: a -> Double
• class UuidObject a where
  • uuidOf :: a -> String
• class SerialNoObject a where
  • serialOf :: a -> Int
• class TagsObject a where
  • tagsOf :: a -> Set String
• data Ip4Address = Ip4Address Word8 Word8 Word8 Word8
• readIp4Address :: (Applicative m, Monad m) => String -> m Ip4Address
• nextIp4Address :: Ip4Address -> Ip4Address
• data Ip4Network = Ip4Network Ip4Address Word8
• data Network = Network {
  • networkName :: NonEmptyString
  • networkMacPrefix :: Maybe String
  • networkNetwork :: Ip4Network
  • networkNetwork6 :: Maybe String
  • networkGateway :: Maybe Ip4Address
  • networkGateway6 :: Maybe String
  • networkReservations :: Maybe String
  • networkExtReservations :: Maybe String
  • networkUuid :: String
  • networkCtime :: Double
  • networkMtime :: Double
  • networkSerial :: Int
  • networkTags :: TagSet
  }
• loadNetwork :: JSValue -> Result Network
• saveNetwork :: Network -> JSValue
• toDictNetwork :: Network -> [(String, JSValue)]
• data FilledNicParams = FilledNicParams {
  • nicpMode :: NICMode
  • nicpLink :: String
  • nicpVlan :: String
  }
• data PartialNicParams = PartialNicParams {
  • nicpModeP :: Maybe NICMode
  • nicpLinkP :: Maybe String
  • nicpVlanP :: Maybe String
  }
• allNicParamFields :: [String]
• fillNicParams :: FilledNicParams -> PartialNicParams -> FilledNicParams
• loadPartialNicParams :: JSValue -> Result PartialNicParams
• savePartialNicParams :: PartialNicParams -> JSValue
• toDictPartialNicParams :: PartialNicParams -> [(String, JSValue)]
• loadFilledNicParams :: JSValue -> Result FilledNicParams
• saveFilledNicParams :: FilledNicParams -> JSValue
• toDictFilledNicParams :: FilledNicParams -> [(String, JSValue)]
• data PartialNic = PartialNic {
  • nicMac :: String
  • nicIp :: Maybe String
  • nicNicparams :: PartialNicParams
  • nicNetwork :: Maybe String
  • nicName :: Maybe String
  • nicUuid :: String
  }
• loadPartialNic :: JSValue -> Result PartialNic
• savePartialNic :: PartialNic -> JSValue
• toDictPartialNic :: PartialNic -> [(String, JSValue)]
• devType :: String
• data DiskLogicalId
  • = LIDPlain String String
  • | LIDDrbd8 String String Int Int Int String
  • | LIDFile FileDriver String
  • | LIDSharedFile FileDriver String
  • | LIDBlockDev BlockDriver String
  • | LIDRados String String
  • | LIDExt String String
• lidDiskType :: DiskLogicalId -> DiskTemplate
• lidEncodeType :: DiskLogicalId -> [(String, JSValue)]
• encodeDLId :: DiskLogicalId -> JSValue
• encodeFullDLId :: DiskLogicalId -> (JSValue, [(String, JSValue)])
• decodeDLId :: [(String, JSValue)] -> JSValue -> Result DiskLogicalId
• data Disk = Disk {
  • diskLogicalId :: DiskLogicalId
  • diskChildren :: [Disk]
  • diskIvName :: String
  • diskSize :: Int
  • diskMode :: DiskMode
  • diskName :: Maybe String
  • diskSpindles :: Maybe Int
  • diskUuid :: String
  }
• loadDisk :: JSValue -> Result Disk
• saveDisk :: Disk -> JSValue
• toDictDisk :: Disk -> [(String, JSValue)]
• includesLogicalId :: String -> String -> Disk -> Bool
• data FilledBeParams = FilledBeParams {
  • bepMinmem :: Int
  • bepMaxmem :: Int
  • bepVcpus :: Int
  • bepAutoBalance :: Bool
  • bepAlwaysFailover :: Bool
  • bepSpindleUse :: Int
  }
• data PartialBeParams = PartialBeParams {
  • bepMinmemP :: Maybe Int
  • bepMaxmemP :: Maybe Int
  • bepVcpusP :: Maybe Int
  • bepAutoBalanceP :: Maybe Bool
  • bepAlwaysFailoverP :: Maybe Bool
  • bepSpindleUseP :: Maybe Int
  }
• allBeParamFields :: [String]
• fillBeParams :: FilledBeParams -> PartialBeParams -> FilledBeParams
• loadPartialBeParams :: JSValue -> Result PartialBeParams
• savePartialBeParams :: PartialBeParams -> JSValue
• toDictPartialBeParams :: PartialBeParams -> [(String, JSValue)]
• loadFilledBeParams :: JSValue -> Result FilledBeParams
• saveFilledBeParams :: FilledBeParams -> JSValue
• toDictFilledBeParams :: FilledBeParams -> [(String, JSValue)]
• data Instance = Instance {
  • instName :: String
  • instPrimaryNode :: String
  • instOs :: String
  • instHypervisor :: Hypervisor
  • instHvparams :: HvParams
  • instBeparams :: PartialBeParams
  • instOsparams :: OsParams
  • instAdminState :: AdminState
  • instAdminStateSource :: AdminStateSource
  • instNics :: [PartialNic]
  • instDisks :: [Disk]
  • instDiskTemplate :: DiskTemplate
  • instDisksActive :: Bool
  • instNetworkPort :: Maybe Int
  • instCtime :: Double
  • instMtime :: Double
  • instUuid :: String
  • instSerial :: Int
  • instTags :: TagSet
  }
• loadInstance :: JSValue -> Result Instance
• saveInstance :: Instance -> JSValue
• toDictInstance :: Instance -> [(String, JSValue)]
• getDiskSizeRequirements :: Instance -> Int
• data FilledISpecParams = FilledISpecParams {
  • ispecMemorySize :: Int
  • ispecDiskSize :: Int
  • ispecDiskCount :: Int
  • ispecCpuCount :: Int
  • ispecNicCount :: Int
  • ispecSpindleUse :: Int
  }
• data PartialISpecParams = PartialISpecParams {
  • ispecMemorySizeP :: Maybe Int
  • ispecDiskSizeP :: Maybe Int
  • ispecDiskCountP :: Maybe Int
  • ispecCpuCountP :: Maybe Int
  • ispecNicCountP :: Maybe Int
  • ispecSpindleUseP :: Maybe Int
  }
• allISpecParamFields :: [String]
• fillISpecParams :: FilledISpecParams -> PartialISpecParams -> FilledISpecParams
• loadPartialISpecParams :: JSValue -> Result PartialISpecParams
• savePartialISpecParams :: PartialISpecParams -> JSValue
• toDictPartialISpecParams :: PartialISpecParams -> [(String, JSValue)]
• loadFilledISpecParams :: JSValue -> Result FilledISpecParams
• saveFilledISpecParams :: FilledISpecParams -> JSValue
• toDictFilledISpecParams :: FilledISpecParams -> [(String, JSValue)]
• data MinMaxISpecs = MinMaxISpecs {
  • mmisMinSpec :: FilledISpecParams
  • mmisMaxSpec :: FilledISpecParams
  }
• loadMinMaxISpecs :: JSValue -> Result MinMaxISpecs
• saveMinMaxISpecs :: MinMaxISpecs -> JSValue
• toDictMinMaxISpecs :: MinMaxISpecs -> [(String, JSValue)]
• data PartialIPolicy = PartialIPolicy {
  • ipolicyMinMaxISpecsP :: Maybe [MinMaxISpecs]
  • ipolicyStdSpecP :: Maybe PartialISpecParams
  • ipolicySpindleRatioP :: Maybe Double
  • ipolicyVcpuRatioP :: Maybe Double
  • ipolicyDiskTemplatesP :: Maybe [DiskTemplate]
  }
• loadPartialIPolicy :: JSValue -> Result PartialIPolicy
• savePartialIPolicy :: PartialIPolicy -> JSValue
• toDictPartialIPolicy :: PartialIPolicy -> [(String, JSValue)]
• data FilledIPolicy = FilledIPolicy {
  • ipolicyMinMaxISpecs :: [MinMaxISpecs]
  • ipolicyStdSpec :: FilledISpecParams
  • ipolicySpindleRatio :: Double
  • ipolicyVcpuRatio :: Double
  • ipolicyDiskTemplates :: [DiskTemplate]
  }
• loadFilledIPolicy :: JSValue -> Result FilledIPolicy
• saveFilledIPolicy :: FilledIPolicy -> JSValue
• toDictFilledIPolicy :: FilledIPolicy -> [(String, JSValue)]
• fillIPolicy :: FilledIPolicy -> PartialIPolicy -> FilledIPolicy
• data FilledNDParams = FilledNDParams {
  • ndpOobProgram :: String
  • ndpSpindleCount :: Int
  • ndpExclusiveStorage :: Bool
  • ndpOvs :: Bool
  • ndpOvsName :: String
  • ndpOvsLink :: String
  • ndpSshPort :: Int
  }
• data PartialNDParams = PartialNDParams {
  • ndpOobProgramP :: Maybe String
  • ndpSpindleCountP :: Maybe Int
  • ndpExclusiveStorageP :: Maybe Bool
  • ndpOvsP :: Maybe Bool
  • ndpOvsNameP :: Maybe String
  • ndpOvsLinkP :: Maybe String
  • ndpSshPortP :: Maybe Int
  }
• allNDParamFields :: [String]
• fillNDParams :: FilledNDParams -> PartialNDParams -> FilledNDParams
• loadPartialNDParams :: JSValue -> Result PartialNDParams
• savePartialNDParams :: PartialNDParams -> JSValue
• toDictPartialNDParams :: PartialNDParams -> [(String, JSValue)]
• loadFilledNDParams :: JSValue -> Result FilledNDParams
• saveFilledNDParams :: FilledNDParams -> JSValue
• toDictFilledNDParams :: FilledNDParams -> [(String, JSValue)]
• data Node = Node {
  • nodeName :: String
  • nodePrimaryIp :: String
  • nodeSecondaryIp :: String
  • nodeMasterCandidate :: Bool
  • nodeOffline :: Bool
  • nodeDrained :: Bool
  • nodeGroup :: String
  • nodeMasterCapable :: Bool
  • nodeVmCapable :: Bool
  • nodeNdparams :: PartialNDParams
  • nodePowered :: Bool
  • nodeCtime :: Double
  • nodeMtime :: Double
  • nodeUuid :: String
  • nodeSerial :: Int
  • nodeTags :: TagSet
  }
• loadNode :: JSValue -> Result Node
• saveNode :: Node -> JSValue
• toDictNode :: Node -> [(String, JSValue)]
• type DiskParams = Container (Container JSValue)
• type Networks = Container PartialNicParams
• data NodeGroup = NodeGroup {
  • groupName :: String
  • groupMembers :: [String]
  • groupNdparams :: PartialNDParams
  • groupAllocPolicy :: AllocPolicy
  • groupIpolicy :: PartialIPolicy
  • groupDiskparams :: DiskParams
  • groupNetworks :: Networks
  • groupCtime :: Double
  • groupMtime :: Double
  • groupUuid :: String
  • groupSerial :: Int
  • groupTags :: TagSet
  }
• loadNodeGroup :: JSValue -> Result NodeGroup
• saveNodeGroup :: NodeGroup -> JSValue
• toDictNodeGroup :: NodeGroup -> [(String, JSValue)]
• data IpFamily
  • = IpFamilyV4
  • | IpFamilyV6
• ipFamilyFromRaw :: forall m. Monad m => Int -> m IpFamily
• ipFamilyToRaw :: IpFamily -> Int
• ipFamilyToVersion :: IpFamily -> Int
• type ClusterHvParams = Container HvParams
• type OsHvParams = Container ClusterHvParams
• type ClusterBeParams = Container FilledBeParams
• type ClusterOsParams = Container OsParams
• type ClusterNicParams = Container FilledNicParams
• type UidPool = [(Int, Int)]
• type IAllocatorParams = Container JSValue
• type CandidateCertificates = Container String
• data Cluster = Cluster {
  • clusterRsahostkeypub :: String
  • clusterDsahostkeypub :: Maybe String
  • clusterHighestUsedPort :: Int
  • clusterTcpudpPortPool :: [Int]
  • clusterMacPrefix :: String
  • clusterVolumeGroupName :: Maybe String
  • clusterReservedLvs :: [String]
  • clusterDrbdUsermodeHelper :: Maybe String
  • clusterMasterNode :: String
  • clusterMasterIp :: String
  • clusterMasterNetdev :: String
  • clusterMasterNetmask :: Int
  • clusterUseExternalMipScript :: Bool
  • clusterClusterName :: String
  • clusterFileStorageDir :: String
  • clusterSharedFileStorageDir :: String
  • clusterGlusterStorageDir :: String
  • clusterEnabledHypervisors :: [Hypervisor]
  • clusterHvparams :: ClusterHvParams
  • clusterOsHvp :: OsHvParams
  • clusterBeparams :: ClusterBeParams
  • clusterOsparams :: ClusterOsParams
  • clusterNicparams :: ClusterNicParams
  • clusterNdparams :: FilledNDParams
  • clusterDiskparams :: DiskParams
  • clusterCandidatePoolSize :: Int
  • clusterModifyEtcHosts :: Bool
  • clusterModifySshSetup :: Bool
  • clusterMaintainNodeHealth :: Bool
  • clusterUidPool :: UidPool
  • clusterDefaultIallocator :: String
  • clusterDefaultIallocatorParams :: IAllocatorParams
  • clusterHiddenOs :: [String]
  • clusterBlacklistedOs :: [String]
  • clusterPrimaryIpFamily :: IpFamily
  • clusterPreallocWipeDisks :: Bool
  • clusterIpolicy :: FilledIPolicy
  • clusterEnabledDiskTemplates :: [DiskTemplate]
  • clusterCandidateCerts :: CandidateCertificates
  • clusterMaxRunningJobs :: Int
  • clusterEnabledUserShutdown :: Bool
  • clusterCtime :: Double
  • clusterMtime :: Double
  • clusterUuid :: String
  • clusterSerial :: Int
  • clusterTags :: TagSet
  }
• loadCluster :: JSValue -> Result Cluster
• saveCluster :: Cluster -> JSValue
• toDictCluster :: Cluster -> [(String, JSValue)]
• data ConfigData = ConfigData {
  • configVersion :: Int
  • configCluster :: Cluster
  • configNodes :: Container Node
  • configNodegroups :: Container NodeGroup
  • configInstances :: Container Instance
  • configNetworks :: Container Network
  • configSerial :: Int
  }
• loadConfigData :: JSValue -> Result ConfigData
• saveConfigData :: ConfigData -> JSValue
• toDictConfigData :: ConfigData -> [(String, JSValue)]

Generic definitions

Network definitions

Ipv4 types

Ganeti "network" config object.

NIC definitions

Disk definitions

Instance definitions

IPolicy definitions

Node definitions

NodeGroup definitions

Cluster definitions

ConfigData definitions