Safe Haskell	Safe-Inferred
Language	Haskell2010

Ganeti.Storage.Drbd.Types

Description

DRBD Data Types

This module holds the definition of the data types describing the status of DRBD.

Synopsis

data DRBDStatus = DRBDStatus {
- versionInfo :: VersionInfo
- deviceInfos :: [DeviceInfo]
}
data VersionInfo = VersionInfo {
- version :: Maybe String
- api :: Maybe String
- proto :: Maybe String
- srcversion :: Maybe String
- gitHash :: Maybe String
- buildBy :: Maybe String
}
data DeviceInfo
- = UnconfiguredDevice Int
- | DeviceInfo {
  - minorNumber :: Int
  - connectionState :: ConnState
  - resourceRoles :: LocalRemote Role
  - diskStates :: LocalRemote DiskState
  - replicationProtocol :: Char
  - ioFlags :: String
  - perfIndicators :: PerfIndicators
  - syncStatus :: Maybe SyncStatus
  - resync :: Maybe AdditionalInfo
  - actLog :: Maybe AdditionalInfo
  - instName :: Maybe String
  }
data ConnState
- = StandAlone
- | Disconnecting
- | Unconnected
- | Timeout
- | BrokenPipe
- | NetworkFailure
- | ProtocolError
- | TearDown
- | WFConnection
- | WFReportParams
- | Connected
- | StartingSyncS
- | StartingSyncT
- | WFBitMapS
- | WFBitMapT
- | WFSyncUUID
- | SyncSource
- | SyncTarget
- | PausedSyncS
- | PausedSyncT
- | VerifyS
- | VerifyT
- | Unconfigured
data LocalRemote a = LocalRemote {
- local :: a
- remote :: a
}
data Role
- = Primary
- | Secondary
- | Unknown
data DiskState
- = Diskless
- | Attaching
- | Failed
- | Negotiating
- | Inconsistent
- | Outdated
- | DUnknown
- | Consistent
- | UpToDate
data PerfIndicators = PerfIndicators {
- networkSend :: Int
- networkReceive :: Int
- diskWrite :: Int
- diskRead :: Int
- activityLog :: Int
- bitMap :: Int
- localCount :: Int
- pending :: Int
- unacknowledged :: Int
- applicationPending :: Int
- epochs :: Maybe Int
- writeOrder :: Maybe Char
- outOfSync :: Maybe Int
}
data SyncStatus = SyncStatus {
- percentage :: Double
- partialSyncSize :: Int
- totalSyncSize :: Int
- syncUnit :: SizeUnit
- timeToFinish :: Time
- speed :: Int
- want :: Maybe Int
- speedSizeUnit :: SizeUnit
- speedTimeUnit :: TimeUnit
}
data SizeUnit
- = KiloByte
- | MegaByte
data Time = Time {
- hour :: Int
- min :: Int
- sec :: Int
}
data TimeUnit = Second
data AdditionalInfo = AdditionalInfo {
- partialUsed :: Int
- totalUsed :: Int
- hits :: Int
- misses :: Int
- starving :: Int
- dirty :: Int
- changed :: Int
}
data DrbdInstMinor = DrbdInstMinor {
- dimNode :: String
- dimMinor :: Int
- dimInstName :: String
- dimDiskIdx :: String
- dimRole :: String
- dimPeer :: String
}

Documentation

data DRBDStatus #

Data type contaning all the data about the status of DRBD.

Constructors

DRBDStatus
Fields versionInfo :: VersionInfo Version information about DRBD deviceInfos :: [DeviceInfo] Per-minor information

Instances

Instances details

