Ganeti.Types

Contents

• Generic types
• Ganeti types
• Node role type
• Disk types
• Instance types
• Storage field type
• Disk access protocol
• Private type and instances

Description

Synopsis

• newtype NonNegative a = NonNegative {
  • fromNonNegative :: a
  }
• mkNonNegative :: (Monad m, Num a, Ord a, Show a) => a -> m (NonNegative a)
• newtype Positive a = Positive {
  • fromPositive :: a
  }
• mkPositive :: (Monad m, Num a, Ord a, Show a) => a -> m (Positive a)
• newtype Negative a = Negative {
  • fromNegative :: a
  }
• mkNegative :: (Monad m, Num a, Ord a, Show a) => a -> m (Negative a)
• newtype NonEmpty a = NonEmpty {
  • fromNonEmpty :: [a]
  }
• mkNonEmpty :: Monad m => [a] -> m (NonEmpty a)
• type NonEmptyString = NonEmpty Char
• type QueryResultCode = Int
• newtype IPv4Address = IPv4Address {
  • fromIPv4Address :: String
  }
• mkIPv4Address :: Monad m => String -> m IPv4Address
• newtype IPv4Network = IPv4Network {
  • fromIPv4Network :: String
  }
• mkIPv4Network :: Monad m => String -> m IPv4Network
• newtype IPv6Address = IPv6Address {
  • fromIPv6Address :: String
  }
• mkIPv6Address :: Monad m => String -> m IPv6Address
• newtype IPv6Network = IPv6Network {
  • fromIPv6Network :: String
  }
• mkIPv6Network :: Monad m => String -> m IPv6Network
• data DiskTemplate
  • = DTDiskless
  • | DTFile
  • | DTSharedFile
  • | DTPlain
  • | DTBlock
  • | DTDrbd8
  • | DTRbd
  • | DTExt
  • | DTGluster
• diskTemplateFromRaw :: forall m. Monad m => String -> m DiskTemplate
• diskTemplateToRaw :: DiskTemplate -> String
• data TagKind
  • = TagKindInstance
  • | TagKindNode
  • | TagKindGroup
  • | TagKindCluster
  • | TagKindNetwork
• tagKindFromRaw :: forall m. Monad m => String -> m TagKind
• tagKindToRaw :: TagKind -> String
• data AllocPolicy
  • = AllocPreferred
  • | AllocLastResort
  • | AllocUnallocable
• allocPolicyFromRaw :: forall m. Monad m => String -> m AllocPolicy
• allocPolicyToRaw :: AllocPolicy -> String
• data InstanceStatus
  • = StatusDown
  • | StatusOffline
  • | ErrorDown
  • | ErrorUp
  • | NodeDown
  • | NodeOffline
  • | Running
  • | UserDown
  • | WrongNode
• instanceStatusFromRaw :: forall m. Monad m => String -> m InstanceStatus
• instanceStatusToRaw :: InstanceStatus -> String
• data MigrationMode
  • = MigrationLive
  • | MigrationNonLive
• migrationModeFromRaw :: forall m. Monad m => String -> m MigrationMode
• migrationModeToRaw :: MigrationMode -> String
• data VerifyOptionalChecks = VerifyNPlusOneMem
• verifyOptionalChecksFromRaw :: forall m. Monad m => String -> m VerifyOptionalChecks
• verifyOptionalChecksToRaw :: VerifyOptionalChecks -> String
• data CVErrorCode
  • = CvECLUSTERCFG
  • | CvECLUSTERCERT
  • | CvECLUSTERCLIENTCERT
  • | CvECLUSTERFILECHECK
  • | CvECLUSTERDANGLINGNODES
  • | CvECLUSTERDANGLINGINST
  • | CvEINSTANCEBADNODE
  • | CvEINSTANCEDOWN
  • | CvEINSTANCELAYOUT
  • | CvEINSTANCEMISSINGDISK
  • | CvEINSTANCEFAULTYDISK
  • | CvEINSTANCEWRONGNODE
  • | CvEINSTANCESPLITGROUPS
  • | CvEINSTANCEPOLICY
  • | CvEINSTANCEUNSUITABLENODE
  • | CvEINSTANCEMISSINGCFGPARAMETER
  • | CvENODEDRBD
  • | CvENODEDRBDVERSION
  • | CvENODEDRBDHELPER
  • | CvENODEFILECHECK
  • | CvENODEHOOKS
  • | CvENODEHV
  • | CvENODELVM
  • | CvENODEN1
  • | CvENODENET
  • | CvENODEOS
  • | CvENODEORPHANINSTANCE
  • | CvENODEORPHANLV
  • | CvENODERPC
  • | CvENODESSH
  • | CvENODEVERSION
  • | CvENODESETUP
  • | CvENODETIME
  • | CvENODEOOBPATH
  • | CvENODEUSERSCRIPTS
  • | CvENODEFILESTORAGEPATHS
  • | CvENODEFILESTORAGEPATHUNUSABLE
  • | CvENODESHAREDFILESTORAGEPATHUNUSABLE
  • | CvENODEGLUSTERSTORAGEPATHUNUSABLE
  • | CvEGROUPDIFFERENTPVSIZE
