| Safe Haskell | None |
|---|
Ganeti.Confd.Types
Description
Implementation of the Ganeti confd types.
- data ConfdRequestType
- confdRequestTypeFromRaw :: forall m. Monad m => Int -> m ConfdRequestType
- confdRequestTypeToRaw :: ConfdRequestType -> Int
- data ConfdReqField
- confdReqFieldFromRaw :: forall m. Monad m => String -> m ConfdReqField
- confdReqFieldToRaw :: ConfdReqField -> String
- data ConfdReqQ = ConfdReqQ {
- confdReqQIp :: Maybe String
- confdReqQIpList :: [String]
- confdReqQLink :: Maybe String
- confdReqQFields :: [ConfdReqField]
- loadConfdReqQ :: JSValue -> Result ConfdReqQ
- saveConfdReqQ :: ConfdReqQ -> JSValue
- toDictConfdReqQ :: ConfdReqQ -> [(String, JSValue)]
- data ConfdQuery
- = EmptyQuery
- | PlainQuery String
- | DictQuery ConfdReqQ
- data ConfdReplyStatus
- confdReplyStatusFromRaw :: forall m. Monad m => Int -> m ConfdReplyStatus
- confdReplyStatusToRaw :: ConfdReplyStatus -> Int
- data ConfdNodeRole
- confdNodeRoleFromRaw :: forall m. Monad m => Int -> m ConfdNodeRole
- confdNodeRoleToRaw :: ConfdNodeRole -> Int
- data ConfdErrorType
- confdErrorTypeFromRaw :: forall m. Monad m => Int -> m ConfdErrorType
- confdErrorTypeToRaw :: ConfdErrorType -> Int
- data ConfdRequest = ConfdRequest {
- confdRqProtocol :: Int
- confdRqType :: ConfdRequestType
- confdRqQuery :: ConfdQuery
- confdRqRsalt :: String
- loadConfdRequest :: JSValue -> Result ConfdRequest
- saveConfdRequest :: ConfdRequest -> JSValue
- toDictConfdRequest :: ConfdRequest -> [(String, JSValue)]
- newConfdRequest :: ConfdRequestType -> ConfdQuery -> IO ConfdRequest
- data ConfdReply = ConfdReply {
- confdReplyProtocol :: Int
- confdReplyStatus :: ConfdReplyStatus
- confdReplyAnswer :: JSValue
- confdReplySerial :: Int
- loadConfdReply :: JSValue -> Result ConfdReply
- saveConfdReply :: ConfdReply -> JSValue
- toDictConfdReply :: ConfdReply -> [(String, JSValue)]
- data SignedMessage = SignedMessage {
- signedMsgHmac :: String
- signedMsgMsg :: String
- signedMsgSalt :: String
- loadSignedMessage :: JSValue -> Result SignedMessage
- saveSignedMessage :: SignedMessage -> JSValue
- toDictSignedMessage :: SignedMessage -> [(String, JSValue)]
- data ConfdClient = ConfdClient {
- hmacKey :: HashKey
- peers :: [String]
- serverPort :: PortNumber
Documentation
data ConfdRequestType Source
Constructors
| ReqPing | |
| ReqNodeRoleByName | |
| ReqNodePipList | |
| ReqNodePipByInstPip | |
| ReqClusterMaster | |
| ReqMcPipList | |
| ReqInstIpsList | |
| ReqNodeDrbd |
Instances
| Bounded ConfdRequestType | |
| Enum ConfdRequestType | |
| Eq ConfdRequestType | |
| Ord ConfdRequestType | |
| Show ConfdRequestType | |
| Arbitrary ConfdRequestType | |
| JSON ConfdRequestType |
confdRequestTypeFromRaw :: forall m. Monad m => Int -> m ConfdRequestTypeSource
confdRequestTypeToRaw :: ConfdRequestType -> IntSource
data ConfdReqField Source
Constructors
| ReqFieldName | |
| ReqFieldIp | |
| ReqFieldMNodePip |
Instances
| Bounded ConfdReqField | |
| Enum ConfdReqField | |
| Eq ConfdReqField | |
| Ord ConfdReqField | |
| Show ConfdReqField | |
| Arbitrary ConfdReqField | |
| JSON ConfdReqField |
confdReqFieldFromRaw :: forall m. Monad m => String -> m ConfdReqFieldSource
confdReqFieldToRaw :: ConfdReqField -> StringSource
Constructors
| ConfdReqQ | |
Fields
| |
loadConfdReqQ :: JSValue -> Result ConfdReqQSource
saveConfdReqQ :: ConfdReqQ -> JSValueSource
toDictConfdReqQ :: ConfdReqQ -> [(String, JSValue)]Source
data ConfdQuery Source
Confd query type. This is complex enough that we can't automatically derive it via THH.
Constructors
| EmptyQuery | |
| PlainQuery String | |
| DictQuery ConfdReqQ |
Instances
| Eq ConfdQuery | |
| Show ConfdQuery | |
| Arbitrary ConfdQuery | |
| JSON ConfdQuery |
data ConfdReplyStatus Source
Constructors
| ReplyStatusOk | |
| ReplyStatusError | |
| ReplyStatusNotImpl |
Instances
| Bounded ConfdReplyStatus | |
| Enum ConfdReplyStatus | |
| Eq ConfdReplyStatus | |
| Ord ConfdReplyStatus | |
| Show ConfdReplyStatus | |
| Arbitrary ConfdReplyStatus | |
| JSON ConfdReplyStatus |
confdReplyStatusFromRaw :: forall m. Monad m => Int -> m ConfdReplyStatusSource
confdReplyStatusToRaw :: ConfdReplyStatus -> IntSource
data ConfdNodeRole Source
Instances
| Bounded ConfdNodeRole | |
| Enum ConfdNodeRole | |
| Eq ConfdNodeRole | |
| Ord ConfdNodeRole | |
| Show ConfdNodeRole | |
| Arbitrary ConfdNodeRole | |
| JSON ConfdNodeRole |
confdNodeRoleFromRaw :: forall m. Monad m => Int -> m ConfdNodeRoleSource
confdNodeRoleToRaw :: ConfdNodeRole -> IntSource
data ConfdErrorType Source
Instances
| Bounded ConfdErrorType | |
| Enum ConfdErrorType | |
| Eq ConfdErrorType | |
| Ord ConfdErrorType | |
| Show ConfdErrorType | |
| Arbitrary ConfdErrorType | |
| JSON ConfdErrorType |
confdErrorTypeFromRaw :: forall m. Monad m => Int -> m ConfdErrorTypeSource
confdErrorTypeToRaw :: ConfdErrorType -> IntSource
data ConfdRequest Source
Constructors
| ConfdRequest | |
Fields
| |
Instances
| Eq ConfdRequest | |
| Show ConfdRequest | |
| Arbitrary ConfdRequest | |
| JSON ConfdRequest |
loadConfdRequest :: JSValue -> Result ConfdRequestSource
saveConfdRequest :: ConfdRequest -> JSValueSource
toDictConfdRequest :: ConfdRequest -> [(String, JSValue)]Source
newConfdRequest :: ConfdRequestType -> ConfdQuery -> IO ConfdRequestSource
Client side helper function for creating requests. It automatically fills in some default values.
data ConfdReply Source
Constructors
| ConfdReply | |
Fields
| |
Instances
| Eq ConfdReply | |
| Show ConfdReply | |
| Arbitrary ConfdReply | |
| JSON ConfdReply |
loadConfdReply :: JSValue -> Result ConfdReplySource
saveConfdReply :: ConfdReply -> JSValueSource
toDictConfdReply :: ConfdReply -> [(String, JSValue)]Source
data SignedMessage Source
Constructors
| SignedMessage | |
Fields
| |
Instances
| Eq SignedMessage | |
| Show SignedMessage | |
| JSON SignedMessage |
loadSignedMessage :: JSValue -> Result SignedMessageSource
saveSignedMessage :: SignedMessage -> JSValueSource
toDictSignedMessage :: SignedMessage -> [(String, JSValue)]Source
data ConfdClient Source
Data type containing information used by the Confd client.
Constructors
| ConfdClient | |
Fields
| |