Safe Haskell | None |
---|
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
ReqPing | |
ReqNodeRoleByName | |
ReqNodePipList | |
ReqNodePipByInstPip | |
ReqClusterMaster | |
ReqMcPipList | |
ReqInstIpsList | |
ReqNodeDrbd |
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
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
ConfdReqQ | |
|
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.
EmptyQuery | |
PlainQuery String | |
DictQuery ConfdReqQ |
Eq ConfdQuery | |
Show ConfdQuery | |
Arbitrary ConfdQuery | |
JSON ConfdQuery |
data ConfdReplyStatus Source
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
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
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
ConfdRequest | |
|
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
ConfdReply | |
|
Eq ConfdReply | |
Show ConfdReply | |
Arbitrary ConfdReply | |
JSON ConfdReply |
loadConfdReply :: JSValue -> Result ConfdReplySource
saveConfdReply :: ConfdReply -> JSValueSource
toDictConfdReply :: ConfdReply -> [(String, JSValue)]Source
data SignedMessage Source
SignedMessage | |
|
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.
ConfdClient | |
|