• cVErrorCodeFromRaw :: forall m. Monad m => String -> m CVErrorCode
• cVErrorCodeToRaw :: CVErrorCode -> String
• data DdmSimple
  • = DdmSimpleAdd
  • | DdmSimpleAttach
  • | DdmSimpleRemove
  • | DdmSimpleDetach
• ddmSimpleFromRaw :: forall m. Monad m => String -> m DdmSimple
• ddmSimpleToRaw :: DdmSimple -> String
• data DdmFull
  • = DdmFullAdd
  • | DdmFullAttach
  • | DdmFullRemove
  • | DdmFullDetach
  • | DdmFullModify
• ddmFullFromRaw :: forall m. Monad m => String -> m DdmFull
• ddmFullToRaw :: DdmFull -> String
• data Hypervisor
  • = Kvm
  • | XenPvm
  • | Chroot
  • | XenHvm
  • | Lxc
  • | Fake
• hypervisorFromRaw :: forall m. Monad m => String -> m Hypervisor
• hypervisorToRaw :: Hypervisor -> String
• data OobCommand
  • = OobHealth
  • | OobPowerCycle
  • | OobPowerOff
  • | OobPowerOn
  • | OobPowerStatus
• oobCommandFromRaw :: forall m. Monad m => String -> m OobCommand
• oobCommandToRaw :: OobCommand -> String
• data OobStatus
  • = OobStatusCritical
  • | OobStatusOk
  • | OobStatusUnknown
  • | OobStatusWarning
• oobStatusFromRaw :: forall m. Monad m => String -> m OobStatus
• oobStatusToRaw :: OobStatus -> String
• data StorageType
  • = StorageFile
  • | StorageSharedFile
  • | StorageGluster
  • | StorageLvmPv
  • | StorageLvmVg
  • | StorageDiskless
  • | StorageBlock
  • | StorageRados
  • | StorageExt
• storageTypeFromRaw :: forall m. Monad m => String -> m StorageType
• storageTypeToRaw :: StorageType -> String
• type StorageKey = String
• type SPExclusiveStorage = Bool
• data StorageUnitRaw = SURaw StorageType StorageKey
• data StorageUnit
  • = SUFile StorageKey
  • | SUSharedFile StorageKey
  • | SUGluster StorageKey
  • | SULvmPv StorageKey SPExclusiveStorage
  • | SULvmVg StorageKey SPExclusiveStorage
  • | SUDiskless StorageKey
  • | SUBlock StorageKey
  • | SURados StorageKey
  • | SUExt StorageKey
• showSUSimple :: StorageType -> StorageKey -> String
• showSULvm :: StorageType -> StorageKey -> SPExclusiveStorage -> String
• diskTemplateToStorageType :: DiskTemplate -> StorageType
• addParamsToStorageUnit :: SPExclusiveStorage -> StorageUnitRaw -> StorageUnit
• data EvacMode
  • = ChangePrimary
  • | ChangeSecondary
  • | ChangeAll
• evacModeFromRaw :: forall m. Monad m => String -> m EvacMode
• evacModeToRaw :: EvacMode -> String
• data FileDriver
  • = FileLoop
  • | FileBlktap
  • | FileBlktap2
• fileDriverFromRaw :: forall m. Monad m => String -> m FileDriver
• fileDriverToRaw :: FileDriver -> String
• data InstCreateMode
  • = InstCreate
  • | InstImport
  • | InstRemoteImport
