| Safe Haskell | None |
|---|
Ganeti.Objects.Maintenance
Description
Implementation of the Ganeti configuration for the maintenance daemon.
- data RepairAction
- repairActionFromRaw :: forall m. Monad m => String -> m RepairAction
- repairActionToRaw :: RepairAction -> String
- data RepairStatus
- = RSNoted
- | RSPending
- | RSCanceled
- | RSFailed
- | RSCompleted
- repairStatusFromRaw :: forall m. Monad m => String -> m RepairStatus
- repairStatusToRaw :: RepairStatus -> String
- data Incident = Incident {
- incidentOriginal :: JSValue
- incidentAction :: RepairAction
- incidentJobs :: [JobId]
- incidentNode :: String
- incidentRepairStatus :: RepairStatus
- incidentTag :: String
- incidentUuid :: ByteString
- incidentCtime :: ClockTime
- incidentMtime :: ClockTime
- incidentSerial :: Int
- loadIncident :: JSValue -> Result Incident
- saveIncident :: Incident -> JSValue
- data MaintenanceData = MaintenanceData {
- maintRoundDelay :: Int
- maintJobs :: [JobId]
- maintBalance :: Bool
- maintBalanceThreshold :: Double
- maintEvacuated :: [String]
- maintIncidents :: [Incident]
- maintCtime :: ClockTime
- maintMtime :: ClockTime
- maintSerial :: Int
- loadMaintenanceData :: JSValue -> Result MaintenanceData
- saveMaintenanceData :: MaintenanceData -> JSValue
Documentation
data RepairAction Source
Action to be taken for a certain repair event. Note that the order is important, as we rely on values higher in the derived order to be more intrusive actions.
Constructors
| RANoop | |
| RALiveRepair | |
| RAEvacuate | |
| RAEvacuateFailover |
Instances
| Bounded RepairAction | |
| Enum RepairAction | |
| Eq RepairAction | |
| Ord RepairAction | |
| Show RepairAction | |
| JSON RepairAction | |
| Arbitrary RepairAction |
repairActionFromRaw :: forall m. Monad m => String -> m RepairActionSource
repairActionToRaw :: RepairAction -> StringSource
data RepairStatus Source
Progress made on the particular repair event. Again we rely
on the order in that everything larger than RSPending is finalized
in the sense that no further jobs will be submitted.
Constructors
| RSNoted | |
| RSPending | |
| RSCanceled | |
| RSFailed | |
| RSCompleted |
Instances
| Bounded RepairStatus | |
| Enum RepairStatus | |
| Eq RepairStatus | |
| Ord RepairStatus | |
| Show RepairStatus | |
| JSON RepairStatus | |
| Arbitrary RepairStatus |
repairStatusFromRaw :: forall m. Monad m => String -> m RepairStatusSource
repairStatusToRaw :: RepairStatus -> StringSource
Constructors
| Incident | |
Fields
| |
Instances
| Eq Incident | |
| Show Incident | |
| JSON Incident | |
| ArrayObject Incident | |
| DictObject Incident | |
| SerialNoObject Incident | |
| UuidObject Incident | |
| TimeStampObject Incident | |
| Arbitrary Incident |
loadIncident :: JSValue -> Result IncidentSource
saveIncident :: Incident -> JSValueSource
data MaintenanceData Source
Constructors
| MaintenanceData | |
Fields
| |
loadMaintenanceData :: JSValue -> Result MaintenanceDataSource
saveMaintenanceData :: MaintenanceData -> JSValueSource