Show DRBDStatus #
Instance details Defined in Ganeti.Storage.Drbd.Types Methods showsPrec :: Int -> DRBDStatus -> ShowS show :: DRBDStatus -> String showList :: [DRBDStatus] -> ShowS
Eq DRBDStatus #
Instance details Defined in Ganeti.Storage.Drbd.Types Methods (==) :: DRBDStatus -> DRBDStatus -> Bool (/=) :: DRBDStatus -> DRBDStatus -> Bool
JSON DRBDStatus #	The DRBDStatus instance of JSON.
Instance details Defined in Ganeti.Storage.Drbd.Types Methods readJSON :: JSValue -> Result DRBDStatus showJSON :: DRBDStatus -> JSValue readJSONs :: JSValue -> Result [DRBDStatus] showJSONs :: [DRBDStatus] -> JSValue

data VersionInfo #

Data type describing the DRBD version.

Constructors

VersionInfo
Fields version :: Maybe String DRBD driver version api :: Maybe String The api version proto :: Maybe String The protocol version srcversion :: Maybe String The version of the source files gitHash :: Maybe String Git hash of the source files buildBy :: Maybe String Who built the binary (and, optionally, when)

Instances

Instances details

Show VersionInfo #
Instance details Defined in Ganeti.Storage.Drbd.Types Methods showsPrec :: Int -> VersionInfo -> ShowS show :: VersionInfo -> String showList :: [VersionInfo] -> ShowS
Eq VersionInfo #
Instance details Defined in Ganeti.Storage.Drbd.Types Methods (==) :: VersionInfo -> VersionInfo -> Bool (/=) :: VersionInfo -> VersionInfo -> Bool
JSON VersionInfo #	The VersionInfo instance of JSON.
Instance details Defined in Ganeti.Storage.Drbd.Types Methods readJSON :: JSValue -> Result VersionInfo showJSON :: VersionInfo -> JSValue readJSONs :: JSValue -> Result [VersionInfo] showJSONs :: [VersionInfo] -> JSValue

data DeviceInfo #

Data type describing a device.

Constructors

UnconfiguredDevice Int	An DRBD minor marked as unconfigured
DeviceInfo	A configured DRBD minor
Fields minorNumber :: Int The minor index of the device connectionState :: ConnState State of the connection resourceRoles :: LocalRemote Role Roles of the resources diskStates :: LocalRemote DiskState Status of the disks replicationProtocol :: Char The replication protocol being used ioFlags :: String The input/output flags perfIndicators :: PerfIndicators Performance indicators syncStatus :: Maybe SyncStatus The status of the syncronization of the disk (only if it is happening) resync :: Maybe AdditionalInfo Additional info by DRBD 8.0 actLog :: Maybe AdditionalInfo Additional info by DRBD 8.0 instName :: Maybe String The name of the associated instance

Instances

Instances details

Show DeviceInfo #
Instance details Defined in Ganeti.Storage.Drbd.Types Methods showsPrec :: Int -> DeviceInfo -> ShowS show :: DeviceInfo -> String showList :: [DeviceInfo] -> ShowS
Eq DeviceInfo #
Instance details Defined in Ganeti.Storage.Drbd.Types Methods (==) :: DeviceInfo -> DeviceInfo -> Bool (/=) :: DeviceInfo -> DeviceInfo -> Bool
JSON DeviceInfo #	The DeviceInfo instance of JSON.
Instance details Defined in Ganeti.Storage.Drbd.Types Methods readJSON :: JSValue -> Result DeviceInfo showJSON :: DeviceInfo -> JSValue readJSONs :: JSValue -> Result [DeviceInfo] showJSONs :: [DeviceInfo] -> JSValue

data ConnState #

Data type describing the state of the connection.

Constructors