• instCreateModeFromRaw :: forall m. Monad m => String -> m InstCreateMode
• instCreateModeToRaw :: InstCreateMode -> String
• data RebootType
  • = RebootSoft
  • | RebootHard
  • | RebootFull
• rebootTypeFromRaw :: forall m. Monad m => String -> m RebootType
• rebootTypeToRaw :: RebootType -> String
• data ExportMode
  • = ExportModeLocal
  • | ExportModeRemote
• exportModeFromRaw :: forall m. Monad m => String -> m ExportMode
• exportModeToRaw :: ExportMode -> String
• data IAllocatorTestDir
  • = IAllocatorDirIn
  • | IAllocatorDirOut
• iAllocatorTestDirFromRaw :: forall m. Monad m => String -> m IAllocatorTestDir
• iAllocatorTestDirToRaw :: IAllocatorTestDir -> String
• data IAllocatorMode
  • = IAllocatorAlloc
  • | IAllocatorMultiAlloc
  • | IAllocatorReloc
  • | IAllocatorNodeEvac
  • | IAllocatorChangeGroup
• iAllocatorModeFromRaw :: forall m. Monad m => String -> m IAllocatorMode
• iAllocatorModeToRaw :: IAllocatorMode -> String
• data NICMode
  • = NMBridged
  • | NMRouted
  • | NMOvs
  • | NMPool
• nICModeFromRaw :: forall m. Monad m => String -> m NICMode
• nICModeToRaw :: NICMode -> String
• data JobStatus
  • = JOB_STATUS_QUEUED
  • | JOB_STATUS_WAITING
  • | JOB_STATUS_CANCELING
  • | JOB_STATUS_RUNNING
  • | JOB_STATUS_CANCELED
  • | JOB_STATUS_SUCCESS
  • | JOB_STATUS_ERROR
• jobStatusFromRaw :: forall m. Monad m => String -> m JobStatus
• jobStatusToRaw :: JobStatus -> String
• data FinalizedJobStatus
  • = JobStatusCanceled
  • | JobStatusSuccessful
  • | JobStatusFailed
• finalizedJobStatusFromRaw :: forall m. Monad m => String -> m FinalizedJobStatus
• finalizedJobStatusToRaw :: FinalizedJobStatus -> String
• newtype JobId = JobId {
  • fromJobId :: Int
  }
• makeJobId :: Monad m => Int -> m JobId
• makeJobIdS :: Monad m => String -> m JobId
• parseJobId :: Monad m => JSValue -> m JobId
• type RelativeJobId = Negative Int
• data JobIdDep
  • = JobDepRelative RelativeJobId
  • | JobDepAbsolute JobId
• absoluteJobIdDep :: Monad m => JobIdDep -> JobId -> m JobIdDep
• data JobDependency = JobDependency JobIdDep [FinalizedJobStatus]
• absoluteJobDependency :: Monad m => JobDependency -> JobId -> m JobDependency
• getJobIdFromDependency :: JobDependency -> [JobId]
• data OpSubmitPriority
  • = OpPrioLow
  • | OpPrioNormal
  • | OpPrioHigh
• opSubmitPriorityFromRaw :: forall m. Monad m => Int -> m OpSubmitPriority
• opSubmitPriorityToRaw :: OpSubmitPriority -> Int
• parseSubmitPriority :: Monad m => String -> m OpSubmitPriority
• fmtSubmitPriority :: OpSubmitPriority -> String
• data OpStatus
  • = OP_STATUS_QUEUED
  • | OP_STATUS_WAITING
  • | OP_STATUS_CANCELING
  • | OP_STATUS_RUNNING
  • | OP_STATUS_CANCELED
  • | OP_STATUS_SUCCESS
  • | OP_STATUS_ERROR
• opStatusFromRaw :: forall m. Monad m => String -> m OpStatus
• opStatusToRaw :: OpStatus -> String
• data ELogType
  • = ELogMessage
  • | ELogMessageList
  • | ELogRemoteImport
  • | ELogJqueueTest
  • | ELogDelayTest
• eLogTypeFromRaw :: forall m. Monad m => String -> m ELogType
• eLogTypeToRaw :: ELogType -> String
• type ReasonElem = (String, String, Integer)
• type ReasonTrail = [ReasonElem]
• data VType
  • = VTypeString
  • | VTypeMaybeString
  • | VTypeBool
  • | VTypeSize
  • | VTypeInt
  • | VTypeFloat