StandAlone	No network configuration available
Disconnecting	Temporary state during disconnection
Unconnected	Prior to a connection attempt
Timeout	Following a timeout in the communication
BrokenPipe	After the connection to the peer was lost
NetworkFailure	After the connection to the partner was lost
ProtocolError	After the connection to the partner was lost
TearDown	The peer is closing the connection
WFConnection	Waiting for the peer to become visible
WFReportParams	Waiting for first packet from peer
Connected	Connected, data mirroring active
StartingSyncS	Source of a full sync started by admin
StartingSyncT	Target of a full sync started by admin
WFBitMapS	Source of a just starting partial sync
WFBitMapT	Target of a just starting partial sync
WFSyncUUID	Synchronization is about to begin
SyncSource	Source of a running synchronization
SyncTarget	Target of a running synchronization
PausedSyncS	Source of a paused synchronization
PausedSyncT	Target of a paused synchronization
VerifyS	Source of a running verification
VerifyT	Target of a running verification
Unconfigured	The device is not configured

Instances

Instances details

Show ConnState #
Instance details Defined in Ganeti.Storage.Drbd.Types Methods showsPrec :: Int -> ConnState -> ShowS show :: ConnState -> String showList :: [ConnState] -> ShowS
Eq ConnState #
Instance details Defined in Ganeti.Storage.Drbd.Types Methods (==) :: ConnState -> ConnState -> Bool (/=) :: ConnState -> ConnState -> Bool
JSON ConnState #	The ConnState instance of JSON.
Instance details Defined in Ganeti.Storage.Drbd.Types Methods readJSON :: JSValue -> Result ConnState showJSON :: ConnState -> JSValue readJSONs :: JSValue -> Result [ConnState] showJSONs :: [ConnState] -> JSValue

data LocalRemote a #

Algebraic data type describing something that has a local and a remote value.

Constructors

LocalRemote
Fields local :: a The local value remote :: a The remote value

Instances

Instances details

Show a => Show (LocalRemote a) #
Instance details Defined in Ganeti.Storage.Drbd.Types Methods showsPrec :: Int -> LocalRemote a -> ShowS show :: LocalRemote a -> String showList :: [LocalRemote a] -> ShowS
Eq a => Eq (LocalRemote a) #
Instance details Defined in Ganeti.Storage.Drbd.Types Methods (==) :: LocalRemote a -> LocalRemote a -> Bool (/=) :: LocalRemote a -> LocalRemote a -> Bool

data Role #

Data type describing.

Constructors

Primary	The device role is primary
Secondary	The device role is secondary
Unknown	The device role is unknown

Instances

Instances details

Show Role #
Instance details Defined in Ganeti.Storage.Drbd.Types Methods showsPrec :: Int -> Role -> ShowS show :: Role -> String showList :: [Role] -> ShowS
Eq Role #
Instance details Defined in Ganeti.Storage.Drbd.Types Methods (==) :: Role -> Role -> Bool (/=) :: Role -> Role -> Bool
JSON Role #	The Role instance of JSON.
Instance details Defined in Ganeti.Storage.Drbd.Types Methods readJSON :: JSValue -> Result Role showJSON :: Role -> JSValue readJSONs :: JSValue -> Result [Role] showJSONs :: [Role] -> JSValue

data DiskState #

Data type describing disk states.

Constructors

Diskless	No local block device assigned to the DRBD driver
Attaching	Reading meta data
Failed	I/O failure
Negotiating	Attach on an already-connected device
Inconsistent	The data is inconsistent between nodes.
Outdated	Data consistent but outdated
DUnknown	No network connection available
Consistent	Consistent data, but without network connection
UpToDate	Consistent, up-to-date. This is the normal state

Instances

Instances details

Show DiskState #
Instance details Defined in Ganeti.Storage.Drbd.Types Methods showsPrec :: Int -> DiskState -> ShowS show :: DiskState -> String showList :: [DiskState] -> ShowS
Eq DiskState #
Instance details Defined in Ganeti.Storage.Drbd.Types Methods (==) :: DiskState -> DiskState -> Bool (/=) :: DiskState -> DiskState -> Bool
JSON DiskState #	The DiskState instance of JSON.
Instance details Defined in Ganeti.Storage.Drbd.Types Methods readJSON :: JSValue -> Result DiskState showJSON :: DiskState -> JSValue readJSONs :: JSValue -> Result [DiskState] showJSONs :: [DiskState] -> JSValue

data PerfIndicators #

Data type containing data about performance indicators.

Constructors

PerfIndicators

Fields

networkSend :: Int
KiB of data sent on the network
networkReceive :: Int
KiB of data received from the network
diskWrite :: Int
KiB of data written on local disk
diskRead :: Int
KiB of data read from local disk
activityLog :: Int
Number of updates of the activity log
bitMap :: Int
Number of updates to the bitmap area of the metadata
localCount :: Int
Number of open requests to the local I/O subsystem
pending :: Int
Num of requests sent to the partner but not yet answered
unacknowledged :: Int
Num of requests received by the partner but still to be answered
applicationPending :: Int
Num of block I/O requests forwarded to DRBD but that have not yet been answered
epochs :: Maybe Int
Number of epoch objects
writeOrder :: Maybe Char
Currently used write ordering method
outOfSync :: Maybe Int
KiB of storage currently out of sync

Instances

Instances details

Show PerfIndicators #
Instance details Defined in Ganeti.Storage.Drbd.Types Methods showsPrec :: Int -> PerfIndicators -> ShowS show :: PerfIndicators -> String showList :: [PerfIndicators] -> ShowS
Eq PerfIndicators #
Instance details Defined in Ganeti.Storage.Drbd.Types Methods (==) :: PerfIndicators -> PerfIndicators -> Bool (/=) :: PerfIndicators -> PerfIndicators -> Bool
JSON PerfIndicators #	The PerfIndicators instance of JSON.
Instance details Defined in Ganeti.Storage.Drbd.Types Methods readJSON :: JSValue -> Result PerfIndicators showJSON :: PerfIndicators -> JSValue readJSONs :: JSValue -> Result [PerfIndicators] showJSONs :: [PerfIndicators] -> JSValue

data SyncStatus #

Data type containing data about the synchronization status of a device.

Constructors

SyncStatus

Fields

percentage :: Double
Percentage of syncronized data
partialSyncSize :: Int
Numerator of the fraction of synced data
totalSyncSize :: Int
Denominator of the fraction of synced data
syncUnit :: SizeUnit
Measurement unit of the previous fraction
timeToFinish :: Time
Expected time before finishing the syncronization
speed :: Int
Speed of the syncronization
want :: Maybe Int
Want of the syncronization
speedSizeUnit :: SizeUnit
Size unit of the speed
speedTimeUnit :: TimeUnit
Time unit of the speed

Instances

Instances details

Show SyncStatus #
Instance details Defined in Ganeti.Storage.Drbd.Types Methods showsPrec :: Int -> SyncStatus -> ShowS show :: SyncStatus -> String showList :: [SyncStatus] -> ShowS
Eq SyncStatus #
Instance details Defined in Ganeti.Storage.Drbd.Types Methods (==) :: SyncStatus -> SyncStatus -> Bool (/=) :: SyncStatus -> SyncStatus -> Bool
JSON SyncStatus #	The SyncStatus instance of JSON.
Instance details Defined in Ganeti.Storage.Drbd.Types Methods readJSON :: JSValue -> Result SyncStatus showJSON :: SyncStatus -> JSValue readJSONs :: JSValue -> Result [SyncStatus] showJSONs :: [SyncStatus] -> JSValue

data SizeUnit #

Data type describing a size unit for memory.

Constructors

KiloByte
MegaByte

Instances

Instances details

Show SizeUnit #
Instance details Defined in Ganeti.Storage.Drbd.Types Methods showsPrec :: Int -> SizeUnit -> ShowS show :: SizeUnit -> String showList :: [SizeUnit] -> ShowS
Eq SizeUnit #
Instance details Defined in Ganeti.Storage.Drbd.Types Methods (==) :: SizeUnit -> SizeUnit -> Bool (/=) :: SizeUnit -> SizeUnit -> Bool
JSON SizeUnit #	The SizeUnit instance of JSON.
Instance details Defined in Ganeti.Storage.Drbd.Types Methods readJSON :: JSValue -> Result SizeUnit showJSON :: SizeUnit -> JSValue readJSONs :: JSValue -> Result [SizeUnit] showJSONs :: [SizeUnit] -> JSValue