• vTypeFromRaw :: forall m. Monad m => String -> m VType
• vTypeToRaw :: VType -> String
• data NodeRole
  • = NROffline
  • | NRDrained
  • | NRRegular
  • | NRCandidate
  • | NRMaster
• nodeRoleFromRaw :: forall m. Monad m => String -> m NodeRole
• nodeRoleToRaw :: NodeRole -> String
• roleDescription :: NodeRole -> String
• data DiskMode
  • = DiskRdOnly
  • | DiskRdWr
• diskModeFromRaw :: forall m. Monad m => String -> m DiskMode
• diskModeToRaw :: DiskMode -> String
• data BlockDriver = BlockDrvManual
• blockDriverFromRaw :: forall m. Monad m => String -> m BlockDriver
• blockDriverToRaw :: BlockDriver -> String
• data AdminState
  • = AdminOffline
  • | AdminDown
  • | AdminUp
• adminStateFromRaw :: forall m. Monad m => String -> m AdminState
• adminStateToRaw :: AdminState -> String
• data AdminStateSource
  • = AdminSource
  • | UserSource
• adminStateSourceFromRaw :: forall m. Monad m => String -> m AdminStateSource
• adminStateSourceToRaw :: AdminStateSource -> String
• data StorageField
  • = SFUsed
  • | SFName
  • | SFAllocatable
  • | SFFree
  • | SFSize
• storageFieldFromRaw :: forall m. Monad m => String -> m StorageField
• storageFieldToRaw :: StorageField -> String
• data DiskAccessMode
  • = DiskUserspace
  • | DiskKernelspace
• diskAccessModeFromRaw :: forall m. Monad m => String -> m DiskAccessMode
• diskAccessModeToRaw :: DiskAccessMode -> String
• data LocalDiskStatus
  • = DiskStatusOk
  • | DiskStatusSync
  • | DiskStatusUnknown
  • | DiskStatusFaulty
• localDiskStatusFromRaw :: forall m. Monad m => Int -> m LocalDiskStatus
• localDiskStatusToRaw :: LocalDiskStatus -> Int
• _DiskStatusFaulty :: Int
• _DiskStatusUnknown :: Int
• _DiskStatusSync :: Int
• _DiskStatusOk :: Int
• localDiskStatusName :: LocalDiskStatus -> String
• data ReplaceDisksMode
  • = ReplaceOnPrimary
  • | ReplaceOnSecondary
  • | ReplaceNewSecondary
  • | ReplaceAuto
• replaceDisksModeFromRaw :: forall m. Monad m => String -> m ReplaceDisksMode
• replaceDisksModeToRaw :: ReplaceDisksMode -> String
• data RpcTimeout
  • = Urgent
  • | Fast
  • | Normal
  • | Slow
  • | FourHours
  • | OneDay
• rpcTimeoutFromRaw :: forall m. Monad m => Int -> m RpcTimeout
• rpcTimeoutToRaw :: RpcTimeout -> Int
• _OneDay :: Int
• _FourHours :: Int
• _Slow :: Int
• _Normal :: Int
• _Fast :: Int
• _Urgent :: Int
• data HotplugAction
  • = HAAdd
  • | HARemove
  • | HAMod
• hotplugActionFromRaw :: forall m. Monad m => String -> m HotplugAction
• hotplugActionToRaw :: HotplugAction -> String
• data HotplugTarget
  • = HTDisk
  • | HTNic
• hotplugTargetFromRaw :: forall m. Monad m => String -> m HotplugTarget
• hotplugTargetToRaw :: HotplugTarget -> String
• newtype Private a = Private {
  • getPrivate :: a
  }
• showPrivateJSObject :: JSON a => [(String, a)] -> JSObject (Private JSValue)
• type HvParams = Container JSValue
• type OsParams = Container String
• type OsParamsPrivate = Container (Private String)
• class TimeStampObject a where
  • cTimeOf :: a -> ClockTime
  • mTimeOf :: a -> ClockTime
• class UuidObject a where
  • uuidOf :: a -> String
• class ForthcomingObject a where
  • isForthcoming :: a -> Bool
• class SerialNoObject a where
  • serialOf :: a -> Int
• class TagsObject a where
  • tagsOf :: a -> Set String

Generic types

Ganeti types

Node role type

Disk types

Instance types

Storage field type

Disk access protocol

Private type and instances