data Time #

Data type describing a time (hh:mm:ss).

Constructors

Time
Fields hour :: Int min :: Int sec :: Int

Instances

Instances details

Show Time #
Instance details Defined in Ganeti.Storage.Drbd.Types Methods showsPrec :: Int -> Time -> ShowS show :: Time -> String showList :: [Time] -> ShowS
Eq Time #
Instance details Defined in Ganeti.Storage.Drbd.Types Methods (==) :: Time -> Time -> Bool (/=) :: Time -> Time -> Bool
JSON Time #	The Time instance of JSON.
Instance details Defined in Ganeti.Storage.Drbd.Types Methods readJSON :: JSValue -> Result Time showJSON :: Time -> JSValue readJSONs :: JSValue -> Result [Time] showJSONs :: [Time] -> JSValue

data TimeUnit #

Data type describing a time unit.

Constructors

Second

Instances

Instances details

Show TimeUnit #
Instance details Defined in Ganeti.Storage.Drbd.Types Methods showsPrec :: Int -> TimeUnit -> ShowS show :: TimeUnit -> String showList :: [TimeUnit] -> ShowS
Eq TimeUnit #
Instance details Defined in Ganeti.Storage.Drbd.Types Methods (==) :: TimeUnit -> TimeUnit -> Bool (/=) :: TimeUnit -> TimeUnit -> Bool
JSON TimeUnit #	The TimeUnit instance of JSON.
Instance details Defined in Ganeti.Storage.Drbd.Types Methods readJSON :: JSValue -> Result TimeUnit showJSON :: TimeUnit -> JSValue readJSONs :: JSValue -> Result [TimeUnit] showJSONs :: [TimeUnit] -> JSValue

data AdditionalInfo #

Additional device-specific cache-like information produced by drbd <= 8.0.

Internal debug information exported by old DRBD versions. Undocumented both in DRBD and here.

Constructors

AdditionalInfo
Fields partialUsed :: Int totalUsed :: Int hits :: Int misses :: Int starving :: Int dirty :: Int changed :: Int

Instances

Instances details

Show AdditionalInfo #
Instance details Defined in Ganeti.Storage.Drbd.Types Methods showsPrec :: Int -> AdditionalInfo -> ShowS show :: AdditionalInfo -> String showList :: [AdditionalInfo] -> ShowS
Eq AdditionalInfo #
Instance details Defined in Ganeti.Storage.Drbd.Types Methods (==) :: AdditionalInfo -> AdditionalInfo -> Bool (/=) :: AdditionalInfo -> AdditionalInfo -> Bool

data DrbdInstMinor #

Data type representing the pairing of a DRBD minor with an instance.

Constructors

DrbdInstMinor
Fields dimNode :: String dimMinor :: Int dimInstName :: String dimDiskIdx :: String dimRole :: String dimPeer :: String

Instances

Instances details

Show DrbdInstMinor #
Instance details Defined in Ganeti.Storage.Drbd.Types Methods showsPrec :: Int -> DrbdInstMinor -> ShowS show :: DrbdInstMinor -> String showList :: [DrbdInstMinor] -> ShowS
JSON DrbdInstMinor #	The DrbdInstMinor instance of JSON.
Instance details Defined in Ganeti.Storage.Drbd.Types Methods readJSON :: JSValue -> Result DrbdInstMinor showJSON :: DrbdInstMinor -> JSValue readJSONs :: JSValue -> Result [DrbdInstMinor] showJSONs :: [DrbdInstMinor] -> JSValue