diff --git a/Data-Sawtooth-Authorization.html b/Data-Sawtooth-Authorization.html index b44fd07..08dae80 100644 --- a/Data-Sawtooth-Authorization.html +++ b/Data-Sawtooth-Authorization.html @@ -1 +1 @@ -Data.Sawtooth.Authorization
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types
Safe HaskellNone
LanguageHaskell2010

Data.Sawtooth.Authorization

Description

Generated by Haskell protocol buffer compiler. DO NOT EDIT!

Documentation

newtype ConnectionRequest Source #

Constructors

ConnectionRequest 

Fields

Instances

Instances details
Eq ConnectionRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

(==) :: ConnectionRequest -> ConnectionRequest -> Bool Source #

(/=) :: ConnectionRequest -> ConnectionRequest -> Bool Source #

Ord ConnectionRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

compare :: ConnectionRequest -> ConnectionRequest -> Ordering Source #

(<) :: ConnectionRequest -> ConnectionRequest -> Bool Source #

(<=) :: ConnectionRequest -> ConnectionRequest -> Bool Source #

(>) :: ConnectionRequest -> ConnectionRequest -> Bool Source #

(>=) :: ConnectionRequest -> ConnectionRequest -> Bool Source #

max :: ConnectionRequest -> ConnectionRequest -> ConnectionRequest Source #

min :: ConnectionRequest -> ConnectionRequest -> ConnectionRequest Source #

Show ConnectionRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

showsPrec :: Int -> ConnectionRequest -> ShowS Source #

show :: ConnectionRequest -> String Source #

showList :: [ConnectionRequest] -> ShowS Source #

Generic ConnectionRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Associated Types

type Rep ConnectionRequest :: Type -> Type Source #

Methods

from :: ConnectionRequest -> Rep ConnectionRequest x Source #

to :: Rep ConnectionRequest x -> ConnectionRequest Source #

ToJSON ConnectionRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

toJSON :: ConnectionRequest -> Value Source #

toEncoding :: ConnectionRequest -> Encoding Source #

toJSONList :: [ConnectionRequest] -> Value Source #

toEncodingList :: [ConnectionRequest] -> Encoding Source #

FromJSON ConnectionRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

parseJSON :: Value -> Parser ConnectionRequest Source #

parseJSONList :: Value -> Parser [ConnectionRequest] Source #

NFData ConnectionRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

rnf :: ConnectionRequest -> () Source #

ToJSONPB ConnectionRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

toJSONPB :: ConnectionRequest -> Options -> Value Source #

toEncodingPB :: ConnectionRequest -> Options -> Encoding Source #

FromJSONPB ConnectionRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

parseJSONPB :: Value -> Parser ConnectionRequest Source #

HasDefault ConnectionRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

def :: ConnectionRequest Source #

isDefault :: ConnectionRequest -> Bool Source #

Named ConnectionRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

nameOf :: IsString string => Proxy# ConnectionRequest -> string Source #

Message ConnectionRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

encodeMessage :: FieldNumber -> ConnectionRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConnectionRequest Source #

dotProto :: Proxy# ConnectionRequest -> [DotProtoField] Source #

ToSchema ConnectionRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

declareNamedSchema :: Proxy ConnectionRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConnectionRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

type Rep ConnectionRequest = D1 ('MetaData "ConnectionRequest" "Data.Sawtooth.Authorization" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'True) (C1 ('MetaCons "ConnectionRequest" 'PrefixI 'True) (S1 ('MetaSel ('Just "connectionRequestEndpoint") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)))

data RoleType Source #

Constructors

RoleTypeROLE_TYPE_UNSET 
RoleTypeALL 
RoleTypeNETWORK 

Instances

Instances details
Bounded RoleType Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

minBound :: RoleType Source #

maxBound :: RoleType Source #

Eq RoleType Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

(==) :: RoleType -> RoleType -> Bool Source #

(/=) :: RoleType -> RoleType -> Bool Source #

Ord RoleType Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

compare :: RoleType -> RoleType -> Ordering Source #

(<) :: RoleType -> RoleType -> Bool Source #

(<=) :: RoleType -> RoleType -> Bool Source #

(>) :: RoleType -> RoleType -> Bool Source #

(>=) :: RoleType -> RoleType -> Bool Source #

max :: RoleType -> RoleType -> RoleType Source #

min :: RoleType -> RoleType -> RoleType Source #

Show RoleType Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

showsPrec :: Int -> RoleType -> ShowS Source #

show :: RoleType -> String Source #

showList :: [RoleType] -> ShowS Source #

Generic RoleType Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Associated Types

type Rep RoleType :: Type -> Type Source #

Methods

from :: RoleType -> Rep RoleType x Source #

to :: Rep RoleType x -> RoleType Source #

ToJSON RoleType Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

toJSON :: RoleType -> Value Source #

toEncoding :: RoleType -> Encoding Source #

toJSONList :: [RoleType] -> Value Source #

toEncodingList :: [RoleType] -> Encoding Source #

FromJSON RoleType Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

parseJSON :: Value -> Parser RoleType Source #

parseJSONList :: Value -> Parser [RoleType] Source #

NFData RoleType Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

rnf :: RoleType -> () Source #

ProtoEnum RoleType Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

toProtoEnumMay :: Int32 -> Maybe RoleType Source #

fromProtoEnum :: RoleType -> Int32 Source #

ToJSONPB RoleType Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

toJSONPB :: RoleType -> Options -> Value Source #

toEncodingPB :: RoleType -> Options -> Encoding Source #

FromJSONPB RoleType Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

parseJSONPB :: Value -> Parser RoleType Source #

HasDefault RoleType Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

def :: RoleType Source #

isDefault :: RoleType -> Bool Source #

Named RoleType Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

nameOf :: IsString string => Proxy# RoleType -> string Source #

Finite RoleType Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

enumerate :: IsString string => Proxy# RoleType -> [(string, Int32)] Source #

type Rep RoleType Source # 
Instance details

Defined in Data.Sawtooth.Authorization

type Rep RoleType = D1 ('MetaData "RoleType" "Data.Sawtooth.Authorization" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "RoleTypeROLE_TYPE_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "RoleTypeALL" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "RoleTypeNETWORK" 'PrefixI 'False) (U1 :: Type -> Type)))

data ConnectionResponse Source #

Constructors

ConnectionResponse 

Fields

Instances

Instances details
Eq ConnectionResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

(==) :: ConnectionResponse -> ConnectionResponse -> Bool Source #

(/=) :: ConnectionResponse -> ConnectionResponse -> Bool Source #

Ord ConnectionResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

compare :: ConnectionResponse -> ConnectionResponse -> Ordering Source #

(<) :: ConnectionResponse -> ConnectionResponse -> Bool Source #

(<=) :: ConnectionResponse -> ConnectionResponse -> Bool Source #

(>) :: ConnectionResponse -> ConnectionResponse -> Bool Source #

(>=) :: ConnectionResponse -> ConnectionResponse -> Bool Source #

max :: ConnectionResponse -> ConnectionResponse -> ConnectionResponse Source #

min :: ConnectionResponse -> ConnectionResponse -> ConnectionResponse Source #

Show ConnectionResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

showsPrec :: Int -> ConnectionResponse -> ShowS Source #

show :: ConnectionResponse -> String Source #

showList :: [ConnectionResponse] -> ShowS Source #

Generic ConnectionResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Associated Types

type Rep ConnectionResponse :: Type -> Type Source #

Methods

from :: ConnectionResponse -> Rep ConnectionResponse x Source #

to :: Rep ConnectionResponse x -> ConnectionResponse Source #

ToJSON ConnectionResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

toJSON :: ConnectionResponse -> Value Source #

toEncoding :: ConnectionResponse -> Encoding Source #

toJSONList :: [ConnectionResponse] -> Value Source #

toEncodingList :: [ConnectionResponse] -> Encoding Source #

FromJSON ConnectionResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

parseJSON :: Value -> Parser ConnectionResponse Source #

parseJSONList :: Value -> Parser [ConnectionResponse] Source #

NFData ConnectionResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

rnf :: ConnectionResponse -> () Source #

ToJSONPB ConnectionResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

toJSONPB :: ConnectionResponse -> Options -> Value Source #

toEncodingPB :: ConnectionResponse -> Options -> Encoding Source #

FromJSONPB ConnectionResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

parseJSONPB :: Value -> Parser ConnectionResponse Source #

HasDefault ConnectionResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

def :: ConnectionResponse Source #

isDefault :: ConnectionResponse -> Bool Source #

Named ConnectionResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

nameOf :: IsString string => Proxy# ConnectionResponse -> string Source #

Message ConnectionResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

encodeMessage :: FieldNumber -> ConnectionResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConnectionResponse Source #

dotProto :: Proxy# ConnectionResponse -> [DotProtoField] Source #

ToSchema ConnectionResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

declareNamedSchema :: Proxy ConnectionResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConnectionResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

type Rep ConnectionResponse = D1 ('MetaData "ConnectionResponse" "Data.Sawtooth.Authorization" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "ConnectionResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "connectionResponseRoles") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector ConnectionResponse_RoleEntry)) :*: S1 ('MetaSel ('Just "connectionResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated ConnectionResponse_Status))))

data ConnectionResponse_Status Source #

Constructors

ConnectionResponse_StatusSTATUS_UNSET 
ConnectionResponse_StatusOK 
ConnectionResponse_StatusERROR 

Instances

Instances details
Bounded ConnectionResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

minBound :: ConnectionResponse_Status Source #

maxBound :: ConnectionResponse_Status Source #

Eq ConnectionResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

(==) :: ConnectionResponse_Status -> ConnectionResponse_Status -> Bool Source #

(/=) :: ConnectionResponse_Status -> ConnectionResponse_Status -> Bool Source #

Ord ConnectionResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

compare :: ConnectionResponse_Status -> ConnectionResponse_Status -> Ordering Source #

(<) :: ConnectionResponse_Status -> ConnectionResponse_Status -> Bool Source #

(<=) :: ConnectionResponse_Status -> ConnectionResponse_Status -> Bool Source #

(>) :: ConnectionResponse_Status -> ConnectionResponse_Status -> Bool Source #

(>=) :: ConnectionResponse_Status -> ConnectionResponse_Status -> Bool Source #

max :: ConnectionResponse_Status -> ConnectionResponse_Status -> ConnectionResponse_Status Source #

min :: ConnectionResponse_Status -> ConnectionResponse_Status -> ConnectionResponse_Status Source #

Show ConnectionResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

showsPrec :: Int -> ConnectionResponse_Status -> ShowS Source #

show :: ConnectionResponse_Status -> String Source #

showList :: [ConnectionResponse_Status] -> ShowS Source #

Generic ConnectionResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Associated Types

type Rep ConnectionResponse_Status :: Type -> Type Source #

Methods

from :: ConnectionResponse_Status -> Rep ConnectionResponse_Status x Source #

to :: Rep ConnectionResponse_Status x -> ConnectionResponse_Status Source #

ToJSON ConnectionResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

toJSON :: ConnectionResponse_Status -> Value Source #

toEncoding :: ConnectionResponse_Status -> Encoding Source #

toJSONList :: [ConnectionResponse_Status] -> Value Source #

toEncodingList :: [ConnectionResponse_Status] -> Encoding Source #

FromJSON ConnectionResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

parseJSON :: Value -> Parser ConnectionResponse_Status Source #

parseJSONList :: Value -> Parser [ConnectionResponse_Status] Source #

NFData ConnectionResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

rnf :: ConnectionResponse_Status -> () Source #

ProtoEnum ConnectionResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

toProtoEnumMay :: Int32 -> Maybe ConnectionResponse_Status Source #

fromProtoEnum :: ConnectionResponse_Status -> Int32 Source #

ToJSONPB ConnectionResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

toJSONPB :: ConnectionResponse_Status -> Options -> Value Source #

toEncodingPB :: ConnectionResponse_Status -> Options -> Encoding Source #

FromJSONPB ConnectionResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

parseJSONPB :: Value -> Parser ConnectionResponse_Status Source #

HasDefault ConnectionResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

def :: ConnectionResponse_Status Source #

isDefault :: ConnectionResponse_Status -> Bool Source #

Named ConnectionResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

nameOf :: IsString string => Proxy# ConnectionResponse_Status -> string Source #

Finite ConnectionResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

enumerate :: IsString string => Proxy# ConnectionResponse_Status -> [(string, Int32)] Source #

type Rep ConnectionResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Authorization

type Rep ConnectionResponse_Status = D1 ('MetaData "ConnectionResponse_Status" "Data.Sawtooth.Authorization" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "ConnectionResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "ConnectionResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConnectionResponse_StatusERROR" 'PrefixI 'False) (U1 :: Type -> Type)))

data ConnectionResponse_AuthorizationType Source #

Constructors

ConnectionResponse_AuthorizationTypeAUTHORIZATION_TYPE_UNSET 
ConnectionResponse_AuthorizationTypeTRUST 
ConnectionResponse_AuthorizationTypeCHALLENGE 

Instances

Instances details
Bounded ConnectionResponse_AuthorizationType Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

minBound :: ConnectionResponse_AuthorizationType Source #

maxBound :: ConnectionResponse_AuthorizationType Source #

Eq ConnectionResponse_AuthorizationType Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

(==) :: ConnectionResponse_AuthorizationType -> ConnectionResponse_AuthorizationType -> Bool Source #

(/=) :: ConnectionResponse_AuthorizationType -> ConnectionResponse_AuthorizationType -> Bool Source #

Ord ConnectionResponse_AuthorizationType Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

compare :: ConnectionResponse_AuthorizationType -> ConnectionResponse_AuthorizationType -> Ordering Source #

(<) :: ConnectionResponse_AuthorizationType -> ConnectionResponse_AuthorizationType -> Bool Source #

(<=) :: ConnectionResponse_AuthorizationType -> ConnectionResponse_AuthorizationType -> Bool Source #

(>) :: ConnectionResponse_AuthorizationType -> ConnectionResponse_AuthorizationType -> Bool Source #

(>=) :: ConnectionResponse_AuthorizationType -> ConnectionResponse_AuthorizationType -> Bool Source #

max :: ConnectionResponse_AuthorizationType -> ConnectionResponse_AuthorizationType -> ConnectionResponse_AuthorizationType Source #

min :: ConnectionResponse_AuthorizationType -> ConnectionResponse_AuthorizationType -> ConnectionResponse_AuthorizationType Source #

Show ConnectionResponse_AuthorizationType Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

showsPrec :: Int -> ConnectionResponse_AuthorizationType -> ShowS Source #

show :: ConnectionResponse_AuthorizationType -> String Source #

showList :: [ConnectionResponse_AuthorizationType] -> ShowS Source #

Generic ConnectionResponse_AuthorizationType Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Associated Types

type Rep ConnectionResponse_AuthorizationType :: Type -> Type Source #

Methods

from :: ConnectionResponse_AuthorizationType -> Rep ConnectionResponse_AuthorizationType x Source #

to :: Rep ConnectionResponse_AuthorizationType x -> ConnectionResponse_AuthorizationType Source #

ToJSON ConnectionResponse_AuthorizationType Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

toJSON :: ConnectionResponse_AuthorizationType -> Value Source #

toEncoding :: ConnectionResponse_AuthorizationType -> Encoding Source #

toJSONList :: [ConnectionResponse_AuthorizationType] -> Value Source #

toEncodingList :: [ConnectionResponse_AuthorizationType] -> Encoding Source #

FromJSON ConnectionResponse_AuthorizationType Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

parseJSON :: Value -> Parser ConnectionResponse_AuthorizationType Source #

parseJSONList :: Value -> Parser [ConnectionResponse_AuthorizationType] Source #

NFData ConnectionResponse_AuthorizationType Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

rnf :: ConnectionResponse_AuthorizationType -> () Source #

ProtoEnum ConnectionResponse_AuthorizationType Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

toProtoEnumMay :: Int32 -> Maybe ConnectionResponse_AuthorizationType Source #

fromProtoEnum :: ConnectionResponse_AuthorizationType -> Int32 Source #

ToJSONPB ConnectionResponse_AuthorizationType Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

toJSONPB :: ConnectionResponse_AuthorizationType -> Options -> Value Source #

toEncodingPB :: ConnectionResponse_AuthorizationType -> Options -> Encoding Source #

FromJSONPB ConnectionResponse_AuthorizationType Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

parseJSONPB :: Value -> Parser ConnectionResponse_AuthorizationType Source #

HasDefault ConnectionResponse_AuthorizationType Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

def :: ConnectionResponse_AuthorizationType Source #

isDefault :: ConnectionResponse_AuthorizationType -> Bool Source #

Named ConnectionResponse_AuthorizationType Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

nameOf :: IsString string => Proxy# ConnectionResponse_AuthorizationType -> string Source #

Finite ConnectionResponse_AuthorizationType Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

enumerate :: IsString string => Proxy# ConnectionResponse_AuthorizationType -> [(string, Int32)] Source #

type Rep ConnectionResponse_AuthorizationType Source # 
Instance details

Defined in Data.Sawtooth.Authorization

type Rep ConnectionResponse_AuthorizationType = D1 ('MetaData "ConnectionResponse_AuthorizationType" "Data.Sawtooth.Authorization" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "ConnectionResponse_AuthorizationTypeAUTHORIZATION_TYPE_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "ConnectionResponse_AuthorizationTypeTRUST" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConnectionResponse_AuthorizationTypeCHALLENGE" 'PrefixI 'False) (U1 :: Type -> Type)))

data ConnectionResponse_RoleEntry Source #

Constructors

ConnectionResponse_RoleEntry 

Fields

Instances

Instances details
Eq ConnectionResponse_RoleEntry Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

(==) :: ConnectionResponse_RoleEntry -> ConnectionResponse_RoleEntry -> Bool Source #

(/=) :: ConnectionResponse_RoleEntry -> ConnectionResponse_RoleEntry -> Bool Source #

Ord ConnectionResponse_RoleEntry Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

compare :: ConnectionResponse_RoleEntry -> ConnectionResponse_RoleEntry -> Ordering Source #

(<) :: ConnectionResponse_RoleEntry -> ConnectionResponse_RoleEntry -> Bool Source #

(<=) :: ConnectionResponse_RoleEntry -> ConnectionResponse_RoleEntry -> Bool Source #

(>) :: ConnectionResponse_RoleEntry -> ConnectionResponse_RoleEntry -> Bool Source #

(>=) :: ConnectionResponse_RoleEntry -> ConnectionResponse_RoleEntry -> Bool Source #

max :: ConnectionResponse_RoleEntry -> ConnectionResponse_RoleEntry -> ConnectionResponse_RoleEntry Source #

min :: ConnectionResponse_RoleEntry -> ConnectionResponse_RoleEntry -> ConnectionResponse_RoleEntry Source #

Show ConnectionResponse_RoleEntry Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

showsPrec :: Int -> ConnectionResponse_RoleEntry -> ShowS Source #

show :: ConnectionResponse_RoleEntry -> String Source #

showList :: [ConnectionResponse_RoleEntry] -> ShowS Source #

Generic ConnectionResponse_RoleEntry Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Associated Types

type Rep ConnectionResponse_RoleEntry :: Type -> Type Source #

Methods

from :: ConnectionResponse_RoleEntry -> Rep ConnectionResponse_RoleEntry x Source #

to :: Rep ConnectionResponse_RoleEntry x -> ConnectionResponse_RoleEntry Source #

ToJSON ConnectionResponse_RoleEntry Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

toJSON :: ConnectionResponse_RoleEntry -> Value Source #

toEncoding :: ConnectionResponse_RoleEntry -> Encoding Source #

toJSONList :: [ConnectionResponse_RoleEntry] -> Value Source #

toEncodingList :: [ConnectionResponse_RoleEntry] -> Encoding Source #

FromJSON ConnectionResponse_RoleEntry Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

parseJSON :: Value -> Parser ConnectionResponse_RoleEntry Source #

parseJSONList :: Value -> Parser [ConnectionResponse_RoleEntry] Source #

NFData ConnectionResponse_RoleEntry Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

rnf :: ConnectionResponse_RoleEntry -> () Source #

ToJSONPB ConnectionResponse_RoleEntry Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

toJSONPB :: ConnectionResponse_RoleEntry -> Options -> Value Source #

toEncodingPB :: ConnectionResponse_RoleEntry -> Options -> Encoding Source #

FromJSONPB ConnectionResponse_RoleEntry Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

parseJSONPB :: Value -> Parser ConnectionResponse_RoleEntry Source #

HasDefault ConnectionResponse_RoleEntry Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

def :: ConnectionResponse_RoleEntry Source #

isDefault :: ConnectionResponse_RoleEntry -> Bool Source #

Named ConnectionResponse_RoleEntry Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

nameOf :: IsString string => Proxy# ConnectionResponse_RoleEntry -> string Source #

Message ConnectionResponse_RoleEntry Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

encodeMessage :: FieldNumber -> ConnectionResponse_RoleEntry -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConnectionResponse_RoleEntry Source #

dotProto :: Proxy# ConnectionResponse_RoleEntry -> [DotProtoField] Source #

ToSchema ConnectionResponse_RoleEntry Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

declareNamedSchema :: Proxy ConnectionResponse_RoleEntry -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConnectionResponse_RoleEntry Source # 
Instance details

Defined in Data.Sawtooth.Authorization

type Rep ConnectionResponse_RoleEntry = D1 ('MetaData "ConnectionResponse_RoleEntry" "Data.Sawtooth.Authorization" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "ConnectionResponse_RoleEntry" 'PrefixI 'True) (S1 ('MetaSel ('Just "connectionResponse_RoleEntryRole") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated RoleType)) :*: S1 ('MetaSel ('Just "connectionResponse_RoleEntryAuthType") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated ConnectionResponse_AuthorizationType))))

data AuthorizationTrustRequest Source #

Constructors

AuthorizationTrustRequest 

Fields

Instances

Instances details
Eq AuthorizationTrustRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

(==) :: AuthorizationTrustRequest -> AuthorizationTrustRequest -> Bool Source #

(/=) :: AuthorizationTrustRequest -> AuthorizationTrustRequest -> Bool Source #

Ord AuthorizationTrustRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

compare :: AuthorizationTrustRequest -> AuthorizationTrustRequest -> Ordering Source #

(<) :: AuthorizationTrustRequest -> AuthorizationTrustRequest -> Bool Source #

(<=) :: AuthorizationTrustRequest -> AuthorizationTrustRequest -> Bool Source #

(>) :: AuthorizationTrustRequest -> AuthorizationTrustRequest -> Bool Source #

(>=) :: AuthorizationTrustRequest -> AuthorizationTrustRequest -> Bool Source #

max :: AuthorizationTrustRequest -> AuthorizationTrustRequest -> AuthorizationTrustRequest Source #

min :: AuthorizationTrustRequest -> AuthorizationTrustRequest -> AuthorizationTrustRequest Source #

Show AuthorizationTrustRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

showsPrec :: Int -> AuthorizationTrustRequest -> ShowS Source #

show :: AuthorizationTrustRequest -> String Source #

showList :: [AuthorizationTrustRequest] -> ShowS Source #

Generic AuthorizationTrustRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Associated Types

type Rep AuthorizationTrustRequest :: Type -> Type Source #

Methods

from :: AuthorizationTrustRequest -> Rep AuthorizationTrustRequest x Source #

to :: Rep AuthorizationTrustRequest x -> AuthorizationTrustRequest Source #

ToJSON AuthorizationTrustRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

toJSON :: AuthorizationTrustRequest -> Value Source #

toEncoding :: AuthorizationTrustRequest -> Encoding Source #

toJSONList :: [AuthorizationTrustRequest] -> Value Source #

toEncodingList :: [AuthorizationTrustRequest] -> Encoding Source #

FromJSON AuthorizationTrustRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

parseJSON :: Value -> Parser AuthorizationTrustRequest Source #

parseJSONList :: Value -> Parser [AuthorizationTrustRequest] Source #

NFData AuthorizationTrustRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

rnf :: AuthorizationTrustRequest -> () Source #

ToJSONPB AuthorizationTrustRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

toJSONPB :: AuthorizationTrustRequest -> Options -> Value Source #

toEncodingPB :: AuthorizationTrustRequest -> Options -> Encoding Source #

FromJSONPB AuthorizationTrustRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

parseJSONPB :: Value -> Parser AuthorizationTrustRequest Source #

HasDefault AuthorizationTrustRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

def :: AuthorizationTrustRequest Source #

isDefault :: AuthorizationTrustRequest -> Bool Source #

Named AuthorizationTrustRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

nameOf :: IsString string => Proxy# AuthorizationTrustRequest -> string Source #

Message AuthorizationTrustRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

encodeMessage :: FieldNumber -> AuthorizationTrustRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage AuthorizationTrustRequest Source #

dotProto :: Proxy# AuthorizationTrustRequest -> [DotProtoField] Source #

ToSchema AuthorizationTrustRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

declareNamedSchema :: Proxy AuthorizationTrustRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep AuthorizationTrustRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

type Rep AuthorizationTrustRequest = D1 ('MetaData "AuthorizationTrustRequest" "Data.Sawtooth.Authorization" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "AuthorizationTrustRequest" 'PrefixI 'True) (S1 ('MetaSel ('Just "authorizationTrustRequestRoles") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector (Enumerated RoleType))) :*: S1 ('MetaSel ('Just "authorizationTrustRequestPublicKey") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)))

newtype AuthorizationTrustResponse Source #

Constructors

AuthorizationTrustResponse 

Fields

Instances

Instances details
Eq AuthorizationTrustResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

(==) :: AuthorizationTrustResponse -> AuthorizationTrustResponse -> Bool Source #

(/=) :: AuthorizationTrustResponse -> AuthorizationTrustResponse -> Bool Source #

Ord AuthorizationTrustResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

compare :: AuthorizationTrustResponse -> AuthorizationTrustResponse -> Ordering Source #

(<) :: AuthorizationTrustResponse -> AuthorizationTrustResponse -> Bool Source #

(<=) :: AuthorizationTrustResponse -> AuthorizationTrustResponse -> Bool Source #

(>) :: AuthorizationTrustResponse -> AuthorizationTrustResponse -> Bool Source #

(>=) :: AuthorizationTrustResponse -> AuthorizationTrustResponse -> Bool Source #

max :: AuthorizationTrustResponse -> AuthorizationTrustResponse -> AuthorizationTrustResponse Source #

min :: AuthorizationTrustResponse -> AuthorizationTrustResponse -> AuthorizationTrustResponse Source #

Show AuthorizationTrustResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

showsPrec :: Int -> AuthorizationTrustResponse -> ShowS Source #

show :: AuthorizationTrustResponse -> String Source #

showList :: [AuthorizationTrustResponse] -> ShowS Source #

Generic AuthorizationTrustResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Associated Types

type Rep AuthorizationTrustResponse :: Type -> Type Source #

Methods

from :: AuthorizationTrustResponse -> Rep AuthorizationTrustResponse x Source #

to :: Rep AuthorizationTrustResponse x -> AuthorizationTrustResponse Source #

ToJSON AuthorizationTrustResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

toJSON :: AuthorizationTrustResponse -> Value Source #

toEncoding :: AuthorizationTrustResponse -> Encoding Source #

toJSONList :: [AuthorizationTrustResponse] -> Value Source #

toEncodingList :: [AuthorizationTrustResponse] -> Encoding Source #

FromJSON AuthorizationTrustResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

parseJSON :: Value -> Parser AuthorizationTrustResponse Source #

parseJSONList :: Value -> Parser [AuthorizationTrustResponse] Source #

NFData AuthorizationTrustResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

rnf :: AuthorizationTrustResponse -> () Source #

ToJSONPB AuthorizationTrustResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

toJSONPB :: AuthorizationTrustResponse -> Options -> Value Source #

toEncodingPB :: AuthorizationTrustResponse -> Options -> Encoding Source #

FromJSONPB AuthorizationTrustResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

parseJSONPB :: Value -> Parser AuthorizationTrustResponse Source #

HasDefault AuthorizationTrustResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

def :: AuthorizationTrustResponse Source #

isDefault :: AuthorizationTrustResponse -> Bool Source #

Named AuthorizationTrustResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

nameOf :: IsString string => Proxy# AuthorizationTrustResponse -> string Source #

Message AuthorizationTrustResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

encodeMessage :: FieldNumber -> AuthorizationTrustResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage AuthorizationTrustResponse Source #

dotProto :: Proxy# AuthorizationTrustResponse -> [DotProtoField] Source #

ToSchema AuthorizationTrustResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

declareNamedSchema :: Proxy AuthorizationTrustResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep AuthorizationTrustResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

type Rep AuthorizationTrustResponse = D1 ('MetaData "AuthorizationTrustResponse" "Data.Sawtooth.Authorization" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'True) (C1 ('MetaCons "AuthorizationTrustResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "authorizationTrustResponseRoles") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector (Enumerated RoleType)))))

newtype AuthorizationViolation Source #

Constructors

AuthorizationViolation 

Fields

Instances

Instances details
Eq AuthorizationViolation Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

(==) :: AuthorizationViolation -> AuthorizationViolation -> Bool Source #

(/=) :: AuthorizationViolation -> AuthorizationViolation -> Bool Source #

Ord AuthorizationViolation Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

compare :: AuthorizationViolation -> AuthorizationViolation -> Ordering Source #

(<) :: AuthorizationViolation -> AuthorizationViolation -> Bool Source #

(<=) :: AuthorizationViolation -> AuthorizationViolation -> Bool Source #

(>) :: AuthorizationViolation -> AuthorizationViolation -> Bool Source #

(>=) :: AuthorizationViolation -> AuthorizationViolation -> Bool Source #

max :: AuthorizationViolation -> AuthorizationViolation -> AuthorizationViolation Source #

min :: AuthorizationViolation -> AuthorizationViolation -> AuthorizationViolation Source #

Show AuthorizationViolation Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

showsPrec :: Int -> AuthorizationViolation -> ShowS Source #

show :: AuthorizationViolation -> String Source #

showList :: [AuthorizationViolation] -> ShowS Source #

Generic AuthorizationViolation Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Associated Types

type Rep AuthorizationViolation :: Type -> Type Source #

Methods

from :: AuthorizationViolation -> Rep AuthorizationViolation x Source #

to :: Rep AuthorizationViolation x -> AuthorizationViolation Source #

ToJSON AuthorizationViolation Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

toJSON :: AuthorizationViolation -> Value Source #

toEncoding :: AuthorizationViolation -> Encoding Source #

toJSONList :: [AuthorizationViolation] -> Value Source #

toEncodingList :: [AuthorizationViolation] -> Encoding Source #

FromJSON AuthorizationViolation Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

parseJSON :: Value -> Parser AuthorizationViolation Source #

parseJSONList :: Value -> Parser [AuthorizationViolation] Source #

NFData AuthorizationViolation Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

rnf :: AuthorizationViolation -> () Source #

ToJSONPB AuthorizationViolation Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

toJSONPB :: AuthorizationViolation -> Options -> Value Source #

toEncodingPB :: AuthorizationViolation -> Options -> Encoding Source #

FromJSONPB AuthorizationViolation Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

parseJSONPB :: Value -> Parser AuthorizationViolation Source #

HasDefault AuthorizationViolation Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

def :: AuthorizationViolation Source #

isDefault :: AuthorizationViolation -> Bool Source #

Named AuthorizationViolation Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

nameOf :: IsString string => Proxy# AuthorizationViolation -> string Source #

Message AuthorizationViolation Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

encodeMessage :: FieldNumber -> AuthorizationViolation -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage AuthorizationViolation Source #

dotProto :: Proxy# AuthorizationViolation -> [DotProtoField] Source #

ToSchema AuthorizationViolation Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

declareNamedSchema :: Proxy AuthorizationViolation -> Declare (Definitions Schema) NamedSchema Source #

type Rep AuthorizationViolation Source # 
Instance details

Defined in Data.Sawtooth.Authorization

type Rep AuthorizationViolation = D1 ('MetaData "AuthorizationViolation" "Data.Sawtooth.Authorization" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'True) (C1 ('MetaCons "AuthorizationViolation" 'PrefixI 'True) (S1 ('MetaSel ('Just "authorizationViolationViolation") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated RoleType))))

data AuthorizationChallengeRequest Source #

Constructors

AuthorizationChallengeRequest 

Instances

Instances details
Eq AuthorizationChallengeRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

(==) :: AuthorizationChallengeRequest -> AuthorizationChallengeRequest -> Bool Source #

(/=) :: AuthorizationChallengeRequest -> AuthorizationChallengeRequest -> Bool Source #

Ord AuthorizationChallengeRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

compare :: AuthorizationChallengeRequest -> AuthorizationChallengeRequest -> Ordering Source #

(<) :: AuthorizationChallengeRequest -> AuthorizationChallengeRequest -> Bool Source #

(<=) :: AuthorizationChallengeRequest -> AuthorizationChallengeRequest -> Bool Source #

(>) :: AuthorizationChallengeRequest -> AuthorizationChallengeRequest -> Bool Source #

(>=) :: AuthorizationChallengeRequest -> AuthorizationChallengeRequest -> Bool Source #

max :: AuthorizationChallengeRequest -> AuthorizationChallengeRequest -> AuthorizationChallengeRequest Source #

min :: AuthorizationChallengeRequest -> AuthorizationChallengeRequest -> AuthorizationChallengeRequest Source #

Show AuthorizationChallengeRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

showsPrec :: Int -> AuthorizationChallengeRequest -> ShowS Source #

show :: AuthorizationChallengeRequest -> String Source #

showList :: [AuthorizationChallengeRequest] -> ShowS Source #

Generic AuthorizationChallengeRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Associated Types

type Rep AuthorizationChallengeRequest :: Type -> Type Source #

Methods

from :: AuthorizationChallengeRequest -> Rep AuthorizationChallengeRequest x Source #

to :: Rep AuthorizationChallengeRequest x -> AuthorizationChallengeRequest Source #

ToJSON AuthorizationChallengeRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

toJSON :: AuthorizationChallengeRequest -> Value Source #

toEncoding :: AuthorizationChallengeRequest -> Encoding Source #

toJSONList :: [AuthorizationChallengeRequest] -> Value Source #

toEncodingList :: [AuthorizationChallengeRequest] -> Encoding Source #

FromJSON AuthorizationChallengeRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

parseJSON :: Value -> Parser AuthorizationChallengeRequest Source #

parseJSONList :: Value -> Parser [AuthorizationChallengeRequest] Source #

NFData AuthorizationChallengeRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

rnf :: AuthorizationChallengeRequest -> () Source #

ToJSONPB AuthorizationChallengeRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

toJSONPB :: AuthorizationChallengeRequest -> Options -> Value Source #

toEncodingPB :: AuthorizationChallengeRequest -> Options -> Encoding Source #

FromJSONPB AuthorizationChallengeRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

parseJSONPB :: Value -> Parser AuthorizationChallengeRequest Source #

HasDefault AuthorizationChallengeRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

def :: AuthorizationChallengeRequest Source #

isDefault :: AuthorizationChallengeRequest -> Bool Source #

Named AuthorizationChallengeRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

nameOf :: IsString string => Proxy# AuthorizationChallengeRequest -> string Source #

Message AuthorizationChallengeRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

encodeMessage :: FieldNumber -> AuthorizationChallengeRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage AuthorizationChallengeRequest Source #

dotProto :: Proxy# AuthorizationChallengeRequest -> [DotProtoField] Source #

ToSchema AuthorizationChallengeRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

declareNamedSchema :: Proxy AuthorizationChallengeRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep AuthorizationChallengeRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

type Rep AuthorizationChallengeRequest = D1 ('MetaData "AuthorizationChallengeRequest" "Data.Sawtooth.Authorization" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "AuthorizationChallengeRequest" 'PrefixI 'False) (U1 :: Type -> Type))

newtype AuthorizationChallengeResponse Source #

Constructors

AuthorizationChallengeResponse 

Fields

Instances

Instances details
Eq AuthorizationChallengeResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

(==) :: AuthorizationChallengeResponse -> AuthorizationChallengeResponse -> Bool Source #

(/=) :: AuthorizationChallengeResponse -> AuthorizationChallengeResponse -> Bool Source #

Ord AuthorizationChallengeResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

compare :: AuthorizationChallengeResponse -> AuthorizationChallengeResponse -> Ordering Source #

(<) :: AuthorizationChallengeResponse -> AuthorizationChallengeResponse -> Bool Source #

(<=) :: AuthorizationChallengeResponse -> AuthorizationChallengeResponse -> Bool Source #

(>) :: AuthorizationChallengeResponse -> AuthorizationChallengeResponse -> Bool Source #

(>=) :: AuthorizationChallengeResponse -> AuthorizationChallengeResponse -> Bool Source #

max :: AuthorizationChallengeResponse -> AuthorizationChallengeResponse -> AuthorizationChallengeResponse Source #

min :: AuthorizationChallengeResponse -> AuthorizationChallengeResponse -> AuthorizationChallengeResponse Source #

Show AuthorizationChallengeResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

showsPrec :: Int -> AuthorizationChallengeResponse -> ShowS Source #

show :: AuthorizationChallengeResponse -> String Source #

showList :: [AuthorizationChallengeResponse] -> ShowS Source #

Generic AuthorizationChallengeResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Associated Types

type Rep AuthorizationChallengeResponse :: Type -> Type Source #

Methods

from :: AuthorizationChallengeResponse -> Rep AuthorizationChallengeResponse x Source #

to :: Rep AuthorizationChallengeResponse x -> AuthorizationChallengeResponse Source #

ToJSON AuthorizationChallengeResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

toJSON :: AuthorizationChallengeResponse -> Value Source #

toEncoding :: AuthorizationChallengeResponse -> Encoding Source #

toJSONList :: [AuthorizationChallengeResponse] -> Value Source #

toEncodingList :: [AuthorizationChallengeResponse] -> Encoding Source #

FromJSON AuthorizationChallengeResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

parseJSON :: Value -> Parser AuthorizationChallengeResponse Source #

parseJSONList :: Value -> Parser [AuthorizationChallengeResponse] Source #

NFData AuthorizationChallengeResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

rnf :: AuthorizationChallengeResponse -> () Source #

ToJSONPB AuthorizationChallengeResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

toJSONPB :: AuthorizationChallengeResponse -> Options -> Value Source #

toEncodingPB :: AuthorizationChallengeResponse -> Options -> Encoding Source #

FromJSONPB AuthorizationChallengeResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

parseJSONPB :: Value -> Parser AuthorizationChallengeResponse Source #

HasDefault AuthorizationChallengeResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

def :: AuthorizationChallengeResponse Source #

isDefault :: AuthorizationChallengeResponse -> Bool Source #

Named AuthorizationChallengeResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

nameOf :: IsString string => Proxy# AuthorizationChallengeResponse -> string Source #

Message AuthorizationChallengeResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

encodeMessage :: FieldNumber -> AuthorizationChallengeResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage AuthorizationChallengeResponse Source #

dotProto :: Proxy# AuthorizationChallengeResponse -> [DotProtoField] Source #

ToSchema AuthorizationChallengeResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

declareNamedSchema :: Proxy AuthorizationChallengeResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep AuthorizationChallengeResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

type Rep AuthorizationChallengeResponse = D1 ('MetaData "AuthorizationChallengeResponse" "Data.Sawtooth.Authorization" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'True) (C1 ('MetaCons "AuthorizationChallengeResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "authorizationChallengeResponsePayload") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString)))

data AuthorizationChallengeSubmit Source #

Constructors

AuthorizationChallengeSubmit 

Fields

Instances

Instances details
Eq AuthorizationChallengeSubmit Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

(==) :: AuthorizationChallengeSubmit -> AuthorizationChallengeSubmit -> Bool Source #

(/=) :: AuthorizationChallengeSubmit -> AuthorizationChallengeSubmit -> Bool Source #

Ord AuthorizationChallengeSubmit Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

compare :: AuthorizationChallengeSubmit -> AuthorizationChallengeSubmit -> Ordering Source #

(<) :: AuthorizationChallengeSubmit -> AuthorizationChallengeSubmit -> Bool Source #

(<=) :: AuthorizationChallengeSubmit -> AuthorizationChallengeSubmit -> Bool Source #

(>) :: AuthorizationChallengeSubmit -> AuthorizationChallengeSubmit -> Bool Source #

(>=) :: AuthorizationChallengeSubmit -> AuthorizationChallengeSubmit -> Bool Source #

max :: AuthorizationChallengeSubmit -> AuthorizationChallengeSubmit -> AuthorizationChallengeSubmit Source #

min :: AuthorizationChallengeSubmit -> AuthorizationChallengeSubmit -> AuthorizationChallengeSubmit Source #

Show AuthorizationChallengeSubmit Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

showsPrec :: Int -> AuthorizationChallengeSubmit -> ShowS Source #

show :: AuthorizationChallengeSubmit -> String Source #

showList :: [AuthorizationChallengeSubmit] -> ShowS Source #

Generic AuthorizationChallengeSubmit Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Associated Types

type Rep AuthorizationChallengeSubmit :: Type -> Type Source #

Methods

from :: AuthorizationChallengeSubmit -> Rep AuthorizationChallengeSubmit x Source #

to :: Rep AuthorizationChallengeSubmit x -> AuthorizationChallengeSubmit Source #

ToJSON AuthorizationChallengeSubmit Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

toJSON :: AuthorizationChallengeSubmit -> Value Source #

toEncoding :: AuthorizationChallengeSubmit -> Encoding Source #

toJSONList :: [AuthorizationChallengeSubmit] -> Value Source #

toEncodingList :: [AuthorizationChallengeSubmit] -> Encoding Source #

FromJSON AuthorizationChallengeSubmit Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

parseJSON :: Value -> Parser AuthorizationChallengeSubmit Source #

parseJSONList :: Value -> Parser [AuthorizationChallengeSubmit] Source #

NFData AuthorizationChallengeSubmit Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

rnf :: AuthorizationChallengeSubmit -> () Source #

ToJSONPB AuthorizationChallengeSubmit Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

toJSONPB :: AuthorizationChallengeSubmit -> Options -> Value Source #

toEncodingPB :: AuthorizationChallengeSubmit -> Options -> Encoding Source #

FromJSONPB AuthorizationChallengeSubmit Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

parseJSONPB :: Value -> Parser AuthorizationChallengeSubmit Source #

HasDefault AuthorizationChallengeSubmit Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

def :: AuthorizationChallengeSubmit Source #

isDefault :: AuthorizationChallengeSubmit -> Bool Source #

Named AuthorizationChallengeSubmit Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

nameOf :: IsString string => Proxy# AuthorizationChallengeSubmit -> string Source #

Message AuthorizationChallengeSubmit Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

encodeMessage :: FieldNumber -> AuthorizationChallengeSubmit -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage AuthorizationChallengeSubmit Source #

dotProto :: Proxy# AuthorizationChallengeSubmit -> [DotProtoField] Source #

ToSchema AuthorizationChallengeSubmit Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

declareNamedSchema :: Proxy AuthorizationChallengeSubmit -> Declare (Definitions Schema) NamedSchema Source #

type Rep AuthorizationChallengeSubmit Source # 
Instance details

Defined in Data.Sawtooth.Authorization

type Rep AuthorizationChallengeSubmit = D1 ('MetaData "AuthorizationChallengeSubmit" "Data.Sawtooth.Authorization" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "AuthorizationChallengeSubmit" 'PrefixI 'True) (S1 ('MetaSel ('Just "authorizationChallengeSubmitPublicKey") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: (S1 ('MetaSel ('Just "authorizationChallengeSubmitSignature") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "authorizationChallengeSubmitRoles") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector (Enumerated RoleType))))))

newtype AuthorizationChallengeResult Source #

Constructors

AuthorizationChallengeResult 

Fields

Instances

Instances details
Eq AuthorizationChallengeResult Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

(==) :: AuthorizationChallengeResult -> AuthorizationChallengeResult -> Bool Source #

(/=) :: AuthorizationChallengeResult -> AuthorizationChallengeResult -> Bool Source #

Ord AuthorizationChallengeResult Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

compare :: AuthorizationChallengeResult -> AuthorizationChallengeResult -> Ordering Source #

(<) :: AuthorizationChallengeResult -> AuthorizationChallengeResult -> Bool Source #

(<=) :: AuthorizationChallengeResult -> AuthorizationChallengeResult -> Bool Source #

(>) :: AuthorizationChallengeResult -> AuthorizationChallengeResult -> Bool Source #

(>=) :: AuthorizationChallengeResult -> AuthorizationChallengeResult -> Bool Source #

max :: AuthorizationChallengeResult -> AuthorizationChallengeResult -> AuthorizationChallengeResult Source #

min :: AuthorizationChallengeResult -> AuthorizationChallengeResult -> AuthorizationChallengeResult Source #

Show AuthorizationChallengeResult Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

showsPrec :: Int -> AuthorizationChallengeResult -> ShowS Source #

show :: AuthorizationChallengeResult -> String Source #

showList :: [AuthorizationChallengeResult] -> ShowS Source #

Generic AuthorizationChallengeResult Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Associated Types

type Rep AuthorizationChallengeResult :: Type -> Type Source #

Methods

from :: AuthorizationChallengeResult -> Rep AuthorizationChallengeResult x Source #

to :: Rep AuthorizationChallengeResult x -> AuthorizationChallengeResult Source #

ToJSON AuthorizationChallengeResult Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

toJSON :: AuthorizationChallengeResult -> Value Source #

toEncoding :: AuthorizationChallengeResult -> Encoding Source #

toJSONList :: [AuthorizationChallengeResult] -> Value Source #

toEncodingList :: [AuthorizationChallengeResult] -> Encoding Source #

FromJSON AuthorizationChallengeResult Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

parseJSON :: Value -> Parser AuthorizationChallengeResult Source #

parseJSONList :: Value -> Parser [AuthorizationChallengeResult] Source #

NFData AuthorizationChallengeResult Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

rnf :: AuthorizationChallengeResult -> () Source #

ToJSONPB AuthorizationChallengeResult Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

toJSONPB :: AuthorizationChallengeResult -> Options -> Value Source #

toEncodingPB :: AuthorizationChallengeResult -> Options -> Encoding Source #

FromJSONPB AuthorizationChallengeResult Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

parseJSONPB :: Value -> Parser AuthorizationChallengeResult Source #

HasDefault AuthorizationChallengeResult Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

def :: AuthorizationChallengeResult Source #

isDefault :: AuthorizationChallengeResult -> Bool Source #

Named AuthorizationChallengeResult Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

nameOf :: IsString string => Proxy# AuthorizationChallengeResult -> string Source #

Message AuthorizationChallengeResult Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

encodeMessage :: FieldNumber -> AuthorizationChallengeResult -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage AuthorizationChallengeResult Source #

dotProto :: Proxy# AuthorizationChallengeResult -> [DotProtoField] Source #

ToSchema AuthorizationChallengeResult Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

declareNamedSchema :: Proxy AuthorizationChallengeResult -> Declare (Definitions Schema) NamedSchema Source #

type Rep AuthorizationChallengeResult Source # 
Instance details

Defined in Data.Sawtooth.Authorization

type Rep AuthorizationChallengeResult = D1 ('MetaData "AuthorizationChallengeResult" "Data.Sawtooth.Authorization" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'True) (C1 ('MetaCons "AuthorizationChallengeResult" 'PrefixI 'True) (S1 ('MetaSel ('Just "authorizationChallengeResultRoles") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector (Enumerated RoleType)))))
\ No newline at end of file +Data.Sawtooth.Authorization
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types
Safe HaskellNone
LanguageHaskell2010

Data.Sawtooth.Authorization

Description

Generated by Haskell protocol buffer compiler. DO NOT EDIT!

Documentation

newtype ConnectionRequest Source #

Constructors

ConnectionRequest 

Fields

Instances

Instances details
Eq ConnectionRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

(==) :: ConnectionRequest -> ConnectionRequest -> Bool Source #

(/=) :: ConnectionRequest -> ConnectionRequest -> Bool Source #

Ord ConnectionRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

compare :: ConnectionRequest -> ConnectionRequest -> Ordering Source #

(<) :: ConnectionRequest -> ConnectionRequest -> Bool Source #

(<=) :: ConnectionRequest -> ConnectionRequest -> Bool Source #

(>) :: ConnectionRequest -> ConnectionRequest -> Bool Source #

(>=) :: ConnectionRequest -> ConnectionRequest -> Bool Source #

max :: ConnectionRequest -> ConnectionRequest -> ConnectionRequest Source #

min :: ConnectionRequest -> ConnectionRequest -> ConnectionRequest Source #

Show ConnectionRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

showsPrec :: Int -> ConnectionRequest -> ShowS Source #

show :: ConnectionRequest -> String Source #

showList :: [ConnectionRequest] -> ShowS Source #

Generic ConnectionRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Associated Types

type Rep ConnectionRequest :: Type -> Type Source #

Methods

from :: ConnectionRequest -> Rep ConnectionRequest x Source #

to :: Rep ConnectionRequest x -> ConnectionRequest Source #

ToJSON ConnectionRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

toJSON :: ConnectionRequest -> Value Source #

toEncoding :: ConnectionRequest -> Encoding Source #

toJSONList :: [ConnectionRequest] -> Value Source #

toEncodingList :: [ConnectionRequest] -> Encoding Source #

FromJSON ConnectionRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

parseJSON :: Value -> Parser ConnectionRequest Source #

parseJSONList :: Value -> Parser [ConnectionRequest] Source #

NFData ConnectionRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

rnf :: ConnectionRequest -> () Source #

ToJSONPB ConnectionRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

toJSONPB :: ConnectionRequest -> Options -> Value Source #

toEncodingPB :: ConnectionRequest -> Options -> Encoding Source #

FromJSONPB ConnectionRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

parseJSONPB :: Value -> Parser ConnectionRequest Source #

HasDefault ConnectionRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

def :: ConnectionRequest Source #

isDefault :: ConnectionRequest -> Bool Source #

Named ConnectionRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

nameOf :: IsString string => Proxy# ConnectionRequest -> string Source #

Message ConnectionRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

encodeMessage :: FieldNumber -> ConnectionRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConnectionRequest Source #

dotProto :: Proxy# ConnectionRequest -> [DotProtoField] Source #

ToSchema ConnectionRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

declareNamedSchema :: Proxy ConnectionRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConnectionRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

type Rep ConnectionRequest = D1 ('MetaData "ConnectionRequest" "Data.Sawtooth.Authorization" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'True) (C1 ('MetaCons "ConnectionRequest" 'PrefixI 'True) (S1 ('MetaSel ('Just "connectionRequestEndpoint") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)))

data RoleType Source #

Constructors

RoleTypeROLE_TYPE_UNSET 
RoleTypeALL 
RoleTypeNETWORK 

Instances

Instances details
Bounded RoleType Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

minBound :: RoleType Source #

maxBound :: RoleType Source #

Eq RoleType Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

(==) :: RoleType -> RoleType -> Bool Source #

(/=) :: RoleType -> RoleType -> Bool Source #

Ord RoleType Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

compare :: RoleType -> RoleType -> Ordering Source #

(<) :: RoleType -> RoleType -> Bool Source #

(<=) :: RoleType -> RoleType -> Bool Source #

(>) :: RoleType -> RoleType -> Bool Source #

(>=) :: RoleType -> RoleType -> Bool Source #

max :: RoleType -> RoleType -> RoleType Source #

min :: RoleType -> RoleType -> RoleType Source #

Show RoleType Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

showsPrec :: Int -> RoleType -> ShowS Source #

show :: RoleType -> String Source #

showList :: [RoleType] -> ShowS Source #

Generic RoleType Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Associated Types

type Rep RoleType :: Type -> Type Source #

Methods

from :: RoleType -> Rep RoleType x Source #

to :: Rep RoleType x -> RoleType Source #

ToJSON RoleType Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

toJSON :: RoleType -> Value Source #

toEncoding :: RoleType -> Encoding Source #

toJSONList :: [RoleType] -> Value Source #

toEncodingList :: [RoleType] -> Encoding Source #

FromJSON RoleType Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

parseJSON :: Value -> Parser RoleType Source #

parseJSONList :: Value -> Parser [RoleType] Source #

NFData RoleType Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

rnf :: RoleType -> () Source #

ProtoEnum RoleType Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

toProtoEnumMay :: Int32 -> Maybe RoleType Source #

fromProtoEnum :: RoleType -> Int32 Source #

ToJSONPB RoleType Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

toJSONPB :: RoleType -> Options -> Value Source #

toEncodingPB :: RoleType -> Options -> Encoding Source #

FromJSONPB RoleType Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

parseJSONPB :: Value -> Parser RoleType Source #

HasDefault RoleType Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

def :: RoleType Source #

isDefault :: RoleType -> Bool Source #

Named RoleType Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

nameOf :: IsString string => Proxy# RoleType -> string Source #

Finite RoleType Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

enumerate :: IsString string => Proxy# RoleType -> [(string, Int32)] Source #

type Rep RoleType Source # 
Instance details

Defined in Data.Sawtooth.Authorization

type Rep RoleType = D1 ('MetaData "RoleType" "Data.Sawtooth.Authorization" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "RoleTypeROLE_TYPE_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "RoleTypeALL" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "RoleTypeNETWORK" 'PrefixI 'False) (U1 :: Type -> Type)))

data ConnectionResponse Source #

Constructors

ConnectionResponse 

Fields

Instances

Instances details
Eq ConnectionResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

(==) :: ConnectionResponse -> ConnectionResponse -> Bool Source #

(/=) :: ConnectionResponse -> ConnectionResponse -> Bool Source #

Ord ConnectionResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

compare :: ConnectionResponse -> ConnectionResponse -> Ordering Source #

(<) :: ConnectionResponse -> ConnectionResponse -> Bool Source #

(<=) :: ConnectionResponse -> ConnectionResponse -> Bool Source #

(>) :: ConnectionResponse -> ConnectionResponse -> Bool Source #

(>=) :: ConnectionResponse -> ConnectionResponse -> Bool Source #

max :: ConnectionResponse -> ConnectionResponse -> ConnectionResponse Source #

min :: ConnectionResponse -> ConnectionResponse -> ConnectionResponse Source #

Show ConnectionResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

showsPrec :: Int -> ConnectionResponse -> ShowS Source #

show :: ConnectionResponse -> String Source #

showList :: [ConnectionResponse] -> ShowS Source #

Generic ConnectionResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Associated Types

type Rep ConnectionResponse :: Type -> Type Source #

Methods

from :: ConnectionResponse -> Rep ConnectionResponse x Source #

to :: Rep ConnectionResponse x -> ConnectionResponse Source #

ToJSON ConnectionResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

toJSON :: ConnectionResponse -> Value Source #

toEncoding :: ConnectionResponse -> Encoding Source #

toJSONList :: [ConnectionResponse] -> Value Source #

toEncodingList :: [ConnectionResponse] -> Encoding Source #

FromJSON ConnectionResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

parseJSON :: Value -> Parser ConnectionResponse Source #

parseJSONList :: Value -> Parser [ConnectionResponse] Source #

NFData ConnectionResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

rnf :: ConnectionResponse -> () Source #

ToJSONPB ConnectionResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

toJSONPB :: ConnectionResponse -> Options -> Value Source #

toEncodingPB :: ConnectionResponse -> Options -> Encoding Source #

FromJSONPB ConnectionResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

parseJSONPB :: Value -> Parser ConnectionResponse Source #

HasDefault ConnectionResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

def :: ConnectionResponse Source #

isDefault :: ConnectionResponse -> Bool Source #

Named ConnectionResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

nameOf :: IsString string => Proxy# ConnectionResponse -> string Source #

Message ConnectionResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

encodeMessage :: FieldNumber -> ConnectionResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConnectionResponse Source #

dotProto :: Proxy# ConnectionResponse -> [DotProtoField] Source #

ToSchema ConnectionResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

declareNamedSchema :: Proxy ConnectionResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConnectionResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

type Rep ConnectionResponse = D1 ('MetaData "ConnectionResponse" "Data.Sawtooth.Authorization" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "ConnectionResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "connectionResponseRoles") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector ConnectionResponse_RoleEntry)) :*: S1 ('MetaSel ('Just "connectionResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated ConnectionResponse_Status))))

data ConnectionResponse_Status Source #

Constructors

ConnectionResponse_StatusSTATUS_UNSET 
ConnectionResponse_StatusOK 
ConnectionResponse_StatusERROR 

Instances

Instances details
Bounded ConnectionResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

minBound :: ConnectionResponse_Status Source #

maxBound :: ConnectionResponse_Status Source #

Eq ConnectionResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

(==) :: ConnectionResponse_Status -> ConnectionResponse_Status -> Bool Source #

(/=) :: ConnectionResponse_Status -> ConnectionResponse_Status -> Bool Source #

Ord ConnectionResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

compare :: ConnectionResponse_Status -> ConnectionResponse_Status -> Ordering Source #

(<) :: ConnectionResponse_Status -> ConnectionResponse_Status -> Bool Source #

(<=) :: ConnectionResponse_Status -> ConnectionResponse_Status -> Bool Source #

(>) :: ConnectionResponse_Status -> ConnectionResponse_Status -> Bool Source #

(>=) :: ConnectionResponse_Status -> ConnectionResponse_Status -> Bool Source #

max :: ConnectionResponse_Status -> ConnectionResponse_Status -> ConnectionResponse_Status Source #

min :: ConnectionResponse_Status -> ConnectionResponse_Status -> ConnectionResponse_Status Source #

Show ConnectionResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

showsPrec :: Int -> ConnectionResponse_Status -> ShowS Source #

show :: ConnectionResponse_Status -> String Source #

showList :: [ConnectionResponse_Status] -> ShowS Source #

Generic ConnectionResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Associated Types

type Rep ConnectionResponse_Status :: Type -> Type Source #

Methods

from :: ConnectionResponse_Status -> Rep ConnectionResponse_Status x Source #

to :: Rep ConnectionResponse_Status x -> ConnectionResponse_Status Source #

ToJSON ConnectionResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

toJSON :: ConnectionResponse_Status -> Value Source #

toEncoding :: ConnectionResponse_Status -> Encoding Source #

toJSONList :: [ConnectionResponse_Status] -> Value Source #

toEncodingList :: [ConnectionResponse_Status] -> Encoding Source #

FromJSON ConnectionResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

parseJSON :: Value -> Parser ConnectionResponse_Status Source #

parseJSONList :: Value -> Parser [ConnectionResponse_Status] Source #

NFData ConnectionResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

rnf :: ConnectionResponse_Status -> () Source #

ProtoEnum ConnectionResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

toProtoEnumMay :: Int32 -> Maybe ConnectionResponse_Status Source #

fromProtoEnum :: ConnectionResponse_Status -> Int32 Source #

ToJSONPB ConnectionResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

toJSONPB :: ConnectionResponse_Status -> Options -> Value Source #

toEncodingPB :: ConnectionResponse_Status -> Options -> Encoding Source #

FromJSONPB ConnectionResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

parseJSONPB :: Value -> Parser ConnectionResponse_Status Source #

HasDefault ConnectionResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

def :: ConnectionResponse_Status Source #

isDefault :: ConnectionResponse_Status -> Bool Source #

Named ConnectionResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

nameOf :: IsString string => Proxy# ConnectionResponse_Status -> string Source #

Finite ConnectionResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

enumerate :: IsString string => Proxy# ConnectionResponse_Status -> [(string, Int32)] Source #

type Rep ConnectionResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Authorization

type Rep ConnectionResponse_Status = D1 ('MetaData "ConnectionResponse_Status" "Data.Sawtooth.Authorization" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "ConnectionResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "ConnectionResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConnectionResponse_StatusERROR" 'PrefixI 'False) (U1 :: Type -> Type)))

data ConnectionResponse_AuthorizationType Source #

Constructors

ConnectionResponse_AuthorizationTypeAUTHORIZATION_TYPE_UNSET 
ConnectionResponse_AuthorizationTypeTRUST 
ConnectionResponse_AuthorizationTypeCHALLENGE 

Instances

Instances details
Bounded ConnectionResponse_AuthorizationType Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

minBound :: ConnectionResponse_AuthorizationType Source #

maxBound :: ConnectionResponse_AuthorizationType Source #

Eq ConnectionResponse_AuthorizationType Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

(==) :: ConnectionResponse_AuthorizationType -> ConnectionResponse_AuthorizationType -> Bool Source #

(/=) :: ConnectionResponse_AuthorizationType -> ConnectionResponse_AuthorizationType -> Bool Source #

Ord ConnectionResponse_AuthorizationType Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

compare :: ConnectionResponse_AuthorizationType -> ConnectionResponse_AuthorizationType -> Ordering Source #

(<) :: ConnectionResponse_AuthorizationType -> ConnectionResponse_AuthorizationType -> Bool Source #

(<=) :: ConnectionResponse_AuthorizationType -> ConnectionResponse_AuthorizationType -> Bool Source #

(>) :: ConnectionResponse_AuthorizationType -> ConnectionResponse_AuthorizationType -> Bool Source #

(>=) :: ConnectionResponse_AuthorizationType -> ConnectionResponse_AuthorizationType -> Bool Source #

max :: ConnectionResponse_AuthorizationType -> ConnectionResponse_AuthorizationType -> ConnectionResponse_AuthorizationType Source #

min :: ConnectionResponse_AuthorizationType -> ConnectionResponse_AuthorizationType -> ConnectionResponse_AuthorizationType Source #

Show ConnectionResponse_AuthorizationType Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

showsPrec :: Int -> ConnectionResponse_AuthorizationType -> ShowS Source #

show :: ConnectionResponse_AuthorizationType -> String Source #

showList :: [ConnectionResponse_AuthorizationType] -> ShowS Source #

Generic ConnectionResponse_AuthorizationType Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Associated Types

type Rep ConnectionResponse_AuthorizationType :: Type -> Type Source #

Methods

from :: ConnectionResponse_AuthorizationType -> Rep ConnectionResponse_AuthorizationType x Source #

to :: Rep ConnectionResponse_AuthorizationType x -> ConnectionResponse_AuthorizationType Source #

ToJSON ConnectionResponse_AuthorizationType Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

toJSON :: ConnectionResponse_AuthorizationType -> Value Source #

toEncoding :: ConnectionResponse_AuthorizationType -> Encoding Source #

toJSONList :: [ConnectionResponse_AuthorizationType] -> Value Source #

toEncodingList :: [ConnectionResponse_AuthorizationType] -> Encoding Source #

FromJSON ConnectionResponse_AuthorizationType Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

parseJSON :: Value -> Parser ConnectionResponse_AuthorizationType Source #

parseJSONList :: Value -> Parser [ConnectionResponse_AuthorizationType] Source #

NFData ConnectionResponse_AuthorizationType Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

rnf :: ConnectionResponse_AuthorizationType -> () Source #

ProtoEnum ConnectionResponse_AuthorizationType Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

toProtoEnumMay :: Int32 -> Maybe ConnectionResponse_AuthorizationType Source #

fromProtoEnum :: ConnectionResponse_AuthorizationType -> Int32 Source #

ToJSONPB ConnectionResponse_AuthorizationType Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

toJSONPB :: ConnectionResponse_AuthorizationType -> Options -> Value Source #

toEncodingPB :: ConnectionResponse_AuthorizationType -> Options -> Encoding Source #

FromJSONPB ConnectionResponse_AuthorizationType Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

parseJSONPB :: Value -> Parser ConnectionResponse_AuthorizationType Source #

HasDefault ConnectionResponse_AuthorizationType Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

def :: ConnectionResponse_AuthorizationType Source #

isDefault :: ConnectionResponse_AuthorizationType -> Bool Source #

Named ConnectionResponse_AuthorizationType Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

nameOf :: IsString string => Proxy# ConnectionResponse_AuthorizationType -> string Source #

Finite ConnectionResponse_AuthorizationType Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

enumerate :: IsString string => Proxy# ConnectionResponse_AuthorizationType -> [(string, Int32)] Source #

type Rep ConnectionResponse_AuthorizationType Source # 
Instance details

Defined in Data.Sawtooth.Authorization

type Rep ConnectionResponse_AuthorizationType = D1 ('MetaData "ConnectionResponse_AuthorizationType" "Data.Sawtooth.Authorization" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "ConnectionResponse_AuthorizationTypeAUTHORIZATION_TYPE_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "ConnectionResponse_AuthorizationTypeTRUST" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConnectionResponse_AuthorizationTypeCHALLENGE" 'PrefixI 'False) (U1 :: Type -> Type)))

data ConnectionResponse_RoleEntry Source #

Constructors

ConnectionResponse_RoleEntry 

Fields

Instances

Instances details
Eq ConnectionResponse_RoleEntry Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

(==) :: ConnectionResponse_RoleEntry -> ConnectionResponse_RoleEntry -> Bool Source #

(/=) :: ConnectionResponse_RoleEntry -> ConnectionResponse_RoleEntry -> Bool Source #

Ord ConnectionResponse_RoleEntry Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

compare :: ConnectionResponse_RoleEntry -> ConnectionResponse_RoleEntry -> Ordering Source #

(<) :: ConnectionResponse_RoleEntry -> ConnectionResponse_RoleEntry -> Bool Source #

(<=) :: ConnectionResponse_RoleEntry -> ConnectionResponse_RoleEntry -> Bool Source #

(>) :: ConnectionResponse_RoleEntry -> ConnectionResponse_RoleEntry -> Bool Source #

(>=) :: ConnectionResponse_RoleEntry -> ConnectionResponse_RoleEntry -> Bool Source #

max :: ConnectionResponse_RoleEntry -> ConnectionResponse_RoleEntry -> ConnectionResponse_RoleEntry Source #

min :: ConnectionResponse_RoleEntry -> ConnectionResponse_RoleEntry -> ConnectionResponse_RoleEntry Source #

Show ConnectionResponse_RoleEntry Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

showsPrec :: Int -> ConnectionResponse_RoleEntry -> ShowS Source #

show :: ConnectionResponse_RoleEntry -> String Source #

showList :: [ConnectionResponse_RoleEntry] -> ShowS Source #

Generic ConnectionResponse_RoleEntry Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Associated Types

type Rep ConnectionResponse_RoleEntry :: Type -> Type Source #

Methods

from :: ConnectionResponse_RoleEntry -> Rep ConnectionResponse_RoleEntry x Source #

to :: Rep ConnectionResponse_RoleEntry x -> ConnectionResponse_RoleEntry Source #

ToJSON ConnectionResponse_RoleEntry Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

toJSON :: ConnectionResponse_RoleEntry -> Value Source #

toEncoding :: ConnectionResponse_RoleEntry -> Encoding Source #

toJSONList :: [ConnectionResponse_RoleEntry] -> Value Source #

toEncodingList :: [ConnectionResponse_RoleEntry] -> Encoding Source #

FromJSON ConnectionResponse_RoleEntry Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

parseJSON :: Value -> Parser ConnectionResponse_RoleEntry Source #

parseJSONList :: Value -> Parser [ConnectionResponse_RoleEntry] Source #

NFData ConnectionResponse_RoleEntry Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

rnf :: ConnectionResponse_RoleEntry -> () Source #

ToJSONPB ConnectionResponse_RoleEntry Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

toJSONPB :: ConnectionResponse_RoleEntry -> Options -> Value Source #

toEncodingPB :: ConnectionResponse_RoleEntry -> Options -> Encoding Source #

FromJSONPB ConnectionResponse_RoleEntry Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

parseJSONPB :: Value -> Parser ConnectionResponse_RoleEntry Source #

HasDefault ConnectionResponse_RoleEntry Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

def :: ConnectionResponse_RoleEntry Source #

isDefault :: ConnectionResponse_RoleEntry -> Bool Source #

Named ConnectionResponse_RoleEntry Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

nameOf :: IsString string => Proxy# ConnectionResponse_RoleEntry -> string Source #

Message ConnectionResponse_RoleEntry Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

encodeMessage :: FieldNumber -> ConnectionResponse_RoleEntry -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConnectionResponse_RoleEntry Source #

dotProto :: Proxy# ConnectionResponse_RoleEntry -> [DotProtoField] Source #

ToSchema ConnectionResponse_RoleEntry Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

declareNamedSchema :: Proxy ConnectionResponse_RoleEntry -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConnectionResponse_RoleEntry Source # 
Instance details

Defined in Data.Sawtooth.Authorization

type Rep ConnectionResponse_RoleEntry = D1 ('MetaData "ConnectionResponse_RoleEntry" "Data.Sawtooth.Authorization" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "ConnectionResponse_RoleEntry" 'PrefixI 'True) (S1 ('MetaSel ('Just "connectionResponse_RoleEntryRole") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated RoleType)) :*: S1 ('MetaSel ('Just "connectionResponse_RoleEntryAuthType") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated ConnectionResponse_AuthorizationType))))

data AuthorizationTrustRequest Source #

Constructors

AuthorizationTrustRequest 

Fields

Instances

Instances details
Eq AuthorizationTrustRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

(==) :: AuthorizationTrustRequest -> AuthorizationTrustRequest -> Bool Source #

(/=) :: AuthorizationTrustRequest -> AuthorizationTrustRequest -> Bool Source #

Ord AuthorizationTrustRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

compare :: AuthorizationTrustRequest -> AuthorizationTrustRequest -> Ordering Source #

(<) :: AuthorizationTrustRequest -> AuthorizationTrustRequest -> Bool Source #

(<=) :: AuthorizationTrustRequest -> AuthorizationTrustRequest -> Bool Source #

(>) :: AuthorizationTrustRequest -> AuthorizationTrustRequest -> Bool Source #

(>=) :: AuthorizationTrustRequest -> AuthorizationTrustRequest -> Bool Source #

max :: AuthorizationTrustRequest -> AuthorizationTrustRequest -> AuthorizationTrustRequest Source #

min :: AuthorizationTrustRequest -> AuthorizationTrustRequest -> AuthorizationTrustRequest Source #

Show AuthorizationTrustRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

showsPrec :: Int -> AuthorizationTrustRequest -> ShowS Source #

show :: AuthorizationTrustRequest -> String Source #

showList :: [AuthorizationTrustRequest] -> ShowS Source #

Generic AuthorizationTrustRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Associated Types

type Rep AuthorizationTrustRequest :: Type -> Type Source #

Methods

from :: AuthorizationTrustRequest -> Rep AuthorizationTrustRequest x Source #

to :: Rep AuthorizationTrustRequest x -> AuthorizationTrustRequest Source #

ToJSON AuthorizationTrustRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

toJSON :: AuthorizationTrustRequest -> Value Source #

toEncoding :: AuthorizationTrustRequest -> Encoding Source #

toJSONList :: [AuthorizationTrustRequest] -> Value Source #

toEncodingList :: [AuthorizationTrustRequest] -> Encoding Source #

FromJSON AuthorizationTrustRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

parseJSON :: Value -> Parser AuthorizationTrustRequest Source #

parseJSONList :: Value -> Parser [AuthorizationTrustRequest] Source #

NFData AuthorizationTrustRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

rnf :: AuthorizationTrustRequest -> () Source #

ToJSONPB AuthorizationTrustRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

toJSONPB :: AuthorizationTrustRequest -> Options -> Value Source #

toEncodingPB :: AuthorizationTrustRequest -> Options -> Encoding Source #

FromJSONPB AuthorizationTrustRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

parseJSONPB :: Value -> Parser AuthorizationTrustRequest Source #

HasDefault AuthorizationTrustRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

def :: AuthorizationTrustRequest Source #

isDefault :: AuthorizationTrustRequest -> Bool Source #

Named AuthorizationTrustRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

nameOf :: IsString string => Proxy# AuthorizationTrustRequest -> string Source #

Message AuthorizationTrustRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

encodeMessage :: FieldNumber -> AuthorizationTrustRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage AuthorizationTrustRequest Source #

dotProto :: Proxy# AuthorizationTrustRequest -> [DotProtoField] Source #

ToSchema AuthorizationTrustRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

declareNamedSchema :: Proxy AuthorizationTrustRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep AuthorizationTrustRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

type Rep AuthorizationTrustRequest = D1 ('MetaData "AuthorizationTrustRequest" "Data.Sawtooth.Authorization" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "AuthorizationTrustRequest" 'PrefixI 'True) (S1 ('MetaSel ('Just "authorizationTrustRequestRoles") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector (Enumerated RoleType))) :*: S1 ('MetaSel ('Just "authorizationTrustRequestPublicKey") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)))

newtype AuthorizationTrustResponse Source #

Constructors

AuthorizationTrustResponse 

Fields

Instances

Instances details
Eq AuthorizationTrustResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

(==) :: AuthorizationTrustResponse -> AuthorizationTrustResponse -> Bool Source #

(/=) :: AuthorizationTrustResponse -> AuthorizationTrustResponse -> Bool Source #

Ord AuthorizationTrustResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

compare :: AuthorizationTrustResponse -> AuthorizationTrustResponse -> Ordering Source #

(<) :: AuthorizationTrustResponse -> AuthorizationTrustResponse -> Bool Source #

(<=) :: AuthorizationTrustResponse -> AuthorizationTrustResponse -> Bool Source #

(>) :: AuthorizationTrustResponse -> AuthorizationTrustResponse -> Bool Source #

(>=) :: AuthorizationTrustResponse -> AuthorizationTrustResponse -> Bool Source #

max :: AuthorizationTrustResponse -> AuthorizationTrustResponse -> AuthorizationTrustResponse Source #

min :: AuthorizationTrustResponse -> AuthorizationTrustResponse -> AuthorizationTrustResponse Source #

Show AuthorizationTrustResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

showsPrec :: Int -> AuthorizationTrustResponse -> ShowS Source #

show :: AuthorizationTrustResponse -> String Source #

showList :: [AuthorizationTrustResponse] -> ShowS Source #

Generic AuthorizationTrustResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Associated Types

type Rep AuthorizationTrustResponse :: Type -> Type Source #

Methods

from :: AuthorizationTrustResponse -> Rep AuthorizationTrustResponse x Source #

to :: Rep AuthorizationTrustResponse x -> AuthorizationTrustResponse Source #

ToJSON AuthorizationTrustResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

toJSON :: AuthorizationTrustResponse -> Value Source #

toEncoding :: AuthorizationTrustResponse -> Encoding Source #

toJSONList :: [AuthorizationTrustResponse] -> Value Source #

toEncodingList :: [AuthorizationTrustResponse] -> Encoding Source #

FromJSON AuthorizationTrustResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

parseJSON :: Value -> Parser AuthorizationTrustResponse Source #

parseJSONList :: Value -> Parser [AuthorizationTrustResponse] Source #

NFData AuthorizationTrustResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

rnf :: AuthorizationTrustResponse -> () Source #

ToJSONPB AuthorizationTrustResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

toJSONPB :: AuthorizationTrustResponse -> Options -> Value Source #

toEncodingPB :: AuthorizationTrustResponse -> Options -> Encoding Source #

FromJSONPB AuthorizationTrustResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

parseJSONPB :: Value -> Parser AuthorizationTrustResponse Source #

HasDefault AuthorizationTrustResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

def :: AuthorizationTrustResponse Source #

isDefault :: AuthorizationTrustResponse -> Bool Source #

Named AuthorizationTrustResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

nameOf :: IsString string => Proxy# AuthorizationTrustResponse -> string Source #

Message AuthorizationTrustResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

encodeMessage :: FieldNumber -> AuthorizationTrustResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage AuthorizationTrustResponse Source #

dotProto :: Proxy# AuthorizationTrustResponse -> [DotProtoField] Source #

ToSchema AuthorizationTrustResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

declareNamedSchema :: Proxy AuthorizationTrustResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep AuthorizationTrustResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

type Rep AuthorizationTrustResponse = D1 ('MetaData "AuthorizationTrustResponse" "Data.Sawtooth.Authorization" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'True) (C1 ('MetaCons "AuthorizationTrustResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "authorizationTrustResponseRoles") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector (Enumerated RoleType)))))

newtype AuthorizationViolation Source #

Constructors

AuthorizationViolation 

Fields

Instances

Instances details
Eq AuthorizationViolation Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

(==) :: AuthorizationViolation -> AuthorizationViolation -> Bool Source #

(/=) :: AuthorizationViolation -> AuthorizationViolation -> Bool Source #

Ord AuthorizationViolation Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

compare :: AuthorizationViolation -> AuthorizationViolation -> Ordering Source #

(<) :: AuthorizationViolation -> AuthorizationViolation -> Bool Source #

(<=) :: AuthorizationViolation -> AuthorizationViolation -> Bool Source #

(>) :: AuthorizationViolation -> AuthorizationViolation -> Bool Source #

(>=) :: AuthorizationViolation -> AuthorizationViolation -> Bool Source #

max :: AuthorizationViolation -> AuthorizationViolation -> AuthorizationViolation Source #

min :: AuthorizationViolation -> AuthorizationViolation -> AuthorizationViolation Source #

Show AuthorizationViolation Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

showsPrec :: Int -> AuthorizationViolation -> ShowS Source #

show :: AuthorizationViolation -> String Source #

showList :: [AuthorizationViolation] -> ShowS Source #

Generic AuthorizationViolation Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Associated Types

type Rep AuthorizationViolation :: Type -> Type Source #

Methods

from :: AuthorizationViolation -> Rep AuthorizationViolation x Source #

to :: Rep AuthorizationViolation x -> AuthorizationViolation Source #

ToJSON AuthorizationViolation Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

toJSON :: AuthorizationViolation -> Value Source #

toEncoding :: AuthorizationViolation -> Encoding Source #

toJSONList :: [AuthorizationViolation] -> Value Source #

toEncodingList :: [AuthorizationViolation] -> Encoding Source #

FromJSON AuthorizationViolation Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

parseJSON :: Value -> Parser AuthorizationViolation Source #

parseJSONList :: Value -> Parser [AuthorizationViolation] Source #

NFData AuthorizationViolation Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

rnf :: AuthorizationViolation -> () Source #

ToJSONPB AuthorizationViolation Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

toJSONPB :: AuthorizationViolation -> Options -> Value Source #

toEncodingPB :: AuthorizationViolation -> Options -> Encoding Source #

FromJSONPB AuthorizationViolation Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

parseJSONPB :: Value -> Parser AuthorizationViolation Source #

HasDefault AuthorizationViolation Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

def :: AuthorizationViolation Source #

isDefault :: AuthorizationViolation -> Bool Source #

Named AuthorizationViolation Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

nameOf :: IsString string => Proxy# AuthorizationViolation -> string Source #

Message AuthorizationViolation Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

encodeMessage :: FieldNumber -> AuthorizationViolation -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage AuthorizationViolation Source #

dotProto :: Proxy# AuthorizationViolation -> [DotProtoField] Source #

ToSchema AuthorizationViolation Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

declareNamedSchema :: Proxy AuthorizationViolation -> Declare (Definitions Schema) NamedSchema Source #

type Rep AuthorizationViolation Source # 
Instance details

Defined in Data.Sawtooth.Authorization

type Rep AuthorizationViolation = D1 ('MetaData "AuthorizationViolation" "Data.Sawtooth.Authorization" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'True) (C1 ('MetaCons "AuthorizationViolation" 'PrefixI 'True) (S1 ('MetaSel ('Just "authorizationViolationViolation") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated RoleType))))

data AuthorizationChallengeRequest Source #

Constructors

AuthorizationChallengeRequest 

Instances

Instances details
Eq AuthorizationChallengeRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

(==) :: AuthorizationChallengeRequest -> AuthorizationChallengeRequest -> Bool Source #

(/=) :: AuthorizationChallengeRequest -> AuthorizationChallengeRequest -> Bool Source #

Ord AuthorizationChallengeRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

compare :: AuthorizationChallengeRequest -> AuthorizationChallengeRequest -> Ordering Source #

(<) :: AuthorizationChallengeRequest -> AuthorizationChallengeRequest -> Bool Source #

(<=) :: AuthorizationChallengeRequest -> AuthorizationChallengeRequest -> Bool Source #

(>) :: AuthorizationChallengeRequest -> AuthorizationChallengeRequest -> Bool Source #

(>=) :: AuthorizationChallengeRequest -> AuthorizationChallengeRequest -> Bool Source #

max :: AuthorizationChallengeRequest -> AuthorizationChallengeRequest -> AuthorizationChallengeRequest Source #

min :: AuthorizationChallengeRequest -> AuthorizationChallengeRequest -> AuthorizationChallengeRequest Source #

Show AuthorizationChallengeRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

showsPrec :: Int -> AuthorizationChallengeRequest -> ShowS Source #

show :: AuthorizationChallengeRequest -> String Source #

showList :: [AuthorizationChallengeRequest] -> ShowS Source #

Generic AuthorizationChallengeRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Associated Types

type Rep AuthorizationChallengeRequest :: Type -> Type Source #

Methods

from :: AuthorizationChallengeRequest -> Rep AuthorizationChallengeRequest x Source #

to :: Rep AuthorizationChallengeRequest x -> AuthorizationChallengeRequest Source #

ToJSON AuthorizationChallengeRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

toJSON :: AuthorizationChallengeRequest -> Value Source #

toEncoding :: AuthorizationChallengeRequest -> Encoding Source #

toJSONList :: [AuthorizationChallengeRequest] -> Value Source #

toEncodingList :: [AuthorizationChallengeRequest] -> Encoding Source #

FromJSON AuthorizationChallengeRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

parseJSON :: Value -> Parser AuthorizationChallengeRequest Source #

parseJSONList :: Value -> Parser [AuthorizationChallengeRequest] Source #

NFData AuthorizationChallengeRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

rnf :: AuthorizationChallengeRequest -> () Source #

ToJSONPB AuthorizationChallengeRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

toJSONPB :: AuthorizationChallengeRequest -> Options -> Value Source #

toEncodingPB :: AuthorizationChallengeRequest -> Options -> Encoding Source #

FromJSONPB AuthorizationChallengeRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

parseJSONPB :: Value -> Parser AuthorizationChallengeRequest Source #

HasDefault AuthorizationChallengeRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

def :: AuthorizationChallengeRequest Source #

isDefault :: AuthorizationChallengeRequest -> Bool Source #

Named AuthorizationChallengeRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

nameOf :: IsString string => Proxy# AuthorizationChallengeRequest -> string Source #

Message AuthorizationChallengeRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

encodeMessage :: FieldNumber -> AuthorizationChallengeRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage AuthorizationChallengeRequest Source #

dotProto :: Proxy# AuthorizationChallengeRequest -> [DotProtoField] Source #

ToSchema AuthorizationChallengeRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

declareNamedSchema :: Proxy AuthorizationChallengeRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep AuthorizationChallengeRequest Source # 
Instance details

Defined in Data.Sawtooth.Authorization

type Rep AuthorizationChallengeRequest = D1 ('MetaData "AuthorizationChallengeRequest" "Data.Sawtooth.Authorization" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "AuthorizationChallengeRequest" 'PrefixI 'False) (U1 :: Type -> Type))

newtype AuthorizationChallengeResponse Source #

Constructors

AuthorizationChallengeResponse 

Fields

Instances

Instances details
Eq AuthorizationChallengeResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

(==) :: AuthorizationChallengeResponse -> AuthorizationChallengeResponse -> Bool Source #

(/=) :: AuthorizationChallengeResponse -> AuthorizationChallengeResponse -> Bool Source #

Ord AuthorizationChallengeResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

compare :: AuthorizationChallengeResponse -> AuthorizationChallengeResponse -> Ordering Source #

(<) :: AuthorizationChallengeResponse -> AuthorizationChallengeResponse -> Bool Source #

(<=) :: AuthorizationChallengeResponse -> AuthorizationChallengeResponse -> Bool Source #

(>) :: AuthorizationChallengeResponse -> AuthorizationChallengeResponse -> Bool Source #

(>=) :: AuthorizationChallengeResponse -> AuthorizationChallengeResponse -> Bool Source #

max :: AuthorizationChallengeResponse -> AuthorizationChallengeResponse -> AuthorizationChallengeResponse Source #

min :: AuthorizationChallengeResponse -> AuthorizationChallengeResponse -> AuthorizationChallengeResponse Source #

Show AuthorizationChallengeResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

showsPrec :: Int -> AuthorizationChallengeResponse -> ShowS Source #

show :: AuthorizationChallengeResponse -> String Source #

showList :: [AuthorizationChallengeResponse] -> ShowS Source #

Generic AuthorizationChallengeResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Associated Types

type Rep AuthorizationChallengeResponse :: Type -> Type Source #

Methods

from :: AuthorizationChallengeResponse -> Rep AuthorizationChallengeResponse x Source #

to :: Rep AuthorizationChallengeResponse x -> AuthorizationChallengeResponse Source #

ToJSON AuthorizationChallengeResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

toJSON :: AuthorizationChallengeResponse -> Value Source #

toEncoding :: AuthorizationChallengeResponse -> Encoding Source #

toJSONList :: [AuthorizationChallengeResponse] -> Value Source #

toEncodingList :: [AuthorizationChallengeResponse] -> Encoding Source #

FromJSON AuthorizationChallengeResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

parseJSON :: Value -> Parser AuthorizationChallengeResponse Source #

parseJSONList :: Value -> Parser [AuthorizationChallengeResponse] Source #

NFData AuthorizationChallengeResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

rnf :: AuthorizationChallengeResponse -> () Source #

ToJSONPB AuthorizationChallengeResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

toJSONPB :: AuthorizationChallengeResponse -> Options -> Value Source #

toEncodingPB :: AuthorizationChallengeResponse -> Options -> Encoding Source #

FromJSONPB AuthorizationChallengeResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

parseJSONPB :: Value -> Parser AuthorizationChallengeResponse Source #

HasDefault AuthorizationChallengeResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

def :: AuthorizationChallengeResponse Source #

isDefault :: AuthorizationChallengeResponse -> Bool Source #

Named AuthorizationChallengeResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

nameOf :: IsString string => Proxy# AuthorizationChallengeResponse -> string Source #

Message AuthorizationChallengeResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

encodeMessage :: FieldNumber -> AuthorizationChallengeResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage AuthorizationChallengeResponse Source #

dotProto :: Proxy# AuthorizationChallengeResponse -> [DotProtoField] Source #

ToSchema AuthorizationChallengeResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

declareNamedSchema :: Proxy AuthorizationChallengeResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep AuthorizationChallengeResponse Source # 
Instance details

Defined in Data.Sawtooth.Authorization

type Rep AuthorizationChallengeResponse = D1 ('MetaData "AuthorizationChallengeResponse" "Data.Sawtooth.Authorization" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'True) (C1 ('MetaCons "AuthorizationChallengeResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "authorizationChallengeResponsePayload") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString)))

data AuthorizationChallengeSubmit Source #

Constructors

AuthorizationChallengeSubmit 

Fields

Instances

Instances details
Eq AuthorizationChallengeSubmit Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

(==) :: AuthorizationChallengeSubmit -> AuthorizationChallengeSubmit -> Bool Source #

(/=) :: AuthorizationChallengeSubmit -> AuthorizationChallengeSubmit -> Bool Source #

Ord AuthorizationChallengeSubmit Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

compare :: AuthorizationChallengeSubmit -> AuthorizationChallengeSubmit -> Ordering Source #

(<) :: AuthorizationChallengeSubmit -> AuthorizationChallengeSubmit -> Bool Source #

(<=) :: AuthorizationChallengeSubmit -> AuthorizationChallengeSubmit -> Bool Source #

(>) :: AuthorizationChallengeSubmit -> AuthorizationChallengeSubmit -> Bool Source #

(>=) :: AuthorizationChallengeSubmit -> AuthorizationChallengeSubmit -> Bool Source #

max :: AuthorizationChallengeSubmit -> AuthorizationChallengeSubmit -> AuthorizationChallengeSubmit Source #

min :: AuthorizationChallengeSubmit -> AuthorizationChallengeSubmit -> AuthorizationChallengeSubmit Source #

Show AuthorizationChallengeSubmit Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

showsPrec :: Int -> AuthorizationChallengeSubmit -> ShowS Source #

show :: AuthorizationChallengeSubmit -> String Source #

showList :: [AuthorizationChallengeSubmit] -> ShowS Source #

Generic AuthorizationChallengeSubmit Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Associated Types

type Rep AuthorizationChallengeSubmit :: Type -> Type Source #

Methods

from :: AuthorizationChallengeSubmit -> Rep AuthorizationChallengeSubmit x Source #

to :: Rep AuthorizationChallengeSubmit x -> AuthorizationChallengeSubmit Source #

ToJSON AuthorizationChallengeSubmit Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

toJSON :: AuthorizationChallengeSubmit -> Value Source #

toEncoding :: AuthorizationChallengeSubmit -> Encoding Source #

toJSONList :: [AuthorizationChallengeSubmit] -> Value Source #

toEncodingList :: [AuthorizationChallengeSubmit] -> Encoding Source #

FromJSON AuthorizationChallengeSubmit Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

parseJSON :: Value -> Parser AuthorizationChallengeSubmit Source #

parseJSONList :: Value -> Parser [AuthorizationChallengeSubmit] Source #

NFData AuthorizationChallengeSubmit Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

rnf :: AuthorizationChallengeSubmit -> () Source #

ToJSONPB AuthorizationChallengeSubmit Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

toJSONPB :: AuthorizationChallengeSubmit -> Options -> Value Source #

toEncodingPB :: AuthorizationChallengeSubmit -> Options -> Encoding Source #

FromJSONPB AuthorizationChallengeSubmit Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

parseJSONPB :: Value -> Parser AuthorizationChallengeSubmit Source #

HasDefault AuthorizationChallengeSubmit Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

def :: AuthorizationChallengeSubmit Source #

isDefault :: AuthorizationChallengeSubmit -> Bool Source #

Named AuthorizationChallengeSubmit Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

nameOf :: IsString string => Proxy# AuthorizationChallengeSubmit -> string Source #

Message AuthorizationChallengeSubmit Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

encodeMessage :: FieldNumber -> AuthorizationChallengeSubmit -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage AuthorizationChallengeSubmit Source #

dotProto :: Proxy# AuthorizationChallengeSubmit -> [DotProtoField] Source #

ToSchema AuthorizationChallengeSubmit Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

declareNamedSchema :: Proxy AuthorizationChallengeSubmit -> Declare (Definitions Schema) NamedSchema Source #

type Rep AuthorizationChallengeSubmit Source # 
Instance details

Defined in Data.Sawtooth.Authorization

type Rep AuthorizationChallengeSubmit = D1 ('MetaData "AuthorizationChallengeSubmit" "Data.Sawtooth.Authorization" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "AuthorizationChallengeSubmit" 'PrefixI 'True) (S1 ('MetaSel ('Just "authorizationChallengeSubmitPublicKey") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: (S1 ('MetaSel ('Just "authorizationChallengeSubmitSignature") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "authorizationChallengeSubmitRoles") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector (Enumerated RoleType))))))

newtype AuthorizationChallengeResult Source #

Constructors

AuthorizationChallengeResult 

Fields

Instances

Instances details
Eq AuthorizationChallengeResult Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

(==) :: AuthorizationChallengeResult -> AuthorizationChallengeResult -> Bool Source #

(/=) :: AuthorizationChallengeResult -> AuthorizationChallengeResult -> Bool Source #

Ord AuthorizationChallengeResult Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

compare :: AuthorizationChallengeResult -> AuthorizationChallengeResult -> Ordering Source #

(<) :: AuthorizationChallengeResult -> AuthorizationChallengeResult -> Bool Source #

(<=) :: AuthorizationChallengeResult -> AuthorizationChallengeResult -> Bool Source #

(>) :: AuthorizationChallengeResult -> AuthorizationChallengeResult -> Bool Source #

(>=) :: AuthorizationChallengeResult -> AuthorizationChallengeResult -> Bool Source #

max :: AuthorizationChallengeResult -> AuthorizationChallengeResult -> AuthorizationChallengeResult Source #

min :: AuthorizationChallengeResult -> AuthorizationChallengeResult -> AuthorizationChallengeResult Source #

Show AuthorizationChallengeResult Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

showsPrec :: Int -> AuthorizationChallengeResult -> ShowS Source #

show :: AuthorizationChallengeResult -> String Source #

showList :: [AuthorizationChallengeResult] -> ShowS Source #

Generic AuthorizationChallengeResult Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Associated Types

type Rep AuthorizationChallengeResult :: Type -> Type Source #

Methods

from :: AuthorizationChallengeResult -> Rep AuthorizationChallengeResult x Source #

to :: Rep AuthorizationChallengeResult x -> AuthorizationChallengeResult Source #

ToJSON AuthorizationChallengeResult Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

toJSON :: AuthorizationChallengeResult -> Value Source #

toEncoding :: AuthorizationChallengeResult -> Encoding Source #

toJSONList :: [AuthorizationChallengeResult] -> Value Source #

toEncodingList :: [AuthorizationChallengeResult] -> Encoding Source #

FromJSON AuthorizationChallengeResult Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

parseJSON :: Value -> Parser AuthorizationChallengeResult Source #

parseJSONList :: Value -> Parser [AuthorizationChallengeResult] Source #

NFData AuthorizationChallengeResult Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

rnf :: AuthorizationChallengeResult -> () Source #

ToJSONPB AuthorizationChallengeResult Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

toJSONPB :: AuthorizationChallengeResult -> Options -> Value Source #

toEncodingPB :: AuthorizationChallengeResult -> Options -> Encoding Source #

FromJSONPB AuthorizationChallengeResult Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

parseJSONPB :: Value -> Parser AuthorizationChallengeResult Source #

HasDefault AuthorizationChallengeResult Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

def :: AuthorizationChallengeResult Source #

isDefault :: AuthorizationChallengeResult -> Bool Source #

Named AuthorizationChallengeResult Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

nameOf :: IsString string => Proxy# AuthorizationChallengeResult -> string Source #

Message AuthorizationChallengeResult Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

encodeMessage :: FieldNumber -> AuthorizationChallengeResult -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage AuthorizationChallengeResult Source #

dotProto :: Proxy# AuthorizationChallengeResult -> [DotProtoField] Source #

ToSchema AuthorizationChallengeResult Source # 
Instance details

Defined in Data.Sawtooth.Authorization

Methods

declareNamedSchema :: Proxy AuthorizationChallengeResult -> Declare (Definitions Schema) NamedSchema Source #

type Rep AuthorizationChallengeResult Source # 
Instance details

Defined in Data.Sawtooth.Authorization

type Rep AuthorizationChallengeResult = D1 ('MetaData "AuthorizationChallengeResult" "Data.Sawtooth.Authorization" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'True) (C1 ('MetaCons "AuthorizationChallengeResult" 'PrefixI 'True) (S1 ('MetaSel ('Just "authorizationChallengeResultRoles") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector (Enumerated RoleType)))))
\ No newline at end of file diff --git a/Data-Sawtooth-Batch.html b/Data-Sawtooth-Batch.html index 5268d73..fbd893a 100644 --- a/Data-Sawtooth-Batch.html +++ b/Data-Sawtooth-Batch.html @@ -1 +1 @@ -Data.Sawtooth.Batch
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types
Safe HaskellNone
LanguageHaskell2010

Data.Sawtooth.Batch

Description

Generated by Haskell protocol buffer compiler. DO NOT EDIT!

Documentation

data BatchHeader Source #

Constructors

BatchHeader 

Fields

Instances

Instances details
Eq BatchHeader Source # 
Instance details

Defined in Data.Sawtooth.Batch

Methods

(==) :: BatchHeader -> BatchHeader -> Bool Source #

(/=) :: BatchHeader -> BatchHeader -> Bool Source #

Ord BatchHeader Source # 
Instance details

Defined in Data.Sawtooth.Batch

Methods

compare :: BatchHeader -> BatchHeader -> Ordering Source #

(<) :: BatchHeader -> BatchHeader -> Bool Source #

(<=) :: BatchHeader -> BatchHeader -> Bool Source #

(>) :: BatchHeader -> BatchHeader -> Bool Source #

(>=) :: BatchHeader -> BatchHeader -> Bool Source #

max :: BatchHeader -> BatchHeader -> BatchHeader Source #

min :: BatchHeader -> BatchHeader -> BatchHeader Source #

Show BatchHeader Source # 
Instance details

Defined in Data.Sawtooth.Batch

Methods

showsPrec :: Int -> BatchHeader -> ShowS Source #

show :: BatchHeader -> String Source #

showList :: [BatchHeader] -> ShowS Source #

Generic BatchHeader Source # 
Instance details

Defined in Data.Sawtooth.Batch

Associated Types

type Rep BatchHeader :: Type -> Type Source #

Methods

from :: BatchHeader -> Rep BatchHeader x Source #

to :: Rep BatchHeader x -> BatchHeader Source #

ToJSON BatchHeader Source # 
Instance details

Defined in Data.Sawtooth.Batch

Methods

toJSON :: BatchHeader -> Value Source #

toEncoding :: BatchHeader -> Encoding Source #

toJSONList :: [BatchHeader] -> Value Source #

toEncodingList :: [BatchHeader] -> Encoding Source #

FromJSON BatchHeader Source # 
Instance details

Defined in Data.Sawtooth.Batch

Methods

parseJSON :: Value -> Parser BatchHeader Source #

parseJSONList :: Value -> Parser [BatchHeader] Source #

NFData BatchHeader Source # 
Instance details

Defined in Data.Sawtooth.Batch

Methods

rnf :: BatchHeader -> () Source #

ToJSONPB BatchHeader Source # 
Instance details

Defined in Data.Sawtooth.Batch

Methods

toJSONPB :: BatchHeader -> Options -> Value Source #

toEncodingPB :: BatchHeader -> Options -> Encoding Source #

FromJSONPB BatchHeader Source # 
Instance details

Defined in Data.Sawtooth.Batch

Methods

parseJSONPB :: Value -> Parser BatchHeader Source #

HasDefault BatchHeader Source # 
Instance details

Defined in Data.Sawtooth.Batch

Methods

def :: BatchHeader Source #

isDefault :: BatchHeader -> Bool Source #

Named BatchHeader Source # 
Instance details

Defined in Data.Sawtooth.Batch

Methods

nameOf :: IsString string => Proxy# BatchHeader -> string Source #

Message BatchHeader Source # 
Instance details

Defined in Data.Sawtooth.Batch

Methods

encodeMessage :: FieldNumber -> BatchHeader -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage BatchHeader Source #

dotProto :: Proxy# BatchHeader -> [DotProtoField] Source #

ToSchema BatchHeader Source # 
Instance details

Defined in Data.Sawtooth.Batch

Methods

declareNamedSchema :: Proxy BatchHeader -> Declare (Definitions Schema) NamedSchema Source #

type Rep BatchHeader Source # 
Instance details

Defined in Data.Sawtooth.Batch

type Rep BatchHeader = D1 ('MetaData "BatchHeader" "Data.Sawtooth.Batch" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "BatchHeader" 'PrefixI 'True) (S1 ('MetaSel ('Just "batchHeaderSignerPublicKey") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "batchHeaderTransactionIds") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Text))))

data Batch Source #

Constructors

Batch 

Fields

Instances

Instances details
Eq Batch Source # 
Instance details

Defined in Data.Sawtooth.Batch

Methods

(==) :: Batch -> Batch -> Bool Source #

(/=) :: Batch -> Batch -> Bool Source #

Ord Batch Source # 
Instance details

Defined in Data.Sawtooth.Batch

Methods

compare :: Batch -> Batch -> Ordering Source #

(<) :: Batch -> Batch -> Bool Source #

(<=) :: Batch -> Batch -> Bool Source #

(>) :: Batch -> Batch -> Bool Source #

(>=) :: Batch -> Batch -> Bool Source #

max :: Batch -> Batch -> Batch Source #

min :: Batch -> Batch -> Batch Source #

Show Batch Source # 
Instance details

Defined in Data.Sawtooth.Batch

Methods

showsPrec :: Int -> Batch -> ShowS Source #

show :: Batch -> String Source #

showList :: [Batch] -> ShowS Source #

Generic Batch Source # 
Instance details

Defined in Data.Sawtooth.Batch

Associated Types

type Rep Batch :: Type -> Type Source #

Methods

from :: Batch -> Rep Batch x Source #

to :: Rep Batch x -> Batch Source #

ToJSON Batch Source # 
Instance details

Defined in Data.Sawtooth.Batch

Methods

toJSON :: Batch -> Value Source #

toEncoding :: Batch -> Encoding Source #

toJSONList :: [Batch] -> Value Source #

toEncodingList :: [Batch] -> Encoding Source #

FromJSON Batch Source # 
Instance details

Defined in Data.Sawtooth.Batch

Methods

parseJSON :: Value -> Parser Batch Source #

parseJSONList :: Value -> Parser [Batch] Source #

NFData Batch Source # 
Instance details

Defined in Data.Sawtooth.Batch

Methods

rnf :: Batch -> () Source #

ToJSONPB Batch Source # 
Instance details

Defined in Data.Sawtooth.Batch

Methods

toJSONPB :: Batch -> Options -> Value Source #

toEncodingPB :: Batch -> Options -> Encoding Source #

FromJSONPB Batch Source # 
Instance details

Defined in Data.Sawtooth.Batch

Methods

parseJSONPB :: Value -> Parser Batch Source #

HasDefault Batch Source # 
Instance details

Defined in Data.Sawtooth.Batch

Methods

def :: Batch Source #

isDefault :: Batch -> Bool Source #

Named Batch Source # 
Instance details

Defined in Data.Sawtooth.Batch

Methods

nameOf :: IsString string => Proxy# Batch -> string Source #

Message Batch Source # 
Instance details

Defined in Data.Sawtooth.Batch

Methods

encodeMessage :: FieldNumber -> Batch -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage Batch Source #

dotProto :: Proxy# Batch -> [DotProtoField] Source #

ToSchema Batch Source # 
Instance details

Defined in Data.Sawtooth.Batch

Methods

declareNamedSchema :: Proxy Batch -> Declare (Definitions Schema) NamedSchema Source #

type Rep Batch Source # 
Instance details

Defined in Data.Sawtooth.Batch

type Rep Batch = D1 ('MetaData "Batch" "Data.Sawtooth.Batch" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "Batch" 'PrefixI 'True) ((S1 ('MetaSel ('Just "batchHeader") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString) :*: S1 ('MetaSel ('Just "batchHeaderSignature") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)) :*: (S1 ('MetaSel ('Just "batchTransactions") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Transaction)) :*: S1 ('MetaSel ('Just "batchTrace") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Bool))))

newtype BatchList Source #

Constructors

BatchList 

Fields

Instances

Instances details
Eq BatchList Source # 
Instance details

Defined in Data.Sawtooth.Batch

Methods

(==) :: BatchList -> BatchList -> Bool Source #

(/=) :: BatchList -> BatchList -> Bool Source #

Ord BatchList Source # 
Instance details

Defined in Data.Sawtooth.Batch

Methods

compare :: BatchList -> BatchList -> Ordering Source #

(<) :: BatchList -> BatchList -> Bool Source #

(<=) :: BatchList -> BatchList -> Bool Source #

(>) :: BatchList -> BatchList -> Bool Source #

(>=) :: BatchList -> BatchList -> Bool Source #

max :: BatchList -> BatchList -> BatchList Source #

min :: BatchList -> BatchList -> BatchList Source #

Show BatchList Source # 
Instance details

Defined in Data.Sawtooth.Batch

Methods

showsPrec :: Int -> BatchList -> ShowS Source #

show :: BatchList -> String Source #

showList :: [BatchList] -> ShowS Source #

Generic BatchList Source # 
Instance details

Defined in Data.Sawtooth.Batch

Associated Types

type Rep BatchList :: Type -> Type Source #

Methods

from :: BatchList -> Rep BatchList x Source #

to :: Rep BatchList x -> BatchList Source #

ToJSON BatchList Source # 
Instance details

Defined in Data.Sawtooth.Batch

Methods

toJSON :: BatchList -> Value Source #

toEncoding :: BatchList -> Encoding Source #

toJSONList :: [BatchList] -> Value Source #

toEncodingList :: [BatchList] -> Encoding Source #

FromJSON BatchList Source # 
Instance details

Defined in Data.Sawtooth.Batch

Methods

parseJSON :: Value -> Parser BatchList Source #

parseJSONList :: Value -> Parser [BatchList] Source #

NFData BatchList Source # 
Instance details

Defined in Data.Sawtooth.Batch

Methods

rnf :: BatchList -> () Source #

ToJSONPB BatchList Source # 
Instance details

Defined in Data.Sawtooth.Batch

Methods

toJSONPB :: BatchList -> Options -> Value Source #

toEncodingPB :: BatchList -> Options -> Encoding Source #

FromJSONPB BatchList Source # 
Instance details

Defined in Data.Sawtooth.Batch

Methods

parseJSONPB :: Value -> Parser BatchList Source #

HasDefault BatchList Source # 
Instance details

Defined in Data.Sawtooth.Batch

Methods

def :: BatchList Source #

isDefault :: BatchList -> Bool Source #

Named BatchList Source # 
Instance details

Defined in Data.Sawtooth.Batch

Methods

nameOf :: IsString string => Proxy# BatchList -> string Source #

Message BatchList Source # 
Instance details

Defined in Data.Sawtooth.Batch

Methods

encodeMessage :: FieldNumber -> BatchList -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage BatchList Source #

dotProto :: Proxy# BatchList -> [DotProtoField] Source #

ToSchema BatchList Source # 
Instance details

Defined in Data.Sawtooth.Batch

Methods

declareNamedSchema :: Proxy BatchList -> Declare (Definitions Schema) NamedSchema Source #

type Rep BatchList Source # 
Instance details

Defined in Data.Sawtooth.Batch

type Rep BatchList = D1 ('MetaData "BatchList" "Data.Sawtooth.Batch" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'True) (C1 ('MetaCons "BatchList" 'PrefixI 'True) (S1 ('MetaSel ('Just "batchListBatches") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Batch))))
\ No newline at end of file +Data.Sawtooth.Batch
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types
Safe HaskellNone
LanguageHaskell2010

Data.Sawtooth.Batch

Description

Generated by Haskell protocol buffer compiler. DO NOT EDIT!

Documentation

data BatchHeader Source #

Constructors

BatchHeader 

Fields

Instances

Instances details
Eq BatchHeader Source # 
Instance details

Defined in Data.Sawtooth.Batch

Methods

(==) :: BatchHeader -> BatchHeader -> Bool Source #

(/=) :: BatchHeader -> BatchHeader -> Bool Source #

Ord BatchHeader Source # 
Instance details

Defined in Data.Sawtooth.Batch

Methods

compare :: BatchHeader -> BatchHeader -> Ordering Source #

(<) :: BatchHeader -> BatchHeader -> Bool Source #

(<=) :: BatchHeader -> BatchHeader -> Bool Source #

(>) :: BatchHeader -> BatchHeader -> Bool Source #

(>=) :: BatchHeader -> BatchHeader -> Bool Source #

max :: BatchHeader -> BatchHeader -> BatchHeader Source #

min :: BatchHeader -> BatchHeader -> BatchHeader Source #

Show BatchHeader Source # 
Instance details

Defined in Data.Sawtooth.Batch

Methods

showsPrec :: Int -> BatchHeader -> ShowS Source #

show :: BatchHeader -> String Source #

showList :: [BatchHeader] -> ShowS Source #

Generic BatchHeader Source # 
Instance details

Defined in Data.Sawtooth.Batch

Associated Types

type Rep BatchHeader :: Type -> Type Source #

Methods

from :: BatchHeader -> Rep BatchHeader x Source #

to :: Rep BatchHeader x -> BatchHeader Source #

ToJSON BatchHeader Source # 
Instance details

Defined in Data.Sawtooth.Batch

Methods

toJSON :: BatchHeader -> Value Source #

toEncoding :: BatchHeader -> Encoding Source #

toJSONList :: [BatchHeader] -> Value Source #

toEncodingList :: [BatchHeader] -> Encoding Source #

FromJSON BatchHeader Source # 
Instance details

Defined in Data.Sawtooth.Batch

Methods

parseJSON :: Value -> Parser BatchHeader Source #

parseJSONList :: Value -> Parser [BatchHeader] Source #

NFData BatchHeader Source # 
Instance details

Defined in Data.Sawtooth.Batch

Methods

rnf :: BatchHeader -> () Source #

ToJSONPB BatchHeader Source # 
Instance details

Defined in Data.Sawtooth.Batch

Methods

toJSONPB :: BatchHeader -> Options -> Value Source #

toEncodingPB :: BatchHeader -> Options -> Encoding Source #

FromJSONPB BatchHeader Source # 
Instance details

Defined in Data.Sawtooth.Batch

Methods

parseJSONPB :: Value -> Parser BatchHeader Source #

HasDefault BatchHeader Source # 
Instance details

Defined in Data.Sawtooth.Batch

Methods

def :: BatchHeader Source #

isDefault :: BatchHeader -> Bool Source #

Named BatchHeader Source # 
Instance details

Defined in Data.Sawtooth.Batch

Methods

nameOf :: IsString string => Proxy# BatchHeader -> string Source #

Message BatchHeader Source # 
Instance details

Defined in Data.Sawtooth.Batch

Methods

encodeMessage :: FieldNumber -> BatchHeader -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage BatchHeader Source #

dotProto :: Proxy# BatchHeader -> [DotProtoField] Source #

ToSchema BatchHeader Source # 
Instance details

Defined in Data.Sawtooth.Batch

Methods

declareNamedSchema :: Proxy BatchHeader -> Declare (Definitions Schema) NamedSchema Source #

type Rep BatchHeader Source # 
Instance details

Defined in Data.Sawtooth.Batch

type Rep BatchHeader = D1 ('MetaData "BatchHeader" "Data.Sawtooth.Batch" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "BatchHeader" 'PrefixI 'True) (S1 ('MetaSel ('Just "batchHeaderSignerPublicKey") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "batchHeaderTransactionIds") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Text))))

data Batch Source #

Constructors

Batch 

Fields

Instances

Instances details
Eq Batch Source # 
Instance details

Defined in Data.Sawtooth.Batch

Methods

(==) :: Batch -> Batch -> Bool Source #

(/=) :: Batch -> Batch -> Bool Source #

Ord Batch Source # 
Instance details

Defined in Data.Sawtooth.Batch

Methods

compare :: Batch -> Batch -> Ordering Source #

(<) :: Batch -> Batch -> Bool Source #

(<=) :: Batch -> Batch -> Bool Source #

(>) :: Batch -> Batch -> Bool Source #

(>=) :: Batch -> Batch -> Bool Source #

max :: Batch -> Batch -> Batch Source #

min :: Batch -> Batch -> Batch Source #

Show Batch Source # 
Instance details

Defined in Data.Sawtooth.Batch

Methods

showsPrec :: Int -> Batch -> ShowS Source #

show :: Batch -> String Source #

showList :: [Batch] -> ShowS Source #

Generic Batch Source # 
Instance details

Defined in Data.Sawtooth.Batch

Associated Types

type Rep Batch :: Type -> Type Source #

Methods

from :: Batch -> Rep Batch x Source #

to :: Rep Batch x -> Batch Source #

ToJSON Batch Source # 
Instance details

Defined in Data.Sawtooth.Batch

Methods

toJSON :: Batch -> Value Source #

toEncoding :: Batch -> Encoding Source #

toJSONList :: [Batch] -> Value Source #

toEncodingList :: [Batch] -> Encoding Source #

FromJSON Batch Source # 
Instance details

Defined in Data.Sawtooth.Batch

Methods

parseJSON :: Value -> Parser Batch Source #

parseJSONList :: Value -> Parser [Batch] Source #

NFData Batch Source # 
Instance details

Defined in Data.Sawtooth.Batch

Methods

rnf :: Batch -> () Source #

ToJSONPB Batch Source # 
Instance details

Defined in Data.Sawtooth.Batch

Methods

toJSONPB :: Batch -> Options -> Value Source #

toEncodingPB :: Batch -> Options -> Encoding Source #

FromJSONPB Batch Source # 
Instance details

Defined in Data.Sawtooth.Batch

Methods

parseJSONPB :: Value -> Parser Batch Source #

HasDefault Batch Source # 
Instance details

Defined in Data.Sawtooth.Batch

Methods

def :: Batch Source #

isDefault :: Batch -> Bool Source #

Named Batch Source # 
Instance details

Defined in Data.Sawtooth.Batch

Methods

nameOf :: IsString string => Proxy# Batch -> string Source #

Message Batch Source # 
Instance details

Defined in Data.Sawtooth.Batch

Methods

encodeMessage :: FieldNumber -> Batch -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage Batch Source #

dotProto :: Proxy# Batch -> [DotProtoField] Source #

ToSchema Batch Source # 
Instance details

Defined in Data.Sawtooth.Batch

Methods

declareNamedSchema :: Proxy Batch -> Declare (Definitions Schema) NamedSchema Source #

type Rep Batch Source # 
Instance details

Defined in Data.Sawtooth.Batch

type Rep Batch = D1 ('MetaData "Batch" "Data.Sawtooth.Batch" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "Batch" 'PrefixI 'True) ((S1 ('MetaSel ('Just "batchHeader") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString) :*: S1 ('MetaSel ('Just "batchHeaderSignature") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)) :*: (S1 ('MetaSel ('Just "batchTransactions") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Transaction)) :*: S1 ('MetaSel ('Just "batchTrace") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Bool))))

newtype BatchList Source #

Constructors

BatchList 

Fields

Instances

Instances details
Eq BatchList Source # 
Instance details

Defined in Data.Sawtooth.Batch

Methods

(==) :: BatchList -> BatchList -> Bool Source #

(/=) :: BatchList -> BatchList -> Bool Source #

Ord BatchList Source # 
Instance details

Defined in Data.Sawtooth.Batch

Methods

compare :: BatchList -> BatchList -> Ordering Source #

(<) :: BatchList -> BatchList -> Bool Source #

(<=) :: BatchList -> BatchList -> Bool Source #

(>) :: BatchList -> BatchList -> Bool Source #

(>=) :: BatchList -> BatchList -> Bool Source #

max :: BatchList -> BatchList -> BatchList Source #

min :: BatchList -> BatchList -> BatchList Source #

Show BatchList Source # 
Instance details

Defined in Data.Sawtooth.Batch

Methods

showsPrec :: Int -> BatchList -> ShowS Source #

show :: BatchList -> String Source #

showList :: [BatchList] -> ShowS Source #

Generic BatchList Source # 
Instance details

Defined in Data.Sawtooth.Batch

Associated Types

type Rep BatchList :: Type -> Type Source #

Methods

from :: BatchList -> Rep BatchList x Source #

to :: Rep BatchList x -> BatchList Source #

ToJSON BatchList Source # 
Instance details

Defined in Data.Sawtooth.Batch

Methods

toJSON :: BatchList -> Value Source #

toEncoding :: BatchList -> Encoding Source #

toJSONList :: [BatchList] -> Value Source #

toEncodingList :: [BatchList] -> Encoding Source #

FromJSON BatchList Source # 
Instance details

Defined in Data.Sawtooth.Batch

Methods

parseJSON :: Value -> Parser BatchList Source #

parseJSONList :: Value -> Parser [BatchList] Source #

NFData BatchList Source # 
Instance details

Defined in Data.Sawtooth.Batch

Methods

rnf :: BatchList -> () Source #

ToJSONPB BatchList Source # 
Instance details

Defined in Data.Sawtooth.Batch

Methods

toJSONPB :: BatchList -> Options -> Value Source #

toEncodingPB :: BatchList -> Options -> Encoding Source #

FromJSONPB BatchList Source # 
Instance details

Defined in Data.Sawtooth.Batch

Methods

parseJSONPB :: Value -> Parser BatchList Source #

HasDefault BatchList Source # 
Instance details

Defined in Data.Sawtooth.Batch

Methods

def :: BatchList Source #

isDefault :: BatchList -> Bool Source #

Named BatchList Source # 
Instance details

Defined in Data.Sawtooth.Batch

Methods

nameOf :: IsString string => Proxy# BatchList -> string Source #

Message BatchList Source # 
Instance details

Defined in Data.Sawtooth.Batch

Methods

encodeMessage :: FieldNumber -> BatchList -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage BatchList Source #

dotProto :: Proxy# BatchList -> [DotProtoField] Source #

ToSchema BatchList Source # 
Instance details

Defined in Data.Sawtooth.Batch

Methods

declareNamedSchema :: Proxy BatchList -> Declare (Definitions Schema) NamedSchema Source #

type Rep BatchList Source # 
Instance details

Defined in Data.Sawtooth.Batch

type Rep BatchList = D1 ('MetaData "BatchList" "Data.Sawtooth.Batch" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'True) (C1 ('MetaCons "BatchList" 'PrefixI 'True) (S1 ('MetaSel ('Just "batchListBatches") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Batch))))
\ No newline at end of file diff --git a/Data-Sawtooth-Block.html b/Data-Sawtooth-Block.html index fa2a619..083c693 100644 --- a/Data-Sawtooth-Block.html +++ b/Data-Sawtooth-Block.html @@ -1 +1 @@ -Data.Sawtooth.Block
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types
Safe HaskellNone
LanguageHaskell2010

Data.Sawtooth.Block

Description

Generated by Haskell protocol buffer compiler. DO NOT EDIT!

Documentation

data BlockHeader Source #

Constructors

BlockHeader 

Fields

Instances

Instances details
Eq BlockHeader Source # 
Instance details

Defined in Data.Sawtooth.Block

Methods

(==) :: BlockHeader -> BlockHeader -> Bool Source #

(/=) :: BlockHeader -> BlockHeader -> Bool Source #

Ord BlockHeader Source # 
Instance details

Defined in Data.Sawtooth.Block

Methods

compare :: BlockHeader -> BlockHeader -> Ordering Source #

(<) :: BlockHeader -> BlockHeader -> Bool Source #

(<=) :: BlockHeader -> BlockHeader -> Bool Source #

(>) :: BlockHeader -> BlockHeader -> Bool Source #

(>=) :: BlockHeader -> BlockHeader -> Bool Source #

max :: BlockHeader -> BlockHeader -> BlockHeader Source #

min :: BlockHeader -> BlockHeader -> BlockHeader Source #

Show BlockHeader Source # 
Instance details

Defined in Data.Sawtooth.Block

Methods

showsPrec :: Int -> BlockHeader -> ShowS Source #

show :: BlockHeader -> String Source #

showList :: [BlockHeader] -> ShowS Source #

Generic BlockHeader Source # 
Instance details

Defined in Data.Sawtooth.Block

Associated Types

type Rep BlockHeader :: Type -> Type Source #

Methods

from :: BlockHeader -> Rep BlockHeader x Source #

to :: Rep BlockHeader x -> BlockHeader Source #

ToJSON BlockHeader Source # 
Instance details

Defined in Data.Sawtooth.Block

Methods

toJSON :: BlockHeader -> Value Source #

toEncoding :: BlockHeader -> Encoding Source #

toJSONList :: [BlockHeader] -> Value Source #

toEncodingList :: [BlockHeader] -> Encoding Source #

FromJSON BlockHeader Source # 
Instance details

Defined in Data.Sawtooth.Block

Methods

parseJSON :: Value -> Parser BlockHeader Source #

parseJSONList :: Value -> Parser [BlockHeader] Source #

NFData BlockHeader Source # 
Instance details

Defined in Data.Sawtooth.Block

Methods

rnf :: BlockHeader -> () Source #

ToJSONPB BlockHeader Source # 
Instance details

Defined in Data.Sawtooth.Block

Methods

toJSONPB :: BlockHeader -> Options -> Value Source #

toEncodingPB :: BlockHeader -> Options -> Encoding Source #

FromJSONPB BlockHeader Source # 
Instance details

Defined in Data.Sawtooth.Block

Methods

parseJSONPB :: Value -> Parser BlockHeader Source #

HasDefault BlockHeader Source # 
Instance details

Defined in Data.Sawtooth.Block

Methods

def :: BlockHeader Source #

isDefault :: BlockHeader -> Bool Source #

Named BlockHeader Source # 
Instance details

Defined in Data.Sawtooth.Block

Methods

nameOf :: IsString string => Proxy# BlockHeader -> string Source #

Message BlockHeader Source # 
Instance details

Defined in Data.Sawtooth.Block

Methods

encodeMessage :: FieldNumber -> BlockHeader -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage BlockHeader Source #

dotProto :: Proxy# BlockHeader -> [DotProtoField] Source #

ToSchema BlockHeader Source # 
Instance details

Defined in Data.Sawtooth.Block

Methods

declareNamedSchema :: Proxy BlockHeader -> Declare (Definitions Schema) NamedSchema Source #

type Rep BlockHeader Source # 
Instance details

Defined in Data.Sawtooth.Block

type Rep BlockHeader = D1 ('MetaData "BlockHeader" "Data.Sawtooth.Block" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "BlockHeader" 'PrefixI 'True) ((S1 ('MetaSel ('Just "blockHeaderBlockNum") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Word64) :*: (S1 ('MetaSel ('Just "blockHeaderPreviousBlockId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "blockHeaderSignerPublicKey") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text))) :*: (S1 ('MetaSel ('Just "blockHeaderBatchIds") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Text)) :*: (S1 ('MetaSel ('Just "blockHeaderConsensus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString) :*: S1 ('MetaSel ('Just "blockHeaderStateRootHash") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)))))

data Block Source #

Constructors

Block 

Fields

Instances

Instances details
Eq Block Source # 
Instance details

Defined in Data.Sawtooth.Block

Methods

(==) :: Block -> Block -> Bool Source #

(/=) :: Block -> Block -> Bool Source #

Ord Block Source # 
Instance details

Defined in Data.Sawtooth.Block

Methods

compare :: Block -> Block -> Ordering Source #

(<) :: Block -> Block -> Bool Source #

(<=) :: Block -> Block -> Bool Source #

(>) :: Block -> Block -> Bool Source #

(>=) :: Block -> Block -> Bool Source #

max :: Block -> Block -> Block Source #

min :: Block -> Block -> Block Source #

Show Block Source # 
Instance details

Defined in Data.Sawtooth.Block

Methods

showsPrec :: Int -> Block -> ShowS Source #

show :: Block -> String Source #

showList :: [Block] -> ShowS Source #

Generic Block Source # 
Instance details

Defined in Data.Sawtooth.Block

Associated Types

type Rep Block :: Type -> Type Source #

Methods

from :: Block -> Rep Block x Source #

to :: Rep Block x -> Block Source #

ToJSON Block Source # 
Instance details

Defined in Data.Sawtooth.Block

Methods

toJSON :: Block -> Value Source #

toEncoding :: Block -> Encoding Source #

toJSONList :: [Block] -> Value Source #

toEncodingList :: [Block] -> Encoding Source #

FromJSON Block Source # 
Instance details

Defined in Data.Sawtooth.Block

Methods

parseJSON :: Value -> Parser Block Source #

parseJSONList :: Value -> Parser [Block] Source #

NFData Block Source # 
Instance details

Defined in Data.Sawtooth.Block

Methods

rnf :: Block -> () Source #

ToJSONPB Block Source # 
Instance details

Defined in Data.Sawtooth.Block

Methods

toJSONPB :: Block -> Options -> Value Source #

toEncodingPB :: Block -> Options -> Encoding Source #

FromJSONPB Block Source # 
Instance details

Defined in Data.Sawtooth.Block

Methods

parseJSONPB :: Value -> Parser Block Source #

HasDefault Block Source # 
Instance details

Defined in Data.Sawtooth.Block

Methods

def :: Block Source #

isDefault :: Block -> Bool Source #

Named Block Source # 
Instance details

Defined in Data.Sawtooth.Block

Methods

nameOf :: IsString string => Proxy# Block -> string Source #

Message Block Source # 
Instance details

Defined in Data.Sawtooth.Block

Methods

encodeMessage :: FieldNumber -> Block -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage Block Source #

dotProto :: Proxy# Block -> [DotProtoField] Source #

ToSchema Block Source # 
Instance details

Defined in Data.Sawtooth.Block

Methods

declareNamedSchema :: Proxy Block -> Declare (Definitions Schema) NamedSchema Source #

type Rep Block Source # 
Instance details

Defined in Data.Sawtooth.Block

type Rep Block = D1 ('MetaData "Block" "Data.Sawtooth.Block" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "Block" 'PrefixI 'True) (S1 ('MetaSel ('Just "blockHeader") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString) :*: (S1 ('MetaSel ('Just "blockHeaderSignature") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "blockBatches") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Batch)))))
\ No newline at end of file +Data.Sawtooth.Block
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types
Safe HaskellNone
LanguageHaskell2010

Data.Sawtooth.Block

Description

Generated by Haskell protocol buffer compiler. DO NOT EDIT!

Documentation

data BlockHeader Source #

Constructors

BlockHeader 

Fields

Instances

Instances details
Eq BlockHeader Source # 
Instance details

Defined in Data.Sawtooth.Block

Methods

(==) :: BlockHeader -> BlockHeader -> Bool Source #

(/=) :: BlockHeader -> BlockHeader -> Bool Source #

Ord BlockHeader Source # 
Instance details

Defined in Data.Sawtooth.Block

Methods

compare :: BlockHeader -> BlockHeader -> Ordering Source #

(<) :: BlockHeader -> BlockHeader -> Bool Source #

(<=) :: BlockHeader -> BlockHeader -> Bool Source #

(>) :: BlockHeader -> BlockHeader -> Bool Source #

(>=) :: BlockHeader -> BlockHeader -> Bool Source #

max :: BlockHeader -> BlockHeader -> BlockHeader Source #

min :: BlockHeader -> BlockHeader -> BlockHeader Source #

Show BlockHeader Source # 
Instance details

Defined in Data.Sawtooth.Block

Methods

showsPrec :: Int -> BlockHeader -> ShowS Source #

show :: BlockHeader -> String Source #

showList :: [BlockHeader] -> ShowS Source #

Generic BlockHeader Source # 
Instance details

Defined in Data.Sawtooth.Block

Associated Types

type Rep BlockHeader :: Type -> Type Source #

Methods

from :: BlockHeader -> Rep BlockHeader x Source #

to :: Rep BlockHeader x -> BlockHeader Source #

ToJSON BlockHeader Source # 
Instance details

Defined in Data.Sawtooth.Block

Methods

toJSON :: BlockHeader -> Value Source #

toEncoding :: BlockHeader -> Encoding Source #

toJSONList :: [BlockHeader] -> Value Source #

toEncodingList :: [BlockHeader] -> Encoding Source #

FromJSON BlockHeader Source # 
Instance details

Defined in Data.Sawtooth.Block

Methods

parseJSON :: Value -> Parser BlockHeader Source #

parseJSONList :: Value -> Parser [BlockHeader] Source #

NFData BlockHeader Source # 
Instance details

Defined in Data.Sawtooth.Block

Methods

rnf :: BlockHeader -> () Source #

ToJSONPB BlockHeader Source # 
Instance details

Defined in Data.Sawtooth.Block

Methods

toJSONPB :: BlockHeader -> Options -> Value Source #

toEncodingPB :: BlockHeader -> Options -> Encoding Source #

FromJSONPB BlockHeader Source # 
Instance details

Defined in Data.Sawtooth.Block

Methods

parseJSONPB :: Value -> Parser BlockHeader Source #

HasDefault BlockHeader Source # 
Instance details

Defined in Data.Sawtooth.Block

Methods

def :: BlockHeader Source #

isDefault :: BlockHeader -> Bool Source #

Named BlockHeader Source # 
Instance details

Defined in Data.Sawtooth.Block

Methods

nameOf :: IsString string => Proxy# BlockHeader -> string Source #

Message BlockHeader Source # 
Instance details

Defined in Data.Sawtooth.Block

Methods

encodeMessage :: FieldNumber -> BlockHeader -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage BlockHeader Source #

dotProto :: Proxy# BlockHeader -> [DotProtoField] Source #

ToSchema BlockHeader Source # 
Instance details

Defined in Data.Sawtooth.Block

Methods

declareNamedSchema :: Proxy BlockHeader -> Declare (Definitions Schema) NamedSchema Source #

type Rep BlockHeader Source # 
Instance details

Defined in Data.Sawtooth.Block

type Rep BlockHeader = D1 ('MetaData "BlockHeader" "Data.Sawtooth.Block" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "BlockHeader" 'PrefixI 'True) ((S1 ('MetaSel ('Just "blockHeaderBlockNum") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Word64) :*: (S1 ('MetaSel ('Just "blockHeaderPreviousBlockId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "blockHeaderSignerPublicKey") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text))) :*: (S1 ('MetaSel ('Just "blockHeaderBatchIds") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Text)) :*: (S1 ('MetaSel ('Just "blockHeaderConsensus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString) :*: S1 ('MetaSel ('Just "blockHeaderStateRootHash") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)))))

data Block Source #

Constructors

Block 

Fields

Instances

Instances details
Eq Block Source # 
Instance details

Defined in Data.Sawtooth.Block

Methods

(==) :: Block -> Block -> Bool Source #

(/=) :: Block -> Block -> Bool Source #

Ord Block Source # 
Instance details

Defined in Data.Sawtooth.Block

Methods

compare :: Block -> Block -> Ordering Source #

(<) :: Block -> Block -> Bool Source #

(<=) :: Block -> Block -> Bool Source #

(>) :: Block -> Block -> Bool Source #

(>=) :: Block -> Block -> Bool Source #

max :: Block -> Block -> Block Source #

min :: Block -> Block -> Block Source #

Show Block Source # 
Instance details

Defined in Data.Sawtooth.Block

Methods

showsPrec :: Int -> Block -> ShowS Source #

show :: Block -> String Source #

showList :: [Block] -> ShowS Source #

Generic Block Source # 
Instance details

Defined in Data.Sawtooth.Block

Associated Types

type Rep Block :: Type -> Type Source #

Methods

from :: Block -> Rep Block x Source #

to :: Rep Block x -> Block Source #

ToJSON Block Source # 
Instance details

Defined in Data.Sawtooth.Block

Methods

toJSON :: Block -> Value Source #

toEncoding :: Block -> Encoding Source #

toJSONList :: [Block] -> Value Source #

toEncodingList :: [Block] -> Encoding Source #

FromJSON Block Source # 
Instance details

Defined in Data.Sawtooth.Block

Methods

parseJSON :: Value -> Parser Block Source #

parseJSONList :: Value -> Parser [Block] Source #

NFData Block Source # 
Instance details

Defined in Data.Sawtooth.Block

Methods

rnf :: Block -> () Source #

ToJSONPB Block Source # 
Instance details

Defined in Data.Sawtooth.Block

Methods

toJSONPB :: Block -> Options -> Value Source #

toEncodingPB :: Block -> Options -> Encoding Source #

FromJSONPB Block Source # 
Instance details

Defined in Data.Sawtooth.Block

Methods

parseJSONPB :: Value -> Parser Block Source #

HasDefault Block Source # 
Instance details

Defined in Data.Sawtooth.Block

Methods

def :: Block Source #

isDefault :: Block -> Bool Source #

Named Block Source # 
Instance details

Defined in Data.Sawtooth.Block

Methods

nameOf :: IsString string => Proxy# Block -> string Source #

Message Block Source # 
Instance details

Defined in Data.Sawtooth.Block

Methods

encodeMessage :: FieldNumber -> Block -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage Block Source #

dotProto :: Proxy# Block -> [DotProtoField] Source #

ToSchema Block Source # 
Instance details

Defined in Data.Sawtooth.Block

Methods

declareNamedSchema :: Proxy Block -> Declare (Definitions Schema) NamedSchema Source #

type Rep Block Source # 
Instance details

Defined in Data.Sawtooth.Block

type Rep Block = D1 ('MetaData "Block" "Data.Sawtooth.Block" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "Block" 'PrefixI 'True) (S1 ('MetaSel ('Just "blockHeader") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString) :*: (S1 ('MetaSel ('Just "blockHeaderSignature") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "blockBatches") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Batch)))))
\ No newline at end of file diff --git a/Data-Sawtooth-BlockInfo.html b/Data-Sawtooth-BlockInfo.html index 730ddff..e3fe6d3 100644 --- a/Data-Sawtooth-BlockInfo.html +++ b/Data-Sawtooth-BlockInfo.html @@ -1 +1 @@ -Data.Sawtooth.BlockInfo
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types
Safe HaskellNone
LanguageHaskell2010

Data.Sawtooth.BlockInfo

Description

Generated by Haskell protocol buffer compiler. DO NOT EDIT!

Documentation

data BlockInfoConfig Source #

Constructors

BlockInfoConfig 

Fields

Instances

Instances details
Eq BlockInfoConfig Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Methods

(==) :: BlockInfoConfig -> BlockInfoConfig -> Bool Source #

(/=) :: BlockInfoConfig -> BlockInfoConfig -> Bool Source #

Ord BlockInfoConfig Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Methods

compare :: BlockInfoConfig -> BlockInfoConfig -> Ordering Source #

(<) :: BlockInfoConfig -> BlockInfoConfig -> Bool Source #

(<=) :: BlockInfoConfig -> BlockInfoConfig -> Bool Source #

(>) :: BlockInfoConfig -> BlockInfoConfig -> Bool Source #

(>=) :: BlockInfoConfig -> BlockInfoConfig -> Bool Source #

max :: BlockInfoConfig -> BlockInfoConfig -> BlockInfoConfig Source #

min :: BlockInfoConfig -> BlockInfoConfig -> BlockInfoConfig Source #

Show BlockInfoConfig Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Methods

showsPrec :: Int -> BlockInfoConfig -> ShowS Source #

show :: BlockInfoConfig -> String Source #

showList :: [BlockInfoConfig] -> ShowS Source #

Generic BlockInfoConfig Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Associated Types

type Rep BlockInfoConfig :: Type -> Type Source #

Methods

from :: BlockInfoConfig -> Rep BlockInfoConfig x Source #

to :: Rep BlockInfoConfig x -> BlockInfoConfig Source #

ToJSON BlockInfoConfig Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Methods

toJSON :: BlockInfoConfig -> Value Source #

toEncoding :: BlockInfoConfig -> Encoding Source #

toJSONList :: [BlockInfoConfig] -> Value Source #

toEncodingList :: [BlockInfoConfig] -> Encoding Source #

FromJSON BlockInfoConfig Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Methods

parseJSON :: Value -> Parser BlockInfoConfig Source #

parseJSONList :: Value -> Parser [BlockInfoConfig] Source #

NFData BlockInfoConfig Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Methods

rnf :: BlockInfoConfig -> () Source #

ToJSONPB BlockInfoConfig Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Methods

toJSONPB :: BlockInfoConfig -> Options -> Value Source #

toEncodingPB :: BlockInfoConfig -> Options -> Encoding Source #

FromJSONPB BlockInfoConfig Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Methods

parseJSONPB :: Value -> Parser BlockInfoConfig Source #

HasDefault BlockInfoConfig Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Methods

def :: BlockInfoConfig Source #

isDefault :: BlockInfoConfig -> Bool Source #

Named BlockInfoConfig Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Methods

nameOf :: IsString string => Proxy# BlockInfoConfig -> string Source #

Message BlockInfoConfig Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Methods

encodeMessage :: FieldNumber -> BlockInfoConfig -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage BlockInfoConfig Source #

dotProto :: Proxy# BlockInfoConfig -> [DotProtoField] Source #

ToSchema BlockInfoConfig Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Methods

declareNamedSchema :: Proxy BlockInfoConfig -> Declare (Definitions Schema) NamedSchema Source #

type Rep BlockInfoConfig Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

type Rep BlockInfoConfig = D1 ('MetaData "BlockInfoConfig" "Data.Sawtooth.BlockInfo" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "BlockInfoConfig" 'PrefixI 'True) ((S1 ('MetaSel ('Just "blockInfoConfigLatestBlock") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Word64) :*: S1 ('MetaSel ('Just "blockInfoConfigOldestBlock") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Word64)) :*: (S1 ('MetaSel ('Just "blockInfoConfigTargetCount") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Word64) :*: S1 ('MetaSel ('Just "blockInfoConfigSyncTolerance") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Word64))))

data BlockInfo Source #

Constructors

BlockInfo 

Fields

Instances

Instances details
Eq BlockInfo Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Methods

(==) :: BlockInfo -> BlockInfo -> Bool Source #

(/=) :: BlockInfo -> BlockInfo -> Bool Source #

Ord BlockInfo Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Methods

compare :: BlockInfo -> BlockInfo -> Ordering Source #

(<) :: BlockInfo -> BlockInfo -> Bool Source #

(<=) :: BlockInfo -> BlockInfo -> Bool Source #

(>) :: BlockInfo -> BlockInfo -> Bool Source #

(>=) :: BlockInfo -> BlockInfo -> Bool Source #

max :: BlockInfo -> BlockInfo -> BlockInfo Source #

min :: BlockInfo -> BlockInfo -> BlockInfo Source #

Show BlockInfo Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Methods

showsPrec :: Int -> BlockInfo -> ShowS Source #

show :: BlockInfo -> String Source #

showList :: [BlockInfo] -> ShowS Source #

Generic BlockInfo Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Associated Types

type Rep BlockInfo :: Type -> Type Source #

Methods

from :: BlockInfo -> Rep BlockInfo x Source #

to :: Rep BlockInfo x -> BlockInfo Source #

ToJSON BlockInfo Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Methods

toJSON :: BlockInfo -> Value Source #

toEncoding :: BlockInfo -> Encoding Source #

toJSONList :: [BlockInfo] -> Value Source #

toEncodingList :: [BlockInfo] -> Encoding Source #

FromJSON BlockInfo Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Methods

parseJSON :: Value -> Parser BlockInfo Source #

parseJSONList :: Value -> Parser [BlockInfo] Source #

NFData BlockInfo Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Methods

rnf :: BlockInfo -> () Source #

ToJSONPB BlockInfo Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Methods

toJSONPB :: BlockInfo -> Options -> Value Source #

toEncodingPB :: BlockInfo -> Options -> Encoding Source #

FromJSONPB BlockInfo Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Methods

parseJSONPB :: Value -> Parser BlockInfo Source #

HasDefault BlockInfo Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Methods

def :: BlockInfo Source #

isDefault :: BlockInfo -> Bool Source #

Named BlockInfo Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Methods

nameOf :: IsString string => Proxy# BlockInfo -> string Source #

Message BlockInfo Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Methods

encodeMessage :: FieldNumber -> BlockInfo -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage BlockInfo Source #

dotProto :: Proxy# BlockInfo -> [DotProtoField] Source #

ToSchema BlockInfo Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Methods

declareNamedSchema :: Proxy BlockInfo -> Declare (Definitions Schema) NamedSchema Source #

type Rep BlockInfo Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

type Rep BlockInfo = D1 ('MetaData "BlockInfo" "Data.Sawtooth.BlockInfo" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "BlockInfo" 'PrefixI 'True) ((S1 ('MetaSel ('Just "blockInfoBlockNum") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Word64) :*: S1 ('MetaSel ('Just "blockInfoPreviousBlockId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)) :*: (S1 ('MetaSel ('Just "blockInfoSignerPublicKey") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: (S1 ('MetaSel ('Just "blockInfoHeaderSignature") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "blockInfoTimestamp") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Word64)))))

data BlockInfoTxn Source #

Constructors

BlockInfoTxn 

Fields

Instances

Instances details
Eq BlockInfoTxn Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Methods

(==) :: BlockInfoTxn -> BlockInfoTxn -> Bool Source #

(/=) :: BlockInfoTxn -> BlockInfoTxn -> Bool Source #

Ord BlockInfoTxn Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Methods

compare :: BlockInfoTxn -> BlockInfoTxn -> Ordering Source #

(<) :: BlockInfoTxn -> BlockInfoTxn -> Bool Source #

(<=) :: BlockInfoTxn -> BlockInfoTxn -> Bool Source #

(>) :: BlockInfoTxn -> BlockInfoTxn -> Bool Source #

(>=) :: BlockInfoTxn -> BlockInfoTxn -> Bool Source #

max :: BlockInfoTxn -> BlockInfoTxn -> BlockInfoTxn Source #

min :: BlockInfoTxn -> BlockInfoTxn -> BlockInfoTxn Source #

Show BlockInfoTxn Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Methods

showsPrec :: Int -> BlockInfoTxn -> ShowS Source #

show :: BlockInfoTxn -> String Source #

showList :: [BlockInfoTxn] -> ShowS Source #

Generic BlockInfoTxn Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Associated Types

type Rep BlockInfoTxn :: Type -> Type Source #

Methods

from :: BlockInfoTxn -> Rep BlockInfoTxn x Source #

to :: Rep BlockInfoTxn x -> BlockInfoTxn Source #

ToJSON BlockInfoTxn Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Methods

toJSON :: BlockInfoTxn -> Value Source #

toEncoding :: BlockInfoTxn -> Encoding Source #

toJSONList :: [BlockInfoTxn] -> Value Source #

toEncodingList :: [BlockInfoTxn] -> Encoding Source #

FromJSON BlockInfoTxn Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Methods

parseJSON :: Value -> Parser BlockInfoTxn Source #

parseJSONList :: Value -> Parser [BlockInfoTxn] Source #

NFData BlockInfoTxn Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Methods

rnf :: BlockInfoTxn -> () Source #

ToJSONPB BlockInfoTxn Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Methods

toJSONPB :: BlockInfoTxn -> Options -> Value Source #

toEncodingPB :: BlockInfoTxn -> Options -> Encoding Source #

FromJSONPB BlockInfoTxn Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Methods

parseJSONPB :: Value -> Parser BlockInfoTxn Source #

HasDefault BlockInfoTxn Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Methods

def :: BlockInfoTxn Source #

isDefault :: BlockInfoTxn -> Bool Source #

Named BlockInfoTxn Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Methods

nameOf :: IsString string => Proxy# BlockInfoTxn -> string Source #

Message BlockInfoTxn Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Methods

encodeMessage :: FieldNumber -> BlockInfoTxn -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage BlockInfoTxn Source #

dotProto :: Proxy# BlockInfoTxn -> [DotProtoField] Source #

ToSchema BlockInfoTxn Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Methods

declareNamedSchema :: Proxy BlockInfoTxn -> Declare (Definitions Schema) NamedSchema Source #

type Rep BlockInfoTxn Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

type Rep BlockInfoTxn = D1 ('MetaData "BlockInfoTxn" "Data.Sawtooth.BlockInfo" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "BlockInfoTxn" 'PrefixI 'True) (S1 ('MetaSel ('Just "blockInfoTxnBlock") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe BlockInfo)) :*: (S1 ('MetaSel ('Just "blockInfoTxnTargetCount") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Word64) :*: S1 ('MetaSel ('Just "blockInfoTxnSyncTolerance") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Word64))))
\ No newline at end of file +Data.Sawtooth.BlockInfo
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types
Safe HaskellNone
LanguageHaskell2010

Data.Sawtooth.BlockInfo

Description

Generated by Haskell protocol buffer compiler. DO NOT EDIT!

Documentation

data BlockInfoConfig Source #

Constructors

BlockInfoConfig 

Fields

Instances

Instances details
Eq BlockInfoConfig Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Methods

(==) :: BlockInfoConfig -> BlockInfoConfig -> Bool Source #

(/=) :: BlockInfoConfig -> BlockInfoConfig -> Bool Source #

Ord BlockInfoConfig Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Methods

compare :: BlockInfoConfig -> BlockInfoConfig -> Ordering Source #

(<) :: BlockInfoConfig -> BlockInfoConfig -> Bool Source #

(<=) :: BlockInfoConfig -> BlockInfoConfig -> Bool Source #

(>) :: BlockInfoConfig -> BlockInfoConfig -> Bool Source #

(>=) :: BlockInfoConfig -> BlockInfoConfig -> Bool Source #

max :: BlockInfoConfig -> BlockInfoConfig -> BlockInfoConfig Source #

min :: BlockInfoConfig -> BlockInfoConfig -> BlockInfoConfig Source #

Show BlockInfoConfig Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Methods

showsPrec :: Int -> BlockInfoConfig -> ShowS Source #

show :: BlockInfoConfig -> String Source #

showList :: [BlockInfoConfig] -> ShowS Source #

Generic BlockInfoConfig Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Associated Types

type Rep BlockInfoConfig :: Type -> Type Source #

Methods

from :: BlockInfoConfig -> Rep BlockInfoConfig x Source #

to :: Rep BlockInfoConfig x -> BlockInfoConfig Source #

ToJSON BlockInfoConfig Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Methods

toJSON :: BlockInfoConfig -> Value Source #

toEncoding :: BlockInfoConfig -> Encoding Source #

toJSONList :: [BlockInfoConfig] -> Value Source #

toEncodingList :: [BlockInfoConfig] -> Encoding Source #

FromJSON BlockInfoConfig Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Methods

parseJSON :: Value -> Parser BlockInfoConfig Source #

parseJSONList :: Value -> Parser [BlockInfoConfig] Source #

NFData BlockInfoConfig Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Methods

rnf :: BlockInfoConfig -> () Source #

ToJSONPB BlockInfoConfig Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Methods

toJSONPB :: BlockInfoConfig -> Options -> Value Source #

toEncodingPB :: BlockInfoConfig -> Options -> Encoding Source #

FromJSONPB BlockInfoConfig Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Methods

parseJSONPB :: Value -> Parser BlockInfoConfig Source #

HasDefault BlockInfoConfig Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Methods

def :: BlockInfoConfig Source #

isDefault :: BlockInfoConfig -> Bool Source #

Named BlockInfoConfig Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Methods

nameOf :: IsString string => Proxy# BlockInfoConfig -> string Source #

Message BlockInfoConfig Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Methods

encodeMessage :: FieldNumber -> BlockInfoConfig -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage BlockInfoConfig Source #

dotProto :: Proxy# BlockInfoConfig -> [DotProtoField] Source #

ToSchema BlockInfoConfig Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Methods

declareNamedSchema :: Proxy BlockInfoConfig -> Declare (Definitions Schema) NamedSchema Source #

type Rep BlockInfoConfig Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

type Rep BlockInfoConfig = D1 ('MetaData "BlockInfoConfig" "Data.Sawtooth.BlockInfo" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "BlockInfoConfig" 'PrefixI 'True) ((S1 ('MetaSel ('Just "blockInfoConfigLatestBlock") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Word64) :*: S1 ('MetaSel ('Just "blockInfoConfigOldestBlock") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Word64)) :*: (S1 ('MetaSel ('Just "blockInfoConfigTargetCount") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Word64) :*: S1 ('MetaSel ('Just "blockInfoConfigSyncTolerance") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Word64))))

data BlockInfo Source #

Constructors

BlockInfo 

Fields

Instances

Instances details
Eq BlockInfo Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Methods

(==) :: BlockInfo -> BlockInfo -> Bool Source #

(/=) :: BlockInfo -> BlockInfo -> Bool Source #

Ord BlockInfo Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Methods

compare :: BlockInfo -> BlockInfo -> Ordering Source #

(<) :: BlockInfo -> BlockInfo -> Bool Source #

(<=) :: BlockInfo -> BlockInfo -> Bool Source #

(>) :: BlockInfo -> BlockInfo -> Bool Source #

(>=) :: BlockInfo -> BlockInfo -> Bool Source #

max :: BlockInfo -> BlockInfo -> BlockInfo Source #

min :: BlockInfo -> BlockInfo -> BlockInfo Source #

Show BlockInfo Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Methods

showsPrec :: Int -> BlockInfo -> ShowS Source #

show :: BlockInfo -> String Source #

showList :: [BlockInfo] -> ShowS Source #

Generic BlockInfo Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Associated Types

type Rep BlockInfo :: Type -> Type Source #

Methods

from :: BlockInfo -> Rep BlockInfo x Source #

to :: Rep BlockInfo x -> BlockInfo Source #

ToJSON BlockInfo Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Methods

toJSON :: BlockInfo -> Value Source #

toEncoding :: BlockInfo -> Encoding Source #

toJSONList :: [BlockInfo] -> Value Source #

toEncodingList :: [BlockInfo] -> Encoding Source #

FromJSON BlockInfo Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Methods

parseJSON :: Value -> Parser BlockInfo Source #

parseJSONList :: Value -> Parser [BlockInfo] Source #

NFData BlockInfo Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Methods

rnf :: BlockInfo -> () Source #

ToJSONPB BlockInfo Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Methods

toJSONPB :: BlockInfo -> Options -> Value Source #

toEncodingPB :: BlockInfo -> Options -> Encoding Source #

FromJSONPB BlockInfo Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Methods

parseJSONPB :: Value -> Parser BlockInfo Source #

HasDefault BlockInfo Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Methods

def :: BlockInfo Source #

isDefault :: BlockInfo -> Bool Source #

Named BlockInfo Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Methods

nameOf :: IsString string => Proxy# BlockInfo -> string Source #

Message BlockInfo Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Methods

encodeMessage :: FieldNumber -> BlockInfo -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage BlockInfo Source #

dotProto :: Proxy# BlockInfo -> [DotProtoField] Source #

ToSchema BlockInfo Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Methods

declareNamedSchema :: Proxy BlockInfo -> Declare (Definitions Schema) NamedSchema Source #

type Rep BlockInfo Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

type Rep BlockInfo = D1 ('MetaData "BlockInfo" "Data.Sawtooth.BlockInfo" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "BlockInfo" 'PrefixI 'True) ((S1 ('MetaSel ('Just "blockInfoBlockNum") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Word64) :*: S1 ('MetaSel ('Just "blockInfoPreviousBlockId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)) :*: (S1 ('MetaSel ('Just "blockInfoSignerPublicKey") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: (S1 ('MetaSel ('Just "blockInfoHeaderSignature") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "blockInfoTimestamp") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Word64)))))

data BlockInfoTxn Source #

Constructors

BlockInfoTxn 

Fields

Instances

Instances details
Eq BlockInfoTxn Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Methods

(==) :: BlockInfoTxn -> BlockInfoTxn -> Bool Source #

(/=) :: BlockInfoTxn -> BlockInfoTxn -> Bool Source #

Ord BlockInfoTxn Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Methods

compare :: BlockInfoTxn -> BlockInfoTxn -> Ordering Source #

(<) :: BlockInfoTxn -> BlockInfoTxn -> Bool Source #

(<=) :: BlockInfoTxn -> BlockInfoTxn -> Bool Source #

(>) :: BlockInfoTxn -> BlockInfoTxn -> Bool Source #

(>=) :: BlockInfoTxn -> BlockInfoTxn -> Bool Source #

max :: BlockInfoTxn -> BlockInfoTxn -> BlockInfoTxn Source #

min :: BlockInfoTxn -> BlockInfoTxn -> BlockInfoTxn Source #

Show BlockInfoTxn Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Methods

showsPrec :: Int -> BlockInfoTxn -> ShowS Source #

show :: BlockInfoTxn -> String Source #

showList :: [BlockInfoTxn] -> ShowS Source #

Generic BlockInfoTxn Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Associated Types

type Rep BlockInfoTxn :: Type -> Type Source #

Methods

from :: BlockInfoTxn -> Rep BlockInfoTxn x Source #

to :: Rep BlockInfoTxn x -> BlockInfoTxn Source #

ToJSON BlockInfoTxn Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Methods

toJSON :: BlockInfoTxn -> Value Source #

toEncoding :: BlockInfoTxn -> Encoding Source #

toJSONList :: [BlockInfoTxn] -> Value Source #

toEncodingList :: [BlockInfoTxn] -> Encoding Source #

FromJSON BlockInfoTxn Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Methods

parseJSON :: Value -> Parser BlockInfoTxn Source #

parseJSONList :: Value -> Parser [BlockInfoTxn] Source #

NFData BlockInfoTxn Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Methods

rnf :: BlockInfoTxn -> () Source #

ToJSONPB BlockInfoTxn Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Methods

toJSONPB :: BlockInfoTxn -> Options -> Value Source #

toEncodingPB :: BlockInfoTxn -> Options -> Encoding Source #

FromJSONPB BlockInfoTxn Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Methods

parseJSONPB :: Value -> Parser BlockInfoTxn Source #

HasDefault BlockInfoTxn Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Methods

def :: BlockInfoTxn Source #

isDefault :: BlockInfoTxn -> Bool Source #

Named BlockInfoTxn Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Methods

nameOf :: IsString string => Proxy# BlockInfoTxn -> string Source #

Message BlockInfoTxn Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Methods

encodeMessage :: FieldNumber -> BlockInfoTxn -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage BlockInfoTxn Source #

dotProto :: Proxy# BlockInfoTxn -> [DotProtoField] Source #

ToSchema BlockInfoTxn Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

Methods

declareNamedSchema :: Proxy BlockInfoTxn -> Declare (Definitions Schema) NamedSchema Source #

type Rep BlockInfoTxn Source # 
Instance details

Defined in Data.Sawtooth.BlockInfo

type Rep BlockInfoTxn = D1 ('MetaData "BlockInfoTxn" "Data.Sawtooth.BlockInfo" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "BlockInfoTxn" 'PrefixI 'True) (S1 ('MetaSel ('Just "blockInfoTxnBlock") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe BlockInfo)) :*: (S1 ('MetaSel ('Just "blockInfoTxnTargetCount") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Word64) :*: S1 ('MetaSel ('Just "blockInfoTxnSyncTolerance") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Word64))))
\ No newline at end of file diff --git a/Data-Sawtooth-ClientBatch.html b/Data-Sawtooth-ClientBatch.html index 08b0f28..93ef296 100644 --- a/Data-Sawtooth-ClientBatch.html +++ b/Data-Sawtooth-ClientBatch.html @@ -1 +1 @@ -Data.Sawtooth.ClientBatch
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types
Safe HaskellNone
LanguageHaskell2010

Data.Sawtooth.ClientBatch

Description

Generated by Haskell protocol buffer compiler. DO NOT EDIT!

Documentation

data ClientBatchListRequest Source #

Constructors

ClientBatchListRequest 

Fields

Instances

Instances details
Eq ClientBatchListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

(==) :: ClientBatchListRequest -> ClientBatchListRequest -> Bool Source #

(/=) :: ClientBatchListRequest -> ClientBatchListRequest -> Bool Source #

Ord ClientBatchListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

compare :: ClientBatchListRequest -> ClientBatchListRequest -> Ordering Source #

(<) :: ClientBatchListRequest -> ClientBatchListRequest -> Bool Source #

(<=) :: ClientBatchListRequest -> ClientBatchListRequest -> Bool Source #

(>) :: ClientBatchListRequest -> ClientBatchListRequest -> Bool Source #

(>=) :: ClientBatchListRequest -> ClientBatchListRequest -> Bool Source #

max :: ClientBatchListRequest -> ClientBatchListRequest -> ClientBatchListRequest Source #

min :: ClientBatchListRequest -> ClientBatchListRequest -> ClientBatchListRequest Source #

Show ClientBatchListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

showsPrec :: Int -> ClientBatchListRequest -> ShowS Source #

show :: ClientBatchListRequest -> String Source #

showList :: [ClientBatchListRequest] -> ShowS Source #

Generic ClientBatchListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Associated Types

type Rep ClientBatchListRequest :: Type -> Type Source #

Methods

from :: ClientBatchListRequest -> Rep ClientBatchListRequest x Source #

to :: Rep ClientBatchListRequest x -> ClientBatchListRequest Source #

ToJSON ClientBatchListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

toJSON :: ClientBatchListRequest -> Value Source #

toEncoding :: ClientBatchListRequest -> Encoding Source #

toJSONList :: [ClientBatchListRequest] -> Value Source #

toEncodingList :: [ClientBatchListRequest] -> Encoding Source #

FromJSON ClientBatchListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

parseJSON :: Value -> Parser ClientBatchListRequest Source #

parseJSONList :: Value -> Parser [ClientBatchListRequest] Source #

NFData ClientBatchListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

rnf :: ClientBatchListRequest -> () Source #

ToJSONPB ClientBatchListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

toJSONPB :: ClientBatchListRequest -> Options -> Value Source #

toEncodingPB :: ClientBatchListRequest -> Options -> Encoding Source #

FromJSONPB ClientBatchListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

parseJSONPB :: Value -> Parser ClientBatchListRequest Source #

HasDefault ClientBatchListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

def :: ClientBatchListRequest Source #

isDefault :: ClientBatchListRequest -> Bool Source #

Named ClientBatchListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

nameOf :: IsString string => Proxy# ClientBatchListRequest -> string Source #

Message ClientBatchListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

encodeMessage :: FieldNumber -> ClientBatchListRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientBatchListRequest Source #

dotProto :: Proxy# ClientBatchListRequest -> [DotProtoField] Source #

ToSchema ClientBatchListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

declareNamedSchema :: Proxy ClientBatchListRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientBatchListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

type Rep ClientBatchListRequest = D1 ('MetaData "ClientBatchListRequest" "Data.Sawtooth.ClientBatch" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "ClientBatchListRequest" 'PrefixI 'True) ((S1 ('MetaSel ('Just "clientBatchListRequestHeadId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "clientBatchListRequestBatchIds") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Text))) :*: (S1 ('MetaSel ('Just "clientBatchListRequestPaging") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe ClientPagingControls)) :*: S1 ('MetaSel ('Just "clientBatchListRequestSorting") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector ClientSortControls)))))

data ClientBatchListResponse Source #

Constructors

ClientBatchListResponse 

Fields

Instances

Instances details
Eq ClientBatchListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

(==) :: ClientBatchListResponse -> ClientBatchListResponse -> Bool Source #

(/=) :: ClientBatchListResponse -> ClientBatchListResponse -> Bool Source #

Ord ClientBatchListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

compare :: ClientBatchListResponse -> ClientBatchListResponse -> Ordering Source #

(<) :: ClientBatchListResponse -> ClientBatchListResponse -> Bool Source #

(<=) :: ClientBatchListResponse -> ClientBatchListResponse -> Bool Source #

(>) :: ClientBatchListResponse -> ClientBatchListResponse -> Bool Source #

(>=) :: ClientBatchListResponse -> ClientBatchListResponse -> Bool Source #

max :: ClientBatchListResponse -> ClientBatchListResponse -> ClientBatchListResponse Source #

min :: ClientBatchListResponse -> ClientBatchListResponse -> ClientBatchListResponse Source #

Show ClientBatchListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

showsPrec :: Int -> ClientBatchListResponse -> ShowS Source #

show :: ClientBatchListResponse -> String Source #

showList :: [ClientBatchListResponse] -> ShowS Source #

Generic ClientBatchListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Associated Types

type Rep ClientBatchListResponse :: Type -> Type Source #

Methods

from :: ClientBatchListResponse -> Rep ClientBatchListResponse x Source #

to :: Rep ClientBatchListResponse x -> ClientBatchListResponse Source #

ToJSON ClientBatchListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

toJSON :: ClientBatchListResponse -> Value Source #

toEncoding :: ClientBatchListResponse -> Encoding Source #

toJSONList :: [ClientBatchListResponse] -> Value Source #

toEncodingList :: [ClientBatchListResponse] -> Encoding Source #

FromJSON ClientBatchListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

parseJSON :: Value -> Parser ClientBatchListResponse Source #

parseJSONList :: Value -> Parser [ClientBatchListResponse] Source #

NFData ClientBatchListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

rnf :: ClientBatchListResponse -> () Source #

ToJSONPB ClientBatchListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

toJSONPB :: ClientBatchListResponse -> Options -> Value Source #

toEncodingPB :: ClientBatchListResponse -> Options -> Encoding Source #

FromJSONPB ClientBatchListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

parseJSONPB :: Value -> Parser ClientBatchListResponse Source #

HasDefault ClientBatchListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

def :: ClientBatchListResponse Source #

isDefault :: ClientBatchListResponse -> Bool Source #

Named ClientBatchListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

nameOf :: IsString string => Proxy# ClientBatchListResponse -> string Source #

Message ClientBatchListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

encodeMessage :: FieldNumber -> ClientBatchListResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientBatchListResponse Source #

dotProto :: Proxy# ClientBatchListResponse -> [DotProtoField] Source #

ToSchema ClientBatchListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

declareNamedSchema :: Proxy ClientBatchListResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientBatchListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

type Rep ClientBatchListResponse = D1 ('MetaData "ClientBatchListResponse" "Data.Sawtooth.ClientBatch" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "ClientBatchListResponse" 'PrefixI 'True) ((S1 ('MetaSel ('Just "clientBatchListResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated ClientBatchListResponse_Status)) :*: S1 ('MetaSel ('Just "clientBatchListResponseBatches") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Batch))) :*: (S1 ('MetaSel ('Just "clientBatchListResponseHeadId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "clientBatchListResponsePaging") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe ClientPagingResponse)))))

data ClientBatchListResponse_Status Source #

Constructors

ClientBatchListResponse_StatusSTATUS_UNSET 
ClientBatchListResponse_StatusOK 
ClientBatchListResponse_StatusINTERNAL_ERROR 
ClientBatchListResponse_StatusNOT_READY 
ClientBatchListResponse_StatusNO_ROOT 
ClientBatchListResponse_StatusNO_RESOURCE 
ClientBatchListResponse_StatusINVALID_PAGING 
ClientBatchListResponse_StatusINVALID_SORT 
ClientBatchListResponse_StatusINVALID_ID 

Instances

Instances details
Bounded ClientBatchListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

minBound :: ClientBatchListResponse_Status Source #

maxBound :: ClientBatchListResponse_Status Source #

Eq ClientBatchListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

(==) :: ClientBatchListResponse_Status -> ClientBatchListResponse_Status -> Bool Source #

(/=) :: ClientBatchListResponse_Status -> ClientBatchListResponse_Status -> Bool Source #

Ord ClientBatchListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

compare :: ClientBatchListResponse_Status -> ClientBatchListResponse_Status -> Ordering Source #

(<) :: ClientBatchListResponse_Status -> ClientBatchListResponse_Status -> Bool Source #

(<=) :: ClientBatchListResponse_Status -> ClientBatchListResponse_Status -> Bool Source #

(>) :: ClientBatchListResponse_Status -> ClientBatchListResponse_Status -> Bool Source #

(>=) :: ClientBatchListResponse_Status -> ClientBatchListResponse_Status -> Bool Source #

max :: ClientBatchListResponse_Status -> ClientBatchListResponse_Status -> ClientBatchListResponse_Status Source #

min :: ClientBatchListResponse_Status -> ClientBatchListResponse_Status -> ClientBatchListResponse_Status Source #

Show ClientBatchListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

showsPrec :: Int -> ClientBatchListResponse_Status -> ShowS Source #

show :: ClientBatchListResponse_Status -> String Source #

showList :: [ClientBatchListResponse_Status] -> ShowS Source #

Generic ClientBatchListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Associated Types

type Rep ClientBatchListResponse_Status :: Type -> Type Source #

Methods

from :: ClientBatchListResponse_Status -> Rep ClientBatchListResponse_Status x Source #

to :: Rep ClientBatchListResponse_Status x -> ClientBatchListResponse_Status Source #

ToJSON ClientBatchListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

toJSON :: ClientBatchListResponse_Status -> Value Source #

toEncoding :: ClientBatchListResponse_Status -> Encoding Source #

toJSONList :: [ClientBatchListResponse_Status] -> Value Source #

toEncodingList :: [ClientBatchListResponse_Status] -> Encoding Source #

FromJSON ClientBatchListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

parseJSON :: Value -> Parser ClientBatchListResponse_Status Source #

parseJSONList :: Value -> Parser [ClientBatchListResponse_Status] Source #

NFData ClientBatchListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

rnf :: ClientBatchListResponse_Status -> () Source #

ProtoEnum ClientBatchListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

toProtoEnumMay :: Int32 -> Maybe ClientBatchListResponse_Status Source #

fromProtoEnum :: ClientBatchListResponse_Status -> Int32 Source #

ToJSONPB ClientBatchListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

toJSONPB :: ClientBatchListResponse_Status -> Options -> Value Source #

toEncodingPB :: ClientBatchListResponse_Status -> Options -> Encoding Source #

FromJSONPB ClientBatchListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

parseJSONPB :: Value -> Parser ClientBatchListResponse_Status Source #

HasDefault ClientBatchListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

def :: ClientBatchListResponse_Status Source #

isDefault :: ClientBatchListResponse_Status -> Bool Source #

Named ClientBatchListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

nameOf :: IsString string => Proxy# ClientBatchListResponse_Status -> string Source #

Finite ClientBatchListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

enumerate :: IsString string => Proxy# ClientBatchListResponse_Status -> [(string, Int32)] Source #

type Rep ClientBatchListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

type Rep ClientBatchListResponse_Status = D1 ('MetaData "ClientBatchListResponse_Status" "Data.Sawtooth.ClientBatch" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (((C1 ('MetaCons "ClientBatchListResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientBatchListResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ClientBatchListResponse_StatusINTERNAL_ERROR" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientBatchListResponse_StatusNOT_READY" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "ClientBatchListResponse_StatusNO_ROOT" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientBatchListResponse_StatusNO_RESOURCE" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ClientBatchListResponse_StatusINVALID_PAGING" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "ClientBatchListResponse_StatusINVALID_SORT" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientBatchListResponse_StatusINVALID_ID" 'PrefixI 'False) (U1 :: Type -> Type)))))

newtype ClientBatchGetRequest Source #

Constructors

ClientBatchGetRequest 

Fields

Instances

Instances details
Eq ClientBatchGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

(==) :: ClientBatchGetRequest -> ClientBatchGetRequest -> Bool Source #

(/=) :: ClientBatchGetRequest -> ClientBatchGetRequest -> Bool Source #

Ord ClientBatchGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

compare :: ClientBatchGetRequest -> ClientBatchGetRequest -> Ordering Source #

(<) :: ClientBatchGetRequest -> ClientBatchGetRequest -> Bool Source #

(<=) :: ClientBatchGetRequest -> ClientBatchGetRequest -> Bool Source #

(>) :: ClientBatchGetRequest -> ClientBatchGetRequest -> Bool Source #

(>=) :: ClientBatchGetRequest -> ClientBatchGetRequest -> Bool Source #

max :: ClientBatchGetRequest -> ClientBatchGetRequest -> ClientBatchGetRequest Source #

min :: ClientBatchGetRequest -> ClientBatchGetRequest -> ClientBatchGetRequest Source #

Show ClientBatchGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

showsPrec :: Int -> ClientBatchGetRequest -> ShowS Source #

show :: ClientBatchGetRequest -> String Source #

showList :: [ClientBatchGetRequest] -> ShowS Source #

Generic ClientBatchGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Associated Types

type Rep ClientBatchGetRequest :: Type -> Type Source #

Methods

from :: ClientBatchGetRequest -> Rep ClientBatchGetRequest x Source #

to :: Rep ClientBatchGetRequest x -> ClientBatchGetRequest Source #

ToJSON ClientBatchGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

toJSON :: ClientBatchGetRequest -> Value Source #

toEncoding :: ClientBatchGetRequest -> Encoding Source #

toJSONList :: [ClientBatchGetRequest] -> Value Source #

toEncodingList :: [ClientBatchGetRequest] -> Encoding Source #

FromJSON ClientBatchGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

parseJSON :: Value -> Parser ClientBatchGetRequest Source #

parseJSONList :: Value -> Parser [ClientBatchGetRequest] Source #

NFData ClientBatchGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

rnf :: ClientBatchGetRequest -> () Source #

ToJSONPB ClientBatchGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

toJSONPB :: ClientBatchGetRequest -> Options -> Value Source #

toEncodingPB :: ClientBatchGetRequest -> Options -> Encoding Source #

FromJSONPB ClientBatchGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

parseJSONPB :: Value -> Parser ClientBatchGetRequest Source #

HasDefault ClientBatchGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

def :: ClientBatchGetRequest Source #

isDefault :: ClientBatchGetRequest -> Bool Source #

Named ClientBatchGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

nameOf :: IsString string => Proxy# ClientBatchGetRequest -> string Source #

Message ClientBatchGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

encodeMessage :: FieldNumber -> ClientBatchGetRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientBatchGetRequest Source #

dotProto :: Proxy# ClientBatchGetRequest -> [DotProtoField] Source #

ToSchema ClientBatchGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

declareNamedSchema :: Proxy ClientBatchGetRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientBatchGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

type Rep ClientBatchGetRequest = D1 ('MetaData "ClientBatchGetRequest" "Data.Sawtooth.ClientBatch" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'True) (C1 ('MetaCons "ClientBatchGetRequest" 'PrefixI 'True) (S1 ('MetaSel ('Just "clientBatchGetRequestBatchId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)))

data ClientBatchGetResponse Source #

Constructors

ClientBatchGetResponse 

Fields

Instances

Instances details
Eq ClientBatchGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

(==) :: ClientBatchGetResponse -> ClientBatchGetResponse -> Bool Source #

(/=) :: ClientBatchGetResponse -> ClientBatchGetResponse -> Bool Source #

Ord ClientBatchGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

compare :: ClientBatchGetResponse -> ClientBatchGetResponse -> Ordering Source #

(<) :: ClientBatchGetResponse -> ClientBatchGetResponse -> Bool Source #

(<=) :: ClientBatchGetResponse -> ClientBatchGetResponse -> Bool Source #

(>) :: ClientBatchGetResponse -> ClientBatchGetResponse -> Bool Source #

(>=) :: ClientBatchGetResponse -> ClientBatchGetResponse -> Bool Source #

max :: ClientBatchGetResponse -> ClientBatchGetResponse -> ClientBatchGetResponse Source #

min :: ClientBatchGetResponse -> ClientBatchGetResponse -> ClientBatchGetResponse Source #

Show ClientBatchGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

showsPrec :: Int -> ClientBatchGetResponse -> ShowS Source #

show :: ClientBatchGetResponse -> String Source #

showList :: [ClientBatchGetResponse] -> ShowS Source #

Generic ClientBatchGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Associated Types

type Rep ClientBatchGetResponse :: Type -> Type Source #

Methods

from :: ClientBatchGetResponse -> Rep ClientBatchGetResponse x Source #

to :: Rep ClientBatchGetResponse x -> ClientBatchGetResponse Source #

ToJSON ClientBatchGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

toJSON :: ClientBatchGetResponse -> Value Source #

toEncoding :: ClientBatchGetResponse -> Encoding Source #

toJSONList :: [ClientBatchGetResponse] -> Value Source #

toEncodingList :: [ClientBatchGetResponse] -> Encoding Source #

FromJSON ClientBatchGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

parseJSON :: Value -> Parser ClientBatchGetResponse Source #

parseJSONList :: Value -> Parser [ClientBatchGetResponse] Source #

NFData ClientBatchGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

rnf :: ClientBatchGetResponse -> () Source #

ToJSONPB ClientBatchGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

toJSONPB :: ClientBatchGetResponse -> Options -> Value Source #

toEncodingPB :: ClientBatchGetResponse -> Options -> Encoding Source #

FromJSONPB ClientBatchGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

parseJSONPB :: Value -> Parser ClientBatchGetResponse Source #

HasDefault ClientBatchGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

def :: ClientBatchGetResponse Source #

isDefault :: ClientBatchGetResponse -> Bool Source #

Named ClientBatchGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

nameOf :: IsString string => Proxy# ClientBatchGetResponse -> string Source #

Message ClientBatchGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

encodeMessage :: FieldNumber -> ClientBatchGetResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientBatchGetResponse Source #

dotProto :: Proxy# ClientBatchGetResponse -> [DotProtoField] Source #

ToSchema ClientBatchGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

declareNamedSchema :: Proxy ClientBatchGetResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientBatchGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

type Rep ClientBatchGetResponse = D1 ('MetaData "ClientBatchGetResponse" "Data.Sawtooth.ClientBatch" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "ClientBatchGetResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "clientBatchGetResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated ClientBatchGetResponse_Status)) :*: S1 ('MetaSel ('Just "clientBatchGetResponseBatch") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe Batch))))

data ClientBatchGetResponse_Status Source #

Constructors

ClientBatchGetResponse_StatusSTATUS_UNSET 
ClientBatchGetResponse_StatusOK 
ClientBatchGetResponse_StatusINTERNAL_ERROR 
ClientBatchGetResponse_StatusNO_RESOURCE 
ClientBatchGetResponse_StatusINVALID_ID 

Instances

Instances details
Bounded ClientBatchGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

minBound :: ClientBatchGetResponse_Status Source #

maxBound :: ClientBatchGetResponse_Status Source #

Eq ClientBatchGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

(==) :: ClientBatchGetResponse_Status -> ClientBatchGetResponse_Status -> Bool Source #

(/=) :: ClientBatchGetResponse_Status -> ClientBatchGetResponse_Status -> Bool Source #

Ord ClientBatchGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

compare :: ClientBatchGetResponse_Status -> ClientBatchGetResponse_Status -> Ordering Source #

(<) :: ClientBatchGetResponse_Status -> ClientBatchGetResponse_Status -> Bool Source #

(<=) :: ClientBatchGetResponse_Status -> ClientBatchGetResponse_Status -> Bool Source #

(>) :: ClientBatchGetResponse_Status -> ClientBatchGetResponse_Status -> Bool Source #

(>=) :: ClientBatchGetResponse_Status -> ClientBatchGetResponse_Status -> Bool Source #

max :: ClientBatchGetResponse_Status -> ClientBatchGetResponse_Status -> ClientBatchGetResponse_Status Source #

min :: ClientBatchGetResponse_Status -> ClientBatchGetResponse_Status -> ClientBatchGetResponse_Status Source #

Show ClientBatchGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

showsPrec :: Int -> ClientBatchGetResponse_Status -> ShowS Source #

show :: ClientBatchGetResponse_Status -> String Source #

showList :: [ClientBatchGetResponse_Status] -> ShowS Source #

Generic ClientBatchGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Associated Types

type Rep ClientBatchGetResponse_Status :: Type -> Type Source #

Methods

from :: ClientBatchGetResponse_Status -> Rep ClientBatchGetResponse_Status x Source #

to :: Rep ClientBatchGetResponse_Status x -> ClientBatchGetResponse_Status Source #

ToJSON ClientBatchGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

toJSON :: ClientBatchGetResponse_Status -> Value Source #

toEncoding :: ClientBatchGetResponse_Status -> Encoding Source #

toJSONList :: [ClientBatchGetResponse_Status] -> Value Source #

toEncodingList :: [ClientBatchGetResponse_Status] -> Encoding Source #

FromJSON ClientBatchGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

parseJSON :: Value -> Parser ClientBatchGetResponse_Status Source #

parseJSONList :: Value -> Parser [ClientBatchGetResponse_Status] Source #

NFData ClientBatchGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

rnf :: ClientBatchGetResponse_Status -> () Source #

ProtoEnum ClientBatchGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

toProtoEnumMay :: Int32 -> Maybe ClientBatchGetResponse_Status Source #

fromProtoEnum :: ClientBatchGetResponse_Status -> Int32 Source #

ToJSONPB ClientBatchGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

toJSONPB :: ClientBatchGetResponse_Status -> Options -> Value Source #

toEncodingPB :: ClientBatchGetResponse_Status -> Options -> Encoding Source #

FromJSONPB ClientBatchGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

parseJSONPB :: Value -> Parser ClientBatchGetResponse_Status Source #

HasDefault ClientBatchGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

def :: ClientBatchGetResponse_Status Source #

isDefault :: ClientBatchGetResponse_Status -> Bool Source #

Named ClientBatchGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

nameOf :: IsString string => Proxy# ClientBatchGetResponse_Status -> string Source #

Finite ClientBatchGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

enumerate :: IsString string => Proxy# ClientBatchGetResponse_Status -> [(string, Int32)] Source #

type Rep ClientBatchGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

type Rep ClientBatchGetResponse_Status = D1 ('MetaData "ClientBatchGetResponse_Status" "Data.Sawtooth.ClientBatch" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) ((C1 ('MetaCons "ClientBatchGetResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientBatchGetResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ClientBatchGetResponse_StatusINTERNAL_ERROR" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "ClientBatchGetResponse_StatusNO_RESOURCE" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientBatchGetResponse_StatusINVALID_ID" 'PrefixI 'False) (U1 :: Type -> Type))))
\ No newline at end of file +Data.Sawtooth.ClientBatch
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types
Safe HaskellNone
LanguageHaskell2010

Data.Sawtooth.ClientBatch

Description

Generated by Haskell protocol buffer compiler. DO NOT EDIT!

Documentation

data ClientBatchListRequest Source #

Constructors

ClientBatchListRequest 

Fields

Instances

Instances details
Eq ClientBatchListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

(==) :: ClientBatchListRequest -> ClientBatchListRequest -> Bool Source #

(/=) :: ClientBatchListRequest -> ClientBatchListRequest -> Bool Source #

Ord ClientBatchListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

compare :: ClientBatchListRequest -> ClientBatchListRequest -> Ordering Source #

(<) :: ClientBatchListRequest -> ClientBatchListRequest -> Bool Source #

(<=) :: ClientBatchListRequest -> ClientBatchListRequest -> Bool Source #

(>) :: ClientBatchListRequest -> ClientBatchListRequest -> Bool Source #

(>=) :: ClientBatchListRequest -> ClientBatchListRequest -> Bool Source #

max :: ClientBatchListRequest -> ClientBatchListRequest -> ClientBatchListRequest Source #

min :: ClientBatchListRequest -> ClientBatchListRequest -> ClientBatchListRequest Source #

Show ClientBatchListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

showsPrec :: Int -> ClientBatchListRequest -> ShowS Source #

show :: ClientBatchListRequest -> String Source #

showList :: [ClientBatchListRequest] -> ShowS Source #

Generic ClientBatchListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Associated Types

type Rep ClientBatchListRequest :: Type -> Type Source #

Methods

from :: ClientBatchListRequest -> Rep ClientBatchListRequest x Source #

to :: Rep ClientBatchListRequest x -> ClientBatchListRequest Source #

ToJSON ClientBatchListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

toJSON :: ClientBatchListRequest -> Value Source #

toEncoding :: ClientBatchListRequest -> Encoding Source #

toJSONList :: [ClientBatchListRequest] -> Value Source #

toEncodingList :: [ClientBatchListRequest] -> Encoding Source #

FromJSON ClientBatchListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

parseJSON :: Value -> Parser ClientBatchListRequest Source #

parseJSONList :: Value -> Parser [ClientBatchListRequest] Source #

NFData ClientBatchListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

rnf :: ClientBatchListRequest -> () Source #

ToJSONPB ClientBatchListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

toJSONPB :: ClientBatchListRequest -> Options -> Value Source #

toEncodingPB :: ClientBatchListRequest -> Options -> Encoding Source #

FromJSONPB ClientBatchListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

parseJSONPB :: Value -> Parser ClientBatchListRequest Source #

HasDefault ClientBatchListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

def :: ClientBatchListRequest Source #

isDefault :: ClientBatchListRequest -> Bool Source #

Named ClientBatchListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

nameOf :: IsString string => Proxy# ClientBatchListRequest -> string Source #

Message ClientBatchListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

encodeMessage :: FieldNumber -> ClientBatchListRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientBatchListRequest Source #

dotProto :: Proxy# ClientBatchListRequest -> [DotProtoField] Source #

ToSchema ClientBatchListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

declareNamedSchema :: Proxy ClientBatchListRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientBatchListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

type Rep ClientBatchListRequest = D1 ('MetaData "ClientBatchListRequest" "Data.Sawtooth.ClientBatch" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "ClientBatchListRequest" 'PrefixI 'True) ((S1 ('MetaSel ('Just "clientBatchListRequestHeadId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "clientBatchListRequestBatchIds") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Text))) :*: (S1 ('MetaSel ('Just "clientBatchListRequestPaging") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe ClientPagingControls)) :*: S1 ('MetaSel ('Just "clientBatchListRequestSorting") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector ClientSortControls)))))

data ClientBatchListResponse Source #

Constructors

ClientBatchListResponse 

Fields

Instances

Instances details
Eq ClientBatchListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

(==) :: ClientBatchListResponse -> ClientBatchListResponse -> Bool Source #

(/=) :: ClientBatchListResponse -> ClientBatchListResponse -> Bool Source #

Ord ClientBatchListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

compare :: ClientBatchListResponse -> ClientBatchListResponse -> Ordering Source #

(<) :: ClientBatchListResponse -> ClientBatchListResponse -> Bool Source #

(<=) :: ClientBatchListResponse -> ClientBatchListResponse -> Bool Source #

(>) :: ClientBatchListResponse -> ClientBatchListResponse -> Bool Source #

(>=) :: ClientBatchListResponse -> ClientBatchListResponse -> Bool Source #

max :: ClientBatchListResponse -> ClientBatchListResponse -> ClientBatchListResponse Source #

min :: ClientBatchListResponse -> ClientBatchListResponse -> ClientBatchListResponse Source #

Show ClientBatchListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

showsPrec :: Int -> ClientBatchListResponse -> ShowS Source #

show :: ClientBatchListResponse -> String Source #

showList :: [ClientBatchListResponse] -> ShowS Source #

Generic ClientBatchListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Associated Types

type Rep ClientBatchListResponse :: Type -> Type Source #

Methods

from :: ClientBatchListResponse -> Rep ClientBatchListResponse x Source #

to :: Rep ClientBatchListResponse x -> ClientBatchListResponse Source #

ToJSON ClientBatchListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

toJSON :: ClientBatchListResponse -> Value Source #

toEncoding :: ClientBatchListResponse -> Encoding Source #

toJSONList :: [ClientBatchListResponse] -> Value Source #

toEncodingList :: [ClientBatchListResponse] -> Encoding Source #

FromJSON ClientBatchListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

parseJSON :: Value -> Parser ClientBatchListResponse Source #

parseJSONList :: Value -> Parser [ClientBatchListResponse] Source #

NFData ClientBatchListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

rnf :: ClientBatchListResponse -> () Source #

ToJSONPB ClientBatchListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

toJSONPB :: ClientBatchListResponse -> Options -> Value Source #

toEncodingPB :: ClientBatchListResponse -> Options -> Encoding Source #

FromJSONPB ClientBatchListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

parseJSONPB :: Value -> Parser ClientBatchListResponse Source #

HasDefault ClientBatchListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

def :: ClientBatchListResponse Source #

isDefault :: ClientBatchListResponse -> Bool Source #

Named ClientBatchListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

nameOf :: IsString string => Proxy# ClientBatchListResponse -> string Source #

Message ClientBatchListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

encodeMessage :: FieldNumber -> ClientBatchListResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientBatchListResponse Source #

dotProto :: Proxy# ClientBatchListResponse -> [DotProtoField] Source #

ToSchema ClientBatchListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

declareNamedSchema :: Proxy ClientBatchListResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientBatchListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

type Rep ClientBatchListResponse = D1 ('MetaData "ClientBatchListResponse" "Data.Sawtooth.ClientBatch" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "ClientBatchListResponse" 'PrefixI 'True) ((S1 ('MetaSel ('Just "clientBatchListResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated ClientBatchListResponse_Status)) :*: S1 ('MetaSel ('Just "clientBatchListResponseBatches") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Batch))) :*: (S1 ('MetaSel ('Just "clientBatchListResponseHeadId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "clientBatchListResponsePaging") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe ClientPagingResponse)))))

data ClientBatchListResponse_Status Source #

Constructors

ClientBatchListResponse_StatusSTATUS_UNSET 
ClientBatchListResponse_StatusOK 
ClientBatchListResponse_StatusINTERNAL_ERROR 
ClientBatchListResponse_StatusNOT_READY 
ClientBatchListResponse_StatusNO_ROOT 
ClientBatchListResponse_StatusNO_RESOURCE 
ClientBatchListResponse_StatusINVALID_PAGING 
ClientBatchListResponse_StatusINVALID_SORT 
ClientBatchListResponse_StatusINVALID_ID 

Instances

Instances details
Bounded ClientBatchListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

minBound :: ClientBatchListResponse_Status Source #

maxBound :: ClientBatchListResponse_Status Source #

Eq ClientBatchListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

(==) :: ClientBatchListResponse_Status -> ClientBatchListResponse_Status -> Bool Source #

(/=) :: ClientBatchListResponse_Status -> ClientBatchListResponse_Status -> Bool Source #

Ord ClientBatchListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

compare :: ClientBatchListResponse_Status -> ClientBatchListResponse_Status -> Ordering Source #

(<) :: ClientBatchListResponse_Status -> ClientBatchListResponse_Status -> Bool Source #

(<=) :: ClientBatchListResponse_Status -> ClientBatchListResponse_Status -> Bool Source #

(>) :: ClientBatchListResponse_Status -> ClientBatchListResponse_Status -> Bool Source #

(>=) :: ClientBatchListResponse_Status -> ClientBatchListResponse_Status -> Bool Source #

max :: ClientBatchListResponse_Status -> ClientBatchListResponse_Status -> ClientBatchListResponse_Status Source #

min :: ClientBatchListResponse_Status -> ClientBatchListResponse_Status -> ClientBatchListResponse_Status Source #

Show ClientBatchListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

showsPrec :: Int -> ClientBatchListResponse_Status -> ShowS Source #

show :: ClientBatchListResponse_Status -> String Source #

showList :: [ClientBatchListResponse_Status] -> ShowS Source #

Generic ClientBatchListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Associated Types

type Rep ClientBatchListResponse_Status :: Type -> Type Source #

Methods

from :: ClientBatchListResponse_Status -> Rep ClientBatchListResponse_Status x Source #

to :: Rep ClientBatchListResponse_Status x -> ClientBatchListResponse_Status Source #

ToJSON ClientBatchListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

toJSON :: ClientBatchListResponse_Status -> Value Source #

toEncoding :: ClientBatchListResponse_Status -> Encoding Source #

toJSONList :: [ClientBatchListResponse_Status] -> Value Source #

toEncodingList :: [ClientBatchListResponse_Status] -> Encoding Source #

FromJSON ClientBatchListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

parseJSON :: Value -> Parser ClientBatchListResponse_Status Source #

parseJSONList :: Value -> Parser [ClientBatchListResponse_Status] Source #

NFData ClientBatchListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

rnf :: ClientBatchListResponse_Status -> () Source #

ProtoEnum ClientBatchListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

toProtoEnumMay :: Int32 -> Maybe ClientBatchListResponse_Status Source #

fromProtoEnum :: ClientBatchListResponse_Status -> Int32 Source #

ToJSONPB ClientBatchListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

toJSONPB :: ClientBatchListResponse_Status -> Options -> Value Source #

toEncodingPB :: ClientBatchListResponse_Status -> Options -> Encoding Source #

FromJSONPB ClientBatchListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

parseJSONPB :: Value -> Parser ClientBatchListResponse_Status Source #

HasDefault ClientBatchListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

def :: ClientBatchListResponse_Status Source #

isDefault :: ClientBatchListResponse_Status -> Bool Source #

Named ClientBatchListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

nameOf :: IsString string => Proxy# ClientBatchListResponse_Status -> string Source #

Finite ClientBatchListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

enumerate :: IsString string => Proxy# ClientBatchListResponse_Status -> [(string, Int32)] Source #

type Rep ClientBatchListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

type Rep ClientBatchListResponse_Status = D1 ('MetaData "ClientBatchListResponse_Status" "Data.Sawtooth.ClientBatch" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (((C1 ('MetaCons "ClientBatchListResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientBatchListResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ClientBatchListResponse_StatusINTERNAL_ERROR" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientBatchListResponse_StatusNOT_READY" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "ClientBatchListResponse_StatusNO_ROOT" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientBatchListResponse_StatusNO_RESOURCE" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ClientBatchListResponse_StatusINVALID_PAGING" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "ClientBatchListResponse_StatusINVALID_SORT" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientBatchListResponse_StatusINVALID_ID" 'PrefixI 'False) (U1 :: Type -> Type)))))

newtype ClientBatchGetRequest Source #

Constructors

ClientBatchGetRequest 

Fields

Instances

Instances details
Eq ClientBatchGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

(==) :: ClientBatchGetRequest -> ClientBatchGetRequest -> Bool Source #

(/=) :: ClientBatchGetRequest -> ClientBatchGetRequest -> Bool Source #

Ord ClientBatchGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

compare :: ClientBatchGetRequest -> ClientBatchGetRequest -> Ordering Source #

(<) :: ClientBatchGetRequest -> ClientBatchGetRequest -> Bool Source #

(<=) :: ClientBatchGetRequest -> ClientBatchGetRequest -> Bool Source #

(>) :: ClientBatchGetRequest -> ClientBatchGetRequest -> Bool Source #

(>=) :: ClientBatchGetRequest -> ClientBatchGetRequest -> Bool Source #

max :: ClientBatchGetRequest -> ClientBatchGetRequest -> ClientBatchGetRequest Source #

min :: ClientBatchGetRequest -> ClientBatchGetRequest -> ClientBatchGetRequest Source #

Show ClientBatchGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

showsPrec :: Int -> ClientBatchGetRequest -> ShowS Source #

show :: ClientBatchGetRequest -> String Source #

showList :: [ClientBatchGetRequest] -> ShowS Source #

Generic ClientBatchGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Associated Types

type Rep ClientBatchGetRequest :: Type -> Type Source #

Methods

from :: ClientBatchGetRequest -> Rep ClientBatchGetRequest x Source #

to :: Rep ClientBatchGetRequest x -> ClientBatchGetRequest Source #

ToJSON ClientBatchGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

toJSON :: ClientBatchGetRequest -> Value Source #

toEncoding :: ClientBatchGetRequest -> Encoding Source #

toJSONList :: [ClientBatchGetRequest] -> Value Source #

toEncodingList :: [ClientBatchGetRequest] -> Encoding Source #

FromJSON ClientBatchGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

parseJSON :: Value -> Parser ClientBatchGetRequest Source #

parseJSONList :: Value -> Parser [ClientBatchGetRequest] Source #

NFData ClientBatchGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

rnf :: ClientBatchGetRequest -> () Source #

ToJSONPB ClientBatchGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

toJSONPB :: ClientBatchGetRequest -> Options -> Value Source #

toEncodingPB :: ClientBatchGetRequest -> Options -> Encoding Source #

FromJSONPB ClientBatchGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

parseJSONPB :: Value -> Parser ClientBatchGetRequest Source #

HasDefault ClientBatchGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

def :: ClientBatchGetRequest Source #

isDefault :: ClientBatchGetRequest -> Bool Source #

Named ClientBatchGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

nameOf :: IsString string => Proxy# ClientBatchGetRequest -> string Source #

Message ClientBatchGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

encodeMessage :: FieldNumber -> ClientBatchGetRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientBatchGetRequest Source #

dotProto :: Proxy# ClientBatchGetRequest -> [DotProtoField] Source #

ToSchema ClientBatchGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

declareNamedSchema :: Proxy ClientBatchGetRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientBatchGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

type Rep ClientBatchGetRequest = D1 ('MetaData "ClientBatchGetRequest" "Data.Sawtooth.ClientBatch" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'True) (C1 ('MetaCons "ClientBatchGetRequest" 'PrefixI 'True) (S1 ('MetaSel ('Just "clientBatchGetRequestBatchId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)))

data ClientBatchGetResponse Source #

Constructors

ClientBatchGetResponse 

Fields

Instances

Instances details
Eq ClientBatchGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

(==) :: ClientBatchGetResponse -> ClientBatchGetResponse -> Bool Source #

(/=) :: ClientBatchGetResponse -> ClientBatchGetResponse -> Bool Source #

Ord ClientBatchGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

compare :: ClientBatchGetResponse -> ClientBatchGetResponse -> Ordering Source #

(<) :: ClientBatchGetResponse -> ClientBatchGetResponse -> Bool Source #

(<=) :: ClientBatchGetResponse -> ClientBatchGetResponse -> Bool Source #

(>) :: ClientBatchGetResponse -> ClientBatchGetResponse -> Bool Source #

(>=) :: ClientBatchGetResponse -> ClientBatchGetResponse -> Bool Source #

max :: ClientBatchGetResponse -> ClientBatchGetResponse -> ClientBatchGetResponse Source #

min :: ClientBatchGetResponse -> ClientBatchGetResponse -> ClientBatchGetResponse Source #

Show ClientBatchGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

showsPrec :: Int -> ClientBatchGetResponse -> ShowS Source #

show :: ClientBatchGetResponse -> String Source #

showList :: [ClientBatchGetResponse] -> ShowS Source #

Generic ClientBatchGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Associated Types

type Rep ClientBatchGetResponse :: Type -> Type Source #

Methods

from :: ClientBatchGetResponse -> Rep ClientBatchGetResponse x Source #

to :: Rep ClientBatchGetResponse x -> ClientBatchGetResponse Source #

ToJSON ClientBatchGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

toJSON :: ClientBatchGetResponse -> Value Source #

toEncoding :: ClientBatchGetResponse -> Encoding Source #

toJSONList :: [ClientBatchGetResponse] -> Value Source #

toEncodingList :: [ClientBatchGetResponse] -> Encoding Source #

FromJSON ClientBatchGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

parseJSON :: Value -> Parser ClientBatchGetResponse Source #

parseJSONList :: Value -> Parser [ClientBatchGetResponse] Source #

NFData ClientBatchGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

rnf :: ClientBatchGetResponse -> () Source #

ToJSONPB ClientBatchGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

toJSONPB :: ClientBatchGetResponse -> Options -> Value Source #

toEncodingPB :: ClientBatchGetResponse -> Options -> Encoding Source #

FromJSONPB ClientBatchGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

parseJSONPB :: Value -> Parser ClientBatchGetResponse Source #

HasDefault ClientBatchGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

def :: ClientBatchGetResponse Source #

isDefault :: ClientBatchGetResponse -> Bool Source #

Named ClientBatchGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

nameOf :: IsString string => Proxy# ClientBatchGetResponse -> string Source #

Message ClientBatchGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

encodeMessage :: FieldNumber -> ClientBatchGetResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientBatchGetResponse Source #

dotProto :: Proxy# ClientBatchGetResponse -> [DotProtoField] Source #

ToSchema ClientBatchGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

declareNamedSchema :: Proxy ClientBatchGetResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientBatchGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

type Rep ClientBatchGetResponse = D1 ('MetaData "ClientBatchGetResponse" "Data.Sawtooth.ClientBatch" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "ClientBatchGetResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "clientBatchGetResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated ClientBatchGetResponse_Status)) :*: S1 ('MetaSel ('Just "clientBatchGetResponseBatch") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe Batch))))

data ClientBatchGetResponse_Status Source #

Constructors

ClientBatchGetResponse_StatusSTATUS_UNSET 
ClientBatchGetResponse_StatusOK 
ClientBatchGetResponse_StatusINTERNAL_ERROR 
ClientBatchGetResponse_StatusNO_RESOURCE 
ClientBatchGetResponse_StatusINVALID_ID 

Instances

Instances details
Bounded ClientBatchGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

minBound :: ClientBatchGetResponse_Status Source #

maxBound :: ClientBatchGetResponse_Status Source #

Eq ClientBatchGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

(==) :: ClientBatchGetResponse_Status -> ClientBatchGetResponse_Status -> Bool Source #

(/=) :: ClientBatchGetResponse_Status -> ClientBatchGetResponse_Status -> Bool Source #

Ord ClientBatchGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

compare :: ClientBatchGetResponse_Status -> ClientBatchGetResponse_Status -> Ordering Source #

(<) :: ClientBatchGetResponse_Status -> ClientBatchGetResponse_Status -> Bool Source #

(<=) :: ClientBatchGetResponse_Status -> ClientBatchGetResponse_Status -> Bool Source #

(>) :: ClientBatchGetResponse_Status -> ClientBatchGetResponse_Status -> Bool Source #

(>=) :: ClientBatchGetResponse_Status -> ClientBatchGetResponse_Status -> Bool Source #

max :: ClientBatchGetResponse_Status -> ClientBatchGetResponse_Status -> ClientBatchGetResponse_Status Source #

min :: ClientBatchGetResponse_Status -> ClientBatchGetResponse_Status -> ClientBatchGetResponse_Status Source #

Show ClientBatchGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

showsPrec :: Int -> ClientBatchGetResponse_Status -> ShowS Source #

show :: ClientBatchGetResponse_Status -> String Source #

showList :: [ClientBatchGetResponse_Status] -> ShowS Source #

Generic ClientBatchGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Associated Types

type Rep ClientBatchGetResponse_Status :: Type -> Type Source #

Methods

from :: ClientBatchGetResponse_Status -> Rep ClientBatchGetResponse_Status x Source #

to :: Rep ClientBatchGetResponse_Status x -> ClientBatchGetResponse_Status Source #

ToJSON ClientBatchGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

toJSON :: ClientBatchGetResponse_Status -> Value Source #

toEncoding :: ClientBatchGetResponse_Status -> Encoding Source #

toJSONList :: [ClientBatchGetResponse_Status] -> Value Source #

toEncodingList :: [ClientBatchGetResponse_Status] -> Encoding Source #

FromJSON ClientBatchGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

parseJSON :: Value -> Parser ClientBatchGetResponse_Status Source #

parseJSONList :: Value -> Parser [ClientBatchGetResponse_Status] Source #

NFData ClientBatchGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

rnf :: ClientBatchGetResponse_Status -> () Source #

ProtoEnum ClientBatchGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

toProtoEnumMay :: Int32 -> Maybe ClientBatchGetResponse_Status Source #

fromProtoEnum :: ClientBatchGetResponse_Status -> Int32 Source #

ToJSONPB ClientBatchGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

toJSONPB :: ClientBatchGetResponse_Status -> Options -> Value Source #

toEncodingPB :: ClientBatchGetResponse_Status -> Options -> Encoding Source #

FromJSONPB ClientBatchGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

parseJSONPB :: Value -> Parser ClientBatchGetResponse_Status Source #

HasDefault ClientBatchGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

def :: ClientBatchGetResponse_Status Source #

isDefault :: ClientBatchGetResponse_Status -> Bool Source #

Named ClientBatchGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

nameOf :: IsString string => Proxy# ClientBatchGetResponse_Status -> string Source #

Finite ClientBatchGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

Methods

enumerate :: IsString string => Proxy# ClientBatchGetResponse_Status -> [(string, Int32)] Source #

type Rep ClientBatchGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatch

type Rep ClientBatchGetResponse_Status = D1 ('MetaData "ClientBatchGetResponse_Status" "Data.Sawtooth.ClientBatch" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) ((C1 ('MetaCons "ClientBatchGetResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientBatchGetResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ClientBatchGetResponse_StatusINTERNAL_ERROR" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "ClientBatchGetResponse_StatusNO_RESOURCE" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientBatchGetResponse_StatusINVALID_ID" 'PrefixI 'False) (U1 :: Type -> Type))))
\ No newline at end of file diff --git a/Data-Sawtooth-ClientBatchSubmit.html b/Data-Sawtooth-ClientBatchSubmit.html index a2256de..685e8df 100644 --- a/Data-Sawtooth-ClientBatchSubmit.html +++ b/Data-Sawtooth-ClientBatchSubmit.html @@ -1 +1 @@ -Data.Sawtooth.ClientBatchSubmit
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types
Safe HaskellNone
LanguageHaskell2010

Data.Sawtooth.ClientBatchSubmit

Description

Generated by Haskell protocol buffer compiler. DO NOT EDIT!

Documentation

data ClientBatchStatus Source #

Constructors

ClientBatchStatus 

Fields

Instances

Instances details
Eq ClientBatchStatus Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

(==) :: ClientBatchStatus -> ClientBatchStatus -> Bool Source #

(/=) :: ClientBatchStatus -> ClientBatchStatus -> Bool Source #

Ord ClientBatchStatus Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

compare :: ClientBatchStatus -> ClientBatchStatus -> Ordering Source #

(<) :: ClientBatchStatus -> ClientBatchStatus -> Bool Source #

(<=) :: ClientBatchStatus -> ClientBatchStatus -> Bool Source #

(>) :: ClientBatchStatus -> ClientBatchStatus -> Bool Source #

(>=) :: ClientBatchStatus -> ClientBatchStatus -> Bool Source #

max :: ClientBatchStatus -> ClientBatchStatus -> ClientBatchStatus Source #

min :: ClientBatchStatus -> ClientBatchStatus -> ClientBatchStatus Source #

Show ClientBatchStatus Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

showsPrec :: Int -> ClientBatchStatus -> ShowS Source #

show :: ClientBatchStatus -> String Source #

showList :: [ClientBatchStatus] -> ShowS Source #

Generic ClientBatchStatus Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Associated Types

type Rep ClientBatchStatus :: Type -> Type Source #

Methods

from :: ClientBatchStatus -> Rep ClientBatchStatus x Source #

to :: Rep ClientBatchStatus x -> ClientBatchStatus Source #

ToJSON ClientBatchStatus Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

toJSON :: ClientBatchStatus -> Value Source #

toEncoding :: ClientBatchStatus -> Encoding Source #

toJSONList :: [ClientBatchStatus] -> Value Source #

toEncodingList :: [ClientBatchStatus] -> Encoding Source #

FromJSON ClientBatchStatus Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

parseJSON :: Value -> Parser ClientBatchStatus Source #

parseJSONList :: Value -> Parser [ClientBatchStatus] Source #

NFData ClientBatchStatus Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

rnf :: ClientBatchStatus -> () Source #

ToJSONPB ClientBatchStatus Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

toJSONPB :: ClientBatchStatus -> Options -> Value Source #

toEncodingPB :: ClientBatchStatus -> Options -> Encoding Source #

FromJSONPB ClientBatchStatus Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

parseJSONPB :: Value -> Parser ClientBatchStatus Source #

HasDefault ClientBatchStatus Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

def :: ClientBatchStatus Source #

isDefault :: ClientBatchStatus -> Bool Source #

Named ClientBatchStatus Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

nameOf :: IsString string => Proxy# ClientBatchStatus -> string Source #

Message ClientBatchStatus Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

encodeMessage :: FieldNumber -> ClientBatchStatus -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientBatchStatus Source #

dotProto :: Proxy# ClientBatchStatus -> [DotProtoField] Source #

ToSchema ClientBatchStatus Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

declareNamedSchema :: Proxy ClientBatchStatus -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientBatchStatus Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

type Rep ClientBatchStatus = D1 ('MetaData "ClientBatchStatus" "Data.Sawtooth.ClientBatchSubmit" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "ClientBatchStatus" 'PrefixI 'True) (S1 ('MetaSel ('Just "clientBatchStatusBatchId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: (S1 ('MetaSel ('Just "clientBatchStatusStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated ClientBatchStatus_Status)) :*: S1 ('MetaSel ('Just "clientBatchStatusInvalidTransactions") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector ClientBatchStatus_InvalidTransaction)))))

data ClientBatchStatus_Status Source #

Constructors

ClientBatchStatus_StatusSTATUS_UNSET 
ClientBatchStatus_StatusCOMMITTED 
ClientBatchStatus_StatusINVALID 
ClientBatchStatus_StatusPENDING 
ClientBatchStatus_StatusUNKNOWN 

Instances

Instances details
Bounded ClientBatchStatus_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

minBound :: ClientBatchStatus_Status Source #

maxBound :: ClientBatchStatus_Status Source #

Eq ClientBatchStatus_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

(==) :: ClientBatchStatus_Status -> ClientBatchStatus_Status -> Bool Source #

(/=) :: ClientBatchStatus_Status -> ClientBatchStatus_Status -> Bool Source #

Ord ClientBatchStatus_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

compare :: ClientBatchStatus_Status -> ClientBatchStatus_Status -> Ordering Source #

(<) :: ClientBatchStatus_Status -> ClientBatchStatus_Status -> Bool Source #

(<=) :: ClientBatchStatus_Status -> ClientBatchStatus_Status -> Bool Source #

(>) :: ClientBatchStatus_Status -> ClientBatchStatus_Status -> Bool Source #

(>=) :: ClientBatchStatus_Status -> ClientBatchStatus_Status -> Bool Source #

max :: ClientBatchStatus_Status -> ClientBatchStatus_Status -> ClientBatchStatus_Status Source #

min :: ClientBatchStatus_Status -> ClientBatchStatus_Status -> ClientBatchStatus_Status Source #

Show ClientBatchStatus_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

showsPrec :: Int -> ClientBatchStatus_Status -> ShowS Source #

show :: ClientBatchStatus_Status -> String Source #

showList :: [ClientBatchStatus_Status] -> ShowS Source #

Generic ClientBatchStatus_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Associated Types

type Rep ClientBatchStatus_Status :: Type -> Type Source #

Methods

from :: ClientBatchStatus_Status -> Rep ClientBatchStatus_Status x Source #

to :: Rep ClientBatchStatus_Status x -> ClientBatchStatus_Status Source #

ToJSON ClientBatchStatus_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

toJSON :: ClientBatchStatus_Status -> Value Source #

toEncoding :: ClientBatchStatus_Status -> Encoding Source #

toJSONList :: [ClientBatchStatus_Status] -> Value Source #

toEncodingList :: [ClientBatchStatus_Status] -> Encoding Source #

FromJSON ClientBatchStatus_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

parseJSON :: Value -> Parser ClientBatchStatus_Status Source #

parseJSONList :: Value -> Parser [ClientBatchStatus_Status] Source #

NFData ClientBatchStatus_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

rnf :: ClientBatchStatus_Status -> () Source #

ProtoEnum ClientBatchStatus_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

toProtoEnumMay :: Int32 -> Maybe ClientBatchStatus_Status Source #

fromProtoEnum :: ClientBatchStatus_Status -> Int32 Source #

ToJSONPB ClientBatchStatus_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

toJSONPB :: ClientBatchStatus_Status -> Options -> Value Source #

toEncodingPB :: ClientBatchStatus_Status -> Options -> Encoding Source #

FromJSONPB ClientBatchStatus_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

parseJSONPB :: Value -> Parser ClientBatchStatus_Status Source #

HasDefault ClientBatchStatus_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

def :: ClientBatchStatus_Status Source #

isDefault :: ClientBatchStatus_Status -> Bool Source #

Named ClientBatchStatus_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

nameOf :: IsString string => Proxy# ClientBatchStatus_Status -> string Source #

Finite ClientBatchStatus_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

enumerate :: IsString string => Proxy# ClientBatchStatus_Status -> [(string, Int32)] Source #

type Rep ClientBatchStatus_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

type Rep ClientBatchStatus_Status = D1 ('MetaData "ClientBatchStatus_Status" "Data.Sawtooth.ClientBatchSubmit" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) ((C1 ('MetaCons "ClientBatchStatus_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientBatchStatus_StatusCOMMITTED" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ClientBatchStatus_StatusINVALID" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "ClientBatchStatus_StatusPENDING" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientBatchStatus_StatusUNKNOWN" 'PrefixI 'False) (U1 :: Type -> Type))))

data ClientBatchStatus_InvalidTransaction Source #

Constructors

ClientBatchStatus_InvalidTransaction 

Fields

Instances

Instances details
Eq ClientBatchStatus_InvalidTransaction Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

(==) :: ClientBatchStatus_InvalidTransaction -> ClientBatchStatus_InvalidTransaction -> Bool Source #

(/=) :: ClientBatchStatus_InvalidTransaction -> ClientBatchStatus_InvalidTransaction -> Bool Source #

Ord ClientBatchStatus_InvalidTransaction Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

compare :: ClientBatchStatus_InvalidTransaction -> ClientBatchStatus_InvalidTransaction -> Ordering Source #

(<) :: ClientBatchStatus_InvalidTransaction -> ClientBatchStatus_InvalidTransaction -> Bool Source #

(<=) :: ClientBatchStatus_InvalidTransaction -> ClientBatchStatus_InvalidTransaction -> Bool Source #

(>) :: ClientBatchStatus_InvalidTransaction -> ClientBatchStatus_InvalidTransaction -> Bool Source #

(>=) :: ClientBatchStatus_InvalidTransaction -> ClientBatchStatus_InvalidTransaction -> Bool Source #

max :: ClientBatchStatus_InvalidTransaction -> ClientBatchStatus_InvalidTransaction -> ClientBatchStatus_InvalidTransaction Source #

min :: ClientBatchStatus_InvalidTransaction -> ClientBatchStatus_InvalidTransaction -> ClientBatchStatus_InvalidTransaction Source #

Show ClientBatchStatus_InvalidTransaction Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

showsPrec :: Int -> ClientBatchStatus_InvalidTransaction -> ShowS Source #

show :: ClientBatchStatus_InvalidTransaction -> String Source #

showList :: [ClientBatchStatus_InvalidTransaction] -> ShowS Source #

Generic ClientBatchStatus_InvalidTransaction Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Associated Types

type Rep ClientBatchStatus_InvalidTransaction :: Type -> Type Source #

Methods

from :: ClientBatchStatus_InvalidTransaction -> Rep ClientBatchStatus_InvalidTransaction x Source #

to :: Rep ClientBatchStatus_InvalidTransaction x -> ClientBatchStatus_InvalidTransaction Source #

ToJSON ClientBatchStatus_InvalidTransaction Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

toJSON :: ClientBatchStatus_InvalidTransaction -> Value Source #

toEncoding :: ClientBatchStatus_InvalidTransaction -> Encoding Source #

toJSONList :: [ClientBatchStatus_InvalidTransaction] -> Value Source #

toEncodingList :: [ClientBatchStatus_InvalidTransaction] -> Encoding Source #

FromJSON ClientBatchStatus_InvalidTransaction Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

parseJSON :: Value -> Parser ClientBatchStatus_InvalidTransaction Source #

parseJSONList :: Value -> Parser [ClientBatchStatus_InvalidTransaction] Source #

NFData ClientBatchStatus_InvalidTransaction Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

rnf :: ClientBatchStatus_InvalidTransaction -> () Source #

ToJSONPB ClientBatchStatus_InvalidTransaction Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

toJSONPB :: ClientBatchStatus_InvalidTransaction -> Options -> Value Source #

toEncodingPB :: ClientBatchStatus_InvalidTransaction -> Options -> Encoding Source #

FromJSONPB ClientBatchStatus_InvalidTransaction Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

parseJSONPB :: Value -> Parser ClientBatchStatus_InvalidTransaction Source #

HasDefault ClientBatchStatus_InvalidTransaction Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

def :: ClientBatchStatus_InvalidTransaction Source #

isDefault :: ClientBatchStatus_InvalidTransaction -> Bool Source #

Named ClientBatchStatus_InvalidTransaction Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

nameOf :: IsString string => Proxy# ClientBatchStatus_InvalidTransaction -> string Source #

Message ClientBatchStatus_InvalidTransaction Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

encodeMessage :: FieldNumber -> ClientBatchStatus_InvalidTransaction -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientBatchStatus_InvalidTransaction Source #

dotProto :: Proxy# ClientBatchStatus_InvalidTransaction -> [DotProtoField] Source #

ToSchema ClientBatchStatus_InvalidTransaction Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

declareNamedSchema :: Proxy ClientBatchStatus_InvalidTransaction -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientBatchStatus_InvalidTransaction Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

type Rep ClientBatchStatus_InvalidTransaction = D1 ('MetaData "ClientBatchStatus_InvalidTransaction" "Data.Sawtooth.ClientBatchSubmit" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "ClientBatchStatus_InvalidTransaction" 'PrefixI 'True) (S1 ('MetaSel ('Just "clientBatchStatus_InvalidTransactionTransactionId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: (S1 ('MetaSel ('Just "clientBatchStatus_InvalidTransactionMessage") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "clientBatchStatus_InvalidTransactionExtendedData") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString))))

newtype ClientBatchSubmitRequest Source #

Constructors

ClientBatchSubmitRequest 

Fields

Instances

Instances details
Eq ClientBatchSubmitRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

(==) :: ClientBatchSubmitRequest -> ClientBatchSubmitRequest -> Bool Source #

(/=) :: ClientBatchSubmitRequest -> ClientBatchSubmitRequest -> Bool Source #

Ord ClientBatchSubmitRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

compare :: ClientBatchSubmitRequest -> ClientBatchSubmitRequest -> Ordering Source #

(<) :: ClientBatchSubmitRequest -> ClientBatchSubmitRequest -> Bool Source #

(<=) :: ClientBatchSubmitRequest -> ClientBatchSubmitRequest -> Bool Source #

(>) :: ClientBatchSubmitRequest -> ClientBatchSubmitRequest -> Bool Source #

(>=) :: ClientBatchSubmitRequest -> ClientBatchSubmitRequest -> Bool Source #

max :: ClientBatchSubmitRequest -> ClientBatchSubmitRequest -> ClientBatchSubmitRequest Source #

min :: ClientBatchSubmitRequest -> ClientBatchSubmitRequest -> ClientBatchSubmitRequest Source #

Show ClientBatchSubmitRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

showsPrec :: Int -> ClientBatchSubmitRequest -> ShowS Source #

show :: ClientBatchSubmitRequest -> String Source #

showList :: [ClientBatchSubmitRequest] -> ShowS Source #

Generic ClientBatchSubmitRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Associated Types

type Rep ClientBatchSubmitRequest :: Type -> Type Source #

Methods

from :: ClientBatchSubmitRequest -> Rep ClientBatchSubmitRequest x Source #

to :: Rep ClientBatchSubmitRequest x -> ClientBatchSubmitRequest Source #

ToJSON ClientBatchSubmitRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

toJSON :: ClientBatchSubmitRequest -> Value Source #

toEncoding :: ClientBatchSubmitRequest -> Encoding Source #

toJSONList :: [ClientBatchSubmitRequest] -> Value Source #

toEncodingList :: [ClientBatchSubmitRequest] -> Encoding Source #

FromJSON ClientBatchSubmitRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

parseJSON :: Value -> Parser ClientBatchSubmitRequest Source #

parseJSONList :: Value -> Parser [ClientBatchSubmitRequest] Source #

NFData ClientBatchSubmitRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

rnf :: ClientBatchSubmitRequest -> () Source #

ToJSONPB ClientBatchSubmitRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

toJSONPB :: ClientBatchSubmitRequest -> Options -> Value Source #

toEncodingPB :: ClientBatchSubmitRequest -> Options -> Encoding Source #

FromJSONPB ClientBatchSubmitRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

parseJSONPB :: Value -> Parser ClientBatchSubmitRequest Source #

HasDefault ClientBatchSubmitRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

def :: ClientBatchSubmitRequest Source #

isDefault :: ClientBatchSubmitRequest -> Bool Source #

Named ClientBatchSubmitRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

nameOf :: IsString string => Proxy# ClientBatchSubmitRequest -> string Source #

Message ClientBatchSubmitRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

encodeMessage :: FieldNumber -> ClientBatchSubmitRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientBatchSubmitRequest Source #

dotProto :: Proxy# ClientBatchSubmitRequest -> [DotProtoField] Source #

ToSchema ClientBatchSubmitRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

declareNamedSchema :: Proxy ClientBatchSubmitRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientBatchSubmitRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

type Rep ClientBatchSubmitRequest = D1 ('MetaData "ClientBatchSubmitRequest" "Data.Sawtooth.ClientBatchSubmit" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'True) (C1 ('MetaCons "ClientBatchSubmitRequest" 'PrefixI 'True) (S1 ('MetaSel ('Just "clientBatchSubmitRequestBatches") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Batch))))

newtype ClientBatchSubmitResponse Source #

Constructors

ClientBatchSubmitResponse 

Fields

Instances

Instances details
Eq ClientBatchSubmitResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

(==) :: ClientBatchSubmitResponse -> ClientBatchSubmitResponse -> Bool Source #

(/=) :: ClientBatchSubmitResponse -> ClientBatchSubmitResponse -> Bool Source #

Ord ClientBatchSubmitResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

compare :: ClientBatchSubmitResponse -> ClientBatchSubmitResponse -> Ordering Source #

(<) :: ClientBatchSubmitResponse -> ClientBatchSubmitResponse -> Bool Source #

(<=) :: ClientBatchSubmitResponse -> ClientBatchSubmitResponse -> Bool Source #

(>) :: ClientBatchSubmitResponse -> ClientBatchSubmitResponse -> Bool Source #

(>=) :: ClientBatchSubmitResponse -> ClientBatchSubmitResponse -> Bool Source #

max :: ClientBatchSubmitResponse -> ClientBatchSubmitResponse -> ClientBatchSubmitResponse Source #

min :: ClientBatchSubmitResponse -> ClientBatchSubmitResponse -> ClientBatchSubmitResponse Source #

Show ClientBatchSubmitResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

showsPrec :: Int -> ClientBatchSubmitResponse -> ShowS Source #

show :: ClientBatchSubmitResponse -> String Source #

showList :: [ClientBatchSubmitResponse] -> ShowS Source #

Generic ClientBatchSubmitResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Associated Types

type Rep ClientBatchSubmitResponse :: Type -> Type Source #

Methods

from :: ClientBatchSubmitResponse -> Rep ClientBatchSubmitResponse x Source #

to :: Rep ClientBatchSubmitResponse x -> ClientBatchSubmitResponse Source #

ToJSON ClientBatchSubmitResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

toJSON :: ClientBatchSubmitResponse -> Value Source #

toEncoding :: ClientBatchSubmitResponse -> Encoding Source #

toJSONList :: [ClientBatchSubmitResponse] -> Value Source #

toEncodingList :: [ClientBatchSubmitResponse] -> Encoding Source #

FromJSON ClientBatchSubmitResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

parseJSON :: Value -> Parser ClientBatchSubmitResponse Source #

parseJSONList :: Value -> Parser [ClientBatchSubmitResponse] Source #

NFData ClientBatchSubmitResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

rnf :: ClientBatchSubmitResponse -> () Source #

ToJSONPB ClientBatchSubmitResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

toJSONPB :: ClientBatchSubmitResponse -> Options -> Value Source #

toEncodingPB :: ClientBatchSubmitResponse -> Options -> Encoding Source #

FromJSONPB ClientBatchSubmitResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

parseJSONPB :: Value -> Parser ClientBatchSubmitResponse Source #

HasDefault ClientBatchSubmitResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

def :: ClientBatchSubmitResponse Source #

isDefault :: ClientBatchSubmitResponse -> Bool Source #

Named ClientBatchSubmitResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

nameOf :: IsString string => Proxy# ClientBatchSubmitResponse -> string Source #

Message ClientBatchSubmitResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

encodeMessage :: FieldNumber -> ClientBatchSubmitResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientBatchSubmitResponse Source #

dotProto :: Proxy# ClientBatchSubmitResponse -> [DotProtoField] Source #

ToSchema ClientBatchSubmitResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

declareNamedSchema :: Proxy ClientBatchSubmitResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientBatchSubmitResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

type Rep ClientBatchSubmitResponse = D1 ('MetaData "ClientBatchSubmitResponse" "Data.Sawtooth.ClientBatchSubmit" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'True) (C1 ('MetaCons "ClientBatchSubmitResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "clientBatchSubmitResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated ClientBatchSubmitResponse_Status))))

data ClientBatchSubmitResponse_Status Source #

Constructors

ClientBatchSubmitResponse_StatusSTATUS_UNSET 
ClientBatchSubmitResponse_StatusOK 
ClientBatchSubmitResponse_StatusINTERNAL_ERROR 
ClientBatchSubmitResponse_StatusINVALID_BATCH 
ClientBatchSubmitResponse_StatusQUEUE_FULL 

Instances

Instances details
Bounded ClientBatchSubmitResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

minBound :: ClientBatchSubmitResponse_Status Source #

maxBound :: ClientBatchSubmitResponse_Status Source #

Eq ClientBatchSubmitResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

(==) :: ClientBatchSubmitResponse_Status -> ClientBatchSubmitResponse_Status -> Bool Source #

(/=) :: ClientBatchSubmitResponse_Status -> ClientBatchSubmitResponse_Status -> Bool Source #

Ord ClientBatchSubmitResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

compare :: ClientBatchSubmitResponse_Status -> ClientBatchSubmitResponse_Status -> Ordering Source #

(<) :: ClientBatchSubmitResponse_Status -> ClientBatchSubmitResponse_Status -> Bool Source #

(<=) :: ClientBatchSubmitResponse_Status -> ClientBatchSubmitResponse_Status -> Bool Source #

(>) :: ClientBatchSubmitResponse_Status -> ClientBatchSubmitResponse_Status -> Bool Source #

(>=) :: ClientBatchSubmitResponse_Status -> ClientBatchSubmitResponse_Status -> Bool Source #

max :: ClientBatchSubmitResponse_Status -> ClientBatchSubmitResponse_Status -> ClientBatchSubmitResponse_Status Source #

min :: ClientBatchSubmitResponse_Status -> ClientBatchSubmitResponse_Status -> ClientBatchSubmitResponse_Status Source #

Show ClientBatchSubmitResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

showsPrec :: Int -> ClientBatchSubmitResponse_Status -> ShowS Source #

show :: ClientBatchSubmitResponse_Status -> String Source #

showList :: [ClientBatchSubmitResponse_Status] -> ShowS Source #

Generic ClientBatchSubmitResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Associated Types

type Rep ClientBatchSubmitResponse_Status :: Type -> Type Source #

Methods

from :: ClientBatchSubmitResponse_Status -> Rep ClientBatchSubmitResponse_Status x Source #

to :: Rep ClientBatchSubmitResponse_Status x -> ClientBatchSubmitResponse_Status Source #

ToJSON ClientBatchSubmitResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

toJSON :: ClientBatchSubmitResponse_Status -> Value Source #

toEncoding :: ClientBatchSubmitResponse_Status -> Encoding Source #

toJSONList :: [ClientBatchSubmitResponse_Status] -> Value Source #

toEncodingList :: [ClientBatchSubmitResponse_Status] -> Encoding Source #

FromJSON ClientBatchSubmitResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

parseJSON :: Value -> Parser ClientBatchSubmitResponse_Status Source #

parseJSONList :: Value -> Parser [ClientBatchSubmitResponse_Status] Source #

NFData ClientBatchSubmitResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

rnf :: ClientBatchSubmitResponse_Status -> () Source #

ProtoEnum ClientBatchSubmitResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

toProtoEnumMay :: Int32 -> Maybe ClientBatchSubmitResponse_Status Source #

fromProtoEnum :: ClientBatchSubmitResponse_Status -> Int32 Source #

ToJSONPB ClientBatchSubmitResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

toJSONPB :: ClientBatchSubmitResponse_Status -> Options -> Value Source #

toEncodingPB :: ClientBatchSubmitResponse_Status -> Options -> Encoding Source #

FromJSONPB ClientBatchSubmitResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

parseJSONPB :: Value -> Parser ClientBatchSubmitResponse_Status Source #

HasDefault ClientBatchSubmitResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

def :: ClientBatchSubmitResponse_Status Source #

isDefault :: ClientBatchSubmitResponse_Status -> Bool Source #

Named ClientBatchSubmitResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

nameOf :: IsString string => Proxy# ClientBatchSubmitResponse_Status -> string Source #

Finite ClientBatchSubmitResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

enumerate :: IsString string => Proxy# ClientBatchSubmitResponse_Status -> [(string, Int32)] Source #

type Rep ClientBatchSubmitResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

type Rep ClientBatchSubmitResponse_Status = D1 ('MetaData "ClientBatchSubmitResponse_Status" "Data.Sawtooth.ClientBatchSubmit" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) ((C1 ('MetaCons "ClientBatchSubmitResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientBatchSubmitResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ClientBatchSubmitResponse_StatusINTERNAL_ERROR" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "ClientBatchSubmitResponse_StatusINVALID_BATCH" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientBatchSubmitResponse_StatusQUEUE_FULL" 'PrefixI 'False) (U1 :: Type -> Type))))

data ClientBatchStatusRequest Source #

Constructors

ClientBatchStatusRequest 

Fields

Instances

Instances details
Eq ClientBatchStatusRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

(==) :: ClientBatchStatusRequest -> ClientBatchStatusRequest -> Bool Source #

(/=) :: ClientBatchStatusRequest -> ClientBatchStatusRequest -> Bool Source #

Ord ClientBatchStatusRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

compare :: ClientBatchStatusRequest -> ClientBatchStatusRequest -> Ordering Source #

(<) :: ClientBatchStatusRequest -> ClientBatchStatusRequest -> Bool Source #

(<=) :: ClientBatchStatusRequest -> ClientBatchStatusRequest -> Bool Source #

(>) :: ClientBatchStatusRequest -> ClientBatchStatusRequest -> Bool Source #

(>=) :: ClientBatchStatusRequest -> ClientBatchStatusRequest -> Bool Source #

max :: ClientBatchStatusRequest -> ClientBatchStatusRequest -> ClientBatchStatusRequest Source #

min :: ClientBatchStatusRequest -> ClientBatchStatusRequest -> ClientBatchStatusRequest Source #

Show ClientBatchStatusRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

showsPrec :: Int -> ClientBatchStatusRequest -> ShowS Source #

show :: ClientBatchStatusRequest -> String Source #

showList :: [ClientBatchStatusRequest] -> ShowS Source #

Generic ClientBatchStatusRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Associated Types

type Rep ClientBatchStatusRequest :: Type -> Type Source #

Methods

from :: ClientBatchStatusRequest -> Rep ClientBatchStatusRequest x Source #

to :: Rep ClientBatchStatusRequest x -> ClientBatchStatusRequest Source #

ToJSON ClientBatchStatusRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

toJSON :: ClientBatchStatusRequest -> Value Source #

toEncoding :: ClientBatchStatusRequest -> Encoding Source #

toJSONList :: [ClientBatchStatusRequest] -> Value Source #

toEncodingList :: [ClientBatchStatusRequest] -> Encoding Source #

FromJSON ClientBatchStatusRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

parseJSON :: Value -> Parser ClientBatchStatusRequest Source #

parseJSONList :: Value -> Parser [ClientBatchStatusRequest] Source #

NFData ClientBatchStatusRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

rnf :: ClientBatchStatusRequest -> () Source #

ToJSONPB ClientBatchStatusRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

toJSONPB :: ClientBatchStatusRequest -> Options -> Value Source #

toEncodingPB :: ClientBatchStatusRequest -> Options -> Encoding Source #

FromJSONPB ClientBatchStatusRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

parseJSONPB :: Value -> Parser ClientBatchStatusRequest Source #

HasDefault ClientBatchStatusRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

def :: ClientBatchStatusRequest Source #

isDefault :: ClientBatchStatusRequest -> Bool Source #

Named ClientBatchStatusRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

nameOf :: IsString string => Proxy# ClientBatchStatusRequest -> string Source #

Message ClientBatchStatusRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

encodeMessage :: FieldNumber -> ClientBatchStatusRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientBatchStatusRequest Source #

dotProto :: Proxy# ClientBatchStatusRequest -> [DotProtoField] Source #

ToSchema ClientBatchStatusRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

declareNamedSchema :: Proxy ClientBatchStatusRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientBatchStatusRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

type Rep ClientBatchStatusRequest = D1 ('MetaData "ClientBatchStatusRequest" "Data.Sawtooth.ClientBatchSubmit" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "ClientBatchStatusRequest" 'PrefixI 'True) (S1 ('MetaSel ('Just "clientBatchStatusRequestBatchIds") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Text)) :*: (S1 ('MetaSel ('Just "clientBatchStatusRequestWait") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Bool) :*: S1 ('MetaSel ('Just "clientBatchStatusRequestTimeout") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Word32))))

data ClientBatchStatusResponse Source #

Constructors

ClientBatchStatusResponse 

Fields

Instances

Instances details
Eq ClientBatchStatusResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

(==) :: ClientBatchStatusResponse -> ClientBatchStatusResponse -> Bool Source #

(/=) :: ClientBatchStatusResponse -> ClientBatchStatusResponse -> Bool Source #

Ord ClientBatchStatusResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

compare :: ClientBatchStatusResponse -> ClientBatchStatusResponse -> Ordering Source #

(<) :: ClientBatchStatusResponse -> ClientBatchStatusResponse -> Bool Source #

(<=) :: ClientBatchStatusResponse -> ClientBatchStatusResponse -> Bool Source #

(>) :: ClientBatchStatusResponse -> ClientBatchStatusResponse -> Bool Source #

(>=) :: ClientBatchStatusResponse -> ClientBatchStatusResponse -> Bool Source #

max :: ClientBatchStatusResponse -> ClientBatchStatusResponse -> ClientBatchStatusResponse Source #

min :: ClientBatchStatusResponse -> ClientBatchStatusResponse -> ClientBatchStatusResponse Source #

Show ClientBatchStatusResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

showsPrec :: Int -> ClientBatchStatusResponse -> ShowS Source #

show :: ClientBatchStatusResponse -> String Source #

showList :: [ClientBatchStatusResponse] -> ShowS Source #

Generic ClientBatchStatusResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Associated Types

type Rep ClientBatchStatusResponse :: Type -> Type Source #

Methods

from :: ClientBatchStatusResponse -> Rep ClientBatchStatusResponse x Source #

to :: Rep ClientBatchStatusResponse x -> ClientBatchStatusResponse Source #

ToJSON ClientBatchStatusResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

toJSON :: ClientBatchStatusResponse -> Value Source #

toEncoding :: ClientBatchStatusResponse -> Encoding Source #

toJSONList :: [ClientBatchStatusResponse] -> Value Source #

toEncodingList :: [ClientBatchStatusResponse] -> Encoding Source #

FromJSON ClientBatchStatusResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

parseJSON :: Value -> Parser ClientBatchStatusResponse Source #

parseJSONList :: Value -> Parser [ClientBatchStatusResponse] Source #

NFData ClientBatchStatusResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

rnf :: ClientBatchStatusResponse -> () Source #

ToJSONPB ClientBatchStatusResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

toJSONPB :: ClientBatchStatusResponse -> Options -> Value Source #

toEncodingPB :: ClientBatchStatusResponse -> Options -> Encoding Source #

FromJSONPB ClientBatchStatusResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

parseJSONPB :: Value -> Parser ClientBatchStatusResponse Source #

HasDefault ClientBatchStatusResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

def :: ClientBatchStatusResponse Source #

isDefault :: ClientBatchStatusResponse -> Bool Source #

Named ClientBatchStatusResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

nameOf :: IsString string => Proxy# ClientBatchStatusResponse -> string Source #

Message ClientBatchStatusResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

encodeMessage :: FieldNumber -> ClientBatchStatusResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientBatchStatusResponse Source #

dotProto :: Proxy# ClientBatchStatusResponse -> [DotProtoField] Source #

ToSchema ClientBatchStatusResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

declareNamedSchema :: Proxy ClientBatchStatusResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientBatchStatusResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

type Rep ClientBatchStatusResponse = D1 ('MetaData "ClientBatchStatusResponse" "Data.Sawtooth.ClientBatchSubmit" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "ClientBatchStatusResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "clientBatchStatusResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated ClientBatchStatusResponse_Status)) :*: S1 ('MetaSel ('Just "clientBatchStatusResponseBatchStatuses") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector ClientBatchStatus))))

data ClientBatchStatusResponse_Status Source #

Constructors

ClientBatchStatusResponse_StatusSTATUS_UNSET 
ClientBatchStatusResponse_StatusOK 
ClientBatchStatusResponse_StatusINTERNAL_ERROR 
ClientBatchStatusResponse_StatusNO_RESOURCE 
ClientBatchStatusResponse_StatusINVALID_ID 

Instances

Instances details
Bounded ClientBatchStatusResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

minBound :: ClientBatchStatusResponse_Status Source #

maxBound :: ClientBatchStatusResponse_Status Source #

Eq ClientBatchStatusResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

(==) :: ClientBatchStatusResponse_Status -> ClientBatchStatusResponse_Status -> Bool Source #

(/=) :: ClientBatchStatusResponse_Status -> ClientBatchStatusResponse_Status -> Bool Source #

Ord ClientBatchStatusResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

compare :: ClientBatchStatusResponse_Status -> ClientBatchStatusResponse_Status -> Ordering Source #

(<) :: ClientBatchStatusResponse_Status -> ClientBatchStatusResponse_Status -> Bool Source #

(<=) :: ClientBatchStatusResponse_Status -> ClientBatchStatusResponse_Status -> Bool Source #

(>) :: ClientBatchStatusResponse_Status -> ClientBatchStatusResponse_Status -> Bool Source #

(>=) :: ClientBatchStatusResponse_Status -> ClientBatchStatusResponse_Status -> Bool Source #

max :: ClientBatchStatusResponse_Status -> ClientBatchStatusResponse_Status -> ClientBatchStatusResponse_Status Source #

min :: ClientBatchStatusResponse_Status -> ClientBatchStatusResponse_Status -> ClientBatchStatusResponse_Status Source #

Show ClientBatchStatusResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

showsPrec :: Int -> ClientBatchStatusResponse_Status -> ShowS Source #

show :: ClientBatchStatusResponse_Status -> String Source #

showList :: [ClientBatchStatusResponse_Status] -> ShowS Source #

Generic ClientBatchStatusResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Associated Types

type Rep ClientBatchStatusResponse_Status :: Type -> Type Source #

Methods

from :: ClientBatchStatusResponse_Status -> Rep ClientBatchStatusResponse_Status x Source #

to :: Rep ClientBatchStatusResponse_Status x -> ClientBatchStatusResponse_Status Source #

ToJSON ClientBatchStatusResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

toJSON :: ClientBatchStatusResponse_Status -> Value Source #

toEncoding :: ClientBatchStatusResponse_Status -> Encoding Source #

toJSONList :: [ClientBatchStatusResponse_Status] -> Value Source #

toEncodingList :: [ClientBatchStatusResponse_Status] -> Encoding Source #

FromJSON ClientBatchStatusResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

parseJSON :: Value -> Parser ClientBatchStatusResponse_Status Source #

parseJSONList :: Value -> Parser [ClientBatchStatusResponse_Status] Source #

NFData ClientBatchStatusResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

rnf :: ClientBatchStatusResponse_Status -> () Source #

ProtoEnum ClientBatchStatusResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

toProtoEnumMay :: Int32 -> Maybe ClientBatchStatusResponse_Status Source #

fromProtoEnum :: ClientBatchStatusResponse_Status -> Int32 Source #

ToJSONPB ClientBatchStatusResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

toJSONPB :: ClientBatchStatusResponse_Status -> Options -> Value Source #

toEncodingPB :: ClientBatchStatusResponse_Status -> Options -> Encoding Source #

FromJSONPB ClientBatchStatusResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

parseJSONPB :: Value -> Parser ClientBatchStatusResponse_Status Source #

HasDefault ClientBatchStatusResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

def :: ClientBatchStatusResponse_Status Source #

isDefault :: ClientBatchStatusResponse_Status -> Bool Source #

Named ClientBatchStatusResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

nameOf :: IsString string => Proxy# ClientBatchStatusResponse_Status -> string Source #

Finite ClientBatchStatusResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

enumerate :: IsString string => Proxy# ClientBatchStatusResponse_Status -> [(string, Int32)] Source #

type Rep ClientBatchStatusResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

type Rep ClientBatchStatusResponse_Status = D1 ('MetaData "ClientBatchStatusResponse_Status" "Data.Sawtooth.ClientBatchSubmit" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) ((C1 ('MetaCons "ClientBatchStatusResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientBatchStatusResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ClientBatchStatusResponse_StatusINTERNAL_ERROR" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "ClientBatchStatusResponse_StatusNO_RESOURCE" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientBatchStatusResponse_StatusINVALID_ID" 'PrefixI 'False) (U1 :: Type -> Type))))
\ No newline at end of file +Data.Sawtooth.ClientBatchSubmit
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types
Safe HaskellNone
LanguageHaskell2010

Data.Sawtooth.ClientBatchSubmit

Description

Generated by Haskell protocol buffer compiler. DO NOT EDIT!

Documentation

data ClientBatchStatus Source #

Constructors

ClientBatchStatus 

Fields

Instances

Instances details
Eq ClientBatchStatus Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

(==) :: ClientBatchStatus -> ClientBatchStatus -> Bool Source #

(/=) :: ClientBatchStatus -> ClientBatchStatus -> Bool Source #

Ord ClientBatchStatus Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

compare :: ClientBatchStatus -> ClientBatchStatus -> Ordering Source #

(<) :: ClientBatchStatus -> ClientBatchStatus -> Bool Source #

(<=) :: ClientBatchStatus -> ClientBatchStatus -> Bool Source #

(>) :: ClientBatchStatus -> ClientBatchStatus -> Bool Source #

(>=) :: ClientBatchStatus -> ClientBatchStatus -> Bool Source #

max :: ClientBatchStatus -> ClientBatchStatus -> ClientBatchStatus Source #

min :: ClientBatchStatus -> ClientBatchStatus -> ClientBatchStatus Source #

Show ClientBatchStatus Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

showsPrec :: Int -> ClientBatchStatus -> ShowS Source #

show :: ClientBatchStatus -> String Source #

showList :: [ClientBatchStatus] -> ShowS Source #

Generic ClientBatchStatus Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Associated Types

type Rep ClientBatchStatus :: Type -> Type Source #

Methods

from :: ClientBatchStatus -> Rep ClientBatchStatus x Source #

to :: Rep ClientBatchStatus x -> ClientBatchStatus Source #

ToJSON ClientBatchStatus Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

toJSON :: ClientBatchStatus -> Value Source #

toEncoding :: ClientBatchStatus -> Encoding Source #

toJSONList :: [ClientBatchStatus] -> Value Source #

toEncodingList :: [ClientBatchStatus] -> Encoding Source #

FromJSON ClientBatchStatus Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

parseJSON :: Value -> Parser ClientBatchStatus Source #

parseJSONList :: Value -> Parser [ClientBatchStatus] Source #

NFData ClientBatchStatus Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

rnf :: ClientBatchStatus -> () Source #

ToJSONPB ClientBatchStatus Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

toJSONPB :: ClientBatchStatus -> Options -> Value Source #

toEncodingPB :: ClientBatchStatus -> Options -> Encoding Source #

FromJSONPB ClientBatchStatus Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

parseJSONPB :: Value -> Parser ClientBatchStatus Source #

HasDefault ClientBatchStatus Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

def :: ClientBatchStatus Source #

isDefault :: ClientBatchStatus -> Bool Source #

Named ClientBatchStatus Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

nameOf :: IsString string => Proxy# ClientBatchStatus -> string Source #

Message ClientBatchStatus Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

encodeMessage :: FieldNumber -> ClientBatchStatus -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientBatchStatus Source #

dotProto :: Proxy# ClientBatchStatus -> [DotProtoField] Source #

ToSchema ClientBatchStatus Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

declareNamedSchema :: Proxy ClientBatchStatus -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientBatchStatus Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

type Rep ClientBatchStatus = D1 ('MetaData "ClientBatchStatus" "Data.Sawtooth.ClientBatchSubmit" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "ClientBatchStatus" 'PrefixI 'True) (S1 ('MetaSel ('Just "clientBatchStatusBatchId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: (S1 ('MetaSel ('Just "clientBatchStatusStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated ClientBatchStatus_Status)) :*: S1 ('MetaSel ('Just "clientBatchStatusInvalidTransactions") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector ClientBatchStatus_InvalidTransaction)))))

data ClientBatchStatus_Status Source #

Constructors

ClientBatchStatus_StatusSTATUS_UNSET 
ClientBatchStatus_StatusCOMMITTED 
ClientBatchStatus_StatusINVALID 
ClientBatchStatus_StatusPENDING 
ClientBatchStatus_StatusUNKNOWN 

Instances

Instances details
Bounded ClientBatchStatus_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

minBound :: ClientBatchStatus_Status Source #

maxBound :: ClientBatchStatus_Status Source #

Eq ClientBatchStatus_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

(==) :: ClientBatchStatus_Status -> ClientBatchStatus_Status -> Bool Source #

(/=) :: ClientBatchStatus_Status -> ClientBatchStatus_Status -> Bool Source #

Ord ClientBatchStatus_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

compare :: ClientBatchStatus_Status -> ClientBatchStatus_Status -> Ordering Source #

(<) :: ClientBatchStatus_Status -> ClientBatchStatus_Status -> Bool Source #

(<=) :: ClientBatchStatus_Status -> ClientBatchStatus_Status -> Bool Source #

(>) :: ClientBatchStatus_Status -> ClientBatchStatus_Status -> Bool Source #

(>=) :: ClientBatchStatus_Status -> ClientBatchStatus_Status -> Bool Source #

max :: ClientBatchStatus_Status -> ClientBatchStatus_Status -> ClientBatchStatus_Status Source #

min :: ClientBatchStatus_Status -> ClientBatchStatus_Status -> ClientBatchStatus_Status Source #

Show ClientBatchStatus_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

showsPrec :: Int -> ClientBatchStatus_Status -> ShowS Source #

show :: ClientBatchStatus_Status -> String Source #

showList :: [ClientBatchStatus_Status] -> ShowS Source #

Generic ClientBatchStatus_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Associated Types

type Rep ClientBatchStatus_Status :: Type -> Type Source #

Methods

from :: ClientBatchStatus_Status -> Rep ClientBatchStatus_Status x Source #

to :: Rep ClientBatchStatus_Status x -> ClientBatchStatus_Status Source #

ToJSON ClientBatchStatus_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

toJSON :: ClientBatchStatus_Status -> Value Source #

toEncoding :: ClientBatchStatus_Status -> Encoding Source #

toJSONList :: [ClientBatchStatus_Status] -> Value Source #

toEncodingList :: [ClientBatchStatus_Status] -> Encoding Source #

FromJSON ClientBatchStatus_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

parseJSON :: Value -> Parser ClientBatchStatus_Status Source #

parseJSONList :: Value -> Parser [ClientBatchStatus_Status] Source #

NFData ClientBatchStatus_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

rnf :: ClientBatchStatus_Status -> () Source #

ProtoEnum ClientBatchStatus_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

toProtoEnumMay :: Int32 -> Maybe ClientBatchStatus_Status Source #

fromProtoEnum :: ClientBatchStatus_Status -> Int32 Source #

ToJSONPB ClientBatchStatus_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

toJSONPB :: ClientBatchStatus_Status -> Options -> Value Source #

toEncodingPB :: ClientBatchStatus_Status -> Options -> Encoding Source #

FromJSONPB ClientBatchStatus_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

parseJSONPB :: Value -> Parser ClientBatchStatus_Status Source #

HasDefault ClientBatchStatus_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

def :: ClientBatchStatus_Status Source #

isDefault :: ClientBatchStatus_Status -> Bool Source #

Named ClientBatchStatus_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

nameOf :: IsString string => Proxy# ClientBatchStatus_Status -> string Source #

Finite ClientBatchStatus_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

enumerate :: IsString string => Proxy# ClientBatchStatus_Status -> [(string, Int32)] Source #

type Rep ClientBatchStatus_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

type Rep ClientBatchStatus_Status = D1 ('MetaData "ClientBatchStatus_Status" "Data.Sawtooth.ClientBatchSubmit" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) ((C1 ('MetaCons "ClientBatchStatus_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientBatchStatus_StatusCOMMITTED" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ClientBatchStatus_StatusINVALID" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "ClientBatchStatus_StatusPENDING" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientBatchStatus_StatusUNKNOWN" 'PrefixI 'False) (U1 :: Type -> Type))))

data ClientBatchStatus_InvalidTransaction Source #

Constructors

ClientBatchStatus_InvalidTransaction 

Fields

Instances

Instances details
Eq ClientBatchStatus_InvalidTransaction Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

(==) :: ClientBatchStatus_InvalidTransaction -> ClientBatchStatus_InvalidTransaction -> Bool Source #

(/=) :: ClientBatchStatus_InvalidTransaction -> ClientBatchStatus_InvalidTransaction -> Bool Source #

Ord ClientBatchStatus_InvalidTransaction Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

compare :: ClientBatchStatus_InvalidTransaction -> ClientBatchStatus_InvalidTransaction -> Ordering Source #

(<) :: ClientBatchStatus_InvalidTransaction -> ClientBatchStatus_InvalidTransaction -> Bool Source #

(<=) :: ClientBatchStatus_InvalidTransaction -> ClientBatchStatus_InvalidTransaction -> Bool Source #

(>) :: ClientBatchStatus_InvalidTransaction -> ClientBatchStatus_InvalidTransaction -> Bool Source #

(>=) :: ClientBatchStatus_InvalidTransaction -> ClientBatchStatus_InvalidTransaction -> Bool Source #

max :: ClientBatchStatus_InvalidTransaction -> ClientBatchStatus_InvalidTransaction -> ClientBatchStatus_InvalidTransaction Source #

min :: ClientBatchStatus_InvalidTransaction -> ClientBatchStatus_InvalidTransaction -> ClientBatchStatus_InvalidTransaction Source #

Show ClientBatchStatus_InvalidTransaction Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

showsPrec :: Int -> ClientBatchStatus_InvalidTransaction -> ShowS Source #

show :: ClientBatchStatus_InvalidTransaction -> String Source #

showList :: [ClientBatchStatus_InvalidTransaction] -> ShowS Source #

Generic ClientBatchStatus_InvalidTransaction Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Associated Types

type Rep ClientBatchStatus_InvalidTransaction :: Type -> Type Source #

Methods

from :: ClientBatchStatus_InvalidTransaction -> Rep ClientBatchStatus_InvalidTransaction x Source #

to :: Rep ClientBatchStatus_InvalidTransaction x -> ClientBatchStatus_InvalidTransaction Source #

ToJSON ClientBatchStatus_InvalidTransaction Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

toJSON :: ClientBatchStatus_InvalidTransaction -> Value Source #

toEncoding :: ClientBatchStatus_InvalidTransaction -> Encoding Source #

toJSONList :: [ClientBatchStatus_InvalidTransaction] -> Value Source #

toEncodingList :: [ClientBatchStatus_InvalidTransaction] -> Encoding Source #

FromJSON ClientBatchStatus_InvalidTransaction Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

parseJSON :: Value -> Parser ClientBatchStatus_InvalidTransaction Source #

parseJSONList :: Value -> Parser [ClientBatchStatus_InvalidTransaction] Source #

NFData ClientBatchStatus_InvalidTransaction Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

rnf :: ClientBatchStatus_InvalidTransaction -> () Source #

ToJSONPB ClientBatchStatus_InvalidTransaction Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

toJSONPB :: ClientBatchStatus_InvalidTransaction -> Options -> Value Source #

toEncodingPB :: ClientBatchStatus_InvalidTransaction -> Options -> Encoding Source #

FromJSONPB ClientBatchStatus_InvalidTransaction Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

parseJSONPB :: Value -> Parser ClientBatchStatus_InvalidTransaction Source #

HasDefault ClientBatchStatus_InvalidTransaction Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

def :: ClientBatchStatus_InvalidTransaction Source #

isDefault :: ClientBatchStatus_InvalidTransaction -> Bool Source #

Named ClientBatchStatus_InvalidTransaction Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

nameOf :: IsString string => Proxy# ClientBatchStatus_InvalidTransaction -> string Source #

Message ClientBatchStatus_InvalidTransaction Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

encodeMessage :: FieldNumber -> ClientBatchStatus_InvalidTransaction -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientBatchStatus_InvalidTransaction Source #

dotProto :: Proxy# ClientBatchStatus_InvalidTransaction -> [DotProtoField] Source #

ToSchema ClientBatchStatus_InvalidTransaction Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

declareNamedSchema :: Proxy ClientBatchStatus_InvalidTransaction -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientBatchStatus_InvalidTransaction Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

type Rep ClientBatchStatus_InvalidTransaction = D1 ('MetaData "ClientBatchStatus_InvalidTransaction" "Data.Sawtooth.ClientBatchSubmit" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "ClientBatchStatus_InvalidTransaction" 'PrefixI 'True) (S1 ('MetaSel ('Just "clientBatchStatus_InvalidTransactionTransactionId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: (S1 ('MetaSel ('Just "clientBatchStatus_InvalidTransactionMessage") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "clientBatchStatus_InvalidTransactionExtendedData") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString))))

newtype ClientBatchSubmitRequest Source #

Constructors

ClientBatchSubmitRequest 

Fields

Instances

Instances details
Eq ClientBatchSubmitRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

(==) :: ClientBatchSubmitRequest -> ClientBatchSubmitRequest -> Bool Source #

(/=) :: ClientBatchSubmitRequest -> ClientBatchSubmitRequest -> Bool Source #

Ord ClientBatchSubmitRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

compare :: ClientBatchSubmitRequest -> ClientBatchSubmitRequest -> Ordering Source #

(<) :: ClientBatchSubmitRequest -> ClientBatchSubmitRequest -> Bool Source #

(<=) :: ClientBatchSubmitRequest -> ClientBatchSubmitRequest -> Bool Source #

(>) :: ClientBatchSubmitRequest -> ClientBatchSubmitRequest -> Bool Source #

(>=) :: ClientBatchSubmitRequest -> ClientBatchSubmitRequest -> Bool Source #

max :: ClientBatchSubmitRequest -> ClientBatchSubmitRequest -> ClientBatchSubmitRequest Source #

min :: ClientBatchSubmitRequest -> ClientBatchSubmitRequest -> ClientBatchSubmitRequest Source #

Show ClientBatchSubmitRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

showsPrec :: Int -> ClientBatchSubmitRequest -> ShowS Source #

show :: ClientBatchSubmitRequest -> String Source #

showList :: [ClientBatchSubmitRequest] -> ShowS Source #

Generic ClientBatchSubmitRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Associated Types

type Rep ClientBatchSubmitRequest :: Type -> Type Source #

Methods

from :: ClientBatchSubmitRequest -> Rep ClientBatchSubmitRequest x Source #

to :: Rep ClientBatchSubmitRequest x -> ClientBatchSubmitRequest Source #

ToJSON ClientBatchSubmitRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

toJSON :: ClientBatchSubmitRequest -> Value Source #

toEncoding :: ClientBatchSubmitRequest -> Encoding Source #

toJSONList :: [ClientBatchSubmitRequest] -> Value Source #

toEncodingList :: [ClientBatchSubmitRequest] -> Encoding Source #

FromJSON ClientBatchSubmitRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

parseJSON :: Value -> Parser ClientBatchSubmitRequest Source #

parseJSONList :: Value -> Parser [ClientBatchSubmitRequest] Source #

NFData ClientBatchSubmitRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

rnf :: ClientBatchSubmitRequest -> () Source #

ToJSONPB ClientBatchSubmitRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

toJSONPB :: ClientBatchSubmitRequest -> Options -> Value Source #

toEncodingPB :: ClientBatchSubmitRequest -> Options -> Encoding Source #

FromJSONPB ClientBatchSubmitRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

parseJSONPB :: Value -> Parser ClientBatchSubmitRequest Source #

HasDefault ClientBatchSubmitRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

def :: ClientBatchSubmitRequest Source #

isDefault :: ClientBatchSubmitRequest -> Bool Source #

Named ClientBatchSubmitRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

nameOf :: IsString string => Proxy# ClientBatchSubmitRequest -> string Source #

Message ClientBatchSubmitRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

encodeMessage :: FieldNumber -> ClientBatchSubmitRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientBatchSubmitRequest Source #

dotProto :: Proxy# ClientBatchSubmitRequest -> [DotProtoField] Source #

ToSchema ClientBatchSubmitRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

declareNamedSchema :: Proxy ClientBatchSubmitRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientBatchSubmitRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

type Rep ClientBatchSubmitRequest = D1 ('MetaData "ClientBatchSubmitRequest" "Data.Sawtooth.ClientBatchSubmit" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'True) (C1 ('MetaCons "ClientBatchSubmitRequest" 'PrefixI 'True) (S1 ('MetaSel ('Just "clientBatchSubmitRequestBatches") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Batch))))

newtype ClientBatchSubmitResponse Source #

Constructors

ClientBatchSubmitResponse 

Fields

Instances

Instances details
Eq ClientBatchSubmitResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

(==) :: ClientBatchSubmitResponse -> ClientBatchSubmitResponse -> Bool Source #

(/=) :: ClientBatchSubmitResponse -> ClientBatchSubmitResponse -> Bool Source #

Ord ClientBatchSubmitResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

compare :: ClientBatchSubmitResponse -> ClientBatchSubmitResponse -> Ordering Source #

(<) :: ClientBatchSubmitResponse -> ClientBatchSubmitResponse -> Bool Source #

(<=) :: ClientBatchSubmitResponse -> ClientBatchSubmitResponse -> Bool Source #

(>) :: ClientBatchSubmitResponse -> ClientBatchSubmitResponse -> Bool Source #

(>=) :: ClientBatchSubmitResponse -> ClientBatchSubmitResponse -> Bool Source #

max :: ClientBatchSubmitResponse -> ClientBatchSubmitResponse -> ClientBatchSubmitResponse Source #

min :: ClientBatchSubmitResponse -> ClientBatchSubmitResponse -> ClientBatchSubmitResponse Source #

Show ClientBatchSubmitResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

showsPrec :: Int -> ClientBatchSubmitResponse -> ShowS Source #

show :: ClientBatchSubmitResponse -> String Source #

showList :: [ClientBatchSubmitResponse] -> ShowS Source #

Generic ClientBatchSubmitResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Associated Types

type Rep ClientBatchSubmitResponse :: Type -> Type Source #

Methods

from :: ClientBatchSubmitResponse -> Rep ClientBatchSubmitResponse x Source #

to :: Rep ClientBatchSubmitResponse x -> ClientBatchSubmitResponse Source #

ToJSON ClientBatchSubmitResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

toJSON :: ClientBatchSubmitResponse -> Value Source #

toEncoding :: ClientBatchSubmitResponse -> Encoding Source #

toJSONList :: [ClientBatchSubmitResponse] -> Value Source #

toEncodingList :: [ClientBatchSubmitResponse] -> Encoding Source #

FromJSON ClientBatchSubmitResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

parseJSON :: Value -> Parser ClientBatchSubmitResponse Source #

parseJSONList :: Value -> Parser [ClientBatchSubmitResponse] Source #

NFData ClientBatchSubmitResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

rnf :: ClientBatchSubmitResponse -> () Source #

ToJSONPB ClientBatchSubmitResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

toJSONPB :: ClientBatchSubmitResponse -> Options -> Value Source #

toEncodingPB :: ClientBatchSubmitResponse -> Options -> Encoding Source #

FromJSONPB ClientBatchSubmitResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

parseJSONPB :: Value -> Parser ClientBatchSubmitResponse Source #

HasDefault ClientBatchSubmitResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

def :: ClientBatchSubmitResponse Source #

isDefault :: ClientBatchSubmitResponse -> Bool Source #

Named ClientBatchSubmitResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

nameOf :: IsString string => Proxy# ClientBatchSubmitResponse -> string Source #

Message ClientBatchSubmitResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

encodeMessage :: FieldNumber -> ClientBatchSubmitResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientBatchSubmitResponse Source #

dotProto :: Proxy# ClientBatchSubmitResponse -> [DotProtoField] Source #

ToSchema ClientBatchSubmitResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

declareNamedSchema :: Proxy ClientBatchSubmitResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientBatchSubmitResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

type Rep ClientBatchSubmitResponse = D1 ('MetaData "ClientBatchSubmitResponse" "Data.Sawtooth.ClientBatchSubmit" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'True) (C1 ('MetaCons "ClientBatchSubmitResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "clientBatchSubmitResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated ClientBatchSubmitResponse_Status))))

data ClientBatchSubmitResponse_Status Source #

Constructors

ClientBatchSubmitResponse_StatusSTATUS_UNSET 
ClientBatchSubmitResponse_StatusOK 
ClientBatchSubmitResponse_StatusINTERNAL_ERROR 
ClientBatchSubmitResponse_StatusINVALID_BATCH 
ClientBatchSubmitResponse_StatusQUEUE_FULL 

Instances

Instances details
Bounded ClientBatchSubmitResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

minBound :: ClientBatchSubmitResponse_Status Source #

maxBound :: ClientBatchSubmitResponse_Status Source #

Eq ClientBatchSubmitResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

(==) :: ClientBatchSubmitResponse_Status -> ClientBatchSubmitResponse_Status -> Bool Source #

(/=) :: ClientBatchSubmitResponse_Status -> ClientBatchSubmitResponse_Status -> Bool Source #

Ord ClientBatchSubmitResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

compare :: ClientBatchSubmitResponse_Status -> ClientBatchSubmitResponse_Status -> Ordering Source #

(<) :: ClientBatchSubmitResponse_Status -> ClientBatchSubmitResponse_Status -> Bool Source #

(<=) :: ClientBatchSubmitResponse_Status -> ClientBatchSubmitResponse_Status -> Bool Source #

(>) :: ClientBatchSubmitResponse_Status -> ClientBatchSubmitResponse_Status -> Bool Source #

(>=) :: ClientBatchSubmitResponse_Status -> ClientBatchSubmitResponse_Status -> Bool Source #

max :: ClientBatchSubmitResponse_Status -> ClientBatchSubmitResponse_Status -> ClientBatchSubmitResponse_Status Source #

min :: ClientBatchSubmitResponse_Status -> ClientBatchSubmitResponse_Status -> ClientBatchSubmitResponse_Status Source #

Show ClientBatchSubmitResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

showsPrec :: Int -> ClientBatchSubmitResponse_Status -> ShowS Source #

show :: ClientBatchSubmitResponse_Status -> String Source #

showList :: [ClientBatchSubmitResponse_Status] -> ShowS Source #

Generic ClientBatchSubmitResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Associated Types

type Rep ClientBatchSubmitResponse_Status :: Type -> Type Source #

Methods

from :: ClientBatchSubmitResponse_Status -> Rep ClientBatchSubmitResponse_Status x Source #

to :: Rep ClientBatchSubmitResponse_Status x -> ClientBatchSubmitResponse_Status Source #

ToJSON ClientBatchSubmitResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

toJSON :: ClientBatchSubmitResponse_Status -> Value Source #

toEncoding :: ClientBatchSubmitResponse_Status -> Encoding Source #

toJSONList :: [ClientBatchSubmitResponse_Status] -> Value Source #

toEncodingList :: [ClientBatchSubmitResponse_Status] -> Encoding Source #

FromJSON ClientBatchSubmitResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

parseJSON :: Value -> Parser ClientBatchSubmitResponse_Status Source #

parseJSONList :: Value -> Parser [ClientBatchSubmitResponse_Status] Source #

NFData ClientBatchSubmitResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

rnf :: ClientBatchSubmitResponse_Status -> () Source #

ProtoEnum ClientBatchSubmitResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

toProtoEnumMay :: Int32 -> Maybe ClientBatchSubmitResponse_Status Source #

fromProtoEnum :: ClientBatchSubmitResponse_Status -> Int32 Source #

ToJSONPB ClientBatchSubmitResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

toJSONPB :: ClientBatchSubmitResponse_Status -> Options -> Value Source #

toEncodingPB :: ClientBatchSubmitResponse_Status -> Options -> Encoding Source #

FromJSONPB ClientBatchSubmitResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

parseJSONPB :: Value -> Parser ClientBatchSubmitResponse_Status Source #

HasDefault ClientBatchSubmitResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

def :: ClientBatchSubmitResponse_Status Source #

isDefault :: ClientBatchSubmitResponse_Status -> Bool Source #

Named ClientBatchSubmitResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

nameOf :: IsString string => Proxy# ClientBatchSubmitResponse_Status -> string Source #

Finite ClientBatchSubmitResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

enumerate :: IsString string => Proxy# ClientBatchSubmitResponse_Status -> [(string, Int32)] Source #

type Rep ClientBatchSubmitResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

type Rep ClientBatchSubmitResponse_Status = D1 ('MetaData "ClientBatchSubmitResponse_Status" "Data.Sawtooth.ClientBatchSubmit" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) ((C1 ('MetaCons "ClientBatchSubmitResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientBatchSubmitResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ClientBatchSubmitResponse_StatusINTERNAL_ERROR" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "ClientBatchSubmitResponse_StatusINVALID_BATCH" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientBatchSubmitResponse_StatusQUEUE_FULL" 'PrefixI 'False) (U1 :: Type -> Type))))

data ClientBatchStatusRequest Source #

Constructors

ClientBatchStatusRequest 

Fields

Instances

Instances details
Eq ClientBatchStatusRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

(==) :: ClientBatchStatusRequest -> ClientBatchStatusRequest -> Bool Source #

(/=) :: ClientBatchStatusRequest -> ClientBatchStatusRequest -> Bool Source #

Ord ClientBatchStatusRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

compare :: ClientBatchStatusRequest -> ClientBatchStatusRequest -> Ordering Source #

(<) :: ClientBatchStatusRequest -> ClientBatchStatusRequest -> Bool Source #

(<=) :: ClientBatchStatusRequest -> ClientBatchStatusRequest -> Bool Source #

(>) :: ClientBatchStatusRequest -> ClientBatchStatusRequest -> Bool Source #

(>=) :: ClientBatchStatusRequest -> ClientBatchStatusRequest -> Bool Source #

max :: ClientBatchStatusRequest -> ClientBatchStatusRequest -> ClientBatchStatusRequest Source #

min :: ClientBatchStatusRequest -> ClientBatchStatusRequest -> ClientBatchStatusRequest Source #

Show ClientBatchStatusRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

showsPrec :: Int -> ClientBatchStatusRequest -> ShowS Source #

show :: ClientBatchStatusRequest -> String Source #

showList :: [ClientBatchStatusRequest] -> ShowS Source #

Generic ClientBatchStatusRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Associated Types

type Rep ClientBatchStatusRequest :: Type -> Type Source #

Methods

from :: ClientBatchStatusRequest -> Rep ClientBatchStatusRequest x Source #

to :: Rep ClientBatchStatusRequest x -> ClientBatchStatusRequest Source #

ToJSON ClientBatchStatusRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

toJSON :: ClientBatchStatusRequest -> Value Source #

toEncoding :: ClientBatchStatusRequest -> Encoding Source #

toJSONList :: [ClientBatchStatusRequest] -> Value Source #

toEncodingList :: [ClientBatchStatusRequest] -> Encoding Source #

FromJSON ClientBatchStatusRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

parseJSON :: Value -> Parser ClientBatchStatusRequest Source #

parseJSONList :: Value -> Parser [ClientBatchStatusRequest] Source #

NFData ClientBatchStatusRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

rnf :: ClientBatchStatusRequest -> () Source #

ToJSONPB ClientBatchStatusRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

toJSONPB :: ClientBatchStatusRequest -> Options -> Value Source #

toEncodingPB :: ClientBatchStatusRequest -> Options -> Encoding Source #

FromJSONPB ClientBatchStatusRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

parseJSONPB :: Value -> Parser ClientBatchStatusRequest Source #

HasDefault ClientBatchStatusRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

def :: ClientBatchStatusRequest Source #

isDefault :: ClientBatchStatusRequest -> Bool Source #

Named ClientBatchStatusRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

nameOf :: IsString string => Proxy# ClientBatchStatusRequest -> string Source #

Message ClientBatchStatusRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

encodeMessage :: FieldNumber -> ClientBatchStatusRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientBatchStatusRequest Source #

dotProto :: Proxy# ClientBatchStatusRequest -> [DotProtoField] Source #

ToSchema ClientBatchStatusRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

declareNamedSchema :: Proxy ClientBatchStatusRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientBatchStatusRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

type Rep ClientBatchStatusRequest = D1 ('MetaData "ClientBatchStatusRequest" "Data.Sawtooth.ClientBatchSubmit" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "ClientBatchStatusRequest" 'PrefixI 'True) (S1 ('MetaSel ('Just "clientBatchStatusRequestBatchIds") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Text)) :*: (S1 ('MetaSel ('Just "clientBatchStatusRequestWait") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Bool) :*: S1 ('MetaSel ('Just "clientBatchStatusRequestTimeout") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Word32))))

data ClientBatchStatusResponse Source #

Constructors

ClientBatchStatusResponse 

Fields

Instances

Instances details
Eq ClientBatchStatusResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

(==) :: ClientBatchStatusResponse -> ClientBatchStatusResponse -> Bool Source #

(/=) :: ClientBatchStatusResponse -> ClientBatchStatusResponse -> Bool Source #

Ord ClientBatchStatusResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

compare :: ClientBatchStatusResponse -> ClientBatchStatusResponse -> Ordering Source #

(<) :: ClientBatchStatusResponse -> ClientBatchStatusResponse -> Bool Source #

(<=) :: ClientBatchStatusResponse -> ClientBatchStatusResponse -> Bool Source #

(>) :: ClientBatchStatusResponse -> ClientBatchStatusResponse -> Bool Source #

(>=) :: ClientBatchStatusResponse -> ClientBatchStatusResponse -> Bool Source #

max :: ClientBatchStatusResponse -> ClientBatchStatusResponse -> ClientBatchStatusResponse Source #

min :: ClientBatchStatusResponse -> ClientBatchStatusResponse -> ClientBatchStatusResponse Source #

Show ClientBatchStatusResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

showsPrec :: Int -> ClientBatchStatusResponse -> ShowS Source #

show :: ClientBatchStatusResponse -> String Source #

showList :: [ClientBatchStatusResponse] -> ShowS Source #

Generic ClientBatchStatusResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Associated Types

type Rep ClientBatchStatusResponse :: Type -> Type Source #

Methods

from :: ClientBatchStatusResponse -> Rep ClientBatchStatusResponse x Source #

to :: Rep ClientBatchStatusResponse x -> ClientBatchStatusResponse Source #

ToJSON ClientBatchStatusResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

toJSON :: ClientBatchStatusResponse -> Value Source #

toEncoding :: ClientBatchStatusResponse -> Encoding Source #

toJSONList :: [ClientBatchStatusResponse] -> Value Source #

toEncodingList :: [ClientBatchStatusResponse] -> Encoding Source #

FromJSON ClientBatchStatusResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

parseJSON :: Value -> Parser ClientBatchStatusResponse Source #

parseJSONList :: Value -> Parser [ClientBatchStatusResponse] Source #

NFData ClientBatchStatusResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

rnf :: ClientBatchStatusResponse -> () Source #

ToJSONPB ClientBatchStatusResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

toJSONPB :: ClientBatchStatusResponse -> Options -> Value Source #

toEncodingPB :: ClientBatchStatusResponse -> Options -> Encoding Source #

FromJSONPB ClientBatchStatusResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

parseJSONPB :: Value -> Parser ClientBatchStatusResponse Source #

HasDefault ClientBatchStatusResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

def :: ClientBatchStatusResponse Source #

isDefault :: ClientBatchStatusResponse -> Bool Source #

Named ClientBatchStatusResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

nameOf :: IsString string => Proxy# ClientBatchStatusResponse -> string Source #

Message ClientBatchStatusResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

encodeMessage :: FieldNumber -> ClientBatchStatusResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientBatchStatusResponse Source #

dotProto :: Proxy# ClientBatchStatusResponse -> [DotProtoField] Source #

ToSchema ClientBatchStatusResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

declareNamedSchema :: Proxy ClientBatchStatusResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientBatchStatusResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

type Rep ClientBatchStatusResponse = D1 ('MetaData "ClientBatchStatusResponse" "Data.Sawtooth.ClientBatchSubmit" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "ClientBatchStatusResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "clientBatchStatusResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated ClientBatchStatusResponse_Status)) :*: S1 ('MetaSel ('Just "clientBatchStatusResponseBatchStatuses") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector ClientBatchStatus))))

data ClientBatchStatusResponse_Status Source #

Constructors

ClientBatchStatusResponse_StatusSTATUS_UNSET 
ClientBatchStatusResponse_StatusOK 
ClientBatchStatusResponse_StatusINTERNAL_ERROR 
ClientBatchStatusResponse_StatusNO_RESOURCE 
ClientBatchStatusResponse_StatusINVALID_ID 

Instances

Instances details
Bounded ClientBatchStatusResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

minBound :: ClientBatchStatusResponse_Status Source #

maxBound :: ClientBatchStatusResponse_Status Source #

Eq ClientBatchStatusResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

(==) :: ClientBatchStatusResponse_Status -> ClientBatchStatusResponse_Status -> Bool Source #

(/=) :: ClientBatchStatusResponse_Status -> ClientBatchStatusResponse_Status -> Bool Source #

Ord ClientBatchStatusResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

compare :: ClientBatchStatusResponse_Status -> ClientBatchStatusResponse_Status -> Ordering Source #

(<) :: ClientBatchStatusResponse_Status -> ClientBatchStatusResponse_Status -> Bool Source #

(<=) :: ClientBatchStatusResponse_Status -> ClientBatchStatusResponse_Status -> Bool Source #

(>) :: ClientBatchStatusResponse_Status -> ClientBatchStatusResponse_Status -> Bool Source #

(>=) :: ClientBatchStatusResponse_Status -> ClientBatchStatusResponse_Status -> Bool Source #

max :: ClientBatchStatusResponse_Status -> ClientBatchStatusResponse_Status -> ClientBatchStatusResponse_Status Source #

min :: ClientBatchStatusResponse_Status -> ClientBatchStatusResponse_Status -> ClientBatchStatusResponse_Status Source #

Show ClientBatchStatusResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

showsPrec :: Int -> ClientBatchStatusResponse_Status -> ShowS Source #

show :: ClientBatchStatusResponse_Status -> String Source #

showList :: [ClientBatchStatusResponse_Status] -> ShowS Source #

Generic ClientBatchStatusResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Associated Types

type Rep ClientBatchStatusResponse_Status :: Type -> Type Source #

Methods

from :: ClientBatchStatusResponse_Status -> Rep ClientBatchStatusResponse_Status x Source #

to :: Rep ClientBatchStatusResponse_Status x -> ClientBatchStatusResponse_Status Source #

ToJSON ClientBatchStatusResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

toJSON :: ClientBatchStatusResponse_Status -> Value Source #

toEncoding :: ClientBatchStatusResponse_Status -> Encoding Source #

toJSONList :: [ClientBatchStatusResponse_Status] -> Value Source #

toEncodingList :: [ClientBatchStatusResponse_Status] -> Encoding Source #

FromJSON ClientBatchStatusResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

parseJSON :: Value -> Parser ClientBatchStatusResponse_Status Source #

parseJSONList :: Value -> Parser [ClientBatchStatusResponse_Status] Source #

NFData ClientBatchStatusResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

rnf :: ClientBatchStatusResponse_Status -> () Source #

ProtoEnum ClientBatchStatusResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

toProtoEnumMay :: Int32 -> Maybe ClientBatchStatusResponse_Status Source #

fromProtoEnum :: ClientBatchStatusResponse_Status -> Int32 Source #

ToJSONPB ClientBatchStatusResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

toJSONPB :: ClientBatchStatusResponse_Status -> Options -> Value Source #

toEncodingPB :: ClientBatchStatusResponse_Status -> Options -> Encoding Source #

FromJSONPB ClientBatchStatusResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

parseJSONPB :: Value -> Parser ClientBatchStatusResponse_Status Source #

HasDefault ClientBatchStatusResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

def :: ClientBatchStatusResponse_Status Source #

isDefault :: ClientBatchStatusResponse_Status -> Bool Source #

Named ClientBatchStatusResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

nameOf :: IsString string => Proxy# ClientBatchStatusResponse_Status -> string Source #

Finite ClientBatchStatusResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

Methods

enumerate :: IsString string => Proxy# ClientBatchStatusResponse_Status -> [(string, Int32)] Source #

type Rep ClientBatchStatusResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBatchSubmit

type Rep ClientBatchStatusResponse_Status = D1 ('MetaData "ClientBatchStatusResponse_Status" "Data.Sawtooth.ClientBatchSubmit" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) ((C1 ('MetaCons "ClientBatchStatusResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientBatchStatusResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ClientBatchStatusResponse_StatusINTERNAL_ERROR" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "ClientBatchStatusResponse_StatusNO_RESOURCE" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientBatchStatusResponse_StatusINVALID_ID" 'PrefixI 'False) (U1 :: Type -> Type))))
\ No newline at end of file diff --git a/Data-Sawtooth-ClientBlock.html b/Data-Sawtooth-ClientBlock.html index f693c84..3500868 100644 --- a/Data-Sawtooth-ClientBlock.html +++ b/Data-Sawtooth-ClientBlock.html @@ -1 +1 @@ -Data.Sawtooth.ClientBlock
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types
Safe HaskellNone
LanguageHaskell2010

Data.Sawtooth.ClientBlock

Description

Generated by Haskell protocol buffer compiler. DO NOT EDIT!

Documentation

data ClientBlockListRequest Source #

Constructors

ClientBlockListRequest 

Fields

Instances

Instances details
Eq ClientBlockListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

(==) :: ClientBlockListRequest -> ClientBlockListRequest -> Bool Source #

(/=) :: ClientBlockListRequest -> ClientBlockListRequest -> Bool Source #

Ord ClientBlockListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

compare :: ClientBlockListRequest -> ClientBlockListRequest -> Ordering Source #

(<) :: ClientBlockListRequest -> ClientBlockListRequest -> Bool Source #

(<=) :: ClientBlockListRequest -> ClientBlockListRequest -> Bool Source #

(>) :: ClientBlockListRequest -> ClientBlockListRequest -> Bool Source #

(>=) :: ClientBlockListRequest -> ClientBlockListRequest -> Bool Source #

max :: ClientBlockListRequest -> ClientBlockListRequest -> ClientBlockListRequest Source #

min :: ClientBlockListRequest -> ClientBlockListRequest -> ClientBlockListRequest Source #

Show ClientBlockListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

showsPrec :: Int -> ClientBlockListRequest -> ShowS Source #

show :: ClientBlockListRequest -> String Source #

showList :: [ClientBlockListRequest] -> ShowS Source #

Generic ClientBlockListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Associated Types

type Rep ClientBlockListRequest :: Type -> Type Source #

Methods

from :: ClientBlockListRequest -> Rep ClientBlockListRequest x Source #

to :: Rep ClientBlockListRequest x -> ClientBlockListRequest Source #

ToJSON ClientBlockListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

toJSON :: ClientBlockListRequest -> Value Source #

toEncoding :: ClientBlockListRequest -> Encoding Source #

toJSONList :: [ClientBlockListRequest] -> Value Source #

toEncodingList :: [ClientBlockListRequest] -> Encoding Source #

FromJSON ClientBlockListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

parseJSON :: Value -> Parser ClientBlockListRequest Source #

parseJSONList :: Value -> Parser [ClientBlockListRequest] Source #

NFData ClientBlockListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

rnf :: ClientBlockListRequest -> () Source #

ToJSONPB ClientBlockListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

toJSONPB :: ClientBlockListRequest -> Options -> Value Source #

toEncodingPB :: ClientBlockListRequest -> Options -> Encoding Source #

FromJSONPB ClientBlockListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

parseJSONPB :: Value -> Parser ClientBlockListRequest Source #

HasDefault ClientBlockListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

def :: ClientBlockListRequest Source #

isDefault :: ClientBlockListRequest -> Bool Source #

Named ClientBlockListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

nameOf :: IsString string => Proxy# ClientBlockListRequest -> string Source #

Message ClientBlockListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

encodeMessage :: FieldNumber -> ClientBlockListRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientBlockListRequest Source #

dotProto :: Proxy# ClientBlockListRequest -> [DotProtoField] Source #

ToSchema ClientBlockListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

declareNamedSchema :: Proxy ClientBlockListRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientBlockListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

type Rep ClientBlockListRequest = D1 ('MetaData "ClientBlockListRequest" "Data.Sawtooth.ClientBlock" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "ClientBlockListRequest" 'PrefixI 'True) ((S1 ('MetaSel ('Just "clientBlockListRequestHeadId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "clientBlockListRequestBlockIds") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Text))) :*: (S1 ('MetaSel ('Just "clientBlockListRequestPaging") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe ClientPagingControls)) :*: S1 ('MetaSel ('Just "clientBlockListRequestSorting") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector ClientSortControls)))))

data ClientBlockListResponse Source #

Constructors

ClientBlockListResponse 

Fields

Instances

Instances details
Eq ClientBlockListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

(==) :: ClientBlockListResponse -> ClientBlockListResponse -> Bool Source #

(/=) :: ClientBlockListResponse -> ClientBlockListResponse -> Bool Source #

Ord ClientBlockListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

compare :: ClientBlockListResponse -> ClientBlockListResponse -> Ordering Source #

(<) :: ClientBlockListResponse -> ClientBlockListResponse -> Bool Source #

(<=) :: ClientBlockListResponse -> ClientBlockListResponse -> Bool Source #

(>) :: ClientBlockListResponse -> ClientBlockListResponse -> Bool Source #

(>=) :: ClientBlockListResponse -> ClientBlockListResponse -> Bool Source #

max :: ClientBlockListResponse -> ClientBlockListResponse -> ClientBlockListResponse Source #

min :: ClientBlockListResponse -> ClientBlockListResponse -> ClientBlockListResponse Source #

Show ClientBlockListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

showsPrec :: Int -> ClientBlockListResponse -> ShowS Source #

show :: ClientBlockListResponse -> String Source #

showList :: [ClientBlockListResponse] -> ShowS Source #

Generic ClientBlockListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Associated Types

type Rep ClientBlockListResponse :: Type -> Type Source #

Methods

from :: ClientBlockListResponse -> Rep ClientBlockListResponse x Source #

to :: Rep ClientBlockListResponse x -> ClientBlockListResponse Source #

ToJSON ClientBlockListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

toJSON :: ClientBlockListResponse -> Value Source #

toEncoding :: ClientBlockListResponse -> Encoding Source #

toJSONList :: [ClientBlockListResponse] -> Value Source #

toEncodingList :: [ClientBlockListResponse] -> Encoding Source #

FromJSON ClientBlockListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

parseJSON :: Value -> Parser ClientBlockListResponse Source #

parseJSONList :: Value -> Parser [ClientBlockListResponse] Source #

NFData ClientBlockListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

rnf :: ClientBlockListResponse -> () Source #

ToJSONPB ClientBlockListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

toJSONPB :: ClientBlockListResponse -> Options -> Value Source #

toEncodingPB :: ClientBlockListResponse -> Options -> Encoding Source #

FromJSONPB ClientBlockListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

parseJSONPB :: Value -> Parser ClientBlockListResponse Source #

HasDefault ClientBlockListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

def :: ClientBlockListResponse Source #

isDefault :: ClientBlockListResponse -> Bool Source #

Named ClientBlockListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

nameOf :: IsString string => Proxy# ClientBlockListResponse -> string Source #

Message ClientBlockListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

encodeMessage :: FieldNumber -> ClientBlockListResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientBlockListResponse Source #

dotProto :: Proxy# ClientBlockListResponse -> [DotProtoField] Source #

ToSchema ClientBlockListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

declareNamedSchema :: Proxy ClientBlockListResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientBlockListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

type Rep ClientBlockListResponse = D1 ('MetaData "ClientBlockListResponse" "Data.Sawtooth.ClientBlock" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "ClientBlockListResponse" 'PrefixI 'True) ((S1 ('MetaSel ('Just "clientBlockListResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated ClientBlockListResponse_Status)) :*: S1 ('MetaSel ('Just "clientBlockListResponseBlocks") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Block))) :*: (S1 ('MetaSel ('Just "clientBlockListResponseHeadId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "clientBlockListResponsePaging") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe ClientPagingResponse)))))

data ClientBlockListResponse_Status Source #

Constructors

ClientBlockListResponse_StatusSTATUS_UNSET 
ClientBlockListResponse_StatusOK 
ClientBlockListResponse_StatusINTERNAL_ERROR 
ClientBlockListResponse_StatusNOT_READY 
ClientBlockListResponse_StatusNO_ROOT 
ClientBlockListResponse_StatusNO_RESOURCE 
ClientBlockListResponse_StatusINVALID_PAGING 
ClientBlockListResponse_StatusINVALID_SORT 
ClientBlockListResponse_StatusINVALID_ID 

Instances

Instances details
Bounded ClientBlockListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

minBound :: ClientBlockListResponse_Status Source #

maxBound :: ClientBlockListResponse_Status Source #

Eq ClientBlockListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

(==) :: ClientBlockListResponse_Status -> ClientBlockListResponse_Status -> Bool Source #

(/=) :: ClientBlockListResponse_Status -> ClientBlockListResponse_Status -> Bool Source #

Ord ClientBlockListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

compare :: ClientBlockListResponse_Status -> ClientBlockListResponse_Status -> Ordering Source #

(<) :: ClientBlockListResponse_Status -> ClientBlockListResponse_Status -> Bool Source #

(<=) :: ClientBlockListResponse_Status -> ClientBlockListResponse_Status -> Bool Source #

(>) :: ClientBlockListResponse_Status -> ClientBlockListResponse_Status -> Bool Source #

(>=) :: ClientBlockListResponse_Status -> ClientBlockListResponse_Status -> Bool Source #

max :: ClientBlockListResponse_Status -> ClientBlockListResponse_Status -> ClientBlockListResponse_Status Source #

min :: ClientBlockListResponse_Status -> ClientBlockListResponse_Status -> ClientBlockListResponse_Status Source #

Show ClientBlockListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

showsPrec :: Int -> ClientBlockListResponse_Status -> ShowS Source #

show :: ClientBlockListResponse_Status -> String Source #

showList :: [ClientBlockListResponse_Status] -> ShowS Source #

Generic ClientBlockListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Associated Types

type Rep ClientBlockListResponse_Status :: Type -> Type Source #

Methods

from :: ClientBlockListResponse_Status -> Rep ClientBlockListResponse_Status x Source #

to :: Rep ClientBlockListResponse_Status x -> ClientBlockListResponse_Status Source #

ToJSON ClientBlockListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

toJSON :: ClientBlockListResponse_Status -> Value Source #

toEncoding :: ClientBlockListResponse_Status -> Encoding Source #

toJSONList :: [ClientBlockListResponse_Status] -> Value Source #

toEncodingList :: [ClientBlockListResponse_Status] -> Encoding Source #

FromJSON ClientBlockListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

parseJSON :: Value -> Parser ClientBlockListResponse_Status Source #

parseJSONList :: Value -> Parser [ClientBlockListResponse_Status] Source #

NFData ClientBlockListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

rnf :: ClientBlockListResponse_Status -> () Source #

ProtoEnum ClientBlockListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

toProtoEnumMay :: Int32 -> Maybe ClientBlockListResponse_Status Source #

fromProtoEnum :: ClientBlockListResponse_Status -> Int32 Source #

ToJSONPB ClientBlockListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

toJSONPB :: ClientBlockListResponse_Status -> Options -> Value Source #

toEncodingPB :: ClientBlockListResponse_Status -> Options -> Encoding Source #

FromJSONPB ClientBlockListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

parseJSONPB :: Value -> Parser ClientBlockListResponse_Status Source #

HasDefault ClientBlockListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

def :: ClientBlockListResponse_Status Source #

isDefault :: ClientBlockListResponse_Status -> Bool Source #

Named ClientBlockListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

nameOf :: IsString string => Proxy# ClientBlockListResponse_Status -> string Source #

Finite ClientBlockListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

enumerate :: IsString string => Proxy# ClientBlockListResponse_Status -> [(string, Int32)] Source #

type Rep ClientBlockListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

type Rep ClientBlockListResponse_Status = D1 ('MetaData "ClientBlockListResponse_Status" "Data.Sawtooth.ClientBlock" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (((C1 ('MetaCons "ClientBlockListResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientBlockListResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ClientBlockListResponse_StatusINTERNAL_ERROR" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientBlockListResponse_StatusNOT_READY" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "ClientBlockListResponse_StatusNO_ROOT" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientBlockListResponse_StatusNO_RESOURCE" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ClientBlockListResponse_StatusINVALID_PAGING" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "ClientBlockListResponse_StatusINVALID_SORT" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientBlockListResponse_StatusINVALID_ID" 'PrefixI 'False) (U1 :: Type -> Type)))))

newtype ClientBlockGetByIdRequest Source #

Constructors

ClientBlockGetByIdRequest 

Fields

Instances

Instances details
Eq ClientBlockGetByIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

(==) :: ClientBlockGetByIdRequest -> ClientBlockGetByIdRequest -> Bool Source #

(/=) :: ClientBlockGetByIdRequest -> ClientBlockGetByIdRequest -> Bool Source #

Ord ClientBlockGetByIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

compare :: ClientBlockGetByIdRequest -> ClientBlockGetByIdRequest -> Ordering Source #

(<) :: ClientBlockGetByIdRequest -> ClientBlockGetByIdRequest -> Bool Source #

(<=) :: ClientBlockGetByIdRequest -> ClientBlockGetByIdRequest -> Bool Source #

(>) :: ClientBlockGetByIdRequest -> ClientBlockGetByIdRequest -> Bool Source #

(>=) :: ClientBlockGetByIdRequest -> ClientBlockGetByIdRequest -> Bool Source #

max :: ClientBlockGetByIdRequest -> ClientBlockGetByIdRequest -> ClientBlockGetByIdRequest Source #

min :: ClientBlockGetByIdRequest -> ClientBlockGetByIdRequest -> ClientBlockGetByIdRequest Source #

Show ClientBlockGetByIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

showsPrec :: Int -> ClientBlockGetByIdRequest -> ShowS Source #

show :: ClientBlockGetByIdRequest -> String Source #

showList :: [ClientBlockGetByIdRequest] -> ShowS Source #

Generic ClientBlockGetByIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Associated Types

type Rep ClientBlockGetByIdRequest :: Type -> Type Source #

Methods

from :: ClientBlockGetByIdRequest -> Rep ClientBlockGetByIdRequest x Source #

to :: Rep ClientBlockGetByIdRequest x -> ClientBlockGetByIdRequest Source #

ToJSON ClientBlockGetByIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

toJSON :: ClientBlockGetByIdRequest -> Value Source #

toEncoding :: ClientBlockGetByIdRequest -> Encoding Source #

toJSONList :: [ClientBlockGetByIdRequest] -> Value Source #

toEncodingList :: [ClientBlockGetByIdRequest] -> Encoding Source #

FromJSON ClientBlockGetByIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

parseJSON :: Value -> Parser ClientBlockGetByIdRequest Source #

parseJSONList :: Value -> Parser [ClientBlockGetByIdRequest] Source #

NFData ClientBlockGetByIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

rnf :: ClientBlockGetByIdRequest -> () Source #

ToJSONPB ClientBlockGetByIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

toJSONPB :: ClientBlockGetByIdRequest -> Options -> Value Source #

toEncodingPB :: ClientBlockGetByIdRequest -> Options -> Encoding Source #

FromJSONPB ClientBlockGetByIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

parseJSONPB :: Value -> Parser ClientBlockGetByIdRequest Source #

HasDefault ClientBlockGetByIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

def :: ClientBlockGetByIdRequest Source #

isDefault :: ClientBlockGetByIdRequest -> Bool Source #

Named ClientBlockGetByIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

nameOf :: IsString string => Proxy# ClientBlockGetByIdRequest -> string Source #

Message ClientBlockGetByIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

encodeMessage :: FieldNumber -> ClientBlockGetByIdRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientBlockGetByIdRequest Source #

dotProto :: Proxy# ClientBlockGetByIdRequest -> [DotProtoField] Source #

ToSchema ClientBlockGetByIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

declareNamedSchema :: Proxy ClientBlockGetByIdRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientBlockGetByIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

type Rep ClientBlockGetByIdRequest = D1 ('MetaData "ClientBlockGetByIdRequest" "Data.Sawtooth.ClientBlock" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'True) (C1 ('MetaCons "ClientBlockGetByIdRequest" 'PrefixI 'True) (S1 ('MetaSel ('Just "clientBlockGetByIdRequestBlockId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)))

newtype ClientBlockGetByNumRequest Source #

Constructors

ClientBlockGetByNumRequest 

Fields

Instances

Instances details
Eq ClientBlockGetByNumRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

(==) :: ClientBlockGetByNumRequest -> ClientBlockGetByNumRequest -> Bool Source #

(/=) :: ClientBlockGetByNumRequest -> ClientBlockGetByNumRequest -> Bool Source #

Ord ClientBlockGetByNumRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

compare :: ClientBlockGetByNumRequest -> ClientBlockGetByNumRequest -> Ordering Source #

(<) :: ClientBlockGetByNumRequest -> ClientBlockGetByNumRequest -> Bool Source #

(<=) :: ClientBlockGetByNumRequest -> ClientBlockGetByNumRequest -> Bool Source #

(>) :: ClientBlockGetByNumRequest -> ClientBlockGetByNumRequest -> Bool Source #

(>=) :: ClientBlockGetByNumRequest -> ClientBlockGetByNumRequest -> Bool Source #

max :: ClientBlockGetByNumRequest -> ClientBlockGetByNumRequest -> ClientBlockGetByNumRequest Source #

min :: ClientBlockGetByNumRequest -> ClientBlockGetByNumRequest -> ClientBlockGetByNumRequest Source #

Show ClientBlockGetByNumRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

showsPrec :: Int -> ClientBlockGetByNumRequest -> ShowS Source #

show :: ClientBlockGetByNumRequest -> String Source #

showList :: [ClientBlockGetByNumRequest] -> ShowS Source #

Generic ClientBlockGetByNumRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Associated Types

type Rep ClientBlockGetByNumRequest :: Type -> Type Source #

Methods

from :: ClientBlockGetByNumRequest -> Rep ClientBlockGetByNumRequest x Source #

to :: Rep ClientBlockGetByNumRequest x -> ClientBlockGetByNumRequest Source #

ToJSON ClientBlockGetByNumRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

toJSON :: ClientBlockGetByNumRequest -> Value Source #

toEncoding :: ClientBlockGetByNumRequest -> Encoding Source #

toJSONList :: [ClientBlockGetByNumRequest] -> Value Source #

toEncodingList :: [ClientBlockGetByNumRequest] -> Encoding Source #

FromJSON ClientBlockGetByNumRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

parseJSON :: Value -> Parser ClientBlockGetByNumRequest Source #

parseJSONList :: Value -> Parser [ClientBlockGetByNumRequest] Source #

NFData ClientBlockGetByNumRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

rnf :: ClientBlockGetByNumRequest -> () Source #

ToJSONPB ClientBlockGetByNumRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

toJSONPB :: ClientBlockGetByNumRequest -> Options -> Value Source #

toEncodingPB :: ClientBlockGetByNumRequest -> Options -> Encoding Source #

FromJSONPB ClientBlockGetByNumRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

parseJSONPB :: Value -> Parser ClientBlockGetByNumRequest Source #

HasDefault ClientBlockGetByNumRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

def :: ClientBlockGetByNumRequest Source #

isDefault :: ClientBlockGetByNumRequest -> Bool Source #

Named ClientBlockGetByNumRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

nameOf :: IsString string => Proxy# ClientBlockGetByNumRequest -> string Source #

Message ClientBlockGetByNumRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

encodeMessage :: FieldNumber -> ClientBlockGetByNumRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientBlockGetByNumRequest Source #

dotProto :: Proxy# ClientBlockGetByNumRequest -> [DotProtoField] Source #

ToSchema ClientBlockGetByNumRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

declareNamedSchema :: Proxy ClientBlockGetByNumRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientBlockGetByNumRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

type Rep ClientBlockGetByNumRequest = D1 ('MetaData "ClientBlockGetByNumRequest" "Data.Sawtooth.ClientBlock" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'True) (C1 ('MetaCons "ClientBlockGetByNumRequest" 'PrefixI 'True) (S1 ('MetaSel ('Just "clientBlockGetByNumRequestBlockNum") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Word64)))

newtype ClientBlockGetByTransactionIdRequest Source #

Constructors

ClientBlockGetByTransactionIdRequest 

Fields

Instances

Instances details
Eq ClientBlockGetByTransactionIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

(==) :: ClientBlockGetByTransactionIdRequest -> ClientBlockGetByTransactionIdRequest -> Bool Source #

(/=) :: ClientBlockGetByTransactionIdRequest -> ClientBlockGetByTransactionIdRequest -> Bool Source #

Ord ClientBlockGetByTransactionIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

compare :: ClientBlockGetByTransactionIdRequest -> ClientBlockGetByTransactionIdRequest -> Ordering Source #

(<) :: ClientBlockGetByTransactionIdRequest -> ClientBlockGetByTransactionIdRequest -> Bool Source #

(<=) :: ClientBlockGetByTransactionIdRequest -> ClientBlockGetByTransactionIdRequest -> Bool Source #

(>) :: ClientBlockGetByTransactionIdRequest -> ClientBlockGetByTransactionIdRequest -> Bool Source #

(>=) :: ClientBlockGetByTransactionIdRequest -> ClientBlockGetByTransactionIdRequest -> Bool Source #

max :: ClientBlockGetByTransactionIdRequest -> ClientBlockGetByTransactionIdRequest -> ClientBlockGetByTransactionIdRequest Source #

min :: ClientBlockGetByTransactionIdRequest -> ClientBlockGetByTransactionIdRequest -> ClientBlockGetByTransactionIdRequest Source #

Show ClientBlockGetByTransactionIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

showsPrec :: Int -> ClientBlockGetByTransactionIdRequest -> ShowS Source #

show :: ClientBlockGetByTransactionIdRequest -> String Source #

showList :: [ClientBlockGetByTransactionIdRequest] -> ShowS Source #

Generic ClientBlockGetByTransactionIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Associated Types

type Rep ClientBlockGetByTransactionIdRequest :: Type -> Type Source #

Methods

from :: ClientBlockGetByTransactionIdRequest -> Rep ClientBlockGetByTransactionIdRequest x Source #

to :: Rep ClientBlockGetByTransactionIdRequest x -> ClientBlockGetByTransactionIdRequest Source #

ToJSON ClientBlockGetByTransactionIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

toJSON :: ClientBlockGetByTransactionIdRequest -> Value Source #

toEncoding :: ClientBlockGetByTransactionIdRequest -> Encoding Source #

toJSONList :: [ClientBlockGetByTransactionIdRequest] -> Value Source #

toEncodingList :: [ClientBlockGetByTransactionIdRequest] -> Encoding Source #

FromJSON ClientBlockGetByTransactionIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

parseJSON :: Value -> Parser ClientBlockGetByTransactionIdRequest Source #

parseJSONList :: Value -> Parser [ClientBlockGetByTransactionIdRequest] Source #

NFData ClientBlockGetByTransactionIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

rnf :: ClientBlockGetByTransactionIdRequest -> () Source #

ToJSONPB ClientBlockGetByTransactionIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

toJSONPB :: ClientBlockGetByTransactionIdRequest -> Options -> Value Source #

toEncodingPB :: ClientBlockGetByTransactionIdRequest -> Options -> Encoding Source #

FromJSONPB ClientBlockGetByTransactionIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

parseJSONPB :: Value -> Parser ClientBlockGetByTransactionIdRequest Source #

HasDefault ClientBlockGetByTransactionIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

def :: ClientBlockGetByTransactionIdRequest Source #

isDefault :: ClientBlockGetByTransactionIdRequest -> Bool Source #

Named ClientBlockGetByTransactionIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

nameOf :: IsString string => Proxy# ClientBlockGetByTransactionIdRequest -> string Source #

Message ClientBlockGetByTransactionIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

encodeMessage :: FieldNumber -> ClientBlockGetByTransactionIdRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientBlockGetByTransactionIdRequest Source #

dotProto :: Proxy# ClientBlockGetByTransactionIdRequest -> [DotProtoField] Source #

ToSchema ClientBlockGetByTransactionIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

declareNamedSchema :: Proxy ClientBlockGetByTransactionIdRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientBlockGetByTransactionIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

type Rep ClientBlockGetByTransactionIdRequest = D1 ('MetaData "ClientBlockGetByTransactionIdRequest" "Data.Sawtooth.ClientBlock" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'True) (C1 ('MetaCons "ClientBlockGetByTransactionIdRequest" 'PrefixI 'True) (S1 ('MetaSel ('Just "clientBlockGetByTransactionIdRequestTransactionId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)))

newtype ClientBlockGetByBatchIdRequest Source #

Constructors

ClientBlockGetByBatchIdRequest 

Fields

Instances

Instances details
Eq ClientBlockGetByBatchIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

(==) :: ClientBlockGetByBatchIdRequest -> ClientBlockGetByBatchIdRequest -> Bool Source #

(/=) :: ClientBlockGetByBatchIdRequest -> ClientBlockGetByBatchIdRequest -> Bool Source #

Ord ClientBlockGetByBatchIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

compare :: ClientBlockGetByBatchIdRequest -> ClientBlockGetByBatchIdRequest -> Ordering Source #

(<) :: ClientBlockGetByBatchIdRequest -> ClientBlockGetByBatchIdRequest -> Bool Source #

(<=) :: ClientBlockGetByBatchIdRequest -> ClientBlockGetByBatchIdRequest -> Bool Source #

(>) :: ClientBlockGetByBatchIdRequest -> ClientBlockGetByBatchIdRequest -> Bool Source #

(>=) :: ClientBlockGetByBatchIdRequest -> ClientBlockGetByBatchIdRequest -> Bool Source #

max :: ClientBlockGetByBatchIdRequest -> ClientBlockGetByBatchIdRequest -> ClientBlockGetByBatchIdRequest Source #

min :: ClientBlockGetByBatchIdRequest -> ClientBlockGetByBatchIdRequest -> ClientBlockGetByBatchIdRequest Source #

Show ClientBlockGetByBatchIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

showsPrec :: Int -> ClientBlockGetByBatchIdRequest -> ShowS Source #

show :: ClientBlockGetByBatchIdRequest -> String Source #

showList :: [ClientBlockGetByBatchIdRequest] -> ShowS Source #

Generic ClientBlockGetByBatchIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Associated Types

type Rep ClientBlockGetByBatchIdRequest :: Type -> Type Source #

Methods

from :: ClientBlockGetByBatchIdRequest -> Rep ClientBlockGetByBatchIdRequest x Source #

to :: Rep ClientBlockGetByBatchIdRequest x -> ClientBlockGetByBatchIdRequest Source #

ToJSON ClientBlockGetByBatchIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

toJSON :: ClientBlockGetByBatchIdRequest -> Value Source #

toEncoding :: ClientBlockGetByBatchIdRequest -> Encoding Source #

toJSONList :: [ClientBlockGetByBatchIdRequest] -> Value Source #

toEncodingList :: [ClientBlockGetByBatchIdRequest] -> Encoding Source #

FromJSON ClientBlockGetByBatchIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

parseJSON :: Value -> Parser ClientBlockGetByBatchIdRequest Source #

parseJSONList :: Value -> Parser [ClientBlockGetByBatchIdRequest] Source #

NFData ClientBlockGetByBatchIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

rnf :: ClientBlockGetByBatchIdRequest -> () Source #

ToJSONPB ClientBlockGetByBatchIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

toJSONPB :: ClientBlockGetByBatchIdRequest -> Options -> Value Source #

toEncodingPB :: ClientBlockGetByBatchIdRequest -> Options -> Encoding Source #

FromJSONPB ClientBlockGetByBatchIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

parseJSONPB :: Value -> Parser ClientBlockGetByBatchIdRequest Source #

HasDefault ClientBlockGetByBatchIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

def :: ClientBlockGetByBatchIdRequest Source #

isDefault :: ClientBlockGetByBatchIdRequest -> Bool Source #

Named ClientBlockGetByBatchIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

nameOf :: IsString string => Proxy# ClientBlockGetByBatchIdRequest -> string Source #

Message ClientBlockGetByBatchIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

encodeMessage :: FieldNumber -> ClientBlockGetByBatchIdRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientBlockGetByBatchIdRequest Source #

dotProto :: Proxy# ClientBlockGetByBatchIdRequest -> [DotProtoField] Source #

ToSchema ClientBlockGetByBatchIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

declareNamedSchema :: Proxy ClientBlockGetByBatchIdRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientBlockGetByBatchIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

type Rep ClientBlockGetByBatchIdRequest = D1 ('MetaData "ClientBlockGetByBatchIdRequest" "Data.Sawtooth.ClientBlock" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'True) (C1 ('MetaCons "ClientBlockGetByBatchIdRequest" 'PrefixI 'True) (S1 ('MetaSel ('Just "clientBlockGetByBatchIdRequestBatchId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)))

data ClientBlockGetResponse Source #

Constructors

ClientBlockGetResponse 

Fields

Instances

Instances details
Eq ClientBlockGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

(==) :: ClientBlockGetResponse -> ClientBlockGetResponse -> Bool Source #

(/=) :: ClientBlockGetResponse -> ClientBlockGetResponse -> Bool Source #

Ord ClientBlockGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

compare :: ClientBlockGetResponse -> ClientBlockGetResponse -> Ordering Source #

(<) :: ClientBlockGetResponse -> ClientBlockGetResponse -> Bool Source #

(<=) :: ClientBlockGetResponse -> ClientBlockGetResponse -> Bool Source #

(>) :: ClientBlockGetResponse -> ClientBlockGetResponse -> Bool Source #

(>=) :: ClientBlockGetResponse -> ClientBlockGetResponse -> Bool Source #

max :: ClientBlockGetResponse -> ClientBlockGetResponse -> ClientBlockGetResponse Source #

min :: ClientBlockGetResponse -> ClientBlockGetResponse -> ClientBlockGetResponse Source #

Show ClientBlockGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

showsPrec :: Int -> ClientBlockGetResponse -> ShowS Source #

show :: ClientBlockGetResponse -> String Source #

showList :: [ClientBlockGetResponse] -> ShowS Source #

Generic ClientBlockGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Associated Types

type Rep ClientBlockGetResponse :: Type -> Type Source #

Methods

from :: ClientBlockGetResponse -> Rep ClientBlockGetResponse x Source #

to :: Rep ClientBlockGetResponse x -> ClientBlockGetResponse Source #

ToJSON ClientBlockGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

toJSON :: ClientBlockGetResponse -> Value Source #

toEncoding :: ClientBlockGetResponse -> Encoding Source #

toJSONList :: [ClientBlockGetResponse] -> Value Source #

toEncodingList :: [ClientBlockGetResponse] -> Encoding Source #

FromJSON ClientBlockGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

parseJSON :: Value -> Parser ClientBlockGetResponse Source #

parseJSONList :: Value -> Parser [ClientBlockGetResponse] Source #

NFData ClientBlockGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

rnf :: ClientBlockGetResponse -> () Source #

ToJSONPB ClientBlockGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

toJSONPB :: ClientBlockGetResponse -> Options -> Value Source #

toEncodingPB :: ClientBlockGetResponse -> Options -> Encoding Source #

FromJSONPB ClientBlockGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

parseJSONPB :: Value -> Parser ClientBlockGetResponse Source #

HasDefault ClientBlockGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

def :: ClientBlockGetResponse Source #

isDefault :: ClientBlockGetResponse -> Bool Source #

Named ClientBlockGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

nameOf :: IsString string => Proxy# ClientBlockGetResponse -> string Source #

Message ClientBlockGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

encodeMessage :: FieldNumber -> ClientBlockGetResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientBlockGetResponse Source #

dotProto :: Proxy# ClientBlockGetResponse -> [DotProtoField] Source #

ToSchema ClientBlockGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

declareNamedSchema :: Proxy ClientBlockGetResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientBlockGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

type Rep ClientBlockGetResponse = D1 ('MetaData "ClientBlockGetResponse" "Data.Sawtooth.ClientBlock" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "ClientBlockGetResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "clientBlockGetResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated ClientBlockGetResponse_Status)) :*: S1 ('MetaSel ('Just "clientBlockGetResponseBlock") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe Block))))

data ClientBlockGetResponse_Status Source #

Constructors

ClientBlockGetResponse_StatusSTATUS_UNSET 
ClientBlockGetResponse_StatusOK 
ClientBlockGetResponse_StatusINTERNAL_ERROR 
ClientBlockGetResponse_StatusNO_RESOURCE 
ClientBlockGetResponse_StatusINVALID_ID 

Instances

Instances details
Bounded ClientBlockGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

minBound :: ClientBlockGetResponse_Status Source #

maxBound :: ClientBlockGetResponse_Status Source #

Eq ClientBlockGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

(==) :: ClientBlockGetResponse_Status -> ClientBlockGetResponse_Status -> Bool Source #

(/=) :: ClientBlockGetResponse_Status -> ClientBlockGetResponse_Status -> Bool Source #

Ord ClientBlockGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

compare :: ClientBlockGetResponse_Status -> ClientBlockGetResponse_Status -> Ordering Source #

(<) :: ClientBlockGetResponse_Status -> ClientBlockGetResponse_Status -> Bool Source #

(<=) :: ClientBlockGetResponse_Status -> ClientBlockGetResponse_Status -> Bool Source #

(>) :: ClientBlockGetResponse_Status -> ClientBlockGetResponse_Status -> Bool Source #

(>=) :: ClientBlockGetResponse_Status -> ClientBlockGetResponse_Status -> Bool Source #

max :: ClientBlockGetResponse_Status -> ClientBlockGetResponse_Status -> ClientBlockGetResponse_Status Source #

min :: ClientBlockGetResponse_Status -> ClientBlockGetResponse_Status -> ClientBlockGetResponse_Status Source #

Show ClientBlockGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

showsPrec :: Int -> ClientBlockGetResponse_Status -> ShowS Source #

show :: ClientBlockGetResponse_Status -> String Source #

showList :: [ClientBlockGetResponse_Status] -> ShowS Source #

Generic ClientBlockGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Associated Types

type Rep ClientBlockGetResponse_Status :: Type -> Type Source #

Methods

from :: ClientBlockGetResponse_Status -> Rep ClientBlockGetResponse_Status x Source #

to :: Rep ClientBlockGetResponse_Status x -> ClientBlockGetResponse_Status Source #

ToJSON ClientBlockGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

toJSON :: ClientBlockGetResponse_Status -> Value Source #

toEncoding :: ClientBlockGetResponse_Status -> Encoding Source #

toJSONList :: [ClientBlockGetResponse_Status] -> Value Source #

toEncodingList :: [ClientBlockGetResponse_Status] -> Encoding Source #

FromJSON ClientBlockGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

parseJSON :: Value -> Parser ClientBlockGetResponse_Status Source #

parseJSONList :: Value -> Parser [ClientBlockGetResponse_Status] Source #

NFData ClientBlockGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

rnf :: ClientBlockGetResponse_Status -> () Source #

ProtoEnum ClientBlockGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

toProtoEnumMay :: Int32 -> Maybe ClientBlockGetResponse_Status Source #

fromProtoEnum :: ClientBlockGetResponse_Status -> Int32 Source #

ToJSONPB ClientBlockGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

toJSONPB :: ClientBlockGetResponse_Status -> Options -> Value Source #

toEncodingPB :: ClientBlockGetResponse_Status -> Options -> Encoding Source #

FromJSONPB ClientBlockGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

parseJSONPB :: Value -> Parser ClientBlockGetResponse_Status Source #

HasDefault ClientBlockGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

def :: ClientBlockGetResponse_Status Source #

isDefault :: ClientBlockGetResponse_Status -> Bool Source #

Named ClientBlockGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

nameOf :: IsString string => Proxy# ClientBlockGetResponse_Status -> string Source #

Finite ClientBlockGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

enumerate :: IsString string => Proxy# ClientBlockGetResponse_Status -> [(string, Int32)] Source #

type Rep ClientBlockGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

type Rep ClientBlockGetResponse_Status = D1 ('MetaData "ClientBlockGetResponse_Status" "Data.Sawtooth.ClientBlock" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) ((C1 ('MetaCons "ClientBlockGetResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientBlockGetResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ClientBlockGetResponse_StatusINTERNAL_ERROR" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "ClientBlockGetResponse_StatusNO_RESOURCE" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientBlockGetResponse_StatusINVALID_ID" 'PrefixI 'False) (U1 :: Type -> Type))))
\ No newline at end of file +Data.Sawtooth.ClientBlock
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types
Safe HaskellNone
LanguageHaskell2010

Data.Sawtooth.ClientBlock

Description

Generated by Haskell protocol buffer compiler. DO NOT EDIT!

Documentation

data ClientBlockListRequest Source #

Constructors

ClientBlockListRequest 

Fields

Instances

Instances details
Eq ClientBlockListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

(==) :: ClientBlockListRequest -> ClientBlockListRequest -> Bool Source #

(/=) :: ClientBlockListRequest -> ClientBlockListRequest -> Bool Source #

Ord ClientBlockListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

compare :: ClientBlockListRequest -> ClientBlockListRequest -> Ordering Source #

(<) :: ClientBlockListRequest -> ClientBlockListRequest -> Bool Source #

(<=) :: ClientBlockListRequest -> ClientBlockListRequest -> Bool Source #

(>) :: ClientBlockListRequest -> ClientBlockListRequest -> Bool Source #

(>=) :: ClientBlockListRequest -> ClientBlockListRequest -> Bool Source #

max :: ClientBlockListRequest -> ClientBlockListRequest -> ClientBlockListRequest Source #

min :: ClientBlockListRequest -> ClientBlockListRequest -> ClientBlockListRequest Source #

Show ClientBlockListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

showsPrec :: Int -> ClientBlockListRequest -> ShowS Source #

show :: ClientBlockListRequest -> String Source #

showList :: [ClientBlockListRequest] -> ShowS Source #

Generic ClientBlockListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Associated Types

type Rep ClientBlockListRequest :: Type -> Type Source #

Methods

from :: ClientBlockListRequest -> Rep ClientBlockListRequest x Source #

to :: Rep ClientBlockListRequest x -> ClientBlockListRequest Source #

ToJSON ClientBlockListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

toJSON :: ClientBlockListRequest -> Value Source #

toEncoding :: ClientBlockListRequest -> Encoding Source #

toJSONList :: [ClientBlockListRequest] -> Value Source #

toEncodingList :: [ClientBlockListRequest] -> Encoding Source #

FromJSON ClientBlockListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

parseJSON :: Value -> Parser ClientBlockListRequest Source #

parseJSONList :: Value -> Parser [ClientBlockListRequest] Source #

NFData ClientBlockListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

rnf :: ClientBlockListRequest -> () Source #

ToJSONPB ClientBlockListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

toJSONPB :: ClientBlockListRequest -> Options -> Value Source #

toEncodingPB :: ClientBlockListRequest -> Options -> Encoding Source #

FromJSONPB ClientBlockListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

parseJSONPB :: Value -> Parser ClientBlockListRequest Source #

HasDefault ClientBlockListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

def :: ClientBlockListRequest Source #

isDefault :: ClientBlockListRequest -> Bool Source #

Named ClientBlockListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

nameOf :: IsString string => Proxy# ClientBlockListRequest -> string Source #

Message ClientBlockListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

encodeMessage :: FieldNumber -> ClientBlockListRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientBlockListRequest Source #

dotProto :: Proxy# ClientBlockListRequest -> [DotProtoField] Source #

ToSchema ClientBlockListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

declareNamedSchema :: Proxy ClientBlockListRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientBlockListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

type Rep ClientBlockListRequest = D1 ('MetaData "ClientBlockListRequest" "Data.Sawtooth.ClientBlock" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "ClientBlockListRequest" 'PrefixI 'True) ((S1 ('MetaSel ('Just "clientBlockListRequestHeadId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "clientBlockListRequestBlockIds") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Text))) :*: (S1 ('MetaSel ('Just "clientBlockListRequestPaging") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe ClientPagingControls)) :*: S1 ('MetaSel ('Just "clientBlockListRequestSorting") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector ClientSortControls)))))

data ClientBlockListResponse Source #

Constructors

ClientBlockListResponse 

Fields

Instances

Instances details
Eq ClientBlockListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

(==) :: ClientBlockListResponse -> ClientBlockListResponse -> Bool Source #

(/=) :: ClientBlockListResponse -> ClientBlockListResponse -> Bool Source #

Ord ClientBlockListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

compare :: ClientBlockListResponse -> ClientBlockListResponse -> Ordering Source #

(<) :: ClientBlockListResponse -> ClientBlockListResponse -> Bool Source #

(<=) :: ClientBlockListResponse -> ClientBlockListResponse -> Bool Source #

(>) :: ClientBlockListResponse -> ClientBlockListResponse -> Bool Source #

(>=) :: ClientBlockListResponse -> ClientBlockListResponse -> Bool Source #

max :: ClientBlockListResponse -> ClientBlockListResponse -> ClientBlockListResponse Source #

min :: ClientBlockListResponse -> ClientBlockListResponse -> ClientBlockListResponse Source #

Show ClientBlockListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

showsPrec :: Int -> ClientBlockListResponse -> ShowS Source #

show :: ClientBlockListResponse -> String Source #

showList :: [ClientBlockListResponse] -> ShowS Source #

Generic ClientBlockListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Associated Types

type Rep ClientBlockListResponse :: Type -> Type Source #

Methods

from :: ClientBlockListResponse -> Rep ClientBlockListResponse x Source #

to :: Rep ClientBlockListResponse x -> ClientBlockListResponse Source #

ToJSON ClientBlockListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

toJSON :: ClientBlockListResponse -> Value Source #

toEncoding :: ClientBlockListResponse -> Encoding Source #

toJSONList :: [ClientBlockListResponse] -> Value Source #

toEncodingList :: [ClientBlockListResponse] -> Encoding Source #

FromJSON ClientBlockListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

parseJSON :: Value -> Parser ClientBlockListResponse Source #

parseJSONList :: Value -> Parser [ClientBlockListResponse] Source #

NFData ClientBlockListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

rnf :: ClientBlockListResponse -> () Source #

ToJSONPB ClientBlockListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

toJSONPB :: ClientBlockListResponse -> Options -> Value Source #

toEncodingPB :: ClientBlockListResponse -> Options -> Encoding Source #

FromJSONPB ClientBlockListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

parseJSONPB :: Value -> Parser ClientBlockListResponse Source #

HasDefault ClientBlockListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

def :: ClientBlockListResponse Source #

isDefault :: ClientBlockListResponse -> Bool Source #

Named ClientBlockListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

nameOf :: IsString string => Proxy# ClientBlockListResponse -> string Source #

Message ClientBlockListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

encodeMessage :: FieldNumber -> ClientBlockListResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientBlockListResponse Source #

dotProto :: Proxy# ClientBlockListResponse -> [DotProtoField] Source #

ToSchema ClientBlockListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

declareNamedSchema :: Proxy ClientBlockListResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientBlockListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

type Rep ClientBlockListResponse = D1 ('MetaData "ClientBlockListResponse" "Data.Sawtooth.ClientBlock" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "ClientBlockListResponse" 'PrefixI 'True) ((S1 ('MetaSel ('Just "clientBlockListResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated ClientBlockListResponse_Status)) :*: S1 ('MetaSel ('Just "clientBlockListResponseBlocks") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Block))) :*: (S1 ('MetaSel ('Just "clientBlockListResponseHeadId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "clientBlockListResponsePaging") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe ClientPagingResponse)))))

data ClientBlockListResponse_Status Source #

Constructors

ClientBlockListResponse_StatusSTATUS_UNSET 
ClientBlockListResponse_StatusOK 
ClientBlockListResponse_StatusINTERNAL_ERROR 
ClientBlockListResponse_StatusNOT_READY 
ClientBlockListResponse_StatusNO_ROOT 
ClientBlockListResponse_StatusNO_RESOURCE 
ClientBlockListResponse_StatusINVALID_PAGING 
ClientBlockListResponse_StatusINVALID_SORT 
ClientBlockListResponse_StatusINVALID_ID 

Instances

Instances details
Bounded ClientBlockListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

minBound :: ClientBlockListResponse_Status Source #

maxBound :: ClientBlockListResponse_Status Source #

Eq ClientBlockListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

(==) :: ClientBlockListResponse_Status -> ClientBlockListResponse_Status -> Bool Source #

(/=) :: ClientBlockListResponse_Status -> ClientBlockListResponse_Status -> Bool Source #

Ord ClientBlockListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

compare :: ClientBlockListResponse_Status -> ClientBlockListResponse_Status -> Ordering Source #

(<) :: ClientBlockListResponse_Status -> ClientBlockListResponse_Status -> Bool Source #

(<=) :: ClientBlockListResponse_Status -> ClientBlockListResponse_Status -> Bool Source #

(>) :: ClientBlockListResponse_Status -> ClientBlockListResponse_Status -> Bool Source #

(>=) :: ClientBlockListResponse_Status -> ClientBlockListResponse_Status -> Bool Source #

max :: ClientBlockListResponse_Status -> ClientBlockListResponse_Status -> ClientBlockListResponse_Status Source #

min :: ClientBlockListResponse_Status -> ClientBlockListResponse_Status -> ClientBlockListResponse_Status Source #

Show ClientBlockListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

showsPrec :: Int -> ClientBlockListResponse_Status -> ShowS Source #

show :: ClientBlockListResponse_Status -> String Source #

showList :: [ClientBlockListResponse_Status] -> ShowS Source #

Generic ClientBlockListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Associated Types

type Rep ClientBlockListResponse_Status :: Type -> Type Source #

Methods

from :: ClientBlockListResponse_Status -> Rep ClientBlockListResponse_Status x Source #

to :: Rep ClientBlockListResponse_Status x -> ClientBlockListResponse_Status Source #

ToJSON ClientBlockListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

toJSON :: ClientBlockListResponse_Status -> Value Source #

toEncoding :: ClientBlockListResponse_Status -> Encoding Source #

toJSONList :: [ClientBlockListResponse_Status] -> Value Source #

toEncodingList :: [ClientBlockListResponse_Status] -> Encoding Source #

FromJSON ClientBlockListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

parseJSON :: Value -> Parser ClientBlockListResponse_Status Source #

parseJSONList :: Value -> Parser [ClientBlockListResponse_Status] Source #

NFData ClientBlockListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

rnf :: ClientBlockListResponse_Status -> () Source #

ProtoEnum ClientBlockListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

toProtoEnumMay :: Int32 -> Maybe ClientBlockListResponse_Status Source #

fromProtoEnum :: ClientBlockListResponse_Status -> Int32 Source #

ToJSONPB ClientBlockListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

toJSONPB :: ClientBlockListResponse_Status -> Options -> Value Source #

toEncodingPB :: ClientBlockListResponse_Status -> Options -> Encoding Source #

FromJSONPB ClientBlockListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

parseJSONPB :: Value -> Parser ClientBlockListResponse_Status Source #

HasDefault ClientBlockListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

def :: ClientBlockListResponse_Status Source #

isDefault :: ClientBlockListResponse_Status -> Bool Source #

Named ClientBlockListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

nameOf :: IsString string => Proxy# ClientBlockListResponse_Status -> string Source #

Finite ClientBlockListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

enumerate :: IsString string => Proxy# ClientBlockListResponse_Status -> [(string, Int32)] Source #

type Rep ClientBlockListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

type Rep ClientBlockListResponse_Status = D1 ('MetaData "ClientBlockListResponse_Status" "Data.Sawtooth.ClientBlock" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (((C1 ('MetaCons "ClientBlockListResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientBlockListResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ClientBlockListResponse_StatusINTERNAL_ERROR" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientBlockListResponse_StatusNOT_READY" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "ClientBlockListResponse_StatusNO_ROOT" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientBlockListResponse_StatusNO_RESOURCE" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ClientBlockListResponse_StatusINVALID_PAGING" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "ClientBlockListResponse_StatusINVALID_SORT" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientBlockListResponse_StatusINVALID_ID" 'PrefixI 'False) (U1 :: Type -> Type)))))

newtype ClientBlockGetByIdRequest Source #

Constructors

ClientBlockGetByIdRequest 

Fields

Instances

Instances details
Eq ClientBlockGetByIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

(==) :: ClientBlockGetByIdRequest -> ClientBlockGetByIdRequest -> Bool Source #

(/=) :: ClientBlockGetByIdRequest -> ClientBlockGetByIdRequest -> Bool Source #

Ord ClientBlockGetByIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

compare :: ClientBlockGetByIdRequest -> ClientBlockGetByIdRequest -> Ordering Source #

(<) :: ClientBlockGetByIdRequest -> ClientBlockGetByIdRequest -> Bool Source #

(<=) :: ClientBlockGetByIdRequest -> ClientBlockGetByIdRequest -> Bool Source #

(>) :: ClientBlockGetByIdRequest -> ClientBlockGetByIdRequest -> Bool Source #

(>=) :: ClientBlockGetByIdRequest -> ClientBlockGetByIdRequest -> Bool Source #

max :: ClientBlockGetByIdRequest -> ClientBlockGetByIdRequest -> ClientBlockGetByIdRequest Source #

min :: ClientBlockGetByIdRequest -> ClientBlockGetByIdRequest -> ClientBlockGetByIdRequest Source #

Show ClientBlockGetByIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

showsPrec :: Int -> ClientBlockGetByIdRequest -> ShowS Source #

show :: ClientBlockGetByIdRequest -> String Source #

showList :: [ClientBlockGetByIdRequest] -> ShowS Source #

Generic ClientBlockGetByIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Associated Types

type Rep ClientBlockGetByIdRequest :: Type -> Type Source #

Methods

from :: ClientBlockGetByIdRequest -> Rep ClientBlockGetByIdRequest x Source #

to :: Rep ClientBlockGetByIdRequest x -> ClientBlockGetByIdRequest Source #

ToJSON ClientBlockGetByIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

toJSON :: ClientBlockGetByIdRequest -> Value Source #

toEncoding :: ClientBlockGetByIdRequest -> Encoding Source #

toJSONList :: [ClientBlockGetByIdRequest] -> Value Source #

toEncodingList :: [ClientBlockGetByIdRequest] -> Encoding Source #

FromJSON ClientBlockGetByIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

parseJSON :: Value -> Parser ClientBlockGetByIdRequest Source #

parseJSONList :: Value -> Parser [ClientBlockGetByIdRequest] Source #

NFData ClientBlockGetByIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

rnf :: ClientBlockGetByIdRequest -> () Source #

ToJSONPB ClientBlockGetByIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

toJSONPB :: ClientBlockGetByIdRequest -> Options -> Value Source #

toEncodingPB :: ClientBlockGetByIdRequest -> Options -> Encoding Source #

FromJSONPB ClientBlockGetByIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

parseJSONPB :: Value -> Parser ClientBlockGetByIdRequest Source #

HasDefault ClientBlockGetByIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

def :: ClientBlockGetByIdRequest Source #

isDefault :: ClientBlockGetByIdRequest -> Bool Source #

Named ClientBlockGetByIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

nameOf :: IsString string => Proxy# ClientBlockGetByIdRequest -> string Source #

Message ClientBlockGetByIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

encodeMessage :: FieldNumber -> ClientBlockGetByIdRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientBlockGetByIdRequest Source #

dotProto :: Proxy# ClientBlockGetByIdRequest -> [DotProtoField] Source #

ToSchema ClientBlockGetByIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

declareNamedSchema :: Proxy ClientBlockGetByIdRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientBlockGetByIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

type Rep ClientBlockGetByIdRequest = D1 ('MetaData "ClientBlockGetByIdRequest" "Data.Sawtooth.ClientBlock" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'True) (C1 ('MetaCons "ClientBlockGetByIdRequest" 'PrefixI 'True) (S1 ('MetaSel ('Just "clientBlockGetByIdRequestBlockId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)))

newtype ClientBlockGetByNumRequest Source #

Constructors

ClientBlockGetByNumRequest 

Fields

Instances

Instances details
Eq ClientBlockGetByNumRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

(==) :: ClientBlockGetByNumRequest -> ClientBlockGetByNumRequest -> Bool Source #

(/=) :: ClientBlockGetByNumRequest -> ClientBlockGetByNumRequest -> Bool Source #

Ord ClientBlockGetByNumRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

compare :: ClientBlockGetByNumRequest -> ClientBlockGetByNumRequest -> Ordering Source #

(<) :: ClientBlockGetByNumRequest -> ClientBlockGetByNumRequest -> Bool Source #

(<=) :: ClientBlockGetByNumRequest -> ClientBlockGetByNumRequest -> Bool Source #

(>) :: ClientBlockGetByNumRequest -> ClientBlockGetByNumRequest -> Bool Source #

(>=) :: ClientBlockGetByNumRequest -> ClientBlockGetByNumRequest -> Bool Source #

max :: ClientBlockGetByNumRequest -> ClientBlockGetByNumRequest -> ClientBlockGetByNumRequest Source #

min :: ClientBlockGetByNumRequest -> ClientBlockGetByNumRequest -> ClientBlockGetByNumRequest Source #

Show ClientBlockGetByNumRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

showsPrec :: Int -> ClientBlockGetByNumRequest -> ShowS Source #

show :: ClientBlockGetByNumRequest -> String Source #

showList :: [ClientBlockGetByNumRequest] -> ShowS Source #

Generic ClientBlockGetByNumRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Associated Types

type Rep ClientBlockGetByNumRequest :: Type -> Type Source #

Methods

from :: ClientBlockGetByNumRequest -> Rep ClientBlockGetByNumRequest x Source #

to :: Rep ClientBlockGetByNumRequest x -> ClientBlockGetByNumRequest Source #

ToJSON ClientBlockGetByNumRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

toJSON :: ClientBlockGetByNumRequest -> Value Source #

toEncoding :: ClientBlockGetByNumRequest -> Encoding Source #

toJSONList :: [ClientBlockGetByNumRequest] -> Value Source #

toEncodingList :: [ClientBlockGetByNumRequest] -> Encoding Source #

FromJSON ClientBlockGetByNumRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

parseJSON :: Value -> Parser ClientBlockGetByNumRequest Source #

parseJSONList :: Value -> Parser [ClientBlockGetByNumRequest] Source #

NFData ClientBlockGetByNumRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

rnf :: ClientBlockGetByNumRequest -> () Source #

ToJSONPB ClientBlockGetByNumRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

toJSONPB :: ClientBlockGetByNumRequest -> Options -> Value Source #

toEncodingPB :: ClientBlockGetByNumRequest -> Options -> Encoding Source #

FromJSONPB ClientBlockGetByNumRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

parseJSONPB :: Value -> Parser ClientBlockGetByNumRequest Source #

HasDefault ClientBlockGetByNumRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

def :: ClientBlockGetByNumRequest Source #

isDefault :: ClientBlockGetByNumRequest -> Bool Source #

Named ClientBlockGetByNumRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

nameOf :: IsString string => Proxy# ClientBlockGetByNumRequest -> string Source #

Message ClientBlockGetByNumRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

encodeMessage :: FieldNumber -> ClientBlockGetByNumRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientBlockGetByNumRequest Source #

dotProto :: Proxy# ClientBlockGetByNumRequest -> [DotProtoField] Source #

ToSchema ClientBlockGetByNumRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

declareNamedSchema :: Proxy ClientBlockGetByNumRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientBlockGetByNumRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

type Rep ClientBlockGetByNumRequest = D1 ('MetaData "ClientBlockGetByNumRequest" "Data.Sawtooth.ClientBlock" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'True) (C1 ('MetaCons "ClientBlockGetByNumRequest" 'PrefixI 'True) (S1 ('MetaSel ('Just "clientBlockGetByNumRequestBlockNum") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Word64)))

newtype ClientBlockGetByTransactionIdRequest Source #

Constructors

ClientBlockGetByTransactionIdRequest 

Fields

Instances

Instances details
Eq ClientBlockGetByTransactionIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

(==) :: ClientBlockGetByTransactionIdRequest -> ClientBlockGetByTransactionIdRequest -> Bool Source #

(/=) :: ClientBlockGetByTransactionIdRequest -> ClientBlockGetByTransactionIdRequest -> Bool Source #

Ord ClientBlockGetByTransactionIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

compare :: ClientBlockGetByTransactionIdRequest -> ClientBlockGetByTransactionIdRequest -> Ordering Source #

(<) :: ClientBlockGetByTransactionIdRequest -> ClientBlockGetByTransactionIdRequest -> Bool Source #

(<=) :: ClientBlockGetByTransactionIdRequest -> ClientBlockGetByTransactionIdRequest -> Bool Source #

(>) :: ClientBlockGetByTransactionIdRequest -> ClientBlockGetByTransactionIdRequest -> Bool Source #

(>=) :: ClientBlockGetByTransactionIdRequest -> ClientBlockGetByTransactionIdRequest -> Bool Source #

max :: ClientBlockGetByTransactionIdRequest -> ClientBlockGetByTransactionIdRequest -> ClientBlockGetByTransactionIdRequest Source #

min :: ClientBlockGetByTransactionIdRequest -> ClientBlockGetByTransactionIdRequest -> ClientBlockGetByTransactionIdRequest Source #

Show ClientBlockGetByTransactionIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

showsPrec :: Int -> ClientBlockGetByTransactionIdRequest -> ShowS Source #

show :: ClientBlockGetByTransactionIdRequest -> String Source #

showList :: [ClientBlockGetByTransactionIdRequest] -> ShowS Source #

Generic ClientBlockGetByTransactionIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Associated Types

type Rep ClientBlockGetByTransactionIdRequest :: Type -> Type Source #

Methods

from :: ClientBlockGetByTransactionIdRequest -> Rep ClientBlockGetByTransactionIdRequest x Source #

to :: Rep ClientBlockGetByTransactionIdRequest x -> ClientBlockGetByTransactionIdRequest Source #

ToJSON ClientBlockGetByTransactionIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

toJSON :: ClientBlockGetByTransactionIdRequest -> Value Source #

toEncoding :: ClientBlockGetByTransactionIdRequest -> Encoding Source #

toJSONList :: [ClientBlockGetByTransactionIdRequest] -> Value Source #

toEncodingList :: [ClientBlockGetByTransactionIdRequest] -> Encoding Source #

FromJSON ClientBlockGetByTransactionIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

parseJSON :: Value -> Parser ClientBlockGetByTransactionIdRequest Source #

parseJSONList :: Value -> Parser [ClientBlockGetByTransactionIdRequest] Source #

NFData ClientBlockGetByTransactionIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

rnf :: ClientBlockGetByTransactionIdRequest -> () Source #

ToJSONPB ClientBlockGetByTransactionIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

toJSONPB :: ClientBlockGetByTransactionIdRequest -> Options -> Value Source #

toEncodingPB :: ClientBlockGetByTransactionIdRequest -> Options -> Encoding Source #

FromJSONPB ClientBlockGetByTransactionIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

parseJSONPB :: Value -> Parser ClientBlockGetByTransactionIdRequest Source #

HasDefault ClientBlockGetByTransactionIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

def :: ClientBlockGetByTransactionIdRequest Source #

isDefault :: ClientBlockGetByTransactionIdRequest -> Bool Source #

Named ClientBlockGetByTransactionIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

nameOf :: IsString string => Proxy# ClientBlockGetByTransactionIdRequest -> string Source #

Message ClientBlockGetByTransactionIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

encodeMessage :: FieldNumber -> ClientBlockGetByTransactionIdRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientBlockGetByTransactionIdRequest Source #

dotProto :: Proxy# ClientBlockGetByTransactionIdRequest -> [DotProtoField] Source #

ToSchema ClientBlockGetByTransactionIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

declareNamedSchema :: Proxy ClientBlockGetByTransactionIdRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientBlockGetByTransactionIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

type Rep ClientBlockGetByTransactionIdRequest = D1 ('MetaData "ClientBlockGetByTransactionIdRequest" "Data.Sawtooth.ClientBlock" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'True) (C1 ('MetaCons "ClientBlockGetByTransactionIdRequest" 'PrefixI 'True) (S1 ('MetaSel ('Just "clientBlockGetByTransactionIdRequestTransactionId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)))

newtype ClientBlockGetByBatchIdRequest Source #

Constructors

ClientBlockGetByBatchIdRequest 

Fields

Instances

Instances details
Eq ClientBlockGetByBatchIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

(==) :: ClientBlockGetByBatchIdRequest -> ClientBlockGetByBatchIdRequest -> Bool Source #

(/=) :: ClientBlockGetByBatchIdRequest -> ClientBlockGetByBatchIdRequest -> Bool Source #

Ord ClientBlockGetByBatchIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

compare :: ClientBlockGetByBatchIdRequest -> ClientBlockGetByBatchIdRequest -> Ordering Source #

(<) :: ClientBlockGetByBatchIdRequest -> ClientBlockGetByBatchIdRequest -> Bool Source #

(<=) :: ClientBlockGetByBatchIdRequest -> ClientBlockGetByBatchIdRequest -> Bool Source #

(>) :: ClientBlockGetByBatchIdRequest -> ClientBlockGetByBatchIdRequest -> Bool Source #

(>=) :: ClientBlockGetByBatchIdRequest -> ClientBlockGetByBatchIdRequest -> Bool Source #

max :: ClientBlockGetByBatchIdRequest -> ClientBlockGetByBatchIdRequest -> ClientBlockGetByBatchIdRequest Source #

min :: ClientBlockGetByBatchIdRequest -> ClientBlockGetByBatchIdRequest -> ClientBlockGetByBatchIdRequest Source #

Show ClientBlockGetByBatchIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

showsPrec :: Int -> ClientBlockGetByBatchIdRequest -> ShowS Source #

show :: ClientBlockGetByBatchIdRequest -> String Source #

showList :: [ClientBlockGetByBatchIdRequest] -> ShowS Source #

Generic ClientBlockGetByBatchIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Associated Types

type Rep ClientBlockGetByBatchIdRequest :: Type -> Type Source #

Methods

from :: ClientBlockGetByBatchIdRequest -> Rep ClientBlockGetByBatchIdRequest x Source #

to :: Rep ClientBlockGetByBatchIdRequest x -> ClientBlockGetByBatchIdRequest Source #

ToJSON ClientBlockGetByBatchIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

toJSON :: ClientBlockGetByBatchIdRequest -> Value Source #

toEncoding :: ClientBlockGetByBatchIdRequest -> Encoding Source #

toJSONList :: [ClientBlockGetByBatchIdRequest] -> Value Source #

toEncodingList :: [ClientBlockGetByBatchIdRequest] -> Encoding Source #

FromJSON ClientBlockGetByBatchIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

parseJSON :: Value -> Parser ClientBlockGetByBatchIdRequest Source #

parseJSONList :: Value -> Parser [ClientBlockGetByBatchIdRequest] Source #

NFData ClientBlockGetByBatchIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

rnf :: ClientBlockGetByBatchIdRequest -> () Source #

ToJSONPB ClientBlockGetByBatchIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

toJSONPB :: ClientBlockGetByBatchIdRequest -> Options -> Value Source #

toEncodingPB :: ClientBlockGetByBatchIdRequest -> Options -> Encoding Source #

FromJSONPB ClientBlockGetByBatchIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

parseJSONPB :: Value -> Parser ClientBlockGetByBatchIdRequest Source #

HasDefault ClientBlockGetByBatchIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

def :: ClientBlockGetByBatchIdRequest Source #

isDefault :: ClientBlockGetByBatchIdRequest -> Bool Source #

Named ClientBlockGetByBatchIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

nameOf :: IsString string => Proxy# ClientBlockGetByBatchIdRequest -> string Source #

Message ClientBlockGetByBatchIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

encodeMessage :: FieldNumber -> ClientBlockGetByBatchIdRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientBlockGetByBatchIdRequest Source #

dotProto :: Proxy# ClientBlockGetByBatchIdRequest -> [DotProtoField] Source #

ToSchema ClientBlockGetByBatchIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

declareNamedSchema :: Proxy ClientBlockGetByBatchIdRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientBlockGetByBatchIdRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

type Rep ClientBlockGetByBatchIdRequest = D1 ('MetaData "ClientBlockGetByBatchIdRequest" "Data.Sawtooth.ClientBlock" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'True) (C1 ('MetaCons "ClientBlockGetByBatchIdRequest" 'PrefixI 'True) (S1 ('MetaSel ('Just "clientBlockGetByBatchIdRequestBatchId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)))

data ClientBlockGetResponse Source #

Constructors

ClientBlockGetResponse 

Fields

Instances

Instances details
Eq ClientBlockGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

(==) :: ClientBlockGetResponse -> ClientBlockGetResponse -> Bool Source #

(/=) :: ClientBlockGetResponse -> ClientBlockGetResponse -> Bool Source #

Ord ClientBlockGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

compare :: ClientBlockGetResponse -> ClientBlockGetResponse -> Ordering Source #

(<) :: ClientBlockGetResponse -> ClientBlockGetResponse -> Bool Source #

(<=) :: ClientBlockGetResponse -> ClientBlockGetResponse -> Bool Source #

(>) :: ClientBlockGetResponse -> ClientBlockGetResponse -> Bool Source #

(>=) :: ClientBlockGetResponse -> ClientBlockGetResponse -> Bool Source #

max :: ClientBlockGetResponse -> ClientBlockGetResponse -> ClientBlockGetResponse Source #

min :: ClientBlockGetResponse -> ClientBlockGetResponse -> ClientBlockGetResponse Source #

Show ClientBlockGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

showsPrec :: Int -> ClientBlockGetResponse -> ShowS Source #

show :: ClientBlockGetResponse -> String Source #

showList :: [ClientBlockGetResponse] -> ShowS Source #

Generic ClientBlockGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Associated Types

type Rep ClientBlockGetResponse :: Type -> Type Source #

Methods

from :: ClientBlockGetResponse -> Rep ClientBlockGetResponse x Source #

to :: Rep ClientBlockGetResponse x -> ClientBlockGetResponse Source #

ToJSON ClientBlockGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

toJSON :: ClientBlockGetResponse -> Value Source #

toEncoding :: ClientBlockGetResponse -> Encoding Source #

toJSONList :: [ClientBlockGetResponse] -> Value Source #

toEncodingList :: [ClientBlockGetResponse] -> Encoding Source #

FromJSON ClientBlockGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

parseJSON :: Value -> Parser ClientBlockGetResponse Source #

parseJSONList :: Value -> Parser [ClientBlockGetResponse] Source #

NFData ClientBlockGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

rnf :: ClientBlockGetResponse -> () Source #

ToJSONPB ClientBlockGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

toJSONPB :: ClientBlockGetResponse -> Options -> Value Source #

toEncodingPB :: ClientBlockGetResponse -> Options -> Encoding Source #

FromJSONPB ClientBlockGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

parseJSONPB :: Value -> Parser ClientBlockGetResponse Source #

HasDefault ClientBlockGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

def :: ClientBlockGetResponse Source #

isDefault :: ClientBlockGetResponse -> Bool Source #

Named ClientBlockGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

nameOf :: IsString string => Proxy# ClientBlockGetResponse -> string Source #

Message ClientBlockGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

encodeMessage :: FieldNumber -> ClientBlockGetResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientBlockGetResponse Source #

dotProto :: Proxy# ClientBlockGetResponse -> [DotProtoField] Source #

ToSchema ClientBlockGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

declareNamedSchema :: Proxy ClientBlockGetResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientBlockGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

type Rep ClientBlockGetResponse = D1 ('MetaData "ClientBlockGetResponse" "Data.Sawtooth.ClientBlock" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "ClientBlockGetResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "clientBlockGetResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated ClientBlockGetResponse_Status)) :*: S1 ('MetaSel ('Just "clientBlockGetResponseBlock") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe Block))))

data ClientBlockGetResponse_Status Source #

Constructors

ClientBlockGetResponse_StatusSTATUS_UNSET 
ClientBlockGetResponse_StatusOK 
ClientBlockGetResponse_StatusINTERNAL_ERROR 
ClientBlockGetResponse_StatusNO_RESOURCE 
ClientBlockGetResponse_StatusINVALID_ID 

Instances

Instances details
Bounded ClientBlockGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

minBound :: ClientBlockGetResponse_Status Source #

maxBound :: ClientBlockGetResponse_Status Source #

Eq ClientBlockGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

(==) :: ClientBlockGetResponse_Status -> ClientBlockGetResponse_Status -> Bool Source #

(/=) :: ClientBlockGetResponse_Status -> ClientBlockGetResponse_Status -> Bool Source #

Ord ClientBlockGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

compare :: ClientBlockGetResponse_Status -> ClientBlockGetResponse_Status -> Ordering Source #

(<) :: ClientBlockGetResponse_Status -> ClientBlockGetResponse_Status -> Bool Source #

(<=) :: ClientBlockGetResponse_Status -> ClientBlockGetResponse_Status -> Bool Source #

(>) :: ClientBlockGetResponse_Status -> ClientBlockGetResponse_Status -> Bool Source #

(>=) :: ClientBlockGetResponse_Status -> ClientBlockGetResponse_Status -> Bool Source #

max :: ClientBlockGetResponse_Status -> ClientBlockGetResponse_Status -> ClientBlockGetResponse_Status Source #

min :: ClientBlockGetResponse_Status -> ClientBlockGetResponse_Status -> ClientBlockGetResponse_Status Source #

Show ClientBlockGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

showsPrec :: Int -> ClientBlockGetResponse_Status -> ShowS Source #

show :: ClientBlockGetResponse_Status -> String Source #

showList :: [ClientBlockGetResponse_Status] -> ShowS Source #

Generic ClientBlockGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Associated Types

type Rep ClientBlockGetResponse_Status :: Type -> Type Source #

Methods

from :: ClientBlockGetResponse_Status -> Rep ClientBlockGetResponse_Status x Source #

to :: Rep ClientBlockGetResponse_Status x -> ClientBlockGetResponse_Status Source #

ToJSON ClientBlockGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

toJSON :: ClientBlockGetResponse_Status -> Value Source #

toEncoding :: ClientBlockGetResponse_Status -> Encoding Source #

toJSONList :: [ClientBlockGetResponse_Status] -> Value Source #

toEncodingList :: [ClientBlockGetResponse_Status] -> Encoding Source #

FromJSON ClientBlockGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

parseJSON :: Value -> Parser ClientBlockGetResponse_Status Source #

parseJSONList :: Value -> Parser [ClientBlockGetResponse_Status] Source #

NFData ClientBlockGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

rnf :: ClientBlockGetResponse_Status -> () Source #

ProtoEnum ClientBlockGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

toProtoEnumMay :: Int32 -> Maybe ClientBlockGetResponse_Status Source #

fromProtoEnum :: ClientBlockGetResponse_Status -> Int32 Source #

ToJSONPB ClientBlockGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

toJSONPB :: ClientBlockGetResponse_Status -> Options -> Value Source #

toEncodingPB :: ClientBlockGetResponse_Status -> Options -> Encoding Source #

FromJSONPB ClientBlockGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

parseJSONPB :: Value -> Parser ClientBlockGetResponse_Status Source #

HasDefault ClientBlockGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

def :: ClientBlockGetResponse_Status Source #

isDefault :: ClientBlockGetResponse_Status -> Bool Source #

Named ClientBlockGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

nameOf :: IsString string => Proxy# ClientBlockGetResponse_Status -> string Source #

Finite ClientBlockGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

Methods

enumerate :: IsString string => Proxy# ClientBlockGetResponse_Status -> [(string, Int32)] Source #

type Rep ClientBlockGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientBlock

type Rep ClientBlockGetResponse_Status = D1 ('MetaData "ClientBlockGetResponse_Status" "Data.Sawtooth.ClientBlock" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) ((C1 ('MetaCons "ClientBlockGetResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientBlockGetResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ClientBlockGetResponse_StatusINTERNAL_ERROR" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "ClientBlockGetResponse_StatusNO_RESOURCE" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientBlockGetResponse_StatusINVALID_ID" 'PrefixI 'False) (U1 :: Type -> Type))))
\ No newline at end of file diff --git a/Data-Sawtooth-ClientEvent.html b/Data-Sawtooth-ClientEvent.html index 4c0bcc2..052f8cf 100644 --- a/Data-Sawtooth-ClientEvent.html +++ b/Data-Sawtooth-ClientEvent.html @@ -1 +1 @@ -Data.Sawtooth.ClientEvent
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types
Safe HaskellNone
LanguageHaskell2010

Data.Sawtooth.ClientEvent

Description

Generated by Haskell protocol buffer compiler. DO NOT EDIT!

Documentation

data ClientEventsSubscribeRequest Source #

Constructors

ClientEventsSubscribeRequest 

Fields

Instances

Instances details
Eq ClientEventsSubscribeRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

(==) :: ClientEventsSubscribeRequest -> ClientEventsSubscribeRequest -> Bool Source #

(/=) :: ClientEventsSubscribeRequest -> ClientEventsSubscribeRequest -> Bool Source #

Ord ClientEventsSubscribeRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

compare :: ClientEventsSubscribeRequest -> ClientEventsSubscribeRequest -> Ordering Source #

(<) :: ClientEventsSubscribeRequest -> ClientEventsSubscribeRequest -> Bool Source #

(<=) :: ClientEventsSubscribeRequest -> ClientEventsSubscribeRequest -> Bool Source #

(>) :: ClientEventsSubscribeRequest -> ClientEventsSubscribeRequest -> Bool Source #

(>=) :: ClientEventsSubscribeRequest -> ClientEventsSubscribeRequest -> Bool Source #

max :: ClientEventsSubscribeRequest -> ClientEventsSubscribeRequest -> ClientEventsSubscribeRequest Source #

min :: ClientEventsSubscribeRequest -> ClientEventsSubscribeRequest -> ClientEventsSubscribeRequest Source #

Show ClientEventsSubscribeRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

showsPrec :: Int -> ClientEventsSubscribeRequest -> ShowS Source #

show :: ClientEventsSubscribeRequest -> String Source #

showList :: [ClientEventsSubscribeRequest] -> ShowS Source #

Generic ClientEventsSubscribeRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Associated Types

type Rep ClientEventsSubscribeRequest :: Type -> Type Source #

Methods

from :: ClientEventsSubscribeRequest -> Rep ClientEventsSubscribeRequest x Source #

to :: Rep ClientEventsSubscribeRequest x -> ClientEventsSubscribeRequest Source #

ToJSON ClientEventsSubscribeRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

toJSON :: ClientEventsSubscribeRequest -> Value Source #

toEncoding :: ClientEventsSubscribeRequest -> Encoding Source #

toJSONList :: [ClientEventsSubscribeRequest] -> Value Source #

toEncodingList :: [ClientEventsSubscribeRequest] -> Encoding Source #

FromJSON ClientEventsSubscribeRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

parseJSON :: Value -> Parser ClientEventsSubscribeRequest Source #

parseJSONList :: Value -> Parser [ClientEventsSubscribeRequest] Source #

NFData ClientEventsSubscribeRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

rnf :: ClientEventsSubscribeRequest -> () Source #

ToJSONPB ClientEventsSubscribeRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

toJSONPB :: ClientEventsSubscribeRequest -> Options -> Value Source #

toEncodingPB :: ClientEventsSubscribeRequest -> Options -> Encoding Source #

FromJSONPB ClientEventsSubscribeRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

parseJSONPB :: Value -> Parser ClientEventsSubscribeRequest Source #

HasDefault ClientEventsSubscribeRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

def :: ClientEventsSubscribeRequest Source #

isDefault :: ClientEventsSubscribeRequest -> Bool Source #

Named ClientEventsSubscribeRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

nameOf :: IsString string => Proxy# ClientEventsSubscribeRequest -> string Source #

Message ClientEventsSubscribeRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

encodeMessage :: FieldNumber -> ClientEventsSubscribeRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientEventsSubscribeRequest Source #

dotProto :: Proxy# ClientEventsSubscribeRequest -> [DotProtoField] Source #

ToSchema ClientEventsSubscribeRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

declareNamedSchema :: Proxy ClientEventsSubscribeRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientEventsSubscribeRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

type Rep ClientEventsSubscribeRequest = D1 ('MetaData "ClientEventsSubscribeRequest" "Data.Sawtooth.ClientEvent" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "ClientEventsSubscribeRequest" 'PrefixI 'True) (S1 ('MetaSel ('Just "clientEventsSubscribeRequestSubscriptions") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector EventSubscription)) :*: S1 ('MetaSel ('Just "clientEventsSubscribeRequestLastKnownBlockIds") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Text))))

data ClientEventsSubscribeResponse Source #

Constructors

ClientEventsSubscribeResponse 

Fields

Instances

Instances details
Eq ClientEventsSubscribeResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

(==) :: ClientEventsSubscribeResponse -> ClientEventsSubscribeResponse -> Bool Source #

(/=) :: ClientEventsSubscribeResponse -> ClientEventsSubscribeResponse -> Bool Source #

Ord ClientEventsSubscribeResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

compare :: ClientEventsSubscribeResponse -> ClientEventsSubscribeResponse -> Ordering Source #

(<) :: ClientEventsSubscribeResponse -> ClientEventsSubscribeResponse -> Bool Source #

(<=) :: ClientEventsSubscribeResponse -> ClientEventsSubscribeResponse -> Bool Source #

(>) :: ClientEventsSubscribeResponse -> ClientEventsSubscribeResponse -> Bool Source #

(>=) :: ClientEventsSubscribeResponse -> ClientEventsSubscribeResponse -> Bool Source #

max :: ClientEventsSubscribeResponse -> ClientEventsSubscribeResponse -> ClientEventsSubscribeResponse Source #

min :: ClientEventsSubscribeResponse -> ClientEventsSubscribeResponse -> ClientEventsSubscribeResponse Source #

Show ClientEventsSubscribeResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

showsPrec :: Int -> ClientEventsSubscribeResponse -> ShowS Source #

show :: ClientEventsSubscribeResponse -> String Source #

showList :: [ClientEventsSubscribeResponse] -> ShowS Source #

Generic ClientEventsSubscribeResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Associated Types

type Rep ClientEventsSubscribeResponse :: Type -> Type Source #

Methods

from :: ClientEventsSubscribeResponse -> Rep ClientEventsSubscribeResponse x Source #

to :: Rep ClientEventsSubscribeResponse x -> ClientEventsSubscribeResponse Source #

ToJSON ClientEventsSubscribeResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

toJSON :: ClientEventsSubscribeResponse -> Value Source #

toEncoding :: ClientEventsSubscribeResponse -> Encoding Source #

toJSONList :: [ClientEventsSubscribeResponse] -> Value Source #

toEncodingList :: [ClientEventsSubscribeResponse] -> Encoding Source #

FromJSON ClientEventsSubscribeResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

parseJSON :: Value -> Parser ClientEventsSubscribeResponse Source #

parseJSONList :: Value -> Parser [ClientEventsSubscribeResponse] Source #

NFData ClientEventsSubscribeResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

rnf :: ClientEventsSubscribeResponse -> () Source #

ToJSONPB ClientEventsSubscribeResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

toJSONPB :: ClientEventsSubscribeResponse -> Options -> Value Source #

toEncodingPB :: ClientEventsSubscribeResponse -> Options -> Encoding Source #

FromJSONPB ClientEventsSubscribeResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

parseJSONPB :: Value -> Parser ClientEventsSubscribeResponse Source #

HasDefault ClientEventsSubscribeResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

def :: ClientEventsSubscribeResponse Source #

isDefault :: ClientEventsSubscribeResponse -> Bool Source #

Named ClientEventsSubscribeResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

nameOf :: IsString string => Proxy# ClientEventsSubscribeResponse -> string Source #

Message ClientEventsSubscribeResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

encodeMessage :: FieldNumber -> ClientEventsSubscribeResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientEventsSubscribeResponse Source #

dotProto :: Proxy# ClientEventsSubscribeResponse -> [DotProtoField] Source #

ToSchema ClientEventsSubscribeResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

declareNamedSchema :: Proxy ClientEventsSubscribeResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientEventsSubscribeResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

type Rep ClientEventsSubscribeResponse = D1 ('MetaData "ClientEventsSubscribeResponse" "Data.Sawtooth.ClientEvent" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "ClientEventsSubscribeResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "clientEventsSubscribeResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated ClientEventsSubscribeResponse_Status)) :*: S1 ('MetaSel ('Just "clientEventsSubscribeResponseResponseMessage") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)))

data ClientEventsSubscribeResponse_Status Source #

Constructors

ClientEventsSubscribeResponse_StatusSTATUS_UNSET 
ClientEventsSubscribeResponse_StatusOK 
ClientEventsSubscribeResponse_StatusINVALID_FILTER 
ClientEventsSubscribeResponse_StatusUNKNOWN_BLOCK 

Instances

Instances details
Bounded ClientEventsSubscribeResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

minBound :: ClientEventsSubscribeResponse_Status Source #

maxBound :: ClientEventsSubscribeResponse_Status Source #

Eq ClientEventsSubscribeResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

(==) :: ClientEventsSubscribeResponse_Status -> ClientEventsSubscribeResponse_Status -> Bool Source #

(/=) :: ClientEventsSubscribeResponse_Status -> ClientEventsSubscribeResponse_Status -> Bool Source #

Ord ClientEventsSubscribeResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

compare :: ClientEventsSubscribeResponse_Status -> ClientEventsSubscribeResponse_Status -> Ordering Source #

(<) :: ClientEventsSubscribeResponse_Status -> ClientEventsSubscribeResponse_Status -> Bool Source #

(<=) :: ClientEventsSubscribeResponse_Status -> ClientEventsSubscribeResponse_Status -> Bool Source #

(>) :: ClientEventsSubscribeResponse_Status -> ClientEventsSubscribeResponse_Status -> Bool Source #

(>=) :: ClientEventsSubscribeResponse_Status -> ClientEventsSubscribeResponse_Status -> Bool Source #

max :: ClientEventsSubscribeResponse_Status -> ClientEventsSubscribeResponse_Status -> ClientEventsSubscribeResponse_Status Source #

min :: ClientEventsSubscribeResponse_Status -> ClientEventsSubscribeResponse_Status -> ClientEventsSubscribeResponse_Status Source #

Show ClientEventsSubscribeResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

showsPrec :: Int -> ClientEventsSubscribeResponse_Status -> ShowS Source #

show :: ClientEventsSubscribeResponse_Status -> String Source #

showList :: [ClientEventsSubscribeResponse_Status] -> ShowS Source #

Generic ClientEventsSubscribeResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Associated Types

type Rep ClientEventsSubscribeResponse_Status :: Type -> Type Source #

Methods

from :: ClientEventsSubscribeResponse_Status -> Rep ClientEventsSubscribeResponse_Status x Source #

to :: Rep ClientEventsSubscribeResponse_Status x -> ClientEventsSubscribeResponse_Status Source #

ToJSON ClientEventsSubscribeResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

toJSON :: ClientEventsSubscribeResponse_Status -> Value Source #

toEncoding :: ClientEventsSubscribeResponse_Status -> Encoding Source #

toJSONList :: [ClientEventsSubscribeResponse_Status] -> Value Source #

toEncodingList :: [ClientEventsSubscribeResponse_Status] -> Encoding Source #

FromJSON ClientEventsSubscribeResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

parseJSON :: Value -> Parser ClientEventsSubscribeResponse_Status Source #

parseJSONList :: Value -> Parser [ClientEventsSubscribeResponse_Status] Source #

NFData ClientEventsSubscribeResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

rnf :: ClientEventsSubscribeResponse_Status -> () Source #

ProtoEnum ClientEventsSubscribeResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

toProtoEnumMay :: Int32 -> Maybe ClientEventsSubscribeResponse_Status Source #

fromProtoEnum :: ClientEventsSubscribeResponse_Status -> Int32 Source #

ToJSONPB ClientEventsSubscribeResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

toJSONPB :: ClientEventsSubscribeResponse_Status -> Options -> Value Source #

toEncodingPB :: ClientEventsSubscribeResponse_Status -> Options -> Encoding Source #

FromJSONPB ClientEventsSubscribeResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

parseJSONPB :: Value -> Parser ClientEventsSubscribeResponse_Status Source #

HasDefault ClientEventsSubscribeResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

def :: ClientEventsSubscribeResponse_Status Source #

isDefault :: ClientEventsSubscribeResponse_Status -> Bool Source #

Named ClientEventsSubscribeResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

nameOf :: IsString string => Proxy# ClientEventsSubscribeResponse_Status -> string Source #

Finite ClientEventsSubscribeResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

enumerate :: IsString string => Proxy# ClientEventsSubscribeResponse_Status -> [(string, Int32)] Source #

type Rep ClientEventsSubscribeResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

type Rep ClientEventsSubscribeResponse_Status = D1 ('MetaData "ClientEventsSubscribeResponse_Status" "Data.Sawtooth.ClientEvent" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) ((C1 ('MetaCons "ClientEventsSubscribeResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientEventsSubscribeResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ClientEventsSubscribeResponse_StatusINVALID_FILTER" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientEventsSubscribeResponse_StatusUNKNOWN_BLOCK" 'PrefixI 'False) (U1 :: Type -> Type)))

data ClientEventsUnsubscribeRequest Source #

Constructors

ClientEventsUnsubscribeRequest 

Instances

Instances details
Eq ClientEventsUnsubscribeRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

(==) :: ClientEventsUnsubscribeRequest -> ClientEventsUnsubscribeRequest -> Bool Source #

(/=) :: ClientEventsUnsubscribeRequest -> ClientEventsUnsubscribeRequest -> Bool Source #

Ord ClientEventsUnsubscribeRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

compare :: ClientEventsUnsubscribeRequest -> ClientEventsUnsubscribeRequest -> Ordering Source #

(<) :: ClientEventsUnsubscribeRequest -> ClientEventsUnsubscribeRequest -> Bool Source #

(<=) :: ClientEventsUnsubscribeRequest -> ClientEventsUnsubscribeRequest -> Bool Source #

(>) :: ClientEventsUnsubscribeRequest -> ClientEventsUnsubscribeRequest -> Bool Source #

(>=) :: ClientEventsUnsubscribeRequest -> ClientEventsUnsubscribeRequest -> Bool Source #

max :: ClientEventsUnsubscribeRequest -> ClientEventsUnsubscribeRequest -> ClientEventsUnsubscribeRequest Source #

min :: ClientEventsUnsubscribeRequest -> ClientEventsUnsubscribeRequest -> ClientEventsUnsubscribeRequest Source #

Show ClientEventsUnsubscribeRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

showsPrec :: Int -> ClientEventsUnsubscribeRequest -> ShowS Source #

show :: ClientEventsUnsubscribeRequest -> String Source #

showList :: [ClientEventsUnsubscribeRequest] -> ShowS Source #

Generic ClientEventsUnsubscribeRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Associated Types

type Rep ClientEventsUnsubscribeRequest :: Type -> Type Source #

Methods

from :: ClientEventsUnsubscribeRequest -> Rep ClientEventsUnsubscribeRequest x Source #

to :: Rep ClientEventsUnsubscribeRequest x -> ClientEventsUnsubscribeRequest Source #

ToJSON ClientEventsUnsubscribeRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

toJSON :: ClientEventsUnsubscribeRequest -> Value Source #

toEncoding :: ClientEventsUnsubscribeRequest -> Encoding Source #

toJSONList :: [ClientEventsUnsubscribeRequest] -> Value Source #

toEncodingList :: [ClientEventsUnsubscribeRequest] -> Encoding Source #

FromJSON ClientEventsUnsubscribeRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

parseJSON :: Value -> Parser ClientEventsUnsubscribeRequest Source #

parseJSONList :: Value -> Parser [ClientEventsUnsubscribeRequest] Source #

NFData ClientEventsUnsubscribeRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

rnf :: ClientEventsUnsubscribeRequest -> () Source #

ToJSONPB ClientEventsUnsubscribeRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

toJSONPB :: ClientEventsUnsubscribeRequest -> Options -> Value Source #

toEncodingPB :: ClientEventsUnsubscribeRequest -> Options -> Encoding Source #

FromJSONPB ClientEventsUnsubscribeRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

parseJSONPB :: Value -> Parser ClientEventsUnsubscribeRequest Source #

HasDefault ClientEventsUnsubscribeRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

def :: ClientEventsUnsubscribeRequest Source #

isDefault :: ClientEventsUnsubscribeRequest -> Bool Source #

Named ClientEventsUnsubscribeRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

nameOf :: IsString string => Proxy# ClientEventsUnsubscribeRequest -> string Source #

Message ClientEventsUnsubscribeRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

encodeMessage :: FieldNumber -> ClientEventsUnsubscribeRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientEventsUnsubscribeRequest Source #

dotProto :: Proxy# ClientEventsUnsubscribeRequest -> [DotProtoField] Source #

ToSchema ClientEventsUnsubscribeRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

declareNamedSchema :: Proxy ClientEventsUnsubscribeRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientEventsUnsubscribeRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

type Rep ClientEventsUnsubscribeRequest = D1 ('MetaData "ClientEventsUnsubscribeRequest" "Data.Sawtooth.ClientEvent" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "ClientEventsUnsubscribeRequest" 'PrefixI 'False) (U1 :: Type -> Type))

newtype ClientEventsUnsubscribeResponse Source #

Constructors

ClientEventsUnsubscribeResponse 

Fields

Instances

Instances details
Eq ClientEventsUnsubscribeResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

(==) :: ClientEventsUnsubscribeResponse -> ClientEventsUnsubscribeResponse -> Bool Source #

(/=) :: ClientEventsUnsubscribeResponse -> ClientEventsUnsubscribeResponse -> Bool Source #

Ord ClientEventsUnsubscribeResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

compare :: ClientEventsUnsubscribeResponse -> ClientEventsUnsubscribeResponse -> Ordering Source #

(<) :: ClientEventsUnsubscribeResponse -> ClientEventsUnsubscribeResponse -> Bool Source #

(<=) :: ClientEventsUnsubscribeResponse -> ClientEventsUnsubscribeResponse -> Bool Source #

(>) :: ClientEventsUnsubscribeResponse -> ClientEventsUnsubscribeResponse -> Bool Source #

(>=) :: ClientEventsUnsubscribeResponse -> ClientEventsUnsubscribeResponse -> Bool Source #

max :: ClientEventsUnsubscribeResponse -> ClientEventsUnsubscribeResponse -> ClientEventsUnsubscribeResponse Source #

min :: ClientEventsUnsubscribeResponse -> ClientEventsUnsubscribeResponse -> ClientEventsUnsubscribeResponse Source #

Show ClientEventsUnsubscribeResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

showsPrec :: Int -> ClientEventsUnsubscribeResponse -> ShowS Source #

show :: ClientEventsUnsubscribeResponse -> String Source #

showList :: [ClientEventsUnsubscribeResponse] -> ShowS Source #

Generic ClientEventsUnsubscribeResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Associated Types

type Rep ClientEventsUnsubscribeResponse :: Type -> Type Source #

Methods

from :: ClientEventsUnsubscribeResponse -> Rep ClientEventsUnsubscribeResponse x Source #

to :: Rep ClientEventsUnsubscribeResponse x -> ClientEventsUnsubscribeResponse Source #

ToJSON ClientEventsUnsubscribeResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

toJSON :: ClientEventsUnsubscribeResponse -> Value Source #

toEncoding :: ClientEventsUnsubscribeResponse -> Encoding Source #

toJSONList :: [ClientEventsUnsubscribeResponse] -> Value Source #

toEncodingList :: [ClientEventsUnsubscribeResponse] -> Encoding Source #

FromJSON ClientEventsUnsubscribeResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

parseJSON :: Value -> Parser ClientEventsUnsubscribeResponse Source #

parseJSONList :: Value -> Parser [ClientEventsUnsubscribeResponse] Source #

NFData ClientEventsUnsubscribeResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

rnf :: ClientEventsUnsubscribeResponse -> () Source #

ToJSONPB ClientEventsUnsubscribeResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

toJSONPB :: ClientEventsUnsubscribeResponse -> Options -> Value Source #

toEncodingPB :: ClientEventsUnsubscribeResponse -> Options -> Encoding Source #

FromJSONPB ClientEventsUnsubscribeResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

parseJSONPB :: Value -> Parser ClientEventsUnsubscribeResponse Source #

HasDefault ClientEventsUnsubscribeResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

def :: ClientEventsUnsubscribeResponse Source #

isDefault :: ClientEventsUnsubscribeResponse -> Bool Source #

Named ClientEventsUnsubscribeResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

nameOf :: IsString string => Proxy# ClientEventsUnsubscribeResponse -> string Source #

Message ClientEventsUnsubscribeResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

encodeMessage :: FieldNumber -> ClientEventsUnsubscribeResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientEventsUnsubscribeResponse Source #

dotProto :: Proxy# ClientEventsUnsubscribeResponse -> [DotProtoField] Source #

ToSchema ClientEventsUnsubscribeResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

declareNamedSchema :: Proxy ClientEventsUnsubscribeResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientEventsUnsubscribeResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

type Rep ClientEventsUnsubscribeResponse = D1 ('MetaData "ClientEventsUnsubscribeResponse" "Data.Sawtooth.ClientEvent" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'True) (C1 ('MetaCons "ClientEventsUnsubscribeResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "clientEventsUnsubscribeResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated ClientEventsUnsubscribeResponse_Status))))

data ClientEventsUnsubscribeResponse_Status Source #

Constructors

ClientEventsUnsubscribeResponse_StatusSTATUS_UNSET 
ClientEventsUnsubscribeResponse_StatusOK 
ClientEventsUnsubscribeResponse_StatusINTERNAL_ERROR 

Instances

Instances details
Bounded ClientEventsUnsubscribeResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

minBound :: ClientEventsUnsubscribeResponse_Status Source #

maxBound :: ClientEventsUnsubscribeResponse_Status Source #

Eq ClientEventsUnsubscribeResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

(==) :: ClientEventsUnsubscribeResponse_Status -> ClientEventsUnsubscribeResponse_Status -> Bool Source #

(/=) :: ClientEventsUnsubscribeResponse_Status -> ClientEventsUnsubscribeResponse_Status -> Bool Source #

Ord ClientEventsUnsubscribeResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

compare :: ClientEventsUnsubscribeResponse_Status -> ClientEventsUnsubscribeResponse_Status -> Ordering Source #

(<) :: ClientEventsUnsubscribeResponse_Status -> ClientEventsUnsubscribeResponse_Status -> Bool Source #

(<=) :: ClientEventsUnsubscribeResponse_Status -> ClientEventsUnsubscribeResponse_Status -> Bool Source #

(>) :: ClientEventsUnsubscribeResponse_Status -> ClientEventsUnsubscribeResponse_Status -> Bool Source #

(>=) :: ClientEventsUnsubscribeResponse_Status -> ClientEventsUnsubscribeResponse_Status -> Bool Source #

max :: ClientEventsUnsubscribeResponse_Status -> ClientEventsUnsubscribeResponse_Status -> ClientEventsUnsubscribeResponse_Status Source #

min :: ClientEventsUnsubscribeResponse_Status -> ClientEventsUnsubscribeResponse_Status -> ClientEventsUnsubscribeResponse_Status Source #

Show ClientEventsUnsubscribeResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

showsPrec :: Int -> ClientEventsUnsubscribeResponse_Status -> ShowS Source #

show :: ClientEventsUnsubscribeResponse_Status -> String Source #

showList :: [ClientEventsUnsubscribeResponse_Status] -> ShowS Source #

Generic ClientEventsUnsubscribeResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Associated Types

type Rep ClientEventsUnsubscribeResponse_Status :: Type -> Type Source #

Methods

from :: ClientEventsUnsubscribeResponse_Status -> Rep ClientEventsUnsubscribeResponse_Status x Source #

to :: Rep ClientEventsUnsubscribeResponse_Status x -> ClientEventsUnsubscribeResponse_Status Source #

ToJSON ClientEventsUnsubscribeResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

toJSON :: ClientEventsUnsubscribeResponse_Status -> Value Source #

toEncoding :: ClientEventsUnsubscribeResponse_Status -> Encoding Source #

toJSONList :: [ClientEventsUnsubscribeResponse_Status] -> Value Source #

toEncodingList :: [ClientEventsUnsubscribeResponse_Status] -> Encoding Source #

FromJSON ClientEventsUnsubscribeResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

parseJSON :: Value -> Parser ClientEventsUnsubscribeResponse_Status Source #

parseJSONList :: Value -> Parser [ClientEventsUnsubscribeResponse_Status] Source #

NFData ClientEventsUnsubscribeResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

rnf :: ClientEventsUnsubscribeResponse_Status -> () Source #

ProtoEnum ClientEventsUnsubscribeResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

toProtoEnumMay :: Int32 -> Maybe ClientEventsUnsubscribeResponse_Status Source #

fromProtoEnum :: ClientEventsUnsubscribeResponse_Status -> Int32 Source #

ToJSONPB ClientEventsUnsubscribeResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

toJSONPB :: ClientEventsUnsubscribeResponse_Status -> Options -> Value Source #

toEncodingPB :: ClientEventsUnsubscribeResponse_Status -> Options -> Encoding Source #

FromJSONPB ClientEventsUnsubscribeResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

parseJSONPB :: Value -> Parser ClientEventsUnsubscribeResponse_Status Source #

HasDefault ClientEventsUnsubscribeResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

def :: ClientEventsUnsubscribeResponse_Status Source #

isDefault :: ClientEventsUnsubscribeResponse_Status -> Bool Source #

Named ClientEventsUnsubscribeResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

nameOf :: IsString string => Proxy# ClientEventsUnsubscribeResponse_Status -> string Source #

Finite ClientEventsUnsubscribeResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

enumerate :: IsString string => Proxy# ClientEventsUnsubscribeResponse_Status -> [(string, Int32)] Source #

type Rep ClientEventsUnsubscribeResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

type Rep ClientEventsUnsubscribeResponse_Status = D1 ('MetaData "ClientEventsUnsubscribeResponse_Status" "Data.Sawtooth.ClientEvent" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "ClientEventsUnsubscribeResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "ClientEventsUnsubscribeResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientEventsUnsubscribeResponse_StatusINTERNAL_ERROR" 'PrefixI 'False) (U1 :: Type -> Type)))

data ClientEventsGetRequest Source #

Constructors

ClientEventsGetRequest 

Fields

Instances

Instances details
Eq ClientEventsGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

(==) :: ClientEventsGetRequest -> ClientEventsGetRequest -> Bool Source #

(/=) :: ClientEventsGetRequest -> ClientEventsGetRequest -> Bool Source #

Ord ClientEventsGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

compare :: ClientEventsGetRequest -> ClientEventsGetRequest -> Ordering Source #

(<) :: ClientEventsGetRequest -> ClientEventsGetRequest -> Bool Source #

(<=) :: ClientEventsGetRequest -> ClientEventsGetRequest -> Bool Source #

(>) :: ClientEventsGetRequest -> ClientEventsGetRequest -> Bool Source #

(>=) :: ClientEventsGetRequest -> ClientEventsGetRequest -> Bool Source #

max :: ClientEventsGetRequest -> ClientEventsGetRequest -> ClientEventsGetRequest Source #

min :: ClientEventsGetRequest -> ClientEventsGetRequest -> ClientEventsGetRequest Source #

Show ClientEventsGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

showsPrec :: Int -> ClientEventsGetRequest -> ShowS Source #

show :: ClientEventsGetRequest -> String Source #

showList :: [ClientEventsGetRequest] -> ShowS Source #

Generic ClientEventsGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Associated Types

type Rep ClientEventsGetRequest :: Type -> Type Source #

Methods

from :: ClientEventsGetRequest -> Rep ClientEventsGetRequest x Source #

to :: Rep ClientEventsGetRequest x -> ClientEventsGetRequest Source #

ToJSON ClientEventsGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

toJSON :: ClientEventsGetRequest -> Value Source #

toEncoding :: ClientEventsGetRequest -> Encoding Source #

toJSONList :: [ClientEventsGetRequest] -> Value Source #

toEncodingList :: [ClientEventsGetRequest] -> Encoding Source #

FromJSON ClientEventsGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

parseJSON :: Value -> Parser ClientEventsGetRequest Source #

parseJSONList :: Value -> Parser [ClientEventsGetRequest] Source #

NFData ClientEventsGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

rnf :: ClientEventsGetRequest -> () Source #

ToJSONPB ClientEventsGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

toJSONPB :: ClientEventsGetRequest -> Options -> Value Source #

toEncodingPB :: ClientEventsGetRequest -> Options -> Encoding Source #

FromJSONPB ClientEventsGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

parseJSONPB :: Value -> Parser ClientEventsGetRequest Source #

HasDefault ClientEventsGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

def :: ClientEventsGetRequest Source #

isDefault :: ClientEventsGetRequest -> Bool Source #

Named ClientEventsGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

nameOf :: IsString string => Proxy# ClientEventsGetRequest -> string Source #

Message ClientEventsGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

encodeMessage :: FieldNumber -> ClientEventsGetRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientEventsGetRequest Source #

dotProto :: Proxy# ClientEventsGetRequest -> [DotProtoField] Source #

ToSchema ClientEventsGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

declareNamedSchema :: Proxy ClientEventsGetRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientEventsGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

type Rep ClientEventsGetRequest = D1 ('MetaData "ClientEventsGetRequest" "Data.Sawtooth.ClientEvent" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "ClientEventsGetRequest" 'PrefixI 'True) (S1 ('MetaSel ('Just "clientEventsGetRequestSubscriptions") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector EventSubscription)) :*: S1 ('MetaSel ('Just "clientEventsGetRequestBlockIds") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Text))))

data ClientEventsGetResponse Source #

Constructors

ClientEventsGetResponse 

Fields

Instances

Instances details
Eq ClientEventsGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

(==) :: ClientEventsGetResponse -> ClientEventsGetResponse -> Bool Source #

(/=) :: ClientEventsGetResponse -> ClientEventsGetResponse -> Bool Source #

Ord ClientEventsGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

compare :: ClientEventsGetResponse -> ClientEventsGetResponse -> Ordering Source #

(<) :: ClientEventsGetResponse -> ClientEventsGetResponse -> Bool Source #

(<=) :: ClientEventsGetResponse -> ClientEventsGetResponse -> Bool Source #

(>) :: ClientEventsGetResponse -> ClientEventsGetResponse -> Bool Source #

(>=) :: ClientEventsGetResponse -> ClientEventsGetResponse -> Bool Source #

max :: ClientEventsGetResponse -> ClientEventsGetResponse -> ClientEventsGetResponse Source #

min :: ClientEventsGetResponse -> ClientEventsGetResponse -> ClientEventsGetResponse Source #

Show ClientEventsGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

showsPrec :: Int -> ClientEventsGetResponse -> ShowS Source #

show :: ClientEventsGetResponse -> String Source #

showList :: [ClientEventsGetResponse] -> ShowS Source #

Generic ClientEventsGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Associated Types

type Rep ClientEventsGetResponse :: Type -> Type Source #

Methods

from :: ClientEventsGetResponse -> Rep ClientEventsGetResponse x Source #

to :: Rep ClientEventsGetResponse x -> ClientEventsGetResponse Source #

ToJSON ClientEventsGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

toJSON :: ClientEventsGetResponse -> Value Source #

toEncoding :: ClientEventsGetResponse -> Encoding Source #

toJSONList :: [ClientEventsGetResponse] -> Value Source #

toEncodingList :: [ClientEventsGetResponse] -> Encoding Source #

FromJSON ClientEventsGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

parseJSON :: Value -> Parser ClientEventsGetResponse Source #

parseJSONList :: Value -> Parser [ClientEventsGetResponse] Source #

NFData ClientEventsGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

rnf :: ClientEventsGetResponse -> () Source #

ToJSONPB ClientEventsGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

toJSONPB :: ClientEventsGetResponse -> Options -> Value Source #

toEncodingPB :: ClientEventsGetResponse -> Options -> Encoding Source #

FromJSONPB ClientEventsGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

parseJSONPB :: Value -> Parser ClientEventsGetResponse Source #

HasDefault ClientEventsGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

def :: ClientEventsGetResponse Source #

isDefault :: ClientEventsGetResponse -> Bool Source #

Named ClientEventsGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

nameOf :: IsString string => Proxy# ClientEventsGetResponse -> string Source #

Message ClientEventsGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

encodeMessage :: FieldNumber -> ClientEventsGetResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientEventsGetResponse Source #

dotProto :: Proxy# ClientEventsGetResponse -> [DotProtoField] Source #

ToSchema ClientEventsGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

declareNamedSchema :: Proxy ClientEventsGetResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientEventsGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

type Rep ClientEventsGetResponse = D1 ('MetaData "ClientEventsGetResponse" "Data.Sawtooth.ClientEvent" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "ClientEventsGetResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "clientEventsGetResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated ClientEventsGetResponse_Status)) :*: S1 ('MetaSel ('Just "clientEventsGetResponseEvents") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Event))))

data ClientEventsGetResponse_Status Source #

Constructors

ClientEventsGetResponse_StatusSTATUS_UNSET 
ClientEventsGetResponse_StatusOK 
ClientEventsGetResponse_StatusINTERNAL_ERROR 
ClientEventsGetResponse_StatusINVALID_FILTER 
ClientEventsGetResponse_StatusUNKNOWN_BLOCK 

Instances

Instances details
Bounded ClientEventsGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

minBound :: ClientEventsGetResponse_Status Source #

maxBound :: ClientEventsGetResponse_Status Source #

Eq ClientEventsGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

(==) :: ClientEventsGetResponse_Status -> ClientEventsGetResponse_Status -> Bool Source #

(/=) :: ClientEventsGetResponse_Status -> ClientEventsGetResponse_Status -> Bool Source #

Ord ClientEventsGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

compare :: ClientEventsGetResponse_Status -> ClientEventsGetResponse_Status -> Ordering Source #

(<) :: ClientEventsGetResponse_Status -> ClientEventsGetResponse_Status -> Bool Source #

(<=) :: ClientEventsGetResponse_Status -> ClientEventsGetResponse_Status -> Bool Source #

(>) :: ClientEventsGetResponse_Status -> ClientEventsGetResponse_Status -> Bool Source #

(>=) :: ClientEventsGetResponse_Status -> ClientEventsGetResponse_Status -> Bool Source #

max :: ClientEventsGetResponse_Status -> ClientEventsGetResponse_Status -> ClientEventsGetResponse_Status Source #

min :: ClientEventsGetResponse_Status -> ClientEventsGetResponse_Status -> ClientEventsGetResponse_Status Source #

Show ClientEventsGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

showsPrec :: Int -> ClientEventsGetResponse_Status -> ShowS Source #

show :: ClientEventsGetResponse_Status -> String Source #

showList :: [ClientEventsGetResponse_Status] -> ShowS Source #

Generic ClientEventsGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Associated Types

type Rep ClientEventsGetResponse_Status :: Type -> Type Source #

Methods

from :: ClientEventsGetResponse_Status -> Rep ClientEventsGetResponse_Status x Source #

to :: Rep ClientEventsGetResponse_Status x -> ClientEventsGetResponse_Status Source #

ToJSON ClientEventsGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

toJSON :: ClientEventsGetResponse_Status -> Value Source #

toEncoding :: ClientEventsGetResponse_Status -> Encoding Source #

toJSONList :: [ClientEventsGetResponse_Status] -> Value Source #

toEncodingList :: [ClientEventsGetResponse_Status] -> Encoding Source #

FromJSON ClientEventsGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

parseJSON :: Value -> Parser ClientEventsGetResponse_Status Source #

parseJSONList :: Value -> Parser [ClientEventsGetResponse_Status] Source #

NFData ClientEventsGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

rnf :: ClientEventsGetResponse_Status -> () Source #

ProtoEnum ClientEventsGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

toProtoEnumMay :: Int32 -> Maybe ClientEventsGetResponse_Status Source #

fromProtoEnum :: ClientEventsGetResponse_Status -> Int32 Source #

ToJSONPB ClientEventsGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

toJSONPB :: ClientEventsGetResponse_Status -> Options -> Value Source #

toEncodingPB :: ClientEventsGetResponse_Status -> Options -> Encoding Source #

FromJSONPB ClientEventsGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

parseJSONPB :: Value -> Parser ClientEventsGetResponse_Status Source #

HasDefault ClientEventsGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

def :: ClientEventsGetResponse_Status Source #

isDefault :: ClientEventsGetResponse_Status -> Bool Source #

Named ClientEventsGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

nameOf :: IsString string => Proxy# ClientEventsGetResponse_Status -> string Source #

Finite ClientEventsGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

enumerate :: IsString string => Proxy# ClientEventsGetResponse_Status -> [(string, Int32)] Source #

type Rep ClientEventsGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

type Rep ClientEventsGetResponse_Status = D1 ('MetaData "ClientEventsGetResponse_Status" "Data.Sawtooth.ClientEvent" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) ((C1 ('MetaCons "ClientEventsGetResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientEventsGetResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ClientEventsGetResponse_StatusINTERNAL_ERROR" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "ClientEventsGetResponse_StatusINVALID_FILTER" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientEventsGetResponse_StatusUNKNOWN_BLOCK" 'PrefixI 'False) (U1 :: Type -> Type))))
\ No newline at end of file +Data.Sawtooth.ClientEvent
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types
Safe HaskellNone
LanguageHaskell2010

Data.Sawtooth.ClientEvent

Description

Generated by Haskell protocol buffer compiler. DO NOT EDIT!

Documentation

data ClientEventsSubscribeRequest Source #

Constructors

ClientEventsSubscribeRequest 

Fields

Instances

Instances details
Eq ClientEventsSubscribeRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

(==) :: ClientEventsSubscribeRequest -> ClientEventsSubscribeRequest -> Bool Source #

(/=) :: ClientEventsSubscribeRequest -> ClientEventsSubscribeRequest -> Bool Source #

Ord ClientEventsSubscribeRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

compare :: ClientEventsSubscribeRequest -> ClientEventsSubscribeRequest -> Ordering Source #

(<) :: ClientEventsSubscribeRequest -> ClientEventsSubscribeRequest -> Bool Source #

(<=) :: ClientEventsSubscribeRequest -> ClientEventsSubscribeRequest -> Bool Source #

(>) :: ClientEventsSubscribeRequest -> ClientEventsSubscribeRequest -> Bool Source #

(>=) :: ClientEventsSubscribeRequest -> ClientEventsSubscribeRequest -> Bool Source #

max :: ClientEventsSubscribeRequest -> ClientEventsSubscribeRequest -> ClientEventsSubscribeRequest Source #

min :: ClientEventsSubscribeRequest -> ClientEventsSubscribeRequest -> ClientEventsSubscribeRequest Source #

Show ClientEventsSubscribeRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

showsPrec :: Int -> ClientEventsSubscribeRequest -> ShowS Source #

show :: ClientEventsSubscribeRequest -> String Source #

showList :: [ClientEventsSubscribeRequest] -> ShowS Source #

Generic ClientEventsSubscribeRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Associated Types

type Rep ClientEventsSubscribeRequest :: Type -> Type Source #

Methods

from :: ClientEventsSubscribeRequest -> Rep ClientEventsSubscribeRequest x Source #

to :: Rep ClientEventsSubscribeRequest x -> ClientEventsSubscribeRequest Source #

ToJSON ClientEventsSubscribeRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

toJSON :: ClientEventsSubscribeRequest -> Value Source #

toEncoding :: ClientEventsSubscribeRequest -> Encoding Source #

toJSONList :: [ClientEventsSubscribeRequest] -> Value Source #

toEncodingList :: [ClientEventsSubscribeRequest] -> Encoding Source #

FromJSON ClientEventsSubscribeRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

parseJSON :: Value -> Parser ClientEventsSubscribeRequest Source #

parseJSONList :: Value -> Parser [ClientEventsSubscribeRequest] Source #

NFData ClientEventsSubscribeRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

rnf :: ClientEventsSubscribeRequest -> () Source #

ToJSONPB ClientEventsSubscribeRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

toJSONPB :: ClientEventsSubscribeRequest -> Options -> Value Source #

toEncodingPB :: ClientEventsSubscribeRequest -> Options -> Encoding Source #

FromJSONPB ClientEventsSubscribeRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

parseJSONPB :: Value -> Parser ClientEventsSubscribeRequest Source #

HasDefault ClientEventsSubscribeRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

def :: ClientEventsSubscribeRequest Source #

isDefault :: ClientEventsSubscribeRequest -> Bool Source #

Named ClientEventsSubscribeRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

nameOf :: IsString string => Proxy# ClientEventsSubscribeRequest -> string Source #

Message ClientEventsSubscribeRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

encodeMessage :: FieldNumber -> ClientEventsSubscribeRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientEventsSubscribeRequest Source #

dotProto :: Proxy# ClientEventsSubscribeRequest -> [DotProtoField] Source #

ToSchema ClientEventsSubscribeRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

declareNamedSchema :: Proxy ClientEventsSubscribeRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientEventsSubscribeRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

type Rep ClientEventsSubscribeRequest = D1 ('MetaData "ClientEventsSubscribeRequest" "Data.Sawtooth.ClientEvent" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "ClientEventsSubscribeRequest" 'PrefixI 'True) (S1 ('MetaSel ('Just "clientEventsSubscribeRequestSubscriptions") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector EventSubscription)) :*: S1 ('MetaSel ('Just "clientEventsSubscribeRequestLastKnownBlockIds") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Text))))

data ClientEventsSubscribeResponse Source #

Constructors

ClientEventsSubscribeResponse 

Fields

Instances

Instances details
Eq ClientEventsSubscribeResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

(==) :: ClientEventsSubscribeResponse -> ClientEventsSubscribeResponse -> Bool Source #

(/=) :: ClientEventsSubscribeResponse -> ClientEventsSubscribeResponse -> Bool Source #

Ord ClientEventsSubscribeResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

compare :: ClientEventsSubscribeResponse -> ClientEventsSubscribeResponse -> Ordering Source #

(<) :: ClientEventsSubscribeResponse -> ClientEventsSubscribeResponse -> Bool Source #

(<=) :: ClientEventsSubscribeResponse -> ClientEventsSubscribeResponse -> Bool Source #

(>) :: ClientEventsSubscribeResponse -> ClientEventsSubscribeResponse -> Bool Source #

(>=) :: ClientEventsSubscribeResponse -> ClientEventsSubscribeResponse -> Bool Source #

max :: ClientEventsSubscribeResponse -> ClientEventsSubscribeResponse -> ClientEventsSubscribeResponse Source #

min :: ClientEventsSubscribeResponse -> ClientEventsSubscribeResponse -> ClientEventsSubscribeResponse Source #

Show ClientEventsSubscribeResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

showsPrec :: Int -> ClientEventsSubscribeResponse -> ShowS Source #

show :: ClientEventsSubscribeResponse -> String Source #

showList :: [ClientEventsSubscribeResponse] -> ShowS Source #

Generic ClientEventsSubscribeResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Associated Types

type Rep ClientEventsSubscribeResponse :: Type -> Type Source #

Methods

from :: ClientEventsSubscribeResponse -> Rep ClientEventsSubscribeResponse x Source #

to :: Rep ClientEventsSubscribeResponse x -> ClientEventsSubscribeResponse Source #

ToJSON ClientEventsSubscribeResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

toJSON :: ClientEventsSubscribeResponse -> Value Source #

toEncoding :: ClientEventsSubscribeResponse -> Encoding Source #

toJSONList :: [ClientEventsSubscribeResponse] -> Value Source #

toEncodingList :: [ClientEventsSubscribeResponse] -> Encoding Source #

FromJSON ClientEventsSubscribeResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

parseJSON :: Value -> Parser ClientEventsSubscribeResponse Source #

parseJSONList :: Value -> Parser [ClientEventsSubscribeResponse] Source #

NFData ClientEventsSubscribeResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

rnf :: ClientEventsSubscribeResponse -> () Source #

ToJSONPB ClientEventsSubscribeResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

toJSONPB :: ClientEventsSubscribeResponse -> Options -> Value Source #

toEncodingPB :: ClientEventsSubscribeResponse -> Options -> Encoding Source #

FromJSONPB ClientEventsSubscribeResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

parseJSONPB :: Value -> Parser ClientEventsSubscribeResponse Source #

HasDefault ClientEventsSubscribeResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

def :: ClientEventsSubscribeResponse Source #

isDefault :: ClientEventsSubscribeResponse -> Bool Source #

Named ClientEventsSubscribeResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

nameOf :: IsString string => Proxy# ClientEventsSubscribeResponse -> string Source #

Message ClientEventsSubscribeResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

encodeMessage :: FieldNumber -> ClientEventsSubscribeResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientEventsSubscribeResponse Source #

dotProto :: Proxy# ClientEventsSubscribeResponse -> [DotProtoField] Source #

ToSchema ClientEventsSubscribeResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

declareNamedSchema :: Proxy ClientEventsSubscribeResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientEventsSubscribeResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

type Rep ClientEventsSubscribeResponse = D1 ('MetaData "ClientEventsSubscribeResponse" "Data.Sawtooth.ClientEvent" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "ClientEventsSubscribeResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "clientEventsSubscribeResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated ClientEventsSubscribeResponse_Status)) :*: S1 ('MetaSel ('Just "clientEventsSubscribeResponseResponseMessage") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)))

data ClientEventsSubscribeResponse_Status Source #

Constructors

ClientEventsSubscribeResponse_StatusSTATUS_UNSET 
ClientEventsSubscribeResponse_StatusOK 
ClientEventsSubscribeResponse_StatusINVALID_FILTER 
ClientEventsSubscribeResponse_StatusUNKNOWN_BLOCK 

Instances

Instances details
Bounded ClientEventsSubscribeResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

minBound :: ClientEventsSubscribeResponse_Status Source #

maxBound :: ClientEventsSubscribeResponse_Status Source #

Eq ClientEventsSubscribeResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

(==) :: ClientEventsSubscribeResponse_Status -> ClientEventsSubscribeResponse_Status -> Bool Source #

(/=) :: ClientEventsSubscribeResponse_Status -> ClientEventsSubscribeResponse_Status -> Bool Source #

Ord ClientEventsSubscribeResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

compare :: ClientEventsSubscribeResponse_Status -> ClientEventsSubscribeResponse_Status -> Ordering Source #

(<) :: ClientEventsSubscribeResponse_Status -> ClientEventsSubscribeResponse_Status -> Bool Source #

(<=) :: ClientEventsSubscribeResponse_Status -> ClientEventsSubscribeResponse_Status -> Bool Source #

(>) :: ClientEventsSubscribeResponse_Status -> ClientEventsSubscribeResponse_Status -> Bool Source #

(>=) :: ClientEventsSubscribeResponse_Status -> ClientEventsSubscribeResponse_Status -> Bool Source #

max :: ClientEventsSubscribeResponse_Status -> ClientEventsSubscribeResponse_Status -> ClientEventsSubscribeResponse_Status Source #

min :: ClientEventsSubscribeResponse_Status -> ClientEventsSubscribeResponse_Status -> ClientEventsSubscribeResponse_Status Source #

Show ClientEventsSubscribeResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

showsPrec :: Int -> ClientEventsSubscribeResponse_Status -> ShowS Source #

show :: ClientEventsSubscribeResponse_Status -> String Source #

showList :: [ClientEventsSubscribeResponse_Status] -> ShowS Source #

Generic ClientEventsSubscribeResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Associated Types

type Rep ClientEventsSubscribeResponse_Status :: Type -> Type Source #

Methods

from :: ClientEventsSubscribeResponse_Status -> Rep ClientEventsSubscribeResponse_Status x Source #

to :: Rep ClientEventsSubscribeResponse_Status x -> ClientEventsSubscribeResponse_Status Source #

ToJSON ClientEventsSubscribeResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

toJSON :: ClientEventsSubscribeResponse_Status -> Value Source #

toEncoding :: ClientEventsSubscribeResponse_Status -> Encoding Source #

toJSONList :: [ClientEventsSubscribeResponse_Status] -> Value Source #

toEncodingList :: [ClientEventsSubscribeResponse_Status] -> Encoding Source #

FromJSON ClientEventsSubscribeResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

parseJSON :: Value -> Parser ClientEventsSubscribeResponse_Status Source #

parseJSONList :: Value -> Parser [ClientEventsSubscribeResponse_Status] Source #

NFData ClientEventsSubscribeResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

rnf :: ClientEventsSubscribeResponse_Status -> () Source #

ProtoEnum ClientEventsSubscribeResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

toProtoEnumMay :: Int32 -> Maybe ClientEventsSubscribeResponse_Status Source #

fromProtoEnum :: ClientEventsSubscribeResponse_Status -> Int32 Source #

ToJSONPB ClientEventsSubscribeResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

toJSONPB :: ClientEventsSubscribeResponse_Status -> Options -> Value Source #

toEncodingPB :: ClientEventsSubscribeResponse_Status -> Options -> Encoding Source #

FromJSONPB ClientEventsSubscribeResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

parseJSONPB :: Value -> Parser ClientEventsSubscribeResponse_Status Source #

HasDefault ClientEventsSubscribeResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

def :: ClientEventsSubscribeResponse_Status Source #

isDefault :: ClientEventsSubscribeResponse_Status -> Bool Source #

Named ClientEventsSubscribeResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

nameOf :: IsString string => Proxy# ClientEventsSubscribeResponse_Status -> string Source #

Finite ClientEventsSubscribeResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

enumerate :: IsString string => Proxy# ClientEventsSubscribeResponse_Status -> [(string, Int32)] Source #

type Rep ClientEventsSubscribeResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

type Rep ClientEventsSubscribeResponse_Status = D1 ('MetaData "ClientEventsSubscribeResponse_Status" "Data.Sawtooth.ClientEvent" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) ((C1 ('MetaCons "ClientEventsSubscribeResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientEventsSubscribeResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ClientEventsSubscribeResponse_StatusINVALID_FILTER" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientEventsSubscribeResponse_StatusUNKNOWN_BLOCK" 'PrefixI 'False) (U1 :: Type -> Type)))

data ClientEventsUnsubscribeRequest Source #

Constructors

ClientEventsUnsubscribeRequest 

Instances

Instances details
Eq ClientEventsUnsubscribeRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

(==) :: ClientEventsUnsubscribeRequest -> ClientEventsUnsubscribeRequest -> Bool Source #

(/=) :: ClientEventsUnsubscribeRequest -> ClientEventsUnsubscribeRequest -> Bool Source #

Ord ClientEventsUnsubscribeRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

compare :: ClientEventsUnsubscribeRequest -> ClientEventsUnsubscribeRequest -> Ordering Source #

(<) :: ClientEventsUnsubscribeRequest -> ClientEventsUnsubscribeRequest -> Bool Source #

(<=) :: ClientEventsUnsubscribeRequest -> ClientEventsUnsubscribeRequest -> Bool Source #

(>) :: ClientEventsUnsubscribeRequest -> ClientEventsUnsubscribeRequest -> Bool Source #

(>=) :: ClientEventsUnsubscribeRequest -> ClientEventsUnsubscribeRequest -> Bool Source #

max :: ClientEventsUnsubscribeRequest -> ClientEventsUnsubscribeRequest -> ClientEventsUnsubscribeRequest Source #

min :: ClientEventsUnsubscribeRequest -> ClientEventsUnsubscribeRequest -> ClientEventsUnsubscribeRequest Source #

Show ClientEventsUnsubscribeRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

showsPrec :: Int -> ClientEventsUnsubscribeRequest -> ShowS Source #

show :: ClientEventsUnsubscribeRequest -> String Source #

showList :: [ClientEventsUnsubscribeRequest] -> ShowS Source #

Generic ClientEventsUnsubscribeRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Associated Types

type Rep ClientEventsUnsubscribeRequest :: Type -> Type Source #

Methods

from :: ClientEventsUnsubscribeRequest -> Rep ClientEventsUnsubscribeRequest x Source #

to :: Rep ClientEventsUnsubscribeRequest x -> ClientEventsUnsubscribeRequest Source #

ToJSON ClientEventsUnsubscribeRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

toJSON :: ClientEventsUnsubscribeRequest -> Value Source #

toEncoding :: ClientEventsUnsubscribeRequest -> Encoding Source #

toJSONList :: [ClientEventsUnsubscribeRequest] -> Value Source #

toEncodingList :: [ClientEventsUnsubscribeRequest] -> Encoding Source #

FromJSON ClientEventsUnsubscribeRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

parseJSON :: Value -> Parser ClientEventsUnsubscribeRequest Source #

parseJSONList :: Value -> Parser [ClientEventsUnsubscribeRequest] Source #

NFData ClientEventsUnsubscribeRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

rnf :: ClientEventsUnsubscribeRequest -> () Source #

ToJSONPB ClientEventsUnsubscribeRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

toJSONPB :: ClientEventsUnsubscribeRequest -> Options -> Value Source #

toEncodingPB :: ClientEventsUnsubscribeRequest -> Options -> Encoding Source #

FromJSONPB ClientEventsUnsubscribeRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

parseJSONPB :: Value -> Parser ClientEventsUnsubscribeRequest Source #

HasDefault ClientEventsUnsubscribeRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

def :: ClientEventsUnsubscribeRequest Source #

isDefault :: ClientEventsUnsubscribeRequest -> Bool Source #

Named ClientEventsUnsubscribeRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

nameOf :: IsString string => Proxy# ClientEventsUnsubscribeRequest -> string Source #

Message ClientEventsUnsubscribeRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

encodeMessage :: FieldNumber -> ClientEventsUnsubscribeRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientEventsUnsubscribeRequest Source #

dotProto :: Proxy# ClientEventsUnsubscribeRequest -> [DotProtoField] Source #

ToSchema ClientEventsUnsubscribeRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

declareNamedSchema :: Proxy ClientEventsUnsubscribeRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientEventsUnsubscribeRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

type Rep ClientEventsUnsubscribeRequest = D1 ('MetaData "ClientEventsUnsubscribeRequest" "Data.Sawtooth.ClientEvent" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "ClientEventsUnsubscribeRequest" 'PrefixI 'False) (U1 :: Type -> Type))

newtype ClientEventsUnsubscribeResponse Source #

Constructors

ClientEventsUnsubscribeResponse 

Fields

Instances

Instances details
Eq ClientEventsUnsubscribeResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

(==) :: ClientEventsUnsubscribeResponse -> ClientEventsUnsubscribeResponse -> Bool Source #

(/=) :: ClientEventsUnsubscribeResponse -> ClientEventsUnsubscribeResponse -> Bool Source #

Ord ClientEventsUnsubscribeResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

compare :: ClientEventsUnsubscribeResponse -> ClientEventsUnsubscribeResponse -> Ordering Source #

(<) :: ClientEventsUnsubscribeResponse -> ClientEventsUnsubscribeResponse -> Bool Source #

(<=) :: ClientEventsUnsubscribeResponse -> ClientEventsUnsubscribeResponse -> Bool Source #

(>) :: ClientEventsUnsubscribeResponse -> ClientEventsUnsubscribeResponse -> Bool Source #

(>=) :: ClientEventsUnsubscribeResponse -> ClientEventsUnsubscribeResponse -> Bool Source #

max :: ClientEventsUnsubscribeResponse -> ClientEventsUnsubscribeResponse -> ClientEventsUnsubscribeResponse Source #

min :: ClientEventsUnsubscribeResponse -> ClientEventsUnsubscribeResponse -> ClientEventsUnsubscribeResponse Source #

Show ClientEventsUnsubscribeResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

showsPrec :: Int -> ClientEventsUnsubscribeResponse -> ShowS Source #

show :: ClientEventsUnsubscribeResponse -> String Source #

showList :: [ClientEventsUnsubscribeResponse] -> ShowS Source #

Generic ClientEventsUnsubscribeResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Associated Types

type Rep ClientEventsUnsubscribeResponse :: Type -> Type Source #

Methods

from :: ClientEventsUnsubscribeResponse -> Rep ClientEventsUnsubscribeResponse x Source #

to :: Rep ClientEventsUnsubscribeResponse x -> ClientEventsUnsubscribeResponse Source #

ToJSON ClientEventsUnsubscribeResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

toJSON :: ClientEventsUnsubscribeResponse -> Value Source #

toEncoding :: ClientEventsUnsubscribeResponse -> Encoding Source #

toJSONList :: [ClientEventsUnsubscribeResponse] -> Value Source #

toEncodingList :: [ClientEventsUnsubscribeResponse] -> Encoding Source #

FromJSON ClientEventsUnsubscribeResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

parseJSON :: Value -> Parser ClientEventsUnsubscribeResponse Source #

parseJSONList :: Value -> Parser [ClientEventsUnsubscribeResponse] Source #

NFData ClientEventsUnsubscribeResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

rnf :: ClientEventsUnsubscribeResponse -> () Source #

ToJSONPB ClientEventsUnsubscribeResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

toJSONPB :: ClientEventsUnsubscribeResponse -> Options -> Value Source #

toEncodingPB :: ClientEventsUnsubscribeResponse -> Options -> Encoding Source #

FromJSONPB ClientEventsUnsubscribeResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

parseJSONPB :: Value -> Parser ClientEventsUnsubscribeResponse Source #

HasDefault ClientEventsUnsubscribeResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

def :: ClientEventsUnsubscribeResponse Source #

isDefault :: ClientEventsUnsubscribeResponse -> Bool Source #

Named ClientEventsUnsubscribeResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

nameOf :: IsString string => Proxy# ClientEventsUnsubscribeResponse -> string Source #

Message ClientEventsUnsubscribeResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

encodeMessage :: FieldNumber -> ClientEventsUnsubscribeResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientEventsUnsubscribeResponse Source #

dotProto :: Proxy# ClientEventsUnsubscribeResponse -> [DotProtoField] Source #

ToSchema ClientEventsUnsubscribeResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

declareNamedSchema :: Proxy ClientEventsUnsubscribeResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientEventsUnsubscribeResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

type Rep ClientEventsUnsubscribeResponse = D1 ('MetaData "ClientEventsUnsubscribeResponse" "Data.Sawtooth.ClientEvent" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'True) (C1 ('MetaCons "ClientEventsUnsubscribeResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "clientEventsUnsubscribeResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated ClientEventsUnsubscribeResponse_Status))))

data ClientEventsUnsubscribeResponse_Status Source #

Constructors

ClientEventsUnsubscribeResponse_StatusSTATUS_UNSET 
ClientEventsUnsubscribeResponse_StatusOK 
ClientEventsUnsubscribeResponse_StatusINTERNAL_ERROR 

Instances

Instances details
Bounded ClientEventsUnsubscribeResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

minBound :: ClientEventsUnsubscribeResponse_Status Source #

maxBound :: ClientEventsUnsubscribeResponse_Status Source #

Eq ClientEventsUnsubscribeResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

(==) :: ClientEventsUnsubscribeResponse_Status -> ClientEventsUnsubscribeResponse_Status -> Bool Source #

(/=) :: ClientEventsUnsubscribeResponse_Status -> ClientEventsUnsubscribeResponse_Status -> Bool Source #

Ord ClientEventsUnsubscribeResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

compare :: ClientEventsUnsubscribeResponse_Status -> ClientEventsUnsubscribeResponse_Status -> Ordering Source #

(<) :: ClientEventsUnsubscribeResponse_Status -> ClientEventsUnsubscribeResponse_Status -> Bool Source #

(<=) :: ClientEventsUnsubscribeResponse_Status -> ClientEventsUnsubscribeResponse_Status -> Bool Source #

(>) :: ClientEventsUnsubscribeResponse_Status -> ClientEventsUnsubscribeResponse_Status -> Bool Source #

(>=) :: ClientEventsUnsubscribeResponse_Status -> ClientEventsUnsubscribeResponse_Status -> Bool Source #

max :: ClientEventsUnsubscribeResponse_Status -> ClientEventsUnsubscribeResponse_Status -> ClientEventsUnsubscribeResponse_Status Source #

min :: ClientEventsUnsubscribeResponse_Status -> ClientEventsUnsubscribeResponse_Status -> ClientEventsUnsubscribeResponse_Status Source #

Show ClientEventsUnsubscribeResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

showsPrec :: Int -> ClientEventsUnsubscribeResponse_Status -> ShowS Source #

show :: ClientEventsUnsubscribeResponse_Status -> String Source #

showList :: [ClientEventsUnsubscribeResponse_Status] -> ShowS Source #

Generic ClientEventsUnsubscribeResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Associated Types

type Rep ClientEventsUnsubscribeResponse_Status :: Type -> Type Source #

Methods

from :: ClientEventsUnsubscribeResponse_Status -> Rep ClientEventsUnsubscribeResponse_Status x Source #

to :: Rep ClientEventsUnsubscribeResponse_Status x -> ClientEventsUnsubscribeResponse_Status Source #

ToJSON ClientEventsUnsubscribeResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

toJSON :: ClientEventsUnsubscribeResponse_Status -> Value Source #

toEncoding :: ClientEventsUnsubscribeResponse_Status -> Encoding Source #

toJSONList :: [ClientEventsUnsubscribeResponse_Status] -> Value Source #

toEncodingList :: [ClientEventsUnsubscribeResponse_Status] -> Encoding Source #

FromJSON ClientEventsUnsubscribeResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

parseJSON :: Value -> Parser ClientEventsUnsubscribeResponse_Status Source #

parseJSONList :: Value -> Parser [ClientEventsUnsubscribeResponse_Status] Source #

NFData ClientEventsUnsubscribeResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

rnf :: ClientEventsUnsubscribeResponse_Status -> () Source #

ProtoEnum ClientEventsUnsubscribeResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

toProtoEnumMay :: Int32 -> Maybe ClientEventsUnsubscribeResponse_Status Source #

fromProtoEnum :: ClientEventsUnsubscribeResponse_Status -> Int32 Source #

ToJSONPB ClientEventsUnsubscribeResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

toJSONPB :: ClientEventsUnsubscribeResponse_Status -> Options -> Value Source #

toEncodingPB :: ClientEventsUnsubscribeResponse_Status -> Options -> Encoding Source #

FromJSONPB ClientEventsUnsubscribeResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

parseJSONPB :: Value -> Parser ClientEventsUnsubscribeResponse_Status Source #

HasDefault ClientEventsUnsubscribeResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

def :: ClientEventsUnsubscribeResponse_Status Source #

isDefault :: ClientEventsUnsubscribeResponse_Status -> Bool Source #

Named ClientEventsUnsubscribeResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

nameOf :: IsString string => Proxy# ClientEventsUnsubscribeResponse_Status -> string Source #

Finite ClientEventsUnsubscribeResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

enumerate :: IsString string => Proxy# ClientEventsUnsubscribeResponse_Status -> [(string, Int32)] Source #

type Rep ClientEventsUnsubscribeResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

type Rep ClientEventsUnsubscribeResponse_Status = D1 ('MetaData "ClientEventsUnsubscribeResponse_Status" "Data.Sawtooth.ClientEvent" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "ClientEventsUnsubscribeResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "ClientEventsUnsubscribeResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientEventsUnsubscribeResponse_StatusINTERNAL_ERROR" 'PrefixI 'False) (U1 :: Type -> Type)))

data ClientEventsGetRequest Source #

Constructors

ClientEventsGetRequest 

Fields

Instances

Instances details
Eq ClientEventsGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

(==) :: ClientEventsGetRequest -> ClientEventsGetRequest -> Bool Source #

(/=) :: ClientEventsGetRequest -> ClientEventsGetRequest -> Bool Source #

Ord ClientEventsGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

compare :: ClientEventsGetRequest -> ClientEventsGetRequest -> Ordering Source #

(<) :: ClientEventsGetRequest -> ClientEventsGetRequest -> Bool Source #

(<=) :: ClientEventsGetRequest -> ClientEventsGetRequest -> Bool Source #

(>) :: ClientEventsGetRequest -> ClientEventsGetRequest -> Bool Source #

(>=) :: ClientEventsGetRequest -> ClientEventsGetRequest -> Bool Source #

max :: ClientEventsGetRequest -> ClientEventsGetRequest -> ClientEventsGetRequest Source #

min :: ClientEventsGetRequest -> ClientEventsGetRequest -> ClientEventsGetRequest Source #

Show ClientEventsGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

showsPrec :: Int -> ClientEventsGetRequest -> ShowS Source #

show :: ClientEventsGetRequest -> String Source #

showList :: [ClientEventsGetRequest] -> ShowS Source #

Generic ClientEventsGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Associated Types

type Rep ClientEventsGetRequest :: Type -> Type Source #

Methods

from :: ClientEventsGetRequest -> Rep ClientEventsGetRequest x Source #

to :: Rep ClientEventsGetRequest x -> ClientEventsGetRequest Source #

ToJSON ClientEventsGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

toJSON :: ClientEventsGetRequest -> Value Source #

toEncoding :: ClientEventsGetRequest -> Encoding Source #

toJSONList :: [ClientEventsGetRequest] -> Value Source #

toEncodingList :: [ClientEventsGetRequest] -> Encoding Source #

FromJSON ClientEventsGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

parseJSON :: Value -> Parser ClientEventsGetRequest Source #

parseJSONList :: Value -> Parser [ClientEventsGetRequest] Source #

NFData ClientEventsGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

rnf :: ClientEventsGetRequest -> () Source #

ToJSONPB ClientEventsGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

toJSONPB :: ClientEventsGetRequest -> Options -> Value Source #

toEncodingPB :: ClientEventsGetRequest -> Options -> Encoding Source #

FromJSONPB ClientEventsGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

parseJSONPB :: Value -> Parser ClientEventsGetRequest Source #

HasDefault ClientEventsGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

def :: ClientEventsGetRequest Source #

isDefault :: ClientEventsGetRequest -> Bool Source #

Named ClientEventsGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

nameOf :: IsString string => Proxy# ClientEventsGetRequest -> string Source #

Message ClientEventsGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

encodeMessage :: FieldNumber -> ClientEventsGetRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientEventsGetRequest Source #

dotProto :: Proxy# ClientEventsGetRequest -> [DotProtoField] Source #

ToSchema ClientEventsGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

declareNamedSchema :: Proxy ClientEventsGetRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientEventsGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

type Rep ClientEventsGetRequest = D1 ('MetaData "ClientEventsGetRequest" "Data.Sawtooth.ClientEvent" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "ClientEventsGetRequest" 'PrefixI 'True) (S1 ('MetaSel ('Just "clientEventsGetRequestSubscriptions") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector EventSubscription)) :*: S1 ('MetaSel ('Just "clientEventsGetRequestBlockIds") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Text))))

data ClientEventsGetResponse Source #

Constructors

ClientEventsGetResponse 

Fields

Instances

Instances details
Eq ClientEventsGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

(==) :: ClientEventsGetResponse -> ClientEventsGetResponse -> Bool Source #

(/=) :: ClientEventsGetResponse -> ClientEventsGetResponse -> Bool Source #

Ord ClientEventsGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

compare :: ClientEventsGetResponse -> ClientEventsGetResponse -> Ordering Source #

(<) :: ClientEventsGetResponse -> ClientEventsGetResponse -> Bool Source #

(<=) :: ClientEventsGetResponse -> ClientEventsGetResponse -> Bool Source #

(>) :: ClientEventsGetResponse -> ClientEventsGetResponse -> Bool Source #

(>=) :: ClientEventsGetResponse -> ClientEventsGetResponse -> Bool Source #

max :: ClientEventsGetResponse -> ClientEventsGetResponse -> ClientEventsGetResponse Source #

min :: ClientEventsGetResponse -> ClientEventsGetResponse -> ClientEventsGetResponse Source #

Show ClientEventsGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

showsPrec :: Int -> ClientEventsGetResponse -> ShowS Source #

show :: ClientEventsGetResponse -> String Source #

showList :: [ClientEventsGetResponse] -> ShowS Source #

Generic ClientEventsGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Associated Types

type Rep ClientEventsGetResponse :: Type -> Type Source #

Methods

from :: ClientEventsGetResponse -> Rep ClientEventsGetResponse x Source #

to :: Rep ClientEventsGetResponse x -> ClientEventsGetResponse Source #

ToJSON ClientEventsGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

toJSON :: ClientEventsGetResponse -> Value Source #

toEncoding :: ClientEventsGetResponse -> Encoding Source #

toJSONList :: [ClientEventsGetResponse] -> Value Source #

toEncodingList :: [ClientEventsGetResponse] -> Encoding Source #

FromJSON ClientEventsGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

parseJSON :: Value -> Parser ClientEventsGetResponse Source #

parseJSONList :: Value -> Parser [ClientEventsGetResponse] Source #

NFData ClientEventsGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

rnf :: ClientEventsGetResponse -> () Source #

ToJSONPB ClientEventsGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

toJSONPB :: ClientEventsGetResponse -> Options -> Value Source #

toEncodingPB :: ClientEventsGetResponse -> Options -> Encoding Source #

FromJSONPB ClientEventsGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

parseJSONPB :: Value -> Parser ClientEventsGetResponse Source #

HasDefault ClientEventsGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

def :: ClientEventsGetResponse Source #

isDefault :: ClientEventsGetResponse -> Bool Source #

Named ClientEventsGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

nameOf :: IsString string => Proxy# ClientEventsGetResponse -> string Source #

Message ClientEventsGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

encodeMessage :: FieldNumber -> ClientEventsGetResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientEventsGetResponse Source #

dotProto :: Proxy# ClientEventsGetResponse -> [DotProtoField] Source #

ToSchema ClientEventsGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

declareNamedSchema :: Proxy ClientEventsGetResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientEventsGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

type Rep ClientEventsGetResponse = D1 ('MetaData "ClientEventsGetResponse" "Data.Sawtooth.ClientEvent" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "ClientEventsGetResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "clientEventsGetResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated ClientEventsGetResponse_Status)) :*: S1 ('MetaSel ('Just "clientEventsGetResponseEvents") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Event))))

data ClientEventsGetResponse_Status Source #

Constructors

ClientEventsGetResponse_StatusSTATUS_UNSET 
ClientEventsGetResponse_StatusOK 
ClientEventsGetResponse_StatusINTERNAL_ERROR 
ClientEventsGetResponse_StatusINVALID_FILTER 
ClientEventsGetResponse_StatusUNKNOWN_BLOCK 

Instances

Instances details
Bounded ClientEventsGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

minBound :: ClientEventsGetResponse_Status Source #

maxBound :: ClientEventsGetResponse_Status Source #

Eq ClientEventsGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

(==) :: ClientEventsGetResponse_Status -> ClientEventsGetResponse_Status -> Bool Source #

(/=) :: ClientEventsGetResponse_Status -> ClientEventsGetResponse_Status -> Bool Source #

Ord ClientEventsGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

compare :: ClientEventsGetResponse_Status -> ClientEventsGetResponse_Status -> Ordering Source #

(<) :: ClientEventsGetResponse_Status -> ClientEventsGetResponse_Status -> Bool Source #

(<=) :: ClientEventsGetResponse_Status -> ClientEventsGetResponse_Status -> Bool Source #

(>) :: ClientEventsGetResponse_Status -> ClientEventsGetResponse_Status -> Bool Source #

(>=) :: ClientEventsGetResponse_Status -> ClientEventsGetResponse_Status -> Bool Source #

max :: ClientEventsGetResponse_Status -> ClientEventsGetResponse_Status -> ClientEventsGetResponse_Status Source #

min :: ClientEventsGetResponse_Status -> ClientEventsGetResponse_Status -> ClientEventsGetResponse_Status Source #

Show ClientEventsGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

showsPrec :: Int -> ClientEventsGetResponse_Status -> ShowS Source #

show :: ClientEventsGetResponse_Status -> String Source #

showList :: [ClientEventsGetResponse_Status] -> ShowS Source #

Generic ClientEventsGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Associated Types

type Rep ClientEventsGetResponse_Status :: Type -> Type Source #

Methods

from :: ClientEventsGetResponse_Status -> Rep ClientEventsGetResponse_Status x Source #

to :: Rep ClientEventsGetResponse_Status x -> ClientEventsGetResponse_Status Source #

ToJSON ClientEventsGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

toJSON :: ClientEventsGetResponse_Status -> Value Source #

toEncoding :: ClientEventsGetResponse_Status -> Encoding Source #

toJSONList :: [ClientEventsGetResponse_Status] -> Value Source #

toEncodingList :: [ClientEventsGetResponse_Status] -> Encoding Source #

FromJSON ClientEventsGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

parseJSON :: Value -> Parser ClientEventsGetResponse_Status Source #

parseJSONList :: Value -> Parser [ClientEventsGetResponse_Status] Source #

NFData ClientEventsGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

rnf :: ClientEventsGetResponse_Status -> () Source #

ProtoEnum ClientEventsGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

toProtoEnumMay :: Int32 -> Maybe ClientEventsGetResponse_Status Source #

fromProtoEnum :: ClientEventsGetResponse_Status -> Int32 Source #

ToJSONPB ClientEventsGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

toJSONPB :: ClientEventsGetResponse_Status -> Options -> Value Source #

toEncodingPB :: ClientEventsGetResponse_Status -> Options -> Encoding Source #

FromJSONPB ClientEventsGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

parseJSONPB :: Value -> Parser ClientEventsGetResponse_Status Source #

HasDefault ClientEventsGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

def :: ClientEventsGetResponse_Status Source #

isDefault :: ClientEventsGetResponse_Status -> Bool Source #

Named ClientEventsGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

nameOf :: IsString string => Proxy# ClientEventsGetResponse_Status -> string Source #

Finite ClientEventsGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

Methods

enumerate :: IsString string => Proxy# ClientEventsGetResponse_Status -> [(string, Int32)] Source #

type Rep ClientEventsGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientEvent

type Rep ClientEventsGetResponse_Status = D1 ('MetaData "ClientEventsGetResponse_Status" "Data.Sawtooth.ClientEvent" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) ((C1 ('MetaCons "ClientEventsGetResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientEventsGetResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ClientEventsGetResponse_StatusINTERNAL_ERROR" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "ClientEventsGetResponse_StatusINVALID_FILTER" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientEventsGetResponse_StatusUNKNOWN_BLOCK" 'PrefixI 'False) (U1 :: Type -> Type))))
\ No newline at end of file diff --git a/Data-Sawtooth-ClientListControl.html b/Data-Sawtooth-ClientListControl.html index b80337e..1654df4 100644 --- a/Data-Sawtooth-ClientListControl.html +++ b/Data-Sawtooth-ClientListControl.html @@ -1 +1 @@ -Data.Sawtooth.ClientListControl
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types
Safe HaskellNone
LanguageHaskell2010

Data.Sawtooth.ClientListControl

Description

Generated by Haskell protocol buffer compiler. DO NOT EDIT!

Documentation

data ClientPagingControls Source #

Constructors

ClientPagingControls 

Fields

Instances

Instances details
Eq ClientPagingControls Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Methods

(==) :: ClientPagingControls -> ClientPagingControls -> Bool Source #

(/=) :: ClientPagingControls -> ClientPagingControls -> Bool Source #

Ord ClientPagingControls Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Methods

compare :: ClientPagingControls -> ClientPagingControls -> Ordering Source #

(<) :: ClientPagingControls -> ClientPagingControls -> Bool Source #

(<=) :: ClientPagingControls -> ClientPagingControls -> Bool Source #

(>) :: ClientPagingControls -> ClientPagingControls -> Bool Source #

(>=) :: ClientPagingControls -> ClientPagingControls -> Bool Source #

max :: ClientPagingControls -> ClientPagingControls -> ClientPagingControls Source #

min :: ClientPagingControls -> ClientPagingControls -> ClientPagingControls Source #

Show ClientPagingControls Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Methods

showsPrec :: Int -> ClientPagingControls -> ShowS Source #

show :: ClientPagingControls -> String Source #

showList :: [ClientPagingControls] -> ShowS Source #

Generic ClientPagingControls Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Associated Types

type Rep ClientPagingControls :: Type -> Type Source #

Methods

from :: ClientPagingControls -> Rep ClientPagingControls x Source #

to :: Rep ClientPagingControls x -> ClientPagingControls Source #

ToJSON ClientPagingControls Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Methods

toJSON :: ClientPagingControls -> Value Source #

toEncoding :: ClientPagingControls -> Encoding Source #

toJSONList :: [ClientPagingControls] -> Value Source #

toEncodingList :: [ClientPagingControls] -> Encoding Source #

FromJSON ClientPagingControls Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Methods

parseJSON :: Value -> Parser ClientPagingControls Source #

parseJSONList :: Value -> Parser [ClientPagingControls] Source #

NFData ClientPagingControls Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Methods

rnf :: ClientPagingControls -> () Source #

ToJSONPB ClientPagingControls Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Methods

toJSONPB :: ClientPagingControls -> Options -> Value Source #

toEncodingPB :: ClientPagingControls -> Options -> Encoding Source #

FromJSONPB ClientPagingControls Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Methods

parseJSONPB :: Value -> Parser ClientPagingControls Source #

HasDefault ClientPagingControls Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Methods

def :: ClientPagingControls Source #

isDefault :: ClientPagingControls -> Bool Source #

Named ClientPagingControls Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Methods

nameOf :: IsString string => Proxy# ClientPagingControls -> string Source #

Message ClientPagingControls Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Methods

encodeMessage :: FieldNumber -> ClientPagingControls -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientPagingControls Source #

dotProto :: Proxy# ClientPagingControls -> [DotProtoField] Source #

ToSchema ClientPagingControls Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Methods

declareNamedSchema :: Proxy ClientPagingControls -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientPagingControls Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

type Rep ClientPagingControls = D1 ('MetaData "ClientPagingControls" "Data.Sawtooth.ClientListControl" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "ClientPagingControls" 'PrefixI 'True) (S1 ('MetaSel ('Just "clientPagingControlsStart") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "clientPagingControlsLimit") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Int32)))

data ClientPagingResponse Source #

Constructors

ClientPagingResponse 

Fields

Instances

Instances details
Eq ClientPagingResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Methods

(==) :: ClientPagingResponse -> ClientPagingResponse -> Bool Source #

(/=) :: ClientPagingResponse -> ClientPagingResponse -> Bool Source #

Ord ClientPagingResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Methods

compare :: ClientPagingResponse -> ClientPagingResponse -> Ordering Source #

(<) :: ClientPagingResponse -> ClientPagingResponse -> Bool Source #

(<=) :: ClientPagingResponse -> ClientPagingResponse -> Bool Source #

(>) :: ClientPagingResponse -> ClientPagingResponse -> Bool Source #

(>=) :: ClientPagingResponse -> ClientPagingResponse -> Bool Source #

max :: ClientPagingResponse -> ClientPagingResponse -> ClientPagingResponse Source #

min :: ClientPagingResponse -> ClientPagingResponse -> ClientPagingResponse Source #

Show ClientPagingResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Methods

showsPrec :: Int -> ClientPagingResponse -> ShowS Source #

show :: ClientPagingResponse -> String Source #

showList :: [ClientPagingResponse] -> ShowS Source #

Generic ClientPagingResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Associated Types

type Rep ClientPagingResponse :: Type -> Type Source #

Methods

from :: ClientPagingResponse -> Rep ClientPagingResponse x Source #

to :: Rep ClientPagingResponse x -> ClientPagingResponse Source #

ToJSON ClientPagingResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Methods

toJSON :: ClientPagingResponse -> Value Source #

toEncoding :: ClientPagingResponse -> Encoding Source #

toJSONList :: [ClientPagingResponse] -> Value Source #

toEncodingList :: [ClientPagingResponse] -> Encoding Source #

FromJSON ClientPagingResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Methods

parseJSON :: Value -> Parser ClientPagingResponse Source #

parseJSONList :: Value -> Parser [ClientPagingResponse] Source #

NFData ClientPagingResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Methods

rnf :: ClientPagingResponse -> () Source #

ToJSONPB ClientPagingResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Methods

toJSONPB :: ClientPagingResponse -> Options -> Value Source #

toEncodingPB :: ClientPagingResponse -> Options -> Encoding Source #

FromJSONPB ClientPagingResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Methods

parseJSONPB :: Value -> Parser ClientPagingResponse Source #

HasDefault ClientPagingResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Methods

def :: ClientPagingResponse Source #

isDefault :: ClientPagingResponse -> Bool Source #

Named ClientPagingResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Methods

nameOf :: IsString string => Proxy# ClientPagingResponse -> string Source #

Message ClientPagingResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Methods

encodeMessage :: FieldNumber -> ClientPagingResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientPagingResponse Source #

dotProto :: Proxy# ClientPagingResponse -> [DotProtoField] Source #

ToSchema ClientPagingResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Methods

declareNamedSchema :: Proxy ClientPagingResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientPagingResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

type Rep ClientPagingResponse = D1 ('MetaData "ClientPagingResponse" "Data.Sawtooth.ClientListControl" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "ClientPagingResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "clientPagingResponseNext") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: (S1 ('MetaSel ('Just "clientPagingResponseStart") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "clientPagingResponseLimit") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Int32))))

data ClientSortControls Source #

Constructors

ClientSortControls 

Fields

Instances

Instances details
Eq ClientSortControls Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Methods

(==) :: ClientSortControls -> ClientSortControls -> Bool Source #

(/=) :: ClientSortControls -> ClientSortControls -> Bool Source #

Ord ClientSortControls Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Methods

compare :: ClientSortControls -> ClientSortControls -> Ordering Source #

(<) :: ClientSortControls -> ClientSortControls -> Bool Source #

(<=) :: ClientSortControls -> ClientSortControls -> Bool Source #

(>) :: ClientSortControls -> ClientSortControls -> Bool Source #

(>=) :: ClientSortControls -> ClientSortControls -> Bool Source #

max :: ClientSortControls -> ClientSortControls -> ClientSortControls Source #

min :: ClientSortControls -> ClientSortControls -> ClientSortControls Source #

Show ClientSortControls Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Methods

showsPrec :: Int -> ClientSortControls -> ShowS Source #

show :: ClientSortControls -> String Source #

showList :: [ClientSortControls] -> ShowS Source #

Generic ClientSortControls Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Associated Types

type Rep ClientSortControls :: Type -> Type Source #

Methods

from :: ClientSortControls -> Rep ClientSortControls x Source #

to :: Rep ClientSortControls x -> ClientSortControls Source #

ToJSON ClientSortControls Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Methods

toJSON :: ClientSortControls -> Value Source #

toEncoding :: ClientSortControls -> Encoding Source #

toJSONList :: [ClientSortControls] -> Value Source #

toEncodingList :: [ClientSortControls] -> Encoding Source #

FromJSON ClientSortControls Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Methods

parseJSON :: Value -> Parser ClientSortControls Source #

parseJSONList :: Value -> Parser [ClientSortControls] Source #

NFData ClientSortControls Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Methods

rnf :: ClientSortControls -> () Source #

ToJSONPB ClientSortControls Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Methods

toJSONPB :: ClientSortControls -> Options -> Value Source #

toEncodingPB :: ClientSortControls -> Options -> Encoding Source #

FromJSONPB ClientSortControls Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Methods

parseJSONPB :: Value -> Parser ClientSortControls Source #

HasDefault ClientSortControls Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Methods

def :: ClientSortControls Source #

isDefault :: ClientSortControls -> Bool Source #

Named ClientSortControls Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Methods

nameOf :: IsString string => Proxy# ClientSortControls -> string Source #

Message ClientSortControls Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Methods

encodeMessage :: FieldNumber -> ClientSortControls -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientSortControls Source #

dotProto :: Proxy# ClientSortControls -> [DotProtoField] Source #

ToSchema ClientSortControls Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Methods

declareNamedSchema :: Proxy ClientSortControls -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientSortControls Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

type Rep ClientSortControls = D1 ('MetaData "ClientSortControls" "Data.Sawtooth.ClientListControl" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "ClientSortControls" 'PrefixI 'True) (S1 ('MetaSel ('Just "clientSortControlsKeys") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Text)) :*: S1 ('MetaSel ('Just "clientSortControlsReverse") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Bool)))
\ No newline at end of file +Data.Sawtooth.ClientListControl
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types
Safe HaskellNone
LanguageHaskell2010

Data.Sawtooth.ClientListControl

Description

Generated by Haskell protocol buffer compiler. DO NOT EDIT!

Documentation

data ClientPagingControls Source #

Constructors

ClientPagingControls 

Fields

Instances

Instances details
Eq ClientPagingControls Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Methods

(==) :: ClientPagingControls -> ClientPagingControls -> Bool Source #

(/=) :: ClientPagingControls -> ClientPagingControls -> Bool Source #

Ord ClientPagingControls Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Methods

compare :: ClientPagingControls -> ClientPagingControls -> Ordering Source #

(<) :: ClientPagingControls -> ClientPagingControls -> Bool Source #

(<=) :: ClientPagingControls -> ClientPagingControls -> Bool Source #

(>) :: ClientPagingControls -> ClientPagingControls -> Bool Source #

(>=) :: ClientPagingControls -> ClientPagingControls -> Bool Source #

max :: ClientPagingControls -> ClientPagingControls -> ClientPagingControls Source #

min :: ClientPagingControls -> ClientPagingControls -> ClientPagingControls Source #

Show ClientPagingControls Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Methods

showsPrec :: Int -> ClientPagingControls -> ShowS Source #

show :: ClientPagingControls -> String Source #

showList :: [ClientPagingControls] -> ShowS Source #

Generic ClientPagingControls Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Associated Types

type Rep ClientPagingControls :: Type -> Type Source #

Methods

from :: ClientPagingControls -> Rep ClientPagingControls x Source #

to :: Rep ClientPagingControls x -> ClientPagingControls Source #

ToJSON ClientPagingControls Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Methods

toJSON :: ClientPagingControls -> Value Source #

toEncoding :: ClientPagingControls -> Encoding Source #

toJSONList :: [ClientPagingControls] -> Value Source #

toEncodingList :: [ClientPagingControls] -> Encoding Source #

FromJSON ClientPagingControls Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Methods

parseJSON :: Value -> Parser ClientPagingControls Source #

parseJSONList :: Value -> Parser [ClientPagingControls] Source #

NFData ClientPagingControls Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Methods

rnf :: ClientPagingControls -> () Source #

ToJSONPB ClientPagingControls Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Methods

toJSONPB :: ClientPagingControls -> Options -> Value Source #

toEncodingPB :: ClientPagingControls -> Options -> Encoding Source #

FromJSONPB ClientPagingControls Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Methods

parseJSONPB :: Value -> Parser ClientPagingControls Source #

HasDefault ClientPagingControls Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Methods

def :: ClientPagingControls Source #

isDefault :: ClientPagingControls -> Bool Source #

Named ClientPagingControls Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Methods

nameOf :: IsString string => Proxy# ClientPagingControls -> string Source #

Message ClientPagingControls Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Methods

encodeMessage :: FieldNumber -> ClientPagingControls -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientPagingControls Source #

dotProto :: Proxy# ClientPagingControls -> [DotProtoField] Source #

ToSchema ClientPagingControls Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Methods

declareNamedSchema :: Proxy ClientPagingControls -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientPagingControls Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

type Rep ClientPagingControls = D1 ('MetaData "ClientPagingControls" "Data.Sawtooth.ClientListControl" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "ClientPagingControls" 'PrefixI 'True) (S1 ('MetaSel ('Just "clientPagingControlsStart") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "clientPagingControlsLimit") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Int32)))

data ClientPagingResponse Source #

Constructors

ClientPagingResponse 

Fields

Instances

Instances details
Eq ClientPagingResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Methods

(==) :: ClientPagingResponse -> ClientPagingResponse -> Bool Source #

(/=) :: ClientPagingResponse -> ClientPagingResponse -> Bool Source #

Ord ClientPagingResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Methods

compare :: ClientPagingResponse -> ClientPagingResponse -> Ordering Source #

(<) :: ClientPagingResponse -> ClientPagingResponse -> Bool Source #

(<=) :: ClientPagingResponse -> ClientPagingResponse -> Bool Source #

(>) :: ClientPagingResponse -> ClientPagingResponse -> Bool Source #

(>=) :: ClientPagingResponse -> ClientPagingResponse -> Bool Source #

max :: ClientPagingResponse -> ClientPagingResponse -> ClientPagingResponse Source #

min :: ClientPagingResponse -> ClientPagingResponse -> ClientPagingResponse Source #

Show ClientPagingResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Methods

showsPrec :: Int -> ClientPagingResponse -> ShowS Source #

show :: ClientPagingResponse -> String Source #

showList :: [ClientPagingResponse] -> ShowS Source #

Generic ClientPagingResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Associated Types

type Rep ClientPagingResponse :: Type -> Type Source #

Methods

from :: ClientPagingResponse -> Rep ClientPagingResponse x Source #

to :: Rep ClientPagingResponse x -> ClientPagingResponse Source #

ToJSON ClientPagingResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Methods

toJSON :: ClientPagingResponse -> Value Source #

toEncoding :: ClientPagingResponse -> Encoding Source #

toJSONList :: [ClientPagingResponse] -> Value Source #

toEncodingList :: [ClientPagingResponse] -> Encoding Source #

FromJSON ClientPagingResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Methods

parseJSON :: Value -> Parser ClientPagingResponse Source #

parseJSONList :: Value -> Parser [ClientPagingResponse] Source #

NFData ClientPagingResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Methods

rnf :: ClientPagingResponse -> () Source #

ToJSONPB ClientPagingResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Methods

toJSONPB :: ClientPagingResponse -> Options -> Value Source #

toEncodingPB :: ClientPagingResponse -> Options -> Encoding Source #

FromJSONPB ClientPagingResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Methods

parseJSONPB :: Value -> Parser ClientPagingResponse Source #

HasDefault ClientPagingResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Methods

def :: ClientPagingResponse Source #

isDefault :: ClientPagingResponse -> Bool Source #

Named ClientPagingResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Methods

nameOf :: IsString string => Proxy# ClientPagingResponse -> string Source #

Message ClientPagingResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Methods

encodeMessage :: FieldNumber -> ClientPagingResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientPagingResponse Source #

dotProto :: Proxy# ClientPagingResponse -> [DotProtoField] Source #

ToSchema ClientPagingResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Methods

declareNamedSchema :: Proxy ClientPagingResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientPagingResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

type Rep ClientPagingResponse = D1 ('MetaData "ClientPagingResponse" "Data.Sawtooth.ClientListControl" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "ClientPagingResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "clientPagingResponseNext") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: (S1 ('MetaSel ('Just "clientPagingResponseStart") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "clientPagingResponseLimit") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Int32))))

data ClientSortControls Source #

Constructors

ClientSortControls 

Fields

Instances

Instances details
Eq ClientSortControls Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Methods

(==) :: ClientSortControls -> ClientSortControls -> Bool Source #

(/=) :: ClientSortControls -> ClientSortControls -> Bool Source #

Ord ClientSortControls Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Methods

compare :: ClientSortControls -> ClientSortControls -> Ordering Source #

(<) :: ClientSortControls -> ClientSortControls -> Bool Source #

(<=) :: ClientSortControls -> ClientSortControls -> Bool Source #

(>) :: ClientSortControls -> ClientSortControls -> Bool Source #

(>=) :: ClientSortControls -> ClientSortControls -> Bool Source #

max :: ClientSortControls -> ClientSortControls -> ClientSortControls Source #

min :: ClientSortControls -> ClientSortControls -> ClientSortControls Source #

Show ClientSortControls Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Methods

showsPrec :: Int -> ClientSortControls -> ShowS Source #

show :: ClientSortControls -> String Source #

showList :: [ClientSortControls] -> ShowS Source #

Generic ClientSortControls Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Associated Types

type Rep ClientSortControls :: Type -> Type Source #

Methods

from :: ClientSortControls -> Rep ClientSortControls x Source #

to :: Rep ClientSortControls x -> ClientSortControls Source #

ToJSON ClientSortControls Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Methods

toJSON :: ClientSortControls -> Value Source #

toEncoding :: ClientSortControls -> Encoding Source #

toJSONList :: [ClientSortControls] -> Value Source #

toEncodingList :: [ClientSortControls] -> Encoding Source #

FromJSON ClientSortControls Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Methods

parseJSON :: Value -> Parser ClientSortControls Source #

parseJSONList :: Value -> Parser [ClientSortControls] Source #

NFData ClientSortControls Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Methods

rnf :: ClientSortControls -> () Source #

ToJSONPB ClientSortControls Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Methods

toJSONPB :: ClientSortControls -> Options -> Value Source #

toEncodingPB :: ClientSortControls -> Options -> Encoding Source #

FromJSONPB ClientSortControls Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Methods

parseJSONPB :: Value -> Parser ClientSortControls Source #

HasDefault ClientSortControls Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Methods

def :: ClientSortControls Source #

isDefault :: ClientSortControls -> Bool Source #

Named ClientSortControls Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Methods

nameOf :: IsString string => Proxy# ClientSortControls -> string Source #

Message ClientSortControls Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Methods

encodeMessage :: FieldNumber -> ClientSortControls -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientSortControls Source #

dotProto :: Proxy# ClientSortControls -> [DotProtoField] Source #

ToSchema ClientSortControls Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

Methods

declareNamedSchema :: Proxy ClientSortControls -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientSortControls Source # 
Instance details

Defined in Data.Sawtooth.ClientListControl

type Rep ClientSortControls = D1 ('MetaData "ClientSortControls" "Data.Sawtooth.ClientListControl" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "ClientSortControls" 'PrefixI 'True) (S1 ('MetaSel ('Just "clientSortControlsKeys") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Text)) :*: S1 ('MetaSel ('Just "clientSortControlsReverse") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Bool)))
\ No newline at end of file diff --git a/Data-Sawtooth-ClientPeers.html b/Data-Sawtooth-ClientPeers.html index 234eae1..c86ed5d 100644 --- a/Data-Sawtooth-ClientPeers.html +++ b/Data-Sawtooth-ClientPeers.html @@ -1 +1 @@ -Data.Sawtooth.ClientPeers
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types
Safe HaskellNone
LanguageHaskell2010

Data.Sawtooth.ClientPeers

Description

Generated by Haskell protocol buffer compiler. DO NOT EDIT!

Documentation

data ClientPeersGetRequest Source #

Constructors

ClientPeersGetRequest 

Instances

Instances details
Eq ClientPeersGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Methods

(==) :: ClientPeersGetRequest -> ClientPeersGetRequest -> Bool Source #

(/=) :: ClientPeersGetRequest -> ClientPeersGetRequest -> Bool Source #

Ord ClientPeersGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Methods

compare :: ClientPeersGetRequest -> ClientPeersGetRequest -> Ordering Source #

(<) :: ClientPeersGetRequest -> ClientPeersGetRequest -> Bool Source #

(<=) :: ClientPeersGetRequest -> ClientPeersGetRequest -> Bool Source #

(>) :: ClientPeersGetRequest -> ClientPeersGetRequest -> Bool Source #

(>=) :: ClientPeersGetRequest -> ClientPeersGetRequest -> Bool Source #

max :: ClientPeersGetRequest -> ClientPeersGetRequest -> ClientPeersGetRequest Source #

min :: ClientPeersGetRequest -> ClientPeersGetRequest -> ClientPeersGetRequest Source #

Show ClientPeersGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Methods

showsPrec :: Int -> ClientPeersGetRequest -> ShowS Source #

show :: ClientPeersGetRequest -> String Source #

showList :: [ClientPeersGetRequest] -> ShowS Source #

Generic ClientPeersGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Associated Types

type Rep ClientPeersGetRequest :: Type -> Type Source #

Methods

from :: ClientPeersGetRequest -> Rep ClientPeersGetRequest x Source #

to :: Rep ClientPeersGetRequest x -> ClientPeersGetRequest Source #

ToJSON ClientPeersGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Methods

toJSON :: ClientPeersGetRequest -> Value Source #

toEncoding :: ClientPeersGetRequest -> Encoding Source #

toJSONList :: [ClientPeersGetRequest] -> Value Source #

toEncodingList :: [ClientPeersGetRequest] -> Encoding Source #

FromJSON ClientPeersGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Methods

parseJSON :: Value -> Parser ClientPeersGetRequest Source #

parseJSONList :: Value -> Parser [ClientPeersGetRequest] Source #

NFData ClientPeersGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Methods

rnf :: ClientPeersGetRequest -> () Source #

ToJSONPB ClientPeersGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Methods

toJSONPB :: ClientPeersGetRequest -> Options -> Value Source #

toEncodingPB :: ClientPeersGetRequest -> Options -> Encoding Source #

FromJSONPB ClientPeersGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Methods

parseJSONPB :: Value -> Parser ClientPeersGetRequest Source #

HasDefault ClientPeersGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Methods

def :: ClientPeersGetRequest Source #

isDefault :: ClientPeersGetRequest -> Bool Source #

Named ClientPeersGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Methods

nameOf :: IsString string => Proxy# ClientPeersGetRequest -> string Source #

Message ClientPeersGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Methods

encodeMessage :: FieldNumber -> ClientPeersGetRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientPeersGetRequest Source #

dotProto :: Proxy# ClientPeersGetRequest -> [DotProtoField] Source #

ToSchema ClientPeersGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Methods

declareNamedSchema :: Proxy ClientPeersGetRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientPeersGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

type Rep ClientPeersGetRequest = D1 ('MetaData "ClientPeersGetRequest" "Data.Sawtooth.ClientPeers" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "ClientPeersGetRequest" 'PrefixI 'False) (U1 :: Type -> Type))

data ClientPeersGetResponse Source #

Constructors

ClientPeersGetResponse 

Fields

Instances

Instances details
Eq ClientPeersGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Methods

(==) :: ClientPeersGetResponse -> ClientPeersGetResponse -> Bool Source #

(/=) :: ClientPeersGetResponse -> ClientPeersGetResponse -> Bool Source #

Ord ClientPeersGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Methods

compare :: ClientPeersGetResponse -> ClientPeersGetResponse -> Ordering Source #

(<) :: ClientPeersGetResponse -> ClientPeersGetResponse -> Bool Source #

(<=) :: ClientPeersGetResponse -> ClientPeersGetResponse -> Bool Source #

(>) :: ClientPeersGetResponse -> ClientPeersGetResponse -> Bool Source #

(>=) :: ClientPeersGetResponse -> ClientPeersGetResponse -> Bool Source #

max :: ClientPeersGetResponse -> ClientPeersGetResponse -> ClientPeersGetResponse Source #

min :: ClientPeersGetResponse -> ClientPeersGetResponse -> ClientPeersGetResponse Source #

Show ClientPeersGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Methods

showsPrec :: Int -> ClientPeersGetResponse -> ShowS Source #

show :: ClientPeersGetResponse -> String Source #

showList :: [ClientPeersGetResponse] -> ShowS Source #

Generic ClientPeersGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Associated Types

type Rep ClientPeersGetResponse :: Type -> Type Source #

Methods

from :: ClientPeersGetResponse -> Rep ClientPeersGetResponse x Source #

to :: Rep ClientPeersGetResponse x -> ClientPeersGetResponse Source #

ToJSON ClientPeersGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Methods

toJSON :: ClientPeersGetResponse -> Value Source #

toEncoding :: ClientPeersGetResponse -> Encoding Source #

toJSONList :: [ClientPeersGetResponse] -> Value Source #

toEncodingList :: [ClientPeersGetResponse] -> Encoding Source #

FromJSON ClientPeersGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Methods

parseJSON :: Value -> Parser ClientPeersGetResponse Source #

parseJSONList :: Value -> Parser [ClientPeersGetResponse] Source #

NFData ClientPeersGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Methods

rnf :: ClientPeersGetResponse -> () Source #

ToJSONPB ClientPeersGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Methods

toJSONPB :: ClientPeersGetResponse -> Options -> Value Source #

toEncodingPB :: ClientPeersGetResponse -> Options -> Encoding Source #

FromJSONPB ClientPeersGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Methods

parseJSONPB :: Value -> Parser ClientPeersGetResponse Source #

HasDefault ClientPeersGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Methods

def :: ClientPeersGetResponse Source #

isDefault :: ClientPeersGetResponse -> Bool Source #

Named ClientPeersGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Methods

nameOf :: IsString string => Proxy# ClientPeersGetResponse -> string Source #

Message ClientPeersGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Methods

encodeMessage :: FieldNumber -> ClientPeersGetResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientPeersGetResponse Source #

dotProto :: Proxy# ClientPeersGetResponse -> [DotProtoField] Source #

ToSchema ClientPeersGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Methods

declareNamedSchema :: Proxy ClientPeersGetResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientPeersGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

type Rep ClientPeersGetResponse = D1 ('MetaData "ClientPeersGetResponse" "Data.Sawtooth.ClientPeers" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "ClientPeersGetResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "clientPeersGetResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated ClientPeersGetResponse_Status)) :*: S1 ('MetaSel ('Just "clientPeersGetResponsePeers") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Text))))

data ClientPeersGetResponse_Status Source #

Constructors

ClientPeersGetResponse_StatusSTATUS_UNSET 
ClientPeersGetResponse_StatusOK 
ClientPeersGetResponse_StatusERROR 

Instances

Instances details
Bounded ClientPeersGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Methods

minBound :: ClientPeersGetResponse_Status Source #

maxBound :: ClientPeersGetResponse_Status Source #

Eq ClientPeersGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Methods

(==) :: ClientPeersGetResponse_Status -> ClientPeersGetResponse_Status -> Bool Source #

(/=) :: ClientPeersGetResponse_Status -> ClientPeersGetResponse_Status -> Bool Source #

Ord ClientPeersGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Methods

compare :: ClientPeersGetResponse_Status -> ClientPeersGetResponse_Status -> Ordering Source #

(<) :: ClientPeersGetResponse_Status -> ClientPeersGetResponse_Status -> Bool Source #

(<=) :: ClientPeersGetResponse_Status -> ClientPeersGetResponse_Status -> Bool Source #

(>) :: ClientPeersGetResponse_Status -> ClientPeersGetResponse_Status -> Bool Source #

(>=) :: ClientPeersGetResponse_Status -> ClientPeersGetResponse_Status -> Bool Source #

max :: ClientPeersGetResponse_Status -> ClientPeersGetResponse_Status -> ClientPeersGetResponse_Status Source #

min :: ClientPeersGetResponse_Status -> ClientPeersGetResponse_Status -> ClientPeersGetResponse_Status Source #

Show ClientPeersGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Methods

showsPrec :: Int -> ClientPeersGetResponse_Status -> ShowS Source #

show :: ClientPeersGetResponse_Status -> String Source #

showList :: [ClientPeersGetResponse_Status] -> ShowS Source #

Generic ClientPeersGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Associated Types

type Rep ClientPeersGetResponse_Status :: Type -> Type Source #

Methods

from :: ClientPeersGetResponse_Status -> Rep ClientPeersGetResponse_Status x Source #

to :: Rep ClientPeersGetResponse_Status x -> ClientPeersGetResponse_Status Source #

ToJSON ClientPeersGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Methods

toJSON :: ClientPeersGetResponse_Status -> Value Source #

toEncoding :: ClientPeersGetResponse_Status -> Encoding Source #

toJSONList :: [ClientPeersGetResponse_Status] -> Value Source #

toEncodingList :: [ClientPeersGetResponse_Status] -> Encoding Source #

FromJSON ClientPeersGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Methods

parseJSON :: Value -> Parser ClientPeersGetResponse_Status Source #

parseJSONList :: Value -> Parser [ClientPeersGetResponse_Status] Source #

NFData ClientPeersGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Methods

rnf :: ClientPeersGetResponse_Status -> () Source #

ProtoEnum ClientPeersGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Methods

toProtoEnumMay :: Int32 -> Maybe ClientPeersGetResponse_Status Source #

fromProtoEnum :: ClientPeersGetResponse_Status -> Int32 Source #

ToJSONPB ClientPeersGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Methods

toJSONPB :: ClientPeersGetResponse_Status -> Options -> Value Source #

toEncodingPB :: ClientPeersGetResponse_Status -> Options -> Encoding Source #

FromJSONPB ClientPeersGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Methods

parseJSONPB :: Value -> Parser ClientPeersGetResponse_Status Source #

HasDefault ClientPeersGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Methods

def :: ClientPeersGetResponse_Status Source #

isDefault :: ClientPeersGetResponse_Status -> Bool Source #

Named ClientPeersGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Methods

nameOf :: IsString string => Proxy# ClientPeersGetResponse_Status -> string Source #

Finite ClientPeersGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Methods

enumerate :: IsString string => Proxy# ClientPeersGetResponse_Status -> [(string, Int32)] Source #

type Rep ClientPeersGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

type Rep ClientPeersGetResponse_Status = D1 ('MetaData "ClientPeersGetResponse_Status" "Data.Sawtooth.ClientPeers" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "ClientPeersGetResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "ClientPeersGetResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientPeersGetResponse_StatusERROR" 'PrefixI 'False) (U1 :: Type -> Type)))
\ No newline at end of file +Data.Sawtooth.ClientPeers
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types
Safe HaskellNone
LanguageHaskell2010

Data.Sawtooth.ClientPeers

Description

Generated by Haskell protocol buffer compiler. DO NOT EDIT!

Documentation

data ClientPeersGetRequest Source #

Constructors

ClientPeersGetRequest 

Instances

Instances details
Eq ClientPeersGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Methods

(==) :: ClientPeersGetRequest -> ClientPeersGetRequest -> Bool Source #

(/=) :: ClientPeersGetRequest -> ClientPeersGetRequest -> Bool Source #

Ord ClientPeersGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Methods

compare :: ClientPeersGetRequest -> ClientPeersGetRequest -> Ordering Source #

(<) :: ClientPeersGetRequest -> ClientPeersGetRequest -> Bool Source #

(<=) :: ClientPeersGetRequest -> ClientPeersGetRequest -> Bool Source #

(>) :: ClientPeersGetRequest -> ClientPeersGetRequest -> Bool Source #

(>=) :: ClientPeersGetRequest -> ClientPeersGetRequest -> Bool Source #

max :: ClientPeersGetRequest -> ClientPeersGetRequest -> ClientPeersGetRequest Source #

min :: ClientPeersGetRequest -> ClientPeersGetRequest -> ClientPeersGetRequest Source #

Show ClientPeersGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Methods

showsPrec :: Int -> ClientPeersGetRequest -> ShowS Source #

show :: ClientPeersGetRequest -> String Source #

showList :: [ClientPeersGetRequest] -> ShowS Source #

Generic ClientPeersGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Associated Types

type Rep ClientPeersGetRequest :: Type -> Type Source #

Methods

from :: ClientPeersGetRequest -> Rep ClientPeersGetRequest x Source #

to :: Rep ClientPeersGetRequest x -> ClientPeersGetRequest Source #

ToJSON ClientPeersGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Methods

toJSON :: ClientPeersGetRequest -> Value Source #

toEncoding :: ClientPeersGetRequest -> Encoding Source #

toJSONList :: [ClientPeersGetRequest] -> Value Source #

toEncodingList :: [ClientPeersGetRequest] -> Encoding Source #

FromJSON ClientPeersGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Methods

parseJSON :: Value -> Parser ClientPeersGetRequest Source #

parseJSONList :: Value -> Parser [ClientPeersGetRequest] Source #

NFData ClientPeersGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Methods

rnf :: ClientPeersGetRequest -> () Source #

ToJSONPB ClientPeersGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Methods

toJSONPB :: ClientPeersGetRequest -> Options -> Value Source #

toEncodingPB :: ClientPeersGetRequest -> Options -> Encoding Source #

FromJSONPB ClientPeersGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Methods

parseJSONPB :: Value -> Parser ClientPeersGetRequest Source #

HasDefault ClientPeersGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Methods

def :: ClientPeersGetRequest Source #

isDefault :: ClientPeersGetRequest -> Bool Source #

Named ClientPeersGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Methods

nameOf :: IsString string => Proxy# ClientPeersGetRequest -> string Source #

Message ClientPeersGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Methods

encodeMessage :: FieldNumber -> ClientPeersGetRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientPeersGetRequest Source #

dotProto :: Proxy# ClientPeersGetRequest -> [DotProtoField] Source #

ToSchema ClientPeersGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Methods

declareNamedSchema :: Proxy ClientPeersGetRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientPeersGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

type Rep ClientPeersGetRequest = D1 ('MetaData "ClientPeersGetRequest" "Data.Sawtooth.ClientPeers" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "ClientPeersGetRequest" 'PrefixI 'False) (U1 :: Type -> Type))

data ClientPeersGetResponse Source #

Constructors

ClientPeersGetResponse 

Fields

Instances

Instances details
Eq ClientPeersGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Methods

(==) :: ClientPeersGetResponse -> ClientPeersGetResponse -> Bool Source #

(/=) :: ClientPeersGetResponse -> ClientPeersGetResponse -> Bool Source #

Ord ClientPeersGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Methods

compare :: ClientPeersGetResponse -> ClientPeersGetResponse -> Ordering Source #

(<) :: ClientPeersGetResponse -> ClientPeersGetResponse -> Bool Source #

(<=) :: ClientPeersGetResponse -> ClientPeersGetResponse -> Bool Source #

(>) :: ClientPeersGetResponse -> ClientPeersGetResponse -> Bool Source #

(>=) :: ClientPeersGetResponse -> ClientPeersGetResponse -> Bool Source #

max :: ClientPeersGetResponse -> ClientPeersGetResponse -> ClientPeersGetResponse Source #

min :: ClientPeersGetResponse -> ClientPeersGetResponse -> ClientPeersGetResponse Source #

Show ClientPeersGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Methods

showsPrec :: Int -> ClientPeersGetResponse -> ShowS Source #

show :: ClientPeersGetResponse -> String Source #

showList :: [ClientPeersGetResponse] -> ShowS Source #

Generic ClientPeersGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Associated Types

type Rep ClientPeersGetResponse :: Type -> Type Source #

Methods

from :: ClientPeersGetResponse -> Rep ClientPeersGetResponse x Source #

to :: Rep ClientPeersGetResponse x -> ClientPeersGetResponse Source #

ToJSON ClientPeersGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Methods

toJSON :: ClientPeersGetResponse -> Value Source #

toEncoding :: ClientPeersGetResponse -> Encoding Source #

toJSONList :: [ClientPeersGetResponse] -> Value Source #

toEncodingList :: [ClientPeersGetResponse] -> Encoding Source #

FromJSON ClientPeersGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Methods

parseJSON :: Value -> Parser ClientPeersGetResponse Source #

parseJSONList :: Value -> Parser [ClientPeersGetResponse] Source #

NFData ClientPeersGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Methods

rnf :: ClientPeersGetResponse -> () Source #

ToJSONPB ClientPeersGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Methods

toJSONPB :: ClientPeersGetResponse -> Options -> Value Source #

toEncodingPB :: ClientPeersGetResponse -> Options -> Encoding Source #

FromJSONPB ClientPeersGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Methods

parseJSONPB :: Value -> Parser ClientPeersGetResponse Source #

HasDefault ClientPeersGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Methods

def :: ClientPeersGetResponse Source #

isDefault :: ClientPeersGetResponse -> Bool Source #

Named ClientPeersGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Methods

nameOf :: IsString string => Proxy# ClientPeersGetResponse -> string Source #

Message ClientPeersGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Methods

encodeMessage :: FieldNumber -> ClientPeersGetResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientPeersGetResponse Source #

dotProto :: Proxy# ClientPeersGetResponse -> [DotProtoField] Source #

ToSchema ClientPeersGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Methods

declareNamedSchema :: Proxy ClientPeersGetResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientPeersGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

type Rep ClientPeersGetResponse = D1 ('MetaData "ClientPeersGetResponse" "Data.Sawtooth.ClientPeers" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "ClientPeersGetResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "clientPeersGetResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated ClientPeersGetResponse_Status)) :*: S1 ('MetaSel ('Just "clientPeersGetResponsePeers") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Text))))

data ClientPeersGetResponse_Status Source #

Constructors

ClientPeersGetResponse_StatusSTATUS_UNSET 
ClientPeersGetResponse_StatusOK 
ClientPeersGetResponse_StatusERROR 

Instances

Instances details
Bounded ClientPeersGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Methods

minBound :: ClientPeersGetResponse_Status Source #

maxBound :: ClientPeersGetResponse_Status Source #

Eq ClientPeersGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Methods

(==) :: ClientPeersGetResponse_Status -> ClientPeersGetResponse_Status -> Bool Source #

(/=) :: ClientPeersGetResponse_Status -> ClientPeersGetResponse_Status -> Bool Source #

Ord ClientPeersGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Methods

compare :: ClientPeersGetResponse_Status -> ClientPeersGetResponse_Status -> Ordering Source #

(<) :: ClientPeersGetResponse_Status -> ClientPeersGetResponse_Status -> Bool Source #

(<=) :: ClientPeersGetResponse_Status -> ClientPeersGetResponse_Status -> Bool Source #

(>) :: ClientPeersGetResponse_Status -> ClientPeersGetResponse_Status -> Bool Source #

(>=) :: ClientPeersGetResponse_Status -> ClientPeersGetResponse_Status -> Bool Source #

max :: ClientPeersGetResponse_Status -> ClientPeersGetResponse_Status -> ClientPeersGetResponse_Status Source #

min :: ClientPeersGetResponse_Status -> ClientPeersGetResponse_Status -> ClientPeersGetResponse_Status Source #

Show ClientPeersGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Methods

showsPrec :: Int -> ClientPeersGetResponse_Status -> ShowS Source #

show :: ClientPeersGetResponse_Status -> String Source #

showList :: [ClientPeersGetResponse_Status] -> ShowS Source #

Generic ClientPeersGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Associated Types

type Rep ClientPeersGetResponse_Status :: Type -> Type Source #

Methods

from :: ClientPeersGetResponse_Status -> Rep ClientPeersGetResponse_Status x Source #

to :: Rep ClientPeersGetResponse_Status x -> ClientPeersGetResponse_Status Source #

ToJSON ClientPeersGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Methods

toJSON :: ClientPeersGetResponse_Status -> Value Source #

toEncoding :: ClientPeersGetResponse_Status -> Encoding Source #

toJSONList :: [ClientPeersGetResponse_Status] -> Value Source #

toEncodingList :: [ClientPeersGetResponse_Status] -> Encoding Source #

FromJSON ClientPeersGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Methods

parseJSON :: Value -> Parser ClientPeersGetResponse_Status Source #

parseJSONList :: Value -> Parser [ClientPeersGetResponse_Status] Source #

NFData ClientPeersGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Methods

rnf :: ClientPeersGetResponse_Status -> () Source #

ProtoEnum ClientPeersGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Methods

toProtoEnumMay :: Int32 -> Maybe ClientPeersGetResponse_Status Source #

fromProtoEnum :: ClientPeersGetResponse_Status -> Int32 Source #

ToJSONPB ClientPeersGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Methods

toJSONPB :: ClientPeersGetResponse_Status -> Options -> Value Source #

toEncodingPB :: ClientPeersGetResponse_Status -> Options -> Encoding Source #

FromJSONPB ClientPeersGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Methods

parseJSONPB :: Value -> Parser ClientPeersGetResponse_Status Source #

HasDefault ClientPeersGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Methods

def :: ClientPeersGetResponse_Status Source #

isDefault :: ClientPeersGetResponse_Status -> Bool Source #

Named ClientPeersGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Methods

nameOf :: IsString string => Proxy# ClientPeersGetResponse_Status -> string Source #

Finite ClientPeersGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

Methods

enumerate :: IsString string => Proxy# ClientPeersGetResponse_Status -> [(string, Int32)] Source #

type Rep ClientPeersGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientPeers

type Rep ClientPeersGetResponse_Status = D1 ('MetaData "ClientPeersGetResponse_Status" "Data.Sawtooth.ClientPeers" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "ClientPeersGetResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "ClientPeersGetResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientPeersGetResponse_StatusERROR" 'PrefixI 'False) (U1 :: Type -> Type)))
\ No newline at end of file diff --git a/Data-Sawtooth-ClientReceipt.html b/Data-Sawtooth-ClientReceipt.html index d48e76c..a18376b 100644 --- a/Data-Sawtooth-ClientReceipt.html +++ b/Data-Sawtooth-ClientReceipt.html @@ -1 +1 @@ -Data.Sawtooth.ClientReceipt
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types
Safe HaskellNone
LanguageHaskell2010

Data.Sawtooth.ClientReceipt

Description

Generated by Haskell protocol buffer compiler. DO NOT EDIT!

Documentation

newtype ClientReceiptGetRequest Source #

Constructors

ClientReceiptGetRequest 

Fields

Instances

Instances details
Eq ClientReceiptGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Methods

(==) :: ClientReceiptGetRequest -> ClientReceiptGetRequest -> Bool Source #

(/=) :: ClientReceiptGetRequest -> ClientReceiptGetRequest -> Bool Source #

Ord ClientReceiptGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Methods

compare :: ClientReceiptGetRequest -> ClientReceiptGetRequest -> Ordering Source #

(<) :: ClientReceiptGetRequest -> ClientReceiptGetRequest -> Bool Source #

(<=) :: ClientReceiptGetRequest -> ClientReceiptGetRequest -> Bool Source #

(>) :: ClientReceiptGetRequest -> ClientReceiptGetRequest -> Bool Source #

(>=) :: ClientReceiptGetRequest -> ClientReceiptGetRequest -> Bool Source #

max :: ClientReceiptGetRequest -> ClientReceiptGetRequest -> ClientReceiptGetRequest Source #

min :: ClientReceiptGetRequest -> ClientReceiptGetRequest -> ClientReceiptGetRequest Source #

Show ClientReceiptGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Methods

showsPrec :: Int -> ClientReceiptGetRequest -> ShowS Source #

show :: ClientReceiptGetRequest -> String Source #

showList :: [ClientReceiptGetRequest] -> ShowS Source #

Generic ClientReceiptGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Associated Types

type Rep ClientReceiptGetRequest :: Type -> Type Source #

Methods

from :: ClientReceiptGetRequest -> Rep ClientReceiptGetRequest x Source #

to :: Rep ClientReceiptGetRequest x -> ClientReceiptGetRequest Source #

ToJSON ClientReceiptGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Methods

toJSON :: ClientReceiptGetRequest -> Value Source #

toEncoding :: ClientReceiptGetRequest -> Encoding Source #

toJSONList :: [ClientReceiptGetRequest] -> Value Source #

toEncodingList :: [ClientReceiptGetRequest] -> Encoding Source #

FromJSON ClientReceiptGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Methods

parseJSON :: Value -> Parser ClientReceiptGetRequest Source #

parseJSONList :: Value -> Parser [ClientReceiptGetRequest] Source #

NFData ClientReceiptGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Methods

rnf :: ClientReceiptGetRequest -> () Source #

ToJSONPB ClientReceiptGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Methods

toJSONPB :: ClientReceiptGetRequest -> Options -> Value Source #

toEncodingPB :: ClientReceiptGetRequest -> Options -> Encoding Source #

FromJSONPB ClientReceiptGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Methods

parseJSONPB :: Value -> Parser ClientReceiptGetRequest Source #

HasDefault ClientReceiptGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Methods

def :: ClientReceiptGetRequest Source #

isDefault :: ClientReceiptGetRequest -> Bool Source #

Named ClientReceiptGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Methods

nameOf :: IsString string => Proxy# ClientReceiptGetRequest -> string Source #

Message ClientReceiptGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Methods

encodeMessage :: FieldNumber -> ClientReceiptGetRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientReceiptGetRequest Source #

dotProto :: Proxy# ClientReceiptGetRequest -> [DotProtoField] Source #

ToSchema ClientReceiptGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Methods

declareNamedSchema :: Proxy ClientReceiptGetRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientReceiptGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

type Rep ClientReceiptGetRequest = D1 ('MetaData "ClientReceiptGetRequest" "Data.Sawtooth.ClientReceipt" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'True) (C1 ('MetaCons "ClientReceiptGetRequest" 'PrefixI 'True) (S1 ('MetaSel ('Just "clientReceiptGetRequestTransactionIds") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Text))))

data ClientReceiptGetResponse Source #

Constructors

ClientReceiptGetResponse 

Fields

Instances

Instances details
Eq ClientReceiptGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Methods

(==) :: ClientReceiptGetResponse -> ClientReceiptGetResponse -> Bool Source #

(/=) :: ClientReceiptGetResponse -> ClientReceiptGetResponse -> Bool Source #

Ord ClientReceiptGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Methods

compare :: ClientReceiptGetResponse -> ClientReceiptGetResponse -> Ordering Source #

(<) :: ClientReceiptGetResponse -> ClientReceiptGetResponse -> Bool Source #

(<=) :: ClientReceiptGetResponse -> ClientReceiptGetResponse -> Bool Source #

(>) :: ClientReceiptGetResponse -> ClientReceiptGetResponse -> Bool Source #

(>=) :: ClientReceiptGetResponse -> ClientReceiptGetResponse -> Bool Source #

max :: ClientReceiptGetResponse -> ClientReceiptGetResponse -> ClientReceiptGetResponse Source #

min :: ClientReceiptGetResponse -> ClientReceiptGetResponse -> ClientReceiptGetResponse Source #

Show ClientReceiptGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Methods

showsPrec :: Int -> ClientReceiptGetResponse -> ShowS Source #

show :: ClientReceiptGetResponse -> String Source #

showList :: [ClientReceiptGetResponse] -> ShowS Source #

Generic ClientReceiptGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Associated Types

type Rep ClientReceiptGetResponse :: Type -> Type Source #

Methods

from :: ClientReceiptGetResponse -> Rep ClientReceiptGetResponse x Source #

to :: Rep ClientReceiptGetResponse x -> ClientReceiptGetResponse Source #

ToJSON ClientReceiptGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Methods

toJSON :: ClientReceiptGetResponse -> Value Source #

toEncoding :: ClientReceiptGetResponse -> Encoding Source #

toJSONList :: [ClientReceiptGetResponse] -> Value Source #

toEncodingList :: [ClientReceiptGetResponse] -> Encoding Source #

FromJSON ClientReceiptGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Methods

parseJSON :: Value -> Parser ClientReceiptGetResponse Source #

parseJSONList :: Value -> Parser [ClientReceiptGetResponse] Source #

NFData ClientReceiptGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Methods

rnf :: ClientReceiptGetResponse -> () Source #

ToJSONPB ClientReceiptGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Methods

toJSONPB :: ClientReceiptGetResponse -> Options -> Value Source #

toEncodingPB :: ClientReceiptGetResponse -> Options -> Encoding Source #

FromJSONPB ClientReceiptGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Methods

parseJSONPB :: Value -> Parser ClientReceiptGetResponse Source #

HasDefault ClientReceiptGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Methods

def :: ClientReceiptGetResponse Source #

isDefault :: ClientReceiptGetResponse -> Bool Source #

Named ClientReceiptGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Methods

nameOf :: IsString string => Proxy# ClientReceiptGetResponse -> string Source #

Message ClientReceiptGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Methods

encodeMessage :: FieldNumber -> ClientReceiptGetResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientReceiptGetResponse Source #

dotProto :: Proxy# ClientReceiptGetResponse -> [DotProtoField] Source #

ToSchema ClientReceiptGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Methods

declareNamedSchema :: Proxy ClientReceiptGetResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientReceiptGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

type Rep ClientReceiptGetResponse = D1 ('MetaData "ClientReceiptGetResponse" "Data.Sawtooth.ClientReceipt" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "ClientReceiptGetResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "clientReceiptGetResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated ClientReceiptGetResponse_Status)) :*: S1 ('MetaSel ('Just "clientReceiptGetResponseReceipts") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector TransactionReceipt))))

data ClientReceiptGetResponse_Status Source #

Constructors

ClientReceiptGetResponse_StatusSTATUS_UNSET 
ClientReceiptGetResponse_StatusOK 
ClientReceiptGetResponse_StatusINTERNAL_ERROR 
ClientReceiptGetResponse_StatusNO_RESOURCE 
ClientReceiptGetResponse_StatusINVALID_ID 

Instances

Instances details
Bounded ClientReceiptGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Methods

minBound :: ClientReceiptGetResponse_Status Source #

maxBound :: ClientReceiptGetResponse_Status Source #

Eq ClientReceiptGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Methods

(==) :: ClientReceiptGetResponse_Status -> ClientReceiptGetResponse_Status -> Bool Source #

(/=) :: ClientReceiptGetResponse_Status -> ClientReceiptGetResponse_Status -> Bool Source #

Ord ClientReceiptGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Methods

compare :: ClientReceiptGetResponse_Status -> ClientReceiptGetResponse_Status -> Ordering Source #

(<) :: ClientReceiptGetResponse_Status -> ClientReceiptGetResponse_Status -> Bool Source #

(<=) :: ClientReceiptGetResponse_Status -> ClientReceiptGetResponse_Status -> Bool Source #

(>) :: ClientReceiptGetResponse_Status -> ClientReceiptGetResponse_Status -> Bool Source #

(>=) :: ClientReceiptGetResponse_Status -> ClientReceiptGetResponse_Status -> Bool Source #

max :: ClientReceiptGetResponse_Status -> ClientReceiptGetResponse_Status -> ClientReceiptGetResponse_Status Source #

min :: ClientReceiptGetResponse_Status -> ClientReceiptGetResponse_Status -> ClientReceiptGetResponse_Status Source #

Show ClientReceiptGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Methods

showsPrec :: Int -> ClientReceiptGetResponse_Status -> ShowS Source #

show :: ClientReceiptGetResponse_Status -> String Source #

showList :: [ClientReceiptGetResponse_Status] -> ShowS Source #

Generic ClientReceiptGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Associated Types

type Rep ClientReceiptGetResponse_Status :: Type -> Type Source #

Methods

from :: ClientReceiptGetResponse_Status -> Rep ClientReceiptGetResponse_Status x Source #

to :: Rep ClientReceiptGetResponse_Status x -> ClientReceiptGetResponse_Status Source #

ToJSON ClientReceiptGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Methods

toJSON :: ClientReceiptGetResponse_Status -> Value Source #

toEncoding :: ClientReceiptGetResponse_Status -> Encoding Source #

toJSONList :: [ClientReceiptGetResponse_Status] -> Value Source #

toEncodingList :: [ClientReceiptGetResponse_Status] -> Encoding Source #

FromJSON ClientReceiptGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Methods

parseJSON :: Value -> Parser ClientReceiptGetResponse_Status Source #

parseJSONList :: Value -> Parser [ClientReceiptGetResponse_Status] Source #

NFData ClientReceiptGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Methods

rnf :: ClientReceiptGetResponse_Status -> () Source #

ProtoEnum ClientReceiptGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Methods

toProtoEnumMay :: Int32 -> Maybe ClientReceiptGetResponse_Status Source #

fromProtoEnum :: ClientReceiptGetResponse_Status -> Int32 Source #

ToJSONPB ClientReceiptGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Methods

toJSONPB :: ClientReceiptGetResponse_Status -> Options -> Value Source #

toEncodingPB :: ClientReceiptGetResponse_Status -> Options -> Encoding Source #

FromJSONPB ClientReceiptGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Methods

parseJSONPB :: Value -> Parser ClientReceiptGetResponse_Status Source #

HasDefault ClientReceiptGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Methods

def :: ClientReceiptGetResponse_Status Source #

isDefault :: ClientReceiptGetResponse_Status -> Bool Source #

Named ClientReceiptGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Methods

nameOf :: IsString string => Proxy# ClientReceiptGetResponse_Status -> string Source #

Finite ClientReceiptGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Methods

enumerate :: IsString string => Proxy# ClientReceiptGetResponse_Status -> [(string, Int32)] Source #

type Rep ClientReceiptGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

type Rep ClientReceiptGetResponse_Status = D1 ('MetaData "ClientReceiptGetResponse_Status" "Data.Sawtooth.ClientReceipt" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) ((C1 ('MetaCons "ClientReceiptGetResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientReceiptGetResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ClientReceiptGetResponse_StatusINTERNAL_ERROR" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "ClientReceiptGetResponse_StatusNO_RESOURCE" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientReceiptGetResponse_StatusINVALID_ID" 'PrefixI 'False) (U1 :: Type -> Type))))
\ No newline at end of file +Data.Sawtooth.ClientReceipt
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types
Safe HaskellNone
LanguageHaskell2010

Data.Sawtooth.ClientReceipt

Description

Generated by Haskell protocol buffer compiler. DO NOT EDIT!

Documentation

newtype ClientReceiptGetRequest Source #

Constructors

ClientReceiptGetRequest 

Fields

Instances

Instances details
Eq ClientReceiptGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Methods

(==) :: ClientReceiptGetRequest -> ClientReceiptGetRequest -> Bool Source #

(/=) :: ClientReceiptGetRequest -> ClientReceiptGetRequest -> Bool Source #

Ord ClientReceiptGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Methods

compare :: ClientReceiptGetRequest -> ClientReceiptGetRequest -> Ordering Source #

(<) :: ClientReceiptGetRequest -> ClientReceiptGetRequest -> Bool Source #

(<=) :: ClientReceiptGetRequest -> ClientReceiptGetRequest -> Bool Source #

(>) :: ClientReceiptGetRequest -> ClientReceiptGetRequest -> Bool Source #

(>=) :: ClientReceiptGetRequest -> ClientReceiptGetRequest -> Bool Source #

max :: ClientReceiptGetRequest -> ClientReceiptGetRequest -> ClientReceiptGetRequest Source #

min :: ClientReceiptGetRequest -> ClientReceiptGetRequest -> ClientReceiptGetRequest Source #

Show ClientReceiptGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Methods

showsPrec :: Int -> ClientReceiptGetRequest -> ShowS Source #

show :: ClientReceiptGetRequest -> String Source #

showList :: [ClientReceiptGetRequest] -> ShowS Source #

Generic ClientReceiptGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Associated Types

type Rep ClientReceiptGetRequest :: Type -> Type Source #

Methods

from :: ClientReceiptGetRequest -> Rep ClientReceiptGetRequest x Source #

to :: Rep ClientReceiptGetRequest x -> ClientReceiptGetRequest Source #

ToJSON ClientReceiptGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Methods

toJSON :: ClientReceiptGetRequest -> Value Source #

toEncoding :: ClientReceiptGetRequest -> Encoding Source #

toJSONList :: [ClientReceiptGetRequest] -> Value Source #

toEncodingList :: [ClientReceiptGetRequest] -> Encoding Source #

FromJSON ClientReceiptGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Methods

parseJSON :: Value -> Parser ClientReceiptGetRequest Source #

parseJSONList :: Value -> Parser [ClientReceiptGetRequest] Source #

NFData ClientReceiptGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Methods

rnf :: ClientReceiptGetRequest -> () Source #

ToJSONPB ClientReceiptGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Methods

toJSONPB :: ClientReceiptGetRequest -> Options -> Value Source #

toEncodingPB :: ClientReceiptGetRequest -> Options -> Encoding Source #

FromJSONPB ClientReceiptGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Methods

parseJSONPB :: Value -> Parser ClientReceiptGetRequest Source #

HasDefault ClientReceiptGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Methods

def :: ClientReceiptGetRequest Source #

isDefault :: ClientReceiptGetRequest -> Bool Source #

Named ClientReceiptGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Methods

nameOf :: IsString string => Proxy# ClientReceiptGetRequest -> string Source #

Message ClientReceiptGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Methods

encodeMessage :: FieldNumber -> ClientReceiptGetRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientReceiptGetRequest Source #

dotProto :: Proxy# ClientReceiptGetRequest -> [DotProtoField] Source #

ToSchema ClientReceiptGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Methods

declareNamedSchema :: Proxy ClientReceiptGetRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientReceiptGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

type Rep ClientReceiptGetRequest = D1 ('MetaData "ClientReceiptGetRequest" "Data.Sawtooth.ClientReceipt" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'True) (C1 ('MetaCons "ClientReceiptGetRequest" 'PrefixI 'True) (S1 ('MetaSel ('Just "clientReceiptGetRequestTransactionIds") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Text))))

data ClientReceiptGetResponse Source #

Constructors

ClientReceiptGetResponse 

Fields

Instances

Instances details
Eq ClientReceiptGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Methods

(==) :: ClientReceiptGetResponse -> ClientReceiptGetResponse -> Bool Source #

(/=) :: ClientReceiptGetResponse -> ClientReceiptGetResponse -> Bool Source #

Ord ClientReceiptGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Methods

compare :: ClientReceiptGetResponse -> ClientReceiptGetResponse -> Ordering Source #

(<) :: ClientReceiptGetResponse -> ClientReceiptGetResponse -> Bool Source #

(<=) :: ClientReceiptGetResponse -> ClientReceiptGetResponse -> Bool Source #

(>) :: ClientReceiptGetResponse -> ClientReceiptGetResponse -> Bool Source #

(>=) :: ClientReceiptGetResponse -> ClientReceiptGetResponse -> Bool Source #

max :: ClientReceiptGetResponse -> ClientReceiptGetResponse -> ClientReceiptGetResponse Source #

min :: ClientReceiptGetResponse -> ClientReceiptGetResponse -> ClientReceiptGetResponse Source #

Show ClientReceiptGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Methods

showsPrec :: Int -> ClientReceiptGetResponse -> ShowS Source #

show :: ClientReceiptGetResponse -> String Source #

showList :: [ClientReceiptGetResponse] -> ShowS Source #

Generic ClientReceiptGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Associated Types

type Rep ClientReceiptGetResponse :: Type -> Type Source #

Methods

from :: ClientReceiptGetResponse -> Rep ClientReceiptGetResponse x Source #

to :: Rep ClientReceiptGetResponse x -> ClientReceiptGetResponse Source #

ToJSON ClientReceiptGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Methods

toJSON :: ClientReceiptGetResponse -> Value Source #

toEncoding :: ClientReceiptGetResponse -> Encoding Source #

toJSONList :: [ClientReceiptGetResponse] -> Value Source #

toEncodingList :: [ClientReceiptGetResponse] -> Encoding Source #

FromJSON ClientReceiptGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Methods

parseJSON :: Value -> Parser ClientReceiptGetResponse Source #

parseJSONList :: Value -> Parser [ClientReceiptGetResponse] Source #

NFData ClientReceiptGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Methods

rnf :: ClientReceiptGetResponse -> () Source #

ToJSONPB ClientReceiptGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Methods

toJSONPB :: ClientReceiptGetResponse -> Options -> Value Source #

toEncodingPB :: ClientReceiptGetResponse -> Options -> Encoding Source #

FromJSONPB ClientReceiptGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Methods

parseJSONPB :: Value -> Parser ClientReceiptGetResponse Source #

HasDefault ClientReceiptGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Methods

def :: ClientReceiptGetResponse Source #

isDefault :: ClientReceiptGetResponse -> Bool Source #

Named ClientReceiptGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Methods

nameOf :: IsString string => Proxy# ClientReceiptGetResponse -> string Source #

Message ClientReceiptGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Methods

encodeMessage :: FieldNumber -> ClientReceiptGetResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientReceiptGetResponse Source #

dotProto :: Proxy# ClientReceiptGetResponse -> [DotProtoField] Source #

ToSchema ClientReceiptGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Methods

declareNamedSchema :: Proxy ClientReceiptGetResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientReceiptGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

type Rep ClientReceiptGetResponse = D1 ('MetaData "ClientReceiptGetResponse" "Data.Sawtooth.ClientReceipt" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "ClientReceiptGetResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "clientReceiptGetResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated ClientReceiptGetResponse_Status)) :*: S1 ('MetaSel ('Just "clientReceiptGetResponseReceipts") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector TransactionReceipt))))

data ClientReceiptGetResponse_Status Source #

Constructors

ClientReceiptGetResponse_StatusSTATUS_UNSET 
ClientReceiptGetResponse_StatusOK 
ClientReceiptGetResponse_StatusINTERNAL_ERROR 
ClientReceiptGetResponse_StatusNO_RESOURCE 
ClientReceiptGetResponse_StatusINVALID_ID 

Instances

Instances details
Bounded ClientReceiptGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Methods

minBound :: ClientReceiptGetResponse_Status Source #

maxBound :: ClientReceiptGetResponse_Status Source #

Eq ClientReceiptGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Methods

(==) :: ClientReceiptGetResponse_Status -> ClientReceiptGetResponse_Status -> Bool Source #

(/=) :: ClientReceiptGetResponse_Status -> ClientReceiptGetResponse_Status -> Bool Source #

Ord ClientReceiptGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Methods

compare :: ClientReceiptGetResponse_Status -> ClientReceiptGetResponse_Status -> Ordering Source #

(<) :: ClientReceiptGetResponse_Status -> ClientReceiptGetResponse_Status -> Bool Source #

(<=) :: ClientReceiptGetResponse_Status -> ClientReceiptGetResponse_Status -> Bool Source #

(>) :: ClientReceiptGetResponse_Status -> ClientReceiptGetResponse_Status -> Bool Source #

(>=) :: ClientReceiptGetResponse_Status -> ClientReceiptGetResponse_Status -> Bool Source #

max :: ClientReceiptGetResponse_Status -> ClientReceiptGetResponse_Status -> ClientReceiptGetResponse_Status Source #

min :: ClientReceiptGetResponse_Status -> ClientReceiptGetResponse_Status -> ClientReceiptGetResponse_Status Source #

Show ClientReceiptGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Methods

showsPrec :: Int -> ClientReceiptGetResponse_Status -> ShowS Source #

show :: ClientReceiptGetResponse_Status -> String Source #

showList :: [ClientReceiptGetResponse_Status] -> ShowS Source #

Generic ClientReceiptGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Associated Types

type Rep ClientReceiptGetResponse_Status :: Type -> Type Source #

Methods

from :: ClientReceiptGetResponse_Status -> Rep ClientReceiptGetResponse_Status x Source #

to :: Rep ClientReceiptGetResponse_Status x -> ClientReceiptGetResponse_Status Source #

ToJSON ClientReceiptGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Methods

toJSON :: ClientReceiptGetResponse_Status -> Value Source #

toEncoding :: ClientReceiptGetResponse_Status -> Encoding Source #

toJSONList :: [ClientReceiptGetResponse_Status] -> Value Source #

toEncodingList :: [ClientReceiptGetResponse_Status] -> Encoding Source #

FromJSON ClientReceiptGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Methods

parseJSON :: Value -> Parser ClientReceiptGetResponse_Status Source #

parseJSONList :: Value -> Parser [ClientReceiptGetResponse_Status] Source #

NFData ClientReceiptGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Methods

rnf :: ClientReceiptGetResponse_Status -> () Source #

ProtoEnum ClientReceiptGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Methods

toProtoEnumMay :: Int32 -> Maybe ClientReceiptGetResponse_Status Source #

fromProtoEnum :: ClientReceiptGetResponse_Status -> Int32 Source #

ToJSONPB ClientReceiptGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Methods

toJSONPB :: ClientReceiptGetResponse_Status -> Options -> Value Source #

toEncodingPB :: ClientReceiptGetResponse_Status -> Options -> Encoding Source #

FromJSONPB ClientReceiptGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Methods

parseJSONPB :: Value -> Parser ClientReceiptGetResponse_Status Source #

HasDefault ClientReceiptGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Methods

def :: ClientReceiptGetResponse_Status Source #

isDefault :: ClientReceiptGetResponse_Status -> Bool Source #

Named ClientReceiptGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Methods

nameOf :: IsString string => Proxy# ClientReceiptGetResponse_Status -> string Source #

Finite ClientReceiptGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

Methods

enumerate :: IsString string => Proxy# ClientReceiptGetResponse_Status -> [(string, Int32)] Source #

type Rep ClientReceiptGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientReceipt

type Rep ClientReceiptGetResponse_Status = D1 ('MetaData "ClientReceiptGetResponse_Status" "Data.Sawtooth.ClientReceipt" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) ((C1 ('MetaCons "ClientReceiptGetResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientReceiptGetResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ClientReceiptGetResponse_StatusINTERNAL_ERROR" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "ClientReceiptGetResponse_StatusNO_RESOURCE" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientReceiptGetResponse_StatusINVALID_ID" 'PrefixI 'False) (U1 :: Type -> Type))))
\ No newline at end of file diff --git a/Data-Sawtooth-ClientState.html b/Data-Sawtooth-ClientState.html index f5f969a..76ac24c 100644 --- a/Data-Sawtooth-ClientState.html +++ b/Data-Sawtooth-ClientState.html @@ -1 +1 @@ -Data.Sawtooth.ClientState
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types
Safe HaskellNone
LanguageHaskell2010

Data.Sawtooth.ClientState

Description

Generated by Haskell protocol buffer compiler. DO NOT EDIT!

Documentation

data ClientStateListRequest Source #

Constructors

ClientStateListRequest 

Fields

Instances

Instances details
Eq ClientStateListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

(==) :: ClientStateListRequest -> ClientStateListRequest -> Bool Source #

(/=) :: ClientStateListRequest -> ClientStateListRequest -> Bool Source #

Ord ClientStateListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

compare :: ClientStateListRequest -> ClientStateListRequest -> Ordering Source #

(<) :: ClientStateListRequest -> ClientStateListRequest -> Bool Source #

(<=) :: ClientStateListRequest -> ClientStateListRequest -> Bool Source #

(>) :: ClientStateListRequest -> ClientStateListRequest -> Bool Source #

(>=) :: ClientStateListRequest -> ClientStateListRequest -> Bool Source #

max :: ClientStateListRequest -> ClientStateListRequest -> ClientStateListRequest Source #

min :: ClientStateListRequest -> ClientStateListRequest -> ClientStateListRequest Source #

Show ClientStateListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

showsPrec :: Int -> ClientStateListRequest -> ShowS Source #

show :: ClientStateListRequest -> String Source #

showList :: [ClientStateListRequest] -> ShowS Source #

Generic ClientStateListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Associated Types

type Rep ClientStateListRequest :: Type -> Type Source #

Methods

from :: ClientStateListRequest -> Rep ClientStateListRequest x Source #

to :: Rep ClientStateListRequest x -> ClientStateListRequest Source #

ToJSON ClientStateListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

toJSON :: ClientStateListRequest -> Value Source #

toEncoding :: ClientStateListRequest -> Encoding Source #

toJSONList :: [ClientStateListRequest] -> Value Source #

toEncodingList :: [ClientStateListRequest] -> Encoding Source #

FromJSON ClientStateListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

parseJSON :: Value -> Parser ClientStateListRequest Source #

parseJSONList :: Value -> Parser [ClientStateListRequest] Source #

NFData ClientStateListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

rnf :: ClientStateListRequest -> () Source #

ToJSONPB ClientStateListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

toJSONPB :: ClientStateListRequest -> Options -> Value Source #

toEncodingPB :: ClientStateListRequest -> Options -> Encoding Source #

FromJSONPB ClientStateListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

parseJSONPB :: Value -> Parser ClientStateListRequest Source #

HasDefault ClientStateListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

def :: ClientStateListRequest Source #

isDefault :: ClientStateListRequest -> Bool Source #

Named ClientStateListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

nameOf :: IsString string => Proxy# ClientStateListRequest -> string Source #

Message ClientStateListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

encodeMessage :: FieldNumber -> ClientStateListRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientStateListRequest Source #

dotProto :: Proxy# ClientStateListRequest -> [DotProtoField] Source #

ToSchema ClientStateListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

declareNamedSchema :: Proxy ClientStateListRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientStateListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientState

type Rep ClientStateListRequest = D1 ('MetaData "ClientStateListRequest" "Data.Sawtooth.ClientState" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "ClientStateListRequest" 'PrefixI 'True) ((S1 ('MetaSel ('Just "clientStateListRequestStateRoot") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "clientStateListRequestAddress") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)) :*: (S1 ('MetaSel ('Just "clientStateListRequestPaging") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe ClientPagingControls)) :*: S1 ('MetaSel ('Just "clientStateListRequestSorting") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector ClientSortControls)))))

data ClientStateListResponse Source #

Constructors

ClientStateListResponse 

Fields

Instances

Instances details
Eq ClientStateListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

(==) :: ClientStateListResponse -> ClientStateListResponse -> Bool Source #

(/=) :: ClientStateListResponse -> ClientStateListResponse -> Bool Source #

Ord ClientStateListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

compare :: ClientStateListResponse -> ClientStateListResponse -> Ordering Source #

(<) :: ClientStateListResponse -> ClientStateListResponse -> Bool Source #

(<=) :: ClientStateListResponse -> ClientStateListResponse -> Bool Source #

(>) :: ClientStateListResponse -> ClientStateListResponse -> Bool Source #

(>=) :: ClientStateListResponse -> ClientStateListResponse -> Bool Source #

max :: ClientStateListResponse -> ClientStateListResponse -> ClientStateListResponse Source #

min :: ClientStateListResponse -> ClientStateListResponse -> ClientStateListResponse Source #

Show ClientStateListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

showsPrec :: Int -> ClientStateListResponse -> ShowS Source #

show :: ClientStateListResponse -> String Source #

showList :: [ClientStateListResponse] -> ShowS Source #

Generic ClientStateListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Associated Types

type Rep ClientStateListResponse :: Type -> Type Source #

Methods

from :: ClientStateListResponse -> Rep ClientStateListResponse x Source #

to :: Rep ClientStateListResponse x -> ClientStateListResponse Source #

ToJSON ClientStateListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

toJSON :: ClientStateListResponse -> Value Source #

toEncoding :: ClientStateListResponse -> Encoding Source #

toJSONList :: [ClientStateListResponse] -> Value Source #

toEncodingList :: [ClientStateListResponse] -> Encoding Source #

FromJSON ClientStateListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

parseJSON :: Value -> Parser ClientStateListResponse Source #

parseJSONList :: Value -> Parser [ClientStateListResponse] Source #

NFData ClientStateListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

rnf :: ClientStateListResponse -> () Source #

ToJSONPB ClientStateListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

toJSONPB :: ClientStateListResponse -> Options -> Value Source #

toEncodingPB :: ClientStateListResponse -> Options -> Encoding Source #

FromJSONPB ClientStateListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

parseJSONPB :: Value -> Parser ClientStateListResponse Source #

HasDefault ClientStateListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

def :: ClientStateListResponse Source #

isDefault :: ClientStateListResponse -> Bool Source #

Named ClientStateListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

nameOf :: IsString string => Proxy# ClientStateListResponse -> string Source #

Message ClientStateListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

encodeMessage :: FieldNumber -> ClientStateListResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientStateListResponse Source #

dotProto :: Proxy# ClientStateListResponse -> [DotProtoField] Source #

ToSchema ClientStateListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

declareNamedSchema :: Proxy ClientStateListResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientStateListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientState

type Rep ClientStateListResponse = D1 ('MetaData "ClientStateListResponse" "Data.Sawtooth.ClientState" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "ClientStateListResponse" 'PrefixI 'True) ((S1 ('MetaSel ('Just "clientStateListResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated ClientStateListResponse_Status)) :*: S1 ('MetaSel ('Just "clientStateListResponseEntries") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector ClientStateListResponse_Entry))) :*: (S1 ('MetaSel ('Just "clientStateListResponseStateRoot") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "clientStateListResponsePaging") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe ClientPagingResponse)))))

data ClientStateListResponse_Status Source #

Constructors

ClientStateListResponse_StatusSTATUS_UNSET 
ClientStateListResponse_StatusOK 
ClientStateListResponse_StatusINTERNAL_ERROR 
ClientStateListResponse_StatusNOT_READY 
ClientStateListResponse_StatusNO_ROOT 
ClientStateListResponse_StatusNO_RESOURCE 
ClientStateListResponse_StatusINVALID_PAGING 
ClientStateListResponse_StatusINVALID_SORT 
ClientStateListResponse_StatusINVALID_ADDRESS 
ClientStateListResponse_StatusINVALID_ROOT 

Instances

Instances details
Bounded ClientStateListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

minBound :: ClientStateListResponse_Status Source #

maxBound :: ClientStateListResponse_Status Source #

Eq ClientStateListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

(==) :: ClientStateListResponse_Status -> ClientStateListResponse_Status -> Bool Source #

(/=) :: ClientStateListResponse_Status -> ClientStateListResponse_Status -> Bool Source #

Ord ClientStateListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

compare :: ClientStateListResponse_Status -> ClientStateListResponse_Status -> Ordering Source #

(<) :: ClientStateListResponse_Status -> ClientStateListResponse_Status -> Bool Source #

(<=) :: ClientStateListResponse_Status -> ClientStateListResponse_Status -> Bool Source #

(>) :: ClientStateListResponse_Status -> ClientStateListResponse_Status -> Bool Source #

(>=) :: ClientStateListResponse_Status -> ClientStateListResponse_Status -> Bool Source #

max :: ClientStateListResponse_Status -> ClientStateListResponse_Status -> ClientStateListResponse_Status Source #

min :: ClientStateListResponse_Status -> ClientStateListResponse_Status -> ClientStateListResponse_Status Source #

Show ClientStateListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

showsPrec :: Int -> ClientStateListResponse_Status -> ShowS Source #

show :: ClientStateListResponse_Status -> String Source #

showList :: [ClientStateListResponse_Status] -> ShowS Source #

Generic ClientStateListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Associated Types

type Rep ClientStateListResponse_Status :: Type -> Type Source #

Methods

from :: ClientStateListResponse_Status -> Rep ClientStateListResponse_Status x Source #

to :: Rep ClientStateListResponse_Status x -> ClientStateListResponse_Status Source #

ToJSON ClientStateListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

toJSON :: ClientStateListResponse_Status -> Value Source #

toEncoding :: ClientStateListResponse_Status -> Encoding Source #

toJSONList :: [ClientStateListResponse_Status] -> Value Source #

toEncodingList :: [ClientStateListResponse_Status] -> Encoding Source #

FromJSON ClientStateListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

parseJSON :: Value -> Parser ClientStateListResponse_Status Source #

parseJSONList :: Value -> Parser [ClientStateListResponse_Status] Source #

NFData ClientStateListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

rnf :: ClientStateListResponse_Status -> () Source #

ProtoEnum ClientStateListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

toProtoEnumMay :: Int32 -> Maybe ClientStateListResponse_Status Source #

fromProtoEnum :: ClientStateListResponse_Status -> Int32 Source #

ToJSONPB ClientStateListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

toJSONPB :: ClientStateListResponse_Status -> Options -> Value Source #

toEncodingPB :: ClientStateListResponse_Status -> Options -> Encoding Source #

FromJSONPB ClientStateListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

parseJSONPB :: Value -> Parser ClientStateListResponse_Status Source #

HasDefault ClientStateListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

def :: ClientStateListResponse_Status Source #

isDefault :: ClientStateListResponse_Status -> Bool Source #

Named ClientStateListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

nameOf :: IsString string => Proxy# ClientStateListResponse_Status -> string Source #

Finite ClientStateListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

enumerate :: IsString string => Proxy# ClientStateListResponse_Status -> [(string, Int32)] Source #

type Rep ClientStateListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientState

type Rep ClientStateListResponse_Status = D1 ('MetaData "ClientStateListResponse_Status" "Data.Sawtooth.ClientState" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (((C1 ('MetaCons "ClientStateListResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientStateListResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ClientStateListResponse_StatusINTERNAL_ERROR" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "ClientStateListResponse_StatusNOT_READY" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientStateListResponse_StatusNO_ROOT" 'PrefixI 'False) (U1 :: Type -> Type)))) :+: ((C1 ('MetaCons "ClientStateListResponse_StatusNO_RESOURCE" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientStateListResponse_StatusINVALID_PAGING" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ClientStateListResponse_StatusINVALID_SORT" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "ClientStateListResponse_StatusINVALID_ADDRESS" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientStateListResponse_StatusINVALID_ROOT" 'PrefixI 'False) (U1 :: Type -> Type)))))

data ClientStateListResponse_Entry Source #

Constructors

ClientStateListResponse_Entry 

Fields

Instances

Instances details
Eq ClientStateListResponse_Entry Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

(==) :: ClientStateListResponse_Entry -> ClientStateListResponse_Entry -> Bool Source #

(/=) :: ClientStateListResponse_Entry -> ClientStateListResponse_Entry -> Bool Source #

Ord ClientStateListResponse_Entry Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

compare :: ClientStateListResponse_Entry -> ClientStateListResponse_Entry -> Ordering Source #

(<) :: ClientStateListResponse_Entry -> ClientStateListResponse_Entry -> Bool Source #

(<=) :: ClientStateListResponse_Entry -> ClientStateListResponse_Entry -> Bool Source #

(>) :: ClientStateListResponse_Entry -> ClientStateListResponse_Entry -> Bool Source #

(>=) :: ClientStateListResponse_Entry -> ClientStateListResponse_Entry -> Bool Source #

max :: ClientStateListResponse_Entry -> ClientStateListResponse_Entry -> ClientStateListResponse_Entry Source #

min :: ClientStateListResponse_Entry -> ClientStateListResponse_Entry -> ClientStateListResponse_Entry Source #

Show ClientStateListResponse_Entry Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

showsPrec :: Int -> ClientStateListResponse_Entry -> ShowS Source #

show :: ClientStateListResponse_Entry -> String Source #

showList :: [ClientStateListResponse_Entry] -> ShowS Source #

Generic ClientStateListResponse_Entry Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Associated Types

type Rep ClientStateListResponse_Entry :: Type -> Type Source #

Methods

from :: ClientStateListResponse_Entry -> Rep ClientStateListResponse_Entry x Source #

to :: Rep ClientStateListResponse_Entry x -> ClientStateListResponse_Entry Source #

ToJSON ClientStateListResponse_Entry Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

toJSON :: ClientStateListResponse_Entry -> Value Source #

toEncoding :: ClientStateListResponse_Entry -> Encoding Source #

toJSONList :: [ClientStateListResponse_Entry] -> Value Source #

toEncodingList :: [ClientStateListResponse_Entry] -> Encoding Source #

FromJSON ClientStateListResponse_Entry Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

parseJSON :: Value -> Parser ClientStateListResponse_Entry Source #

parseJSONList :: Value -> Parser [ClientStateListResponse_Entry] Source #

NFData ClientStateListResponse_Entry Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

rnf :: ClientStateListResponse_Entry -> () Source #

ToJSONPB ClientStateListResponse_Entry Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

toJSONPB :: ClientStateListResponse_Entry -> Options -> Value Source #

toEncodingPB :: ClientStateListResponse_Entry -> Options -> Encoding Source #

FromJSONPB ClientStateListResponse_Entry Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

parseJSONPB :: Value -> Parser ClientStateListResponse_Entry Source #

HasDefault ClientStateListResponse_Entry Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

def :: ClientStateListResponse_Entry Source #

isDefault :: ClientStateListResponse_Entry -> Bool Source #

Named ClientStateListResponse_Entry Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

nameOf :: IsString string => Proxy# ClientStateListResponse_Entry -> string Source #

Message ClientStateListResponse_Entry Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

encodeMessage :: FieldNumber -> ClientStateListResponse_Entry -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientStateListResponse_Entry Source #

dotProto :: Proxy# ClientStateListResponse_Entry -> [DotProtoField] Source #

ToSchema ClientStateListResponse_Entry Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

declareNamedSchema :: Proxy ClientStateListResponse_Entry -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientStateListResponse_Entry Source # 
Instance details

Defined in Data.Sawtooth.ClientState

type Rep ClientStateListResponse_Entry = D1 ('MetaData "ClientStateListResponse_Entry" "Data.Sawtooth.ClientState" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "ClientStateListResponse_Entry" 'PrefixI 'True) (S1 ('MetaSel ('Just "clientStateListResponse_EntryAddress") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "clientStateListResponse_EntryData") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString)))

data ClientStateGetRequest Source #

Constructors

ClientStateGetRequest 

Fields

Instances

Instances details
Eq ClientStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

(==) :: ClientStateGetRequest -> ClientStateGetRequest -> Bool Source #

(/=) :: ClientStateGetRequest -> ClientStateGetRequest -> Bool Source #

Ord ClientStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

compare :: ClientStateGetRequest -> ClientStateGetRequest -> Ordering Source #

(<) :: ClientStateGetRequest -> ClientStateGetRequest -> Bool Source #

(<=) :: ClientStateGetRequest -> ClientStateGetRequest -> Bool Source #

(>) :: ClientStateGetRequest -> ClientStateGetRequest -> Bool Source #

(>=) :: ClientStateGetRequest -> ClientStateGetRequest -> Bool Source #

max :: ClientStateGetRequest -> ClientStateGetRequest -> ClientStateGetRequest Source #

min :: ClientStateGetRequest -> ClientStateGetRequest -> ClientStateGetRequest Source #

Show ClientStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

showsPrec :: Int -> ClientStateGetRequest -> ShowS Source #

show :: ClientStateGetRequest -> String Source #

showList :: [ClientStateGetRequest] -> ShowS Source #

Generic ClientStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Associated Types

type Rep ClientStateGetRequest :: Type -> Type Source #

Methods

from :: ClientStateGetRequest -> Rep ClientStateGetRequest x Source #

to :: Rep ClientStateGetRequest x -> ClientStateGetRequest Source #

ToJSON ClientStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

toJSON :: ClientStateGetRequest -> Value Source #

toEncoding :: ClientStateGetRequest -> Encoding Source #

toJSONList :: [ClientStateGetRequest] -> Value Source #

toEncodingList :: [ClientStateGetRequest] -> Encoding Source #

FromJSON ClientStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

parseJSON :: Value -> Parser ClientStateGetRequest Source #

parseJSONList :: Value -> Parser [ClientStateGetRequest] Source #

NFData ClientStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

rnf :: ClientStateGetRequest -> () Source #

ToJSONPB ClientStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

toJSONPB :: ClientStateGetRequest -> Options -> Value Source #

toEncodingPB :: ClientStateGetRequest -> Options -> Encoding Source #

FromJSONPB ClientStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

parseJSONPB :: Value -> Parser ClientStateGetRequest Source #

HasDefault ClientStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

def :: ClientStateGetRequest Source #

isDefault :: ClientStateGetRequest -> Bool Source #

Named ClientStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

nameOf :: IsString string => Proxy# ClientStateGetRequest -> string Source #

Message ClientStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

encodeMessage :: FieldNumber -> ClientStateGetRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientStateGetRequest Source #

dotProto :: Proxy# ClientStateGetRequest -> [DotProtoField] Source #

ToSchema ClientStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

declareNamedSchema :: Proxy ClientStateGetRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientState

type Rep ClientStateGetRequest = D1 ('MetaData "ClientStateGetRequest" "Data.Sawtooth.ClientState" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "ClientStateGetRequest" 'PrefixI 'True) (S1 ('MetaSel ('Just "clientStateGetRequestStateRoot") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "clientStateGetRequestAddress") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)))

data ClientStateGetResponse Source #

Constructors

ClientStateGetResponse 

Fields

Instances

Instances details
Eq ClientStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

(==) :: ClientStateGetResponse -> ClientStateGetResponse -> Bool Source #

(/=) :: ClientStateGetResponse -> ClientStateGetResponse -> Bool Source #

Ord ClientStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

compare :: ClientStateGetResponse -> ClientStateGetResponse -> Ordering Source #

(<) :: ClientStateGetResponse -> ClientStateGetResponse -> Bool Source #

(<=) :: ClientStateGetResponse -> ClientStateGetResponse -> Bool Source #

(>) :: ClientStateGetResponse -> ClientStateGetResponse -> Bool Source #

(>=) :: ClientStateGetResponse -> ClientStateGetResponse -> Bool Source #

max :: ClientStateGetResponse -> ClientStateGetResponse -> ClientStateGetResponse Source #

min :: ClientStateGetResponse -> ClientStateGetResponse -> ClientStateGetResponse Source #

Show ClientStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

showsPrec :: Int -> ClientStateGetResponse -> ShowS Source #

show :: ClientStateGetResponse -> String Source #

showList :: [ClientStateGetResponse] -> ShowS Source #

Generic ClientStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Associated Types

type Rep ClientStateGetResponse :: Type -> Type Source #

Methods

from :: ClientStateGetResponse -> Rep ClientStateGetResponse x Source #

to :: Rep ClientStateGetResponse x -> ClientStateGetResponse Source #

ToJSON ClientStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

toJSON :: ClientStateGetResponse -> Value Source #

toEncoding :: ClientStateGetResponse -> Encoding Source #

toJSONList :: [ClientStateGetResponse] -> Value Source #

toEncodingList :: [ClientStateGetResponse] -> Encoding Source #

FromJSON ClientStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

parseJSON :: Value -> Parser ClientStateGetResponse Source #

parseJSONList :: Value -> Parser [ClientStateGetResponse] Source #

NFData ClientStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

rnf :: ClientStateGetResponse -> () Source #

ToJSONPB ClientStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

toJSONPB :: ClientStateGetResponse -> Options -> Value Source #

toEncodingPB :: ClientStateGetResponse -> Options -> Encoding Source #

FromJSONPB ClientStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

parseJSONPB :: Value -> Parser ClientStateGetResponse Source #

HasDefault ClientStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

def :: ClientStateGetResponse Source #

isDefault :: ClientStateGetResponse -> Bool Source #

Named ClientStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

nameOf :: IsString string => Proxy# ClientStateGetResponse -> string Source #

Message ClientStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

encodeMessage :: FieldNumber -> ClientStateGetResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientStateGetResponse Source #

dotProto :: Proxy# ClientStateGetResponse -> [DotProtoField] Source #

ToSchema ClientStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

declareNamedSchema :: Proxy ClientStateGetResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientState

type Rep ClientStateGetResponse = D1 ('MetaData "ClientStateGetResponse" "Data.Sawtooth.ClientState" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "ClientStateGetResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "clientStateGetResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated ClientStateGetResponse_Status)) :*: (S1 ('MetaSel ('Just "clientStateGetResponseValue") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString) :*: S1 ('MetaSel ('Just "clientStateGetResponseStateRoot") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text))))

data ClientStateGetResponse_Status Source #

Constructors

ClientStateGetResponse_StatusSTATUS_UNSET 
ClientStateGetResponse_StatusOK 
ClientStateGetResponse_StatusINTERNAL_ERROR 
ClientStateGetResponse_StatusNOT_READY 
ClientStateGetResponse_StatusNO_ROOT 
ClientStateGetResponse_StatusNO_RESOURCE 
ClientStateGetResponse_StatusINVALID_ADDRESS 
ClientStateGetResponse_StatusINVALID_ROOT 

Instances

Instances details
Bounded ClientStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

minBound :: ClientStateGetResponse_Status Source #

maxBound :: ClientStateGetResponse_Status Source #

Eq ClientStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

(==) :: ClientStateGetResponse_Status -> ClientStateGetResponse_Status -> Bool Source #

(/=) :: ClientStateGetResponse_Status -> ClientStateGetResponse_Status -> Bool Source #

Ord ClientStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

compare :: ClientStateGetResponse_Status -> ClientStateGetResponse_Status -> Ordering Source #

(<) :: ClientStateGetResponse_Status -> ClientStateGetResponse_Status -> Bool Source #

(<=) :: ClientStateGetResponse_Status -> ClientStateGetResponse_Status -> Bool Source #

(>) :: ClientStateGetResponse_Status -> ClientStateGetResponse_Status -> Bool Source #

(>=) :: ClientStateGetResponse_Status -> ClientStateGetResponse_Status -> Bool Source #

max :: ClientStateGetResponse_Status -> ClientStateGetResponse_Status -> ClientStateGetResponse_Status Source #

min :: ClientStateGetResponse_Status -> ClientStateGetResponse_Status -> ClientStateGetResponse_Status Source #

Show ClientStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

showsPrec :: Int -> ClientStateGetResponse_Status -> ShowS Source #

show :: ClientStateGetResponse_Status -> String Source #

showList :: [ClientStateGetResponse_Status] -> ShowS Source #

Generic ClientStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Associated Types

type Rep ClientStateGetResponse_Status :: Type -> Type Source #

Methods

from :: ClientStateGetResponse_Status -> Rep ClientStateGetResponse_Status x Source #

to :: Rep ClientStateGetResponse_Status x -> ClientStateGetResponse_Status Source #

ToJSON ClientStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

toJSON :: ClientStateGetResponse_Status -> Value Source #

toEncoding :: ClientStateGetResponse_Status -> Encoding Source #

toJSONList :: [ClientStateGetResponse_Status] -> Value Source #

toEncodingList :: [ClientStateGetResponse_Status] -> Encoding Source #

FromJSON ClientStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

parseJSON :: Value -> Parser ClientStateGetResponse_Status Source #

parseJSONList :: Value -> Parser [ClientStateGetResponse_Status] Source #

NFData ClientStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

rnf :: ClientStateGetResponse_Status -> () Source #

ProtoEnum ClientStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

toProtoEnumMay :: Int32 -> Maybe ClientStateGetResponse_Status Source #

fromProtoEnum :: ClientStateGetResponse_Status -> Int32 Source #

ToJSONPB ClientStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

toJSONPB :: ClientStateGetResponse_Status -> Options -> Value Source #

toEncodingPB :: ClientStateGetResponse_Status -> Options -> Encoding Source #

FromJSONPB ClientStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

parseJSONPB :: Value -> Parser ClientStateGetResponse_Status Source #

HasDefault ClientStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

def :: ClientStateGetResponse_Status Source #

isDefault :: ClientStateGetResponse_Status -> Bool Source #

Named ClientStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

nameOf :: IsString string => Proxy# ClientStateGetResponse_Status -> string Source #

Finite ClientStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

enumerate :: IsString string => Proxy# ClientStateGetResponse_Status -> [(string, Int32)] Source #

type Rep ClientStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientState

type Rep ClientStateGetResponse_Status = D1 ('MetaData "ClientStateGetResponse_Status" "Data.Sawtooth.ClientState" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (((C1 ('MetaCons "ClientStateGetResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientStateGetResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ClientStateGetResponse_StatusINTERNAL_ERROR" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientStateGetResponse_StatusNOT_READY" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "ClientStateGetResponse_StatusNO_ROOT" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientStateGetResponse_StatusNO_RESOURCE" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ClientStateGetResponse_StatusINVALID_ADDRESS" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientStateGetResponse_StatusINVALID_ROOT" 'PrefixI 'False) (U1 :: Type -> Type))))
\ No newline at end of file +Data.Sawtooth.ClientState
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types
Safe HaskellNone
LanguageHaskell2010

Data.Sawtooth.ClientState

Description

Generated by Haskell protocol buffer compiler. DO NOT EDIT!

Documentation

data ClientStateListRequest Source #

Constructors

ClientStateListRequest 

Fields

Instances

Instances details
Eq ClientStateListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

(==) :: ClientStateListRequest -> ClientStateListRequest -> Bool Source #

(/=) :: ClientStateListRequest -> ClientStateListRequest -> Bool Source #

Ord ClientStateListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

compare :: ClientStateListRequest -> ClientStateListRequest -> Ordering Source #

(<) :: ClientStateListRequest -> ClientStateListRequest -> Bool Source #

(<=) :: ClientStateListRequest -> ClientStateListRequest -> Bool Source #

(>) :: ClientStateListRequest -> ClientStateListRequest -> Bool Source #

(>=) :: ClientStateListRequest -> ClientStateListRequest -> Bool Source #

max :: ClientStateListRequest -> ClientStateListRequest -> ClientStateListRequest Source #

min :: ClientStateListRequest -> ClientStateListRequest -> ClientStateListRequest Source #

Show ClientStateListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

showsPrec :: Int -> ClientStateListRequest -> ShowS Source #

show :: ClientStateListRequest -> String Source #

showList :: [ClientStateListRequest] -> ShowS Source #

Generic ClientStateListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Associated Types

type Rep ClientStateListRequest :: Type -> Type Source #

Methods

from :: ClientStateListRequest -> Rep ClientStateListRequest x Source #

to :: Rep ClientStateListRequest x -> ClientStateListRequest Source #

ToJSON ClientStateListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

toJSON :: ClientStateListRequest -> Value Source #

toEncoding :: ClientStateListRequest -> Encoding Source #

toJSONList :: [ClientStateListRequest] -> Value Source #

toEncodingList :: [ClientStateListRequest] -> Encoding Source #

FromJSON ClientStateListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

parseJSON :: Value -> Parser ClientStateListRequest Source #

parseJSONList :: Value -> Parser [ClientStateListRequest] Source #

NFData ClientStateListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

rnf :: ClientStateListRequest -> () Source #

ToJSONPB ClientStateListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

toJSONPB :: ClientStateListRequest -> Options -> Value Source #

toEncodingPB :: ClientStateListRequest -> Options -> Encoding Source #

FromJSONPB ClientStateListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

parseJSONPB :: Value -> Parser ClientStateListRequest Source #

HasDefault ClientStateListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

def :: ClientStateListRequest Source #

isDefault :: ClientStateListRequest -> Bool Source #

Named ClientStateListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

nameOf :: IsString string => Proxy# ClientStateListRequest -> string Source #

Message ClientStateListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

encodeMessage :: FieldNumber -> ClientStateListRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientStateListRequest Source #

dotProto :: Proxy# ClientStateListRequest -> [DotProtoField] Source #

ToSchema ClientStateListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

declareNamedSchema :: Proxy ClientStateListRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientStateListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientState

type Rep ClientStateListRequest = D1 ('MetaData "ClientStateListRequest" "Data.Sawtooth.ClientState" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "ClientStateListRequest" 'PrefixI 'True) ((S1 ('MetaSel ('Just "clientStateListRequestStateRoot") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "clientStateListRequestAddress") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)) :*: (S1 ('MetaSel ('Just "clientStateListRequestPaging") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe ClientPagingControls)) :*: S1 ('MetaSel ('Just "clientStateListRequestSorting") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector ClientSortControls)))))

data ClientStateListResponse Source #

Constructors

ClientStateListResponse 

Fields

Instances

Instances details
Eq ClientStateListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

(==) :: ClientStateListResponse -> ClientStateListResponse -> Bool Source #

(/=) :: ClientStateListResponse -> ClientStateListResponse -> Bool Source #

Ord ClientStateListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

compare :: ClientStateListResponse -> ClientStateListResponse -> Ordering Source #

(<) :: ClientStateListResponse -> ClientStateListResponse -> Bool Source #

(<=) :: ClientStateListResponse -> ClientStateListResponse -> Bool Source #

(>) :: ClientStateListResponse -> ClientStateListResponse -> Bool Source #

(>=) :: ClientStateListResponse -> ClientStateListResponse -> Bool Source #

max :: ClientStateListResponse -> ClientStateListResponse -> ClientStateListResponse Source #

min :: ClientStateListResponse -> ClientStateListResponse -> ClientStateListResponse Source #

Show ClientStateListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

showsPrec :: Int -> ClientStateListResponse -> ShowS Source #

show :: ClientStateListResponse -> String Source #

showList :: [ClientStateListResponse] -> ShowS Source #

Generic ClientStateListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Associated Types

type Rep ClientStateListResponse :: Type -> Type Source #

Methods

from :: ClientStateListResponse -> Rep ClientStateListResponse x Source #

to :: Rep ClientStateListResponse x -> ClientStateListResponse Source #

ToJSON ClientStateListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

toJSON :: ClientStateListResponse -> Value Source #

toEncoding :: ClientStateListResponse -> Encoding Source #

toJSONList :: [ClientStateListResponse] -> Value Source #

toEncodingList :: [ClientStateListResponse] -> Encoding Source #

FromJSON ClientStateListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

parseJSON :: Value -> Parser ClientStateListResponse Source #

parseJSONList :: Value -> Parser [ClientStateListResponse] Source #

NFData ClientStateListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

rnf :: ClientStateListResponse -> () Source #

ToJSONPB ClientStateListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

toJSONPB :: ClientStateListResponse -> Options -> Value Source #

toEncodingPB :: ClientStateListResponse -> Options -> Encoding Source #

FromJSONPB ClientStateListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

parseJSONPB :: Value -> Parser ClientStateListResponse Source #

HasDefault ClientStateListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

def :: ClientStateListResponse Source #

isDefault :: ClientStateListResponse -> Bool Source #

Named ClientStateListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

nameOf :: IsString string => Proxy# ClientStateListResponse -> string Source #

Message ClientStateListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

encodeMessage :: FieldNumber -> ClientStateListResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientStateListResponse Source #

dotProto :: Proxy# ClientStateListResponse -> [DotProtoField] Source #

ToSchema ClientStateListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

declareNamedSchema :: Proxy ClientStateListResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientStateListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientState

type Rep ClientStateListResponse = D1 ('MetaData "ClientStateListResponse" "Data.Sawtooth.ClientState" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "ClientStateListResponse" 'PrefixI 'True) ((S1 ('MetaSel ('Just "clientStateListResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated ClientStateListResponse_Status)) :*: S1 ('MetaSel ('Just "clientStateListResponseEntries") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector ClientStateListResponse_Entry))) :*: (S1 ('MetaSel ('Just "clientStateListResponseStateRoot") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "clientStateListResponsePaging") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe ClientPagingResponse)))))

data ClientStateListResponse_Status Source #

Constructors

ClientStateListResponse_StatusSTATUS_UNSET 
ClientStateListResponse_StatusOK 
ClientStateListResponse_StatusINTERNAL_ERROR 
ClientStateListResponse_StatusNOT_READY 
ClientStateListResponse_StatusNO_ROOT 
ClientStateListResponse_StatusNO_RESOURCE 
ClientStateListResponse_StatusINVALID_PAGING 
ClientStateListResponse_StatusINVALID_SORT 
ClientStateListResponse_StatusINVALID_ADDRESS 
ClientStateListResponse_StatusINVALID_ROOT 

Instances

Instances details
Bounded ClientStateListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

minBound :: ClientStateListResponse_Status Source #

maxBound :: ClientStateListResponse_Status Source #

Eq ClientStateListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

(==) :: ClientStateListResponse_Status -> ClientStateListResponse_Status -> Bool Source #

(/=) :: ClientStateListResponse_Status -> ClientStateListResponse_Status -> Bool Source #

Ord ClientStateListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

compare :: ClientStateListResponse_Status -> ClientStateListResponse_Status -> Ordering Source #

(<) :: ClientStateListResponse_Status -> ClientStateListResponse_Status -> Bool Source #

(<=) :: ClientStateListResponse_Status -> ClientStateListResponse_Status -> Bool Source #

(>) :: ClientStateListResponse_Status -> ClientStateListResponse_Status -> Bool Source #

(>=) :: ClientStateListResponse_Status -> ClientStateListResponse_Status -> Bool Source #

max :: ClientStateListResponse_Status -> ClientStateListResponse_Status -> ClientStateListResponse_Status Source #

min :: ClientStateListResponse_Status -> ClientStateListResponse_Status -> ClientStateListResponse_Status Source #

Show ClientStateListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

showsPrec :: Int -> ClientStateListResponse_Status -> ShowS Source #

show :: ClientStateListResponse_Status -> String Source #

showList :: [ClientStateListResponse_Status] -> ShowS Source #

Generic ClientStateListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Associated Types

type Rep ClientStateListResponse_Status :: Type -> Type Source #

Methods

from :: ClientStateListResponse_Status -> Rep ClientStateListResponse_Status x Source #

to :: Rep ClientStateListResponse_Status x -> ClientStateListResponse_Status Source #

ToJSON ClientStateListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

toJSON :: ClientStateListResponse_Status -> Value Source #

toEncoding :: ClientStateListResponse_Status -> Encoding Source #

toJSONList :: [ClientStateListResponse_Status] -> Value Source #

toEncodingList :: [ClientStateListResponse_Status] -> Encoding Source #

FromJSON ClientStateListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

parseJSON :: Value -> Parser ClientStateListResponse_Status Source #

parseJSONList :: Value -> Parser [ClientStateListResponse_Status] Source #

NFData ClientStateListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

rnf :: ClientStateListResponse_Status -> () Source #

ProtoEnum ClientStateListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

toProtoEnumMay :: Int32 -> Maybe ClientStateListResponse_Status Source #

fromProtoEnum :: ClientStateListResponse_Status -> Int32 Source #

ToJSONPB ClientStateListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

toJSONPB :: ClientStateListResponse_Status -> Options -> Value Source #

toEncodingPB :: ClientStateListResponse_Status -> Options -> Encoding Source #

FromJSONPB ClientStateListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

parseJSONPB :: Value -> Parser ClientStateListResponse_Status Source #

HasDefault ClientStateListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

def :: ClientStateListResponse_Status Source #

isDefault :: ClientStateListResponse_Status -> Bool Source #

Named ClientStateListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

nameOf :: IsString string => Proxy# ClientStateListResponse_Status -> string Source #

Finite ClientStateListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

enumerate :: IsString string => Proxy# ClientStateListResponse_Status -> [(string, Int32)] Source #

type Rep ClientStateListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientState

type Rep ClientStateListResponse_Status = D1 ('MetaData "ClientStateListResponse_Status" "Data.Sawtooth.ClientState" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (((C1 ('MetaCons "ClientStateListResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientStateListResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ClientStateListResponse_StatusINTERNAL_ERROR" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "ClientStateListResponse_StatusNOT_READY" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientStateListResponse_StatusNO_ROOT" 'PrefixI 'False) (U1 :: Type -> Type)))) :+: ((C1 ('MetaCons "ClientStateListResponse_StatusNO_RESOURCE" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientStateListResponse_StatusINVALID_PAGING" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ClientStateListResponse_StatusINVALID_SORT" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "ClientStateListResponse_StatusINVALID_ADDRESS" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientStateListResponse_StatusINVALID_ROOT" 'PrefixI 'False) (U1 :: Type -> Type)))))

data ClientStateListResponse_Entry Source #

Constructors

ClientStateListResponse_Entry 

Fields

Instances

Instances details
Eq ClientStateListResponse_Entry Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

(==) :: ClientStateListResponse_Entry -> ClientStateListResponse_Entry -> Bool Source #

(/=) :: ClientStateListResponse_Entry -> ClientStateListResponse_Entry -> Bool Source #

Ord ClientStateListResponse_Entry Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

compare :: ClientStateListResponse_Entry -> ClientStateListResponse_Entry -> Ordering Source #

(<) :: ClientStateListResponse_Entry -> ClientStateListResponse_Entry -> Bool Source #

(<=) :: ClientStateListResponse_Entry -> ClientStateListResponse_Entry -> Bool Source #

(>) :: ClientStateListResponse_Entry -> ClientStateListResponse_Entry -> Bool Source #

(>=) :: ClientStateListResponse_Entry -> ClientStateListResponse_Entry -> Bool Source #

max :: ClientStateListResponse_Entry -> ClientStateListResponse_Entry -> ClientStateListResponse_Entry Source #

min :: ClientStateListResponse_Entry -> ClientStateListResponse_Entry -> ClientStateListResponse_Entry Source #

Show ClientStateListResponse_Entry Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

showsPrec :: Int -> ClientStateListResponse_Entry -> ShowS Source #

show :: ClientStateListResponse_Entry -> String Source #

showList :: [ClientStateListResponse_Entry] -> ShowS Source #

Generic ClientStateListResponse_Entry Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Associated Types

type Rep ClientStateListResponse_Entry :: Type -> Type Source #

Methods

from :: ClientStateListResponse_Entry -> Rep ClientStateListResponse_Entry x Source #

to :: Rep ClientStateListResponse_Entry x -> ClientStateListResponse_Entry Source #

ToJSON ClientStateListResponse_Entry Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

toJSON :: ClientStateListResponse_Entry -> Value Source #

toEncoding :: ClientStateListResponse_Entry -> Encoding Source #

toJSONList :: [ClientStateListResponse_Entry] -> Value Source #

toEncodingList :: [ClientStateListResponse_Entry] -> Encoding Source #

FromJSON ClientStateListResponse_Entry Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

parseJSON :: Value -> Parser ClientStateListResponse_Entry Source #

parseJSONList :: Value -> Parser [ClientStateListResponse_Entry] Source #

NFData ClientStateListResponse_Entry Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

rnf :: ClientStateListResponse_Entry -> () Source #

ToJSONPB ClientStateListResponse_Entry Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

toJSONPB :: ClientStateListResponse_Entry -> Options -> Value Source #

toEncodingPB :: ClientStateListResponse_Entry -> Options -> Encoding Source #

FromJSONPB ClientStateListResponse_Entry Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

parseJSONPB :: Value -> Parser ClientStateListResponse_Entry Source #

HasDefault ClientStateListResponse_Entry Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

def :: ClientStateListResponse_Entry Source #

isDefault :: ClientStateListResponse_Entry -> Bool Source #

Named ClientStateListResponse_Entry Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

nameOf :: IsString string => Proxy# ClientStateListResponse_Entry -> string Source #

Message ClientStateListResponse_Entry Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

encodeMessage :: FieldNumber -> ClientStateListResponse_Entry -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientStateListResponse_Entry Source #

dotProto :: Proxy# ClientStateListResponse_Entry -> [DotProtoField] Source #

ToSchema ClientStateListResponse_Entry Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

declareNamedSchema :: Proxy ClientStateListResponse_Entry -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientStateListResponse_Entry Source # 
Instance details

Defined in Data.Sawtooth.ClientState

type Rep ClientStateListResponse_Entry = D1 ('MetaData "ClientStateListResponse_Entry" "Data.Sawtooth.ClientState" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "ClientStateListResponse_Entry" 'PrefixI 'True) (S1 ('MetaSel ('Just "clientStateListResponse_EntryAddress") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "clientStateListResponse_EntryData") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString)))

data ClientStateGetRequest Source #

Constructors

ClientStateGetRequest 

Fields

Instances

Instances details
Eq ClientStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

(==) :: ClientStateGetRequest -> ClientStateGetRequest -> Bool Source #

(/=) :: ClientStateGetRequest -> ClientStateGetRequest -> Bool Source #

Ord ClientStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

compare :: ClientStateGetRequest -> ClientStateGetRequest -> Ordering Source #

(<) :: ClientStateGetRequest -> ClientStateGetRequest -> Bool Source #

(<=) :: ClientStateGetRequest -> ClientStateGetRequest -> Bool Source #

(>) :: ClientStateGetRequest -> ClientStateGetRequest -> Bool Source #

(>=) :: ClientStateGetRequest -> ClientStateGetRequest -> Bool Source #

max :: ClientStateGetRequest -> ClientStateGetRequest -> ClientStateGetRequest Source #

min :: ClientStateGetRequest -> ClientStateGetRequest -> ClientStateGetRequest Source #

Show ClientStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

showsPrec :: Int -> ClientStateGetRequest -> ShowS Source #

show :: ClientStateGetRequest -> String Source #

showList :: [ClientStateGetRequest] -> ShowS Source #

Generic ClientStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Associated Types

type Rep ClientStateGetRequest :: Type -> Type Source #

Methods

from :: ClientStateGetRequest -> Rep ClientStateGetRequest x Source #

to :: Rep ClientStateGetRequest x -> ClientStateGetRequest Source #

ToJSON ClientStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

toJSON :: ClientStateGetRequest -> Value Source #

toEncoding :: ClientStateGetRequest -> Encoding Source #

toJSONList :: [ClientStateGetRequest] -> Value Source #

toEncodingList :: [ClientStateGetRequest] -> Encoding Source #

FromJSON ClientStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

parseJSON :: Value -> Parser ClientStateGetRequest Source #

parseJSONList :: Value -> Parser [ClientStateGetRequest] Source #

NFData ClientStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

rnf :: ClientStateGetRequest -> () Source #

ToJSONPB ClientStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

toJSONPB :: ClientStateGetRequest -> Options -> Value Source #

toEncodingPB :: ClientStateGetRequest -> Options -> Encoding Source #

FromJSONPB ClientStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

parseJSONPB :: Value -> Parser ClientStateGetRequest Source #

HasDefault ClientStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

def :: ClientStateGetRequest Source #

isDefault :: ClientStateGetRequest -> Bool Source #

Named ClientStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

nameOf :: IsString string => Proxy# ClientStateGetRequest -> string Source #

Message ClientStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

encodeMessage :: FieldNumber -> ClientStateGetRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientStateGetRequest Source #

dotProto :: Proxy# ClientStateGetRequest -> [DotProtoField] Source #

ToSchema ClientStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

declareNamedSchema :: Proxy ClientStateGetRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientState

type Rep ClientStateGetRequest = D1 ('MetaData "ClientStateGetRequest" "Data.Sawtooth.ClientState" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "ClientStateGetRequest" 'PrefixI 'True) (S1 ('MetaSel ('Just "clientStateGetRequestStateRoot") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "clientStateGetRequestAddress") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)))

data ClientStateGetResponse Source #

Constructors

ClientStateGetResponse 

Fields

Instances

Instances details
Eq ClientStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

(==) :: ClientStateGetResponse -> ClientStateGetResponse -> Bool Source #

(/=) :: ClientStateGetResponse -> ClientStateGetResponse -> Bool Source #

Ord ClientStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

compare :: ClientStateGetResponse -> ClientStateGetResponse -> Ordering Source #

(<) :: ClientStateGetResponse -> ClientStateGetResponse -> Bool Source #

(<=) :: ClientStateGetResponse -> ClientStateGetResponse -> Bool Source #

(>) :: ClientStateGetResponse -> ClientStateGetResponse -> Bool Source #

(>=) :: ClientStateGetResponse -> ClientStateGetResponse -> Bool Source #

max :: ClientStateGetResponse -> ClientStateGetResponse -> ClientStateGetResponse Source #

min :: ClientStateGetResponse -> ClientStateGetResponse -> ClientStateGetResponse Source #

Show ClientStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

showsPrec :: Int -> ClientStateGetResponse -> ShowS Source #

show :: ClientStateGetResponse -> String Source #

showList :: [ClientStateGetResponse] -> ShowS Source #

Generic ClientStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Associated Types

type Rep ClientStateGetResponse :: Type -> Type Source #

Methods

from :: ClientStateGetResponse -> Rep ClientStateGetResponse x Source #

to :: Rep ClientStateGetResponse x -> ClientStateGetResponse Source #

ToJSON ClientStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

toJSON :: ClientStateGetResponse -> Value Source #

toEncoding :: ClientStateGetResponse -> Encoding Source #

toJSONList :: [ClientStateGetResponse] -> Value Source #

toEncodingList :: [ClientStateGetResponse] -> Encoding Source #

FromJSON ClientStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

parseJSON :: Value -> Parser ClientStateGetResponse Source #

parseJSONList :: Value -> Parser [ClientStateGetResponse] Source #

NFData ClientStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

rnf :: ClientStateGetResponse -> () Source #

ToJSONPB ClientStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

toJSONPB :: ClientStateGetResponse -> Options -> Value Source #

toEncodingPB :: ClientStateGetResponse -> Options -> Encoding Source #

FromJSONPB ClientStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

parseJSONPB :: Value -> Parser ClientStateGetResponse Source #

HasDefault ClientStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

def :: ClientStateGetResponse Source #

isDefault :: ClientStateGetResponse -> Bool Source #

Named ClientStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

nameOf :: IsString string => Proxy# ClientStateGetResponse -> string Source #

Message ClientStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

encodeMessage :: FieldNumber -> ClientStateGetResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientStateGetResponse Source #

dotProto :: Proxy# ClientStateGetResponse -> [DotProtoField] Source #

ToSchema ClientStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

declareNamedSchema :: Proxy ClientStateGetResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientState

type Rep ClientStateGetResponse = D1 ('MetaData "ClientStateGetResponse" "Data.Sawtooth.ClientState" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "ClientStateGetResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "clientStateGetResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated ClientStateGetResponse_Status)) :*: (S1 ('MetaSel ('Just "clientStateGetResponseValue") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString) :*: S1 ('MetaSel ('Just "clientStateGetResponseStateRoot") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text))))

data ClientStateGetResponse_Status Source #

Constructors

ClientStateGetResponse_StatusSTATUS_UNSET 
ClientStateGetResponse_StatusOK 
ClientStateGetResponse_StatusINTERNAL_ERROR 
ClientStateGetResponse_StatusNOT_READY 
ClientStateGetResponse_StatusNO_ROOT 
ClientStateGetResponse_StatusNO_RESOURCE 
ClientStateGetResponse_StatusINVALID_ADDRESS 
ClientStateGetResponse_StatusINVALID_ROOT 

Instances

Instances details
Bounded ClientStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

minBound :: ClientStateGetResponse_Status Source #

maxBound :: ClientStateGetResponse_Status Source #

Eq ClientStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

(==) :: ClientStateGetResponse_Status -> ClientStateGetResponse_Status -> Bool Source #

(/=) :: ClientStateGetResponse_Status -> ClientStateGetResponse_Status -> Bool Source #

Ord ClientStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

compare :: ClientStateGetResponse_Status -> ClientStateGetResponse_Status -> Ordering Source #

(<) :: ClientStateGetResponse_Status -> ClientStateGetResponse_Status -> Bool Source #

(<=) :: ClientStateGetResponse_Status -> ClientStateGetResponse_Status -> Bool Source #

(>) :: ClientStateGetResponse_Status -> ClientStateGetResponse_Status -> Bool Source #

(>=) :: ClientStateGetResponse_Status -> ClientStateGetResponse_Status -> Bool Source #

max :: ClientStateGetResponse_Status -> ClientStateGetResponse_Status -> ClientStateGetResponse_Status Source #

min :: ClientStateGetResponse_Status -> ClientStateGetResponse_Status -> ClientStateGetResponse_Status Source #

Show ClientStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

showsPrec :: Int -> ClientStateGetResponse_Status -> ShowS Source #

show :: ClientStateGetResponse_Status -> String Source #

showList :: [ClientStateGetResponse_Status] -> ShowS Source #

Generic ClientStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Associated Types

type Rep ClientStateGetResponse_Status :: Type -> Type Source #

Methods

from :: ClientStateGetResponse_Status -> Rep ClientStateGetResponse_Status x Source #

to :: Rep ClientStateGetResponse_Status x -> ClientStateGetResponse_Status Source #

ToJSON ClientStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

toJSON :: ClientStateGetResponse_Status -> Value Source #

toEncoding :: ClientStateGetResponse_Status -> Encoding Source #

toJSONList :: [ClientStateGetResponse_Status] -> Value Source #

toEncodingList :: [ClientStateGetResponse_Status] -> Encoding Source #

FromJSON ClientStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

parseJSON :: Value -> Parser ClientStateGetResponse_Status Source #

parseJSONList :: Value -> Parser [ClientStateGetResponse_Status] Source #

NFData ClientStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

rnf :: ClientStateGetResponse_Status -> () Source #

ProtoEnum ClientStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

toProtoEnumMay :: Int32 -> Maybe ClientStateGetResponse_Status Source #

fromProtoEnum :: ClientStateGetResponse_Status -> Int32 Source #

ToJSONPB ClientStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

toJSONPB :: ClientStateGetResponse_Status -> Options -> Value Source #

toEncodingPB :: ClientStateGetResponse_Status -> Options -> Encoding Source #

FromJSONPB ClientStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

parseJSONPB :: Value -> Parser ClientStateGetResponse_Status Source #

HasDefault ClientStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

def :: ClientStateGetResponse_Status Source #

isDefault :: ClientStateGetResponse_Status -> Bool Source #

Named ClientStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

nameOf :: IsString string => Proxy# ClientStateGetResponse_Status -> string Source #

Finite ClientStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientState

Methods

enumerate :: IsString string => Proxy# ClientStateGetResponse_Status -> [(string, Int32)] Source #

type Rep ClientStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientState

type Rep ClientStateGetResponse_Status = D1 ('MetaData "ClientStateGetResponse_Status" "Data.Sawtooth.ClientState" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (((C1 ('MetaCons "ClientStateGetResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientStateGetResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ClientStateGetResponse_StatusINTERNAL_ERROR" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientStateGetResponse_StatusNOT_READY" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "ClientStateGetResponse_StatusNO_ROOT" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientStateGetResponse_StatusNO_RESOURCE" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ClientStateGetResponse_StatusINVALID_ADDRESS" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientStateGetResponse_StatusINVALID_ROOT" 'PrefixI 'False) (U1 :: Type -> Type))))
\ No newline at end of file diff --git a/Data-Sawtooth-ClientStatus.html b/Data-Sawtooth-ClientStatus.html index 9518f89..6231808 100644 --- a/Data-Sawtooth-ClientStatus.html +++ b/Data-Sawtooth-ClientStatus.html @@ -1 +1 @@ -Data.Sawtooth.ClientStatus
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types
Safe HaskellNone
LanguageHaskell2010

Data.Sawtooth.ClientStatus

Description

Generated by Haskell protocol buffer compiler. DO NOT EDIT!

Documentation

data ClientStatusGetRequest Source #

Constructors

ClientStatusGetRequest 

Instances

Instances details
Eq ClientStatusGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

(==) :: ClientStatusGetRequest -> ClientStatusGetRequest -> Bool Source #

(/=) :: ClientStatusGetRequest -> ClientStatusGetRequest -> Bool Source #

Ord ClientStatusGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

compare :: ClientStatusGetRequest -> ClientStatusGetRequest -> Ordering Source #

(<) :: ClientStatusGetRequest -> ClientStatusGetRequest -> Bool Source #

(<=) :: ClientStatusGetRequest -> ClientStatusGetRequest -> Bool Source #

(>) :: ClientStatusGetRequest -> ClientStatusGetRequest -> Bool Source #

(>=) :: ClientStatusGetRequest -> ClientStatusGetRequest -> Bool Source #

max :: ClientStatusGetRequest -> ClientStatusGetRequest -> ClientStatusGetRequest Source #

min :: ClientStatusGetRequest -> ClientStatusGetRequest -> ClientStatusGetRequest Source #

Show ClientStatusGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

showsPrec :: Int -> ClientStatusGetRequest -> ShowS Source #

show :: ClientStatusGetRequest -> String Source #

showList :: [ClientStatusGetRequest] -> ShowS Source #

Generic ClientStatusGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Associated Types

type Rep ClientStatusGetRequest :: Type -> Type Source #

Methods

from :: ClientStatusGetRequest -> Rep ClientStatusGetRequest x Source #

to :: Rep ClientStatusGetRequest x -> ClientStatusGetRequest Source #

ToJSON ClientStatusGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

toJSON :: ClientStatusGetRequest -> Value Source #

toEncoding :: ClientStatusGetRequest -> Encoding Source #

toJSONList :: [ClientStatusGetRequest] -> Value Source #

toEncodingList :: [ClientStatusGetRequest] -> Encoding Source #

FromJSON ClientStatusGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

parseJSON :: Value -> Parser ClientStatusGetRequest Source #

parseJSONList :: Value -> Parser [ClientStatusGetRequest] Source #

NFData ClientStatusGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

rnf :: ClientStatusGetRequest -> () Source #

ToJSONPB ClientStatusGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

toJSONPB :: ClientStatusGetRequest -> Options -> Value Source #

toEncodingPB :: ClientStatusGetRequest -> Options -> Encoding Source #

FromJSONPB ClientStatusGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

parseJSONPB :: Value -> Parser ClientStatusGetRequest Source #

HasDefault ClientStatusGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

def :: ClientStatusGetRequest Source #

isDefault :: ClientStatusGetRequest -> Bool Source #

Named ClientStatusGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

nameOf :: IsString string => Proxy# ClientStatusGetRequest -> string Source #

Message ClientStatusGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

encodeMessage :: FieldNumber -> ClientStatusGetRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientStatusGetRequest Source #

dotProto :: Proxy# ClientStatusGetRequest -> [DotProtoField] Source #

ToSchema ClientStatusGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

declareNamedSchema :: Proxy ClientStatusGetRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientStatusGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

type Rep ClientStatusGetRequest = D1 ('MetaData "ClientStatusGetRequest" "Data.Sawtooth.ClientStatus" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "ClientStatusGetRequest" 'PrefixI 'False) (U1 :: Type -> Type))

data ClientStatusGetResponse Source #

Constructors

ClientStatusGetResponse 

Fields

Instances

Instances details
Eq ClientStatusGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

(==) :: ClientStatusGetResponse -> ClientStatusGetResponse -> Bool Source #

(/=) :: ClientStatusGetResponse -> ClientStatusGetResponse -> Bool Source #

Ord ClientStatusGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

compare :: ClientStatusGetResponse -> ClientStatusGetResponse -> Ordering Source #

(<) :: ClientStatusGetResponse -> ClientStatusGetResponse -> Bool Source #

(<=) :: ClientStatusGetResponse -> ClientStatusGetResponse -> Bool Source #

(>) :: ClientStatusGetResponse -> ClientStatusGetResponse -> Bool Source #

(>=) :: ClientStatusGetResponse -> ClientStatusGetResponse -> Bool Source #

max :: ClientStatusGetResponse -> ClientStatusGetResponse -> ClientStatusGetResponse Source #

min :: ClientStatusGetResponse -> ClientStatusGetResponse -> ClientStatusGetResponse Source #

Show ClientStatusGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

showsPrec :: Int -> ClientStatusGetResponse -> ShowS Source #

show :: ClientStatusGetResponse -> String Source #

showList :: [ClientStatusGetResponse] -> ShowS Source #

Generic ClientStatusGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Associated Types

type Rep ClientStatusGetResponse :: Type -> Type Source #

Methods

from :: ClientStatusGetResponse -> Rep ClientStatusGetResponse x Source #

to :: Rep ClientStatusGetResponse x -> ClientStatusGetResponse Source #

ToJSON ClientStatusGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

toJSON :: ClientStatusGetResponse -> Value Source #

toEncoding :: ClientStatusGetResponse -> Encoding Source #

toJSONList :: [ClientStatusGetResponse] -> Value Source #

toEncodingList :: [ClientStatusGetResponse] -> Encoding Source #

FromJSON ClientStatusGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

parseJSON :: Value -> Parser ClientStatusGetResponse Source #

parseJSONList :: Value -> Parser [ClientStatusGetResponse] Source #

NFData ClientStatusGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

rnf :: ClientStatusGetResponse -> () Source #

ToJSONPB ClientStatusGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

toJSONPB :: ClientStatusGetResponse -> Options -> Value Source #

toEncodingPB :: ClientStatusGetResponse -> Options -> Encoding Source #

FromJSONPB ClientStatusGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

parseJSONPB :: Value -> Parser ClientStatusGetResponse Source #

HasDefault ClientStatusGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

def :: ClientStatusGetResponse Source #

isDefault :: ClientStatusGetResponse -> Bool Source #

Named ClientStatusGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

nameOf :: IsString string => Proxy# ClientStatusGetResponse -> string Source #

Message ClientStatusGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

encodeMessage :: FieldNumber -> ClientStatusGetResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientStatusGetResponse Source #

dotProto :: Proxy# ClientStatusGetResponse -> [DotProtoField] Source #

ToSchema ClientStatusGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

declareNamedSchema :: Proxy ClientStatusGetResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientStatusGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

type Rep ClientStatusGetResponse = D1 ('MetaData "ClientStatusGetResponse" "Data.Sawtooth.ClientStatus" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "ClientStatusGetResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "clientStatusGetResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated ClientStatusGetResponse_Status)) :*: (S1 ('MetaSel ('Just "clientStatusGetResponsePeers") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector ClientStatusGetResponse_Peer)) :*: S1 ('MetaSel ('Just "clientStatusGetResponseEndpoint") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text))))

data ClientStatusGetResponse_Status Source #

Constructors

ClientStatusGetResponse_StatusSTATUS_UNSET 
ClientStatusGetResponse_StatusOK 
ClientStatusGetResponse_StatusERROR 

Instances

Instances details
Bounded ClientStatusGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

minBound :: ClientStatusGetResponse_Status Source #

maxBound :: ClientStatusGetResponse_Status Source #

Eq ClientStatusGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

(==) :: ClientStatusGetResponse_Status -> ClientStatusGetResponse_Status -> Bool Source #

(/=) :: ClientStatusGetResponse_Status -> ClientStatusGetResponse_Status -> Bool Source #

Ord ClientStatusGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

compare :: ClientStatusGetResponse_Status -> ClientStatusGetResponse_Status -> Ordering Source #

(<) :: ClientStatusGetResponse_Status -> ClientStatusGetResponse_Status -> Bool Source #

(<=) :: ClientStatusGetResponse_Status -> ClientStatusGetResponse_Status -> Bool Source #

(>) :: ClientStatusGetResponse_Status -> ClientStatusGetResponse_Status -> Bool Source #

(>=) :: ClientStatusGetResponse_Status -> ClientStatusGetResponse_Status -> Bool Source #

max :: ClientStatusGetResponse_Status -> ClientStatusGetResponse_Status -> ClientStatusGetResponse_Status Source #

min :: ClientStatusGetResponse_Status -> ClientStatusGetResponse_Status -> ClientStatusGetResponse_Status Source #

Show ClientStatusGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

showsPrec :: Int -> ClientStatusGetResponse_Status -> ShowS Source #

show :: ClientStatusGetResponse_Status -> String Source #

showList :: [ClientStatusGetResponse_Status] -> ShowS Source #

Generic ClientStatusGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Associated Types

type Rep ClientStatusGetResponse_Status :: Type -> Type Source #

Methods

from :: ClientStatusGetResponse_Status -> Rep ClientStatusGetResponse_Status x Source #

to :: Rep ClientStatusGetResponse_Status x -> ClientStatusGetResponse_Status Source #

ToJSON ClientStatusGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

toJSON :: ClientStatusGetResponse_Status -> Value Source #

toEncoding :: ClientStatusGetResponse_Status -> Encoding Source #

toJSONList :: [ClientStatusGetResponse_Status] -> Value Source #

toEncodingList :: [ClientStatusGetResponse_Status] -> Encoding Source #

FromJSON ClientStatusGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

parseJSON :: Value -> Parser ClientStatusGetResponse_Status Source #

parseJSONList :: Value -> Parser [ClientStatusGetResponse_Status] Source #

NFData ClientStatusGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

rnf :: ClientStatusGetResponse_Status -> () Source #

ProtoEnum ClientStatusGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

toProtoEnumMay :: Int32 -> Maybe ClientStatusGetResponse_Status Source #

fromProtoEnum :: ClientStatusGetResponse_Status -> Int32 Source #

ToJSONPB ClientStatusGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

toJSONPB :: ClientStatusGetResponse_Status -> Options -> Value Source #

toEncodingPB :: ClientStatusGetResponse_Status -> Options -> Encoding Source #

FromJSONPB ClientStatusGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

parseJSONPB :: Value -> Parser ClientStatusGetResponse_Status Source #

HasDefault ClientStatusGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

def :: ClientStatusGetResponse_Status Source #

isDefault :: ClientStatusGetResponse_Status -> Bool Source #

Named ClientStatusGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

nameOf :: IsString string => Proxy# ClientStatusGetResponse_Status -> string Source #

Finite ClientStatusGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

enumerate :: IsString string => Proxy# ClientStatusGetResponse_Status -> [(string, Int32)] Source #

type Rep ClientStatusGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

type Rep ClientStatusGetResponse_Status = D1 ('MetaData "ClientStatusGetResponse_Status" "Data.Sawtooth.ClientStatus" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "ClientStatusGetResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "ClientStatusGetResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientStatusGetResponse_StatusERROR" 'PrefixI 'False) (U1 :: Type -> Type)))

newtype ClientStatusGetResponse_Peer Source #

Constructors

ClientStatusGetResponse_Peer 

Fields

Instances

Instances details
Eq ClientStatusGetResponse_Peer Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

(==) :: ClientStatusGetResponse_Peer -> ClientStatusGetResponse_Peer -> Bool Source #

(/=) :: ClientStatusGetResponse_Peer -> ClientStatusGetResponse_Peer -> Bool Source #

Ord ClientStatusGetResponse_Peer Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

compare :: ClientStatusGetResponse_Peer -> ClientStatusGetResponse_Peer -> Ordering Source #

(<) :: ClientStatusGetResponse_Peer -> ClientStatusGetResponse_Peer -> Bool Source #

(<=) :: ClientStatusGetResponse_Peer -> ClientStatusGetResponse_Peer -> Bool Source #

(>) :: ClientStatusGetResponse_Peer -> ClientStatusGetResponse_Peer -> Bool Source #

(>=) :: ClientStatusGetResponse_Peer -> ClientStatusGetResponse_Peer -> Bool Source #

max :: ClientStatusGetResponse_Peer -> ClientStatusGetResponse_Peer -> ClientStatusGetResponse_Peer Source #

min :: ClientStatusGetResponse_Peer -> ClientStatusGetResponse_Peer -> ClientStatusGetResponse_Peer Source #

Show ClientStatusGetResponse_Peer Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

showsPrec :: Int -> ClientStatusGetResponse_Peer -> ShowS Source #

show :: ClientStatusGetResponse_Peer -> String Source #

showList :: [ClientStatusGetResponse_Peer] -> ShowS Source #

Generic ClientStatusGetResponse_Peer Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Associated Types

type Rep ClientStatusGetResponse_Peer :: Type -> Type Source #

Methods

from :: ClientStatusGetResponse_Peer -> Rep ClientStatusGetResponse_Peer x Source #

to :: Rep ClientStatusGetResponse_Peer x -> ClientStatusGetResponse_Peer Source #

ToJSON ClientStatusGetResponse_Peer Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

toJSON :: ClientStatusGetResponse_Peer -> Value Source #

toEncoding :: ClientStatusGetResponse_Peer -> Encoding Source #

toJSONList :: [ClientStatusGetResponse_Peer] -> Value Source #

toEncodingList :: [ClientStatusGetResponse_Peer] -> Encoding Source #

FromJSON ClientStatusGetResponse_Peer Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

parseJSON :: Value -> Parser ClientStatusGetResponse_Peer Source #

parseJSONList :: Value -> Parser [ClientStatusGetResponse_Peer] Source #

NFData ClientStatusGetResponse_Peer Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

rnf :: ClientStatusGetResponse_Peer -> () Source #

ToJSONPB ClientStatusGetResponse_Peer Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

toJSONPB :: ClientStatusGetResponse_Peer -> Options -> Value Source #

toEncodingPB :: ClientStatusGetResponse_Peer -> Options -> Encoding Source #

FromJSONPB ClientStatusGetResponse_Peer Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

parseJSONPB :: Value -> Parser ClientStatusGetResponse_Peer Source #

HasDefault ClientStatusGetResponse_Peer Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

def :: ClientStatusGetResponse_Peer Source #

isDefault :: ClientStatusGetResponse_Peer -> Bool Source #

Named ClientStatusGetResponse_Peer Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

nameOf :: IsString string => Proxy# ClientStatusGetResponse_Peer -> string Source #

Message ClientStatusGetResponse_Peer Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

encodeMessage :: FieldNumber -> ClientStatusGetResponse_Peer -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientStatusGetResponse_Peer Source #

dotProto :: Proxy# ClientStatusGetResponse_Peer -> [DotProtoField] Source #

ToSchema ClientStatusGetResponse_Peer Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

declareNamedSchema :: Proxy ClientStatusGetResponse_Peer -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientStatusGetResponse_Peer Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

type Rep ClientStatusGetResponse_Peer = D1 ('MetaData "ClientStatusGetResponse_Peer" "Data.Sawtooth.ClientStatus" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'True) (C1 ('MetaCons "ClientStatusGetResponse_Peer" 'PrefixI 'True) (S1 ('MetaSel ('Just "clientStatusGetResponse_PeerEndpoint") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)))
\ No newline at end of file +Data.Sawtooth.ClientStatus
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types
Safe HaskellNone
LanguageHaskell2010

Data.Sawtooth.ClientStatus

Description

Generated by Haskell protocol buffer compiler. DO NOT EDIT!

Documentation

data ClientStatusGetRequest Source #

Constructors

ClientStatusGetRequest 

Instances

Instances details
Eq ClientStatusGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

(==) :: ClientStatusGetRequest -> ClientStatusGetRequest -> Bool Source #

(/=) :: ClientStatusGetRequest -> ClientStatusGetRequest -> Bool Source #

Ord ClientStatusGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

compare :: ClientStatusGetRequest -> ClientStatusGetRequest -> Ordering Source #

(<) :: ClientStatusGetRequest -> ClientStatusGetRequest -> Bool Source #

(<=) :: ClientStatusGetRequest -> ClientStatusGetRequest -> Bool Source #

(>) :: ClientStatusGetRequest -> ClientStatusGetRequest -> Bool Source #

(>=) :: ClientStatusGetRequest -> ClientStatusGetRequest -> Bool Source #

max :: ClientStatusGetRequest -> ClientStatusGetRequest -> ClientStatusGetRequest Source #

min :: ClientStatusGetRequest -> ClientStatusGetRequest -> ClientStatusGetRequest Source #

Show ClientStatusGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

showsPrec :: Int -> ClientStatusGetRequest -> ShowS Source #

show :: ClientStatusGetRequest -> String Source #

showList :: [ClientStatusGetRequest] -> ShowS Source #

Generic ClientStatusGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Associated Types

type Rep ClientStatusGetRequest :: Type -> Type Source #

Methods

from :: ClientStatusGetRequest -> Rep ClientStatusGetRequest x Source #

to :: Rep ClientStatusGetRequest x -> ClientStatusGetRequest Source #

ToJSON ClientStatusGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

toJSON :: ClientStatusGetRequest -> Value Source #

toEncoding :: ClientStatusGetRequest -> Encoding Source #

toJSONList :: [ClientStatusGetRequest] -> Value Source #

toEncodingList :: [ClientStatusGetRequest] -> Encoding Source #

FromJSON ClientStatusGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

parseJSON :: Value -> Parser ClientStatusGetRequest Source #

parseJSONList :: Value -> Parser [ClientStatusGetRequest] Source #

NFData ClientStatusGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

rnf :: ClientStatusGetRequest -> () Source #

ToJSONPB ClientStatusGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

toJSONPB :: ClientStatusGetRequest -> Options -> Value Source #

toEncodingPB :: ClientStatusGetRequest -> Options -> Encoding Source #

FromJSONPB ClientStatusGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

parseJSONPB :: Value -> Parser ClientStatusGetRequest Source #

HasDefault ClientStatusGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

def :: ClientStatusGetRequest Source #

isDefault :: ClientStatusGetRequest -> Bool Source #

Named ClientStatusGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

nameOf :: IsString string => Proxy# ClientStatusGetRequest -> string Source #

Message ClientStatusGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

encodeMessage :: FieldNumber -> ClientStatusGetRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientStatusGetRequest Source #

dotProto :: Proxy# ClientStatusGetRequest -> [DotProtoField] Source #

ToSchema ClientStatusGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

declareNamedSchema :: Proxy ClientStatusGetRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientStatusGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

type Rep ClientStatusGetRequest = D1 ('MetaData "ClientStatusGetRequest" "Data.Sawtooth.ClientStatus" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "ClientStatusGetRequest" 'PrefixI 'False) (U1 :: Type -> Type))

data ClientStatusGetResponse Source #

Constructors

ClientStatusGetResponse 

Fields

Instances

Instances details
Eq ClientStatusGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

(==) :: ClientStatusGetResponse -> ClientStatusGetResponse -> Bool Source #

(/=) :: ClientStatusGetResponse -> ClientStatusGetResponse -> Bool Source #

Ord ClientStatusGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

compare :: ClientStatusGetResponse -> ClientStatusGetResponse -> Ordering Source #

(<) :: ClientStatusGetResponse -> ClientStatusGetResponse -> Bool Source #

(<=) :: ClientStatusGetResponse -> ClientStatusGetResponse -> Bool Source #

(>) :: ClientStatusGetResponse -> ClientStatusGetResponse -> Bool Source #

(>=) :: ClientStatusGetResponse -> ClientStatusGetResponse -> Bool Source #

max :: ClientStatusGetResponse -> ClientStatusGetResponse -> ClientStatusGetResponse Source #

min :: ClientStatusGetResponse -> ClientStatusGetResponse -> ClientStatusGetResponse Source #

Show ClientStatusGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

showsPrec :: Int -> ClientStatusGetResponse -> ShowS Source #

show :: ClientStatusGetResponse -> String Source #

showList :: [ClientStatusGetResponse] -> ShowS Source #

Generic ClientStatusGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Associated Types

type Rep ClientStatusGetResponse :: Type -> Type Source #

Methods

from :: ClientStatusGetResponse -> Rep ClientStatusGetResponse x Source #

to :: Rep ClientStatusGetResponse x -> ClientStatusGetResponse Source #

ToJSON ClientStatusGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

toJSON :: ClientStatusGetResponse -> Value Source #

toEncoding :: ClientStatusGetResponse -> Encoding Source #

toJSONList :: [ClientStatusGetResponse] -> Value Source #

toEncodingList :: [ClientStatusGetResponse] -> Encoding Source #

FromJSON ClientStatusGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

parseJSON :: Value -> Parser ClientStatusGetResponse Source #

parseJSONList :: Value -> Parser [ClientStatusGetResponse] Source #

NFData ClientStatusGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

rnf :: ClientStatusGetResponse -> () Source #

ToJSONPB ClientStatusGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

toJSONPB :: ClientStatusGetResponse -> Options -> Value Source #

toEncodingPB :: ClientStatusGetResponse -> Options -> Encoding Source #

FromJSONPB ClientStatusGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

parseJSONPB :: Value -> Parser ClientStatusGetResponse Source #

HasDefault ClientStatusGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

def :: ClientStatusGetResponse Source #

isDefault :: ClientStatusGetResponse -> Bool Source #

Named ClientStatusGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

nameOf :: IsString string => Proxy# ClientStatusGetResponse -> string Source #

Message ClientStatusGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

encodeMessage :: FieldNumber -> ClientStatusGetResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientStatusGetResponse Source #

dotProto :: Proxy# ClientStatusGetResponse -> [DotProtoField] Source #

ToSchema ClientStatusGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

declareNamedSchema :: Proxy ClientStatusGetResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientStatusGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

type Rep ClientStatusGetResponse = D1 ('MetaData "ClientStatusGetResponse" "Data.Sawtooth.ClientStatus" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "ClientStatusGetResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "clientStatusGetResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated ClientStatusGetResponse_Status)) :*: (S1 ('MetaSel ('Just "clientStatusGetResponsePeers") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector ClientStatusGetResponse_Peer)) :*: S1 ('MetaSel ('Just "clientStatusGetResponseEndpoint") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text))))

data ClientStatusGetResponse_Status Source #

Constructors

ClientStatusGetResponse_StatusSTATUS_UNSET 
ClientStatusGetResponse_StatusOK 
ClientStatusGetResponse_StatusERROR 

Instances

Instances details
Bounded ClientStatusGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

minBound :: ClientStatusGetResponse_Status Source #

maxBound :: ClientStatusGetResponse_Status Source #

Eq ClientStatusGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

(==) :: ClientStatusGetResponse_Status -> ClientStatusGetResponse_Status -> Bool Source #

(/=) :: ClientStatusGetResponse_Status -> ClientStatusGetResponse_Status -> Bool Source #

Ord ClientStatusGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

compare :: ClientStatusGetResponse_Status -> ClientStatusGetResponse_Status -> Ordering Source #

(<) :: ClientStatusGetResponse_Status -> ClientStatusGetResponse_Status -> Bool Source #

(<=) :: ClientStatusGetResponse_Status -> ClientStatusGetResponse_Status -> Bool Source #

(>) :: ClientStatusGetResponse_Status -> ClientStatusGetResponse_Status -> Bool Source #

(>=) :: ClientStatusGetResponse_Status -> ClientStatusGetResponse_Status -> Bool Source #

max :: ClientStatusGetResponse_Status -> ClientStatusGetResponse_Status -> ClientStatusGetResponse_Status Source #

min :: ClientStatusGetResponse_Status -> ClientStatusGetResponse_Status -> ClientStatusGetResponse_Status Source #

Show ClientStatusGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

showsPrec :: Int -> ClientStatusGetResponse_Status -> ShowS Source #

show :: ClientStatusGetResponse_Status -> String Source #

showList :: [ClientStatusGetResponse_Status] -> ShowS Source #

Generic ClientStatusGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Associated Types

type Rep ClientStatusGetResponse_Status :: Type -> Type Source #

Methods

from :: ClientStatusGetResponse_Status -> Rep ClientStatusGetResponse_Status x Source #

to :: Rep ClientStatusGetResponse_Status x -> ClientStatusGetResponse_Status Source #

ToJSON ClientStatusGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

toJSON :: ClientStatusGetResponse_Status -> Value Source #

toEncoding :: ClientStatusGetResponse_Status -> Encoding Source #

toJSONList :: [ClientStatusGetResponse_Status] -> Value Source #

toEncodingList :: [ClientStatusGetResponse_Status] -> Encoding Source #

FromJSON ClientStatusGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

parseJSON :: Value -> Parser ClientStatusGetResponse_Status Source #

parseJSONList :: Value -> Parser [ClientStatusGetResponse_Status] Source #

NFData ClientStatusGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

rnf :: ClientStatusGetResponse_Status -> () Source #

ProtoEnum ClientStatusGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

toProtoEnumMay :: Int32 -> Maybe ClientStatusGetResponse_Status Source #

fromProtoEnum :: ClientStatusGetResponse_Status -> Int32 Source #

ToJSONPB ClientStatusGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

toJSONPB :: ClientStatusGetResponse_Status -> Options -> Value Source #

toEncodingPB :: ClientStatusGetResponse_Status -> Options -> Encoding Source #

FromJSONPB ClientStatusGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

parseJSONPB :: Value -> Parser ClientStatusGetResponse_Status Source #

HasDefault ClientStatusGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

def :: ClientStatusGetResponse_Status Source #

isDefault :: ClientStatusGetResponse_Status -> Bool Source #

Named ClientStatusGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

nameOf :: IsString string => Proxy# ClientStatusGetResponse_Status -> string Source #

Finite ClientStatusGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

enumerate :: IsString string => Proxy# ClientStatusGetResponse_Status -> [(string, Int32)] Source #

type Rep ClientStatusGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

type Rep ClientStatusGetResponse_Status = D1 ('MetaData "ClientStatusGetResponse_Status" "Data.Sawtooth.ClientStatus" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "ClientStatusGetResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "ClientStatusGetResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientStatusGetResponse_StatusERROR" 'PrefixI 'False) (U1 :: Type -> Type)))

newtype ClientStatusGetResponse_Peer Source #

Constructors

ClientStatusGetResponse_Peer 

Fields

Instances

Instances details
Eq ClientStatusGetResponse_Peer Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

(==) :: ClientStatusGetResponse_Peer -> ClientStatusGetResponse_Peer -> Bool Source #

(/=) :: ClientStatusGetResponse_Peer -> ClientStatusGetResponse_Peer -> Bool Source #

Ord ClientStatusGetResponse_Peer Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

compare :: ClientStatusGetResponse_Peer -> ClientStatusGetResponse_Peer -> Ordering Source #

(<) :: ClientStatusGetResponse_Peer -> ClientStatusGetResponse_Peer -> Bool Source #

(<=) :: ClientStatusGetResponse_Peer -> ClientStatusGetResponse_Peer -> Bool Source #

(>) :: ClientStatusGetResponse_Peer -> ClientStatusGetResponse_Peer -> Bool Source #

(>=) :: ClientStatusGetResponse_Peer -> ClientStatusGetResponse_Peer -> Bool Source #

max :: ClientStatusGetResponse_Peer -> ClientStatusGetResponse_Peer -> ClientStatusGetResponse_Peer Source #

min :: ClientStatusGetResponse_Peer -> ClientStatusGetResponse_Peer -> ClientStatusGetResponse_Peer Source #

Show ClientStatusGetResponse_Peer Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

showsPrec :: Int -> ClientStatusGetResponse_Peer -> ShowS Source #

show :: ClientStatusGetResponse_Peer -> String Source #

showList :: [ClientStatusGetResponse_Peer] -> ShowS Source #

Generic ClientStatusGetResponse_Peer Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Associated Types

type Rep ClientStatusGetResponse_Peer :: Type -> Type Source #

Methods

from :: ClientStatusGetResponse_Peer -> Rep ClientStatusGetResponse_Peer x Source #

to :: Rep ClientStatusGetResponse_Peer x -> ClientStatusGetResponse_Peer Source #

ToJSON ClientStatusGetResponse_Peer Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

toJSON :: ClientStatusGetResponse_Peer -> Value Source #

toEncoding :: ClientStatusGetResponse_Peer -> Encoding Source #

toJSONList :: [ClientStatusGetResponse_Peer] -> Value Source #

toEncodingList :: [ClientStatusGetResponse_Peer] -> Encoding Source #

FromJSON ClientStatusGetResponse_Peer Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

parseJSON :: Value -> Parser ClientStatusGetResponse_Peer Source #

parseJSONList :: Value -> Parser [ClientStatusGetResponse_Peer] Source #

NFData ClientStatusGetResponse_Peer Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

rnf :: ClientStatusGetResponse_Peer -> () Source #

ToJSONPB ClientStatusGetResponse_Peer Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

toJSONPB :: ClientStatusGetResponse_Peer -> Options -> Value Source #

toEncodingPB :: ClientStatusGetResponse_Peer -> Options -> Encoding Source #

FromJSONPB ClientStatusGetResponse_Peer Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

parseJSONPB :: Value -> Parser ClientStatusGetResponse_Peer Source #

HasDefault ClientStatusGetResponse_Peer Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

def :: ClientStatusGetResponse_Peer Source #

isDefault :: ClientStatusGetResponse_Peer -> Bool Source #

Named ClientStatusGetResponse_Peer Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

nameOf :: IsString string => Proxy# ClientStatusGetResponse_Peer -> string Source #

Message ClientStatusGetResponse_Peer Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

encodeMessage :: FieldNumber -> ClientStatusGetResponse_Peer -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientStatusGetResponse_Peer Source #

dotProto :: Proxy# ClientStatusGetResponse_Peer -> [DotProtoField] Source #

ToSchema ClientStatusGetResponse_Peer Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

Methods

declareNamedSchema :: Proxy ClientStatusGetResponse_Peer -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientStatusGetResponse_Peer Source # 
Instance details

Defined in Data.Sawtooth.ClientStatus

type Rep ClientStatusGetResponse_Peer = D1 ('MetaData "ClientStatusGetResponse_Peer" "Data.Sawtooth.ClientStatus" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'True) (C1 ('MetaCons "ClientStatusGetResponse_Peer" 'PrefixI 'True) (S1 ('MetaSel ('Just "clientStatusGetResponse_PeerEndpoint") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)))
\ No newline at end of file diff --git a/Data-Sawtooth-ClientTransaction.html b/Data-Sawtooth-ClientTransaction.html index d4c7029..50e5575 100644 --- a/Data-Sawtooth-ClientTransaction.html +++ b/Data-Sawtooth-ClientTransaction.html @@ -1 +1 @@ -Data.Sawtooth.ClientTransaction
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types
Safe HaskellNone
LanguageHaskell2010

Data.Sawtooth.ClientTransaction

Description

Generated by Haskell protocol buffer compiler. DO NOT EDIT!

Documentation

data ClientTransactionListRequest Source #

Constructors

ClientTransactionListRequest 

Fields

Instances

Instances details
Eq ClientTransactionListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

(==) :: ClientTransactionListRequest -> ClientTransactionListRequest -> Bool Source #

(/=) :: ClientTransactionListRequest -> ClientTransactionListRequest -> Bool Source #

Ord ClientTransactionListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

compare :: ClientTransactionListRequest -> ClientTransactionListRequest -> Ordering Source #

(<) :: ClientTransactionListRequest -> ClientTransactionListRequest -> Bool Source #

(<=) :: ClientTransactionListRequest -> ClientTransactionListRequest -> Bool Source #

(>) :: ClientTransactionListRequest -> ClientTransactionListRequest -> Bool Source #

(>=) :: ClientTransactionListRequest -> ClientTransactionListRequest -> Bool Source #

max :: ClientTransactionListRequest -> ClientTransactionListRequest -> ClientTransactionListRequest Source #

min :: ClientTransactionListRequest -> ClientTransactionListRequest -> ClientTransactionListRequest Source #

Show ClientTransactionListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

showsPrec :: Int -> ClientTransactionListRequest -> ShowS Source #

show :: ClientTransactionListRequest -> String Source #

showList :: [ClientTransactionListRequest] -> ShowS Source #

Generic ClientTransactionListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Associated Types

type Rep ClientTransactionListRequest :: Type -> Type Source #

Methods

from :: ClientTransactionListRequest -> Rep ClientTransactionListRequest x Source #

to :: Rep ClientTransactionListRequest x -> ClientTransactionListRequest Source #

ToJSON ClientTransactionListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

toJSON :: ClientTransactionListRequest -> Value Source #

toEncoding :: ClientTransactionListRequest -> Encoding Source #

toJSONList :: [ClientTransactionListRequest] -> Value Source #

toEncodingList :: [ClientTransactionListRequest] -> Encoding Source #

FromJSON ClientTransactionListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

parseJSON :: Value -> Parser ClientTransactionListRequest Source #

parseJSONList :: Value -> Parser [ClientTransactionListRequest] Source #

NFData ClientTransactionListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

rnf :: ClientTransactionListRequest -> () Source #

ToJSONPB ClientTransactionListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

toJSONPB :: ClientTransactionListRequest -> Options -> Value Source #

toEncodingPB :: ClientTransactionListRequest -> Options -> Encoding Source #

FromJSONPB ClientTransactionListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

parseJSONPB :: Value -> Parser ClientTransactionListRequest Source #

HasDefault ClientTransactionListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

def :: ClientTransactionListRequest Source #

isDefault :: ClientTransactionListRequest -> Bool Source #

Named ClientTransactionListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

nameOf :: IsString string => Proxy# ClientTransactionListRequest -> string Source #

Message ClientTransactionListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

encodeMessage :: FieldNumber -> ClientTransactionListRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientTransactionListRequest Source #

dotProto :: Proxy# ClientTransactionListRequest -> [DotProtoField] Source #

ToSchema ClientTransactionListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

declareNamedSchema :: Proxy ClientTransactionListRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientTransactionListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

type Rep ClientTransactionListRequest = D1 ('MetaData "ClientTransactionListRequest" "Data.Sawtooth.ClientTransaction" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "ClientTransactionListRequest" 'PrefixI 'True) ((S1 ('MetaSel ('Just "clientTransactionListRequestHeadId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "clientTransactionListRequestTransactionIds") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Text))) :*: (S1 ('MetaSel ('Just "clientTransactionListRequestPaging") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe ClientPagingControls)) :*: S1 ('MetaSel ('Just "clientTransactionListRequestSorting") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector ClientSortControls)))))

data ClientTransactionListResponse Source #

Constructors

ClientTransactionListResponse 

Fields

Instances

Instances details
Eq ClientTransactionListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

(==) :: ClientTransactionListResponse -> ClientTransactionListResponse -> Bool Source #

(/=) :: ClientTransactionListResponse -> ClientTransactionListResponse -> Bool Source #

Ord ClientTransactionListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

compare :: ClientTransactionListResponse -> ClientTransactionListResponse -> Ordering Source #

(<) :: ClientTransactionListResponse -> ClientTransactionListResponse -> Bool Source #

(<=) :: ClientTransactionListResponse -> ClientTransactionListResponse -> Bool Source #

(>) :: ClientTransactionListResponse -> ClientTransactionListResponse -> Bool Source #

(>=) :: ClientTransactionListResponse -> ClientTransactionListResponse -> Bool Source #

max :: ClientTransactionListResponse -> ClientTransactionListResponse -> ClientTransactionListResponse Source #

min :: ClientTransactionListResponse -> ClientTransactionListResponse -> ClientTransactionListResponse Source #

Show ClientTransactionListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

showsPrec :: Int -> ClientTransactionListResponse -> ShowS Source #

show :: ClientTransactionListResponse -> String Source #

showList :: [ClientTransactionListResponse] -> ShowS Source #

Generic ClientTransactionListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Associated Types

type Rep ClientTransactionListResponse :: Type -> Type Source #

Methods

from :: ClientTransactionListResponse -> Rep ClientTransactionListResponse x Source #

to :: Rep ClientTransactionListResponse x -> ClientTransactionListResponse Source #

ToJSON ClientTransactionListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

toJSON :: ClientTransactionListResponse -> Value Source #

toEncoding :: ClientTransactionListResponse -> Encoding Source #

toJSONList :: [ClientTransactionListResponse] -> Value Source #

toEncodingList :: [ClientTransactionListResponse] -> Encoding Source #

FromJSON ClientTransactionListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

parseJSON :: Value -> Parser ClientTransactionListResponse Source #

parseJSONList :: Value -> Parser [ClientTransactionListResponse] Source #

NFData ClientTransactionListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

rnf :: ClientTransactionListResponse -> () Source #

ToJSONPB ClientTransactionListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

toJSONPB :: ClientTransactionListResponse -> Options -> Value Source #

toEncodingPB :: ClientTransactionListResponse -> Options -> Encoding Source #

FromJSONPB ClientTransactionListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

parseJSONPB :: Value -> Parser ClientTransactionListResponse Source #

HasDefault ClientTransactionListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

def :: ClientTransactionListResponse Source #

isDefault :: ClientTransactionListResponse -> Bool Source #

Named ClientTransactionListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

nameOf :: IsString string => Proxy# ClientTransactionListResponse -> string Source #

Message ClientTransactionListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

encodeMessage :: FieldNumber -> ClientTransactionListResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientTransactionListResponse Source #

dotProto :: Proxy# ClientTransactionListResponse -> [DotProtoField] Source #

ToSchema ClientTransactionListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

declareNamedSchema :: Proxy ClientTransactionListResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientTransactionListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

type Rep ClientTransactionListResponse = D1 ('MetaData "ClientTransactionListResponse" "Data.Sawtooth.ClientTransaction" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "ClientTransactionListResponse" 'PrefixI 'True) ((S1 ('MetaSel ('Just "clientTransactionListResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated ClientTransactionListResponse_Status)) :*: S1 ('MetaSel ('Just "clientTransactionListResponseTransactions") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Transaction))) :*: (S1 ('MetaSel ('Just "clientTransactionListResponseHeadId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "clientTransactionListResponsePaging") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe ClientPagingResponse)))))

data ClientTransactionListResponse_Status Source #

Constructors

ClientTransactionListResponse_StatusSTATUS_UNSET 
ClientTransactionListResponse_StatusOK 
ClientTransactionListResponse_StatusINTERNAL_ERROR 
ClientTransactionListResponse_StatusNOT_READY 
ClientTransactionListResponse_StatusNO_ROOT 
ClientTransactionListResponse_StatusNO_RESOURCE 
ClientTransactionListResponse_StatusINVALID_PAGING 
ClientTransactionListResponse_StatusINVALID_SORT 
ClientTransactionListResponse_StatusINVALID_ID 

Instances

Instances details
Bounded ClientTransactionListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

minBound :: ClientTransactionListResponse_Status Source #

maxBound :: ClientTransactionListResponse_Status Source #

Eq ClientTransactionListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

(==) :: ClientTransactionListResponse_Status -> ClientTransactionListResponse_Status -> Bool Source #

(/=) :: ClientTransactionListResponse_Status -> ClientTransactionListResponse_Status -> Bool Source #

Ord ClientTransactionListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

compare :: ClientTransactionListResponse_Status -> ClientTransactionListResponse_Status -> Ordering Source #

(<) :: ClientTransactionListResponse_Status -> ClientTransactionListResponse_Status -> Bool Source #

(<=) :: ClientTransactionListResponse_Status -> ClientTransactionListResponse_Status -> Bool Source #

(>) :: ClientTransactionListResponse_Status -> ClientTransactionListResponse_Status -> Bool Source #

(>=) :: ClientTransactionListResponse_Status -> ClientTransactionListResponse_Status -> Bool Source #

max :: ClientTransactionListResponse_Status -> ClientTransactionListResponse_Status -> ClientTransactionListResponse_Status Source #

min :: ClientTransactionListResponse_Status -> ClientTransactionListResponse_Status -> ClientTransactionListResponse_Status Source #

Show ClientTransactionListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

showsPrec :: Int -> ClientTransactionListResponse_Status -> ShowS Source #

show :: ClientTransactionListResponse_Status -> String Source #

showList :: [ClientTransactionListResponse_Status] -> ShowS Source #

Generic ClientTransactionListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Associated Types

type Rep ClientTransactionListResponse_Status :: Type -> Type Source #

Methods

from :: ClientTransactionListResponse_Status -> Rep ClientTransactionListResponse_Status x Source #

to :: Rep ClientTransactionListResponse_Status x -> ClientTransactionListResponse_Status Source #

ToJSON ClientTransactionListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

toJSON :: ClientTransactionListResponse_Status -> Value Source #

toEncoding :: ClientTransactionListResponse_Status -> Encoding Source #

toJSONList :: [ClientTransactionListResponse_Status] -> Value Source #

toEncodingList :: [ClientTransactionListResponse_Status] -> Encoding Source #

FromJSON ClientTransactionListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

parseJSON :: Value -> Parser ClientTransactionListResponse_Status Source #

parseJSONList :: Value -> Parser [ClientTransactionListResponse_Status] Source #

NFData ClientTransactionListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

rnf :: ClientTransactionListResponse_Status -> () Source #

ProtoEnum ClientTransactionListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

toProtoEnumMay :: Int32 -> Maybe ClientTransactionListResponse_Status Source #

fromProtoEnum :: ClientTransactionListResponse_Status -> Int32 Source #

ToJSONPB ClientTransactionListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

toJSONPB :: ClientTransactionListResponse_Status -> Options -> Value Source #

toEncodingPB :: ClientTransactionListResponse_Status -> Options -> Encoding Source #

FromJSONPB ClientTransactionListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

parseJSONPB :: Value -> Parser ClientTransactionListResponse_Status Source #

HasDefault ClientTransactionListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

def :: ClientTransactionListResponse_Status Source #

isDefault :: ClientTransactionListResponse_Status -> Bool Source #

Named ClientTransactionListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

nameOf :: IsString string => Proxy# ClientTransactionListResponse_Status -> string Source #

Finite ClientTransactionListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

enumerate :: IsString string => Proxy# ClientTransactionListResponse_Status -> [(string, Int32)] Source #

type Rep ClientTransactionListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

type Rep ClientTransactionListResponse_Status = D1 ('MetaData "ClientTransactionListResponse_Status" "Data.Sawtooth.ClientTransaction" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (((C1 ('MetaCons "ClientTransactionListResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientTransactionListResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ClientTransactionListResponse_StatusINTERNAL_ERROR" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientTransactionListResponse_StatusNOT_READY" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "ClientTransactionListResponse_StatusNO_ROOT" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientTransactionListResponse_StatusNO_RESOURCE" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ClientTransactionListResponse_StatusINVALID_PAGING" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "ClientTransactionListResponse_StatusINVALID_SORT" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientTransactionListResponse_StatusINVALID_ID" 'PrefixI 'False) (U1 :: Type -> Type)))))

newtype ClientTransactionGetRequest Source #

Constructors

ClientTransactionGetRequest 

Fields

Instances

Instances details
Eq ClientTransactionGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

(==) :: ClientTransactionGetRequest -> ClientTransactionGetRequest -> Bool Source #

(/=) :: ClientTransactionGetRequest -> ClientTransactionGetRequest -> Bool Source #

Ord ClientTransactionGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

compare :: ClientTransactionGetRequest -> ClientTransactionGetRequest -> Ordering Source #

(<) :: ClientTransactionGetRequest -> ClientTransactionGetRequest -> Bool Source #

(<=) :: ClientTransactionGetRequest -> ClientTransactionGetRequest -> Bool Source #

(>) :: ClientTransactionGetRequest -> ClientTransactionGetRequest -> Bool Source #

(>=) :: ClientTransactionGetRequest -> ClientTransactionGetRequest -> Bool Source #

max :: ClientTransactionGetRequest -> ClientTransactionGetRequest -> ClientTransactionGetRequest Source #

min :: ClientTransactionGetRequest -> ClientTransactionGetRequest -> ClientTransactionGetRequest Source #

Show ClientTransactionGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

showsPrec :: Int -> ClientTransactionGetRequest -> ShowS Source #

show :: ClientTransactionGetRequest -> String Source #

showList :: [ClientTransactionGetRequest] -> ShowS Source #

Generic ClientTransactionGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Associated Types

type Rep ClientTransactionGetRequest :: Type -> Type Source #

Methods

from :: ClientTransactionGetRequest -> Rep ClientTransactionGetRequest x Source #

to :: Rep ClientTransactionGetRequest x -> ClientTransactionGetRequest Source #

ToJSON ClientTransactionGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

toJSON :: ClientTransactionGetRequest -> Value Source #

toEncoding :: ClientTransactionGetRequest -> Encoding Source #

toJSONList :: [ClientTransactionGetRequest] -> Value Source #

toEncodingList :: [ClientTransactionGetRequest] -> Encoding Source #

FromJSON ClientTransactionGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

parseJSON :: Value -> Parser ClientTransactionGetRequest Source #

parseJSONList :: Value -> Parser [ClientTransactionGetRequest] Source #

NFData ClientTransactionGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

rnf :: ClientTransactionGetRequest -> () Source #

ToJSONPB ClientTransactionGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

toJSONPB :: ClientTransactionGetRequest -> Options -> Value Source #

toEncodingPB :: ClientTransactionGetRequest -> Options -> Encoding Source #

FromJSONPB ClientTransactionGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

parseJSONPB :: Value -> Parser ClientTransactionGetRequest Source #

HasDefault ClientTransactionGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

def :: ClientTransactionGetRequest Source #

isDefault :: ClientTransactionGetRequest -> Bool Source #

Named ClientTransactionGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

nameOf :: IsString string => Proxy# ClientTransactionGetRequest -> string Source #

Message ClientTransactionGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

encodeMessage :: FieldNumber -> ClientTransactionGetRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientTransactionGetRequest Source #

dotProto :: Proxy# ClientTransactionGetRequest -> [DotProtoField] Source #

ToSchema ClientTransactionGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

declareNamedSchema :: Proxy ClientTransactionGetRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientTransactionGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

type Rep ClientTransactionGetRequest = D1 ('MetaData "ClientTransactionGetRequest" "Data.Sawtooth.ClientTransaction" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'True) (C1 ('MetaCons "ClientTransactionGetRequest" 'PrefixI 'True) (S1 ('MetaSel ('Just "clientTransactionGetRequestTransactionId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)))

data ClientTransactionGetResponse Source #

Constructors

ClientTransactionGetResponse 

Fields

Instances

Instances details
Eq ClientTransactionGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

(==) :: ClientTransactionGetResponse -> ClientTransactionGetResponse -> Bool Source #

(/=) :: ClientTransactionGetResponse -> ClientTransactionGetResponse -> Bool Source #

Ord ClientTransactionGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

compare :: ClientTransactionGetResponse -> ClientTransactionGetResponse -> Ordering Source #

(<) :: ClientTransactionGetResponse -> ClientTransactionGetResponse -> Bool Source #

(<=) :: ClientTransactionGetResponse -> ClientTransactionGetResponse -> Bool Source #

(>) :: ClientTransactionGetResponse -> ClientTransactionGetResponse -> Bool Source #

(>=) :: ClientTransactionGetResponse -> ClientTransactionGetResponse -> Bool Source #

max :: ClientTransactionGetResponse -> ClientTransactionGetResponse -> ClientTransactionGetResponse Source #

min :: ClientTransactionGetResponse -> ClientTransactionGetResponse -> ClientTransactionGetResponse Source #

Show ClientTransactionGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

showsPrec :: Int -> ClientTransactionGetResponse -> ShowS Source #

show :: ClientTransactionGetResponse -> String Source #

showList :: [ClientTransactionGetResponse] -> ShowS Source #

Generic ClientTransactionGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Associated Types

type Rep ClientTransactionGetResponse :: Type -> Type Source #

Methods

from :: ClientTransactionGetResponse -> Rep ClientTransactionGetResponse x Source #

to :: Rep ClientTransactionGetResponse x -> ClientTransactionGetResponse Source #

ToJSON ClientTransactionGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

toJSON :: ClientTransactionGetResponse -> Value Source #

toEncoding :: ClientTransactionGetResponse -> Encoding Source #

toJSONList :: [ClientTransactionGetResponse] -> Value Source #

toEncodingList :: [ClientTransactionGetResponse] -> Encoding Source #

FromJSON ClientTransactionGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

parseJSON :: Value -> Parser ClientTransactionGetResponse Source #

parseJSONList :: Value -> Parser [ClientTransactionGetResponse] Source #

NFData ClientTransactionGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

rnf :: ClientTransactionGetResponse -> () Source #

ToJSONPB ClientTransactionGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

toJSONPB :: ClientTransactionGetResponse -> Options -> Value Source #

toEncodingPB :: ClientTransactionGetResponse -> Options -> Encoding Source #

FromJSONPB ClientTransactionGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

parseJSONPB :: Value -> Parser ClientTransactionGetResponse Source #

HasDefault ClientTransactionGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

def :: ClientTransactionGetResponse Source #

isDefault :: ClientTransactionGetResponse -> Bool Source #

Named ClientTransactionGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

nameOf :: IsString string => Proxy# ClientTransactionGetResponse -> string Source #

Message ClientTransactionGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

encodeMessage :: FieldNumber -> ClientTransactionGetResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientTransactionGetResponse Source #

dotProto :: Proxy# ClientTransactionGetResponse -> [DotProtoField] Source #

ToSchema ClientTransactionGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

declareNamedSchema :: Proxy ClientTransactionGetResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientTransactionGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

type Rep ClientTransactionGetResponse = D1 ('MetaData "ClientTransactionGetResponse" "Data.Sawtooth.ClientTransaction" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "ClientTransactionGetResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "clientTransactionGetResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated ClientTransactionGetResponse_Status)) :*: S1 ('MetaSel ('Just "clientTransactionGetResponseTransaction") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe Transaction))))

data ClientTransactionGetResponse_Status Source #

Constructors

ClientTransactionGetResponse_StatusSTATUS_UNSET 
ClientTransactionGetResponse_StatusOK 
ClientTransactionGetResponse_StatusINTERNAL_ERROR 
ClientTransactionGetResponse_StatusNO_RESOURCE 
ClientTransactionGetResponse_StatusINVALID_ID 

Instances

Instances details
Bounded ClientTransactionGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

minBound :: ClientTransactionGetResponse_Status Source #

maxBound :: ClientTransactionGetResponse_Status Source #

Eq ClientTransactionGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

(==) :: ClientTransactionGetResponse_Status -> ClientTransactionGetResponse_Status -> Bool Source #

(/=) :: ClientTransactionGetResponse_Status -> ClientTransactionGetResponse_Status -> Bool Source #

Ord ClientTransactionGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

compare :: ClientTransactionGetResponse_Status -> ClientTransactionGetResponse_Status -> Ordering Source #

(<) :: ClientTransactionGetResponse_Status -> ClientTransactionGetResponse_Status -> Bool Source #

(<=) :: ClientTransactionGetResponse_Status -> ClientTransactionGetResponse_Status -> Bool Source #

(>) :: ClientTransactionGetResponse_Status -> ClientTransactionGetResponse_Status -> Bool Source #

(>=) :: ClientTransactionGetResponse_Status -> ClientTransactionGetResponse_Status -> Bool Source #

max :: ClientTransactionGetResponse_Status -> ClientTransactionGetResponse_Status -> ClientTransactionGetResponse_Status Source #

min :: ClientTransactionGetResponse_Status -> ClientTransactionGetResponse_Status -> ClientTransactionGetResponse_Status Source #

Show ClientTransactionGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

showsPrec :: Int -> ClientTransactionGetResponse_Status -> ShowS Source #

show :: ClientTransactionGetResponse_Status -> String Source #

showList :: [ClientTransactionGetResponse_Status] -> ShowS Source #

Generic ClientTransactionGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Associated Types

type Rep ClientTransactionGetResponse_Status :: Type -> Type Source #

Methods

from :: ClientTransactionGetResponse_Status -> Rep ClientTransactionGetResponse_Status x Source #

to :: Rep ClientTransactionGetResponse_Status x -> ClientTransactionGetResponse_Status Source #

ToJSON ClientTransactionGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

toJSON :: ClientTransactionGetResponse_Status -> Value Source #

toEncoding :: ClientTransactionGetResponse_Status -> Encoding Source #

toJSONList :: [ClientTransactionGetResponse_Status] -> Value Source #

toEncodingList :: [ClientTransactionGetResponse_Status] -> Encoding Source #

FromJSON ClientTransactionGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

parseJSON :: Value -> Parser ClientTransactionGetResponse_Status Source #

parseJSONList :: Value -> Parser [ClientTransactionGetResponse_Status] Source #

NFData ClientTransactionGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

rnf :: ClientTransactionGetResponse_Status -> () Source #

ProtoEnum ClientTransactionGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

toProtoEnumMay :: Int32 -> Maybe ClientTransactionGetResponse_Status Source #

fromProtoEnum :: ClientTransactionGetResponse_Status -> Int32 Source #

ToJSONPB ClientTransactionGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

toJSONPB :: ClientTransactionGetResponse_Status -> Options -> Value Source #

toEncodingPB :: ClientTransactionGetResponse_Status -> Options -> Encoding Source #

FromJSONPB ClientTransactionGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

parseJSONPB :: Value -> Parser ClientTransactionGetResponse_Status Source #

HasDefault ClientTransactionGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

def :: ClientTransactionGetResponse_Status Source #

isDefault :: ClientTransactionGetResponse_Status -> Bool Source #

Named ClientTransactionGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

nameOf :: IsString string => Proxy# ClientTransactionGetResponse_Status -> string Source #

Finite ClientTransactionGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

enumerate :: IsString string => Proxy# ClientTransactionGetResponse_Status -> [(string, Int32)] Source #

type Rep ClientTransactionGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

type Rep ClientTransactionGetResponse_Status = D1 ('MetaData "ClientTransactionGetResponse_Status" "Data.Sawtooth.ClientTransaction" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) ((C1 ('MetaCons "ClientTransactionGetResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientTransactionGetResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ClientTransactionGetResponse_StatusINTERNAL_ERROR" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "ClientTransactionGetResponse_StatusNO_RESOURCE" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientTransactionGetResponse_StatusINVALID_ID" 'PrefixI 'False) (U1 :: Type -> Type))))
\ No newline at end of file +Data.Sawtooth.ClientTransaction
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types
Safe HaskellNone
LanguageHaskell2010

Data.Sawtooth.ClientTransaction

Description

Generated by Haskell protocol buffer compiler. DO NOT EDIT!

Documentation

data ClientTransactionListRequest Source #

Constructors

ClientTransactionListRequest 

Fields

Instances

Instances details
Eq ClientTransactionListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

(==) :: ClientTransactionListRequest -> ClientTransactionListRequest -> Bool Source #

(/=) :: ClientTransactionListRequest -> ClientTransactionListRequest -> Bool Source #

Ord ClientTransactionListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

compare :: ClientTransactionListRequest -> ClientTransactionListRequest -> Ordering Source #

(<) :: ClientTransactionListRequest -> ClientTransactionListRequest -> Bool Source #

(<=) :: ClientTransactionListRequest -> ClientTransactionListRequest -> Bool Source #

(>) :: ClientTransactionListRequest -> ClientTransactionListRequest -> Bool Source #

(>=) :: ClientTransactionListRequest -> ClientTransactionListRequest -> Bool Source #

max :: ClientTransactionListRequest -> ClientTransactionListRequest -> ClientTransactionListRequest Source #

min :: ClientTransactionListRequest -> ClientTransactionListRequest -> ClientTransactionListRequest Source #

Show ClientTransactionListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

showsPrec :: Int -> ClientTransactionListRequest -> ShowS Source #

show :: ClientTransactionListRequest -> String Source #

showList :: [ClientTransactionListRequest] -> ShowS Source #

Generic ClientTransactionListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Associated Types

type Rep ClientTransactionListRequest :: Type -> Type Source #

Methods

from :: ClientTransactionListRequest -> Rep ClientTransactionListRequest x Source #

to :: Rep ClientTransactionListRequest x -> ClientTransactionListRequest Source #

ToJSON ClientTransactionListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

toJSON :: ClientTransactionListRequest -> Value Source #

toEncoding :: ClientTransactionListRequest -> Encoding Source #

toJSONList :: [ClientTransactionListRequest] -> Value Source #

toEncodingList :: [ClientTransactionListRequest] -> Encoding Source #

FromJSON ClientTransactionListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

parseJSON :: Value -> Parser ClientTransactionListRequest Source #

parseJSONList :: Value -> Parser [ClientTransactionListRequest] Source #

NFData ClientTransactionListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

rnf :: ClientTransactionListRequest -> () Source #

ToJSONPB ClientTransactionListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

toJSONPB :: ClientTransactionListRequest -> Options -> Value Source #

toEncodingPB :: ClientTransactionListRequest -> Options -> Encoding Source #

FromJSONPB ClientTransactionListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

parseJSONPB :: Value -> Parser ClientTransactionListRequest Source #

HasDefault ClientTransactionListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

def :: ClientTransactionListRequest Source #

isDefault :: ClientTransactionListRequest -> Bool Source #

Named ClientTransactionListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

nameOf :: IsString string => Proxy# ClientTransactionListRequest -> string Source #

Message ClientTransactionListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

encodeMessage :: FieldNumber -> ClientTransactionListRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientTransactionListRequest Source #

dotProto :: Proxy# ClientTransactionListRequest -> [DotProtoField] Source #

ToSchema ClientTransactionListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

declareNamedSchema :: Proxy ClientTransactionListRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientTransactionListRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

type Rep ClientTransactionListRequest = D1 ('MetaData "ClientTransactionListRequest" "Data.Sawtooth.ClientTransaction" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "ClientTransactionListRequest" 'PrefixI 'True) ((S1 ('MetaSel ('Just "clientTransactionListRequestHeadId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "clientTransactionListRequestTransactionIds") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Text))) :*: (S1 ('MetaSel ('Just "clientTransactionListRequestPaging") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe ClientPagingControls)) :*: S1 ('MetaSel ('Just "clientTransactionListRequestSorting") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector ClientSortControls)))))

data ClientTransactionListResponse Source #

Constructors

ClientTransactionListResponse 

Fields

Instances

Instances details
Eq ClientTransactionListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

(==) :: ClientTransactionListResponse -> ClientTransactionListResponse -> Bool Source #

(/=) :: ClientTransactionListResponse -> ClientTransactionListResponse -> Bool Source #

Ord ClientTransactionListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

compare :: ClientTransactionListResponse -> ClientTransactionListResponse -> Ordering Source #

(<) :: ClientTransactionListResponse -> ClientTransactionListResponse -> Bool Source #

(<=) :: ClientTransactionListResponse -> ClientTransactionListResponse -> Bool Source #

(>) :: ClientTransactionListResponse -> ClientTransactionListResponse -> Bool Source #

(>=) :: ClientTransactionListResponse -> ClientTransactionListResponse -> Bool Source #

max :: ClientTransactionListResponse -> ClientTransactionListResponse -> ClientTransactionListResponse Source #

min :: ClientTransactionListResponse -> ClientTransactionListResponse -> ClientTransactionListResponse Source #

Show ClientTransactionListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

showsPrec :: Int -> ClientTransactionListResponse -> ShowS Source #

show :: ClientTransactionListResponse -> String Source #

showList :: [ClientTransactionListResponse] -> ShowS Source #

Generic ClientTransactionListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Associated Types

type Rep ClientTransactionListResponse :: Type -> Type Source #

Methods

from :: ClientTransactionListResponse -> Rep ClientTransactionListResponse x Source #

to :: Rep ClientTransactionListResponse x -> ClientTransactionListResponse Source #

ToJSON ClientTransactionListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

toJSON :: ClientTransactionListResponse -> Value Source #

toEncoding :: ClientTransactionListResponse -> Encoding Source #

toJSONList :: [ClientTransactionListResponse] -> Value Source #

toEncodingList :: [ClientTransactionListResponse] -> Encoding Source #

FromJSON ClientTransactionListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

parseJSON :: Value -> Parser ClientTransactionListResponse Source #

parseJSONList :: Value -> Parser [ClientTransactionListResponse] Source #

NFData ClientTransactionListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

rnf :: ClientTransactionListResponse -> () Source #

ToJSONPB ClientTransactionListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

toJSONPB :: ClientTransactionListResponse -> Options -> Value Source #

toEncodingPB :: ClientTransactionListResponse -> Options -> Encoding Source #

FromJSONPB ClientTransactionListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

parseJSONPB :: Value -> Parser ClientTransactionListResponse Source #

HasDefault ClientTransactionListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

def :: ClientTransactionListResponse Source #

isDefault :: ClientTransactionListResponse -> Bool Source #

Named ClientTransactionListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

nameOf :: IsString string => Proxy# ClientTransactionListResponse -> string Source #

Message ClientTransactionListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

encodeMessage :: FieldNumber -> ClientTransactionListResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientTransactionListResponse Source #

dotProto :: Proxy# ClientTransactionListResponse -> [DotProtoField] Source #

ToSchema ClientTransactionListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

declareNamedSchema :: Proxy ClientTransactionListResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientTransactionListResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

type Rep ClientTransactionListResponse = D1 ('MetaData "ClientTransactionListResponse" "Data.Sawtooth.ClientTransaction" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "ClientTransactionListResponse" 'PrefixI 'True) ((S1 ('MetaSel ('Just "clientTransactionListResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated ClientTransactionListResponse_Status)) :*: S1 ('MetaSel ('Just "clientTransactionListResponseTransactions") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Transaction))) :*: (S1 ('MetaSel ('Just "clientTransactionListResponseHeadId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "clientTransactionListResponsePaging") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe ClientPagingResponse)))))

data ClientTransactionListResponse_Status Source #

Constructors

ClientTransactionListResponse_StatusSTATUS_UNSET 
ClientTransactionListResponse_StatusOK 
ClientTransactionListResponse_StatusINTERNAL_ERROR 
ClientTransactionListResponse_StatusNOT_READY 
ClientTransactionListResponse_StatusNO_ROOT 
ClientTransactionListResponse_StatusNO_RESOURCE 
ClientTransactionListResponse_StatusINVALID_PAGING 
ClientTransactionListResponse_StatusINVALID_SORT 
ClientTransactionListResponse_StatusINVALID_ID 

Instances

Instances details
Bounded ClientTransactionListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

minBound :: ClientTransactionListResponse_Status Source #

maxBound :: ClientTransactionListResponse_Status Source #

Eq ClientTransactionListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

(==) :: ClientTransactionListResponse_Status -> ClientTransactionListResponse_Status -> Bool Source #

(/=) :: ClientTransactionListResponse_Status -> ClientTransactionListResponse_Status -> Bool Source #

Ord ClientTransactionListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

compare :: ClientTransactionListResponse_Status -> ClientTransactionListResponse_Status -> Ordering Source #

(<) :: ClientTransactionListResponse_Status -> ClientTransactionListResponse_Status -> Bool Source #

(<=) :: ClientTransactionListResponse_Status -> ClientTransactionListResponse_Status -> Bool Source #

(>) :: ClientTransactionListResponse_Status -> ClientTransactionListResponse_Status -> Bool Source #

(>=) :: ClientTransactionListResponse_Status -> ClientTransactionListResponse_Status -> Bool Source #

max :: ClientTransactionListResponse_Status -> ClientTransactionListResponse_Status -> ClientTransactionListResponse_Status Source #

min :: ClientTransactionListResponse_Status -> ClientTransactionListResponse_Status -> ClientTransactionListResponse_Status Source #

Show ClientTransactionListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

showsPrec :: Int -> ClientTransactionListResponse_Status -> ShowS Source #

show :: ClientTransactionListResponse_Status -> String Source #

showList :: [ClientTransactionListResponse_Status] -> ShowS Source #

Generic ClientTransactionListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Associated Types

type Rep ClientTransactionListResponse_Status :: Type -> Type Source #

Methods

from :: ClientTransactionListResponse_Status -> Rep ClientTransactionListResponse_Status x Source #

to :: Rep ClientTransactionListResponse_Status x -> ClientTransactionListResponse_Status Source #

ToJSON ClientTransactionListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

toJSON :: ClientTransactionListResponse_Status -> Value Source #

toEncoding :: ClientTransactionListResponse_Status -> Encoding Source #

toJSONList :: [ClientTransactionListResponse_Status] -> Value Source #

toEncodingList :: [ClientTransactionListResponse_Status] -> Encoding Source #

FromJSON ClientTransactionListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

parseJSON :: Value -> Parser ClientTransactionListResponse_Status Source #

parseJSONList :: Value -> Parser [ClientTransactionListResponse_Status] Source #

NFData ClientTransactionListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

rnf :: ClientTransactionListResponse_Status -> () Source #

ProtoEnum ClientTransactionListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

toProtoEnumMay :: Int32 -> Maybe ClientTransactionListResponse_Status Source #

fromProtoEnum :: ClientTransactionListResponse_Status -> Int32 Source #

ToJSONPB ClientTransactionListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

toJSONPB :: ClientTransactionListResponse_Status -> Options -> Value Source #

toEncodingPB :: ClientTransactionListResponse_Status -> Options -> Encoding Source #

FromJSONPB ClientTransactionListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

parseJSONPB :: Value -> Parser ClientTransactionListResponse_Status Source #

HasDefault ClientTransactionListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

def :: ClientTransactionListResponse_Status Source #

isDefault :: ClientTransactionListResponse_Status -> Bool Source #

Named ClientTransactionListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

nameOf :: IsString string => Proxy# ClientTransactionListResponse_Status -> string Source #

Finite ClientTransactionListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

enumerate :: IsString string => Proxy# ClientTransactionListResponse_Status -> [(string, Int32)] Source #

type Rep ClientTransactionListResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

type Rep ClientTransactionListResponse_Status = D1 ('MetaData "ClientTransactionListResponse_Status" "Data.Sawtooth.ClientTransaction" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (((C1 ('MetaCons "ClientTransactionListResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientTransactionListResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ClientTransactionListResponse_StatusINTERNAL_ERROR" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientTransactionListResponse_StatusNOT_READY" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "ClientTransactionListResponse_StatusNO_ROOT" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientTransactionListResponse_StatusNO_RESOURCE" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ClientTransactionListResponse_StatusINVALID_PAGING" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "ClientTransactionListResponse_StatusINVALID_SORT" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientTransactionListResponse_StatusINVALID_ID" 'PrefixI 'False) (U1 :: Type -> Type)))))

newtype ClientTransactionGetRequest Source #

Constructors

ClientTransactionGetRequest 

Fields

Instances

Instances details
Eq ClientTransactionGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

(==) :: ClientTransactionGetRequest -> ClientTransactionGetRequest -> Bool Source #

(/=) :: ClientTransactionGetRequest -> ClientTransactionGetRequest -> Bool Source #

Ord ClientTransactionGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

compare :: ClientTransactionGetRequest -> ClientTransactionGetRequest -> Ordering Source #

(<) :: ClientTransactionGetRequest -> ClientTransactionGetRequest -> Bool Source #

(<=) :: ClientTransactionGetRequest -> ClientTransactionGetRequest -> Bool Source #

(>) :: ClientTransactionGetRequest -> ClientTransactionGetRequest -> Bool Source #

(>=) :: ClientTransactionGetRequest -> ClientTransactionGetRequest -> Bool Source #

max :: ClientTransactionGetRequest -> ClientTransactionGetRequest -> ClientTransactionGetRequest Source #

min :: ClientTransactionGetRequest -> ClientTransactionGetRequest -> ClientTransactionGetRequest Source #

Show ClientTransactionGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

showsPrec :: Int -> ClientTransactionGetRequest -> ShowS Source #

show :: ClientTransactionGetRequest -> String Source #

showList :: [ClientTransactionGetRequest] -> ShowS Source #

Generic ClientTransactionGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Associated Types

type Rep ClientTransactionGetRequest :: Type -> Type Source #

Methods

from :: ClientTransactionGetRequest -> Rep ClientTransactionGetRequest x Source #

to :: Rep ClientTransactionGetRequest x -> ClientTransactionGetRequest Source #

ToJSON ClientTransactionGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

toJSON :: ClientTransactionGetRequest -> Value Source #

toEncoding :: ClientTransactionGetRequest -> Encoding Source #

toJSONList :: [ClientTransactionGetRequest] -> Value Source #

toEncodingList :: [ClientTransactionGetRequest] -> Encoding Source #

FromJSON ClientTransactionGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

parseJSON :: Value -> Parser ClientTransactionGetRequest Source #

parseJSONList :: Value -> Parser [ClientTransactionGetRequest] Source #

NFData ClientTransactionGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

rnf :: ClientTransactionGetRequest -> () Source #

ToJSONPB ClientTransactionGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

toJSONPB :: ClientTransactionGetRequest -> Options -> Value Source #

toEncodingPB :: ClientTransactionGetRequest -> Options -> Encoding Source #

FromJSONPB ClientTransactionGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

parseJSONPB :: Value -> Parser ClientTransactionGetRequest Source #

HasDefault ClientTransactionGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

def :: ClientTransactionGetRequest Source #

isDefault :: ClientTransactionGetRequest -> Bool Source #

Named ClientTransactionGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

nameOf :: IsString string => Proxy# ClientTransactionGetRequest -> string Source #

Message ClientTransactionGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

encodeMessage :: FieldNumber -> ClientTransactionGetRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientTransactionGetRequest Source #

dotProto :: Proxy# ClientTransactionGetRequest -> [DotProtoField] Source #

ToSchema ClientTransactionGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

declareNamedSchema :: Proxy ClientTransactionGetRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientTransactionGetRequest Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

type Rep ClientTransactionGetRequest = D1 ('MetaData "ClientTransactionGetRequest" "Data.Sawtooth.ClientTransaction" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'True) (C1 ('MetaCons "ClientTransactionGetRequest" 'PrefixI 'True) (S1 ('MetaSel ('Just "clientTransactionGetRequestTransactionId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)))

data ClientTransactionGetResponse Source #

Constructors

ClientTransactionGetResponse 

Fields

Instances

Instances details
Eq ClientTransactionGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

(==) :: ClientTransactionGetResponse -> ClientTransactionGetResponse -> Bool Source #

(/=) :: ClientTransactionGetResponse -> ClientTransactionGetResponse -> Bool Source #

Ord ClientTransactionGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

compare :: ClientTransactionGetResponse -> ClientTransactionGetResponse -> Ordering Source #

(<) :: ClientTransactionGetResponse -> ClientTransactionGetResponse -> Bool Source #

(<=) :: ClientTransactionGetResponse -> ClientTransactionGetResponse -> Bool Source #

(>) :: ClientTransactionGetResponse -> ClientTransactionGetResponse -> Bool Source #

(>=) :: ClientTransactionGetResponse -> ClientTransactionGetResponse -> Bool Source #

max :: ClientTransactionGetResponse -> ClientTransactionGetResponse -> ClientTransactionGetResponse Source #

min :: ClientTransactionGetResponse -> ClientTransactionGetResponse -> ClientTransactionGetResponse Source #

Show ClientTransactionGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

showsPrec :: Int -> ClientTransactionGetResponse -> ShowS Source #

show :: ClientTransactionGetResponse -> String Source #

showList :: [ClientTransactionGetResponse] -> ShowS Source #

Generic ClientTransactionGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Associated Types

type Rep ClientTransactionGetResponse :: Type -> Type Source #

Methods

from :: ClientTransactionGetResponse -> Rep ClientTransactionGetResponse x Source #

to :: Rep ClientTransactionGetResponse x -> ClientTransactionGetResponse Source #

ToJSON ClientTransactionGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

toJSON :: ClientTransactionGetResponse -> Value Source #

toEncoding :: ClientTransactionGetResponse -> Encoding Source #

toJSONList :: [ClientTransactionGetResponse] -> Value Source #

toEncodingList :: [ClientTransactionGetResponse] -> Encoding Source #

FromJSON ClientTransactionGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

parseJSON :: Value -> Parser ClientTransactionGetResponse Source #

parseJSONList :: Value -> Parser [ClientTransactionGetResponse] Source #

NFData ClientTransactionGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

rnf :: ClientTransactionGetResponse -> () Source #

ToJSONPB ClientTransactionGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

toJSONPB :: ClientTransactionGetResponse -> Options -> Value Source #

toEncodingPB :: ClientTransactionGetResponse -> Options -> Encoding Source #

FromJSONPB ClientTransactionGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

parseJSONPB :: Value -> Parser ClientTransactionGetResponse Source #

HasDefault ClientTransactionGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

def :: ClientTransactionGetResponse Source #

isDefault :: ClientTransactionGetResponse -> Bool Source #

Named ClientTransactionGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

nameOf :: IsString string => Proxy# ClientTransactionGetResponse -> string Source #

Message ClientTransactionGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

encodeMessage :: FieldNumber -> ClientTransactionGetResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ClientTransactionGetResponse Source #

dotProto :: Proxy# ClientTransactionGetResponse -> [DotProtoField] Source #

ToSchema ClientTransactionGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

declareNamedSchema :: Proxy ClientTransactionGetResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep ClientTransactionGetResponse Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

type Rep ClientTransactionGetResponse = D1 ('MetaData "ClientTransactionGetResponse" "Data.Sawtooth.ClientTransaction" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "ClientTransactionGetResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "clientTransactionGetResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated ClientTransactionGetResponse_Status)) :*: S1 ('MetaSel ('Just "clientTransactionGetResponseTransaction") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe Transaction))))

data ClientTransactionGetResponse_Status Source #

Constructors

ClientTransactionGetResponse_StatusSTATUS_UNSET 
ClientTransactionGetResponse_StatusOK 
ClientTransactionGetResponse_StatusINTERNAL_ERROR 
ClientTransactionGetResponse_StatusNO_RESOURCE 
ClientTransactionGetResponse_StatusINVALID_ID 

Instances

Instances details
Bounded ClientTransactionGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

minBound :: ClientTransactionGetResponse_Status Source #

maxBound :: ClientTransactionGetResponse_Status Source #

Eq ClientTransactionGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

(==) :: ClientTransactionGetResponse_Status -> ClientTransactionGetResponse_Status -> Bool Source #

(/=) :: ClientTransactionGetResponse_Status -> ClientTransactionGetResponse_Status -> Bool Source #

Ord ClientTransactionGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

compare :: ClientTransactionGetResponse_Status -> ClientTransactionGetResponse_Status -> Ordering Source #

(<) :: ClientTransactionGetResponse_Status -> ClientTransactionGetResponse_Status -> Bool Source #

(<=) :: ClientTransactionGetResponse_Status -> ClientTransactionGetResponse_Status -> Bool Source #

(>) :: ClientTransactionGetResponse_Status -> ClientTransactionGetResponse_Status -> Bool Source #

(>=) :: ClientTransactionGetResponse_Status -> ClientTransactionGetResponse_Status -> Bool Source #

max :: ClientTransactionGetResponse_Status -> ClientTransactionGetResponse_Status -> ClientTransactionGetResponse_Status Source #

min :: ClientTransactionGetResponse_Status -> ClientTransactionGetResponse_Status -> ClientTransactionGetResponse_Status Source #

Show ClientTransactionGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

showsPrec :: Int -> ClientTransactionGetResponse_Status -> ShowS Source #

show :: ClientTransactionGetResponse_Status -> String Source #

showList :: [ClientTransactionGetResponse_Status] -> ShowS Source #

Generic ClientTransactionGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Associated Types

type Rep ClientTransactionGetResponse_Status :: Type -> Type Source #

Methods

from :: ClientTransactionGetResponse_Status -> Rep ClientTransactionGetResponse_Status x Source #

to :: Rep ClientTransactionGetResponse_Status x -> ClientTransactionGetResponse_Status Source #

ToJSON ClientTransactionGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

toJSON :: ClientTransactionGetResponse_Status -> Value Source #

toEncoding :: ClientTransactionGetResponse_Status -> Encoding Source #

toJSONList :: [ClientTransactionGetResponse_Status] -> Value Source #

toEncodingList :: [ClientTransactionGetResponse_Status] -> Encoding Source #

FromJSON ClientTransactionGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

parseJSON :: Value -> Parser ClientTransactionGetResponse_Status Source #

parseJSONList :: Value -> Parser [ClientTransactionGetResponse_Status] Source #

NFData ClientTransactionGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

rnf :: ClientTransactionGetResponse_Status -> () Source #

ProtoEnum ClientTransactionGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

toProtoEnumMay :: Int32 -> Maybe ClientTransactionGetResponse_Status Source #

fromProtoEnum :: ClientTransactionGetResponse_Status -> Int32 Source #

ToJSONPB ClientTransactionGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

toJSONPB :: ClientTransactionGetResponse_Status -> Options -> Value Source #

toEncodingPB :: ClientTransactionGetResponse_Status -> Options -> Encoding Source #

FromJSONPB ClientTransactionGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

parseJSONPB :: Value -> Parser ClientTransactionGetResponse_Status Source #

HasDefault ClientTransactionGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

def :: ClientTransactionGetResponse_Status Source #

isDefault :: ClientTransactionGetResponse_Status -> Bool Source #

Named ClientTransactionGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

nameOf :: IsString string => Proxy# ClientTransactionGetResponse_Status -> string Source #

Finite ClientTransactionGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

Methods

enumerate :: IsString string => Proxy# ClientTransactionGetResponse_Status -> [(string, Int32)] Source #

type Rep ClientTransactionGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.ClientTransaction

type Rep ClientTransactionGetResponse_Status = D1 ('MetaData "ClientTransactionGetResponse_Status" "Data.Sawtooth.ClientTransaction" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) ((C1 ('MetaCons "ClientTransactionGetResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientTransactionGetResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ClientTransactionGetResponse_StatusINTERNAL_ERROR" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "ClientTransactionGetResponse_StatusNO_RESOURCE" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ClientTransactionGetResponse_StatusINVALID_ID" 'PrefixI 'False) (U1 :: Type -> Type))))
\ No newline at end of file diff --git a/Data-Sawtooth-Consensus.html b/Data-Sawtooth-Consensus.html index 374f85f..28887a8 100644 --- a/Data-Sawtooth-Consensus.html +++ b/Data-Sawtooth-Consensus.html @@ -1 +1 @@ -Data.Sawtooth.Consensus
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types
Safe HaskellNone
LanguageHaskell2010

Data.Sawtooth.Consensus

Description

Generated by Haskell protocol buffer compiler. DO NOT EDIT!

Documentation

data ConsensusPeerMessageHeader Source #

Constructors

ConsensusPeerMessageHeader 

Fields

Instances

Instances details
Eq ConsensusPeerMessageHeader Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusPeerMessageHeader -> ConsensusPeerMessageHeader -> Bool Source #

(/=) :: ConsensusPeerMessageHeader -> ConsensusPeerMessageHeader -> Bool Source #

Ord ConsensusPeerMessageHeader Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusPeerMessageHeader -> ConsensusPeerMessageHeader -> Ordering Source #

(<) :: ConsensusPeerMessageHeader -> ConsensusPeerMessageHeader -> Bool Source #

(<=) :: ConsensusPeerMessageHeader -> ConsensusPeerMessageHeader -> Bool Source #

(>) :: ConsensusPeerMessageHeader -> ConsensusPeerMessageHeader -> Bool Source #

(>=) :: ConsensusPeerMessageHeader -> ConsensusPeerMessageHeader -> Bool Source #

max :: ConsensusPeerMessageHeader -> ConsensusPeerMessageHeader -> ConsensusPeerMessageHeader Source #

min :: ConsensusPeerMessageHeader -> ConsensusPeerMessageHeader -> ConsensusPeerMessageHeader Source #

Show ConsensusPeerMessageHeader Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusPeerMessageHeader -> ShowS Source #

show :: ConsensusPeerMessageHeader -> String Source #

showList :: [ConsensusPeerMessageHeader] -> ShowS Source #

Generic ConsensusPeerMessageHeader Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusPeerMessageHeader :: Type -> Type Source #

Methods

from :: ConsensusPeerMessageHeader -> Rep ConsensusPeerMessageHeader x Source #

to :: Rep ConsensusPeerMessageHeader x -> ConsensusPeerMessageHeader Source #

ToJSON ConsensusPeerMessageHeader Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusPeerMessageHeader -> Value Source #

toEncoding :: ConsensusPeerMessageHeader -> Encoding Source #

toJSONList :: [ConsensusPeerMessageHeader] -> Value Source #

toEncodingList :: [ConsensusPeerMessageHeader] -> Encoding Source #

FromJSON ConsensusPeerMessageHeader Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusPeerMessageHeader Source #

parseJSONList :: Value -> Parser [ConsensusPeerMessageHeader] Source #

NFData ConsensusPeerMessageHeader Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusPeerMessageHeader -> () Source #

ToJSONPB ConsensusPeerMessageHeader Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusPeerMessageHeader -> Options -> Value Source #

toEncodingPB :: ConsensusPeerMessageHeader -> Options -> Encoding Source #

FromJSONPB ConsensusPeerMessageHeader Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusPeerMessageHeader Source #

HasDefault ConsensusPeerMessageHeader Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusPeerMessageHeader Source #

isDefault :: ConsensusPeerMessageHeader -> Bool Source #

Named ConsensusPeerMessageHeader Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusPeerMessageHeader -> string Source #

Message ConsensusPeerMessageHeader Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusPeerMessageHeader -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusPeerMessageHeader Source #

dotProto :: Proxy# ConsensusPeerMessageHeader -> [DotProtoField] Source #

ToSchema ConsensusPeerMessageHeader Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusPeerMessageHeader -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusPeerMessageHeader Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusPeerMessageHeader = D1 ('MetaData "ConsensusPeerMessageHeader" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "ConsensusPeerMessageHeader" 'PrefixI 'True) ((S1 ('MetaSel ('Just "consensusPeerMessageHeaderSignerId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString) :*: S1 ('MetaSel ('Just "consensusPeerMessageHeaderContentSha512") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString)) :*: (S1 ('MetaSel ('Just "consensusPeerMessageHeaderMessageType") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: (S1 ('MetaSel ('Just "consensusPeerMessageHeaderName") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "consensusPeerMessageHeaderVersion") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)))))

data ConsensusPeerMessage Source #

Constructors

ConsensusPeerMessage 

Fields

Instances

Instances details
Eq ConsensusPeerMessage Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusPeerMessage -> ConsensusPeerMessage -> Bool Source #

(/=) :: ConsensusPeerMessage -> ConsensusPeerMessage -> Bool Source #

Ord ConsensusPeerMessage Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusPeerMessage -> ConsensusPeerMessage -> Ordering Source #

(<) :: ConsensusPeerMessage -> ConsensusPeerMessage -> Bool Source #

(<=) :: ConsensusPeerMessage -> ConsensusPeerMessage -> Bool Source #

(>) :: ConsensusPeerMessage -> ConsensusPeerMessage -> Bool Source #

(>=) :: ConsensusPeerMessage -> ConsensusPeerMessage -> Bool Source #

max :: ConsensusPeerMessage -> ConsensusPeerMessage -> ConsensusPeerMessage Source #

min :: ConsensusPeerMessage -> ConsensusPeerMessage -> ConsensusPeerMessage Source #

Show ConsensusPeerMessage Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusPeerMessage -> ShowS Source #

show :: ConsensusPeerMessage -> String Source #

showList :: [ConsensusPeerMessage] -> ShowS Source #

Generic ConsensusPeerMessage Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusPeerMessage :: Type -> Type Source #

Methods

from :: ConsensusPeerMessage -> Rep ConsensusPeerMessage x Source #

to :: Rep ConsensusPeerMessage x -> ConsensusPeerMessage Source #

ToJSON ConsensusPeerMessage Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusPeerMessage -> Value Source #

toEncoding :: ConsensusPeerMessage -> Encoding Source #

toJSONList :: [ConsensusPeerMessage] -> Value Source #

toEncodingList :: [ConsensusPeerMessage] -> Encoding Source #

FromJSON ConsensusPeerMessage Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusPeerMessage Source #

parseJSONList :: Value -> Parser [ConsensusPeerMessage] Source #

NFData ConsensusPeerMessage Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusPeerMessage -> () Source #

ToJSONPB ConsensusPeerMessage Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusPeerMessage -> Options -> Value Source #

toEncodingPB :: ConsensusPeerMessage -> Options -> Encoding Source #

FromJSONPB ConsensusPeerMessage Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusPeerMessage Source #

HasDefault ConsensusPeerMessage Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusPeerMessage Source #

isDefault :: ConsensusPeerMessage -> Bool Source #

Named ConsensusPeerMessage Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusPeerMessage -> string Source #

Message ConsensusPeerMessage Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusPeerMessage -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusPeerMessage Source #

dotProto :: Proxy# ConsensusPeerMessage -> [DotProtoField] Source #

ToSchema ConsensusPeerMessage Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusPeerMessage -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusPeerMessage Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusPeerMessage = D1 ('MetaData "ConsensusPeerMessage" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "ConsensusPeerMessage" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusPeerMessageHeader") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString) :*: (S1 ('MetaSel ('Just "consensusPeerMessageHeaderSignature") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString) :*: S1 ('MetaSel ('Just "consensusPeerMessageContent") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString))))

data ConsensusBlock Source #

Constructors

ConsensusBlock 

Fields

Instances

Instances details
Eq ConsensusBlock Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusBlock -> ConsensusBlock -> Bool Source #

(/=) :: ConsensusBlock -> ConsensusBlock -> Bool Source #

Ord ConsensusBlock Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusBlock -> ConsensusBlock -> Ordering Source #

(<) :: ConsensusBlock -> ConsensusBlock -> Bool Source #

(<=) :: ConsensusBlock -> ConsensusBlock -> Bool Source #

(>) :: ConsensusBlock -> ConsensusBlock -> Bool Source #

(>=) :: ConsensusBlock -> ConsensusBlock -> Bool Source #

max :: ConsensusBlock -> ConsensusBlock -> ConsensusBlock Source #

min :: ConsensusBlock -> ConsensusBlock -> ConsensusBlock Source #

Show ConsensusBlock Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusBlock -> ShowS Source #

show :: ConsensusBlock -> String Source #

showList :: [ConsensusBlock] -> ShowS Source #

Generic ConsensusBlock Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusBlock :: Type -> Type Source #

Methods

from :: ConsensusBlock -> Rep ConsensusBlock x Source #

to :: Rep ConsensusBlock x -> ConsensusBlock Source #

ToJSON ConsensusBlock Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusBlock -> Value Source #

toEncoding :: ConsensusBlock -> Encoding Source #

toJSONList :: [ConsensusBlock] -> Value Source #

toEncodingList :: [ConsensusBlock] -> Encoding Source #

FromJSON ConsensusBlock Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusBlock Source #

parseJSONList :: Value -> Parser [ConsensusBlock] Source #

NFData ConsensusBlock Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusBlock -> () Source #

ToJSONPB ConsensusBlock Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusBlock -> Options -> Value Source #

toEncodingPB :: ConsensusBlock -> Options -> Encoding Source #

FromJSONPB ConsensusBlock Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusBlock Source #

HasDefault ConsensusBlock Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusBlock Source #

isDefault :: ConsensusBlock -> Bool Source #

Named ConsensusBlock Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusBlock -> string Source #

Message ConsensusBlock Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusBlock -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusBlock Source #

dotProto :: Proxy# ConsensusBlock -> [DotProtoField] Source #

ToSchema ConsensusBlock Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusBlock -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusBlock Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusBlock = D1 ('MetaData "ConsensusBlock" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "ConsensusBlock" 'PrefixI 'True) ((S1 ('MetaSel ('Just "consensusBlockBlockId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString) :*: (S1 ('MetaSel ('Just "consensusBlockPreviousId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString) :*: S1 ('MetaSel ('Just "consensusBlockSignerId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString))) :*: (S1 ('MetaSel ('Just "consensusBlockBlockNum") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Word64) :*: (S1 ('MetaSel ('Just "consensusBlockPayload") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString) :*: S1 ('MetaSel ('Just "consensusBlockSummary") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString)))))

newtype ConsensusPeerInfo Source #

Constructors

ConsensusPeerInfo 

Fields

Instances

Instances details
Eq ConsensusPeerInfo Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusPeerInfo -> ConsensusPeerInfo -> Bool Source #

(/=) :: ConsensusPeerInfo -> ConsensusPeerInfo -> Bool Source #

Ord ConsensusPeerInfo Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusPeerInfo -> ConsensusPeerInfo -> Ordering Source #

(<) :: ConsensusPeerInfo -> ConsensusPeerInfo -> Bool Source #

(<=) :: ConsensusPeerInfo -> ConsensusPeerInfo -> Bool Source #

(>) :: ConsensusPeerInfo -> ConsensusPeerInfo -> Bool Source #

(>=) :: ConsensusPeerInfo -> ConsensusPeerInfo -> Bool Source #

max :: ConsensusPeerInfo -> ConsensusPeerInfo -> ConsensusPeerInfo Source #

min :: ConsensusPeerInfo -> ConsensusPeerInfo -> ConsensusPeerInfo Source #

Show ConsensusPeerInfo Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusPeerInfo -> ShowS Source #

show :: ConsensusPeerInfo -> String Source #

showList :: [ConsensusPeerInfo] -> ShowS Source #

Generic ConsensusPeerInfo Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusPeerInfo :: Type -> Type Source #

Methods

from :: ConsensusPeerInfo -> Rep ConsensusPeerInfo x Source #

to :: Rep ConsensusPeerInfo x -> ConsensusPeerInfo Source #

ToJSON ConsensusPeerInfo Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusPeerInfo -> Value Source #

toEncoding :: ConsensusPeerInfo -> Encoding Source #

toJSONList :: [ConsensusPeerInfo] -> Value Source #

toEncodingList :: [ConsensusPeerInfo] -> Encoding Source #

FromJSON ConsensusPeerInfo Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusPeerInfo Source #

parseJSONList :: Value -> Parser [ConsensusPeerInfo] Source #

NFData ConsensusPeerInfo Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusPeerInfo -> () Source #

ToJSONPB ConsensusPeerInfo Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusPeerInfo -> Options -> Value Source #

toEncodingPB :: ConsensusPeerInfo -> Options -> Encoding Source #

FromJSONPB ConsensusPeerInfo Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusPeerInfo Source #

HasDefault ConsensusPeerInfo Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusPeerInfo Source #

isDefault :: ConsensusPeerInfo -> Bool Source #

Named ConsensusPeerInfo Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusPeerInfo -> string Source #

Message ConsensusPeerInfo Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusPeerInfo -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusPeerInfo Source #

dotProto :: Proxy# ConsensusPeerInfo -> [DotProtoField] Source #

ToSchema ConsensusPeerInfo Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusPeerInfo -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusPeerInfo Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusPeerInfo = D1 ('MetaData "ConsensusPeerInfo" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'True) (C1 ('MetaCons "ConsensusPeerInfo" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusPeerInfoPeerId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString)))

data ConsensusSettingsEntry Source #

Constructors

ConsensusSettingsEntry 

Fields

Instances

Instances details
Eq ConsensusSettingsEntry Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusSettingsEntry -> ConsensusSettingsEntry -> Bool Source #

(/=) :: ConsensusSettingsEntry -> ConsensusSettingsEntry -> Bool Source #

Ord ConsensusSettingsEntry Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusSettingsEntry -> ConsensusSettingsEntry -> Ordering Source #

(<) :: ConsensusSettingsEntry -> ConsensusSettingsEntry -> Bool Source #

(<=) :: ConsensusSettingsEntry -> ConsensusSettingsEntry -> Bool Source #

(>) :: ConsensusSettingsEntry -> ConsensusSettingsEntry -> Bool Source #

(>=) :: ConsensusSettingsEntry -> ConsensusSettingsEntry -> Bool Source #

max :: ConsensusSettingsEntry -> ConsensusSettingsEntry -> ConsensusSettingsEntry Source #

min :: ConsensusSettingsEntry -> ConsensusSettingsEntry -> ConsensusSettingsEntry Source #

Show ConsensusSettingsEntry Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusSettingsEntry -> ShowS Source #

show :: ConsensusSettingsEntry -> String Source #

showList :: [ConsensusSettingsEntry] -> ShowS Source #

Generic ConsensusSettingsEntry Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusSettingsEntry :: Type -> Type Source #

Methods

from :: ConsensusSettingsEntry -> Rep ConsensusSettingsEntry x Source #

to :: Rep ConsensusSettingsEntry x -> ConsensusSettingsEntry Source #

ToJSON ConsensusSettingsEntry Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusSettingsEntry -> Value Source #

toEncoding :: ConsensusSettingsEntry -> Encoding Source #

toJSONList :: [ConsensusSettingsEntry] -> Value Source #

toEncodingList :: [ConsensusSettingsEntry] -> Encoding Source #

FromJSON ConsensusSettingsEntry Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusSettingsEntry Source #

parseJSONList :: Value -> Parser [ConsensusSettingsEntry] Source #

NFData ConsensusSettingsEntry Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusSettingsEntry -> () Source #

ToJSONPB ConsensusSettingsEntry Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusSettingsEntry -> Options -> Value Source #

toEncodingPB :: ConsensusSettingsEntry -> Options -> Encoding Source #

FromJSONPB ConsensusSettingsEntry Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusSettingsEntry Source #

HasDefault ConsensusSettingsEntry Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusSettingsEntry Source #

isDefault :: ConsensusSettingsEntry -> Bool Source #

Named ConsensusSettingsEntry Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusSettingsEntry -> string Source #

Message ConsensusSettingsEntry Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusSettingsEntry -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusSettingsEntry Source #

dotProto :: Proxy# ConsensusSettingsEntry -> [DotProtoField] Source #

ToSchema ConsensusSettingsEntry Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusSettingsEntry -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusSettingsEntry Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusSettingsEntry = D1 ('MetaData "ConsensusSettingsEntry" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "ConsensusSettingsEntry" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusSettingsEntryKey") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "consensusSettingsEntryValue") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)))

data ConsensusStateEntry Source #

Constructors

ConsensusStateEntry 

Fields

Instances

Instances details
Eq ConsensusStateEntry Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusStateEntry -> ConsensusStateEntry -> Bool Source #

(/=) :: ConsensusStateEntry -> ConsensusStateEntry -> Bool Source #

Ord ConsensusStateEntry Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusStateEntry -> ConsensusStateEntry -> Ordering Source #

(<) :: ConsensusStateEntry -> ConsensusStateEntry -> Bool Source #

(<=) :: ConsensusStateEntry -> ConsensusStateEntry -> Bool Source #

(>) :: ConsensusStateEntry -> ConsensusStateEntry -> Bool Source #

(>=) :: ConsensusStateEntry -> ConsensusStateEntry -> Bool Source #

max :: ConsensusStateEntry -> ConsensusStateEntry -> ConsensusStateEntry Source #

min :: ConsensusStateEntry -> ConsensusStateEntry -> ConsensusStateEntry Source #

Show ConsensusStateEntry Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusStateEntry -> ShowS Source #

show :: ConsensusStateEntry -> String Source #

showList :: [ConsensusStateEntry] -> ShowS Source #

Generic ConsensusStateEntry Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusStateEntry :: Type -> Type Source #

Methods

from :: ConsensusStateEntry -> Rep ConsensusStateEntry x Source #

to :: Rep ConsensusStateEntry x -> ConsensusStateEntry Source #

ToJSON ConsensusStateEntry Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusStateEntry -> Value Source #

toEncoding :: ConsensusStateEntry -> Encoding Source #

toJSONList :: [ConsensusStateEntry] -> Value Source #

toEncodingList :: [ConsensusStateEntry] -> Encoding Source #

FromJSON ConsensusStateEntry Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusStateEntry Source #

parseJSONList :: Value -> Parser [ConsensusStateEntry] Source #

NFData ConsensusStateEntry Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusStateEntry -> () Source #

ToJSONPB ConsensusStateEntry Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusStateEntry -> Options -> Value Source #

toEncodingPB :: ConsensusStateEntry -> Options -> Encoding Source #

FromJSONPB ConsensusStateEntry Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusStateEntry Source #

HasDefault ConsensusStateEntry Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusStateEntry Source #

isDefault :: ConsensusStateEntry -> Bool Source #

Named ConsensusStateEntry Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusStateEntry -> string Source #

Message ConsensusStateEntry Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusStateEntry -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusStateEntry Source #

dotProto :: Proxy# ConsensusStateEntry -> [DotProtoField] Source #

ToSchema ConsensusStateEntry Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusStateEntry -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusStateEntry Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusStateEntry = D1 ('MetaData "ConsensusStateEntry" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "ConsensusStateEntry" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusStateEntryAddress") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "consensusStateEntryData") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString)))

data ConsensusRegisterRequest Source #

Constructors

ConsensusRegisterRequest 

Fields

Instances

Instances details
Eq ConsensusRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusRegisterRequest -> ConsensusRegisterRequest -> Bool Source #

(/=) :: ConsensusRegisterRequest -> ConsensusRegisterRequest -> Bool Source #

Ord ConsensusRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusRegisterRequest -> ConsensusRegisterRequest -> Ordering Source #

(<) :: ConsensusRegisterRequest -> ConsensusRegisterRequest -> Bool Source #

(<=) :: ConsensusRegisterRequest -> ConsensusRegisterRequest -> Bool Source #

(>) :: ConsensusRegisterRequest -> ConsensusRegisterRequest -> Bool Source #

(>=) :: ConsensusRegisterRequest -> ConsensusRegisterRequest -> Bool Source #

max :: ConsensusRegisterRequest -> ConsensusRegisterRequest -> ConsensusRegisterRequest Source #

min :: ConsensusRegisterRequest -> ConsensusRegisterRequest -> ConsensusRegisterRequest Source #

Show ConsensusRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusRegisterRequest -> ShowS Source #

show :: ConsensusRegisterRequest -> String Source #

showList :: [ConsensusRegisterRequest] -> ShowS Source #

Generic ConsensusRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusRegisterRequest :: Type -> Type Source #

Methods

from :: ConsensusRegisterRequest -> Rep ConsensusRegisterRequest x Source #

to :: Rep ConsensusRegisterRequest x -> ConsensusRegisterRequest Source #

ToJSON ConsensusRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusRegisterRequest -> Value Source #

toEncoding :: ConsensusRegisterRequest -> Encoding Source #

toJSONList :: [ConsensusRegisterRequest] -> Value Source #

toEncodingList :: [ConsensusRegisterRequest] -> Encoding Source #

FromJSON ConsensusRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusRegisterRequest Source #

parseJSONList :: Value -> Parser [ConsensusRegisterRequest] Source #

NFData ConsensusRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusRegisterRequest -> () Source #

ToJSONPB ConsensusRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusRegisterRequest -> Options -> Value Source #

toEncodingPB :: ConsensusRegisterRequest -> Options -> Encoding Source #

FromJSONPB ConsensusRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusRegisterRequest Source #

HasDefault ConsensusRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusRegisterRequest Source #

isDefault :: ConsensusRegisterRequest -> Bool Source #

Named ConsensusRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusRegisterRequest -> string Source #

Message ConsensusRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusRegisterRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusRegisterRequest Source #

dotProto :: Proxy# ConsensusRegisterRequest -> [DotProtoField] Source #

ToSchema ConsensusRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusRegisterRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusRegisterRequest = D1 ('MetaData "ConsensusRegisterRequest" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "ConsensusRegisterRequest" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusRegisterRequestName") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: (S1 ('MetaSel ('Just "consensusRegisterRequestVersion") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "consensusRegisterRequestAdditionalProtocols") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector ConsensusRegisterRequest_Protocol)))))

data ConsensusRegisterRequest_Protocol Source #

Constructors

ConsensusRegisterRequest_Protocol 

Fields

Instances

Instances details
Eq ConsensusRegisterRequest_Protocol Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusRegisterRequest_Protocol -> ConsensusRegisterRequest_Protocol -> Bool Source #

(/=) :: ConsensusRegisterRequest_Protocol -> ConsensusRegisterRequest_Protocol -> Bool Source #

Ord ConsensusRegisterRequest_Protocol Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusRegisterRequest_Protocol -> ConsensusRegisterRequest_Protocol -> Ordering Source #

(<) :: ConsensusRegisterRequest_Protocol -> ConsensusRegisterRequest_Protocol -> Bool Source #

(<=) :: ConsensusRegisterRequest_Protocol -> ConsensusRegisterRequest_Protocol -> Bool Source #

(>) :: ConsensusRegisterRequest_Protocol -> ConsensusRegisterRequest_Protocol -> Bool Source #

(>=) :: ConsensusRegisterRequest_Protocol -> ConsensusRegisterRequest_Protocol -> Bool Source #

max :: ConsensusRegisterRequest_Protocol -> ConsensusRegisterRequest_Protocol -> ConsensusRegisterRequest_Protocol Source #

min :: ConsensusRegisterRequest_Protocol -> ConsensusRegisterRequest_Protocol -> ConsensusRegisterRequest_Protocol Source #

Show ConsensusRegisterRequest_Protocol Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusRegisterRequest_Protocol -> ShowS Source #

show :: ConsensusRegisterRequest_Protocol -> String Source #

showList :: [ConsensusRegisterRequest_Protocol] -> ShowS Source #

Generic ConsensusRegisterRequest_Protocol Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusRegisterRequest_Protocol :: Type -> Type Source #

Methods

from :: ConsensusRegisterRequest_Protocol -> Rep ConsensusRegisterRequest_Protocol x Source #

to :: Rep ConsensusRegisterRequest_Protocol x -> ConsensusRegisterRequest_Protocol Source #

ToJSON ConsensusRegisterRequest_Protocol Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusRegisterRequest_Protocol -> Value Source #

toEncoding :: ConsensusRegisterRequest_Protocol -> Encoding Source #

toJSONList :: [ConsensusRegisterRequest_Protocol] -> Value Source #

toEncodingList :: [ConsensusRegisterRequest_Protocol] -> Encoding Source #

FromJSON ConsensusRegisterRequest_Protocol Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusRegisterRequest_Protocol Source #

parseJSONList :: Value -> Parser [ConsensusRegisterRequest_Protocol] Source #

NFData ConsensusRegisterRequest_Protocol Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusRegisterRequest_Protocol -> () Source #

ToJSONPB ConsensusRegisterRequest_Protocol Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusRegisterRequest_Protocol -> Options -> Value Source #

toEncodingPB :: ConsensusRegisterRequest_Protocol -> Options -> Encoding Source #

FromJSONPB ConsensusRegisterRequest_Protocol Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusRegisterRequest_Protocol Source #

HasDefault ConsensusRegisterRequest_Protocol Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusRegisterRequest_Protocol Source #

isDefault :: ConsensusRegisterRequest_Protocol -> Bool Source #

Named ConsensusRegisterRequest_Protocol Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusRegisterRequest_Protocol -> string Source #

Message ConsensusRegisterRequest_Protocol Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusRegisterRequest_Protocol -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusRegisterRequest_Protocol Source #

dotProto :: Proxy# ConsensusRegisterRequest_Protocol -> [DotProtoField] Source #

ToSchema ConsensusRegisterRequest_Protocol Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusRegisterRequest_Protocol -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusRegisterRequest_Protocol Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusRegisterRequest_Protocol = D1 ('MetaData "ConsensusRegisterRequest_Protocol" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "ConsensusRegisterRequest_Protocol" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusRegisterRequest_ProtocolName") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "consensusRegisterRequest_ProtocolVersion") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)))

data ConsensusRegisterResponse Source #

Constructors

ConsensusRegisterResponse 

Fields

Instances

Instances details
Eq ConsensusRegisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusRegisterResponse -> ConsensusRegisterResponse -> Bool Source #

(/=) :: ConsensusRegisterResponse -> ConsensusRegisterResponse -> Bool Source #

Ord ConsensusRegisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusRegisterResponse -> ConsensusRegisterResponse -> Ordering Source #

(<) :: ConsensusRegisterResponse -> ConsensusRegisterResponse -> Bool Source #

(<=) :: ConsensusRegisterResponse -> ConsensusRegisterResponse -> Bool Source #

(>) :: ConsensusRegisterResponse -> ConsensusRegisterResponse -> Bool Source #

(>=) :: ConsensusRegisterResponse -> ConsensusRegisterResponse -> Bool Source #

max :: ConsensusRegisterResponse -> ConsensusRegisterResponse -> ConsensusRegisterResponse Source #

min :: ConsensusRegisterResponse -> ConsensusRegisterResponse -> ConsensusRegisterResponse Source #

Show ConsensusRegisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusRegisterResponse -> ShowS Source #

show :: ConsensusRegisterResponse -> String Source #

showList :: [ConsensusRegisterResponse] -> ShowS Source #

Generic ConsensusRegisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusRegisterResponse :: Type -> Type Source #

Methods

from :: ConsensusRegisterResponse -> Rep ConsensusRegisterResponse x Source #

to :: Rep ConsensusRegisterResponse x -> ConsensusRegisterResponse Source #

ToJSON ConsensusRegisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusRegisterResponse -> Value Source #

toEncoding :: ConsensusRegisterResponse -> Encoding Source #

toJSONList :: [ConsensusRegisterResponse] -> Value Source #

toEncodingList :: [ConsensusRegisterResponse] -> Encoding Source #

FromJSON ConsensusRegisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusRegisterResponse Source #

parseJSONList :: Value -> Parser [ConsensusRegisterResponse] Source #

NFData ConsensusRegisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusRegisterResponse -> () Source #

ToJSONPB ConsensusRegisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusRegisterResponse -> Options -> Value Source #

toEncodingPB :: ConsensusRegisterResponse -> Options -> Encoding Source #

FromJSONPB ConsensusRegisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusRegisterResponse Source #

HasDefault ConsensusRegisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusRegisterResponse Source #

isDefault :: ConsensusRegisterResponse -> Bool Source #

Named ConsensusRegisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusRegisterResponse -> string Source #

Message ConsensusRegisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusRegisterResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusRegisterResponse Source #

dotProto :: Proxy# ConsensusRegisterResponse -> [DotProtoField] Source #

ToSchema ConsensusRegisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusRegisterResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusRegisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusRegisterResponse = D1 ('MetaData "ConsensusRegisterResponse" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "ConsensusRegisterResponse" 'PrefixI 'True) ((S1 ('MetaSel ('Just "consensusRegisterResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated ConsensusRegisterResponse_Status)) :*: S1 ('MetaSel ('Just "consensusRegisterResponseChainHead") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe ConsensusBlock))) :*: (S1 ('MetaSel ('Just "consensusRegisterResponsePeers") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector ConsensusPeerInfo)) :*: S1 ('MetaSel ('Just "consensusRegisterResponseLocalPeerInfo") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe ConsensusPeerInfo)))))

data ConsensusRegisterResponse_Status Source #

Constructors

ConsensusRegisterResponse_StatusSTATUS_UNSET 
ConsensusRegisterResponse_StatusOK 
ConsensusRegisterResponse_StatusBAD_REQUEST 
ConsensusRegisterResponse_StatusSERVICE_ERROR 
ConsensusRegisterResponse_StatusNOT_READY 

Instances

Instances details
Bounded ConsensusRegisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

minBound :: ConsensusRegisterResponse_Status Source #

maxBound :: ConsensusRegisterResponse_Status Source #

Eq ConsensusRegisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusRegisterResponse_Status -> ConsensusRegisterResponse_Status -> Bool Source #

(/=) :: ConsensusRegisterResponse_Status -> ConsensusRegisterResponse_Status -> Bool Source #

Ord ConsensusRegisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusRegisterResponse_Status -> ConsensusRegisterResponse_Status -> Ordering Source #

(<) :: ConsensusRegisterResponse_Status -> ConsensusRegisterResponse_Status -> Bool Source #

(<=) :: ConsensusRegisterResponse_Status -> ConsensusRegisterResponse_Status -> Bool Source #

(>) :: ConsensusRegisterResponse_Status -> ConsensusRegisterResponse_Status -> Bool Source #

(>=) :: ConsensusRegisterResponse_Status -> ConsensusRegisterResponse_Status -> Bool Source #

max :: ConsensusRegisterResponse_Status -> ConsensusRegisterResponse_Status -> ConsensusRegisterResponse_Status Source #

min :: ConsensusRegisterResponse_Status -> ConsensusRegisterResponse_Status -> ConsensusRegisterResponse_Status Source #

Show ConsensusRegisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusRegisterResponse_Status -> ShowS Source #

show :: ConsensusRegisterResponse_Status -> String Source #

showList :: [ConsensusRegisterResponse_Status] -> ShowS Source #

Generic ConsensusRegisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusRegisterResponse_Status :: Type -> Type Source #

Methods

from :: ConsensusRegisterResponse_Status -> Rep ConsensusRegisterResponse_Status x Source #

to :: Rep ConsensusRegisterResponse_Status x -> ConsensusRegisterResponse_Status Source #

ToJSON ConsensusRegisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusRegisterResponse_Status -> Value Source #

toEncoding :: ConsensusRegisterResponse_Status -> Encoding Source #

toJSONList :: [ConsensusRegisterResponse_Status] -> Value Source #

toEncodingList :: [ConsensusRegisterResponse_Status] -> Encoding Source #

FromJSON ConsensusRegisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusRegisterResponse_Status Source #

parseJSONList :: Value -> Parser [ConsensusRegisterResponse_Status] Source #

NFData ConsensusRegisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusRegisterResponse_Status -> () Source #

ProtoEnum ConsensusRegisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toProtoEnumMay :: Int32 -> Maybe ConsensusRegisterResponse_Status Source #

fromProtoEnum :: ConsensusRegisterResponse_Status -> Int32 Source #

ToJSONPB ConsensusRegisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusRegisterResponse_Status -> Options -> Value Source #

toEncodingPB :: ConsensusRegisterResponse_Status -> Options -> Encoding Source #

FromJSONPB ConsensusRegisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusRegisterResponse_Status Source #

HasDefault ConsensusRegisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusRegisterResponse_Status Source #

isDefault :: ConsensusRegisterResponse_Status -> Bool Source #

Named ConsensusRegisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusRegisterResponse_Status -> string Source #

Finite ConsensusRegisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

enumerate :: IsString string => Proxy# ConsensusRegisterResponse_Status -> [(string, Int32)] Source #

type Rep ConsensusRegisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusRegisterResponse_Status = D1 ('MetaData "ConsensusRegisterResponse_Status" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) ((C1 ('MetaCons "ConsensusRegisterResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusRegisterResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ConsensusRegisterResponse_StatusBAD_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "ConsensusRegisterResponse_StatusSERVICE_ERROR" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusRegisterResponse_StatusNOT_READY" 'PrefixI 'False) (U1 :: Type -> Type))))

newtype ConsensusNotifyPeerConnected Source #

Constructors

ConsensusNotifyPeerConnected 

Fields

Instances

Instances details
Eq ConsensusNotifyPeerConnected Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusNotifyPeerConnected -> ConsensusNotifyPeerConnected -> Bool Source #

(/=) :: ConsensusNotifyPeerConnected -> ConsensusNotifyPeerConnected -> Bool Source #

Ord ConsensusNotifyPeerConnected Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusNotifyPeerConnected -> ConsensusNotifyPeerConnected -> Ordering Source #

(<) :: ConsensusNotifyPeerConnected -> ConsensusNotifyPeerConnected -> Bool Source #

(<=) :: ConsensusNotifyPeerConnected -> ConsensusNotifyPeerConnected -> Bool Source #

(>) :: ConsensusNotifyPeerConnected -> ConsensusNotifyPeerConnected -> Bool Source #

(>=) :: ConsensusNotifyPeerConnected -> ConsensusNotifyPeerConnected -> Bool Source #

max :: ConsensusNotifyPeerConnected -> ConsensusNotifyPeerConnected -> ConsensusNotifyPeerConnected Source #

min :: ConsensusNotifyPeerConnected -> ConsensusNotifyPeerConnected -> ConsensusNotifyPeerConnected Source #

Show ConsensusNotifyPeerConnected Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusNotifyPeerConnected -> ShowS Source #

show :: ConsensusNotifyPeerConnected -> String Source #

showList :: [ConsensusNotifyPeerConnected] -> ShowS Source #

Generic ConsensusNotifyPeerConnected Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusNotifyPeerConnected :: Type -> Type Source #

Methods

from :: ConsensusNotifyPeerConnected -> Rep ConsensusNotifyPeerConnected x Source #

to :: Rep ConsensusNotifyPeerConnected x -> ConsensusNotifyPeerConnected Source #

ToJSON ConsensusNotifyPeerConnected Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusNotifyPeerConnected -> Value Source #

toEncoding :: ConsensusNotifyPeerConnected -> Encoding Source #

toJSONList :: [ConsensusNotifyPeerConnected] -> Value Source #

toEncodingList :: [ConsensusNotifyPeerConnected] -> Encoding Source #

FromJSON ConsensusNotifyPeerConnected Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusNotifyPeerConnected Source #

parseJSONList :: Value -> Parser [ConsensusNotifyPeerConnected] Source #

NFData ConsensusNotifyPeerConnected Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusNotifyPeerConnected -> () Source #

ToJSONPB ConsensusNotifyPeerConnected Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusNotifyPeerConnected -> Options -> Value Source #

toEncodingPB :: ConsensusNotifyPeerConnected -> Options -> Encoding Source #

FromJSONPB ConsensusNotifyPeerConnected Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusNotifyPeerConnected Source #

HasDefault ConsensusNotifyPeerConnected Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusNotifyPeerConnected Source #

isDefault :: ConsensusNotifyPeerConnected -> Bool Source #

Named ConsensusNotifyPeerConnected Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusNotifyPeerConnected -> string Source #

Message ConsensusNotifyPeerConnected Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusNotifyPeerConnected -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusNotifyPeerConnected Source #

dotProto :: Proxy# ConsensusNotifyPeerConnected -> [DotProtoField] Source #

ToSchema ConsensusNotifyPeerConnected Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusNotifyPeerConnected -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusNotifyPeerConnected Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusNotifyPeerConnected = D1 ('MetaData "ConsensusNotifyPeerConnected" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'True) (C1 ('MetaCons "ConsensusNotifyPeerConnected" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusNotifyPeerConnectedPeerInfo") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe ConsensusPeerInfo))))

newtype ConsensusNotifyPeerDisconnected Source #

Constructors

ConsensusNotifyPeerDisconnected 

Fields

Instances

Instances details
Eq ConsensusNotifyPeerDisconnected Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusNotifyPeerDisconnected -> ConsensusNotifyPeerDisconnected -> Bool Source #

(/=) :: ConsensusNotifyPeerDisconnected -> ConsensusNotifyPeerDisconnected -> Bool Source #

Ord ConsensusNotifyPeerDisconnected Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusNotifyPeerDisconnected -> ConsensusNotifyPeerDisconnected -> Ordering Source #

(<) :: ConsensusNotifyPeerDisconnected -> ConsensusNotifyPeerDisconnected -> Bool Source #

(<=) :: ConsensusNotifyPeerDisconnected -> ConsensusNotifyPeerDisconnected -> Bool Source #

(>) :: ConsensusNotifyPeerDisconnected -> ConsensusNotifyPeerDisconnected -> Bool Source #

(>=) :: ConsensusNotifyPeerDisconnected -> ConsensusNotifyPeerDisconnected -> Bool Source #

max :: ConsensusNotifyPeerDisconnected -> ConsensusNotifyPeerDisconnected -> ConsensusNotifyPeerDisconnected Source #

min :: ConsensusNotifyPeerDisconnected -> ConsensusNotifyPeerDisconnected -> ConsensusNotifyPeerDisconnected Source #

Show ConsensusNotifyPeerDisconnected Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusNotifyPeerDisconnected -> ShowS Source #

show :: ConsensusNotifyPeerDisconnected -> String Source #

showList :: [ConsensusNotifyPeerDisconnected] -> ShowS Source #

Generic ConsensusNotifyPeerDisconnected Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusNotifyPeerDisconnected :: Type -> Type Source #

Methods

from :: ConsensusNotifyPeerDisconnected -> Rep ConsensusNotifyPeerDisconnected x Source #

to :: Rep ConsensusNotifyPeerDisconnected x -> ConsensusNotifyPeerDisconnected Source #

ToJSON ConsensusNotifyPeerDisconnected Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusNotifyPeerDisconnected -> Value Source #

toEncoding :: ConsensusNotifyPeerDisconnected -> Encoding Source #

toJSONList :: [ConsensusNotifyPeerDisconnected] -> Value Source #

toEncodingList :: [ConsensusNotifyPeerDisconnected] -> Encoding Source #

FromJSON ConsensusNotifyPeerDisconnected Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusNotifyPeerDisconnected Source #

parseJSONList :: Value -> Parser [ConsensusNotifyPeerDisconnected] Source #

NFData ConsensusNotifyPeerDisconnected Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusNotifyPeerDisconnected -> () Source #

ToJSONPB ConsensusNotifyPeerDisconnected Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusNotifyPeerDisconnected -> Options -> Value Source #

toEncodingPB :: ConsensusNotifyPeerDisconnected -> Options -> Encoding Source #

FromJSONPB ConsensusNotifyPeerDisconnected Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusNotifyPeerDisconnected Source #

HasDefault ConsensusNotifyPeerDisconnected Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusNotifyPeerDisconnected Source #

isDefault :: ConsensusNotifyPeerDisconnected -> Bool Source #

Named ConsensusNotifyPeerDisconnected Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusNotifyPeerDisconnected -> string Source #

Message ConsensusNotifyPeerDisconnected Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusNotifyPeerDisconnected -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusNotifyPeerDisconnected Source #

dotProto :: Proxy# ConsensusNotifyPeerDisconnected -> [DotProtoField] Source #

ToSchema ConsensusNotifyPeerDisconnected Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusNotifyPeerDisconnected -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusNotifyPeerDisconnected Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusNotifyPeerDisconnected = D1 ('MetaData "ConsensusNotifyPeerDisconnected" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'True) (C1 ('MetaCons "ConsensusNotifyPeerDisconnected" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusNotifyPeerDisconnectedPeerId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString)))

data ConsensusNotifyPeerMessage Source #

Constructors

ConsensusNotifyPeerMessage 

Fields

Instances

Instances details
Eq ConsensusNotifyPeerMessage Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusNotifyPeerMessage -> ConsensusNotifyPeerMessage -> Bool Source #

(/=) :: ConsensusNotifyPeerMessage -> ConsensusNotifyPeerMessage -> Bool Source #

Ord ConsensusNotifyPeerMessage Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusNotifyPeerMessage -> ConsensusNotifyPeerMessage -> Ordering Source #

(<) :: ConsensusNotifyPeerMessage -> ConsensusNotifyPeerMessage -> Bool Source #

(<=) :: ConsensusNotifyPeerMessage -> ConsensusNotifyPeerMessage -> Bool Source #

(>) :: ConsensusNotifyPeerMessage -> ConsensusNotifyPeerMessage -> Bool Source #

(>=) :: ConsensusNotifyPeerMessage -> ConsensusNotifyPeerMessage -> Bool Source #

max :: ConsensusNotifyPeerMessage -> ConsensusNotifyPeerMessage -> ConsensusNotifyPeerMessage Source #

min :: ConsensusNotifyPeerMessage -> ConsensusNotifyPeerMessage -> ConsensusNotifyPeerMessage Source #

Show ConsensusNotifyPeerMessage Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusNotifyPeerMessage -> ShowS Source #

show :: ConsensusNotifyPeerMessage -> String Source #

showList :: [ConsensusNotifyPeerMessage] -> ShowS Source #

Generic ConsensusNotifyPeerMessage Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusNotifyPeerMessage :: Type -> Type Source #

Methods

from :: ConsensusNotifyPeerMessage -> Rep ConsensusNotifyPeerMessage x Source #

to :: Rep ConsensusNotifyPeerMessage x -> ConsensusNotifyPeerMessage Source #

ToJSON ConsensusNotifyPeerMessage Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusNotifyPeerMessage -> Value Source #

toEncoding :: ConsensusNotifyPeerMessage -> Encoding Source #

toJSONList :: [ConsensusNotifyPeerMessage] -> Value Source #

toEncodingList :: [ConsensusNotifyPeerMessage] -> Encoding Source #

FromJSON ConsensusNotifyPeerMessage Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusNotifyPeerMessage Source #

parseJSONList :: Value -> Parser [ConsensusNotifyPeerMessage] Source #

NFData ConsensusNotifyPeerMessage Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusNotifyPeerMessage -> () Source #

ToJSONPB ConsensusNotifyPeerMessage Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusNotifyPeerMessage -> Options -> Value Source #

toEncodingPB :: ConsensusNotifyPeerMessage -> Options -> Encoding Source #

FromJSONPB ConsensusNotifyPeerMessage Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusNotifyPeerMessage Source #

HasDefault ConsensusNotifyPeerMessage Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusNotifyPeerMessage Source #

isDefault :: ConsensusNotifyPeerMessage -> Bool Source #

Named ConsensusNotifyPeerMessage Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusNotifyPeerMessage -> string Source #

Message ConsensusNotifyPeerMessage Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusNotifyPeerMessage -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusNotifyPeerMessage Source #

dotProto :: Proxy# ConsensusNotifyPeerMessage -> [DotProtoField] Source #

ToSchema ConsensusNotifyPeerMessage Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusNotifyPeerMessage -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusNotifyPeerMessage Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusNotifyPeerMessage = D1 ('MetaData "ConsensusNotifyPeerMessage" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "ConsensusNotifyPeerMessage" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusNotifyPeerMessageMessage") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe ConsensusPeerMessage)) :*: S1 ('MetaSel ('Just "consensusNotifyPeerMessageSenderId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString)))

newtype ConsensusNotifyBlockNew Source #

Constructors

ConsensusNotifyBlockNew 

Fields

Instances

Instances details
Eq ConsensusNotifyBlockNew Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusNotifyBlockNew -> ConsensusNotifyBlockNew -> Bool Source #

(/=) :: ConsensusNotifyBlockNew -> ConsensusNotifyBlockNew -> Bool Source #

Ord ConsensusNotifyBlockNew Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusNotifyBlockNew -> ConsensusNotifyBlockNew -> Ordering Source #

(<) :: ConsensusNotifyBlockNew -> ConsensusNotifyBlockNew -> Bool Source #

(<=) :: ConsensusNotifyBlockNew -> ConsensusNotifyBlockNew -> Bool Source #

(>) :: ConsensusNotifyBlockNew -> ConsensusNotifyBlockNew -> Bool Source #

(>=) :: ConsensusNotifyBlockNew -> ConsensusNotifyBlockNew -> Bool Source #

max :: ConsensusNotifyBlockNew -> ConsensusNotifyBlockNew -> ConsensusNotifyBlockNew Source #

min :: ConsensusNotifyBlockNew -> ConsensusNotifyBlockNew -> ConsensusNotifyBlockNew Source #

Show ConsensusNotifyBlockNew Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusNotifyBlockNew -> ShowS Source #

show :: ConsensusNotifyBlockNew -> String Source #

showList :: [ConsensusNotifyBlockNew] -> ShowS Source #

Generic ConsensusNotifyBlockNew Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusNotifyBlockNew :: Type -> Type Source #

Methods

from :: ConsensusNotifyBlockNew -> Rep ConsensusNotifyBlockNew x Source #

to :: Rep ConsensusNotifyBlockNew x -> ConsensusNotifyBlockNew Source #

ToJSON ConsensusNotifyBlockNew Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusNotifyBlockNew -> Value Source #

toEncoding :: ConsensusNotifyBlockNew -> Encoding Source #

toJSONList :: [ConsensusNotifyBlockNew] -> Value Source #

toEncodingList :: [ConsensusNotifyBlockNew] -> Encoding Source #

FromJSON ConsensusNotifyBlockNew Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusNotifyBlockNew Source #

parseJSONList :: Value -> Parser [ConsensusNotifyBlockNew] Source #

NFData ConsensusNotifyBlockNew Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusNotifyBlockNew -> () Source #

ToJSONPB ConsensusNotifyBlockNew Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusNotifyBlockNew -> Options -> Value Source #

toEncodingPB :: ConsensusNotifyBlockNew -> Options -> Encoding Source #

FromJSONPB ConsensusNotifyBlockNew Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusNotifyBlockNew Source #

HasDefault ConsensusNotifyBlockNew Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusNotifyBlockNew Source #

isDefault :: ConsensusNotifyBlockNew -> Bool Source #

Named ConsensusNotifyBlockNew Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusNotifyBlockNew -> string Source #

Message ConsensusNotifyBlockNew Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusNotifyBlockNew -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusNotifyBlockNew Source #

dotProto :: Proxy# ConsensusNotifyBlockNew -> [DotProtoField] Source #

ToSchema ConsensusNotifyBlockNew Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusNotifyBlockNew -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusNotifyBlockNew Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusNotifyBlockNew = D1 ('MetaData "ConsensusNotifyBlockNew" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'True) (C1 ('MetaCons "ConsensusNotifyBlockNew" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusNotifyBlockNewBlock") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe ConsensusBlock))))

newtype ConsensusNotifyBlockValid Source #

Constructors

ConsensusNotifyBlockValid 

Fields

Instances

Instances details
Eq ConsensusNotifyBlockValid Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusNotifyBlockValid -> ConsensusNotifyBlockValid -> Bool Source #

(/=) :: ConsensusNotifyBlockValid -> ConsensusNotifyBlockValid -> Bool Source #

Ord ConsensusNotifyBlockValid Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusNotifyBlockValid -> ConsensusNotifyBlockValid -> Ordering Source #

(<) :: ConsensusNotifyBlockValid -> ConsensusNotifyBlockValid -> Bool Source #

(<=) :: ConsensusNotifyBlockValid -> ConsensusNotifyBlockValid -> Bool Source #

(>) :: ConsensusNotifyBlockValid -> ConsensusNotifyBlockValid -> Bool Source #

(>=) :: ConsensusNotifyBlockValid -> ConsensusNotifyBlockValid -> Bool Source #

max :: ConsensusNotifyBlockValid -> ConsensusNotifyBlockValid -> ConsensusNotifyBlockValid Source #

min :: ConsensusNotifyBlockValid -> ConsensusNotifyBlockValid -> ConsensusNotifyBlockValid Source #

Show ConsensusNotifyBlockValid Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusNotifyBlockValid -> ShowS Source #

show :: ConsensusNotifyBlockValid -> String Source #

showList :: [ConsensusNotifyBlockValid] -> ShowS Source #

Generic ConsensusNotifyBlockValid Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusNotifyBlockValid :: Type -> Type Source #

Methods

from :: ConsensusNotifyBlockValid -> Rep ConsensusNotifyBlockValid x Source #

to :: Rep ConsensusNotifyBlockValid x -> ConsensusNotifyBlockValid Source #

ToJSON ConsensusNotifyBlockValid Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusNotifyBlockValid -> Value Source #

toEncoding :: ConsensusNotifyBlockValid -> Encoding Source #

toJSONList :: [ConsensusNotifyBlockValid] -> Value Source #

toEncodingList :: [ConsensusNotifyBlockValid] -> Encoding Source #

FromJSON ConsensusNotifyBlockValid Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusNotifyBlockValid Source #

parseJSONList :: Value -> Parser [ConsensusNotifyBlockValid] Source #

NFData ConsensusNotifyBlockValid Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusNotifyBlockValid -> () Source #

ToJSONPB ConsensusNotifyBlockValid Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusNotifyBlockValid -> Options -> Value Source #

toEncodingPB :: ConsensusNotifyBlockValid -> Options -> Encoding Source #

FromJSONPB ConsensusNotifyBlockValid Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusNotifyBlockValid Source #

HasDefault ConsensusNotifyBlockValid Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusNotifyBlockValid Source #

isDefault :: ConsensusNotifyBlockValid -> Bool Source #

Named ConsensusNotifyBlockValid Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusNotifyBlockValid -> string Source #

Message ConsensusNotifyBlockValid Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusNotifyBlockValid -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusNotifyBlockValid Source #

dotProto :: Proxy# ConsensusNotifyBlockValid -> [DotProtoField] Source #

ToSchema ConsensusNotifyBlockValid Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusNotifyBlockValid -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusNotifyBlockValid Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusNotifyBlockValid = D1 ('MetaData "ConsensusNotifyBlockValid" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'True) (C1 ('MetaCons "ConsensusNotifyBlockValid" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusNotifyBlockValidBlockId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString)))

newtype ConsensusNotifyBlockInvalid Source #

Constructors

ConsensusNotifyBlockInvalid 

Fields

Instances

Instances details
Eq ConsensusNotifyBlockInvalid Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusNotifyBlockInvalid -> ConsensusNotifyBlockInvalid -> Bool Source #

(/=) :: ConsensusNotifyBlockInvalid -> ConsensusNotifyBlockInvalid -> Bool Source #

Ord ConsensusNotifyBlockInvalid Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusNotifyBlockInvalid -> ConsensusNotifyBlockInvalid -> Ordering Source #

(<) :: ConsensusNotifyBlockInvalid -> ConsensusNotifyBlockInvalid -> Bool Source #

(<=) :: ConsensusNotifyBlockInvalid -> ConsensusNotifyBlockInvalid -> Bool Source #

(>) :: ConsensusNotifyBlockInvalid -> ConsensusNotifyBlockInvalid -> Bool Source #

(>=) :: ConsensusNotifyBlockInvalid -> ConsensusNotifyBlockInvalid -> Bool Source #

max :: ConsensusNotifyBlockInvalid -> ConsensusNotifyBlockInvalid -> ConsensusNotifyBlockInvalid Source #

min :: ConsensusNotifyBlockInvalid -> ConsensusNotifyBlockInvalid -> ConsensusNotifyBlockInvalid Source #

Show ConsensusNotifyBlockInvalid Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusNotifyBlockInvalid -> ShowS Source #

show :: ConsensusNotifyBlockInvalid -> String Source #

showList :: [ConsensusNotifyBlockInvalid] -> ShowS Source #

Generic ConsensusNotifyBlockInvalid Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusNotifyBlockInvalid :: Type -> Type Source #

Methods

from :: ConsensusNotifyBlockInvalid -> Rep ConsensusNotifyBlockInvalid x Source #

to :: Rep ConsensusNotifyBlockInvalid x -> ConsensusNotifyBlockInvalid Source #

ToJSON ConsensusNotifyBlockInvalid Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusNotifyBlockInvalid -> Value Source #

toEncoding :: ConsensusNotifyBlockInvalid -> Encoding Source #

toJSONList :: [ConsensusNotifyBlockInvalid] -> Value Source #

toEncodingList :: [ConsensusNotifyBlockInvalid] -> Encoding Source #

FromJSON ConsensusNotifyBlockInvalid Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusNotifyBlockInvalid Source #

parseJSONList :: Value -> Parser [ConsensusNotifyBlockInvalid] Source #

NFData ConsensusNotifyBlockInvalid Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusNotifyBlockInvalid -> () Source #

ToJSONPB ConsensusNotifyBlockInvalid Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusNotifyBlockInvalid -> Options -> Value Source #

toEncodingPB :: ConsensusNotifyBlockInvalid -> Options -> Encoding Source #

FromJSONPB ConsensusNotifyBlockInvalid Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusNotifyBlockInvalid Source #

HasDefault ConsensusNotifyBlockInvalid Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusNotifyBlockInvalid Source #

isDefault :: ConsensusNotifyBlockInvalid -> Bool Source #

Named ConsensusNotifyBlockInvalid Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusNotifyBlockInvalid -> string Source #

Message ConsensusNotifyBlockInvalid Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusNotifyBlockInvalid -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusNotifyBlockInvalid Source #

dotProto :: Proxy# ConsensusNotifyBlockInvalid -> [DotProtoField] Source #

ToSchema ConsensusNotifyBlockInvalid Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusNotifyBlockInvalid -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusNotifyBlockInvalid Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusNotifyBlockInvalid = D1 ('MetaData "ConsensusNotifyBlockInvalid" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'True) (C1 ('MetaCons "ConsensusNotifyBlockInvalid" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusNotifyBlockInvalidBlockId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString)))

newtype ConsensusNotifyBlockCommit Source #

Constructors

ConsensusNotifyBlockCommit 

Fields

Instances

Instances details
Eq ConsensusNotifyBlockCommit Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusNotifyBlockCommit -> ConsensusNotifyBlockCommit -> Bool Source #

(/=) :: ConsensusNotifyBlockCommit -> ConsensusNotifyBlockCommit -> Bool Source #

Ord ConsensusNotifyBlockCommit Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusNotifyBlockCommit -> ConsensusNotifyBlockCommit -> Ordering Source #

(<) :: ConsensusNotifyBlockCommit -> ConsensusNotifyBlockCommit -> Bool Source #

(<=) :: ConsensusNotifyBlockCommit -> ConsensusNotifyBlockCommit -> Bool Source #

(>) :: ConsensusNotifyBlockCommit -> ConsensusNotifyBlockCommit -> Bool Source #

(>=) :: ConsensusNotifyBlockCommit -> ConsensusNotifyBlockCommit -> Bool Source #

max :: ConsensusNotifyBlockCommit -> ConsensusNotifyBlockCommit -> ConsensusNotifyBlockCommit Source #

min :: ConsensusNotifyBlockCommit -> ConsensusNotifyBlockCommit -> ConsensusNotifyBlockCommit Source #

Show ConsensusNotifyBlockCommit Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusNotifyBlockCommit -> ShowS Source #

show :: ConsensusNotifyBlockCommit -> String Source #

showList :: [ConsensusNotifyBlockCommit] -> ShowS Source #

Generic ConsensusNotifyBlockCommit Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusNotifyBlockCommit :: Type -> Type Source #

Methods

from :: ConsensusNotifyBlockCommit -> Rep ConsensusNotifyBlockCommit x Source #

to :: Rep ConsensusNotifyBlockCommit x -> ConsensusNotifyBlockCommit Source #

ToJSON ConsensusNotifyBlockCommit Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusNotifyBlockCommit -> Value Source #

toEncoding :: ConsensusNotifyBlockCommit -> Encoding Source #

toJSONList :: [ConsensusNotifyBlockCommit] -> Value Source #

toEncodingList :: [ConsensusNotifyBlockCommit] -> Encoding Source #

FromJSON ConsensusNotifyBlockCommit Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusNotifyBlockCommit Source #

parseJSONList :: Value -> Parser [ConsensusNotifyBlockCommit] Source #

NFData ConsensusNotifyBlockCommit Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusNotifyBlockCommit -> () Source #

ToJSONPB ConsensusNotifyBlockCommit Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusNotifyBlockCommit -> Options -> Value Source #

toEncodingPB :: ConsensusNotifyBlockCommit -> Options -> Encoding Source #

FromJSONPB ConsensusNotifyBlockCommit Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusNotifyBlockCommit Source #

HasDefault ConsensusNotifyBlockCommit Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusNotifyBlockCommit Source #

isDefault :: ConsensusNotifyBlockCommit -> Bool Source #

Named ConsensusNotifyBlockCommit Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusNotifyBlockCommit -> string Source #

Message ConsensusNotifyBlockCommit Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusNotifyBlockCommit -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusNotifyBlockCommit Source #

dotProto :: Proxy# ConsensusNotifyBlockCommit -> [DotProtoField] Source #

ToSchema ConsensusNotifyBlockCommit Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusNotifyBlockCommit -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusNotifyBlockCommit Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusNotifyBlockCommit = D1 ('MetaData "ConsensusNotifyBlockCommit" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'True) (C1 ('MetaCons "ConsensusNotifyBlockCommit" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusNotifyBlockCommitBlockId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString)))

data ConsensusNotifyEngineActivated Source #

Constructors

ConsensusNotifyEngineActivated 

Fields

Instances

Instances details
Eq ConsensusNotifyEngineActivated Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusNotifyEngineActivated -> ConsensusNotifyEngineActivated -> Bool Source #

(/=) :: ConsensusNotifyEngineActivated -> ConsensusNotifyEngineActivated -> Bool Source #

Ord ConsensusNotifyEngineActivated Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusNotifyEngineActivated -> ConsensusNotifyEngineActivated -> Ordering Source #

(<) :: ConsensusNotifyEngineActivated -> ConsensusNotifyEngineActivated -> Bool Source #

(<=) :: ConsensusNotifyEngineActivated -> ConsensusNotifyEngineActivated -> Bool Source #

(>) :: ConsensusNotifyEngineActivated -> ConsensusNotifyEngineActivated -> Bool Source #

(>=) :: ConsensusNotifyEngineActivated -> ConsensusNotifyEngineActivated -> Bool Source #

max :: ConsensusNotifyEngineActivated -> ConsensusNotifyEngineActivated -> ConsensusNotifyEngineActivated Source #

min :: ConsensusNotifyEngineActivated -> ConsensusNotifyEngineActivated -> ConsensusNotifyEngineActivated Source #

Show ConsensusNotifyEngineActivated Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusNotifyEngineActivated -> ShowS Source #

show :: ConsensusNotifyEngineActivated -> String Source #

showList :: [ConsensusNotifyEngineActivated] -> ShowS Source #

Generic ConsensusNotifyEngineActivated Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusNotifyEngineActivated :: Type -> Type Source #

Methods

from :: ConsensusNotifyEngineActivated -> Rep ConsensusNotifyEngineActivated x Source #

to :: Rep ConsensusNotifyEngineActivated x -> ConsensusNotifyEngineActivated Source #

ToJSON ConsensusNotifyEngineActivated Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusNotifyEngineActivated -> Value Source #

toEncoding :: ConsensusNotifyEngineActivated -> Encoding Source #

toJSONList :: [ConsensusNotifyEngineActivated] -> Value Source #

toEncodingList :: [ConsensusNotifyEngineActivated] -> Encoding Source #

FromJSON ConsensusNotifyEngineActivated Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusNotifyEngineActivated Source #

parseJSONList :: Value -> Parser [ConsensusNotifyEngineActivated] Source #

NFData ConsensusNotifyEngineActivated Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusNotifyEngineActivated -> () Source #

ToJSONPB ConsensusNotifyEngineActivated Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusNotifyEngineActivated -> Options -> Value Source #

toEncodingPB :: ConsensusNotifyEngineActivated -> Options -> Encoding Source #

FromJSONPB ConsensusNotifyEngineActivated Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusNotifyEngineActivated Source #

HasDefault ConsensusNotifyEngineActivated Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusNotifyEngineActivated Source #

isDefault :: ConsensusNotifyEngineActivated -> Bool Source #

Named ConsensusNotifyEngineActivated Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusNotifyEngineActivated -> string Source #

Message ConsensusNotifyEngineActivated Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusNotifyEngineActivated -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusNotifyEngineActivated Source #

dotProto :: Proxy# ConsensusNotifyEngineActivated -> [DotProtoField] Source #

ToSchema ConsensusNotifyEngineActivated Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusNotifyEngineActivated -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusNotifyEngineActivated Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusNotifyEngineActivated = D1 ('MetaData "ConsensusNotifyEngineActivated" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "ConsensusNotifyEngineActivated" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusNotifyEngineActivatedChainHead") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe ConsensusBlock)) :*: (S1 ('MetaSel ('Just "consensusNotifyEngineActivatedPeers") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector ConsensusPeerInfo)) :*: S1 ('MetaSel ('Just "consensusNotifyEngineActivatedLocalPeerInfo") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe ConsensusPeerInfo)))))

data ConsensusNotifyEngineDeactivated Source #

Constructors

ConsensusNotifyEngineDeactivated 

Instances

Instances details
Eq ConsensusNotifyEngineDeactivated Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusNotifyEngineDeactivated -> ConsensusNotifyEngineDeactivated -> Bool Source #

(/=) :: ConsensusNotifyEngineDeactivated -> ConsensusNotifyEngineDeactivated -> Bool Source #

Ord ConsensusNotifyEngineDeactivated Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusNotifyEngineDeactivated -> ConsensusNotifyEngineDeactivated -> Ordering Source #

(<) :: ConsensusNotifyEngineDeactivated -> ConsensusNotifyEngineDeactivated -> Bool Source #

(<=) :: ConsensusNotifyEngineDeactivated -> ConsensusNotifyEngineDeactivated -> Bool Source #

(>) :: ConsensusNotifyEngineDeactivated -> ConsensusNotifyEngineDeactivated -> Bool Source #

(>=) :: ConsensusNotifyEngineDeactivated -> ConsensusNotifyEngineDeactivated -> Bool Source #

max :: ConsensusNotifyEngineDeactivated -> ConsensusNotifyEngineDeactivated -> ConsensusNotifyEngineDeactivated Source #

min :: ConsensusNotifyEngineDeactivated -> ConsensusNotifyEngineDeactivated -> ConsensusNotifyEngineDeactivated Source #

Show ConsensusNotifyEngineDeactivated Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusNotifyEngineDeactivated -> ShowS Source #

show :: ConsensusNotifyEngineDeactivated -> String Source #

showList :: [ConsensusNotifyEngineDeactivated] -> ShowS Source #

Generic ConsensusNotifyEngineDeactivated Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusNotifyEngineDeactivated :: Type -> Type Source #

Methods

from :: ConsensusNotifyEngineDeactivated -> Rep ConsensusNotifyEngineDeactivated x Source #

to :: Rep ConsensusNotifyEngineDeactivated x -> ConsensusNotifyEngineDeactivated Source #

ToJSON ConsensusNotifyEngineDeactivated Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusNotifyEngineDeactivated -> Value Source #

toEncoding :: ConsensusNotifyEngineDeactivated -> Encoding Source #

toJSONList :: [ConsensusNotifyEngineDeactivated] -> Value Source #

toEncodingList :: [ConsensusNotifyEngineDeactivated] -> Encoding Source #

FromJSON ConsensusNotifyEngineDeactivated Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusNotifyEngineDeactivated Source #

parseJSONList :: Value -> Parser [ConsensusNotifyEngineDeactivated] Source #

NFData ConsensusNotifyEngineDeactivated Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusNotifyEngineDeactivated -> () Source #

ToJSONPB ConsensusNotifyEngineDeactivated Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusNotifyEngineDeactivated -> Options -> Value Source #

toEncodingPB :: ConsensusNotifyEngineDeactivated -> Options -> Encoding Source #

FromJSONPB ConsensusNotifyEngineDeactivated Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusNotifyEngineDeactivated Source #

HasDefault ConsensusNotifyEngineDeactivated Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusNotifyEngineDeactivated Source #

isDefault :: ConsensusNotifyEngineDeactivated -> Bool Source #

Named ConsensusNotifyEngineDeactivated Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusNotifyEngineDeactivated -> string Source #

Message ConsensusNotifyEngineDeactivated Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusNotifyEngineDeactivated -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusNotifyEngineDeactivated Source #

dotProto :: Proxy# ConsensusNotifyEngineDeactivated -> [DotProtoField] Source #

ToSchema ConsensusNotifyEngineDeactivated Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusNotifyEngineDeactivated -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusNotifyEngineDeactivated Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusNotifyEngineDeactivated = D1 ('MetaData "ConsensusNotifyEngineDeactivated" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "ConsensusNotifyEngineDeactivated" 'PrefixI 'False) (U1 :: Type -> Type))

data ConsensusNotifyAck Source #

Constructors

ConsensusNotifyAck 

Instances

Instances details
Eq ConsensusNotifyAck Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusNotifyAck -> ConsensusNotifyAck -> Bool Source #

(/=) :: ConsensusNotifyAck -> ConsensusNotifyAck -> Bool Source #

Ord ConsensusNotifyAck Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusNotifyAck -> ConsensusNotifyAck -> Ordering Source #

(<) :: ConsensusNotifyAck -> ConsensusNotifyAck -> Bool Source #

(<=) :: ConsensusNotifyAck -> ConsensusNotifyAck -> Bool Source #

(>) :: ConsensusNotifyAck -> ConsensusNotifyAck -> Bool Source #

(>=) :: ConsensusNotifyAck -> ConsensusNotifyAck -> Bool Source #

max :: ConsensusNotifyAck -> ConsensusNotifyAck -> ConsensusNotifyAck Source #

min :: ConsensusNotifyAck -> ConsensusNotifyAck -> ConsensusNotifyAck Source #

Show ConsensusNotifyAck Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusNotifyAck -> ShowS Source #

show :: ConsensusNotifyAck -> String Source #

showList :: [ConsensusNotifyAck] -> ShowS Source #

Generic ConsensusNotifyAck Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusNotifyAck :: Type -> Type Source #

Methods

from :: ConsensusNotifyAck -> Rep ConsensusNotifyAck x Source #

to :: Rep ConsensusNotifyAck x -> ConsensusNotifyAck Source #

ToJSON ConsensusNotifyAck Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusNotifyAck -> Value Source #

toEncoding :: ConsensusNotifyAck -> Encoding Source #

toJSONList :: [ConsensusNotifyAck] -> Value Source #

toEncodingList :: [ConsensusNotifyAck] -> Encoding Source #

FromJSON ConsensusNotifyAck Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusNotifyAck Source #

parseJSONList :: Value -> Parser [ConsensusNotifyAck] Source #

NFData ConsensusNotifyAck Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusNotifyAck -> () Source #

ToJSONPB ConsensusNotifyAck Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusNotifyAck -> Options -> Value Source #

toEncodingPB :: ConsensusNotifyAck -> Options -> Encoding Source #

FromJSONPB ConsensusNotifyAck Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusNotifyAck Source #

HasDefault ConsensusNotifyAck Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusNotifyAck Source #

isDefault :: ConsensusNotifyAck -> Bool Source #

Named ConsensusNotifyAck Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusNotifyAck -> string Source #

Message ConsensusNotifyAck Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusNotifyAck -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusNotifyAck Source #

dotProto :: Proxy# ConsensusNotifyAck -> [DotProtoField] Source #

ToSchema ConsensusNotifyAck Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusNotifyAck -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusNotifyAck Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusNotifyAck = D1 ('MetaData "ConsensusNotifyAck" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "ConsensusNotifyAck" 'PrefixI 'False) (U1 :: Type -> Type))

data ConsensusSendToRequest Source #

Constructors

ConsensusSendToRequest 

Fields

Instances

Instances details
Eq ConsensusSendToRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusSendToRequest -> ConsensusSendToRequest -> Bool Source #

(/=) :: ConsensusSendToRequest -> ConsensusSendToRequest -> Bool Source #

Ord ConsensusSendToRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusSendToRequest -> ConsensusSendToRequest -> Ordering Source #

(<) :: ConsensusSendToRequest -> ConsensusSendToRequest -> Bool Source #

(<=) :: ConsensusSendToRequest -> ConsensusSendToRequest -> Bool Source #

(>) :: ConsensusSendToRequest -> ConsensusSendToRequest -> Bool Source #

(>=) :: ConsensusSendToRequest -> ConsensusSendToRequest -> Bool Source #

max :: ConsensusSendToRequest -> ConsensusSendToRequest -> ConsensusSendToRequest Source #

min :: ConsensusSendToRequest -> ConsensusSendToRequest -> ConsensusSendToRequest Source #

Show ConsensusSendToRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusSendToRequest -> ShowS Source #

show :: ConsensusSendToRequest -> String Source #

showList :: [ConsensusSendToRequest] -> ShowS Source #

Generic ConsensusSendToRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusSendToRequest :: Type -> Type Source #

Methods

from :: ConsensusSendToRequest -> Rep ConsensusSendToRequest x Source #

to :: Rep ConsensusSendToRequest x -> ConsensusSendToRequest Source #

ToJSON ConsensusSendToRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusSendToRequest -> Value Source #

toEncoding :: ConsensusSendToRequest -> Encoding Source #

toJSONList :: [ConsensusSendToRequest] -> Value Source #

toEncodingList :: [ConsensusSendToRequest] -> Encoding Source #

FromJSON ConsensusSendToRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusSendToRequest Source #

parseJSONList :: Value -> Parser [ConsensusSendToRequest] Source #

NFData ConsensusSendToRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusSendToRequest -> () Source #

ToJSONPB ConsensusSendToRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusSendToRequest -> Options -> Value Source #

toEncodingPB :: ConsensusSendToRequest -> Options -> Encoding Source #

FromJSONPB ConsensusSendToRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusSendToRequest Source #

HasDefault ConsensusSendToRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusSendToRequest Source #

isDefault :: ConsensusSendToRequest -> Bool Source #

Named ConsensusSendToRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusSendToRequest -> string Source #

Message ConsensusSendToRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusSendToRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusSendToRequest Source #

dotProto :: Proxy# ConsensusSendToRequest -> [DotProtoField] Source #

ToSchema ConsensusSendToRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusSendToRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusSendToRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusSendToRequest = D1 ('MetaData "ConsensusSendToRequest" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "ConsensusSendToRequest" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusSendToRequestContent") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString) :*: (S1 ('MetaSel ('Just "consensusSendToRequestMessageType") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "consensusSendToRequestReceiverId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString))))

newtype ConsensusSendToResponse Source #

Constructors

ConsensusSendToResponse 

Fields

Instances

Instances details
Eq ConsensusSendToResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusSendToResponse -> ConsensusSendToResponse -> Bool Source #

(/=) :: ConsensusSendToResponse -> ConsensusSendToResponse -> Bool Source #

Ord ConsensusSendToResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusSendToResponse -> ConsensusSendToResponse -> Ordering Source #

(<) :: ConsensusSendToResponse -> ConsensusSendToResponse -> Bool Source #

(<=) :: ConsensusSendToResponse -> ConsensusSendToResponse -> Bool Source #

(>) :: ConsensusSendToResponse -> ConsensusSendToResponse -> Bool Source #

(>=) :: ConsensusSendToResponse -> ConsensusSendToResponse -> Bool Source #

max :: ConsensusSendToResponse -> ConsensusSendToResponse -> ConsensusSendToResponse Source #

min :: ConsensusSendToResponse -> ConsensusSendToResponse -> ConsensusSendToResponse Source #

Show ConsensusSendToResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusSendToResponse -> ShowS Source #

show :: ConsensusSendToResponse -> String Source #

showList :: [ConsensusSendToResponse] -> ShowS Source #

Generic ConsensusSendToResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusSendToResponse :: Type -> Type Source #

Methods

from :: ConsensusSendToResponse -> Rep ConsensusSendToResponse x Source #

to :: Rep ConsensusSendToResponse x -> ConsensusSendToResponse Source #

ToJSON ConsensusSendToResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusSendToResponse -> Value Source #

toEncoding :: ConsensusSendToResponse -> Encoding Source #

toJSONList :: [ConsensusSendToResponse] -> Value Source #

toEncodingList :: [ConsensusSendToResponse] -> Encoding Source #

FromJSON ConsensusSendToResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusSendToResponse Source #

parseJSONList :: Value -> Parser [ConsensusSendToResponse] Source #

NFData ConsensusSendToResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusSendToResponse -> () Source #

ToJSONPB ConsensusSendToResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusSendToResponse -> Options -> Value Source #

toEncodingPB :: ConsensusSendToResponse -> Options -> Encoding Source #

FromJSONPB ConsensusSendToResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusSendToResponse Source #

HasDefault ConsensusSendToResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusSendToResponse Source #

isDefault :: ConsensusSendToResponse -> Bool Source #

Named ConsensusSendToResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusSendToResponse -> string Source #

Message ConsensusSendToResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusSendToResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusSendToResponse Source #

dotProto :: Proxy# ConsensusSendToResponse -> [DotProtoField] Source #

ToSchema ConsensusSendToResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusSendToResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusSendToResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusSendToResponse = D1 ('MetaData "ConsensusSendToResponse" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'True) (C1 ('MetaCons "ConsensusSendToResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusSendToResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated ConsensusSendToResponse_Status))))

data ConsensusSendToResponse_Status Source #

Constructors

ConsensusSendToResponse_StatusSTATUS_UNSET 
ConsensusSendToResponse_StatusOK 
ConsensusSendToResponse_StatusBAD_REQUEST 
ConsensusSendToResponse_StatusSERVICE_ERROR 
ConsensusSendToResponse_StatusNOT_READY 
ConsensusSendToResponse_StatusUNKNOWN_PEER 
ConsensusSendToResponse_StatusNOT_ACTIVE_ENGINE 

Instances

Instances details
Bounded ConsensusSendToResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

minBound :: ConsensusSendToResponse_Status Source #

maxBound :: ConsensusSendToResponse_Status Source #

Eq ConsensusSendToResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusSendToResponse_Status -> ConsensusSendToResponse_Status -> Bool Source #

(/=) :: ConsensusSendToResponse_Status -> ConsensusSendToResponse_Status -> Bool Source #

Ord ConsensusSendToResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusSendToResponse_Status -> ConsensusSendToResponse_Status -> Ordering Source #

(<) :: ConsensusSendToResponse_Status -> ConsensusSendToResponse_Status -> Bool Source #

(<=) :: ConsensusSendToResponse_Status -> ConsensusSendToResponse_Status -> Bool Source #

(>) :: ConsensusSendToResponse_Status -> ConsensusSendToResponse_Status -> Bool Source #

(>=) :: ConsensusSendToResponse_Status -> ConsensusSendToResponse_Status -> Bool Source #

max :: ConsensusSendToResponse_Status -> ConsensusSendToResponse_Status -> ConsensusSendToResponse_Status Source #

min :: ConsensusSendToResponse_Status -> ConsensusSendToResponse_Status -> ConsensusSendToResponse_Status Source #

Show ConsensusSendToResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusSendToResponse_Status -> ShowS Source #

show :: ConsensusSendToResponse_Status -> String Source #

showList :: [ConsensusSendToResponse_Status] -> ShowS Source #

Generic ConsensusSendToResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusSendToResponse_Status :: Type -> Type Source #

Methods

from :: ConsensusSendToResponse_Status -> Rep ConsensusSendToResponse_Status x Source #

to :: Rep ConsensusSendToResponse_Status x -> ConsensusSendToResponse_Status Source #

ToJSON ConsensusSendToResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusSendToResponse_Status -> Value Source #

toEncoding :: ConsensusSendToResponse_Status -> Encoding Source #

toJSONList :: [ConsensusSendToResponse_Status] -> Value Source #

toEncodingList :: [ConsensusSendToResponse_Status] -> Encoding Source #

FromJSON ConsensusSendToResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusSendToResponse_Status Source #

parseJSONList :: Value -> Parser [ConsensusSendToResponse_Status] Source #

NFData ConsensusSendToResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusSendToResponse_Status -> () Source #

ProtoEnum ConsensusSendToResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toProtoEnumMay :: Int32 -> Maybe ConsensusSendToResponse_Status Source #

fromProtoEnum :: ConsensusSendToResponse_Status -> Int32 Source #

ToJSONPB ConsensusSendToResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusSendToResponse_Status -> Options -> Value Source #

toEncodingPB :: ConsensusSendToResponse_Status -> Options -> Encoding Source #

FromJSONPB ConsensusSendToResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusSendToResponse_Status Source #

HasDefault ConsensusSendToResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusSendToResponse_Status Source #

isDefault :: ConsensusSendToResponse_Status -> Bool Source #

Named ConsensusSendToResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusSendToResponse_Status -> string Source #

Finite ConsensusSendToResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

enumerate :: IsString string => Proxy# ConsensusSendToResponse_Status -> [(string, Int32)] Source #

type Rep ConsensusSendToResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusSendToResponse_Status = D1 ('MetaData "ConsensusSendToResponse_Status" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) ((C1 ('MetaCons "ConsensusSendToResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "ConsensusSendToResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusSendToResponse_StatusBAD_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "ConsensusSendToResponse_StatusSERVICE_ERROR" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusSendToResponse_StatusNOT_READY" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ConsensusSendToResponse_StatusUNKNOWN_PEER" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusSendToResponse_StatusNOT_ACTIVE_ENGINE" 'PrefixI 'False) (U1 :: Type -> Type))))

data ConsensusBroadcastRequest Source #

Constructors

ConsensusBroadcastRequest 

Fields

Instances

Instances details
Eq ConsensusBroadcastRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusBroadcastRequest -> ConsensusBroadcastRequest -> Bool Source #

(/=) :: ConsensusBroadcastRequest -> ConsensusBroadcastRequest -> Bool Source #

Ord ConsensusBroadcastRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusBroadcastRequest -> ConsensusBroadcastRequest -> Ordering Source #

(<) :: ConsensusBroadcastRequest -> ConsensusBroadcastRequest -> Bool Source #

(<=) :: ConsensusBroadcastRequest -> ConsensusBroadcastRequest -> Bool Source #

(>) :: ConsensusBroadcastRequest -> ConsensusBroadcastRequest -> Bool Source #

(>=) :: ConsensusBroadcastRequest -> ConsensusBroadcastRequest -> Bool Source #

max :: ConsensusBroadcastRequest -> ConsensusBroadcastRequest -> ConsensusBroadcastRequest Source #

min :: ConsensusBroadcastRequest -> ConsensusBroadcastRequest -> ConsensusBroadcastRequest Source #

Show ConsensusBroadcastRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusBroadcastRequest -> ShowS Source #

show :: ConsensusBroadcastRequest -> String Source #

showList :: [ConsensusBroadcastRequest] -> ShowS Source #

Generic ConsensusBroadcastRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusBroadcastRequest :: Type -> Type Source #

Methods

from :: ConsensusBroadcastRequest -> Rep ConsensusBroadcastRequest x Source #

to :: Rep ConsensusBroadcastRequest x -> ConsensusBroadcastRequest Source #

ToJSON ConsensusBroadcastRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusBroadcastRequest -> Value Source #

toEncoding :: ConsensusBroadcastRequest -> Encoding Source #

toJSONList :: [ConsensusBroadcastRequest] -> Value Source #

toEncodingList :: [ConsensusBroadcastRequest] -> Encoding Source #

FromJSON ConsensusBroadcastRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusBroadcastRequest Source #

parseJSONList :: Value -> Parser [ConsensusBroadcastRequest] Source #

NFData ConsensusBroadcastRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusBroadcastRequest -> () Source #

ToJSONPB ConsensusBroadcastRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusBroadcastRequest -> Options -> Value Source #

toEncodingPB :: ConsensusBroadcastRequest -> Options -> Encoding Source #

FromJSONPB ConsensusBroadcastRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusBroadcastRequest Source #

HasDefault ConsensusBroadcastRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusBroadcastRequest Source #

isDefault :: ConsensusBroadcastRequest -> Bool Source #

Named ConsensusBroadcastRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusBroadcastRequest -> string Source #

Message ConsensusBroadcastRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusBroadcastRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusBroadcastRequest Source #

dotProto :: Proxy# ConsensusBroadcastRequest -> [DotProtoField] Source #

ToSchema ConsensusBroadcastRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusBroadcastRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusBroadcastRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusBroadcastRequest = D1 ('MetaData "ConsensusBroadcastRequest" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "ConsensusBroadcastRequest" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusBroadcastRequestContent") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString) :*: S1 ('MetaSel ('Just "consensusBroadcastRequestMessageType") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)))

newtype ConsensusBroadcastResponse Source #

Constructors

ConsensusBroadcastResponse 

Fields

Instances

Instances details
Eq ConsensusBroadcastResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusBroadcastResponse -> ConsensusBroadcastResponse -> Bool Source #

(/=) :: ConsensusBroadcastResponse -> ConsensusBroadcastResponse -> Bool Source #

Ord ConsensusBroadcastResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusBroadcastResponse -> ConsensusBroadcastResponse -> Ordering Source #

(<) :: ConsensusBroadcastResponse -> ConsensusBroadcastResponse -> Bool Source #

(<=) :: ConsensusBroadcastResponse -> ConsensusBroadcastResponse -> Bool Source #

(>) :: ConsensusBroadcastResponse -> ConsensusBroadcastResponse -> Bool Source #

(>=) :: ConsensusBroadcastResponse -> ConsensusBroadcastResponse -> Bool Source #

max :: ConsensusBroadcastResponse -> ConsensusBroadcastResponse -> ConsensusBroadcastResponse Source #

min :: ConsensusBroadcastResponse -> ConsensusBroadcastResponse -> ConsensusBroadcastResponse Source #

Show ConsensusBroadcastResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusBroadcastResponse -> ShowS Source #

show :: ConsensusBroadcastResponse -> String Source #

showList :: [ConsensusBroadcastResponse] -> ShowS Source #

Generic ConsensusBroadcastResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusBroadcastResponse :: Type -> Type Source #

Methods

from :: ConsensusBroadcastResponse -> Rep ConsensusBroadcastResponse x Source #

to :: Rep ConsensusBroadcastResponse x -> ConsensusBroadcastResponse Source #

ToJSON ConsensusBroadcastResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusBroadcastResponse -> Value Source #

toEncoding :: ConsensusBroadcastResponse -> Encoding Source #

toJSONList :: [ConsensusBroadcastResponse] -> Value Source #

toEncodingList :: [ConsensusBroadcastResponse] -> Encoding Source #

FromJSON ConsensusBroadcastResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusBroadcastResponse Source #

parseJSONList :: Value -> Parser [ConsensusBroadcastResponse] Source #

NFData ConsensusBroadcastResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusBroadcastResponse -> () Source #

ToJSONPB ConsensusBroadcastResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusBroadcastResponse -> Options -> Value Source #

toEncodingPB :: ConsensusBroadcastResponse -> Options -> Encoding Source #

FromJSONPB ConsensusBroadcastResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusBroadcastResponse Source #

HasDefault ConsensusBroadcastResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusBroadcastResponse Source #

isDefault :: ConsensusBroadcastResponse -> Bool Source #

Named ConsensusBroadcastResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusBroadcastResponse -> string Source #

Message ConsensusBroadcastResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusBroadcastResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusBroadcastResponse Source #

dotProto :: Proxy# ConsensusBroadcastResponse -> [DotProtoField] Source #

ToSchema ConsensusBroadcastResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusBroadcastResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusBroadcastResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusBroadcastResponse = D1 ('MetaData "ConsensusBroadcastResponse" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'True) (C1 ('MetaCons "ConsensusBroadcastResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusBroadcastResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated ConsensusBroadcastResponse_Status))))

data ConsensusBroadcastResponse_Status Source #

Constructors

ConsensusBroadcastResponse_StatusSTATUS_UNSET 
ConsensusBroadcastResponse_StatusOK 
ConsensusBroadcastResponse_StatusBAD_REQUEST 
ConsensusBroadcastResponse_StatusSERVICE_ERROR 
ConsensusBroadcastResponse_StatusNOT_READY 
ConsensusBroadcastResponse_StatusNOT_ACTIVE_ENGINE 

Instances

Instances details
Bounded ConsensusBroadcastResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

minBound :: ConsensusBroadcastResponse_Status Source #

maxBound :: ConsensusBroadcastResponse_Status Source #

Eq ConsensusBroadcastResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusBroadcastResponse_Status -> ConsensusBroadcastResponse_Status -> Bool Source #

(/=) :: ConsensusBroadcastResponse_Status -> ConsensusBroadcastResponse_Status -> Bool Source #

Ord ConsensusBroadcastResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusBroadcastResponse_Status -> ConsensusBroadcastResponse_Status -> Ordering Source #

(<) :: ConsensusBroadcastResponse_Status -> ConsensusBroadcastResponse_Status -> Bool Source #

(<=) :: ConsensusBroadcastResponse_Status -> ConsensusBroadcastResponse_Status -> Bool Source #

(>) :: ConsensusBroadcastResponse_Status -> ConsensusBroadcastResponse_Status -> Bool Source #

(>=) :: ConsensusBroadcastResponse_Status -> ConsensusBroadcastResponse_Status -> Bool Source #

max :: ConsensusBroadcastResponse_Status -> ConsensusBroadcastResponse_Status -> ConsensusBroadcastResponse_Status Source #

min :: ConsensusBroadcastResponse_Status -> ConsensusBroadcastResponse_Status -> ConsensusBroadcastResponse_Status Source #

Show ConsensusBroadcastResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusBroadcastResponse_Status -> ShowS Source #

show :: ConsensusBroadcastResponse_Status -> String Source #

showList :: [ConsensusBroadcastResponse_Status] -> ShowS Source #

Generic ConsensusBroadcastResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusBroadcastResponse_Status :: Type -> Type Source #

Methods

from :: ConsensusBroadcastResponse_Status -> Rep ConsensusBroadcastResponse_Status x Source #

to :: Rep ConsensusBroadcastResponse_Status x -> ConsensusBroadcastResponse_Status Source #

ToJSON ConsensusBroadcastResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusBroadcastResponse_Status -> Value Source #

toEncoding :: ConsensusBroadcastResponse_Status -> Encoding Source #

toJSONList :: [ConsensusBroadcastResponse_Status] -> Value Source #

toEncodingList :: [ConsensusBroadcastResponse_Status] -> Encoding Source #

FromJSON ConsensusBroadcastResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusBroadcastResponse_Status Source #

parseJSONList :: Value -> Parser [ConsensusBroadcastResponse_Status] Source #

NFData ConsensusBroadcastResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusBroadcastResponse_Status -> () Source #

ProtoEnum ConsensusBroadcastResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toProtoEnumMay :: Int32 -> Maybe ConsensusBroadcastResponse_Status Source #

fromProtoEnum :: ConsensusBroadcastResponse_Status -> Int32 Source #

ToJSONPB ConsensusBroadcastResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusBroadcastResponse_Status -> Options -> Value Source #

toEncodingPB :: ConsensusBroadcastResponse_Status -> Options -> Encoding Source #

FromJSONPB ConsensusBroadcastResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusBroadcastResponse_Status Source #

HasDefault ConsensusBroadcastResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusBroadcastResponse_Status Source #

isDefault :: ConsensusBroadcastResponse_Status -> Bool Source #

Named ConsensusBroadcastResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusBroadcastResponse_Status -> string Source #

Finite ConsensusBroadcastResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

enumerate :: IsString string => Proxy# ConsensusBroadcastResponse_Status -> [(string, Int32)] Source #

type Rep ConsensusBroadcastResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusBroadcastResponse_Status = D1 ('MetaData "ConsensusBroadcastResponse_Status" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) ((C1 ('MetaCons "ConsensusBroadcastResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "ConsensusBroadcastResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusBroadcastResponse_StatusBAD_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type))) :+: (C1 ('MetaCons "ConsensusBroadcastResponse_StatusSERVICE_ERROR" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "ConsensusBroadcastResponse_StatusNOT_READY" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusBroadcastResponse_StatusNOT_ACTIVE_ENGINE" 'PrefixI 'False) (U1 :: Type -> Type))))

newtype ConsensusInitializeBlockRequest Source #

Constructors

ConsensusInitializeBlockRequest 

Fields

Instances

Instances details
Eq ConsensusInitializeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusInitializeBlockRequest -> ConsensusInitializeBlockRequest -> Bool Source #

(/=) :: ConsensusInitializeBlockRequest -> ConsensusInitializeBlockRequest -> Bool Source #

Ord ConsensusInitializeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusInitializeBlockRequest -> ConsensusInitializeBlockRequest -> Ordering Source #

(<) :: ConsensusInitializeBlockRequest -> ConsensusInitializeBlockRequest -> Bool Source #

(<=) :: ConsensusInitializeBlockRequest -> ConsensusInitializeBlockRequest -> Bool Source #

(>) :: ConsensusInitializeBlockRequest -> ConsensusInitializeBlockRequest -> Bool Source #

(>=) :: ConsensusInitializeBlockRequest -> ConsensusInitializeBlockRequest -> Bool Source #

max :: ConsensusInitializeBlockRequest -> ConsensusInitializeBlockRequest -> ConsensusInitializeBlockRequest Source #

min :: ConsensusInitializeBlockRequest -> ConsensusInitializeBlockRequest -> ConsensusInitializeBlockRequest Source #

Show ConsensusInitializeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusInitializeBlockRequest -> ShowS Source #

show :: ConsensusInitializeBlockRequest -> String Source #

showList :: [ConsensusInitializeBlockRequest] -> ShowS Source #

Generic ConsensusInitializeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusInitializeBlockRequest :: Type -> Type Source #

Methods

from :: ConsensusInitializeBlockRequest -> Rep ConsensusInitializeBlockRequest x Source #

to :: Rep ConsensusInitializeBlockRequest x -> ConsensusInitializeBlockRequest Source #

ToJSON ConsensusInitializeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusInitializeBlockRequest -> Value Source #

toEncoding :: ConsensusInitializeBlockRequest -> Encoding Source #

toJSONList :: [ConsensusInitializeBlockRequest] -> Value Source #

toEncodingList :: [ConsensusInitializeBlockRequest] -> Encoding Source #

FromJSON ConsensusInitializeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusInitializeBlockRequest Source #

parseJSONList :: Value -> Parser [ConsensusInitializeBlockRequest] Source #

NFData ConsensusInitializeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusInitializeBlockRequest -> () Source #

ToJSONPB ConsensusInitializeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusInitializeBlockRequest -> Options -> Value Source #

toEncodingPB :: ConsensusInitializeBlockRequest -> Options -> Encoding Source #

FromJSONPB ConsensusInitializeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusInitializeBlockRequest Source #

HasDefault ConsensusInitializeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusInitializeBlockRequest Source #

isDefault :: ConsensusInitializeBlockRequest -> Bool Source #

Named ConsensusInitializeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusInitializeBlockRequest -> string Source #

Message ConsensusInitializeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusInitializeBlockRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusInitializeBlockRequest Source #

dotProto :: Proxy# ConsensusInitializeBlockRequest -> [DotProtoField] Source #

ToSchema ConsensusInitializeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusInitializeBlockRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusInitializeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusInitializeBlockRequest = D1 ('MetaData "ConsensusInitializeBlockRequest" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'True) (C1 ('MetaCons "ConsensusInitializeBlockRequest" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusInitializeBlockRequestPreviousId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString)))

newtype ConsensusInitializeBlockResponse Source #

Constructors

ConsensusInitializeBlockResponse 

Fields

Instances

Instances details
Eq ConsensusInitializeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusInitializeBlockResponse -> ConsensusInitializeBlockResponse -> Bool Source #

(/=) :: ConsensusInitializeBlockResponse -> ConsensusInitializeBlockResponse -> Bool Source #

Ord ConsensusInitializeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusInitializeBlockResponse -> ConsensusInitializeBlockResponse -> Ordering Source #

(<) :: ConsensusInitializeBlockResponse -> ConsensusInitializeBlockResponse -> Bool Source #

(<=) :: ConsensusInitializeBlockResponse -> ConsensusInitializeBlockResponse -> Bool Source #

(>) :: ConsensusInitializeBlockResponse -> ConsensusInitializeBlockResponse -> Bool Source #

(>=) :: ConsensusInitializeBlockResponse -> ConsensusInitializeBlockResponse -> Bool Source #

max :: ConsensusInitializeBlockResponse -> ConsensusInitializeBlockResponse -> ConsensusInitializeBlockResponse Source #

min :: ConsensusInitializeBlockResponse -> ConsensusInitializeBlockResponse -> ConsensusInitializeBlockResponse Source #

Show ConsensusInitializeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusInitializeBlockResponse -> ShowS Source #

show :: ConsensusInitializeBlockResponse -> String Source #

showList :: [ConsensusInitializeBlockResponse] -> ShowS Source #

Generic ConsensusInitializeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusInitializeBlockResponse :: Type -> Type Source #

Methods

from :: ConsensusInitializeBlockResponse -> Rep ConsensusInitializeBlockResponse x Source #

to :: Rep ConsensusInitializeBlockResponse x -> ConsensusInitializeBlockResponse Source #

ToJSON ConsensusInitializeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusInitializeBlockResponse -> Value Source #

toEncoding :: ConsensusInitializeBlockResponse -> Encoding Source #

toJSONList :: [ConsensusInitializeBlockResponse] -> Value Source #

toEncodingList :: [ConsensusInitializeBlockResponse] -> Encoding Source #

FromJSON ConsensusInitializeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusInitializeBlockResponse Source #

parseJSONList :: Value -> Parser [ConsensusInitializeBlockResponse] Source #

NFData ConsensusInitializeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusInitializeBlockResponse -> () Source #

ToJSONPB ConsensusInitializeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusInitializeBlockResponse -> Options -> Value Source #

toEncodingPB :: ConsensusInitializeBlockResponse -> Options -> Encoding Source #

FromJSONPB ConsensusInitializeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusInitializeBlockResponse Source #

HasDefault ConsensusInitializeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusInitializeBlockResponse Source #

isDefault :: ConsensusInitializeBlockResponse -> Bool Source #

Named ConsensusInitializeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusInitializeBlockResponse -> string Source #

Message ConsensusInitializeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusInitializeBlockResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusInitializeBlockResponse Source #

dotProto :: Proxy# ConsensusInitializeBlockResponse -> [DotProtoField] Source #

ToSchema ConsensusInitializeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusInitializeBlockResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusInitializeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusInitializeBlockResponse = D1 ('MetaData "ConsensusInitializeBlockResponse" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'True) (C1 ('MetaCons "ConsensusInitializeBlockResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusInitializeBlockResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated ConsensusInitializeBlockResponse_Status))))

data ConsensusInitializeBlockResponse_Status Source #

Constructors

ConsensusInitializeBlockResponse_StatusSTATUS_UNSET 
ConsensusInitializeBlockResponse_StatusOK 
ConsensusInitializeBlockResponse_StatusBAD_REQUEST 
ConsensusInitializeBlockResponse_StatusSERVICE_ERROR 
ConsensusInitializeBlockResponse_StatusNOT_READY 
ConsensusInitializeBlockResponse_StatusINVALID_STATE 
ConsensusInitializeBlockResponse_StatusUNKNOWN_BLOCK 
ConsensusInitializeBlockResponse_StatusNOT_ACTIVE_ENGINE 

Instances

Instances details
Bounded ConsensusInitializeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

minBound :: ConsensusInitializeBlockResponse_Status Source #

maxBound :: ConsensusInitializeBlockResponse_Status Source #

Eq ConsensusInitializeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusInitializeBlockResponse_Status -> ConsensusInitializeBlockResponse_Status -> Bool Source #

(/=) :: ConsensusInitializeBlockResponse_Status -> ConsensusInitializeBlockResponse_Status -> Bool Source #

Ord ConsensusInitializeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusInitializeBlockResponse_Status -> ConsensusInitializeBlockResponse_Status -> Ordering Source #

(<) :: ConsensusInitializeBlockResponse_Status -> ConsensusInitializeBlockResponse_Status -> Bool Source #

(<=) :: ConsensusInitializeBlockResponse_Status -> ConsensusInitializeBlockResponse_Status -> Bool Source #

(>) :: ConsensusInitializeBlockResponse_Status -> ConsensusInitializeBlockResponse_Status -> Bool Source #

(>=) :: ConsensusInitializeBlockResponse_Status -> ConsensusInitializeBlockResponse_Status -> Bool Source #

max :: ConsensusInitializeBlockResponse_Status -> ConsensusInitializeBlockResponse_Status -> ConsensusInitializeBlockResponse_Status Source #

min :: ConsensusInitializeBlockResponse_Status -> ConsensusInitializeBlockResponse_Status -> ConsensusInitializeBlockResponse_Status Source #

Show ConsensusInitializeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusInitializeBlockResponse_Status -> ShowS Source #

show :: ConsensusInitializeBlockResponse_Status -> String Source #

showList :: [ConsensusInitializeBlockResponse_Status] -> ShowS Source #

Generic ConsensusInitializeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusInitializeBlockResponse_Status :: Type -> Type Source #

Methods

from :: ConsensusInitializeBlockResponse_Status -> Rep ConsensusInitializeBlockResponse_Status x Source #

to :: Rep ConsensusInitializeBlockResponse_Status x -> ConsensusInitializeBlockResponse_Status Source #

ToJSON ConsensusInitializeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusInitializeBlockResponse_Status -> Value Source #

toEncoding :: ConsensusInitializeBlockResponse_Status -> Encoding Source #

toJSONList :: [ConsensusInitializeBlockResponse_Status] -> Value Source #

toEncodingList :: [ConsensusInitializeBlockResponse_Status] -> Encoding Source #

FromJSON ConsensusInitializeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusInitializeBlockResponse_Status Source #

parseJSONList :: Value -> Parser [ConsensusInitializeBlockResponse_Status] Source #

NFData ConsensusInitializeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusInitializeBlockResponse_Status -> () Source #

ProtoEnum ConsensusInitializeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toProtoEnumMay :: Int32 -> Maybe ConsensusInitializeBlockResponse_Status Source #

fromProtoEnum :: ConsensusInitializeBlockResponse_Status -> Int32 Source #

ToJSONPB ConsensusInitializeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusInitializeBlockResponse_Status -> Options -> Value Source #

toEncodingPB :: ConsensusInitializeBlockResponse_Status -> Options -> Encoding Source #

FromJSONPB ConsensusInitializeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusInitializeBlockResponse_Status Source #

HasDefault ConsensusInitializeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusInitializeBlockResponse_Status Source #

isDefault :: ConsensusInitializeBlockResponse_Status -> Bool Source #

Named ConsensusInitializeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusInitializeBlockResponse_Status -> string Source #

Finite ConsensusInitializeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

enumerate :: IsString string => Proxy# ConsensusInitializeBlockResponse_Status -> [(string, Int32)] Source #

type Rep ConsensusInitializeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusInitializeBlockResponse_Status = D1 ('MetaData "ConsensusInitializeBlockResponse_Status" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (((C1 ('MetaCons "ConsensusInitializeBlockResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusInitializeBlockResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ConsensusInitializeBlockResponse_StatusBAD_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusInitializeBlockResponse_StatusSERVICE_ERROR" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "ConsensusInitializeBlockResponse_StatusNOT_READY" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusInitializeBlockResponse_StatusINVALID_STATE" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ConsensusInitializeBlockResponse_StatusUNKNOWN_BLOCK" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusInitializeBlockResponse_StatusNOT_ACTIVE_ENGINE" 'PrefixI 'False) (U1 :: Type -> Type))))

data ConsensusSummarizeBlockRequest Source #

Constructors

ConsensusSummarizeBlockRequest 

Instances

Instances details
Eq ConsensusSummarizeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusSummarizeBlockRequest -> ConsensusSummarizeBlockRequest -> Bool Source #

(/=) :: ConsensusSummarizeBlockRequest -> ConsensusSummarizeBlockRequest -> Bool Source #

Ord ConsensusSummarizeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusSummarizeBlockRequest -> ConsensusSummarizeBlockRequest -> Ordering Source #

(<) :: ConsensusSummarizeBlockRequest -> ConsensusSummarizeBlockRequest -> Bool Source #

(<=) :: ConsensusSummarizeBlockRequest -> ConsensusSummarizeBlockRequest -> Bool Source #

(>) :: ConsensusSummarizeBlockRequest -> ConsensusSummarizeBlockRequest -> Bool Source #

(>=) :: ConsensusSummarizeBlockRequest -> ConsensusSummarizeBlockRequest -> Bool Source #

max :: ConsensusSummarizeBlockRequest -> ConsensusSummarizeBlockRequest -> ConsensusSummarizeBlockRequest Source #

min :: ConsensusSummarizeBlockRequest -> ConsensusSummarizeBlockRequest -> ConsensusSummarizeBlockRequest Source #

Show ConsensusSummarizeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusSummarizeBlockRequest -> ShowS Source #

show :: ConsensusSummarizeBlockRequest -> String Source #

showList :: [ConsensusSummarizeBlockRequest] -> ShowS Source #

Generic ConsensusSummarizeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusSummarizeBlockRequest :: Type -> Type Source #

Methods

from :: ConsensusSummarizeBlockRequest -> Rep ConsensusSummarizeBlockRequest x Source #

to :: Rep ConsensusSummarizeBlockRequest x -> ConsensusSummarizeBlockRequest Source #

ToJSON ConsensusSummarizeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusSummarizeBlockRequest -> Value Source #

toEncoding :: ConsensusSummarizeBlockRequest -> Encoding Source #

toJSONList :: [ConsensusSummarizeBlockRequest] -> Value Source #

toEncodingList :: [ConsensusSummarizeBlockRequest] -> Encoding Source #

FromJSON ConsensusSummarizeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusSummarizeBlockRequest Source #

parseJSONList :: Value -> Parser [ConsensusSummarizeBlockRequest] Source #

NFData ConsensusSummarizeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusSummarizeBlockRequest -> () Source #

ToJSONPB ConsensusSummarizeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusSummarizeBlockRequest -> Options -> Value Source #

toEncodingPB :: ConsensusSummarizeBlockRequest -> Options -> Encoding Source #

FromJSONPB ConsensusSummarizeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusSummarizeBlockRequest Source #

HasDefault ConsensusSummarizeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusSummarizeBlockRequest Source #

isDefault :: ConsensusSummarizeBlockRequest -> Bool Source #

Named ConsensusSummarizeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusSummarizeBlockRequest -> string Source #

Message ConsensusSummarizeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusSummarizeBlockRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusSummarizeBlockRequest Source #

dotProto :: Proxy# ConsensusSummarizeBlockRequest -> [DotProtoField] Source #

ToSchema ConsensusSummarizeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusSummarizeBlockRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusSummarizeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusSummarizeBlockRequest = D1 ('MetaData "ConsensusSummarizeBlockRequest" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "ConsensusSummarizeBlockRequest" 'PrefixI 'False) (U1 :: Type -> Type))

data ConsensusSummarizeBlockResponse Source #

Constructors

ConsensusSummarizeBlockResponse 

Fields

Instances

Instances details
Eq ConsensusSummarizeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusSummarizeBlockResponse -> ConsensusSummarizeBlockResponse -> Bool Source #

(/=) :: ConsensusSummarizeBlockResponse -> ConsensusSummarizeBlockResponse -> Bool Source #

Ord ConsensusSummarizeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusSummarizeBlockResponse -> ConsensusSummarizeBlockResponse -> Ordering Source #

(<) :: ConsensusSummarizeBlockResponse -> ConsensusSummarizeBlockResponse -> Bool Source #

(<=) :: ConsensusSummarizeBlockResponse -> ConsensusSummarizeBlockResponse -> Bool Source #

(>) :: ConsensusSummarizeBlockResponse -> ConsensusSummarizeBlockResponse -> Bool Source #

(>=) :: ConsensusSummarizeBlockResponse -> ConsensusSummarizeBlockResponse -> Bool Source #

max :: ConsensusSummarizeBlockResponse -> ConsensusSummarizeBlockResponse -> ConsensusSummarizeBlockResponse Source #

min :: ConsensusSummarizeBlockResponse -> ConsensusSummarizeBlockResponse -> ConsensusSummarizeBlockResponse Source #

Show ConsensusSummarizeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusSummarizeBlockResponse -> ShowS Source #

show :: ConsensusSummarizeBlockResponse -> String Source #

showList :: [ConsensusSummarizeBlockResponse] -> ShowS Source #

Generic ConsensusSummarizeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusSummarizeBlockResponse :: Type -> Type Source #

Methods

from :: ConsensusSummarizeBlockResponse -> Rep ConsensusSummarizeBlockResponse x Source #

to :: Rep ConsensusSummarizeBlockResponse x -> ConsensusSummarizeBlockResponse Source #

ToJSON ConsensusSummarizeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusSummarizeBlockResponse -> Value Source #

toEncoding :: ConsensusSummarizeBlockResponse -> Encoding Source #

toJSONList :: [ConsensusSummarizeBlockResponse] -> Value Source #

toEncodingList :: [ConsensusSummarizeBlockResponse] -> Encoding Source #

FromJSON ConsensusSummarizeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusSummarizeBlockResponse Source #

parseJSONList :: Value -> Parser [ConsensusSummarizeBlockResponse] Source #

NFData ConsensusSummarizeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusSummarizeBlockResponse -> () Source #

ToJSONPB ConsensusSummarizeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusSummarizeBlockResponse -> Options -> Value Source #

toEncodingPB :: ConsensusSummarizeBlockResponse -> Options -> Encoding Source #

FromJSONPB ConsensusSummarizeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusSummarizeBlockResponse Source #

HasDefault ConsensusSummarizeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusSummarizeBlockResponse Source #

isDefault :: ConsensusSummarizeBlockResponse -> Bool Source #

Named ConsensusSummarizeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusSummarizeBlockResponse -> string Source #

Message ConsensusSummarizeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusSummarizeBlockResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusSummarizeBlockResponse Source #

dotProto :: Proxy# ConsensusSummarizeBlockResponse -> [DotProtoField] Source #

ToSchema ConsensusSummarizeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusSummarizeBlockResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusSummarizeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusSummarizeBlockResponse = D1 ('MetaData "ConsensusSummarizeBlockResponse" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "ConsensusSummarizeBlockResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusSummarizeBlockResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated ConsensusSummarizeBlockResponse_Status)) :*: S1 ('MetaSel ('Just "consensusSummarizeBlockResponseSummary") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString)))

data ConsensusSummarizeBlockResponse_Status Source #

Constructors

ConsensusSummarizeBlockResponse_StatusSTATUS_UNSET 
ConsensusSummarizeBlockResponse_StatusOK 
ConsensusSummarizeBlockResponse_StatusBAD_REQUEST 
ConsensusSummarizeBlockResponse_StatusSERVICE_ERROR 
ConsensusSummarizeBlockResponse_StatusNOT_READY 
ConsensusSummarizeBlockResponse_StatusINVALID_STATE 
ConsensusSummarizeBlockResponse_StatusBLOCK_NOT_READY 
ConsensusSummarizeBlockResponse_StatusNOT_ACTIVE_ENGINE 

Instances

Instances details
Bounded ConsensusSummarizeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

minBound :: ConsensusSummarizeBlockResponse_Status Source #

maxBound :: ConsensusSummarizeBlockResponse_Status Source #

Eq ConsensusSummarizeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusSummarizeBlockResponse_Status -> ConsensusSummarizeBlockResponse_Status -> Bool Source #

(/=) :: ConsensusSummarizeBlockResponse_Status -> ConsensusSummarizeBlockResponse_Status -> Bool Source #

Ord ConsensusSummarizeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusSummarizeBlockResponse_Status -> ConsensusSummarizeBlockResponse_Status -> Ordering Source #

(<) :: ConsensusSummarizeBlockResponse_Status -> ConsensusSummarizeBlockResponse_Status -> Bool Source #

(<=) :: ConsensusSummarizeBlockResponse_Status -> ConsensusSummarizeBlockResponse_Status -> Bool Source #

(>) :: ConsensusSummarizeBlockResponse_Status -> ConsensusSummarizeBlockResponse_Status -> Bool Source #

(>=) :: ConsensusSummarizeBlockResponse_Status -> ConsensusSummarizeBlockResponse_Status -> Bool Source #

max :: ConsensusSummarizeBlockResponse_Status -> ConsensusSummarizeBlockResponse_Status -> ConsensusSummarizeBlockResponse_Status Source #

min :: ConsensusSummarizeBlockResponse_Status -> ConsensusSummarizeBlockResponse_Status -> ConsensusSummarizeBlockResponse_Status Source #

Show ConsensusSummarizeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusSummarizeBlockResponse_Status -> ShowS Source #

show :: ConsensusSummarizeBlockResponse_Status -> String Source #

showList :: [ConsensusSummarizeBlockResponse_Status] -> ShowS Source #

Generic ConsensusSummarizeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusSummarizeBlockResponse_Status :: Type -> Type Source #

Methods

from :: ConsensusSummarizeBlockResponse_Status -> Rep ConsensusSummarizeBlockResponse_Status x Source #

to :: Rep ConsensusSummarizeBlockResponse_Status x -> ConsensusSummarizeBlockResponse_Status Source #

ToJSON ConsensusSummarizeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusSummarizeBlockResponse_Status -> Value Source #

toEncoding :: ConsensusSummarizeBlockResponse_Status -> Encoding Source #

toJSONList :: [ConsensusSummarizeBlockResponse_Status] -> Value Source #

toEncodingList :: [ConsensusSummarizeBlockResponse_Status] -> Encoding Source #

FromJSON ConsensusSummarizeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusSummarizeBlockResponse_Status Source #

parseJSONList :: Value -> Parser [ConsensusSummarizeBlockResponse_Status] Source #

NFData ConsensusSummarizeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusSummarizeBlockResponse_Status -> () Source #

ProtoEnum ConsensusSummarizeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toProtoEnumMay :: Int32 -> Maybe ConsensusSummarizeBlockResponse_Status Source #

fromProtoEnum :: ConsensusSummarizeBlockResponse_Status -> Int32 Source #

ToJSONPB ConsensusSummarizeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusSummarizeBlockResponse_Status -> Options -> Value Source #

toEncodingPB :: ConsensusSummarizeBlockResponse_Status -> Options -> Encoding Source #

FromJSONPB ConsensusSummarizeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusSummarizeBlockResponse_Status Source #

HasDefault ConsensusSummarizeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusSummarizeBlockResponse_Status Source #

isDefault :: ConsensusSummarizeBlockResponse_Status -> Bool Source #

Named ConsensusSummarizeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusSummarizeBlockResponse_Status -> string Source #

Finite ConsensusSummarizeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

enumerate :: IsString string => Proxy# ConsensusSummarizeBlockResponse_Status -> [(string, Int32)] Source #

type Rep ConsensusSummarizeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusSummarizeBlockResponse_Status = D1 ('MetaData "ConsensusSummarizeBlockResponse_Status" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (((C1 ('MetaCons "ConsensusSummarizeBlockResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusSummarizeBlockResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ConsensusSummarizeBlockResponse_StatusBAD_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusSummarizeBlockResponse_StatusSERVICE_ERROR" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "ConsensusSummarizeBlockResponse_StatusNOT_READY" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusSummarizeBlockResponse_StatusINVALID_STATE" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ConsensusSummarizeBlockResponse_StatusBLOCK_NOT_READY" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusSummarizeBlockResponse_StatusNOT_ACTIVE_ENGINE" 'PrefixI 'False) (U1 :: Type -> Type))))

newtype ConsensusFinalizeBlockRequest Source #

Constructors

ConsensusFinalizeBlockRequest 

Fields

Instances

Instances details
Eq ConsensusFinalizeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusFinalizeBlockRequest -> ConsensusFinalizeBlockRequest -> Bool Source #

(/=) :: ConsensusFinalizeBlockRequest -> ConsensusFinalizeBlockRequest -> Bool Source #

Ord ConsensusFinalizeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusFinalizeBlockRequest -> ConsensusFinalizeBlockRequest -> Ordering Source #

(<) :: ConsensusFinalizeBlockRequest -> ConsensusFinalizeBlockRequest -> Bool Source #

(<=) :: ConsensusFinalizeBlockRequest -> ConsensusFinalizeBlockRequest -> Bool Source #

(>) :: ConsensusFinalizeBlockRequest -> ConsensusFinalizeBlockRequest -> Bool Source #

(>=) :: ConsensusFinalizeBlockRequest -> ConsensusFinalizeBlockRequest -> Bool Source #

max :: ConsensusFinalizeBlockRequest -> ConsensusFinalizeBlockRequest -> ConsensusFinalizeBlockRequest Source #

min :: ConsensusFinalizeBlockRequest -> ConsensusFinalizeBlockRequest -> ConsensusFinalizeBlockRequest Source #

Show ConsensusFinalizeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusFinalizeBlockRequest -> ShowS Source #

show :: ConsensusFinalizeBlockRequest -> String Source #

showList :: [ConsensusFinalizeBlockRequest] -> ShowS Source #

Generic ConsensusFinalizeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusFinalizeBlockRequest :: Type -> Type Source #

Methods

from :: ConsensusFinalizeBlockRequest -> Rep ConsensusFinalizeBlockRequest x Source #

to :: Rep ConsensusFinalizeBlockRequest x -> ConsensusFinalizeBlockRequest Source #

ToJSON ConsensusFinalizeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusFinalizeBlockRequest -> Value Source #

toEncoding :: ConsensusFinalizeBlockRequest -> Encoding Source #

toJSONList :: [ConsensusFinalizeBlockRequest] -> Value Source #

toEncodingList :: [ConsensusFinalizeBlockRequest] -> Encoding Source #

FromJSON ConsensusFinalizeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusFinalizeBlockRequest Source #

parseJSONList :: Value -> Parser [ConsensusFinalizeBlockRequest] Source #

NFData ConsensusFinalizeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusFinalizeBlockRequest -> () Source #

ToJSONPB ConsensusFinalizeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusFinalizeBlockRequest -> Options -> Value Source #

toEncodingPB :: ConsensusFinalizeBlockRequest -> Options -> Encoding Source #

FromJSONPB ConsensusFinalizeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusFinalizeBlockRequest Source #

HasDefault ConsensusFinalizeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusFinalizeBlockRequest Source #

isDefault :: ConsensusFinalizeBlockRequest -> Bool Source #

Named ConsensusFinalizeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusFinalizeBlockRequest -> string Source #

Message ConsensusFinalizeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusFinalizeBlockRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusFinalizeBlockRequest Source #

dotProto :: Proxy# ConsensusFinalizeBlockRequest -> [DotProtoField] Source #

ToSchema ConsensusFinalizeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusFinalizeBlockRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusFinalizeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusFinalizeBlockRequest = D1 ('MetaData "ConsensusFinalizeBlockRequest" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'True) (C1 ('MetaCons "ConsensusFinalizeBlockRequest" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusFinalizeBlockRequestData") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString)))

data ConsensusFinalizeBlockResponse Source #

Constructors

ConsensusFinalizeBlockResponse 

Fields

Instances

Instances details
Eq ConsensusFinalizeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusFinalizeBlockResponse -> ConsensusFinalizeBlockResponse -> Bool Source #

(/=) :: ConsensusFinalizeBlockResponse -> ConsensusFinalizeBlockResponse -> Bool Source #

Ord ConsensusFinalizeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusFinalizeBlockResponse -> ConsensusFinalizeBlockResponse -> Ordering Source #

(<) :: ConsensusFinalizeBlockResponse -> ConsensusFinalizeBlockResponse -> Bool Source #

(<=) :: ConsensusFinalizeBlockResponse -> ConsensusFinalizeBlockResponse -> Bool Source #

(>) :: ConsensusFinalizeBlockResponse -> ConsensusFinalizeBlockResponse -> Bool Source #

(>=) :: ConsensusFinalizeBlockResponse -> ConsensusFinalizeBlockResponse -> Bool Source #

max :: ConsensusFinalizeBlockResponse -> ConsensusFinalizeBlockResponse -> ConsensusFinalizeBlockResponse Source #

min :: ConsensusFinalizeBlockResponse -> ConsensusFinalizeBlockResponse -> ConsensusFinalizeBlockResponse Source #

Show ConsensusFinalizeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusFinalizeBlockResponse -> ShowS Source #

show :: ConsensusFinalizeBlockResponse -> String Source #

showList :: [ConsensusFinalizeBlockResponse] -> ShowS Source #

Generic ConsensusFinalizeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusFinalizeBlockResponse :: Type -> Type Source #

Methods

from :: ConsensusFinalizeBlockResponse -> Rep ConsensusFinalizeBlockResponse x Source #

to :: Rep ConsensusFinalizeBlockResponse x -> ConsensusFinalizeBlockResponse Source #

ToJSON ConsensusFinalizeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusFinalizeBlockResponse -> Value Source #

toEncoding :: ConsensusFinalizeBlockResponse -> Encoding Source #

toJSONList :: [ConsensusFinalizeBlockResponse] -> Value Source #

toEncodingList :: [ConsensusFinalizeBlockResponse] -> Encoding Source #

FromJSON ConsensusFinalizeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusFinalizeBlockResponse Source #

parseJSONList :: Value -> Parser [ConsensusFinalizeBlockResponse] Source #

NFData ConsensusFinalizeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusFinalizeBlockResponse -> () Source #

ToJSONPB ConsensusFinalizeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusFinalizeBlockResponse -> Options -> Value Source #

toEncodingPB :: ConsensusFinalizeBlockResponse -> Options -> Encoding Source #

FromJSONPB ConsensusFinalizeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusFinalizeBlockResponse Source #

HasDefault ConsensusFinalizeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusFinalizeBlockResponse Source #

isDefault :: ConsensusFinalizeBlockResponse -> Bool Source #

Named ConsensusFinalizeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusFinalizeBlockResponse -> string Source #

Message ConsensusFinalizeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusFinalizeBlockResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusFinalizeBlockResponse Source #

dotProto :: Proxy# ConsensusFinalizeBlockResponse -> [DotProtoField] Source #

ToSchema ConsensusFinalizeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusFinalizeBlockResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusFinalizeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusFinalizeBlockResponse = D1 ('MetaData "ConsensusFinalizeBlockResponse" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "ConsensusFinalizeBlockResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusFinalizeBlockResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated ConsensusFinalizeBlockResponse_Status)) :*: S1 ('MetaSel ('Just "consensusFinalizeBlockResponseBlockId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString)))

data ConsensusFinalizeBlockResponse_Status Source #

Constructors

ConsensusFinalizeBlockResponse_StatusSTATUS_UNSET 
ConsensusFinalizeBlockResponse_StatusOK 
ConsensusFinalizeBlockResponse_StatusBAD_REQUEST 
ConsensusFinalizeBlockResponse_StatusSERVICE_ERROR 
ConsensusFinalizeBlockResponse_StatusNOT_READY 
ConsensusFinalizeBlockResponse_StatusINVALID_STATE 
ConsensusFinalizeBlockResponse_StatusBLOCK_NOT_READY 
ConsensusFinalizeBlockResponse_StatusNOT_ACTIVE_ENGINE 

Instances

Instances details
Bounded ConsensusFinalizeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

minBound :: ConsensusFinalizeBlockResponse_Status Source #

maxBound :: ConsensusFinalizeBlockResponse_Status Source #

Eq ConsensusFinalizeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusFinalizeBlockResponse_Status -> ConsensusFinalizeBlockResponse_Status -> Bool Source #

(/=) :: ConsensusFinalizeBlockResponse_Status -> ConsensusFinalizeBlockResponse_Status -> Bool Source #

Ord ConsensusFinalizeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusFinalizeBlockResponse_Status -> ConsensusFinalizeBlockResponse_Status -> Ordering Source #

(<) :: ConsensusFinalizeBlockResponse_Status -> ConsensusFinalizeBlockResponse_Status -> Bool Source #

(<=) :: ConsensusFinalizeBlockResponse_Status -> ConsensusFinalizeBlockResponse_Status -> Bool Source #

(>) :: ConsensusFinalizeBlockResponse_Status -> ConsensusFinalizeBlockResponse_Status -> Bool Source #

(>=) :: ConsensusFinalizeBlockResponse_Status -> ConsensusFinalizeBlockResponse_Status -> Bool Source #

max :: ConsensusFinalizeBlockResponse_Status -> ConsensusFinalizeBlockResponse_Status -> ConsensusFinalizeBlockResponse_Status Source #

min :: ConsensusFinalizeBlockResponse_Status -> ConsensusFinalizeBlockResponse_Status -> ConsensusFinalizeBlockResponse_Status Source #

Show ConsensusFinalizeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusFinalizeBlockResponse_Status -> ShowS Source #

show :: ConsensusFinalizeBlockResponse_Status -> String Source #

showList :: [ConsensusFinalizeBlockResponse_Status] -> ShowS Source #

Generic ConsensusFinalizeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusFinalizeBlockResponse_Status :: Type -> Type Source #

Methods

from :: ConsensusFinalizeBlockResponse_Status -> Rep ConsensusFinalizeBlockResponse_Status x Source #

to :: Rep ConsensusFinalizeBlockResponse_Status x -> ConsensusFinalizeBlockResponse_Status Source #

ToJSON ConsensusFinalizeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusFinalizeBlockResponse_Status -> Value Source #

toEncoding :: ConsensusFinalizeBlockResponse_Status -> Encoding Source #

toJSONList :: [ConsensusFinalizeBlockResponse_Status] -> Value Source #

toEncodingList :: [ConsensusFinalizeBlockResponse_Status] -> Encoding Source #

FromJSON ConsensusFinalizeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusFinalizeBlockResponse_Status Source #

parseJSONList :: Value -> Parser [ConsensusFinalizeBlockResponse_Status] Source #

NFData ConsensusFinalizeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusFinalizeBlockResponse_Status -> () Source #

ProtoEnum ConsensusFinalizeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toProtoEnumMay :: Int32 -> Maybe ConsensusFinalizeBlockResponse_Status Source #

fromProtoEnum :: ConsensusFinalizeBlockResponse_Status -> Int32 Source #

ToJSONPB ConsensusFinalizeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusFinalizeBlockResponse_Status -> Options -> Value Source #

toEncodingPB :: ConsensusFinalizeBlockResponse_Status -> Options -> Encoding Source #

FromJSONPB ConsensusFinalizeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusFinalizeBlockResponse_Status Source #

HasDefault ConsensusFinalizeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusFinalizeBlockResponse_Status Source #

isDefault :: ConsensusFinalizeBlockResponse_Status -> Bool Source #

Named ConsensusFinalizeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusFinalizeBlockResponse_Status -> string Source #

Finite ConsensusFinalizeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

enumerate :: IsString string => Proxy# ConsensusFinalizeBlockResponse_Status -> [(string, Int32)] Source #

type Rep ConsensusFinalizeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusFinalizeBlockResponse_Status = D1 ('MetaData "ConsensusFinalizeBlockResponse_Status" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (((C1 ('MetaCons "ConsensusFinalizeBlockResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusFinalizeBlockResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ConsensusFinalizeBlockResponse_StatusBAD_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusFinalizeBlockResponse_StatusSERVICE_ERROR" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "ConsensusFinalizeBlockResponse_StatusNOT_READY" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusFinalizeBlockResponse_StatusINVALID_STATE" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ConsensusFinalizeBlockResponse_StatusBLOCK_NOT_READY" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusFinalizeBlockResponse_StatusNOT_ACTIVE_ENGINE" 'PrefixI 'False) (U1 :: Type -> Type))))

data ConsensusCancelBlockRequest Source #

Constructors

ConsensusCancelBlockRequest 

Instances

Instances details
Eq ConsensusCancelBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusCancelBlockRequest -> ConsensusCancelBlockRequest -> Bool Source #

(/=) :: ConsensusCancelBlockRequest -> ConsensusCancelBlockRequest -> Bool Source #

Ord ConsensusCancelBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusCancelBlockRequest -> ConsensusCancelBlockRequest -> Ordering Source #

(<) :: ConsensusCancelBlockRequest -> ConsensusCancelBlockRequest -> Bool Source #

(<=) :: ConsensusCancelBlockRequest -> ConsensusCancelBlockRequest -> Bool Source #

(>) :: ConsensusCancelBlockRequest -> ConsensusCancelBlockRequest -> Bool Source #

(>=) :: ConsensusCancelBlockRequest -> ConsensusCancelBlockRequest -> Bool Source #

max :: ConsensusCancelBlockRequest -> ConsensusCancelBlockRequest -> ConsensusCancelBlockRequest Source #

min :: ConsensusCancelBlockRequest -> ConsensusCancelBlockRequest -> ConsensusCancelBlockRequest Source #

Show ConsensusCancelBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusCancelBlockRequest -> ShowS Source #

show :: ConsensusCancelBlockRequest -> String Source #

showList :: [ConsensusCancelBlockRequest] -> ShowS Source #

Generic ConsensusCancelBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusCancelBlockRequest :: Type -> Type Source #

Methods

from :: ConsensusCancelBlockRequest -> Rep ConsensusCancelBlockRequest x Source #

to :: Rep ConsensusCancelBlockRequest x -> ConsensusCancelBlockRequest Source #

ToJSON ConsensusCancelBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusCancelBlockRequest -> Value Source #

toEncoding :: ConsensusCancelBlockRequest -> Encoding Source #

toJSONList :: [ConsensusCancelBlockRequest] -> Value Source #

toEncodingList :: [ConsensusCancelBlockRequest] -> Encoding Source #

FromJSON ConsensusCancelBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusCancelBlockRequest Source #

parseJSONList :: Value -> Parser [ConsensusCancelBlockRequest] Source #

NFData ConsensusCancelBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusCancelBlockRequest -> () Source #

ToJSONPB ConsensusCancelBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusCancelBlockRequest -> Options -> Value Source #

toEncodingPB :: ConsensusCancelBlockRequest -> Options -> Encoding Source #

FromJSONPB ConsensusCancelBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusCancelBlockRequest Source #

HasDefault ConsensusCancelBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusCancelBlockRequest Source #

isDefault :: ConsensusCancelBlockRequest -> Bool Source #

Named ConsensusCancelBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusCancelBlockRequest -> string Source #

Message ConsensusCancelBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusCancelBlockRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusCancelBlockRequest Source #

dotProto :: Proxy# ConsensusCancelBlockRequest -> [DotProtoField] Source #

ToSchema ConsensusCancelBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusCancelBlockRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusCancelBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusCancelBlockRequest = D1 ('MetaData "ConsensusCancelBlockRequest" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "ConsensusCancelBlockRequest" 'PrefixI 'False) (U1 :: Type -> Type))

newtype ConsensusCancelBlockResponse Source #

Constructors

ConsensusCancelBlockResponse 

Fields

Instances

Instances details
Eq ConsensusCancelBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusCancelBlockResponse -> ConsensusCancelBlockResponse -> Bool Source #

(/=) :: ConsensusCancelBlockResponse -> ConsensusCancelBlockResponse -> Bool Source #

Ord ConsensusCancelBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusCancelBlockResponse -> ConsensusCancelBlockResponse -> Ordering Source #

(<) :: ConsensusCancelBlockResponse -> ConsensusCancelBlockResponse -> Bool Source #

(<=) :: ConsensusCancelBlockResponse -> ConsensusCancelBlockResponse -> Bool Source #

(>) :: ConsensusCancelBlockResponse -> ConsensusCancelBlockResponse -> Bool Source #

(>=) :: ConsensusCancelBlockResponse -> ConsensusCancelBlockResponse -> Bool Source #

max :: ConsensusCancelBlockResponse -> ConsensusCancelBlockResponse -> ConsensusCancelBlockResponse Source #

min :: ConsensusCancelBlockResponse -> ConsensusCancelBlockResponse -> ConsensusCancelBlockResponse Source #

Show ConsensusCancelBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusCancelBlockResponse -> ShowS Source #

show :: ConsensusCancelBlockResponse -> String Source #

showList :: [ConsensusCancelBlockResponse] -> ShowS Source #

Generic ConsensusCancelBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusCancelBlockResponse :: Type -> Type Source #

Methods

from :: ConsensusCancelBlockResponse -> Rep ConsensusCancelBlockResponse x Source #

to :: Rep ConsensusCancelBlockResponse x -> ConsensusCancelBlockResponse Source #

ToJSON ConsensusCancelBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusCancelBlockResponse -> Value Source #

toEncoding :: ConsensusCancelBlockResponse -> Encoding Source #

toJSONList :: [ConsensusCancelBlockResponse] -> Value Source #

toEncodingList :: [ConsensusCancelBlockResponse] -> Encoding Source #

FromJSON ConsensusCancelBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusCancelBlockResponse Source #

parseJSONList :: Value -> Parser [ConsensusCancelBlockResponse] Source #

NFData ConsensusCancelBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusCancelBlockResponse -> () Source #

ToJSONPB ConsensusCancelBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusCancelBlockResponse -> Options -> Value Source #

toEncodingPB :: ConsensusCancelBlockResponse -> Options -> Encoding Source #

FromJSONPB ConsensusCancelBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusCancelBlockResponse Source #

HasDefault ConsensusCancelBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusCancelBlockResponse Source #

isDefault :: ConsensusCancelBlockResponse -> Bool Source #

Named ConsensusCancelBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusCancelBlockResponse -> string Source #

Message ConsensusCancelBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusCancelBlockResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusCancelBlockResponse Source #

dotProto :: Proxy# ConsensusCancelBlockResponse -> [DotProtoField] Source #

ToSchema ConsensusCancelBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusCancelBlockResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusCancelBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusCancelBlockResponse = D1 ('MetaData "ConsensusCancelBlockResponse" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'True) (C1 ('MetaCons "ConsensusCancelBlockResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusCancelBlockResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated ConsensusCancelBlockResponse_Status))))

data ConsensusCancelBlockResponse_Status Source #

Constructors

ConsensusCancelBlockResponse_StatusSTATUS_UNSET 
ConsensusCancelBlockResponse_StatusOK 
ConsensusCancelBlockResponse_StatusBAD_REQUEST 
ConsensusCancelBlockResponse_StatusSERVICE_ERROR 
ConsensusCancelBlockResponse_StatusNOT_READY 
ConsensusCancelBlockResponse_StatusINVALID_STATE 
ConsensusCancelBlockResponse_StatusNOT_ACTIVE_ENGINE 

Instances

Instances details
Bounded ConsensusCancelBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

minBound :: ConsensusCancelBlockResponse_Status Source #

maxBound :: ConsensusCancelBlockResponse_Status Source #

Eq ConsensusCancelBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusCancelBlockResponse_Status -> ConsensusCancelBlockResponse_Status -> Bool Source #

(/=) :: ConsensusCancelBlockResponse_Status -> ConsensusCancelBlockResponse_Status -> Bool Source #

Ord ConsensusCancelBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusCancelBlockResponse_Status -> ConsensusCancelBlockResponse_Status -> Ordering Source #

(<) :: ConsensusCancelBlockResponse_Status -> ConsensusCancelBlockResponse_Status -> Bool Source #

(<=) :: ConsensusCancelBlockResponse_Status -> ConsensusCancelBlockResponse_Status -> Bool Source #

(>) :: ConsensusCancelBlockResponse_Status -> ConsensusCancelBlockResponse_Status -> Bool Source #

(>=) :: ConsensusCancelBlockResponse_Status -> ConsensusCancelBlockResponse_Status -> Bool Source #

max :: ConsensusCancelBlockResponse_Status -> ConsensusCancelBlockResponse_Status -> ConsensusCancelBlockResponse_Status Source #

min :: ConsensusCancelBlockResponse_Status -> ConsensusCancelBlockResponse_Status -> ConsensusCancelBlockResponse_Status Source #

Show ConsensusCancelBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusCancelBlockResponse_Status -> ShowS Source #

show :: ConsensusCancelBlockResponse_Status -> String Source #

showList :: [ConsensusCancelBlockResponse_Status] -> ShowS Source #

Generic ConsensusCancelBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusCancelBlockResponse_Status :: Type -> Type Source #

Methods

from :: ConsensusCancelBlockResponse_Status -> Rep ConsensusCancelBlockResponse_Status x Source #

to :: Rep ConsensusCancelBlockResponse_Status x -> ConsensusCancelBlockResponse_Status Source #

ToJSON ConsensusCancelBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusCancelBlockResponse_Status -> Value Source #

toEncoding :: ConsensusCancelBlockResponse_Status -> Encoding Source #

toJSONList :: [ConsensusCancelBlockResponse_Status] -> Value Source #

toEncodingList :: [ConsensusCancelBlockResponse_Status] -> Encoding Source #

FromJSON ConsensusCancelBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusCancelBlockResponse_Status Source #

parseJSONList :: Value -> Parser [ConsensusCancelBlockResponse_Status] Source #

NFData ConsensusCancelBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusCancelBlockResponse_Status -> () Source #

ProtoEnum ConsensusCancelBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toProtoEnumMay :: Int32 -> Maybe ConsensusCancelBlockResponse_Status Source #

fromProtoEnum :: ConsensusCancelBlockResponse_Status -> Int32 Source #

ToJSONPB ConsensusCancelBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusCancelBlockResponse_Status -> Options -> Value Source #

toEncodingPB :: ConsensusCancelBlockResponse_Status -> Options -> Encoding Source #

FromJSONPB ConsensusCancelBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusCancelBlockResponse_Status Source #

HasDefault ConsensusCancelBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusCancelBlockResponse_Status Source #

isDefault :: ConsensusCancelBlockResponse_Status -> Bool Source #

Named ConsensusCancelBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusCancelBlockResponse_Status -> string Source #

Finite ConsensusCancelBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

enumerate :: IsString string => Proxy# ConsensusCancelBlockResponse_Status -> [(string, Int32)] Source #

type Rep ConsensusCancelBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusCancelBlockResponse_Status = D1 ('MetaData "ConsensusCancelBlockResponse_Status" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) ((C1 ('MetaCons "ConsensusCancelBlockResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "ConsensusCancelBlockResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusCancelBlockResponse_StatusBAD_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "ConsensusCancelBlockResponse_StatusSERVICE_ERROR" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusCancelBlockResponse_StatusNOT_READY" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ConsensusCancelBlockResponse_StatusINVALID_STATE" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusCancelBlockResponse_StatusNOT_ACTIVE_ENGINE" 'PrefixI 'False) (U1 :: Type -> Type))))

newtype ConsensusCheckBlocksRequest Source #

Constructors

ConsensusCheckBlocksRequest 

Fields

Instances

Instances details
Eq ConsensusCheckBlocksRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusCheckBlocksRequest -> ConsensusCheckBlocksRequest -> Bool Source #

(/=) :: ConsensusCheckBlocksRequest -> ConsensusCheckBlocksRequest -> Bool Source #

Ord ConsensusCheckBlocksRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusCheckBlocksRequest -> ConsensusCheckBlocksRequest -> Ordering Source #

(<) :: ConsensusCheckBlocksRequest -> ConsensusCheckBlocksRequest -> Bool Source #

(<=) :: ConsensusCheckBlocksRequest -> ConsensusCheckBlocksRequest -> Bool Source #

(>) :: ConsensusCheckBlocksRequest -> ConsensusCheckBlocksRequest -> Bool Source #

(>=) :: ConsensusCheckBlocksRequest -> ConsensusCheckBlocksRequest -> Bool Source #

max :: ConsensusCheckBlocksRequest -> ConsensusCheckBlocksRequest -> ConsensusCheckBlocksRequest Source #

min :: ConsensusCheckBlocksRequest -> ConsensusCheckBlocksRequest -> ConsensusCheckBlocksRequest Source #

Show ConsensusCheckBlocksRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusCheckBlocksRequest -> ShowS Source #

show :: ConsensusCheckBlocksRequest -> String Source #

showList :: [ConsensusCheckBlocksRequest] -> ShowS Source #

Generic ConsensusCheckBlocksRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusCheckBlocksRequest :: Type -> Type Source #

Methods

from :: ConsensusCheckBlocksRequest -> Rep ConsensusCheckBlocksRequest x Source #

to :: Rep ConsensusCheckBlocksRequest x -> ConsensusCheckBlocksRequest Source #

ToJSON ConsensusCheckBlocksRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusCheckBlocksRequest -> Value Source #

toEncoding :: ConsensusCheckBlocksRequest -> Encoding Source #

toJSONList :: [ConsensusCheckBlocksRequest] -> Value Source #

toEncodingList :: [ConsensusCheckBlocksRequest] -> Encoding Source #

FromJSON ConsensusCheckBlocksRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusCheckBlocksRequest Source #

parseJSONList :: Value -> Parser [ConsensusCheckBlocksRequest] Source #

NFData ConsensusCheckBlocksRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusCheckBlocksRequest -> () Source #

ToJSONPB ConsensusCheckBlocksRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusCheckBlocksRequest -> Options -> Value Source #

toEncodingPB :: ConsensusCheckBlocksRequest -> Options -> Encoding Source #

FromJSONPB ConsensusCheckBlocksRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusCheckBlocksRequest Source #

HasDefault ConsensusCheckBlocksRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusCheckBlocksRequest Source #

isDefault :: ConsensusCheckBlocksRequest -> Bool Source #

Named ConsensusCheckBlocksRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusCheckBlocksRequest -> string Source #

Message ConsensusCheckBlocksRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusCheckBlocksRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusCheckBlocksRequest Source #

dotProto :: Proxy# ConsensusCheckBlocksRequest -> [DotProtoField] Source #

ToSchema ConsensusCheckBlocksRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusCheckBlocksRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusCheckBlocksRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusCheckBlocksRequest = D1 ('MetaData "ConsensusCheckBlocksRequest" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'True) (C1 ('MetaCons "ConsensusCheckBlocksRequest" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusCheckBlocksRequestBlockIds") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector ByteString))))

newtype ConsensusCheckBlocksResponse Source #

Constructors

ConsensusCheckBlocksResponse 

Fields

Instances

Instances details
Eq ConsensusCheckBlocksResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusCheckBlocksResponse -> ConsensusCheckBlocksResponse -> Bool Source #

(/=) :: ConsensusCheckBlocksResponse -> ConsensusCheckBlocksResponse -> Bool Source #

Ord ConsensusCheckBlocksResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusCheckBlocksResponse -> ConsensusCheckBlocksResponse -> Ordering Source #

(<) :: ConsensusCheckBlocksResponse -> ConsensusCheckBlocksResponse -> Bool Source #

(<=) :: ConsensusCheckBlocksResponse -> ConsensusCheckBlocksResponse -> Bool Source #

(>) :: ConsensusCheckBlocksResponse -> ConsensusCheckBlocksResponse -> Bool Source #

(>=) :: ConsensusCheckBlocksResponse -> ConsensusCheckBlocksResponse -> Bool Source #

max :: ConsensusCheckBlocksResponse -> ConsensusCheckBlocksResponse -> ConsensusCheckBlocksResponse Source #

min :: ConsensusCheckBlocksResponse -> ConsensusCheckBlocksResponse -> ConsensusCheckBlocksResponse Source #

Show ConsensusCheckBlocksResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusCheckBlocksResponse -> ShowS Source #

show :: ConsensusCheckBlocksResponse -> String Source #

showList :: [ConsensusCheckBlocksResponse] -> ShowS Source #

Generic ConsensusCheckBlocksResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusCheckBlocksResponse :: Type -> Type Source #

Methods

from :: ConsensusCheckBlocksResponse -> Rep ConsensusCheckBlocksResponse x Source #

to :: Rep ConsensusCheckBlocksResponse x -> ConsensusCheckBlocksResponse Source #

ToJSON ConsensusCheckBlocksResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusCheckBlocksResponse -> Value Source #

toEncoding :: ConsensusCheckBlocksResponse -> Encoding Source #

toJSONList :: [ConsensusCheckBlocksResponse] -> Value Source #

toEncodingList :: [ConsensusCheckBlocksResponse] -> Encoding Source #

FromJSON ConsensusCheckBlocksResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusCheckBlocksResponse Source #

parseJSONList :: Value -> Parser [ConsensusCheckBlocksResponse] Source #

NFData ConsensusCheckBlocksResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusCheckBlocksResponse -> () Source #

ToJSONPB ConsensusCheckBlocksResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusCheckBlocksResponse -> Options -> Value Source #

toEncodingPB :: ConsensusCheckBlocksResponse -> Options -> Encoding Source #

FromJSONPB ConsensusCheckBlocksResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusCheckBlocksResponse Source #

HasDefault ConsensusCheckBlocksResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusCheckBlocksResponse Source #

isDefault :: ConsensusCheckBlocksResponse -> Bool Source #

Named ConsensusCheckBlocksResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusCheckBlocksResponse -> string Source #

Message ConsensusCheckBlocksResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusCheckBlocksResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusCheckBlocksResponse Source #

dotProto :: Proxy# ConsensusCheckBlocksResponse -> [DotProtoField] Source #

ToSchema ConsensusCheckBlocksResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusCheckBlocksResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusCheckBlocksResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusCheckBlocksResponse = D1 ('MetaData "ConsensusCheckBlocksResponse" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'True) (C1 ('MetaCons "ConsensusCheckBlocksResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusCheckBlocksResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated ConsensusCheckBlocksResponse_Status))))

data ConsensusCheckBlocksResponse_Status Source #

Constructors

ConsensusCheckBlocksResponse_StatusSTATUS_UNSET 
ConsensusCheckBlocksResponse_StatusOK 
ConsensusCheckBlocksResponse_StatusBAD_REQUEST 
ConsensusCheckBlocksResponse_StatusSERVICE_ERROR 
ConsensusCheckBlocksResponse_StatusNOT_READY 
ConsensusCheckBlocksResponse_StatusUNKNOWN_BLOCK 
ConsensusCheckBlocksResponse_StatusNOT_ACTIVE_ENGINE 

Instances

Instances details
Bounded ConsensusCheckBlocksResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

minBound :: ConsensusCheckBlocksResponse_Status Source #

maxBound :: ConsensusCheckBlocksResponse_Status Source #

Eq ConsensusCheckBlocksResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusCheckBlocksResponse_Status -> ConsensusCheckBlocksResponse_Status -> Bool Source #

(/=) :: ConsensusCheckBlocksResponse_Status -> ConsensusCheckBlocksResponse_Status -> Bool Source #

Ord ConsensusCheckBlocksResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusCheckBlocksResponse_Status -> ConsensusCheckBlocksResponse_Status -> Ordering Source #

(<) :: ConsensusCheckBlocksResponse_Status -> ConsensusCheckBlocksResponse_Status -> Bool Source #

(<=) :: ConsensusCheckBlocksResponse_Status -> ConsensusCheckBlocksResponse_Status -> Bool Source #

(>) :: ConsensusCheckBlocksResponse_Status -> ConsensusCheckBlocksResponse_Status -> Bool Source #

(>=) :: ConsensusCheckBlocksResponse_Status -> ConsensusCheckBlocksResponse_Status -> Bool Source #

max :: ConsensusCheckBlocksResponse_Status -> ConsensusCheckBlocksResponse_Status -> ConsensusCheckBlocksResponse_Status Source #

min :: ConsensusCheckBlocksResponse_Status -> ConsensusCheckBlocksResponse_Status -> ConsensusCheckBlocksResponse_Status Source #

Show ConsensusCheckBlocksResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusCheckBlocksResponse_Status -> ShowS Source #

show :: ConsensusCheckBlocksResponse_Status -> String Source #

showList :: [ConsensusCheckBlocksResponse_Status] -> ShowS Source #

Generic ConsensusCheckBlocksResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusCheckBlocksResponse_Status :: Type -> Type Source #

Methods

from :: ConsensusCheckBlocksResponse_Status -> Rep ConsensusCheckBlocksResponse_Status x Source #

to :: Rep ConsensusCheckBlocksResponse_Status x -> ConsensusCheckBlocksResponse_Status Source #

ToJSON ConsensusCheckBlocksResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusCheckBlocksResponse_Status -> Value Source #

toEncoding :: ConsensusCheckBlocksResponse_Status -> Encoding Source #

toJSONList :: [ConsensusCheckBlocksResponse_Status] -> Value Source #

toEncodingList :: [ConsensusCheckBlocksResponse_Status] -> Encoding Source #

FromJSON ConsensusCheckBlocksResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusCheckBlocksResponse_Status Source #

parseJSONList :: Value -> Parser [ConsensusCheckBlocksResponse_Status] Source #

NFData ConsensusCheckBlocksResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusCheckBlocksResponse_Status -> () Source #

ProtoEnum ConsensusCheckBlocksResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toProtoEnumMay :: Int32 -> Maybe ConsensusCheckBlocksResponse_Status Source #

fromProtoEnum :: ConsensusCheckBlocksResponse_Status -> Int32 Source #

ToJSONPB ConsensusCheckBlocksResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusCheckBlocksResponse_Status -> Options -> Value Source #

toEncodingPB :: ConsensusCheckBlocksResponse_Status -> Options -> Encoding Source #

FromJSONPB ConsensusCheckBlocksResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusCheckBlocksResponse_Status Source #

HasDefault ConsensusCheckBlocksResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusCheckBlocksResponse_Status Source #

isDefault :: ConsensusCheckBlocksResponse_Status -> Bool Source #

Named ConsensusCheckBlocksResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusCheckBlocksResponse_Status -> string Source #

Finite ConsensusCheckBlocksResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

enumerate :: IsString string => Proxy# ConsensusCheckBlocksResponse_Status -> [(string, Int32)] Source #

type Rep ConsensusCheckBlocksResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusCheckBlocksResponse_Status = D1 ('MetaData "ConsensusCheckBlocksResponse_Status" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) ((C1 ('MetaCons "ConsensusCheckBlocksResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "ConsensusCheckBlocksResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusCheckBlocksResponse_StatusBAD_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "ConsensusCheckBlocksResponse_StatusSERVICE_ERROR" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusCheckBlocksResponse_StatusNOT_READY" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ConsensusCheckBlocksResponse_StatusUNKNOWN_BLOCK" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusCheckBlocksResponse_StatusNOT_ACTIVE_ENGINE" 'PrefixI 'False) (U1 :: Type -> Type))))

newtype ConsensusCommitBlockRequest Source #

Constructors

ConsensusCommitBlockRequest 

Fields

Instances

Instances details
Eq ConsensusCommitBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusCommitBlockRequest -> ConsensusCommitBlockRequest -> Bool Source #

(/=) :: ConsensusCommitBlockRequest -> ConsensusCommitBlockRequest -> Bool Source #

Ord ConsensusCommitBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusCommitBlockRequest -> ConsensusCommitBlockRequest -> Ordering Source #

(<) :: ConsensusCommitBlockRequest -> ConsensusCommitBlockRequest -> Bool Source #

(<=) :: ConsensusCommitBlockRequest -> ConsensusCommitBlockRequest -> Bool Source #

(>) :: ConsensusCommitBlockRequest -> ConsensusCommitBlockRequest -> Bool Source #

(>=) :: ConsensusCommitBlockRequest -> ConsensusCommitBlockRequest -> Bool Source #

max :: ConsensusCommitBlockRequest -> ConsensusCommitBlockRequest -> ConsensusCommitBlockRequest Source #

min :: ConsensusCommitBlockRequest -> ConsensusCommitBlockRequest -> ConsensusCommitBlockRequest Source #

Show ConsensusCommitBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusCommitBlockRequest -> ShowS Source #

show :: ConsensusCommitBlockRequest -> String Source #

showList :: [ConsensusCommitBlockRequest] -> ShowS Source #

Generic ConsensusCommitBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusCommitBlockRequest :: Type -> Type Source #

Methods

from :: ConsensusCommitBlockRequest -> Rep ConsensusCommitBlockRequest x Source #

to :: Rep ConsensusCommitBlockRequest x -> ConsensusCommitBlockRequest Source #

ToJSON ConsensusCommitBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusCommitBlockRequest -> Value Source #

toEncoding :: ConsensusCommitBlockRequest -> Encoding Source #

toJSONList :: [ConsensusCommitBlockRequest] -> Value Source #

toEncodingList :: [ConsensusCommitBlockRequest] -> Encoding Source #

FromJSON ConsensusCommitBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusCommitBlockRequest Source #

parseJSONList :: Value -> Parser [ConsensusCommitBlockRequest] Source #

NFData ConsensusCommitBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusCommitBlockRequest -> () Source #

ToJSONPB ConsensusCommitBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusCommitBlockRequest -> Options -> Value Source #

toEncodingPB :: ConsensusCommitBlockRequest -> Options -> Encoding Source #

FromJSONPB ConsensusCommitBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusCommitBlockRequest Source #

HasDefault ConsensusCommitBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusCommitBlockRequest Source #

isDefault :: ConsensusCommitBlockRequest -> Bool Source #

Named ConsensusCommitBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusCommitBlockRequest -> string Source #

Message ConsensusCommitBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusCommitBlockRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusCommitBlockRequest Source #

dotProto :: Proxy# ConsensusCommitBlockRequest -> [DotProtoField] Source #

ToSchema ConsensusCommitBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusCommitBlockRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusCommitBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusCommitBlockRequest = D1 ('MetaData "ConsensusCommitBlockRequest" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'True) (C1 ('MetaCons "ConsensusCommitBlockRequest" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusCommitBlockRequestBlockId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString)))

newtype ConsensusCommitBlockResponse Source #

Constructors

ConsensusCommitBlockResponse 

Fields

Instances

Instances details
Eq ConsensusCommitBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusCommitBlockResponse -> ConsensusCommitBlockResponse -> Bool Source #

(/=) :: ConsensusCommitBlockResponse -> ConsensusCommitBlockResponse -> Bool Source #

Ord ConsensusCommitBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusCommitBlockResponse -> ConsensusCommitBlockResponse -> Ordering Source #

(<) :: ConsensusCommitBlockResponse -> ConsensusCommitBlockResponse -> Bool Source #

(<=) :: ConsensusCommitBlockResponse -> ConsensusCommitBlockResponse -> Bool Source #

(>) :: ConsensusCommitBlockResponse -> ConsensusCommitBlockResponse -> Bool Source #

(>=) :: ConsensusCommitBlockResponse -> ConsensusCommitBlockResponse -> Bool Source #

max :: ConsensusCommitBlockResponse -> ConsensusCommitBlockResponse -> ConsensusCommitBlockResponse Source #

min :: ConsensusCommitBlockResponse -> ConsensusCommitBlockResponse -> ConsensusCommitBlockResponse Source #

Show ConsensusCommitBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusCommitBlockResponse -> ShowS Source #

show :: ConsensusCommitBlockResponse -> String Source #

showList :: [ConsensusCommitBlockResponse] -> ShowS Source #

Generic ConsensusCommitBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusCommitBlockResponse :: Type -> Type Source #

Methods

from :: ConsensusCommitBlockResponse -> Rep ConsensusCommitBlockResponse x Source #

to :: Rep ConsensusCommitBlockResponse x -> ConsensusCommitBlockResponse Source #

ToJSON ConsensusCommitBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusCommitBlockResponse -> Value Source #

toEncoding :: ConsensusCommitBlockResponse -> Encoding Source #

toJSONList :: [ConsensusCommitBlockResponse] -> Value Source #

toEncodingList :: [ConsensusCommitBlockResponse] -> Encoding Source #

FromJSON ConsensusCommitBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusCommitBlockResponse Source #

parseJSONList :: Value -> Parser [ConsensusCommitBlockResponse] Source #

NFData ConsensusCommitBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusCommitBlockResponse -> () Source #

ToJSONPB ConsensusCommitBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusCommitBlockResponse -> Options -> Value Source #

toEncodingPB :: ConsensusCommitBlockResponse -> Options -> Encoding Source #

FromJSONPB ConsensusCommitBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusCommitBlockResponse Source #

HasDefault ConsensusCommitBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusCommitBlockResponse Source #

isDefault :: ConsensusCommitBlockResponse -> Bool Source #

Named ConsensusCommitBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusCommitBlockResponse -> string Source #

Message ConsensusCommitBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusCommitBlockResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusCommitBlockResponse Source #

dotProto :: Proxy# ConsensusCommitBlockResponse -> [DotProtoField] Source #

ToSchema ConsensusCommitBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusCommitBlockResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusCommitBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusCommitBlockResponse = D1 ('MetaData "ConsensusCommitBlockResponse" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'True) (C1 ('MetaCons "ConsensusCommitBlockResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusCommitBlockResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated ConsensusCommitBlockResponse_Status))))

data ConsensusCommitBlockResponse_Status Source #

Constructors

ConsensusCommitBlockResponse_StatusSTATUS_UNSET 
ConsensusCommitBlockResponse_StatusOK 
ConsensusCommitBlockResponse_StatusBAD_REQUEST 
ConsensusCommitBlockResponse_StatusSERVICE_ERROR 
ConsensusCommitBlockResponse_StatusNOT_READY 
ConsensusCommitBlockResponse_StatusUNKNOWN_BLOCK 
ConsensusCommitBlockResponse_StatusNOT_ACTIVE_ENGINE 

Instances

Instances details
Bounded ConsensusCommitBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

minBound :: ConsensusCommitBlockResponse_Status Source #

maxBound :: ConsensusCommitBlockResponse_Status Source #

Eq ConsensusCommitBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusCommitBlockResponse_Status -> ConsensusCommitBlockResponse_Status -> Bool Source #

(/=) :: ConsensusCommitBlockResponse_Status -> ConsensusCommitBlockResponse_Status -> Bool Source #

Ord ConsensusCommitBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusCommitBlockResponse_Status -> ConsensusCommitBlockResponse_Status -> Ordering Source #

(<) :: ConsensusCommitBlockResponse_Status -> ConsensusCommitBlockResponse_Status -> Bool Source #

(<=) :: ConsensusCommitBlockResponse_Status -> ConsensusCommitBlockResponse_Status -> Bool Source #

(>) :: ConsensusCommitBlockResponse_Status -> ConsensusCommitBlockResponse_Status -> Bool Source #

(>=) :: ConsensusCommitBlockResponse_Status -> ConsensusCommitBlockResponse_Status -> Bool Source #

max :: ConsensusCommitBlockResponse_Status -> ConsensusCommitBlockResponse_Status -> ConsensusCommitBlockResponse_Status Source #

min :: ConsensusCommitBlockResponse_Status -> ConsensusCommitBlockResponse_Status -> ConsensusCommitBlockResponse_Status Source #

Show ConsensusCommitBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusCommitBlockResponse_Status -> ShowS Source #

show :: ConsensusCommitBlockResponse_Status -> String Source #

showList :: [ConsensusCommitBlockResponse_Status] -> ShowS Source #

Generic ConsensusCommitBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusCommitBlockResponse_Status :: Type -> Type Source #

Methods

from :: ConsensusCommitBlockResponse_Status -> Rep ConsensusCommitBlockResponse_Status x Source #

to :: Rep ConsensusCommitBlockResponse_Status x -> ConsensusCommitBlockResponse_Status Source #

ToJSON ConsensusCommitBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusCommitBlockResponse_Status -> Value Source #

toEncoding :: ConsensusCommitBlockResponse_Status -> Encoding Source #

toJSONList :: [ConsensusCommitBlockResponse_Status] -> Value Source #

toEncodingList :: [ConsensusCommitBlockResponse_Status] -> Encoding Source #

FromJSON ConsensusCommitBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusCommitBlockResponse_Status Source #

parseJSONList :: Value -> Parser [ConsensusCommitBlockResponse_Status] Source #

NFData ConsensusCommitBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusCommitBlockResponse_Status -> () Source #

ProtoEnum ConsensusCommitBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toProtoEnumMay :: Int32 -> Maybe ConsensusCommitBlockResponse_Status Source #

fromProtoEnum :: ConsensusCommitBlockResponse_Status -> Int32 Source #

ToJSONPB ConsensusCommitBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusCommitBlockResponse_Status -> Options -> Value Source #

toEncodingPB :: ConsensusCommitBlockResponse_Status -> Options -> Encoding Source #

FromJSONPB ConsensusCommitBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusCommitBlockResponse_Status Source #

HasDefault ConsensusCommitBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusCommitBlockResponse_Status Source #

isDefault :: ConsensusCommitBlockResponse_Status -> Bool Source #

Named ConsensusCommitBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusCommitBlockResponse_Status -> string Source #

Finite ConsensusCommitBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

enumerate :: IsString string => Proxy# ConsensusCommitBlockResponse_Status -> [(string, Int32)] Source #

type Rep ConsensusCommitBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusCommitBlockResponse_Status = D1 ('MetaData "ConsensusCommitBlockResponse_Status" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) ((C1 ('MetaCons "ConsensusCommitBlockResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "ConsensusCommitBlockResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusCommitBlockResponse_StatusBAD_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "ConsensusCommitBlockResponse_StatusSERVICE_ERROR" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusCommitBlockResponse_StatusNOT_READY" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ConsensusCommitBlockResponse_StatusUNKNOWN_BLOCK" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusCommitBlockResponse_StatusNOT_ACTIVE_ENGINE" 'PrefixI 'False) (U1 :: Type -> Type))))

newtype ConsensusIgnoreBlockRequest Source #

Constructors

ConsensusIgnoreBlockRequest 

Fields

Instances

Instances details
Eq ConsensusIgnoreBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusIgnoreBlockRequest -> ConsensusIgnoreBlockRequest -> Bool Source #

(/=) :: ConsensusIgnoreBlockRequest -> ConsensusIgnoreBlockRequest -> Bool Source #

Ord ConsensusIgnoreBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusIgnoreBlockRequest -> ConsensusIgnoreBlockRequest -> Ordering Source #

(<) :: ConsensusIgnoreBlockRequest -> ConsensusIgnoreBlockRequest -> Bool Source #

(<=) :: ConsensusIgnoreBlockRequest -> ConsensusIgnoreBlockRequest -> Bool Source #

(>) :: ConsensusIgnoreBlockRequest -> ConsensusIgnoreBlockRequest -> Bool Source #

(>=) :: ConsensusIgnoreBlockRequest -> ConsensusIgnoreBlockRequest -> Bool Source #

max :: ConsensusIgnoreBlockRequest -> ConsensusIgnoreBlockRequest -> ConsensusIgnoreBlockRequest Source #

min :: ConsensusIgnoreBlockRequest -> ConsensusIgnoreBlockRequest -> ConsensusIgnoreBlockRequest Source #

Show ConsensusIgnoreBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusIgnoreBlockRequest -> ShowS Source #

show :: ConsensusIgnoreBlockRequest -> String Source #

showList :: [ConsensusIgnoreBlockRequest] -> ShowS Source #

Generic ConsensusIgnoreBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusIgnoreBlockRequest :: Type -> Type Source #

Methods

from :: ConsensusIgnoreBlockRequest -> Rep ConsensusIgnoreBlockRequest x Source #

to :: Rep ConsensusIgnoreBlockRequest x -> ConsensusIgnoreBlockRequest Source #

ToJSON ConsensusIgnoreBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusIgnoreBlockRequest -> Value Source #

toEncoding :: ConsensusIgnoreBlockRequest -> Encoding Source #

toJSONList :: [ConsensusIgnoreBlockRequest] -> Value Source #

toEncodingList :: [ConsensusIgnoreBlockRequest] -> Encoding Source #

FromJSON ConsensusIgnoreBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusIgnoreBlockRequest Source #

parseJSONList :: Value -> Parser [ConsensusIgnoreBlockRequest] Source #

NFData ConsensusIgnoreBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusIgnoreBlockRequest -> () Source #

ToJSONPB ConsensusIgnoreBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusIgnoreBlockRequest -> Options -> Value Source #

toEncodingPB :: ConsensusIgnoreBlockRequest -> Options -> Encoding Source #

FromJSONPB ConsensusIgnoreBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusIgnoreBlockRequest Source #

HasDefault ConsensusIgnoreBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusIgnoreBlockRequest Source #

isDefault :: ConsensusIgnoreBlockRequest -> Bool Source #

Named ConsensusIgnoreBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusIgnoreBlockRequest -> string Source #

Message ConsensusIgnoreBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusIgnoreBlockRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusIgnoreBlockRequest Source #

dotProto :: Proxy# ConsensusIgnoreBlockRequest -> [DotProtoField] Source #

ToSchema ConsensusIgnoreBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusIgnoreBlockRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusIgnoreBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusIgnoreBlockRequest = D1 ('MetaData "ConsensusIgnoreBlockRequest" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'True) (C1 ('MetaCons "ConsensusIgnoreBlockRequest" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusIgnoreBlockRequestBlockId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString)))

newtype ConsensusIgnoreBlockResponse Source #

Constructors

ConsensusIgnoreBlockResponse 

Fields

Instances

Instances details
Eq ConsensusIgnoreBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusIgnoreBlockResponse -> ConsensusIgnoreBlockResponse -> Bool Source #

(/=) :: ConsensusIgnoreBlockResponse -> ConsensusIgnoreBlockResponse -> Bool Source #

Ord ConsensusIgnoreBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusIgnoreBlockResponse -> ConsensusIgnoreBlockResponse -> Ordering Source #

(<) :: ConsensusIgnoreBlockResponse -> ConsensusIgnoreBlockResponse -> Bool Source #

(<=) :: ConsensusIgnoreBlockResponse -> ConsensusIgnoreBlockResponse -> Bool Source #

(>) :: ConsensusIgnoreBlockResponse -> ConsensusIgnoreBlockResponse -> Bool Source #

(>=) :: ConsensusIgnoreBlockResponse -> ConsensusIgnoreBlockResponse -> Bool Source #

max :: ConsensusIgnoreBlockResponse -> ConsensusIgnoreBlockResponse -> ConsensusIgnoreBlockResponse Source #

min :: ConsensusIgnoreBlockResponse -> ConsensusIgnoreBlockResponse -> ConsensusIgnoreBlockResponse Source #

Show ConsensusIgnoreBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusIgnoreBlockResponse -> ShowS Source #

show :: ConsensusIgnoreBlockResponse -> String Source #

showList :: [ConsensusIgnoreBlockResponse] -> ShowS Source #

Generic ConsensusIgnoreBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusIgnoreBlockResponse :: Type -> Type Source #

Methods

from :: ConsensusIgnoreBlockResponse -> Rep ConsensusIgnoreBlockResponse x Source #

to :: Rep ConsensusIgnoreBlockResponse x -> ConsensusIgnoreBlockResponse Source #

ToJSON ConsensusIgnoreBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusIgnoreBlockResponse -> Value Source #

toEncoding :: ConsensusIgnoreBlockResponse -> Encoding Source #

toJSONList :: [ConsensusIgnoreBlockResponse] -> Value Source #

toEncodingList :: [ConsensusIgnoreBlockResponse] -> Encoding Source #

FromJSON ConsensusIgnoreBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusIgnoreBlockResponse Source #

parseJSONList :: Value -> Parser [ConsensusIgnoreBlockResponse] Source #

NFData ConsensusIgnoreBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusIgnoreBlockResponse -> () Source #

ToJSONPB ConsensusIgnoreBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusIgnoreBlockResponse -> Options -> Value Source #

toEncodingPB :: ConsensusIgnoreBlockResponse -> Options -> Encoding Source #

FromJSONPB ConsensusIgnoreBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusIgnoreBlockResponse Source #

HasDefault ConsensusIgnoreBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusIgnoreBlockResponse Source #

isDefault :: ConsensusIgnoreBlockResponse -> Bool Source #

Named ConsensusIgnoreBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusIgnoreBlockResponse -> string Source #

Message ConsensusIgnoreBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusIgnoreBlockResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusIgnoreBlockResponse Source #

dotProto :: Proxy# ConsensusIgnoreBlockResponse -> [DotProtoField] Source #

ToSchema ConsensusIgnoreBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusIgnoreBlockResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusIgnoreBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusIgnoreBlockResponse = D1 ('MetaData "ConsensusIgnoreBlockResponse" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'True) (C1 ('MetaCons "ConsensusIgnoreBlockResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusIgnoreBlockResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated ConsensusIgnoreBlockResponse_Status))))

data ConsensusIgnoreBlockResponse_Status Source #

Constructors

ConsensusIgnoreBlockResponse_StatusSTATUS_UNSET 
ConsensusIgnoreBlockResponse_StatusOK 
ConsensusIgnoreBlockResponse_StatusBAD_REQUEST 
ConsensusIgnoreBlockResponse_StatusSERVICE_ERROR 
ConsensusIgnoreBlockResponse_StatusNOT_READY 
ConsensusIgnoreBlockResponse_StatusUNKNOWN_BLOCK 
ConsensusIgnoreBlockResponse_StatusNOT_ACTIVE_ENGINE 

Instances

Instances details
Bounded ConsensusIgnoreBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

minBound :: ConsensusIgnoreBlockResponse_Status Source #

maxBound :: ConsensusIgnoreBlockResponse_Status Source #

Eq ConsensusIgnoreBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusIgnoreBlockResponse_Status -> ConsensusIgnoreBlockResponse_Status -> Bool Source #

(/=) :: ConsensusIgnoreBlockResponse_Status -> ConsensusIgnoreBlockResponse_Status -> Bool Source #

Ord ConsensusIgnoreBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusIgnoreBlockResponse_Status -> ConsensusIgnoreBlockResponse_Status -> Ordering Source #

(<) :: ConsensusIgnoreBlockResponse_Status -> ConsensusIgnoreBlockResponse_Status -> Bool Source #

(<=) :: ConsensusIgnoreBlockResponse_Status -> ConsensusIgnoreBlockResponse_Status -> Bool Source #

(>) :: ConsensusIgnoreBlockResponse_Status -> ConsensusIgnoreBlockResponse_Status -> Bool Source #

(>=) :: ConsensusIgnoreBlockResponse_Status -> ConsensusIgnoreBlockResponse_Status -> Bool Source #

max :: ConsensusIgnoreBlockResponse_Status -> ConsensusIgnoreBlockResponse_Status -> ConsensusIgnoreBlockResponse_Status Source #

min :: ConsensusIgnoreBlockResponse_Status -> ConsensusIgnoreBlockResponse_Status -> ConsensusIgnoreBlockResponse_Status Source #

Show ConsensusIgnoreBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusIgnoreBlockResponse_Status -> ShowS Source #

show :: ConsensusIgnoreBlockResponse_Status -> String Source #

showList :: [ConsensusIgnoreBlockResponse_Status] -> ShowS Source #

Generic ConsensusIgnoreBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusIgnoreBlockResponse_Status :: Type -> Type Source #

Methods

from :: ConsensusIgnoreBlockResponse_Status -> Rep ConsensusIgnoreBlockResponse_Status x Source #

to :: Rep ConsensusIgnoreBlockResponse_Status x -> ConsensusIgnoreBlockResponse_Status Source #

ToJSON ConsensusIgnoreBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusIgnoreBlockResponse_Status -> Value Source #

toEncoding :: ConsensusIgnoreBlockResponse_Status -> Encoding Source #

toJSONList :: [ConsensusIgnoreBlockResponse_Status] -> Value Source #

toEncodingList :: [ConsensusIgnoreBlockResponse_Status] -> Encoding Source #

FromJSON ConsensusIgnoreBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusIgnoreBlockResponse_Status Source #

parseJSONList :: Value -> Parser [ConsensusIgnoreBlockResponse_Status] Source #

NFData ConsensusIgnoreBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusIgnoreBlockResponse_Status -> () Source #

ProtoEnum ConsensusIgnoreBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toProtoEnumMay :: Int32 -> Maybe ConsensusIgnoreBlockResponse_Status Source #

fromProtoEnum :: ConsensusIgnoreBlockResponse_Status -> Int32 Source #

ToJSONPB ConsensusIgnoreBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusIgnoreBlockResponse_Status -> Options -> Value Source #

toEncodingPB :: ConsensusIgnoreBlockResponse_Status -> Options -> Encoding Source #

FromJSONPB ConsensusIgnoreBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusIgnoreBlockResponse_Status Source #

HasDefault ConsensusIgnoreBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusIgnoreBlockResponse_Status Source #

isDefault :: ConsensusIgnoreBlockResponse_Status -> Bool Source #

Named ConsensusIgnoreBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusIgnoreBlockResponse_Status -> string Source #

Finite ConsensusIgnoreBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

enumerate :: IsString string => Proxy# ConsensusIgnoreBlockResponse_Status -> [(string, Int32)] Source #

type Rep ConsensusIgnoreBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusIgnoreBlockResponse_Status = D1 ('MetaData "ConsensusIgnoreBlockResponse_Status" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) ((C1 ('MetaCons "ConsensusIgnoreBlockResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "ConsensusIgnoreBlockResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusIgnoreBlockResponse_StatusBAD_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "ConsensusIgnoreBlockResponse_StatusSERVICE_ERROR" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusIgnoreBlockResponse_StatusNOT_READY" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ConsensusIgnoreBlockResponse_StatusUNKNOWN_BLOCK" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusIgnoreBlockResponse_StatusNOT_ACTIVE_ENGINE" 'PrefixI 'False) (U1 :: Type -> Type))))

newtype ConsensusFailBlockRequest Source #

Constructors

ConsensusFailBlockRequest 

Fields

Instances

Instances details
Eq ConsensusFailBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusFailBlockRequest -> ConsensusFailBlockRequest -> Bool Source #

(/=) :: ConsensusFailBlockRequest -> ConsensusFailBlockRequest -> Bool Source #

Ord ConsensusFailBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusFailBlockRequest -> ConsensusFailBlockRequest -> Ordering Source #

(<) :: ConsensusFailBlockRequest -> ConsensusFailBlockRequest -> Bool Source #

(<=) :: ConsensusFailBlockRequest -> ConsensusFailBlockRequest -> Bool Source #

(>) :: ConsensusFailBlockRequest -> ConsensusFailBlockRequest -> Bool Source #

(>=) :: ConsensusFailBlockRequest -> ConsensusFailBlockRequest -> Bool Source #

max :: ConsensusFailBlockRequest -> ConsensusFailBlockRequest -> ConsensusFailBlockRequest Source #

min :: ConsensusFailBlockRequest -> ConsensusFailBlockRequest -> ConsensusFailBlockRequest Source #

Show ConsensusFailBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusFailBlockRequest -> ShowS Source #

show :: ConsensusFailBlockRequest -> String Source #

showList :: [ConsensusFailBlockRequest] -> ShowS Source #

Generic ConsensusFailBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusFailBlockRequest :: Type -> Type Source #

Methods

from :: ConsensusFailBlockRequest -> Rep ConsensusFailBlockRequest x Source #

to :: Rep ConsensusFailBlockRequest x -> ConsensusFailBlockRequest Source #

ToJSON ConsensusFailBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusFailBlockRequest -> Value Source #

toEncoding :: ConsensusFailBlockRequest -> Encoding Source #

toJSONList :: [ConsensusFailBlockRequest] -> Value Source #

toEncodingList :: [ConsensusFailBlockRequest] -> Encoding Source #

FromJSON ConsensusFailBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusFailBlockRequest Source #

parseJSONList :: Value -> Parser [ConsensusFailBlockRequest] Source #

NFData ConsensusFailBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusFailBlockRequest -> () Source #

ToJSONPB ConsensusFailBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusFailBlockRequest -> Options -> Value Source #

toEncodingPB :: ConsensusFailBlockRequest -> Options -> Encoding Source #

FromJSONPB ConsensusFailBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusFailBlockRequest Source #

HasDefault ConsensusFailBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusFailBlockRequest Source #

isDefault :: ConsensusFailBlockRequest -> Bool Source #

Named ConsensusFailBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusFailBlockRequest -> string Source #

Message ConsensusFailBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusFailBlockRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusFailBlockRequest Source #

dotProto :: Proxy# ConsensusFailBlockRequest -> [DotProtoField] Source #

ToSchema ConsensusFailBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusFailBlockRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusFailBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusFailBlockRequest = D1 ('MetaData "ConsensusFailBlockRequest" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'True) (C1 ('MetaCons "ConsensusFailBlockRequest" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusFailBlockRequestBlockId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString)))

newtype ConsensusFailBlockResponse Source #

Constructors

ConsensusFailBlockResponse 

Fields

Instances

Instances details
Eq ConsensusFailBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusFailBlockResponse -> ConsensusFailBlockResponse -> Bool Source #

(/=) :: ConsensusFailBlockResponse -> ConsensusFailBlockResponse -> Bool Source #

Ord ConsensusFailBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusFailBlockResponse -> ConsensusFailBlockResponse -> Ordering Source #

(<) :: ConsensusFailBlockResponse -> ConsensusFailBlockResponse -> Bool Source #

(<=) :: ConsensusFailBlockResponse -> ConsensusFailBlockResponse -> Bool Source #

(>) :: ConsensusFailBlockResponse -> ConsensusFailBlockResponse -> Bool Source #

(>=) :: ConsensusFailBlockResponse -> ConsensusFailBlockResponse -> Bool Source #

max :: ConsensusFailBlockResponse -> ConsensusFailBlockResponse -> ConsensusFailBlockResponse Source #

min :: ConsensusFailBlockResponse -> ConsensusFailBlockResponse -> ConsensusFailBlockResponse Source #

Show ConsensusFailBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusFailBlockResponse -> ShowS Source #

show :: ConsensusFailBlockResponse -> String Source #

showList :: [ConsensusFailBlockResponse] -> ShowS Source #

Generic ConsensusFailBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusFailBlockResponse :: Type -> Type Source #

Methods

from :: ConsensusFailBlockResponse -> Rep ConsensusFailBlockResponse x Source #

to :: Rep ConsensusFailBlockResponse x -> ConsensusFailBlockResponse Source #

ToJSON ConsensusFailBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusFailBlockResponse -> Value Source #

toEncoding :: ConsensusFailBlockResponse -> Encoding Source #

toJSONList :: [ConsensusFailBlockResponse] -> Value Source #

toEncodingList :: [ConsensusFailBlockResponse] -> Encoding Source #

FromJSON ConsensusFailBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusFailBlockResponse Source #

parseJSONList :: Value -> Parser [ConsensusFailBlockResponse] Source #

NFData ConsensusFailBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusFailBlockResponse -> () Source #

ToJSONPB ConsensusFailBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusFailBlockResponse -> Options -> Value Source #

toEncodingPB :: ConsensusFailBlockResponse -> Options -> Encoding Source #

FromJSONPB ConsensusFailBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusFailBlockResponse Source #

HasDefault ConsensusFailBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusFailBlockResponse Source #

isDefault :: ConsensusFailBlockResponse -> Bool Source #

Named ConsensusFailBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusFailBlockResponse -> string Source #

Message ConsensusFailBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusFailBlockResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusFailBlockResponse Source #

dotProto :: Proxy# ConsensusFailBlockResponse -> [DotProtoField] Source #

ToSchema ConsensusFailBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusFailBlockResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusFailBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusFailBlockResponse = D1 ('MetaData "ConsensusFailBlockResponse" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'True) (C1 ('MetaCons "ConsensusFailBlockResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusFailBlockResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated ConsensusFailBlockResponse_Status))))

data ConsensusFailBlockResponse_Status Source #

Constructors

ConsensusFailBlockResponse_StatusSTATUS_UNSET 
ConsensusFailBlockResponse_StatusOK 
ConsensusFailBlockResponse_StatusBAD_REQUEST 
ConsensusFailBlockResponse_StatusSERVICE_ERROR 
ConsensusFailBlockResponse_StatusNOT_READY 
ConsensusFailBlockResponse_StatusUNKNOWN_BLOCK 
ConsensusFailBlockResponse_StatusNOT_ACTIVE_ENGINE 

Instances

Instances details
Bounded ConsensusFailBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

minBound :: ConsensusFailBlockResponse_Status Source #

maxBound :: ConsensusFailBlockResponse_Status Source #

Eq ConsensusFailBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusFailBlockResponse_Status -> ConsensusFailBlockResponse_Status -> Bool Source #

(/=) :: ConsensusFailBlockResponse_Status -> ConsensusFailBlockResponse_Status -> Bool Source #

Ord ConsensusFailBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusFailBlockResponse_Status -> ConsensusFailBlockResponse_Status -> Ordering Source #

(<) :: ConsensusFailBlockResponse_Status -> ConsensusFailBlockResponse_Status -> Bool Source #

(<=) :: ConsensusFailBlockResponse_Status -> ConsensusFailBlockResponse_Status -> Bool Source #

(>) :: ConsensusFailBlockResponse_Status -> ConsensusFailBlockResponse_Status -> Bool Source #

(>=) :: ConsensusFailBlockResponse_Status -> ConsensusFailBlockResponse_Status -> Bool Source #

max :: ConsensusFailBlockResponse_Status -> ConsensusFailBlockResponse_Status -> ConsensusFailBlockResponse_Status Source #

min :: ConsensusFailBlockResponse_Status -> ConsensusFailBlockResponse_Status -> ConsensusFailBlockResponse_Status Source #

Show ConsensusFailBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusFailBlockResponse_Status -> ShowS Source #

show :: ConsensusFailBlockResponse_Status -> String Source #

showList :: [ConsensusFailBlockResponse_Status] -> ShowS Source #

Generic ConsensusFailBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusFailBlockResponse_Status :: Type -> Type Source #

Methods

from :: ConsensusFailBlockResponse_Status -> Rep ConsensusFailBlockResponse_Status x Source #

to :: Rep ConsensusFailBlockResponse_Status x -> ConsensusFailBlockResponse_Status Source #

ToJSON ConsensusFailBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusFailBlockResponse_Status -> Value Source #

toEncoding :: ConsensusFailBlockResponse_Status -> Encoding Source #

toJSONList :: [ConsensusFailBlockResponse_Status] -> Value Source #

toEncodingList :: [ConsensusFailBlockResponse_Status] -> Encoding Source #

FromJSON ConsensusFailBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusFailBlockResponse_Status Source #

parseJSONList :: Value -> Parser [ConsensusFailBlockResponse_Status] Source #

NFData ConsensusFailBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusFailBlockResponse_Status -> () Source #

ProtoEnum ConsensusFailBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toProtoEnumMay :: Int32 -> Maybe ConsensusFailBlockResponse_Status Source #

fromProtoEnum :: ConsensusFailBlockResponse_Status -> Int32 Source #

ToJSONPB ConsensusFailBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusFailBlockResponse_Status -> Options -> Value Source #

toEncodingPB :: ConsensusFailBlockResponse_Status -> Options -> Encoding Source #

FromJSONPB ConsensusFailBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusFailBlockResponse_Status Source #

HasDefault ConsensusFailBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusFailBlockResponse_Status Source #

isDefault :: ConsensusFailBlockResponse_Status -> Bool Source #

Named ConsensusFailBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusFailBlockResponse_Status -> string Source #

Finite ConsensusFailBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

enumerate :: IsString string => Proxy# ConsensusFailBlockResponse_Status -> [(string, Int32)] Source #

type Rep ConsensusFailBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusFailBlockResponse_Status = D1 ('MetaData "ConsensusFailBlockResponse_Status" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) ((C1 ('MetaCons "ConsensusFailBlockResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "ConsensusFailBlockResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusFailBlockResponse_StatusBAD_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "ConsensusFailBlockResponse_StatusSERVICE_ERROR" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusFailBlockResponse_StatusNOT_READY" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ConsensusFailBlockResponse_StatusUNKNOWN_BLOCK" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusFailBlockResponse_StatusNOT_ACTIVE_ENGINE" 'PrefixI 'False) (U1 :: Type -> Type))))

newtype ConsensusBlocksGetRequest Source #

Constructors

ConsensusBlocksGetRequest 

Fields

Instances

Instances details
Eq ConsensusBlocksGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusBlocksGetRequest -> ConsensusBlocksGetRequest -> Bool Source #

(/=) :: ConsensusBlocksGetRequest -> ConsensusBlocksGetRequest -> Bool Source #

Ord ConsensusBlocksGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusBlocksGetRequest -> ConsensusBlocksGetRequest -> Ordering Source #

(<) :: ConsensusBlocksGetRequest -> ConsensusBlocksGetRequest -> Bool Source #

(<=) :: ConsensusBlocksGetRequest -> ConsensusBlocksGetRequest -> Bool Source #

(>) :: ConsensusBlocksGetRequest -> ConsensusBlocksGetRequest -> Bool Source #

(>=) :: ConsensusBlocksGetRequest -> ConsensusBlocksGetRequest -> Bool Source #

max :: ConsensusBlocksGetRequest -> ConsensusBlocksGetRequest -> ConsensusBlocksGetRequest Source #

min :: ConsensusBlocksGetRequest -> ConsensusBlocksGetRequest -> ConsensusBlocksGetRequest Source #

Show ConsensusBlocksGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusBlocksGetRequest -> ShowS Source #

show :: ConsensusBlocksGetRequest -> String Source #

showList :: [ConsensusBlocksGetRequest] -> ShowS Source #

Generic ConsensusBlocksGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusBlocksGetRequest :: Type -> Type Source #

Methods

from :: ConsensusBlocksGetRequest -> Rep ConsensusBlocksGetRequest x Source #

to :: Rep ConsensusBlocksGetRequest x -> ConsensusBlocksGetRequest Source #

ToJSON ConsensusBlocksGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusBlocksGetRequest -> Value Source #

toEncoding :: ConsensusBlocksGetRequest -> Encoding Source #

toJSONList :: [ConsensusBlocksGetRequest] -> Value Source #

toEncodingList :: [ConsensusBlocksGetRequest] -> Encoding Source #

FromJSON ConsensusBlocksGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusBlocksGetRequest Source #

parseJSONList :: Value -> Parser [ConsensusBlocksGetRequest] Source #

NFData ConsensusBlocksGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusBlocksGetRequest -> () Source #

ToJSONPB ConsensusBlocksGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusBlocksGetRequest -> Options -> Value Source #

toEncodingPB :: ConsensusBlocksGetRequest -> Options -> Encoding Source #

FromJSONPB ConsensusBlocksGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusBlocksGetRequest Source #

HasDefault ConsensusBlocksGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusBlocksGetRequest Source #

isDefault :: ConsensusBlocksGetRequest -> Bool Source #

Named ConsensusBlocksGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusBlocksGetRequest -> string Source #

Message ConsensusBlocksGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusBlocksGetRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusBlocksGetRequest Source #

dotProto :: Proxy# ConsensusBlocksGetRequest -> [DotProtoField] Source #

ToSchema ConsensusBlocksGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusBlocksGetRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusBlocksGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusBlocksGetRequest = D1 ('MetaData "ConsensusBlocksGetRequest" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'True) (C1 ('MetaCons "ConsensusBlocksGetRequest" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusBlocksGetRequestBlockIds") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector ByteString))))

data ConsensusBlocksGetResponse Source #

Constructors

ConsensusBlocksGetResponse 

Fields

Instances

Instances details
Eq ConsensusBlocksGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusBlocksGetResponse -> ConsensusBlocksGetResponse -> Bool Source #

(/=) :: ConsensusBlocksGetResponse -> ConsensusBlocksGetResponse -> Bool Source #

Ord ConsensusBlocksGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusBlocksGetResponse -> ConsensusBlocksGetResponse -> Ordering Source #

(<) :: ConsensusBlocksGetResponse -> ConsensusBlocksGetResponse -> Bool Source #

(<=) :: ConsensusBlocksGetResponse -> ConsensusBlocksGetResponse -> Bool Source #

(>) :: ConsensusBlocksGetResponse -> ConsensusBlocksGetResponse -> Bool Source #

(>=) :: ConsensusBlocksGetResponse -> ConsensusBlocksGetResponse -> Bool Source #

max :: ConsensusBlocksGetResponse -> ConsensusBlocksGetResponse -> ConsensusBlocksGetResponse Source #

min :: ConsensusBlocksGetResponse -> ConsensusBlocksGetResponse -> ConsensusBlocksGetResponse Source #

Show ConsensusBlocksGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusBlocksGetResponse -> ShowS Source #

show :: ConsensusBlocksGetResponse -> String Source #

showList :: [ConsensusBlocksGetResponse] -> ShowS Source #

Generic ConsensusBlocksGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusBlocksGetResponse :: Type -> Type Source #

Methods

from :: ConsensusBlocksGetResponse -> Rep ConsensusBlocksGetResponse x Source #

to :: Rep ConsensusBlocksGetResponse x -> ConsensusBlocksGetResponse Source #

ToJSON ConsensusBlocksGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusBlocksGetResponse -> Value Source #

toEncoding :: ConsensusBlocksGetResponse -> Encoding Source #

toJSONList :: [ConsensusBlocksGetResponse] -> Value Source #

toEncodingList :: [ConsensusBlocksGetResponse] -> Encoding Source #

FromJSON ConsensusBlocksGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusBlocksGetResponse Source #

parseJSONList :: Value -> Parser [ConsensusBlocksGetResponse] Source #

NFData ConsensusBlocksGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusBlocksGetResponse -> () Source #

ToJSONPB ConsensusBlocksGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusBlocksGetResponse -> Options -> Value Source #

toEncodingPB :: ConsensusBlocksGetResponse -> Options -> Encoding Source #

FromJSONPB ConsensusBlocksGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusBlocksGetResponse Source #

HasDefault ConsensusBlocksGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusBlocksGetResponse Source #

isDefault :: ConsensusBlocksGetResponse -> Bool Source #

Named ConsensusBlocksGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusBlocksGetResponse -> string Source #

Message ConsensusBlocksGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusBlocksGetResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusBlocksGetResponse Source #

dotProto :: Proxy# ConsensusBlocksGetResponse -> [DotProtoField] Source #

ToSchema ConsensusBlocksGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusBlocksGetResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusBlocksGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusBlocksGetResponse = D1 ('MetaData "ConsensusBlocksGetResponse" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "ConsensusBlocksGetResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusBlocksGetResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated ConsensusBlocksGetResponse_Status)) :*: S1 ('MetaSel ('Just "consensusBlocksGetResponseBlocks") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector ConsensusBlock))))

data ConsensusBlocksGetResponse_Status Source #

Constructors

ConsensusBlocksGetResponse_StatusSTATUS_UNSET 
ConsensusBlocksGetResponse_StatusOK 
ConsensusBlocksGetResponse_StatusBAD_REQUEST 
ConsensusBlocksGetResponse_StatusSERVICE_ERROR 
ConsensusBlocksGetResponse_StatusNOT_READY 
ConsensusBlocksGetResponse_StatusUNKNOWN_BLOCK 
ConsensusBlocksGetResponse_StatusNOT_ACTIVE_ENGINE 

Instances

Instances details
Bounded ConsensusBlocksGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

minBound :: ConsensusBlocksGetResponse_Status Source #

maxBound :: ConsensusBlocksGetResponse_Status Source #

Eq ConsensusBlocksGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusBlocksGetResponse_Status -> ConsensusBlocksGetResponse_Status -> Bool Source #

(/=) :: ConsensusBlocksGetResponse_Status -> ConsensusBlocksGetResponse_Status -> Bool Source #

Ord ConsensusBlocksGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusBlocksGetResponse_Status -> ConsensusBlocksGetResponse_Status -> Ordering Source #

(<) :: ConsensusBlocksGetResponse_Status -> ConsensusBlocksGetResponse_Status -> Bool Source #

(<=) :: ConsensusBlocksGetResponse_Status -> ConsensusBlocksGetResponse_Status -> Bool Source #

(>) :: ConsensusBlocksGetResponse_Status -> ConsensusBlocksGetResponse_Status -> Bool Source #

(>=) :: ConsensusBlocksGetResponse_Status -> ConsensusBlocksGetResponse_Status -> Bool Source #

max :: ConsensusBlocksGetResponse_Status -> ConsensusBlocksGetResponse_Status -> ConsensusBlocksGetResponse_Status Source #

min :: ConsensusBlocksGetResponse_Status -> ConsensusBlocksGetResponse_Status -> ConsensusBlocksGetResponse_Status Source #

Show ConsensusBlocksGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusBlocksGetResponse_Status -> ShowS Source #

show :: ConsensusBlocksGetResponse_Status -> String Source #

showList :: [ConsensusBlocksGetResponse_Status] -> ShowS Source #

Generic ConsensusBlocksGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusBlocksGetResponse_Status :: Type -> Type Source #

Methods

from :: ConsensusBlocksGetResponse_Status -> Rep ConsensusBlocksGetResponse_Status x Source #

to :: Rep ConsensusBlocksGetResponse_Status x -> ConsensusBlocksGetResponse_Status Source #

ToJSON ConsensusBlocksGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusBlocksGetResponse_Status -> Value Source #

toEncoding :: ConsensusBlocksGetResponse_Status -> Encoding Source #

toJSONList :: [ConsensusBlocksGetResponse_Status] -> Value Source #

toEncodingList :: [ConsensusBlocksGetResponse_Status] -> Encoding Source #

FromJSON ConsensusBlocksGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusBlocksGetResponse_Status Source #

parseJSONList :: Value -> Parser [ConsensusBlocksGetResponse_Status] Source #

NFData ConsensusBlocksGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusBlocksGetResponse_Status -> () Source #

ProtoEnum ConsensusBlocksGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toProtoEnumMay :: Int32 -> Maybe ConsensusBlocksGetResponse_Status Source #

fromProtoEnum :: ConsensusBlocksGetResponse_Status -> Int32 Source #

ToJSONPB ConsensusBlocksGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusBlocksGetResponse_Status -> Options -> Value Source #

toEncodingPB :: ConsensusBlocksGetResponse_Status -> Options -> Encoding Source #

FromJSONPB ConsensusBlocksGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusBlocksGetResponse_Status Source #

HasDefault ConsensusBlocksGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusBlocksGetResponse_Status Source #

isDefault :: ConsensusBlocksGetResponse_Status -> Bool Source #

Named ConsensusBlocksGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusBlocksGetResponse_Status -> string Source #

Finite ConsensusBlocksGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

enumerate :: IsString string => Proxy# ConsensusBlocksGetResponse_Status -> [(string, Int32)] Source #

type Rep ConsensusBlocksGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusBlocksGetResponse_Status = D1 ('MetaData "ConsensusBlocksGetResponse_Status" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) ((C1 ('MetaCons "ConsensusBlocksGetResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "ConsensusBlocksGetResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusBlocksGetResponse_StatusBAD_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "ConsensusBlocksGetResponse_StatusSERVICE_ERROR" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusBlocksGetResponse_StatusNOT_READY" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ConsensusBlocksGetResponse_StatusUNKNOWN_BLOCK" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusBlocksGetResponse_StatusNOT_ACTIVE_ENGINE" 'PrefixI 'False) (U1 :: Type -> Type))))

data ConsensusChainHeadGetRequest Source #

Constructors

ConsensusChainHeadGetRequest 

Instances

Instances details
Eq ConsensusChainHeadGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusChainHeadGetRequest -> ConsensusChainHeadGetRequest -> Bool Source #

(/=) :: ConsensusChainHeadGetRequest -> ConsensusChainHeadGetRequest -> Bool Source #

Ord ConsensusChainHeadGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusChainHeadGetRequest -> ConsensusChainHeadGetRequest -> Ordering Source #

(<) :: ConsensusChainHeadGetRequest -> ConsensusChainHeadGetRequest -> Bool Source #

(<=) :: ConsensusChainHeadGetRequest -> ConsensusChainHeadGetRequest -> Bool Source #

(>) :: ConsensusChainHeadGetRequest -> ConsensusChainHeadGetRequest -> Bool Source #

(>=) :: ConsensusChainHeadGetRequest -> ConsensusChainHeadGetRequest -> Bool Source #

max :: ConsensusChainHeadGetRequest -> ConsensusChainHeadGetRequest -> ConsensusChainHeadGetRequest Source #

min :: ConsensusChainHeadGetRequest -> ConsensusChainHeadGetRequest -> ConsensusChainHeadGetRequest Source #

Show ConsensusChainHeadGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusChainHeadGetRequest -> ShowS Source #

show :: ConsensusChainHeadGetRequest -> String Source #

showList :: [ConsensusChainHeadGetRequest] -> ShowS Source #

Generic ConsensusChainHeadGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusChainHeadGetRequest :: Type -> Type Source #

Methods

from :: ConsensusChainHeadGetRequest -> Rep ConsensusChainHeadGetRequest x Source #

to :: Rep ConsensusChainHeadGetRequest x -> ConsensusChainHeadGetRequest Source #

ToJSON ConsensusChainHeadGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusChainHeadGetRequest -> Value Source #

toEncoding :: ConsensusChainHeadGetRequest -> Encoding Source #

toJSONList :: [ConsensusChainHeadGetRequest] -> Value Source #

toEncodingList :: [ConsensusChainHeadGetRequest] -> Encoding Source #

FromJSON ConsensusChainHeadGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusChainHeadGetRequest Source #

parseJSONList :: Value -> Parser [ConsensusChainHeadGetRequest] Source #

NFData ConsensusChainHeadGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusChainHeadGetRequest -> () Source #

ToJSONPB ConsensusChainHeadGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusChainHeadGetRequest -> Options -> Value Source #

toEncodingPB :: ConsensusChainHeadGetRequest -> Options -> Encoding Source #

FromJSONPB ConsensusChainHeadGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusChainHeadGetRequest Source #

HasDefault ConsensusChainHeadGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusChainHeadGetRequest Source #

isDefault :: ConsensusChainHeadGetRequest -> Bool Source #

Named ConsensusChainHeadGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusChainHeadGetRequest -> string Source #

Message ConsensusChainHeadGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusChainHeadGetRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusChainHeadGetRequest Source #

dotProto :: Proxy# ConsensusChainHeadGetRequest -> [DotProtoField] Source #

ToSchema ConsensusChainHeadGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusChainHeadGetRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusChainHeadGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusChainHeadGetRequest = D1 ('MetaData "ConsensusChainHeadGetRequest" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "ConsensusChainHeadGetRequest" 'PrefixI 'False) (U1 :: Type -> Type))

data ConsensusChainHeadGetResponse Source #

Constructors

ConsensusChainHeadGetResponse 

Fields

Instances

Instances details
Eq ConsensusChainHeadGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusChainHeadGetResponse -> ConsensusChainHeadGetResponse -> Bool Source #

(/=) :: ConsensusChainHeadGetResponse -> ConsensusChainHeadGetResponse -> Bool Source #

Ord ConsensusChainHeadGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusChainHeadGetResponse -> ConsensusChainHeadGetResponse -> Ordering Source #

(<) :: ConsensusChainHeadGetResponse -> ConsensusChainHeadGetResponse -> Bool Source #

(<=) :: ConsensusChainHeadGetResponse -> ConsensusChainHeadGetResponse -> Bool Source #

(>) :: ConsensusChainHeadGetResponse -> ConsensusChainHeadGetResponse -> Bool Source #

(>=) :: ConsensusChainHeadGetResponse -> ConsensusChainHeadGetResponse -> Bool Source #

max :: ConsensusChainHeadGetResponse -> ConsensusChainHeadGetResponse -> ConsensusChainHeadGetResponse Source #

min :: ConsensusChainHeadGetResponse -> ConsensusChainHeadGetResponse -> ConsensusChainHeadGetResponse Source #

Show ConsensusChainHeadGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusChainHeadGetResponse -> ShowS Source #

show :: ConsensusChainHeadGetResponse -> String Source #

showList :: [ConsensusChainHeadGetResponse] -> ShowS Source #

Generic ConsensusChainHeadGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusChainHeadGetResponse :: Type -> Type Source #

Methods

from :: ConsensusChainHeadGetResponse -> Rep ConsensusChainHeadGetResponse x Source #

to :: Rep ConsensusChainHeadGetResponse x -> ConsensusChainHeadGetResponse Source #

ToJSON ConsensusChainHeadGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusChainHeadGetResponse -> Value Source #

toEncoding :: ConsensusChainHeadGetResponse -> Encoding Source #

toJSONList :: [ConsensusChainHeadGetResponse] -> Value Source #

toEncodingList :: [ConsensusChainHeadGetResponse] -> Encoding Source #

FromJSON ConsensusChainHeadGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusChainHeadGetResponse Source #

parseJSONList :: Value -> Parser [ConsensusChainHeadGetResponse] Source #

NFData ConsensusChainHeadGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusChainHeadGetResponse -> () Source #

ToJSONPB ConsensusChainHeadGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusChainHeadGetResponse -> Options -> Value Source #

toEncodingPB :: ConsensusChainHeadGetResponse -> Options -> Encoding Source #

FromJSONPB ConsensusChainHeadGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusChainHeadGetResponse Source #

HasDefault ConsensusChainHeadGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusChainHeadGetResponse Source #

isDefault :: ConsensusChainHeadGetResponse -> Bool Source #

Named ConsensusChainHeadGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusChainHeadGetResponse -> string Source #

Message ConsensusChainHeadGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusChainHeadGetResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusChainHeadGetResponse Source #

dotProto :: Proxy# ConsensusChainHeadGetResponse -> [DotProtoField] Source #

ToSchema ConsensusChainHeadGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusChainHeadGetResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusChainHeadGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusChainHeadGetResponse = D1 ('MetaData "ConsensusChainHeadGetResponse" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "ConsensusChainHeadGetResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusChainHeadGetResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated ConsensusChainHeadGetResponse_Status)) :*: S1 ('MetaSel ('Just "consensusChainHeadGetResponseBlock") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe ConsensusBlock))))

data ConsensusChainHeadGetResponse_Status Source #

Constructors

ConsensusChainHeadGetResponse_StatusSTATUS_UNSET 
ConsensusChainHeadGetResponse_StatusOK 
ConsensusChainHeadGetResponse_StatusBAD_REQUEST 
ConsensusChainHeadGetResponse_StatusSERVICE_ERROR 
ConsensusChainHeadGetResponse_StatusNOT_READY 
ConsensusChainHeadGetResponse_StatusNO_CHAIN_HEAD 
ConsensusChainHeadGetResponse_StatusNOT_ACTIVE_ENGINE 

Instances

Instances details
Bounded ConsensusChainHeadGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

minBound :: ConsensusChainHeadGetResponse_Status Source #

maxBound :: ConsensusChainHeadGetResponse_Status Source #

Eq ConsensusChainHeadGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusChainHeadGetResponse_Status -> ConsensusChainHeadGetResponse_Status -> Bool Source #

(/=) :: ConsensusChainHeadGetResponse_Status -> ConsensusChainHeadGetResponse_Status -> Bool Source #

Ord ConsensusChainHeadGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusChainHeadGetResponse_Status -> ConsensusChainHeadGetResponse_Status -> Ordering Source #

(<) :: ConsensusChainHeadGetResponse_Status -> ConsensusChainHeadGetResponse_Status -> Bool Source #

(<=) :: ConsensusChainHeadGetResponse_Status -> ConsensusChainHeadGetResponse_Status -> Bool Source #

(>) :: ConsensusChainHeadGetResponse_Status -> ConsensusChainHeadGetResponse_Status -> Bool Source #

(>=) :: ConsensusChainHeadGetResponse_Status -> ConsensusChainHeadGetResponse_Status -> Bool Source #

max :: ConsensusChainHeadGetResponse_Status -> ConsensusChainHeadGetResponse_Status -> ConsensusChainHeadGetResponse_Status Source #

min :: ConsensusChainHeadGetResponse_Status -> ConsensusChainHeadGetResponse_Status -> ConsensusChainHeadGetResponse_Status Source #

Show ConsensusChainHeadGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusChainHeadGetResponse_Status -> ShowS Source #

show :: ConsensusChainHeadGetResponse_Status -> String Source #

showList :: [ConsensusChainHeadGetResponse_Status] -> ShowS Source #

Generic ConsensusChainHeadGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusChainHeadGetResponse_Status :: Type -> Type Source #

Methods

from :: ConsensusChainHeadGetResponse_Status -> Rep ConsensusChainHeadGetResponse_Status x Source #

to :: Rep ConsensusChainHeadGetResponse_Status x -> ConsensusChainHeadGetResponse_Status Source #

ToJSON ConsensusChainHeadGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusChainHeadGetResponse_Status -> Value Source #

toEncoding :: ConsensusChainHeadGetResponse_Status -> Encoding Source #

toJSONList :: [ConsensusChainHeadGetResponse_Status] -> Value Source #

toEncodingList :: [ConsensusChainHeadGetResponse_Status] -> Encoding Source #

FromJSON ConsensusChainHeadGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusChainHeadGetResponse_Status Source #

parseJSONList :: Value -> Parser [ConsensusChainHeadGetResponse_Status] Source #

NFData ConsensusChainHeadGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusChainHeadGetResponse_Status -> () Source #

ProtoEnum ConsensusChainHeadGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toProtoEnumMay :: Int32 -> Maybe ConsensusChainHeadGetResponse_Status Source #

fromProtoEnum :: ConsensusChainHeadGetResponse_Status -> Int32 Source #

ToJSONPB ConsensusChainHeadGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusChainHeadGetResponse_Status -> Options -> Value Source #

toEncodingPB :: ConsensusChainHeadGetResponse_Status -> Options -> Encoding Source #

FromJSONPB ConsensusChainHeadGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusChainHeadGetResponse_Status Source #

HasDefault ConsensusChainHeadGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusChainHeadGetResponse_Status Source #

isDefault :: ConsensusChainHeadGetResponse_Status -> Bool Source #

Named ConsensusChainHeadGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusChainHeadGetResponse_Status -> string Source #

Finite ConsensusChainHeadGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

enumerate :: IsString string => Proxy# ConsensusChainHeadGetResponse_Status -> [(string, Int32)] Source #

type Rep ConsensusChainHeadGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusChainHeadGetResponse_Status = D1 ('MetaData "ConsensusChainHeadGetResponse_Status" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) ((C1 ('MetaCons "ConsensusChainHeadGetResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "ConsensusChainHeadGetResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusChainHeadGetResponse_StatusBAD_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "ConsensusChainHeadGetResponse_StatusSERVICE_ERROR" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusChainHeadGetResponse_StatusNOT_READY" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ConsensusChainHeadGetResponse_StatusNO_CHAIN_HEAD" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusChainHeadGetResponse_StatusNOT_ACTIVE_ENGINE" 'PrefixI 'False) (U1 :: Type -> Type))))

data ConsensusSettingsGetRequest Source #

Constructors

ConsensusSettingsGetRequest 

Fields

Instances

Instances details
Eq ConsensusSettingsGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusSettingsGetRequest -> ConsensusSettingsGetRequest -> Bool Source #

(/=) :: ConsensusSettingsGetRequest -> ConsensusSettingsGetRequest -> Bool Source #

Ord ConsensusSettingsGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusSettingsGetRequest -> ConsensusSettingsGetRequest -> Ordering Source #

(<) :: ConsensusSettingsGetRequest -> ConsensusSettingsGetRequest -> Bool Source #

(<=) :: ConsensusSettingsGetRequest -> ConsensusSettingsGetRequest -> Bool Source #

(>) :: ConsensusSettingsGetRequest -> ConsensusSettingsGetRequest -> Bool Source #

(>=) :: ConsensusSettingsGetRequest -> ConsensusSettingsGetRequest -> Bool Source #

max :: ConsensusSettingsGetRequest -> ConsensusSettingsGetRequest -> ConsensusSettingsGetRequest Source #

min :: ConsensusSettingsGetRequest -> ConsensusSettingsGetRequest -> ConsensusSettingsGetRequest Source #

Show ConsensusSettingsGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusSettingsGetRequest -> ShowS Source #

show :: ConsensusSettingsGetRequest -> String Source #

showList :: [ConsensusSettingsGetRequest] -> ShowS Source #

Generic ConsensusSettingsGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusSettingsGetRequest :: Type -> Type Source #

Methods

from :: ConsensusSettingsGetRequest -> Rep ConsensusSettingsGetRequest x Source #

to :: Rep ConsensusSettingsGetRequest x -> ConsensusSettingsGetRequest Source #

ToJSON ConsensusSettingsGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusSettingsGetRequest -> Value Source #

toEncoding :: ConsensusSettingsGetRequest -> Encoding Source #

toJSONList :: [ConsensusSettingsGetRequest] -> Value Source #

toEncodingList :: [ConsensusSettingsGetRequest] -> Encoding Source #

FromJSON ConsensusSettingsGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusSettingsGetRequest Source #

parseJSONList :: Value -> Parser [ConsensusSettingsGetRequest] Source #

NFData ConsensusSettingsGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusSettingsGetRequest -> () Source #

ToJSONPB ConsensusSettingsGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusSettingsGetRequest -> Options -> Value Source #

toEncodingPB :: ConsensusSettingsGetRequest -> Options -> Encoding Source #

FromJSONPB ConsensusSettingsGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusSettingsGetRequest Source #

HasDefault ConsensusSettingsGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusSettingsGetRequest Source #

isDefault :: ConsensusSettingsGetRequest -> Bool Source #

Named ConsensusSettingsGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusSettingsGetRequest -> string Source #

Message ConsensusSettingsGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusSettingsGetRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusSettingsGetRequest Source #

dotProto :: Proxy# ConsensusSettingsGetRequest -> [DotProtoField] Source #

ToSchema ConsensusSettingsGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusSettingsGetRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusSettingsGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusSettingsGetRequest = D1 ('MetaData "ConsensusSettingsGetRequest" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "ConsensusSettingsGetRequest" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusSettingsGetRequestBlockId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString) :*: S1 ('MetaSel ('Just "consensusSettingsGetRequestKeys") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Text))))

data ConsensusSettingsGetResponse Source #

Constructors

ConsensusSettingsGetResponse 

Fields

Instances

Instances details
Eq ConsensusSettingsGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusSettingsGetResponse -> ConsensusSettingsGetResponse -> Bool Source #

(/=) :: ConsensusSettingsGetResponse -> ConsensusSettingsGetResponse -> Bool Source #

Ord ConsensusSettingsGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusSettingsGetResponse -> ConsensusSettingsGetResponse -> Ordering Source #

(<) :: ConsensusSettingsGetResponse -> ConsensusSettingsGetResponse -> Bool Source #

(<=) :: ConsensusSettingsGetResponse -> ConsensusSettingsGetResponse -> Bool Source #

(>) :: ConsensusSettingsGetResponse -> ConsensusSettingsGetResponse -> Bool Source #

(>=) :: ConsensusSettingsGetResponse -> ConsensusSettingsGetResponse -> Bool Source #

max :: ConsensusSettingsGetResponse -> ConsensusSettingsGetResponse -> ConsensusSettingsGetResponse Source #

min :: ConsensusSettingsGetResponse -> ConsensusSettingsGetResponse -> ConsensusSettingsGetResponse Source #

Show ConsensusSettingsGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusSettingsGetResponse -> ShowS Source #

show :: ConsensusSettingsGetResponse -> String Source #

showList :: [ConsensusSettingsGetResponse] -> ShowS Source #

Generic ConsensusSettingsGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusSettingsGetResponse :: Type -> Type Source #

Methods

from :: ConsensusSettingsGetResponse -> Rep ConsensusSettingsGetResponse x Source #

to :: Rep ConsensusSettingsGetResponse x -> ConsensusSettingsGetResponse Source #

ToJSON ConsensusSettingsGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusSettingsGetResponse -> Value Source #

toEncoding :: ConsensusSettingsGetResponse -> Encoding Source #

toJSONList :: [ConsensusSettingsGetResponse] -> Value Source #

toEncodingList :: [ConsensusSettingsGetResponse] -> Encoding Source #

FromJSON ConsensusSettingsGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusSettingsGetResponse Source #

parseJSONList :: Value -> Parser [ConsensusSettingsGetResponse] Source #

NFData ConsensusSettingsGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusSettingsGetResponse -> () Source #

ToJSONPB ConsensusSettingsGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusSettingsGetResponse -> Options -> Value Source #

toEncodingPB :: ConsensusSettingsGetResponse -> Options -> Encoding Source #

FromJSONPB ConsensusSettingsGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusSettingsGetResponse Source #

HasDefault ConsensusSettingsGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusSettingsGetResponse Source #

isDefault :: ConsensusSettingsGetResponse -> Bool Source #

Named ConsensusSettingsGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusSettingsGetResponse -> string Source #

Message ConsensusSettingsGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusSettingsGetResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusSettingsGetResponse Source #

dotProto :: Proxy# ConsensusSettingsGetResponse -> [DotProtoField] Source #

ToSchema ConsensusSettingsGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusSettingsGetResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusSettingsGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusSettingsGetResponse = D1 ('MetaData "ConsensusSettingsGetResponse" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "ConsensusSettingsGetResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusSettingsGetResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated ConsensusSettingsGetResponse_Status)) :*: S1 ('MetaSel ('Just "consensusSettingsGetResponseEntries") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector ConsensusSettingsEntry))))

data ConsensusSettingsGetResponse_Status Source #

Constructors

ConsensusSettingsGetResponse_StatusSTATUS_UNSET 
ConsensusSettingsGetResponse_StatusOK 
ConsensusSettingsGetResponse_StatusBAD_REQUEST 
ConsensusSettingsGetResponse_StatusSERVICE_ERROR 
ConsensusSettingsGetResponse_StatusNOT_READY 
ConsensusSettingsGetResponse_StatusUNKNOWN_BLOCK 
ConsensusSettingsGetResponse_StatusNOT_ACTIVE_ENGINE 

Instances

Instances details
Bounded ConsensusSettingsGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

minBound :: ConsensusSettingsGetResponse_Status Source #

maxBound :: ConsensusSettingsGetResponse_Status Source #

Eq ConsensusSettingsGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusSettingsGetResponse_Status -> ConsensusSettingsGetResponse_Status -> Bool Source #

(/=) :: ConsensusSettingsGetResponse_Status -> ConsensusSettingsGetResponse_Status -> Bool Source #

Ord ConsensusSettingsGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusSettingsGetResponse_Status -> ConsensusSettingsGetResponse_Status -> Ordering Source #

(<) :: ConsensusSettingsGetResponse_Status -> ConsensusSettingsGetResponse_Status -> Bool Source #

(<=) :: ConsensusSettingsGetResponse_Status -> ConsensusSettingsGetResponse_Status -> Bool Source #

(>) :: ConsensusSettingsGetResponse_Status -> ConsensusSettingsGetResponse_Status -> Bool Source #

(>=) :: ConsensusSettingsGetResponse_Status -> ConsensusSettingsGetResponse_Status -> Bool Source #

max :: ConsensusSettingsGetResponse_Status -> ConsensusSettingsGetResponse_Status -> ConsensusSettingsGetResponse_Status Source #

min :: ConsensusSettingsGetResponse_Status -> ConsensusSettingsGetResponse_Status -> ConsensusSettingsGetResponse_Status Source #

Show ConsensusSettingsGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusSettingsGetResponse_Status -> ShowS Source #

show :: ConsensusSettingsGetResponse_Status -> String Source #

showList :: [ConsensusSettingsGetResponse_Status] -> ShowS Source #

Generic ConsensusSettingsGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusSettingsGetResponse_Status :: Type -> Type Source #

Methods

from :: ConsensusSettingsGetResponse_Status -> Rep ConsensusSettingsGetResponse_Status x Source #

to :: Rep ConsensusSettingsGetResponse_Status x -> ConsensusSettingsGetResponse_Status Source #

ToJSON ConsensusSettingsGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusSettingsGetResponse_Status -> Value Source #

toEncoding :: ConsensusSettingsGetResponse_Status -> Encoding Source #

toJSONList :: [ConsensusSettingsGetResponse_Status] -> Value Source #

toEncodingList :: [ConsensusSettingsGetResponse_Status] -> Encoding Source #

FromJSON ConsensusSettingsGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusSettingsGetResponse_Status Source #

parseJSONList :: Value -> Parser [ConsensusSettingsGetResponse_Status] Source #

NFData ConsensusSettingsGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusSettingsGetResponse_Status -> () Source #

ProtoEnum ConsensusSettingsGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toProtoEnumMay :: Int32 -> Maybe ConsensusSettingsGetResponse_Status Source #

fromProtoEnum :: ConsensusSettingsGetResponse_Status -> Int32 Source #

ToJSONPB ConsensusSettingsGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusSettingsGetResponse_Status -> Options -> Value Source #

toEncodingPB :: ConsensusSettingsGetResponse_Status -> Options -> Encoding Source #

FromJSONPB ConsensusSettingsGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusSettingsGetResponse_Status Source #

HasDefault ConsensusSettingsGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusSettingsGetResponse_Status Source #

isDefault :: ConsensusSettingsGetResponse_Status -> Bool Source #

Named ConsensusSettingsGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusSettingsGetResponse_Status -> string Source #

Finite ConsensusSettingsGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

enumerate :: IsString string => Proxy# ConsensusSettingsGetResponse_Status -> [(string, Int32)] Source #

type Rep ConsensusSettingsGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusSettingsGetResponse_Status = D1 ('MetaData "ConsensusSettingsGetResponse_Status" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) ((C1 ('MetaCons "ConsensusSettingsGetResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "ConsensusSettingsGetResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusSettingsGetResponse_StatusBAD_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "ConsensusSettingsGetResponse_StatusSERVICE_ERROR" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusSettingsGetResponse_StatusNOT_READY" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ConsensusSettingsGetResponse_StatusUNKNOWN_BLOCK" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusSettingsGetResponse_StatusNOT_ACTIVE_ENGINE" 'PrefixI 'False) (U1 :: Type -> Type))))

data ConsensusStateGetRequest Source #

Constructors

ConsensusStateGetRequest 

Fields

Instances

Instances details
Eq ConsensusStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusStateGetRequest -> ConsensusStateGetRequest -> Bool Source #

(/=) :: ConsensusStateGetRequest -> ConsensusStateGetRequest -> Bool Source #

Ord ConsensusStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusStateGetRequest -> ConsensusStateGetRequest -> Ordering Source #

(<) :: ConsensusStateGetRequest -> ConsensusStateGetRequest -> Bool Source #

(<=) :: ConsensusStateGetRequest -> ConsensusStateGetRequest -> Bool Source #

(>) :: ConsensusStateGetRequest -> ConsensusStateGetRequest -> Bool Source #

(>=) :: ConsensusStateGetRequest -> ConsensusStateGetRequest -> Bool Source #

max :: ConsensusStateGetRequest -> ConsensusStateGetRequest -> ConsensusStateGetRequest Source #

min :: ConsensusStateGetRequest -> ConsensusStateGetRequest -> ConsensusStateGetRequest Source #

Show ConsensusStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusStateGetRequest -> ShowS Source #

show :: ConsensusStateGetRequest -> String Source #

showList :: [ConsensusStateGetRequest] -> ShowS Source #

Generic ConsensusStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusStateGetRequest :: Type -> Type Source #

Methods

from :: ConsensusStateGetRequest -> Rep ConsensusStateGetRequest x Source #

to :: Rep ConsensusStateGetRequest x -> ConsensusStateGetRequest Source #

ToJSON ConsensusStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusStateGetRequest -> Value Source #

toEncoding :: ConsensusStateGetRequest -> Encoding Source #

toJSONList :: [ConsensusStateGetRequest] -> Value Source #

toEncodingList :: [ConsensusStateGetRequest] -> Encoding Source #

FromJSON ConsensusStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusStateGetRequest Source #

parseJSONList :: Value -> Parser [ConsensusStateGetRequest] Source #

NFData ConsensusStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusStateGetRequest -> () Source #

ToJSONPB ConsensusStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusStateGetRequest -> Options -> Value Source #

toEncodingPB :: ConsensusStateGetRequest -> Options -> Encoding Source #

FromJSONPB ConsensusStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusStateGetRequest Source #

HasDefault ConsensusStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusStateGetRequest Source #

isDefault :: ConsensusStateGetRequest -> Bool Source #

Named ConsensusStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusStateGetRequest -> string Source #

Message ConsensusStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusStateGetRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusStateGetRequest Source #

dotProto :: Proxy# ConsensusStateGetRequest -> [DotProtoField] Source #

ToSchema ConsensusStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusStateGetRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusStateGetRequest = D1 ('MetaData "ConsensusStateGetRequest" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "ConsensusStateGetRequest" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusStateGetRequestBlockId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString) :*: S1 ('MetaSel ('Just "consensusStateGetRequestAddresses") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Text))))

data ConsensusStateGetResponse Source #

Constructors

ConsensusStateGetResponse 

Fields

Instances

Instances details
Eq ConsensusStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusStateGetResponse -> ConsensusStateGetResponse -> Bool Source #

(/=) :: ConsensusStateGetResponse -> ConsensusStateGetResponse -> Bool Source #

Ord ConsensusStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusStateGetResponse -> ConsensusStateGetResponse -> Ordering Source #

(<) :: ConsensusStateGetResponse -> ConsensusStateGetResponse -> Bool Source #

(<=) :: ConsensusStateGetResponse -> ConsensusStateGetResponse -> Bool Source #

(>) :: ConsensusStateGetResponse -> ConsensusStateGetResponse -> Bool Source #

(>=) :: ConsensusStateGetResponse -> ConsensusStateGetResponse -> Bool Source #

max :: ConsensusStateGetResponse -> ConsensusStateGetResponse -> ConsensusStateGetResponse Source #

min :: ConsensusStateGetResponse -> ConsensusStateGetResponse -> ConsensusStateGetResponse Source #

Show ConsensusStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusStateGetResponse -> ShowS Source #

show :: ConsensusStateGetResponse -> String Source #

showList :: [ConsensusStateGetResponse] -> ShowS Source #

Generic ConsensusStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusStateGetResponse :: Type -> Type Source #

Methods

from :: ConsensusStateGetResponse -> Rep ConsensusStateGetResponse x Source #

to :: Rep ConsensusStateGetResponse x -> ConsensusStateGetResponse Source #

ToJSON ConsensusStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusStateGetResponse -> Value Source #

toEncoding :: ConsensusStateGetResponse -> Encoding Source #

toJSONList :: [ConsensusStateGetResponse] -> Value Source #

toEncodingList :: [ConsensusStateGetResponse] -> Encoding Source #

FromJSON ConsensusStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusStateGetResponse Source #

parseJSONList :: Value -> Parser [ConsensusStateGetResponse] Source #

NFData ConsensusStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusStateGetResponse -> () Source #

ToJSONPB ConsensusStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusStateGetResponse -> Options -> Value Source #

toEncodingPB :: ConsensusStateGetResponse -> Options -> Encoding Source #

FromJSONPB ConsensusStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusStateGetResponse Source #

HasDefault ConsensusStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusStateGetResponse Source #

isDefault :: ConsensusStateGetResponse -> Bool Source #

Named ConsensusStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusStateGetResponse -> string Source #

Message ConsensusStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusStateGetResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusStateGetResponse Source #

dotProto :: Proxy# ConsensusStateGetResponse -> [DotProtoField] Source #

ToSchema ConsensusStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusStateGetResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusStateGetResponse = D1 ('MetaData "ConsensusStateGetResponse" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "ConsensusStateGetResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusStateGetResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated ConsensusStateGetResponse_Status)) :*: S1 ('MetaSel ('Just "consensusStateGetResponseEntries") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector ConsensusStateEntry))))

data ConsensusStateGetResponse_Status Source #

Constructors

ConsensusStateGetResponse_StatusSTATUS_UNSET 
ConsensusStateGetResponse_StatusOK 
ConsensusStateGetResponse_StatusBAD_REQUEST 
ConsensusStateGetResponse_StatusSERVICE_ERROR 
ConsensusStateGetResponse_StatusNOT_READY 
ConsensusStateGetResponse_StatusUNKNOWN_BLOCK 
ConsensusStateGetResponse_StatusNOT_ACTIVE_ENGINE 

Instances

Instances details
Bounded ConsensusStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

minBound :: ConsensusStateGetResponse_Status Source #

maxBound :: ConsensusStateGetResponse_Status Source #

Eq ConsensusStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusStateGetResponse_Status -> ConsensusStateGetResponse_Status -> Bool Source #

(/=) :: ConsensusStateGetResponse_Status -> ConsensusStateGetResponse_Status -> Bool Source #

Ord ConsensusStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusStateGetResponse_Status -> ConsensusStateGetResponse_Status -> Ordering Source #

(<) :: ConsensusStateGetResponse_Status -> ConsensusStateGetResponse_Status -> Bool Source #

(<=) :: ConsensusStateGetResponse_Status -> ConsensusStateGetResponse_Status -> Bool Source #

(>) :: ConsensusStateGetResponse_Status -> ConsensusStateGetResponse_Status -> Bool Source #

(>=) :: ConsensusStateGetResponse_Status -> ConsensusStateGetResponse_Status -> Bool Source #

max :: ConsensusStateGetResponse_Status -> ConsensusStateGetResponse_Status -> ConsensusStateGetResponse_Status Source #

min :: ConsensusStateGetResponse_Status -> ConsensusStateGetResponse_Status -> ConsensusStateGetResponse_Status Source #

Show ConsensusStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusStateGetResponse_Status -> ShowS Source #

show :: ConsensusStateGetResponse_Status -> String Source #

showList :: [ConsensusStateGetResponse_Status] -> ShowS Source #

Generic ConsensusStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusStateGetResponse_Status :: Type -> Type Source #

Methods

from :: ConsensusStateGetResponse_Status -> Rep ConsensusStateGetResponse_Status x Source #

to :: Rep ConsensusStateGetResponse_Status x -> ConsensusStateGetResponse_Status Source #

ToJSON ConsensusStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusStateGetResponse_Status -> Value Source #

toEncoding :: ConsensusStateGetResponse_Status -> Encoding Source #

toJSONList :: [ConsensusStateGetResponse_Status] -> Value Source #

toEncodingList :: [ConsensusStateGetResponse_Status] -> Encoding Source #

FromJSON ConsensusStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusStateGetResponse_Status Source #

parseJSONList :: Value -> Parser [ConsensusStateGetResponse_Status] Source #

NFData ConsensusStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusStateGetResponse_Status -> () Source #

ProtoEnum ConsensusStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toProtoEnumMay :: Int32 -> Maybe ConsensusStateGetResponse_Status Source #

fromProtoEnum :: ConsensusStateGetResponse_Status -> Int32 Source #

ToJSONPB ConsensusStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusStateGetResponse_Status -> Options -> Value Source #

toEncodingPB :: ConsensusStateGetResponse_Status -> Options -> Encoding Source #

FromJSONPB ConsensusStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusStateGetResponse_Status Source #

HasDefault ConsensusStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusStateGetResponse_Status Source #

isDefault :: ConsensusStateGetResponse_Status -> Bool Source #

Named ConsensusStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusStateGetResponse_Status -> string Source #

Finite ConsensusStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

enumerate :: IsString string => Proxy# ConsensusStateGetResponse_Status -> [(string, Int32)] Source #

type Rep ConsensusStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusStateGetResponse_Status = D1 ('MetaData "ConsensusStateGetResponse_Status" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) ((C1 ('MetaCons "ConsensusStateGetResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "ConsensusStateGetResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusStateGetResponse_StatusBAD_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "ConsensusStateGetResponse_StatusSERVICE_ERROR" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusStateGetResponse_StatusNOT_READY" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ConsensusStateGetResponse_StatusUNKNOWN_BLOCK" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusStateGetResponse_StatusNOT_ACTIVE_ENGINE" 'PrefixI 'False) (U1 :: Type -> Type))))
\ No newline at end of file +Data.Sawtooth.Consensus
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types
Safe HaskellNone
LanguageHaskell2010

Data.Sawtooth.Consensus

Description

Generated by Haskell protocol buffer compiler. DO NOT EDIT!

Documentation

data ConsensusPeerMessageHeader Source #

Constructors

ConsensusPeerMessageHeader 

Fields

Instances

Instances details
Eq ConsensusPeerMessageHeader Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusPeerMessageHeader -> ConsensusPeerMessageHeader -> Bool Source #

(/=) :: ConsensusPeerMessageHeader -> ConsensusPeerMessageHeader -> Bool Source #

Ord ConsensusPeerMessageHeader Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusPeerMessageHeader -> ConsensusPeerMessageHeader -> Ordering Source #

(<) :: ConsensusPeerMessageHeader -> ConsensusPeerMessageHeader -> Bool Source #

(<=) :: ConsensusPeerMessageHeader -> ConsensusPeerMessageHeader -> Bool Source #

(>) :: ConsensusPeerMessageHeader -> ConsensusPeerMessageHeader -> Bool Source #

(>=) :: ConsensusPeerMessageHeader -> ConsensusPeerMessageHeader -> Bool Source #

max :: ConsensusPeerMessageHeader -> ConsensusPeerMessageHeader -> ConsensusPeerMessageHeader Source #

min :: ConsensusPeerMessageHeader -> ConsensusPeerMessageHeader -> ConsensusPeerMessageHeader Source #

Show ConsensusPeerMessageHeader Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusPeerMessageHeader -> ShowS Source #

show :: ConsensusPeerMessageHeader -> String Source #

showList :: [ConsensusPeerMessageHeader] -> ShowS Source #

Generic ConsensusPeerMessageHeader Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusPeerMessageHeader :: Type -> Type Source #

Methods

from :: ConsensusPeerMessageHeader -> Rep ConsensusPeerMessageHeader x Source #

to :: Rep ConsensusPeerMessageHeader x -> ConsensusPeerMessageHeader Source #

ToJSON ConsensusPeerMessageHeader Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusPeerMessageHeader -> Value Source #

toEncoding :: ConsensusPeerMessageHeader -> Encoding Source #

toJSONList :: [ConsensusPeerMessageHeader] -> Value Source #

toEncodingList :: [ConsensusPeerMessageHeader] -> Encoding Source #

FromJSON ConsensusPeerMessageHeader Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusPeerMessageHeader Source #

parseJSONList :: Value -> Parser [ConsensusPeerMessageHeader] Source #

NFData ConsensusPeerMessageHeader Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusPeerMessageHeader -> () Source #

ToJSONPB ConsensusPeerMessageHeader Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusPeerMessageHeader -> Options -> Value Source #

toEncodingPB :: ConsensusPeerMessageHeader -> Options -> Encoding Source #

FromJSONPB ConsensusPeerMessageHeader Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusPeerMessageHeader Source #

HasDefault ConsensusPeerMessageHeader Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusPeerMessageHeader Source #

isDefault :: ConsensusPeerMessageHeader -> Bool Source #

Named ConsensusPeerMessageHeader Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusPeerMessageHeader -> string Source #

Message ConsensusPeerMessageHeader Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusPeerMessageHeader -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusPeerMessageHeader Source #

dotProto :: Proxy# ConsensusPeerMessageHeader -> [DotProtoField] Source #

ToSchema ConsensusPeerMessageHeader Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusPeerMessageHeader -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusPeerMessageHeader Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusPeerMessageHeader = D1 ('MetaData "ConsensusPeerMessageHeader" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "ConsensusPeerMessageHeader" 'PrefixI 'True) ((S1 ('MetaSel ('Just "consensusPeerMessageHeaderSignerId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString) :*: S1 ('MetaSel ('Just "consensusPeerMessageHeaderContentSha512") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString)) :*: (S1 ('MetaSel ('Just "consensusPeerMessageHeaderMessageType") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: (S1 ('MetaSel ('Just "consensusPeerMessageHeaderName") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "consensusPeerMessageHeaderVersion") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)))))

data ConsensusPeerMessage Source #

Constructors

ConsensusPeerMessage 

Fields

Instances

Instances details
Eq ConsensusPeerMessage Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusPeerMessage -> ConsensusPeerMessage -> Bool Source #

(/=) :: ConsensusPeerMessage -> ConsensusPeerMessage -> Bool Source #

Ord ConsensusPeerMessage Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusPeerMessage -> ConsensusPeerMessage -> Ordering Source #

(<) :: ConsensusPeerMessage -> ConsensusPeerMessage -> Bool Source #

(<=) :: ConsensusPeerMessage -> ConsensusPeerMessage -> Bool Source #

(>) :: ConsensusPeerMessage -> ConsensusPeerMessage -> Bool Source #

(>=) :: ConsensusPeerMessage -> ConsensusPeerMessage -> Bool Source #

max :: ConsensusPeerMessage -> ConsensusPeerMessage -> ConsensusPeerMessage Source #

min :: ConsensusPeerMessage -> ConsensusPeerMessage -> ConsensusPeerMessage Source #

Show ConsensusPeerMessage Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusPeerMessage -> ShowS Source #

show :: ConsensusPeerMessage -> String Source #

showList :: [ConsensusPeerMessage] -> ShowS Source #

Generic ConsensusPeerMessage Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusPeerMessage :: Type -> Type Source #

Methods

from :: ConsensusPeerMessage -> Rep ConsensusPeerMessage x Source #

to :: Rep ConsensusPeerMessage x -> ConsensusPeerMessage Source #

ToJSON ConsensusPeerMessage Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusPeerMessage -> Value Source #

toEncoding :: ConsensusPeerMessage -> Encoding Source #

toJSONList :: [ConsensusPeerMessage] -> Value Source #

toEncodingList :: [ConsensusPeerMessage] -> Encoding Source #

FromJSON ConsensusPeerMessage Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusPeerMessage Source #

parseJSONList :: Value -> Parser [ConsensusPeerMessage] Source #

NFData ConsensusPeerMessage Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusPeerMessage -> () Source #

ToJSONPB ConsensusPeerMessage Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusPeerMessage -> Options -> Value Source #

toEncodingPB :: ConsensusPeerMessage -> Options -> Encoding Source #

FromJSONPB ConsensusPeerMessage Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusPeerMessage Source #

HasDefault ConsensusPeerMessage Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusPeerMessage Source #

isDefault :: ConsensusPeerMessage -> Bool Source #

Named ConsensusPeerMessage Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusPeerMessage -> string Source #

Message ConsensusPeerMessage Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusPeerMessage -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusPeerMessage Source #

dotProto :: Proxy# ConsensusPeerMessage -> [DotProtoField] Source #

ToSchema ConsensusPeerMessage Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusPeerMessage -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusPeerMessage Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusPeerMessage = D1 ('MetaData "ConsensusPeerMessage" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "ConsensusPeerMessage" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusPeerMessageHeader") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString) :*: (S1 ('MetaSel ('Just "consensusPeerMessageHeaderSignature") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString) :*: S1 ('MetaSel ('Just "consensusPeerMessageContent") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString))))

data ConsensusBlock Source #

Constructors

ConsensusBlock 

Fields

Instances

Instances details
Eq ConsensusBlock Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusBlock -> ConsensusBlock -> Bool Source #

(/=) :: ConsensusBlock -> ConsensusBlock -> Bool Source #

Ord ConsensusBlock Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusBlock -> ConsensusBlock -> Ordering Source #

(<) :: ConsensusBlock -> ConsensusBlock -> Bool Source #

(<=) :: ConsensusBlock -> ConsensusBlock -> Bool Source #

(>) :: ConsensusBlock -> ConsensusBlock -> Bool Source #

(>=) :: ConsensusBlock -> ConsensusBlock -> Bool Source #

max :: ConsensusBlock -> ConsensusBlock -> ConsensusBlock Source #

min :: ConsensusBlock -> ConsensusBlock -> ConsensusBlock Source #

Show ConsensusBlock Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusBlock -> ShowS Source #

show :: ConsensusBlock -> String Source #

showList :: [ConsensusBlock] -> ShowS Source #

Generic ConsensusBlock Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusBlock :: Type -> Type Source #

Methods

from :: ConsensusBlock -> Rep ConsensusBlock x Source #

to :: Rep ConsensusBlock x -> ConsensusBlock Source #

ToJSON ConsensusBlock Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusBlock -> Value Source #

toEncoding :: ConsensusBlock -> Encoding Source #

toJSONList :: [ConsensusBlock] -> Value Source #

toEncodingList :: [ConsensusBlock] -> Encoding Source #

FromJSON ConsensusBlock Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusBlock Source #

parseJSONList :: Value -> Parser [ConsensusBlock] Source #

NFData ConsensusBlock Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusBlock -> () Source #

ToJSONPB ConsensusBlock Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusBlock -> Options -> Value Source #

toEncodingPB :: ConsensusBlock -> Options -> Encoding Source #

FromJSONPB ConsensusBlock Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusBlock Source #

HasDefault ConsensusBlock Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusBlock Source #

isDefault :: ConsensusBlock -> Bool Source #

Named ConsensusBlock Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusBlock -> string Source #

Message ConsensusBlock Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusBlock -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusBlock Source #

dotProto :: Proxy# ConsensusBlock -> [DotProtoField] Source #

ToSchema ConsensusBlock Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusBlock -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusBlock Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusBlock = D1 ('MetaData "ConsensusBlock" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "ConsensusBlock" 'PrefixI 'True) ((S1 ('MetaSel ('Just "consensusBlockBlockId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString) :*: (S1 ('MetaSel ('Just "consensusBlockPreviousId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString) :*: S1 ('MetaSel ('Just "consensusBlockSignerId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString))) :*: (S1 ('MetaSel ('Just "consensusBlockBlockNum") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Word64) :*: (S1 ('MetaSel ('Just "consensusBlockPayload") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString) :*: S1 ('MetaSel ('Just "consensusBlockSummary") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString)))))

newtype ConsensusPeerInfo Source #

Constructors

ConsensusPeerInfo 

Fields

Instances

Instances details
Eq ConsensusPeerInfo Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusPeerInfo -> ConsensusPeerInfo -> Bool Source #

(/=) :: ConsensusPeerInfo -> ConsensusPeerInfo -> Bool Source #

Ord ConsensusPeerInfo Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusPeerInfo -> ConsensusPeerInfo -> Ordering Source #

(<) :: ConsensusPeerInfo -> ConsensusPeerInfo -> Bool Source #

(<=) :: ConsensusPeerInfo -> ConsensusPeerInfo -> Bool Source #

(>) :: ConsensusPeerInfo -> ConsensusPeerInfo -> Bool Source #

(>=) :: ConsensusPeerInfo -> ConsensusPeerInfo -> Bool Source #

max :: ConsensusPeerInfo -> ConsensusPeerInfo -> ConsensusPeerInfo Source #

min :: ConsensusPeerInfo -> ConsensusPeerInfo -> ConsensusPeerInfo Source #

Show ConsensusPeerInfo Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusPeerInfo -> ShowS Source #

show :: ConsensusPeerInfo -> String Source #

showList :: [ConsensusPeerInfo] -> ShowS Source #

Generic ConsensusPeerInfo Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusPeerInfo :: Type -> Type Source #

Methods

from :: ConsensusPeerInfo -> Rep ConsensusPeerInfo x Source #

to :: Rep ConsensusPeerInfo x -> ConsensusPeerInfo Source #

ToJSON ConsensusPeerInfo Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusPeerInfo -> Value Source #

toEncoding :: ConsensusPeerInfo -> Encoding Source #

toJSONList :: [ConsensusPeerInfo] -> Value Source #

toEncodingList :: [ConsensusPeerInfo] -> Encoding Source #

FromJSON ConsensusPeerInfo Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusPeerInfo Source #

parseJSONList :: Value -> Parser [ConsensusPeerInfo] Source #

NFData ConsensusPeerInfo Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusPeerInfo -> () Source #

ToJSONPB ConsensusPeerInfo Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusPeerInfo -> Options -> Value Source #

toEncodingPB :: ConsensusPeerInfo -> Options -> Encoding Source #

FromJSONPB ConsensusPeerInfo Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusPeerInfo Source #

HasDefault ConsensusPeerInfo Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusPeerInfo Source #

isDefault :: ConsensusPeerInfo -> Bool Source #

Named ConsensusPeerInfo Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusPeerInfo -> string Source #

Message ConsensusPeerInfo Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusPeerInfo -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusPeerInfo Source #

dotProto :: Proxy# ConsensusPeerInfo -> [DotProtoField] Source #

ToSchema ConsensusPeerInfo Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusPeerInfo -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusPeerInfo Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusPeerInfo = D1 ('MetaData "ConsensusPeerInfo" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'True) (C1 ('MetaCons "ConsensusPeerInfo" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusPeerInfoPeerId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString)))

data ConsensusSettingsEntry Source #

Constructors

ConsensusSettingsEntry 

Fields

Instances

Instances details
Eq ConsensusSettingsEntry Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusSettingsEntry -> ConsensusSettingsEntry -> Bool Source #

(/=) :: ConsensusSettingsEntry -> ConsensusSettingsEntry -> Bool Source #

Ord ConsensusSettingsEntry Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusSettingsEntry -> ConsensusSettingsEntry -> Ordering Source #

(<) :: ConsensusSettingsEntry -> ConsensusSettingsEntry -> Bool Source #

(<=) :: ConsensusSettingsEntry -> ConsensusSettingsEntry -> Bool Source #

(>) :: ConsensusSettingsEntry -> ConsensusSettingsEntry -> Bool Source #

(>=) :: ConsensusSettingsEntry -> ConsensusSettingsEntry -> Bool Source #

max :: ConsensusSettingsEntry -> ConsensusSettingsEntry -> ConsensusSettingsEntry Source #

min :: ConsensusSettingsEntry -> ConsensusSettingsEntry -> ConsensusSettingsEntry Source #

Show ConsensusSettingsEntry Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusSettingsEntry -> ShowS Source #

show :: ConsensusSettingsEntry -> String Source #

showList :: [ConsensusSettingsEntry] -> ShowS Source #

Generic ConsensusSettingsEntry Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusSettingsEntry :: Type -> Type Source #

Methods

from :: ConsensusSettingsEntry -> Rep ConsensusSettingsEntry x Source #

to :: Rep ConsensusSettingsEntry x -> ConsensusSettingsEntry Source #

ToJSON ConsensusSettingsEntry Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusSettingsEntry -> Value Source #

toEncoding :: ConsensusSettingsEntry -> Encoding Source #

toJSONList :: [ConsensusSettingsEntry] -> Value Source #

toEncodingList :: [ConsensusSettingsEntry] -> Encoding Source #

FromJSON ConsensusSettingsEntry Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusSettingsEntry Source #

parseJSONList :: Value -> Parser [ConsensusSettingsEntry] Source #

NFData ConsensusSettingsEntry Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusSettingsEntry -> () Source #

ToJSONPB ConsensusSettingsEntry Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusSettingsEntry -> Options -> Value Source #

toEncodingPB :: ConsensusSettingsEntry -> Options -> Encoding Source #

FromJSONPB ConsensusSettingsEntry Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusSettingsEntry Source #

HasDefault ConsensusSettingsEntry Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusSettingsEntry Source #

isDefault :: ConsensusSettingsEntry -> Bool Source #

Named ConsensusSettingsEntry Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusSettingsEntry -> string Source #

Message ConsensusSettingsEntry Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusSettingsEntry -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusSettingsEntry Source #

dotProto :: Proxy# ConsensusSettingsEntry -> [DotProtoField] Source #

ToSchema ConsensusSettingsEntry Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusSettingsEntry -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusSettingsEntry Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusSettingsEntry = D1 ('MetaData "ConsensusSettingsEntry" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "ConsensusSettingsEntry" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusSettingsEntryKey") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "consensusSettingsEntryValue") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)))

data ConsensusStateEntry Source #

Constructors

ConsensusStateEntry 

Fields

Instances

Instances details
Eq ConsensusStateEntry Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusStateEntry -> ConsensusStateEntry -> Bool Source #

(/=) :: ConsensusStateEntry -> ConsensusStateEntry -> Bool Source #

Ord ConsensusStateEntry Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusStateEntry -> ConsensusStateEntry -> Ordering Source #

(<) :: ConsensusStateEntry -> ConsensusStateEntry -> Bool Source #

(<=) :: ConsensusStateEntry -> ConsensusStateEntry -> Bool Source #

(>) :: ConsensusStateEntry -> ConsensusStateEntry -> Bool Source #

(>=) :: ConsensusStateEntry -> ConsensusStateEntry -> Bool Source #

max :: ConsensusStateEntry -> ConsensusStateEntry -> ConsensusStateEntry Source #

min :: ConsensusStateEntry -> ConsensusStateEntry -> ConsensusStateEntry Source #

Show ConsensusStateEntry Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusStateEntry -> ShowS Source #

show :: ConsensusStateEntry -> String Source #

showList :: [ConsensusStateEntry] -> ShowS Source #

Generic ConsensusStateEntry Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusStateEntry :: Type -> Type Source #

Methods

from :: ConsensusStateEntry -> Rep ConsensusStateEntry x Source #

to :: Rep ConsensusStateEntry x -> ConsensusStateEntry Source #

ToJSON ConsensusStateEntry Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusStateEntry -> Value Source #

toEncoding :: ConsensusStateEntry -> Encoding Source #

toJSONList :: [ConsensusStateEntry] -> Value Source #

toEncodingList :: [ConsensusStateEntry] -> Encoding Source #

FromJSON ConsensusStateEntry Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusStateEntry Source #

parseJSONList :: Value -> Parser [ConsensusStateEntry] Source #

NFData ConsensusStateEntry Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusStateEntry -> () Source #

ToJSONPB ConsensusStateEntry Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusStateEntry -> Options -> Value Source #

toEncodingPB :: ConsensusStateEntry -> Options -> Encoding Source #

FromJSONPB ConsensusStateEntry Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusStateEntry Source #

HasDefault ConsensusStateEntry Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusStateEntry Source #

isDefault :: ConsensusStateEntry -> Bool Source #

Named ConsensusStateEntry Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusStateEntry -> string Source #

Message ConsensusStateEntry Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusStateEntry -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusStateEntry Source #

dotProto :: Proxy# ConsensusStateEntry -> [DotProtoField] Source #

ToSchema ConsensusStateEntry Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusStateEntry -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusStateEntry Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusStateEntry = D1 ('MetaData "ConsensusStateEntry" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "ConsensusStateEntry" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusStateEntryAddress") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "consensusStateEntryData") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString)))

data ConsensusRegisterRequest Source #

Constructors

ConsensusRegisterRequest 

Fields

Instances

Instances details
Eq ConsensusRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusRegisterRequest -> ConsensusRegisterRequest -> Bool Source #

(/=) :: ConsensusRegisterRequest -> ConsensusRegisterRequest -> Bool Source #

Ord ConsensusRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusRegisterRequest -> ConsensusRegisterRequest -> Ordering Source #

(<) :: ConsensusRegisterRequest -> ConsensusRegisterRequest -> Bool Source #

(<=) :: ConsensusRegisterRequest -> ConsensusRegisterRequest -> Bool Source #

(>) :: ConsensusRegisterRequest -> ConsensusRegisterRequest -> Bool Source #

(>=) :: ConsensusRegisterRequest -> ConsensusRegisterRequest -> Bool Source #

max :: ConsensusRegisterRequest -> ConsensusRegisterRequest -> ConsensusRegisterRequest Source #

min :: ConsensusRegisterRequest -> ConsensusRegisterRequest -> ConsensusRegisterRequest Source #

Show ConsensusRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusRegisterRequest -> ShowS Source #

show :: ConsensusRegisterRequest -> String Source #

showList :: [ConsensusRegisterRequest] -> ShowS Source #

Generic ConsensusRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusRegisterRequest :: Type -> Type Source #

Methods

from :: ConsensusRegisterRequest -> Rep ConsensusRegisterRequest x Source #

to :: Rep ConsensusRegisterRequest x -> ConsensusRegisterRequest Source #

ToJSON ConsensusRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusRegisterRequest -> Value Source #

toEncoding :: ConsensusRegisterRequest -> Encoding Source #

toJSONList :: [ConsensusRegisterRequest] -> Value Source #

toEncodingList :: [ConsensusRegisterRequest] -> Encoding Source #

FromJSON ConsensusRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusRegisterRequest Source #

parseJSONList :: Value -> Parser [ConsensusRegisterRequest] Source #

NFData ConsensusRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusRegisterRequest -> () Source #

ToJSONPB ConsensusRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusRegisterRequest -> Options -> Value Source #

toEncodingPB :: ConsensusRegisterRequest -> Options -> Encoding Source #

FromJSONPB ConsensusRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusRegisterRequest Source #

HasDefault ConsensusRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusRegisterRequest Source #

isDefault :: ConsensusRegisterRequest -> Bool Source #

Named ConsensusRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusRegisterRequest -> string Source #

Message ConsensusRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusRegisterRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusRegisterRequest Source #

dotProto :: Proxy# ConsensusRegisterRequest -> [DotProtoField] Source #

ToSchema ConsensusRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusRegisterRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusRegisterRequest = D1 ('MetaData "ConsensusRegisterRequest" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "ConsensusRegisterRequest" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusRegisterRequestName") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: (S1 ('MetaSel ('Just "consensusRegisterRequestVersion") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "consensusRegisterRequestAdditionalProtocols") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector ConsensusRegisterRequest_Protocol)))))

data ConsensusRegisterRequest_Protocol Source #

Constructors

ConsensusRegisterRequest_Protocol 

Fields

Instances

Instances details
Eq ConsensusRegisterRequest_Protocol Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusRegisterRequest_Protocol -> ConsensusRegisterRequest_Protocol -> Bool Source #

(/=) :: ConsensusRegisterRequest_Protocol -> ConsensusRegisterRequest_Protocol -> Bool Source #

Ord ConsensusRegisterRequest_Protocol Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusRegisterRequest_Protocol -> ConsensusRegisterRequest_Protocol -> Ordering Source #

(<) :: ConsensusRegisterRequest_Protocol -> ConsensusRegisterRequest_Protocol -> Bool Source #

(<=) :: ConsensusRegisterRequest_Protocol -> ConsensusRegisterRequest_Protocol -> Bool Source #

(>) :: ConsensusRegisterRequest_Protocol -> ConsensusRegisterRequest_Protocol -> Bool Source #

(>=) :: ConsensusRegisterRequest_Protocol -> ConsensusRegisterRequest_Protocol -> Bool Source #

max :: ConsensusRegisterRequest_Protocol -> ConsensusRegisterRequest_Protocol -> ConsensusRegisterRequest_Protocol Source #

min :: ConsensusRegisterRequest_Protocol -> ConsensusRegisterRequest_Protocol -> ConsensusRegisterRequest_Protocol Source #

Show ConsensusRegisterRequest_Protocol Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusRegisterRequest_Protocol -> ShowS Source #

show :: ConsensusRegisterRequest_Protocol -> String Source #

showList :: [ConsensusRegisterRequest_Protocol] -> ShowS Source #

Generic ConsensusRegisterRequest_Protocol Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusRegisterRequest_Protocol :: Type -> Type Source #

Methods

from :: ConsensusRegisterRequest_Protocol -> Rep ConsensusRegisterRequest_Protocol x Source #

to :: Rep ConsensusRegisterRequest_Protocol x -> ConsensusRegisterRequest_Protocol Source #

ToJSON ConsensusRegisterRequest_Protocol Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusRegisterRequest_Protocol -> Value Source #

toEncoding :: ConsensusRegisterRequest_Protocol -> Encoding Source #

toJSONList :: [ConsensusRegisterRequest_Protocol] -> Value Source #

toEncodingList :: [ConsensusRegisterRequest_Protocol] -> Encoding Source #

FromJSON ConsensusRegisterRequest_Protocol Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusRegisterRequest_Protocol Source #

parseJSONList :: Value -> Parser [ConsensusRegisterRequest_Protocol] Source #

NFData ConsensusRegisterRequest_Protocol Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusRegisterRequest_Protocol -> () Source #

ToJSONPB ConsensusRegisterRequest_Protocol Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusRegisterRequest_Protocol -> Options -> Value Source #

toEncodingPB :: ConsensusRegisterRequest_Protocol -> Options -> Encoding Source #

FromJSONPB ConsensusRegisterRequest_Protocol Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusRegisterRequest_Protocol Source #

HasDefault ConsensusRegisterRequest_Protocol Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusRegisterRequest_Protocol Source #

isDefault :: ConsensusRegisterRequest_Protocol -> Bool Source #

Named ConsensusRegisterRequest_Protocol Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusRegisterRequest_Protocol -> string Source #

Message ConsensusRegisterRequest_Protocol Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusRegisterRequest_Protocol -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusRegisterRequest_Protocol Source #

dotProto :: Proxy# ConsensusRegisterRequest_Protocol -> [DotProtoField] Source #

ToSchema ConsensusRegisterRequest_Protocol Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusRegisterRequest_Protocol -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusRegisterRequest_Protocol Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusRegisterRequest_Protocol = D1 ('MetaData "ConsensusRegisterRequest_Protocol" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "ConsensusRegisterRequest_Protocol" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusRegisterRequest_ProtocolName") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "consensusRegisterRequest_ProtocolVersion") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)))

data ConsensusRegisterResponse Source #

Constructors

ConsensusRegisterResponse 

Fields

Instances

Instances details
Eq ConsensusRegisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusRegisterResponse -> ConsensusRegisterResponse -> Bool Source #

(/=) :: ConsensusRegisterResponse -> ConsensusRegisterResponse -> Bool Source #

Ord ConsensusRegisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusRegisterResponse -> ConsensusRegisterResponse -> Ordering Source #

(<) :: ConsensusRegisterResponse -> ConsensusRegisterResponse -> Bool Source #

(<=) :: ConsensusRegisterResponse -> ConsensusRegisterResponse -> Bool Source #

(>) :: ConsensusRegisterResponse -> ConsensusRegisterResponse -> Bool Source #

(>=) :: ConsensusRegisterResponse -> ConsensusRegisterResponse -> Bool Source #

max :: ConsensusRegisterResponse -> ConsensusRegisterResponse -> ConsensusRegisterResponse Source #

min :: ConsensusRegisterResponse -> ConsensusRegisterResponse -> ConsensusRegisterResponse Source #

Show ConsensusRegisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusRegisterResponse -> ShowS Source #

show :: ConsensusRegisterResponse -> String Source #

showList :: [ConsensusRegisterResponse] -> ShowS Source #

Generic ConsensusRegisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusRegisterResponse :: Type -> Type Source #

Methods

from :: ConsensusRegisterResponse -> Rep ConsensusRegisterResponse x Source #

to :: Rep ConsensusRegisterResponse x -> ConsensusRegisterResponse Source #

ToJSON ConsensusRegisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusRegisterResponse -> Value Source #

toEncoding :: ConsensusRegisterResponse -> Encoding Source #

toJSONList :: [ConsensusRegisterResponse] -> Value Source #

toEncodingList :: [ConsensusRegisterResponse] -> Encoding Source #

FromJSON ConsensusRegisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusRegisterResponse Source #

parseJSONList :: Value -> Parser [ConsensusRegisterResponse] Source #

NFData ConsensusRegisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusRegisterResponse -> () Source #

ToJSONPB ConsensusRegisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusRegisterResponse -> Options -> Value Source #

toEncodingPB :: ConsensusRegisterResponse -> Options -> Encoding Source #

FromJSONPB ConsensusRegisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusRegisterResponse Source #

HasDefault ConsensusRegisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusRegisterResponse Source #

isDefault :: ConsensusRegisterResponse -> Bool Source #

Named ConsensusRegisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusRegisterResponse -> string Source #

Message ConsensusRegisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusRegisterResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusRegisterResponse Source #

dotProto :: Proxy# ConsensusRegisterResponse -> [DotProtoField] Source #

ToSchema ConsensusRegisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusRegisterResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusRegisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusRegisterResponse = D1 ('MetaData "ConsensusRegisterResponse" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "ConsensusRegisterResponse" 'PrefixI 'True) ((S1 ('MetaSel ('Just "consensusRegisterResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated ConsensusRegisterResponse_Status)) :*: S1 ('MetaSel ('Just "consensusRegisterResponseChainHead") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe ConsensusBlock))) :*: (S1 ('MetaSel ('Just "consensusRegisterResponsePeers") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector ConsensusPeerInfo)) :*: S1 ('MetaSel ('Just "consensusRegisterResponseLocalPeerInfo") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe ConsensusPeerInfo)))))

data ConsensusRegisterResponse_Status Source #

Constructors

ConsensusRegisterResponse_StatusSTATUS_UNSET 
ConsensusRegisterResponse_StatusOK 
ConsensusRegisterResponse_StatusBAD_REQUEST 
ConsensusRegisterResponse_StatusSERVICE_ERROR 
ConsensusRegisterResponse_StatusNOT_READY 

Instances

Instances details
Bounded ConsensusRegisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

minBound :: ConsensusRegisterResponse_Status Source #

maxBound :: ConsensusRegisterResponse_Status Source #

Eq ConsensusRegisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusRegisterResponse_Status -> ConsensusRegisterResponse_Status -> Bool Source #

(/=) :: ConsensusRegisterResponse_Status -> ConsensusRegisterResponse_Status -> Bool Source #

Ord ConsensusRegisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusRegisterResponse_Status -> ConsensusRegisterResponse_Status -> Ordering Source #

(<) :: ConsensusRegisterResponse_Status -> ConsensusRegisterResponse_Status -> Bool Source #

(<=) :: ConsensusRegisterResponse_Status -> ConsensusRegisterResponse_Status -> Bool Source #

(>) :: ConsensusRegisterResponse_Status -> ConsensusRegisterResponse_Status -> Bool Source #

(>=) :: ConsensusRegisterResponse_Status -> ConsensusRegisterResponse_Status -> Bool Source #

max :: ConsensusRegisterResponse_Status -> ConsensusRegisterResponse_Status -> ConsensusRegisterResponse_Status Source #

min :: ConsensusRegisterResponse_Status -> ConsensusRegisterResponse_Status -> ConsensusRegisterResponse_Status Source #

Show ConsensusRegisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusRegisterResponse_Status -> ShowS Source #

show :: ConsensusRegisterResponse_Status -> String Source #

showList :: [ConsensusRegisterResponse_Status] -> ShowS Source #

Generic ConsensusRegisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusRegisterResponse_Status :: Type -> Type Source #

Methods

from :: ConsensusRegisterResponse_Status -> Rep ConsensusRegisterResponse_Status x Source #

to :: Rep ConsensusRegisterResponse_Status x -> ConsensusRegisterResponse_Status Source #

ToJSON ConsensusRegisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusRegisterResponse_Status -> Value Source #

toEncoding :: ConsensusRegisterResponse_Status -> Encoding Source #

toJSONList :: [ConsensusRegisterResponse_Status] -> Value Source #

toEncodingList :: [ConsensusRegisterResponse_Status] -> Encoding Source #

FromJSON ConsensusRegisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusRegisterResponse_Status Source #

parseJSONList :: Value -> Parser [ConsensusRegisterResponse_Status] Source #

NFData ConsensusRegisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusRegisterResponse_Status -> () Source #

ProtoEnum ConsensusRegisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toProtoEnumMay :: Int32 -> Maybe ConsensusRegisterResponse_Status Source #

fromProtoEnum :: ConsensusRegisterResponse_Status -> Int32 Source #

ToJSONPB ConsensusRegisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusRegisterResponse_Status -> Options -> Value Source #

toEncodingPB :: ConsensusRegisterResponse_Status -> Options -> Encoding Source #

FromJSONPB ConsensusRegisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusRegisterResponse_Status Source #

HasDefault ConsensusRegisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusRegisterResponse_Status Source #

isDefault :: ConsensusRegisterResponse_Status -> Bool Source #

Named ConsensusRegisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusRegisterResponse_Status -> string Source #

Finite ConsensusRegisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

enumerate :: IsString string => Proxy# ConsensusRegisterResponse_Status -> [(string, Int32)] Source #

type Rep ConsensusRegisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusRegisterResponse_Status = D1 ('MetaData "ConsensusRegisterResponse_Status" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) ((C1 ('MetaCons "ConsensusRegisterResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusRegisterResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ConsensusRegisterResponse_StatusBAD_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "ConsensusRegisterResponse_StatusSERVICE_ERROR" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusRegisterResponse_StatusNOT_READY" 'PrefixI 'False) (U1 :: Type -> Type))))

newtype ConsensusNotifyPeerConnected Source #

Constructors

ConsensusNotifyPeerConnected 

Fields

Instances

Instances details
Eq ConsensusNotifyPeerConnected Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusNotifyPeerConnected -> ConsensusNotifyPeerConnected -> Bool Source #

(/=) :: ConsensusNotifyPeerConnected -> ConsensusNotifyPeerConnected -> Bool Source #

Ord ConsensusNotifyPeerConnected Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusNotifyPeerConnected -> ConsensusNotifyPeerConnected -> Ordering Source #

(<) :: ConsensusNotifyPeerConnected -> ConsensusNotifyPeerConnected -> Bool Source #

(<=) :: ConsensusNotifyPeerConnected -> ConsensusNotifyPeerConnected -> Bool Source #

(>) :: ConsensusNotifyPeerConnected -> ConsensusNotifyPeerConnected -> Bool Source #

(>=) :: ConsensusNotifyPeerConnected -> ConsensusNotifyPeerConnected -> Bool Source #

max :: ConsensusNotifyPeerConnected -> ConsensusNotifyPeerConnected -> ConsensusNotifyPeerConnected Source #

min :: ConsensusNotifyPeerConnected -> ConsensusNotifyPeerConnected -> ConsensusNotifyPeerConnected Source #

Show ConsensusNotifyPeerConnected Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusNotifyPeerConnected -> ShowS Source #

show :: ConsensusNotifyPeerConnected -> String Source #

showList :: [ConsensusNotifyPeerConnected] -> ShowS Source #

Generic ConsensusNotifyPeerConnected Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusNotifyPeerConnected :: Type -> Type Source #

Methods

from :: ConsensusNotifyPeerConnected -> Rep ConsensusNotifyPeerConnected x Source #

to :: Rep ConsensusNotifyPeerConnected x -> ConsensusNotifyPeerConnected Source #

ToJSON ConsensusNotifyPeerConnected Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusNotifyPeerConnected -> Value Source #

toEncoding :: ConsensusNotifyPeerConnected -> Encoding Source #

toJSONList :: [ConsensusNotifyPeerConnected] -> Value Source #

toEncodingList :: [ConsensusNotifyPeerConnected] -> Encoding Source #

FromJSON ConsensusNotifyPeerConnected Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusNotifyPeerConnected Source #

parseJSONList :: Value -> Parser [ConsensusNotifyPeerConnected] Source #

NFData ConsensusNotifyPeerConnected Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusNotifyPeerConnected -> () Source #

ToJSONPB ConsensusNotifyPeerConnected Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusNotifyPeerConnected -> Options -> Value Source #

toEncodingPB :: ConsensusNotifyPeerConnected -> Options -> Encoding Source #

FromJSONPB ConsensusNotifyPeerConnected Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusNotifyPeerConnected Source #

HasDefault ConsensusNotifyPeerConnected Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusNotifyPeerConnected Source #

isDefault :: ConsensusNotifyPeerConnected -> Bool Source #

Named ConsensusNotifyPeerConnected Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusNotifyPeerConnected -> string Source #

Message ConsensusNotifyPeerConnected Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusNotifyPeerConnected -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusNotifyPeerConnected Source #

dotProto :: Proxy# ConsensusNotifyPeerConnected -> [DotProtoField] Source #

ToSchema ConsensusNotifyPeerConnected Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusNotifyPeerConnected -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusNotifyPeerConnected Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusNotifyPeerConnected = D1 ('MetaData "ConsensusNotifyPeerConnected" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'True) (C1 ('MetaCons "ConsensusNotifyPeerConnected" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusNotifyPeerConnectedPeerInfo") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe ConsensusPeerInfo))))

newtype ConsensusNotifyPeerDisconnected Source #

Constructors

ConsensusNotifyPeerDisconnected 

Fields

Instances

Instances details
Eq ConsensusNotifyPeerDisconnected Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusNotifyPeerDisconnected -> ConsensusNotifyPeerDisconnected -> Bool Source #

(/=) :: ConsensusNotifyPeerDisconnected -> ConsensusNotifyPeerDisconnected -> Bool Source #

Ord ConsensusNotifyPeerDisconnected Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusNotifyPeerDisconnected -> ConsensusNotifyPeerDisconnected -> Ordering Source #

(<) :: ConsensusNotifyPeerDisconnected -> ConsensusNotifyPeerDisconnected -> Bool Source #

(<=) :: ConsensusNotifyPeerDisconnected -> ConsensusNotifyPeerDisconnected -> Bool Source #

(>) :: ConsensusNotifyPeerDisconnected -> ConsensusNotifyPeerDisconnected -> Bool Source #

(>=) :: ConsensusNotifyPeerDisconnected -> ConsensusNotifyPeerDisconnected -> Bool Source #

max :: ConsensusNotifyPeerDisconnected -> ConsensusNotifyPeerDisconnected -> ConsensusNotifyPeerDisconnected Source #

min :: ConsensusNotifyPeerDisconnected -> ConsensusNotifyPeerDisconnected -> ConsensusNotifyPeerDisconnected Source #

Show ConsensusNotifyPeerDisconnected Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusNotifyPeerDisconnected -> ShowS Source #

show :: ConsensusNotifyPeerDisconnected -> String Source #

showList :: [ConsensusNotifyPeerDisconnected] -> ShowS Source #

Generic ConsensusNotifyPeerDisconnected Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusNotifyPeerDisconnected :: Type -> Type Source #

Methods

from :: ConsensusNotifyPeerDisconnected -> Rep ConsensusNotifyPeerDisconnected x Source #

to :: Rep ConsensusNotifyPeerDisconnected x -> ConsensusNotifyPeerDisconnected Source #

ToJSON ConsensusNotifyPeerDisconnected Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusNotifyPeerDisconnected -> Value Source #

toEncoding :: ConsensusNotifyPeerDisconnected -> Encoding Source #

toJSONList :: [ConsensusNotifyPeerDisconnected] -> Value Source #

toEncodingList :: [ConsensusNotifyPeerDisconnected] -> Encoding Source #

FromJSON ConsensusNotifyPeerDisconnected Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusNotifyPeerDisconnected Source #

parseJSONList :: Value -> Parser [ConsensusNotifyPeerDisconnected] Source #

NFData ConsensusNotifyPeerDisconnected Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusNotifyPeerDisconnected -> () Source #

ToJSONPB ConsensusNotifyPeerDisconnected Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusNotifyPeerDisconnected -> Options -> Value Source #

toEncodingPB :: ConsensusNotifyPeerDisconnected -> Options -> Encoding Source #

FromJSONPB ConsensusNotifyPeerDisconnected Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusNotifyPeerDisconnected Source #

HasDefault ConsensusNotifyPeerDisconnected Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusNotifyPeerDisconnected Source #

isDefault :: ConsensusNotifyPeerDisconnected -> Bool Source #

Named ConsensusNotifyPeerDisconnected Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusNotifyPeerDisconnected -> string Source #

Message ConsensusNotifyPeerDisconnected Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusNotifyPeerDisconnected -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusNotifyPeerDisconnected Source #

dotProto :: Proxy# ConsensusNotifyPeerDisconnected -> [DotProtoField] Source #

ToSchema ConsensusNotifyPeerDisconnected Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusNotifyPeerDisconnected -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusNotifyPeerDisconnected Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusNotifyPeerDisconnected = D1 ('MetaData "ConsensusNotifyPeerDisconnected" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'True) (C1 ('MetaCons "ConsensusNotifyPeerDisconnected" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusNotifyPeerDisconnectedPeerId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString)))

data ConsensusNotifyPeerMessage Source #

Constructors

ConsensusNotifyPeerMessage 

Fields

Instances

Instances details
Eq ConsensusNotifyPeerMessage Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusNotifyPeerMessage -> ConsensusNotifyPeerMessage -> Bool Source #

(/=) :: ConsensusNotifyPeerMessage -> ConsensusNotifyPeerMessage -> Bool Source #

Ord ConsensusNotifyPeerMessage Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusNotifyPeerMessage -> ConsensusNotifyPeerMessage -> Ordering Source #

(<) :: ConsensusNotifyPeerMessage -> ConsensusNotifyPeerMessage -> Bool Source #

(<=) :: ConsensusNotifyPeerMessage -> ConsensusNotifyPeerMessage -> Bool Source #

(>) :: ConsensusNotifyPeerMessage -> ConsensusNotifyPeerMessage -> Bool Source #

(>=) :: ConsensusNotifyPeerMessage -> ConsensusNotifyPeerMessage -> Bool Source #

max :: ConsensusNotifyPeerMessage -> ConsensusNotifyPeerMessage -> ConsensusNotifyPeerMessage Source #

min :: ConsensusNotifyPeerMessage -> ConsensusNotifyPeerMessage -> ConsensusNotifyPeerMessage Source #

Show ConsensusNotifyPeerMessage Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusNotifyPeerMessage -> ShowS Source #

show :: ConsensusNotifyPeerMessage -> String Source #

showList :: [ConsensusNotifyPeerMessage] -> ShowS Source #

Generic ConsensusNotifyPeerMessage Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusNotifyPeerMessage :: Type -> Type Source #

Methods

from :: ConsensusNotifyPeerMessage -> Rep ConsensusNotifyPeerMessage x Source #

to :: Rep ConsensusNotifyPeerMessage x -> ConsensusNotifyPeerMessage Source #

ToJSON ConsensusNotifyPeerMessage Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusNotifyPeerMessage -> Value Source #

toEncoding :: ConsensusNotifyPeerMessage -> Encoding Source #

toJSONList :: [ConsensusNotifyPeerMessage] -> Value Source #

toEncodingList :: [ConsensusNotifyPeerMessage] -> Encoding Source #

FromJSON ConsensusNotifyPeerMessage Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusNotifyPeerMessage Source #

parseJSONList :: Value -> Parser [ConsensusNotifyPeerMessage] Source #

NFData ConsensusNotifyPeerMessage Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusNotifyPeerMessage -> () Source #

ToJSONPB ConsensusNotifyPeerMessage Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusNotifyPeerMessage -> Options -> Value Source #

toEncodingPB :: ConsensusNotifyPeerMessage -> Options -> Encoding Source #

FromJSONPB ConsensusNotifyPeerMessage Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusNotifyPeerMessage Source #

HasDefault ConsensusNotifyPeerMessage Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusNotifyPeerMessage Source #

isDefault :: ConsensusNotifyPeerMessage -> Bool Source #

Named ConsensusNotifyPeerMessage Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusNotifyPeerMessage -> string Source #

Message ConsensusNotifyPeerMessage Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusNotifyPeerMessage -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusNotifyPeerMessage Source #

dotProto :: Proxy# ConsensusNotifyPeerMessage -> [DotProtoField] Source #

ToSchema ConsensusNotifyPeerMessage Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusNotifyPeerMessage -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusNotifyPeerMessage Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusNotifyPeerMessage = D1 ('MetaData "ConsensusNotifyPeerMessage" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "ConsensusNotifyPeerMessage" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusNotifyPeerMessageMessage") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe ConsensusPeerMessage)) :*: S1 ('MetaSel ('Just "consensusNotifyPeerMessageSenderId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString)))

newtype ConsensusNotifyBlockNew Source #

Constructors

ConsensusNotifyBlockNew 

Fields

Instances

Instances details
Eq ConsensusNotifyBlockNew Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusNotifyBlockNew -> ConsensusNotifyBlockNew -> Bool Source #

(/=) :: ConsensusNotifyBlockNew -> ConsensusNotifyBlockNew -> Bool Source #

Ord ConsensusNotifyBlockNew Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusNotifyBlockNew -> ConsensusNotifyBlockNew -> Ordering Source #

(<) :: ConsensusNotifyBlockNew -> ConsensusNotifyBlockNew -> Bool Source #

(<=) :: ConsensusNotifyBlockNew -> ConsensusNotifyBlockNew -> Bool Source #

(>) :: ConsensusNotifyBlockNew -> ConsensusNotifyBlockNew -> Bool Source #

(>=) :: ConsensusNotifyBlockNew -> ConsensusNotifyBlockNew -> Bool Source #

max :: ConsensusNotifyBlockNew -> ConsensusNotifyBlockNew -> ConsensusNotifyBlockNew Source #

min :: ConsensusNotifyBlockNew -> ConsensusNotifyBlockNew -> ConsensusNotifyBlockNew Source #

Show ConsensusNotifyBlockNew Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusNotifyBlockNew -> ShowS Source #

show :: ConsensusNotifyBlockNew -> String Source #

showList :: [ConsensusNotifyBlockNew] -> ShowS Source #

Generic ConsensusNotifyBlockNew Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusNotifyBlockNew :: Type -> Type Source #

Methods

from :: ConsensusNotifyBlockNew -> Rep ConsensusNotifyBlockNew x Source #

to :: Rep ConsensusNotifyBlockNew x -> ConsensusNotifyBlockNew Source #

ToJSON ConsensusNotifyBlockNew Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusNotifyBlockNew -> Value Source #

toEncoding :: ConsensusNotifyBlockNew -> Encoding Source #

toJSONList :: [ConsensusNotifyBlockNew] -> Value Source #

toEncodingList :: [ConsensusNotifyBlockNew] -> Encoding Source #

FromJSON ConsensusNotifyBlockNew Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusNotifyBlockNew Source #

parseJSONList :: Value -> Parser [ConsensusNotifyBlockNew] Source #

NFData ConsensusNotifyBlockNew Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusNotifyBlockNew -> () Source #

ToJSONPB ConsensusNotifyBlockNew Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusNotifyBlockNew -> Options -> Value Source #

toEncodingPB :: ConsensusNotifyBlockNew -> Options -> Encoding Source #

FromJSONPB ConsensusNotifyBlockNew Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusNotifyBlockNew Source #

HasDefault ConsensusNotifyBlockNew Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusNotifyBlockNew Source #

isDefault :: ConsensusNotifyBlockNew -> Bool Source #

Named ConsensusNotifyBlockNew Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusNotifyBlockNew -> string Source #

Message ConsensusNotifyBlockNew Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusNotifyBlockNew -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusNotifyBlockNew Source #

dotProto :: Proxy# ConsensusNotifyBlockNew -> [DotProtoField] Source #

ToSchema ConsensusNotifyBlockNew Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusNotifyBlockNew -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusNotifyBlockNew Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusNotifyBlockNew = D1 ('MetaData "ConsensusNotifyBlockNew" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'True) (C1 ('MetaCons "ConsensusNotifyBlockNew" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusNotifyBlockNewBlock") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe ConsensusBlock))))

newtype ConsensusNotifyBlockValid Source #

Constructors

ConsensusNotifyBlockValid 

Fields

Instances

Instances details
Eq ConsensusNotifyBlockValid Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusNotifyBlockValid -> ConsensusNotifyBlockValid -> Bool Source #

(/=) :: ConsensusNotifyBlockValid -> ConsensusNotifyBlockValid -> Bool Source #

Ord ConsensusNotifyBlockValid Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusNotifyBlockValid -> ConsensusNotifyBlockValid -> Ordering Source #

(<) :: ConsensusNotifyBlockValid -> ConsensusNotifyBlockValid -> Bool Source #

(<=) :: ConsensusNotifyBlockValid -> ConsensusNotifyBlockValid -> Bool Source #

(>) :: ConsensusNotifyBlockValid -> ConsensusNotifyBlockValid -> Bool Source #

(>=) :: ConsensusNotifyBlockValid -> ConsensusNotifyBlockValid -> Bool Source #

max :: ConsensusNotifyBlockValid -> ConsensusNotifyBlockValid -> ConsensusNotifyBlockValid Source #

min :: ConsensusNotifyBlockValid -> ConsensusNotifyBlockValid -> ConsensusNotifyBlockValid Source #

Show ConsensusNotifyBlockValid Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusNotifyBlockValid -> ShowS Source #

show :: ConsensusNotifyBlockValid -> String Source #

showList :: [ConsensusNotifyBlockValid] -> ShowS Source #

Generic ConsensusNotifyBlockValid Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusNotifyBlockValid :: Type -> Type Source #

Methods

from :: ConsensusNotifyBlockValid -> Rep ConsensusNotifyBlockValid x Source #

to :: Rep ConsensusNotifyBlockValid x -> ConsensusNotifyBlockValid Source #

ToJSON ConsensusNotifyBlockValid Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusNotifyBlockValid -> Value Source #

toEncoding :: ConsensusNotifyBlockValid -> Encoding Source #

toJSONList :: [ConsensusNotifyBlockValid] -> Value Source #

toEncodingList :: [ConsensusNotifyBlockValid] -> Encoding Source #

FromJSON ConsensusNotifyBlockValid Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusNotifyBlockValid Source #

parseJSONList :: Value -> Parser [ConsensusNotifyBlockValid] Source #

NFData ConsensusNotifyBlockValid Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusNotifyBlockValid -> () Source #

ToJSONPB ConsensusNotifyBlockValid Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusNotifyBlockValid -> Options -> Value Source #

toEncodingPB :: ConsensusNotifyBlockValid -> Options -> Encoding Source #

FromJSONPB ConsensusNotifyBlockValid Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusNotifyBlockValid Source #

HasDefault ConsensusNotifyBlockValid Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusNotifyBlockValid Source #

isDefault :: ConsensusNotifyBlockValid -> Bool Source #

Named ConsensusNotifyBlockValid Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusNotifyBlockValid -> string Source #

Message ConsensusNotifyBlockValid Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusNotifyBlockValid -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusNotifyBlockValid Source #

dotProto :: Proxy# ConsensusNotifyBlockValid -> [DotProtoField] Source #

ToSchema ConsensusNotifyBlockValid Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusNotifyBlockValid -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusNotifyBlockValid Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusNotifyBlockValid = D1 ('MetaData "ConsensusNotifyBlockValid" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'True) (C1 ('MetaCons "ConsensusNotifyBlockValid" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusNotifyBlockValidBlockId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString)))

newtype ConsensusNotifyBlockInvalid Source #

Constructors

ConsensusNotifyBlockInvalid 

Fields

Instances

Instances details
Eq ConsensusNotifyBlockInvalid Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusNotifyBlockInvalid -> ConsensusNotifyBlockInvalid -> Bool Source #

(/=) :: ConsensusNotifyBlockInvalid -> ConsensusNotifyBlockInvalid -> Bool Source #

Ord ConsensusNotifyBlockInvalid Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusNotifyBlockInvalid -> ConsensusNotifyBlockInvalid -> Ordering Source #

(<) :: ConsensusNotifyBlockInvalid -> ConsensusNotifyBlockInvalid -> Bool Source #

(<=) :: ConsensusNotifyBlockInvalid -> ConsensusNotifyBlockInvalid -> Bool Source #

(>) :: ConsensusNotifyBlockInvalid -> ConsensusNotifyBlockInvalid -> Bool Source #

(>=) :: ConsensusNotifyBlockInvalid -> ConsensusNotifyBlockInvalid -> Bool Source #

max :: ConsensusNotifyBlockInvalid -> ConsensusNotifyBlockInvalid -> ConsensusNotifyBlockInvalid Source #

min :: ConsensusNotifyBlockInvalid -> ConsensusNotifyBlockInvalid -> ConsensusNotifyBlockInvalid Source #

Show ConsensusNotifyBlockInvalid Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusNotifyBlockInvalid -> ShowS Source #

show :: ConsensusNotifyBlockInvalid -> String Source #

showList :: [ConsensusNotifyBlockInvalid] -> ShowS Source #

Generic ConsensusNotifyBlockInvalid Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusNotifyBlockInvalid :: Type -> Type Source #

Methods

from :: ConsensusNotifyBlockInvalid -> Rep ConsensusNotifyBlockInvalid x Source #

to :: Rep ConsensusNotifyBlockInvalid x -> ConsensusNotifyBlockInvalid Source #

ToJSON ConsensusNotifyBlockInvalid Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusNotifyBlockInvalid -> Value Source #

toEncoding :: ConsensusNotifyBlockInvalid -> Encoding Source #

toJSONList :: [ConsensusNotifyBlockInvalid] -> Value Source #

toEncodingList :: [ConsensusNotifyBlockInvalid] -> Encoding Source #

FromJSON ConsensusNotifyBlockInvalid Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusNotifyBlockInvalid Source #

parseJSONList :: Value -> Parser [ConsensusNotifyBlockInvalid] Source #

NFData ConsensusNotifyBlockInvalid Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusNotifyBlockInvalid -> () Source #

ToJSONPB ConsensusNotifyBlockInvalid Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusNotifyBlockInvalid -> Options -> Value Source #

toEncodingPB :: ConsensusNotifyBlockInvalid -> Options -> Encoding Source #

FromJSONPB ConsensusNotifyBlockInvalid Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusNotifyBlockInvalid Source #

HasDefault ConsensusNotifyBlockInvalid Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusNotifyBlockInvalid Source #

isDefault :: ConsensusNotifyBlockInvalid -> Bool Source #

Named ConsensusNotifyBlockInvalid Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusNotifyBlockInvalid -> string Source #

Message ConsensusNotifyBlockInvalid Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusNotifyBlockInvalid -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusNotifyBlockInvalid Source #

dotProto :: Proxy# ConsensusNotifyBlockInvalid -> [DotProtoField] Source #

ToSchema ConsensusNotifyBlockInvalid Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusNotifyBlockInvalid -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusNotifyBlockInvalid Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusNotifyBlockInvalid = D1 ('MetaData "ConsensusNotifyBlockInvalid" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'True) (C1 ('MetaCons "ConsensusNotifyBlockInvalid" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusNotifyBlockInvalidBlockId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString)))

newtype ConsensusNotifyBlockCommit Source #

Constructors

ConsensusNotifyBlockCommit 

Fields

Instances

Instances details
Eq ConsensusNotifyBlockCommit Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusNotifyBlockCommit -> ConsensusNotifyBlockCommit -> Bool Source #

(/=) :: ConsensusNotifyBlockCommit -> ConsensusNotifyBlockCommit -> Bool Source #

Ord ConsensusNotifyBlockCommit Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusNotifyBlockCommit -> ConsensusNotifyBlockCommit -> Ordering Source #

(<) :: ConsensusNotifyBlockCommit -> ConsensusNotifyBlockCommit -> Bool Source #

(<=) :: ConsensusNotifyBlockCommit -> ConsensusNotifyBlockCommit -> Bool Source #

(>) :: ConsensusNotifyBlockCommit -> ConsensusNotifyBlockCommit -> Bool Source #

(>=) :: ConsensusNotifyBlockCommit -> ConsensusNotifyBlockCommit -> Bool Source #

max :: ConsensusNotifyBlockCommit -> ConsensusNotifyBlockCommit -> ConsensusNotifyBlockCommit Source #

min :: ConsensusNotifyBlockCommit -> ConsensusNotifyBlockCommit -> ConsensusNotifyBlockCommit Source #

Show ConsensusNotifyBlockCommit Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusNotifyBlockCommit -> ShowS Source #

show :: ConsensusNotifyBlockCommit -> String Source #

showList :: [ConsensusNotifyBlockCommit] -> ShowS Source #

Generic ConsensusNotifyBlockCommit Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusNotifyBlockCommit :: Type -> Type Source #

Methods

from :: ConsensusNotifyBlockCommit -> Rep ConsensusNotifyBlockCommit x Source #

to :: Rep ConsensusNotifyBlockCommit x -> ConsensusNotifyBlockCommit Source #

ToJSON ConsensusNotifyBlockCommit Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusNotifyBlockCommit -> Value Source #

toEncoding :: ConsensusNotifyBlockCommit -> Encoding Source #

toJSONList :: [ConsensusNotifyBlockCommit] -> Value Source #

toEncodingList :: [ConsensusNotifyBlockCommit] -> Encoding Source #

FromJSON ConsensusNotifyBlockCommit Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusNotifyBlockCommit Source #

parseJSONList :: Value -> Parser [ConsensusNotifyBlockCommit] Source #

NFData ConsensusNotifyBlockCommit Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusNotifyBlockCommit -> () Source #

ToJSONPB ConsensusNotifyBlockCommit Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusNotifyBlockCommit -> Options -> Value Source #

toEncodingPB :: ConsensusNotifyBlockCommit -> Options -> Encoding Source #

FromJSONPB ConsensusNotifyBlockCommit Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusNotifyBlockCommit Source #

HasDefault ConsensusNotifyBlockCommit Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusNotifyBlockCommit Source #

isDefault :: ConsensusNotifyBlockCommit -> Bool Source #

Named ConsensusNotifyBlockCommit Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusNotifyBlockCommit -> string Source #

Message ConsensusNotifyBlockCommit Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusNotifyBlockCommit -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusNotifyBlockCommit Source #

dotProto :: Proxy# ConsensusNotifyBlockCommit -> [DotProtoField] Source #

ToSchema ConsensusNotifyBlockCommit Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusNotifyBlockCommit -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusNotifyBlockCommit Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusNotifyBlockCommit = D1 ('MetaData "ConsensusNotifyBlockCommit" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'True) (C1 ('MetaCons "ConsensusNotifyBlockCommit" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusNotifyBlockCommitBlockId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString)))

data ConsensusNotifyEngineActivated Source #

Constructors

ConsensusNotifyEngineActivated 

Fields

Instances

Instances details
Eq ConsensusNotifyEngineActivated Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusNotifyEngineActivated -> ConsensusNotifyEngineActivated -> Bool Source #

(/=) :: ConsensusNotifyEngineActivated -> ConsensusNotifyEngineActivated -> Bool Source #

Ord ConsensusNotifyEngineActivated Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusNotifyEngineActivated -> ConsensusNotifyEngineActivated -> Ordering Source #

(<) :: ConsensusNotifyEngineActivated -> ConsensusNotifyEngineActivated -> Bool Source #

(<=) :: ConsensusNotifyEngineActivated -> ConsensusNotifyEngineActivated -> Bool Source #

(>) :: ConsensusNotifyEngineActivated -> ConsensusNotifyEngineActivated -> Bool Source #

(>=) :: ConsensusNotifyEngineActivated -> ConsensusNotifyEngineActivated -> Bool Source #

max :: ConsensusNotifyEngineActivated -> ConsensusNotifyEngineActivated -> ConsensusNotifyEngineActivated Source #

min :: ConsensusNotifyEngineActivated -> ConsensusNotifyEngineActivated -> ConsensusNotifyEngineActivated Source #

Show ConsensusNotifyEngineActivated Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusNotifyEngineActivated -> ShowS Source #

show :: ConsensusNotifyEngineActivated -> String Source #

showList :: [ConsensusNotifyEngineActivated] -> ShowS Source #

Generic ConsensusNotifyEngineActivated Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusNotifyEngineActivated :: Type -> Type Source #

Methods

from :: ConsensusNotifyEngineActivated -> Rep ConsensusNotifyEngineActivated x Source #

to :: Rep ConsensusNotifyEngineActivated x -> ConsensusNotifyEngineActivated Source #

ToJSON ConsensusNotifyEngineActivated Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusNotifyEngineActivated -> Value Source #

toEncoding :: ConsensusNotifyEngineActivated -> Encoding Source #

toJSONList :: [ConsensusNotifyEngineActivated] -> Value Source #

toEncodingList :: [ConsensusNotifyEngineActivated] -> Encoding Source #

FromJSON ConsensusNotifyEngineActivated Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusNotifyEngineActivated Source #

parseJSONList :: Value -> Parser [ConsensusNotifyEngineActivated] Source #

NFData ConsensusNotifyEngineActivated Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusNotifyEngineActivated -> () Source #

ToJSONPB ConsensusNotifyEngineActivated Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusNotifyEngineActivated -> Options -> Value Source #

toEncodingPB :: ConsensusNotifyEngineActivated -> Options -> Encoding Source #

FromJSONPB ConsensusNotifyEngineActivated Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusNotifyEngineActivated Source #

HasDefault ConsensusNotifyEngineActivated Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusNotifyEngineActivated Source #

isDefault :: ConsensusNotifyEngineActivated -> Bool Source #

Named ConsensusNotifyEngineActivated Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusNotifyEngineActivated -> string Source #

Message ConsensusNotifyEngineActivated Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusNotifyEngineActivated -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusNotifyEngineActivated Source #

dotProto :: Proxy# ConsensusNotifyEngineActivated -> [DotProtoField] Source #

ToSchema ConsensusNotifyEngineActivated Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusNotifyEngineActivated -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusNotifyEngineActivated Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusNotifyEngineActivated = D1 ('MetaData "ConsensusNotifyEngineActivated" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "ConsensusNotifyEngineActivated" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusNotifyEngineActivatedChainHead") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe ConsensusBlock)) :*: (S1 ('MetaSel ('Just "consensusNotifyEngineActivatedPeers") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector ConsensusPeerInfo)) :*: S1 ('MetaSel ('Just "consensusNotifyEngineActivatedLocalPeerInfo") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe ConsensusPeerInfo)))))

data ConsensusNotifyEngineDeactivated Source #

Constructors

ConsensusNotifyEngineDeactivated 

Instances

Instances details
Eq ConsensusNotifyEngineDeactivated Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusNotifyEngineDeactivated -> ConsensusNotifyEngineDeactivated -> Bool Source #

(/=) :: ConsensusNotifyEngineDeactivated -> ConsensusNotifyEngineDeactivated -> Bool Source #

Ord ConsensusNotifyEngineDeactivated Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusNotifyEngineDeactivated -> ConsensusNotifyEngineDeactivated -> Ordering Source #

(<) :: ConsensusNotifyEngineDeactivated -> ConsensusNotifyEngineDeactivated -> Bool Source #

(<=) :: ConsensusNotifyEngineDeactivated -> ConsensusNotifyEngineDeactivated -> Bool Source #

(>) :: ConsensusNotifyEngineDeactivated -> ConsensusNotifyEngineDeactivated -> Bool Source #

(>=) :: ConsensusNotifyEngineDeactivated -> ConsensusNotifyEngineDeactivated -> Bool Source #

max :: ConsensusNotifyEngineDeactivated -> ConsensusNotifyEngineDeactivated -> ConsensusNotifyEngineDeactivated Source #

min :: ConsensusNotifyEngineDeactivated -> ConsensusNotifyEngineDeactivated -> ConsensusNotifyEngineDeactivated Source #

Show ConsensusNotifyEngineDeactivated Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusNotifyEngineDeactivated -> ShowS Source #

show :: ConsensusNotifyEngineDeactivated -> String Source #

showList :: [ConsensusNotifyEngineDeactivated] -> ShowS Source #

Generic ConsensusNotifyEngineDeactivated Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusNotifyEngineDeactivated :: Type -> Type Source #

Methods

from :: ConsensusNotifyEngineDeactivated -> Rep ConsensusNotifyEngineDeactivated x Source #

to :: Rep ConsensusNotifyEngineDeactivated x -> ConsensusNotifyEngineDeactivated Source #

ToJSON ConsensusNotifyEngineDeactivated Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusNotifyEngineDeactivated -> Value Source #

toEncoding :: ConsensusNotifyEngineDeactivated -> Encoding Source #

toJSONList :: [ConsensusNotifyEngineDeactivated] -> Value Source #

toEncodingList :: [ConsensusNotifyEngineDeactivated] -> Encoding Source #

FromJSON ConsensusNotifyEngineDeactivated Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusNotifyEngineDeactivated Source #

parseJSONList :: Value -> Parser [ConsensusNotifyEngineDeactivated] Source #

NFData ConsensusNotifyEngineDeactivated Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusNotifyEngineDeactivated -> () Source #

ToJSONPB ConsensusNotifyEngineDeactivated Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusNotifyEngineDeactivated -> Options -> Value Source #

toEncodingPB :: ConsensusNotifyEngineDeactivated -> Options -> Encoding Source #

FromJSONPB ConsensusNotifyEngineDeactivated Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusNotifyEngineDeactivated Source #

HasDefault ConsensusNotifyEngineDeactivated Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusNotifyEngineDeactivated Source #

isDefault :: ConsensusNotifyEngineDeactivated -> Bool Source #

Named ConsensusNotifyEngineDeactivated Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusNotifyEngineDeactivated -> string Source #

Message ConsensusNotifyEngineDeactivated Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusNotifyEngineDeactivated -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusNotifyEngineDeactivated Source #

dotProto :: Proxy# ConsensusNotifyEngineDeactivated -> [DotProtoField] Source #

ToSchema ConsensusNotifyEngineDeactivated Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusNotifyEngineDeactivated -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusNotifyEngineDeactivated Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusNotifyEngineDeactivated = D1 ('MetaData "ConsensusNotifyEngineDeactivated" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "ConsensusNotifyEngineDeactivated" 'PrefixI 'False) (U1 :: Type -> Type))

data ConsensusNotifyAck Source #

Constructors

ConsensusNotifyAck 

Instances

Instances details
Eq ConsensusNotifyAck Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusNotifyAck -> ConsensusNotifyAck -> Bool Source #

(/=) :: ConsensusNotifyAck -> ConsensusNotifyAck -> Bool Source #

Ord ConsensusNotifyAck Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusNotifyAck -> ConsensusNotifyAck -> Ordering Source #

(<) :: ConsensusNotifyAck -> ConsensusNotifyAck -> Bool Source #

(<=) :: ConsensusNotifyAck -> ConsensusNotifyAck -> Bool Source #

(>) :: ConsensusNotifyAck -> ConsensusNotifyAck -> Bool Source #

(>=) :: ConsensusNotifyAck -> ConsensusNotifyAck -> Bool Source #

max :: ConsensusNotifyAck -> ConsensusNotifyAck -> ConsensusNotifyAck Source #

min :: ConsensusNotifyAck -> ConsensusNotifyAck -> ConsensusNotifyAck Source #

Show ConsensusNotifyAck Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusNotifyAck -> ShowS Source #

show :: ConsensusNotifyAck -> String Source #

showList :: [ConsensusNotifyAck] -> ShowS Source #

Generic ConsensusNotifyAck Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusNotifyAck :: Type -> Type Source #

Methods

from :: ConsensusNotifyAck -> Rep ConsensusNotifyAck x Source #

to :: Rep ConsensusNotifyAck x -> ConsensusNotifyAck Source #

ToJSON ConsensusNotifyAck Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusNotifyAck -> Value Source #

toEncoding :: ConsensusNotifyAck -> Encoding Source #

toJSONList :: [ConsensusNotifyAck] -> Value Source #

toEncodingList :: [ConsensusNotifyAck] -> Encoding Source #

FromJSON ConsensusNotifyAck Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusNotifyAck Source #

parseJSONList :: Value -> Parser [ConsensusNotifyAck] Source #

NFData ConsensusNotifyAck Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusNotifyAck -> () Source #

ToJSONPB ConsensusNotifyAck Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusNotifyAck -> Options -> Value Source #

toEncodingPB :: ConsensusNotifyAck -> Options -> Encoding Source #

FromJSONPB ConsensusNotifyAck Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusNotifyAck Source #

HasDefault ConsensusNotifyAck Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusNotifyAck Source #

isDefault :: ConsensusNotifyAck -> Bool Source #

Named ConsensusNotifyAck Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusNotifyAck -> string Source #

Message ConsensusNotifyAck Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusNotifyAck -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusNotifyAck Source #

dotProto :: Proxy# ConsensusNotifyAck -> [DotProtoField] Source #

ToSchema ConsensusNotifyAck Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusNotifyAck -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusNotifyAck Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusNotifyAck = D1 ('MetaData "ConsensusNotifyAck" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "ConsensusNotifyAck" 'PrefixI 'False) (U1 :: Type -> Type))

data ConsensusSendToRequest Source #

Constructors

ConsensusSendToRequest 

Fields

Instances

Instances details
Eq ConsensusSendToRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusSendToRequest -> ConsensusSendToRequest -> Bool Source #

(/=) :: ConsensusSendToRequest -> ConsensusSendToRequest -> Bool Source #

Ord ConsensusSendToRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusSendToRequest -> ConsensusSendToRequest -> Ordering Source #

(<) :: ConsensusSendToRequest -> ConsensusSendToRequest -> Bool Source #

(<=) :: ConsensusSendToRequest -> ConsensusSendToRequest -> Bool Source #

(>) :: ConsensusSendToRequest -> ConsensusSendToRequest -> Bool Source #

(>=) :: ConsensusSendToRequest -> ConsensusSendToRequest -> Bool Source #

max :: ConsensusSendToRequest -> ConsensusSendToRequest -> ConsensusSendToRequest Source #

min :: ConsensusSendToRequest -> ConsensusSendToRequest -> ConsensusSendToRequest Source #

Show ConsensusSendToRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusSendToRequest -> ShowS Source #

show :: ConsensusSendToRequest -> String Source #

showList :: [ConsensusSendToRequest] -> ShowS Source #

Generic ConsensusSendToRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusSendToRequest :: Type -> Type Source #

Methods

from :: ConsensusSendToRequest -> Rep ConsensusSendToRequest x Source #

to :: Rep ConsensusSendToRequest x -> ConsensusSendToRequest Source #

ToJSON ConsensusSendToRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusSendToRequest -> Value Source #

toEncoding :: ConsensusSendToRequest -> Encoding Source #

toJSONList :: [ConsensusSendToRequest] -> Value Source #

toEncodingList :: [ConsensusSendToRequest] -> Encoding Source #

FromJSON ConsensusSendToRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusSendToRequest Source #

parseJSONList :: Value -> Parser [ConsensusSendToRequest] Source #

NFData ConsensusSendToRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusSendToRequest -> () Source #

ToJSONPB ConsensusSendToRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusSendToRequest -> Options -> Value Source #

toEncodingPB :: ConsensusSendToRequest -> Options -> Encoding Source #

FromJSONPB ConsensusSendToRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusSendToRequest Source #

HasDefault ConsensusSendToRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusSendToRequest Source #

isDefault :: ConsensusSendToRequest -> Bool Source #

Named ConsensusSendToRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusSendToRequest -> string Source #

Message ConsensusSendToRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusSendToRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusSendToRequest Source #

dotProto :: Proxy# ConsensusSendToRequest -> [DotProtoField] Source #

ToSchema ConsensusSendToRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusSendToRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusSendToRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusSendToRequest = D1 ('MetaData "ConsensusSendToRequest" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "ConsensusSendToRequest" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusSendToRequestContent") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString) :*: (S1 ('MetaSel ('Just "consensusSendToRequestMessageType") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "consensusSendToRequestReceiverId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString))))

newtype ConsensusSendToResponse Source #

Constructors

ConsensusSendToResponse 

Fields

Instances

Instances details
Eq ConsensusSendToResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusSendToResponse -> ConsensusSendToResponse -> Bool Source #

(/=) :: ConsensusSendToResponse -> ConsensusSendToResponse -> Bool Source #

Ord ConsensusSendToResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusSendToResponse -> ConsensusSendToResponse -> Ordering Source #

(<) :: ConsensusSendToResponse -> ConsensusSendToResponse -> Bool Source #

(<=) :: ConsensusSendToResponse -> ConsensusSendToResponse -> Bool Source #

(>) :: ConsensusSendToResponse -> ConsensusSendToResponse -> Bool Source #

(>=) :: ConsensusSendToResponse -> ConsensusSendToResponse -> Bool Source #

max :: ConsensusSendToResponse -> ConsensusSendToResponse -> ConsensusSendToResponse Source #

min :: ConsensusSendToResponse -> ConsensusSendToResponse -> ConsensusSendToResponse Source #

Show ConsensusSendToResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusSendToResponse -> ShowS Source #

show :: ConsensusSendToResponse -> String Source #

showList :: [ConsensusSendToResponse] -> ShowS Source #

Generic ConsensusSendToResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusSendToResponse :: Type -> Type Source #

Methods

from :: ConsensusSendToResponse -> Rep ConsensusSendToResponse x Source #

to :: Rep ConsensusSendToResponse x -> ConsensusSendToResponse Source #

ToJSON ConsensusSendToResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusSendToResponse -> Value Source #

toEncoding :: ConsensusSendToResponse -> Encoding Source #

toJSONList :: [ConsensusSendToResponse] -> Value Source #

toEncodingList :: [ConsensusSendToResponse] -> Encoding Source #

FromJSON ConsensusSendToResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusSendToResponse Source #

parseJSONList :: Value -> Parser [ConsensusSendToResponse] Source #

NFData ConsensusSendToResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusSendToResponse -> () Source #

ToJSONPB ConsensusSendToResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusSendToResponse -> Options -> Value Source #

toEncodingPB :: ConsensusSendToResponse -> Options -> Encoding Source #

FromJSONPB ConsensusSendToResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusSendToResponse Source #

HasDefault ConsensusSendToResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusSendToResponse Source #

isDefault :: ConsensusSendToResponse -> Bool Source #

Named ConsensusSendToResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusSendToResponse -> string Source #

Message ConsensusSendToResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusSendToResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusSendToResponse Source #

dotProto :: Proxy# ConsensusSendToResponse -> [DotProtoField] Source #

ToSchema ConsensusSendToResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusSendToResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusSendToResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusSendToResponse = D1 ('MetaData "ConsensusSendToResponse" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'True) (C1 ('MetaCons "ConsensusSendToResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusSendToResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated ConsensusSendToResponse_Status))))

data ConsensusSendToResponse_Status Source #

Constructors

ConsensusSendToResponse_StatusSTATUS_UNSET 
ConsensusSendToResponse_StatusOK 
ConsensusSendToResponse_StatusBAD_REQUEST 
ConsensusSendToResponse_StatusSERVICE_ERROR 
ConsensusSendToResponse_StatusNOT_READY 
ConsensusSendToResponse_StatusUNKNOWN_PEER 
ConsensusSendToResponse_StatusNOT_ACTIVE_ENGINE 

Instances

Instances details
Bounded ConsensusSendToResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

minBound :: ConsensusSendToResponse_Status Source #

maxBound :: ConsensusSendToResponse_Status Source #

Eq ConsensusSendToResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusSendToResponse_Status -> ConsensusSendToResponse_Status -> Bool Source #

(/=) :: ConsensusSendToResponse_Status -> ConsensusSendToResponse_Status -> Bool Source #

Ord ConsensusSendToResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusSendToResponse_Status -> ConsensusSendToResponse_Status -> Ordering Source #

(<) :: ConsensusSendToResponse_Status -> ConsensusSendToResponse_Status -> Bool Source #

(<=) :: ConsensusSendToResponse_Status -> ConsensusSendToResponse_Status -> Bool Source #

(>) :: ConsensusSendToResponse_Status -> ConsensusSendToResponse_Status -> Bool Source #

(>=) :: ConsensusSendToResponse_Status -> ConsensusSendToResponse_Status -> Bool Source #

max :: ConsensusSendToResponse_Status -> ConsensusSendToResponse_Status -> ConsensusSendToResponse_Status Source #

min :: ConsensusSendToResponse_Status -> ConsensusSendToResponse_Status -> ConsensusSendToResponse_Status Source #

Show ConsensusSendToResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusSendToResponse_Status -> ShowS Source #

show :: ConsensusSendToResponse_Status -> String Source #

showList :: [ConsensusSendToResponse_Status] -> ShowS Source #

Generic ConsensusSendToResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusSendToResponse_Status :: Type -> Type Source #

Methods

from :: ConsensusSendToResponse_Status -> Rep ConsensusSendToResponse_Status x Source #

to :: Rep ConsensusSendToResponse_Status x -> ConsensusSendToResponse_Status Source #

ToJSON ConsensusSendToResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusSendToResponse_Status -> Value Source #

toEncoding :: ConsensusSendToResponse_Status -> Encoding Source #

toJSONList :: [ConsensusSendToResponse_Status] -> Value Source #

toEncodingList :: [ConsensusSendToResponse_Status] -> Encoding Source #

FromJSON ConsensusSendToResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusSendToResponse_Status Source #

parseJSONList :: Value -> Parser [ConsensusSendToResponse_Status] Source #

NFData ConsensusSendToResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusSendToResponse_Status -> () Source #

ProtoEnum ConsensusSendToResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toProtoEnumMay :: Int32 -> Maybe ConsensusSendToResponse_Status Source #

fromProtoEnum :: ConsensusSendToResponse_Status -> Int32 Source #

ToJSONPB ConsensusSendToResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusSendToResponse_Status -> Options -> Value Source #

toEncodingPB :: ConsensusSendToResponse_Status -> Options -> Encoding Source #

FromJSONPB ConsensusSendToResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusSendToResponse_Status Source #

HasDefault ConsensusSendToResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusSendToResponse_Status Source #

isDefault :: ConsensusSendToResponse_Status -> Bool Source #

Named ConsensusSendToResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusSendToResponse_Status -> string Source #

Finite ConsensusSendToResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

enumerate :: IsString string => Proxy# ConsensusSendToResponse_Status -> [(string, Int32)] Source #

type Rep ConsensusSendToResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusSendToResponse_Status = D1 ('MetaData "ConsensusSendToResponse_Status" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) ((C1 ('MetaCons "ConsensusSendToResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "ConsensusSendToResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusSendToResponse_StatusBAD_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "ConsensusSendToResponse_StatusSERVICE_ERROR" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusSendToResponse_StatusNOT_READY" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ConsensusSendToResponse_StatusUNKNOWN_PEER" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusSendToResponse_StatusNOT_ACTIVE_ENGINE" 'PrefixI 'False) (U1 :: Type -> Type))))

data ConsensusBroadcastRequest Source #

Constructors

ConsensusBroadcastRequest 

Fields

Instances

Instances details
Eq ConsensusBroadcastRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusBroadcastRequest -> ConsensusBroadcastRequest -> Bool Source #

(/=) :: ConsensusBroadcastRequest -> ConsensusBroadcastRequest -> Bool Source #

Ord ConsensusBroadcastRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusBroadcastRequest -> ConsensusBroadcastRequest -> Ordering Source #

(<) :: ConsensusBroadcastRequest -> ConsensusBroadcastRequest -> Bool Source #

(<=) :: ConsensusBroadcastRequest -> ConsensusBroadcastRequest -> Bool Source #

(>) :: ConsensusBroadcastRequest -> ConsensusBroadcastRequest -> Bool Source #

(>=) :: ConsensusBroadcastRequest -> ConsensusBroadcastRequest -> Bool Source #

max :: ConsensusBroadcastRequest -> ConsensusBroadcastRequest -> ConsensusBroadcastRequest Source #

min :: ConsensusBroadcastRequest -> ConsensusBroadcastRequest -> ConsensusBroadcastRequest Source #

Show ConsensusBroadcastRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusBroadcastRequest -> ShowS Source #

show :: ConsensusBroadcastRequest -> String Source #

showList :: [ConsensusBroadcastRequest] -> ShowS Source #

Generic ConsensusBroadcastRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusBroadcastRequest :: Type -> Type Source #

Methods

from :: ConsensusBroadcastRequest -> Rep ConsensusBroadcastRequest x Source #

to :: Rep ConsensusBroadcastRequest x -> ConsensusBroadcastRequest Source #

ToJSON ConsensusBroadcastRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusBroadcastRequest -> Value Source #

toEncoding :: ConsensusBroadcastRequest -> Encoding Source #

toJSONList :: [ConsensusBroadcastRequest] -> Value Source #

toEncodingList :: [ConsensusBroadcastRequest] -> Encoding Source #

FromJSON ConsensusBroadcastRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusBroadcastRequest Source #

parseJSONList :: Value -> Parser [ConsensusBroadcastRequest] Source #

NFData ConsensusBroadcastRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusBroadcastRequest -> () Source #

ToJSONPB ConsensusBroadcastRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusBroadcastRequest -> Options -> Value Source #

toEncodingPB :: ConsensusBroadcastRequest -> Options -> Encoding Source #

FromJSONPB ConsensusBroadcastRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusBroadcastRequest Source #

HasDefault ConsensusBroadcastRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusBroadcastRequest Source #

isDefault :: ConsensusBroadcastRequest -> Bool Source #

Named ConsensusBroadcastRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusBroadcastRequest -> string Source #

Message ConsensusBroadcastRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusBroadcastRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusBroadcastRequest Source #

dotProto :: Proxy# ConsensusBroadcastRequest -> [DotProtoField] Source #

ToSchema ConsensusBroadcastRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusBroadcastRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusBroadcastRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusBroadcastRequest = D1 ('MetaData "ConsensusBroadcastRequest" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "ConsensusBroadcastRequest" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusBroadcastRequestContent") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString) :*: S1 ('MetaSel ('Just "consensusBroadcastRequestMessageType") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)))

newtype ConsensusBroadcastResponse Source #

Constructors

ConsensusBroadcastResponse 

Fields

Instances

Instances details
Eq ConsensusBroadcastResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusBroadcastResponse -> ConsensusBroadcastResponse -> Bool Source #

(/=) :: ConsensusBroadcastResponse -> ConsensusBroadcastResponse -> Bool Source #

Ord ConsensusBroadcastResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusBroadcastResponse -> ConsensusBroadcastResponse -> Ordering Source #

(<) :: ConsensusBroadcastResponse -> ConsensusBroadcastResponse -> Bool Source #

(<=) :: ConsensusBroadcastResponse -> ConsensusBroadcastResponse -> Bool Source #

(>) :: ConsensusBroadcastResponse -> ConsensusBroadcastResponse -> Bool Source #

(>=) :: ConsensusBroadcastResponse -> ConsensusBroadcastResponse -> Bool Source #

max :: ConsensusBroadcastResponse -> ConsensusBroadcastResponse -> ConsensusBroadcastResponse Source #

min :: ConsensusBroadcastResponse -> ConsensusBroadcastResponse -> ConsensusBroadcastResponse Source #

Show ConsensusBroadcastResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusBroadcastResponse -> ShowS Source #

show :: ConsensusBroadcastResponse -> String Source #

showList :: [ConsensusBroadcastResponse] -> ShowS Source #

Generic ConsensusBroadcastResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusBroadcastResponse :: Type -> Type Source #

Methods

from :: ConsensusBroadcastResponse -> Rep ConsensusBroadcastResponse x Source #

to :: Rep ConsensusBroadcastResponse x -> ConsensusBroadcastResponse Source #

ToJSON ConsensusBroadcastResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusBroadcastResponse -> Value Source #

toEncoding :: ConsensusBroadcastResponse -> Encoding Source #

toJSONList :: [ConsensusBroadcastResponse] -> Value Source #

toEncodingList :: [ConsensusBroadcastResponse] -> Encoding Source #

FromJSON ConsensusBroadcastResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusBroadcastResponse Source #

parseJSONList :: Value -> Parser [ConsensusBroadcastResponse] Source #

NFData ConsensusBroadcastResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusBroadcastResponse -> () Source #

ToJSONPB ConsensusBroadcastResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusBroadcastResponse -> Options -> Value Source #

toEncodingPB :: ConsensusBroadcastResponse -> Options -> Encoding Source #

FromJSONPB ConsensusBroadcastResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusBroadcastResponse Source #

HasDefault ConsensusBroadcastResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusBroadcastResponse Source #

isDefault :: ConsensusBroadcastResponse -> Bool Source #

Named ConsensusBroadcastResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusBroadcastResponse -> string Source #

Message ConsensusBroadcastResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusBroadcastResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusBroadcastResponse Source #

dotProto :: Proxy# ConsensusBroadcastResponse -> [DotProtoField] Source #

ToSchema ConsensusBroadcastResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusBroadcastResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusBroadcastResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusBroadcastResponse = D1 ('MetaData "ConsensusBroadcastResponse" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'True) (C1 ('MetaCons "ConsensusBroadcastResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusBroadcastResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated ConsensusBroadcastResponse_Status))))

data ConsensusBroadcastResponse_Status Source #

Constructors

ConsensusBroadcastResponse_StatusSTATUS_UNSET 
ConsensusBroadcastResponse_StatusOK 
ConsensusBroadcastResponse_StatusBAD_REQUEST 
ConsensusBroadcastResponse_StatusSERVICE_ERROR 
ConsensusBroadcastResponse_StatusNOT_READY 
ConsensusBroadcastResponse_StatusNOT_ACTIVE_ENGINE 

Instances

Instances details
Bounded ConsensusBroadcastResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

minBound :: ConsensusBroadcastResponse_Status Source #

maxBound :: ConsensusBroadcastResponse_Status Source #

Eq ConsensusBroadcastResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusBroadcastResponse_Status -> ConsensusBroadcastResponse_Status -> Bool Source #

(/=) :: ConsensusBroadcastResponse_Status -> ConsensusBroadcastResponse_Status -> Bool Source #

Ord ConsensusBroadcastResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusBroadcastResponse_Status -> ConsensusBroadcastResponse_Status -> Ordering Source #

(<) :: ConsensusBroadcastResponse_Status -> ConsensusBroadcastResponse_Status -> Bool Source #

(<=) :: ConsensusBroadcastResponse_Status -> ConsensusBroadcastResponse_Status -> Bool Source #

(>) :: ConsensusBroadcastResponse_Status -> ConsensusBroadcastResponse_Status -> Bool Source #

(>=) :: ConsensusBroadcastResponse_Status -> ConsensusBroadcastResponse_Status -> Bool Source #

max :: ConsensusBroadcastResponse_Status -> ConsensusBroadcastResponse_Status -> ConsensusBroadcastResponse_Status Source #

min :: ConsensusBroadcastResponse_Status -> ConsensusBroadcastResponse_Status -> ConsensusBroadcastResponse_Status Source #

Show ConsensusBroadcastResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusBroadcastResponse_Status -> ShowS Source #

show :: ConsensusBroadcastResponse_Status -> String Source #

showList :: [ConsensusBroadcastResponse_Status] -> ShowS Source #

Generic ConsensusBroadcastResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusBroadcastResponse_Status :: Type -> Type Source #

Methods

from :: ConsensusBroadcastResponse_Status -> Rep ConsensusBroadcastResponse_Status x Source #

to :: Rep ConsensusBroadcastResponse_Status x -> ConsensusBroadcastResponse_Status Source #

ToJSON ConsensusBroadcastResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusBroadcastResponse_Status -> Value Source #

toEncoding :: ConsensusBroadcastResponse_Status -> Encoding Source #

toJSONList :: [ConsensusBroadcastResponse_Status] -> Value Source #

toEncodingList :: [ConsensusBroadcastResponse_Status] -> Encoding Source #

FromJSON ConsensusBroadcastResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusBroadcastResponse_Status Source #

parseJSONList :: Value -> Parser [ConsensusBroadcastResponse_Status] Source #

NFData ConsensusBroadcastResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusBroadcastResponse_Status -> () Source #

ProtoEnum ConsensusBroadcastResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toProtoEnumMay :: Int32 -> Maybe ConsensusBroadcastResponse_Status Source #

fromProtoEnum :: ConsensusBroadcastResponse_Status -> Int32 Source #

ToJSONPB ConsensusBroadcastResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusBroadcastResponse_Status -> Options -> Value Source #

toEncodingPB :: ConsensusBroadcastResponse_Status -> Options -> Encoding Source #

FromJSONPB ConsensusBroadcastResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusBroadcastResponse_Status Source #

HasDefault ConsensusBroadcastResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusBroadcastResponse_Status Source #

isDefault :: ConsensusBroadcastResponse_Status -> Bool Source #

Named ConsensusBroadcastResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusBroadcastResponse_Status -> string Source #

Finite ConsensusBroadcastResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

enumerate :: IsString string => Proxy# ConsensusBroadcastResponse_Status -> [(string, Int32)] Source #

type Rep ConsensusBroadcastResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusBroadcastResponse_Status = D1 ('MetaData "ConsensusBroadcastResponse_Status" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) ((C1 ('MetaCons "ConsensusBroadcastResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "ConsensusBroadcastResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusBroadcastResponse_StatusBAD_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type))) :+: (C1 ('MetaCons "ConsensusBroadcastResponse_StatusSERVICE_ERROR" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "ConsensusBroadcastResponse_StatusNOT_READY" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusBroadcastResponse_StatusNOT_ACTIVE_ENGINE" 'PrefixI 'False) (U1 :: Type -> Type))))

newtype ConsensusInitializeBlockRequest Source #

Constructors

ConsensusInitializeBlockRequest 

Fields

Instances

Instances details
Eq ConsensusInitializeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusInitializeBlockRequest -> ConsensusInitializeBlockRequest -> Bool Source #

(/=) :: ConsensusInitializeBlockRequest -> ConsensusInitializeBlockRequest -> Bool Source #

Ord ConsensusInitializeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusInitializeBlockRequest -> ConsensusInitializeBlockRequest -> Ordering Source #

(<) :: ConsensusInitializeBlockRequest -> ConsensusInitializeBlockRequest -> Bool Source #

(<=) :: ConsensusInitializeBlockRequest -> ConsensusInitializeBlockRequest -> Bool Source #

(>) :: ConsensusInitializeBlockRequest -> ConsensusInitializeBlockRequest -> Bool Source #

(>=) :: ConsensusInitializeBlockRequest -> ConsensusInitializeBlockRequest -> Bool Source #

max :: ConsensusInitializeBlockRequest -> ConsensusInitializeBlockRequest -> ConsensusInitializeBlockRequest Source #

min :: ConsensusInitializeBlockRequest -> ConsensusInitializeBlockRequest -> ConsensusInitializeBlockRequest Source #

Show ConsensusInitializeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusInitializeBlockRequest -> ShowS Source #

show :: ConsensusInitializeBlockRequest -> String Source #

showList :: [ConsensusInitializeBlockRequest] -> ShowS Source #

Generic ConsensusInitializeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusInitializeBlockRequest :: Type -> Type Source #

Methods

from :: ConsensusInitializeBlockRequest -> Rep ConsensusInitializeBlockRequest x Source #

to :: Rep ConsensusInitializeBlockRequest x -> ConsensusInitializeBlockRequest Source #

ToJSON ConsensusInitializeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusInitializeBlockRequest -> Value Source #

toEncoding :: ConsensusInitializeBlockRequest -> Encoding Source #

toJSONList :: [ConsensusInitializeBlockRequest] -> Value Source #

toEncodingList :: [ConsensusInitializeBlockRequest] -> Encoding Source #

FromJSON ConsensusInitializeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusInitializeBlockRequest Source #

parseJSONList :: Value -> Parser [ConsensusInitializeBlockRequest] Source #

NFData ConsensusInitializeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusInitializeBlockRequest -> () Source #

ToJSONPB ConsensusInitializeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusInitializeBlockRequest -> Options -> Value Source #

toEncodingPB :: ConsensusInitializeBlockRequest -> Options -> Encoding Source #

FromJSONPB ConsensusInitializeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusInitializeBlockRequest Source #

HasDefault ConsensusInitializeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusInitializeBlockRequest Source #

isDefault :: ConsensusInitializeBlockRequest -> Bool Source #

Named ConsensusInitializeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusInitializeBlockRequest -> string Source #

Message ConsensusInitializeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusInitializeBlockRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusInitializeBlockRequest Source #

dotProto :: Proxy# ConsensusInitializeBlockRequest -> [DotProtoField] Source #

ToSchema ConsensusInitializeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusInitializeBlockRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusInitializeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusInitializeBlockRequest = D1 ('MetaData "ConsensusInitializeBlockRequest" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'True) (C1 ('MetaCons "ConsensusInitializeBlockRequest" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusInitializeBlockRequestPreviousId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString)))

newtype ConsensusInitializeBlockResponse Source #

Constructors

ConsensusInitializeBlockResponse 

Fields

Instances

Instances details
Eq ConsensusInitializeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusInitializeBlockResponse -> ConsensusInitializeBlockResponse -> Bool Source #

(/=) :: ConsensusInitializeBlockResponse -> ConsensusInitializeBlockResponse -> Bool Source #

Ord ConsensusInitializeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusInitializeBlockResponse -> ConsensusInitializeBlockResponse -> Ordering Source #

(<) :: ConsensusInitializeBlockResponse -> ConsensusInitializeBlockResponse -> Bool Source #

(<=) :: ConsensusInitializeBlockResponse -> ConsensusInitializeBlockResponse -> Bool Source #

(>) :: ConsensusInitializeBlockResponse -> ConsensusInitializeBlockResponse -> Bool Source #

(>=) :: ConsensusInitializeBlockResponse -> ConsensusInitializeBlockResponse -> Bool Source #

max :: ConsensusInitializeBlockResponse -> ConsensusInitializeBlockResponse -> ConsensusInitializeBlockResponse Source #

min :: ConsensusInitializeBlockResponse -> ConsensusInitializeBlockResponse -> ConsensusInitializeBlockResponse Source #

Show ConsensusInitializeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusInitializeBlockResponse -> ShowS Source #

show :: ConsensusInitializeBlockResponse -> String Source #

showList :: [ConsensusInitializeBlockResponse] -> ShowS Source #

Generic ConsensusInitializeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusInitializeBlockResponse :: Type -> Type Source #

Methods

from :: ConsensusInitializeBlockResponse -> Rep ConsensusInitializeBlockResponse x Source #

to :: Rep ConsensusInitializeBlockResponse x -> ConsensusInitializeBlockResponse Source #

ToJSON ConsensusInitializeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusInitializeBlockResponse -> Value Source #

toEncoding :: ConsensusInitializeBlockResponse -> Encoding Source #

toJSONList :: [ConsensusInitializeBlockResponse] -> Value Source #

toEncodingList :: [ConsensusInitializeBlockResponse] -> Encoding Source #

FromJSON ConsensusInitializeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusInitializeBlockResponse Source #

parseJSONList :: Value -> Parser [ConsensusInitializeBlockResponse] Source #

NFData ConsensusInitializeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusInitializeBlockResponse -> () Source #

ToJSONPB ConsensusInitializeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusInitializeBlockResponse -> Options -> Value Source #

toEncodingPB :: ConsensusInitializeBlockResponse -> Options -> Encoding Source #

FromJSONPB ConsensusInitializeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusInitializeBlockResponse Source #

HasDefault ConsensusInitializeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusInitializeBlockResponse Source #

isDefault :: ConsensusInitializeBlockResponse -> Bool Source #

Named ConsensusInitializeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusInitializeBlockResponse -> string Source #

Message ConsensusInitializeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusInitializeBlockResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusInitializeBlockResponse Source #

dotProto :: Proxy# ConsensusInitializeBlockResponse -> [DotProtoField] Source #

ToSchema ConsensusInitializeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusInitializeBlockResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusInitializeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusInitializeBlockResponse = D1 ('MetaData "ConsensusInitializeBlockResponse" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'True) (C1 ('MetaCons "ConsensusInitializeBlockResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusInitializeBlockResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated ConsensusInitializeBlockResponse_Status))))

data ConsensusInitializeBlockResponse_Status Source #

Constructors

ConsensusInitializeBlockResponse_StatusSTATUS_UNSET 
ConsensusInitializeBlockResponse_StatusOK 
ConsensusInitializeBlockResponse_StatusBAD_REQUEST 
ConsensusInitializeBlockResponse_StatusSERVICE_ERROR 
ConsensusInitializeBlockResponse_StatusNOT_READY 
ConsensusInitializeBlockResponse_StatusINVALID_STATE 
ConsensusInitializeBlockResponse_StatusUNKNOWN_BLOCK 
ConsensusInitializeBlockResponse_StatusNOT_ACTIVE_ENGINE 

Instances

Instances details
Bounded ConsensusInitializeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

minBound :: ConsensusInitializeBlockResponse_Status Source #

maxBound :: ConsensusInitializeBlockResponse_Status Source #

Eq ConsensusInitializeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusInitializeBlockResponse_Status -> ConsensusInitializeBlockResponse_Status -> Bool Source #

(/=) :: ConsensusInitializeBlockResponse_Status -> ConsensusInitializeBlockResponse_Status -> Bool Source #

Ord ConsensusInitializeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusInitializeBlockResponse_Status -> ConsensusInitializeBlockResponse_Status -> Ordering Source #

(<) :: ConsensusInitializeBlockResponse_Status -> ConsensusInitializeBlockResponse_Status -> Bool Source #

(<=) :: ConsensusInitializeBlockResponse_Status -> ConsensusInitializeBlockResponse_Status -> Bool Source #

(>) :: ConsensusInitializeBlockResponse_Status -> ConsensusInitializeBlockResponse_Status -> Bool Source #

(>=) :: ConsensusInitializeBlockResponse_Status -> ConsensusInitializeBlockResponse_Status -> Bool Source #

max :: ConsensusInitializeBlockResponse_Status -> ConsensusInitializeBlockResponse_Status -> ConsensusInitializeBlockResponse_Status Source #

min :: ConsensusInitializeBlockResponse_Status -> ConsensusInitializeBlockResponse_Status -> ConsensusInitializeBlockResponse_Status Source #

Show ConsensusInitializeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusInitializeBlockResponse_Status -> ShowS Source #

show :: ConsensusInitializeBlockResponse_Status -> String Source #

showList :: [ConsensusInitializeBlockResponse_Status] -> ShowS Source #

Generic ConsensusInitializeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusInitializeBlockResponse_Status :: Type -> Type Source #

Methods

from :: ConsensusInitializeBlockResponse_Status -> Rep ConsensusInitializeBlockResponse_Status x Source #

to :: Rep ConsensusInitializeBlockResponse_Status x -> ConsensusInitializeBlockResponse_Status Source #

ToJSON ConsensusInitializeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusInitializeBlockResponse_Status -> Value Source #

toEncoding :: ConsensusInitializeBlockResponse_Status -> Encoding Source #

toJSONList :: [ConsensusInitializeBlockResponse_Status] -> Value Source #

toEncodingList :: [ConsensusInitializeBlockResponse_Status] -> Encoding Source #

FromJSON ConsensusInitializeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusInitializeBlockResponse_Status Source #

parseJSONList :: Value -> Parser [ConsensusInitializeBlockResponse_Status] Source #

NFData ConsensusInitializeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusInitializeBlockResponse_Status -> () Source #

ProtoEnum ConsensusInitializeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toProtoEnumMay :: Int32 -> Maybe ConsensusInitializeBlockResponse_Status Source #

fromProtoEnum :: ConsensusInitializeBlockResponse_Status -> Int32 Source #

ToJSONPB ConsensusInitializeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusInitializeBlockResponse_Status -> Options -> Value Source #

toEncodingPB :: ConsensusInitializeBlockResponse_Status -> Options -> Encoding Source #

FromJSONPB ConsensusInitializeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusInitializeBlockResponse_Status Source #

HasDefault ConsensusInitializeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusInitializeBlockResponse_Status Source #

isDefault :: ConsensusInitializeBlockResponse_Status -> Bool Source #

Named ConsensusInitializeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusInitializeBlockResponse_Status -> string Source #

Finite ConsensusInitializeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

enumerate :: IsString string => Proxy# ConsensusInitializeBlockResponse_Status -> [(string, Int32)] Source #

type Rep ConsensusInitializeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusInitializeBlockResponse_Status = D1 ('MetaData "ConsensusInitializeBlockResponse_Status" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (((C1 ('MetaCons "ConsensusInitializeBlockResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusInitializeBlockResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ConsensusInitializeBlockResponse_StatusBAD_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusInitializeBlockResponse_StatusSERVICE_ERROR" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "ConsensusInitializeBlockResponse_StatusNOT_READY" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusInitializeBlockResponse_StatusINVALID_STATE" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ConsensusInitializeBlockResponse_StatusUNKNOWN_BLOCK" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusInitializeBlockResponse_StatusNOT_ACTIVE_ENGINE" 'PrefixI 'False) (U1 :: Type -> Type))))

data ConsensusSummarizeBlockRequest Source #

Constructors

ConsensusSummarizeBlockRequest 

Instances

Instances details
Eq ConsensusSummarizeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusSummarizeBlockRequest -> ConsensusSummarizeBlockRequest -> Bool Source #

(/=) :: ConsensusSummarizeBlockRequest -> ConsensusSummarizeBlockRequest -> Bool Source #

Ord ConsensusSummarizeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusSummarizeBlockRequest -> ConsensusSummarizeBlockRequest -> Ordering Source #

(<) :: ConsensusSummarizeBlockRequest -> ConsensusSummarizeBlockRequest -> Bool Source #

(<=) :: ConsensusSummarizeBlockRequest -> ConsensusSummarizeBlockRequest -> Bool Source #

(>) :: ConsensusSummarizeBlockRequest -> ConsensusSummarizeBlockRequest -> Bool Source #

(>=) :: ConsensusSummarizeBlockRequest -> ConsensusSummarizeBlockRequest -> Bool Source #

max :: ConsensusSummarizeBlockRequest -> ConsensusSummarizeBlockRequest -> ConsensusSummarizeBlockRequest Source #

min :: ConsensusSummarizeBlockRequest -> ConsensusSummarizeBlockRequest -> ConsensusSummarizeBlockRequest Source #

Show ConsensusSummarizeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusSummarizeBlockRequest -> ShowS Source #

show :: ConsensusSummarizeBlockRequest -> String Source #

showList :: [ConsensusSummarizeBlockRequest] -> ShowS Source #

Generic ConsensusSummarizeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusSummarizeBlockRequest :: Type -> Type Source #

Methods

from :: ConsensusSummarizeBlockRequest -> Rep ConsensusSummarizeBlockRequest x Source #

to :: Rep ConsensusSummarizeBlockRequest x -> ConsensusSummarizeBlockRequest Source #

ToJSON ConsensusSummarizeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusSummarizeBlockRequest -> Value Source #

toEncoding :: ConsensusSummarizeBlockRequest -> Encoding Source #

toJSONList :: [ConsensusSummarizeBlockRequest] -> Value Source #

toEncodingList :: [ConsensusSummarizeBlockRequest] -> Encoding Source #

FromJSON ConsensusSummarizeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusSummarizeBlockRequest Source #

parseJSONList :: Value -> Parser [ConsensusSummarizeBlockRequest] Source #

NFData ConsensusSummarizeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusSummarizeBlockRequest -> () Source #

ToJSONPB ConsensusSummarizeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusSummarizeBlockRequest -> Options -> Value Source #

toEncodingPB :: ConsensusSummarizeBlockRequest -> Options -> Encoding Source #

FromJSONPB ConsensusSummarizeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusSummarizeBlockRequest Source #

HasDefault ConsensusSummarizeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusSummarizeBlockRequest Source #

isDefault :: ConsensusSummarizeBlockRequest -> Bool Source #

Named ConsensusSummarizeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusSummarizeBlockRequest -> string Source #

Message ConsensusSummarizeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusSummarizeBlockRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusSummarizeBlockRequest Source #

dotProto :: Proxy# ConsensusSummarizeBlockRequest -> [DotProtoField] Source #

ToSchema ConsensusSummarizeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusSummarizeBlockRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusSummarizeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusSummarizeBlockRequest = D1 ('MetaData "ConsensusSummarizeBlockRequest" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "ConsensusSummarizeBlockRequest" 'PrefixI 'False) (U1 :: Type -> Type))

data ConsensusSummarizeBlockResponse Source #

Constructors

ConsensusSummarizeBlockResponse 

Fields

Instances

Instances details
Eq ConsensusSummarizeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusSummarizeBlockResponse -> ConsensusSummarizeBlockResponse -> Bool Source #

(/=) :: ConsensusSummarizeBlockResponse -> ConsensusSummarizeBlockResponse -> Bool Source #

Ord ConsensusSummarizeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusSummarizeBlockResponse -> ConsensusSummarizeBlockResponse -> Ordering Source #

(<) :: ConsensusSummarizeBlockResponse -> ConsensusSummarizeBlockResponse -> Bool Source #

(<=) :: ConsensusSummarizeBlockResponse -> ConsensusSummarizeBlockResponse -> Bool Source #

(>) :: ConsensusSummarizeBlockResponse -> ConsensusSummarizeBlockResponse -> Bool Source #

(>=) :: ConsensusSummarizeBlockResponse -> ConsensusSummarizeBlockResponse -> Bool Source #

max :: ConsensusSummarizeBlockResponse -> ConsensusSummarizeBlockResponse -> ConsensusSummarizeBlockResponse Source #

min :: ConsensusSummarizeBlockResponse -> ConsensusSummarizeBlockResponse -> ConsensusSummarizeBlockResponse Source #

Show ConsensusSummarizeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusSummarizeBlockResponse -> ShowS Source #

show :: ConsensusSummarizeBlockResponse -> String Source #

showList :: [ConsensusSummarizeBlockResponse] -> ShowS Source #

Generic ConsensusSummarizeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusSummarizeBlockResponse :: Type -> Type Source #

Methods

from :: ConsensusSummarizeBlockResponse -> Rep ConsensusSummarizeBlockResponse x Source #

to :: Rep ConsensusSummarizeBlockResponse x -> ConsensusSummarizeBlockResponse Source #

ToJSON ConsensusSummarizeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusSummarizeBlockResponse -> Value Source #

toEncoding :: ConsensusSummarizeBlockResponse -> Encoding Source #

toJSONList :: [ConsensusSummarizeBlockResponse] -> Value Source #

toEncodingList :: [ConsensusSummarizeBlockResponse] -> Encoding Source #

FromJSON ConsensusSummarizeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusSummarizeBlockResponse Source #

parseJSONList :: Value -> Parser [ConsensusSummarizeBlockResponse] Source #

NFData ConsensusSummarizeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusSummarizeBlockResponse -> () Source #

ToJSONPB ConsensusSummarizeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusSummarizeBlockResponse -> Options -> Value Source #

toEncodingPB :: ConsensusSummarizeBlockResponse -> Options -> Encoding Source #

FromJSONPB ConsensusSummarizeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusSummarizeBlockResponse Source #

HasDefault ConsensusSummarizeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusSummarizeBlockResponse Source #

isDefault :: ConsensusSummarizeBlockResponse -> Bool Source #

Named ConsensusSummarizeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusSummarizeBlockResponse -> string Source #

Message ConsensusSummarizeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusSummarizeBlockResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusSummarizeBlockResponse Source #

dotProto :: Proxy# ConsensusSummarizeBlockResponse -> [DotProtoField] Source #

ToSchema ConsensusSummarizeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusSummarizeBlockResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusSummarizeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusSummarizeBlockResponse = D1 ('MetaData "ConsensusSummarizeBlockResponse" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "ConsensusSummarizeBlockResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusSummarizeBlockResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated ConsensusSummarizeBlockResponse_Status)) :*: S1 ('MetaSel ('Just "consensusSummarizeBlockResponseSummary") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString)))

data ConsensusSummarizeBlockResponse_Status Source #

Constructors

ConsensusSummarizeBlockResponse_StatusSTATUS_UNSET 
ConsensusSummarizeBlockResponse_StatusOK 
ConsensusSummarizeBlockResponse_StatusBAD_REQUEST 
ConsensusSummarizeBlockResponse_StatusSERVICE_ERROR 
ConsensusSummarizeBlockResponse_StatusNOT_READY 
ConsensusSummarizeBlockResponse_StatusINVALID_STATE 
ConsensusSummarizeBlockResponse_StatusBLOCK_NOT_READY 
ConsensusSummarizeBlockResponse_StatusNOT_ACTIVE_ENGINE 

Instances

Instances details
Bounded ConsensusSummarizeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

minBound :: ConsensusSummarizeBlockResponse_Status Source #

maxBound :: ConsensusSummarizeBlockResponse_Status Source #

Eq ConsensusSummarizeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusSummarizeBlockResponse_Status -> ConsensusSummarizeBlockResponse_Status -> Bool Source #

(/=) :: ConsensusSummarizeBlockResponse_Status -> ConsensusSummarizeBlockResponse_Status -> Bool Source #

Ord ConsensusSummarizeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusSummarizeBlockResponse_Status -> ConsensusSummarizeBlockResponse_Status -> Ordering Source #

(<) :: ConsensusSummarizeBlockResponse_Status -> ConsensusSummarizeBlockResponse_Status -> Bool Source #

(<=) :: ConsensusSummarizeBlockResponse_Status -> ConsensusSummarizeBlockResponse_Status -> Bool Source #

(>) :: ConsensusSummarizeBlockResponse_Status -> ConsensusSummarizeBlockResponse_Status -> Bool Source #

(>=) :: ConsensusSummarizeBlockResponse_Status -> ConsensusSummarizeBlockResponse_Status -> Bool Source #

max :: ConsensusSummarizeBlockResponse_Status -> ConsensusSummarizeBlockResponse_Status -> ConsensusSummarizeBlockResponse_Status Source #

min :: ConsensusSummarizeBlockResponse_Status -> ConsensusSummarizeBlockResponse_Status -> ConsensusSummarizeBlockResponse_Status Source #

Show ConsensusSummarizeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusSummarizeBlockResponse_Status -> ShowS Source #

show :: ConsensusSummarizeBlockResponse_Status -> String Source #

showList :: [ConsensusSummarizeBlockResponse_Status] -> ShowS Source #

Generic ConsensusSummarizeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusSummarizeBlockResponse_Status :: Type -> Type Source #

Methods

from :: ConsensusSummarizeBlockResponse_Status -> Rep ConsensusSummarizeBlockResponse_Status x Source #

to :: Rep ConsensusSummarizeBlockResponse_Status x -> ConsensusSummarizeBlockResponse_Status Source #

ToJSON ConsensusSummarizeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusSummarizeBlockResponse_Status -> Value Source #

toEncoding :: ConsensusSummarizeBlockResponse_Status -> Encoding Source #

toJSONList :: [ConsensusSummarizeBlockResponse_Status] -> Value Source #

toEncodingList :: [ConsensusSummarizeBlockResponse_Status] -> Encoding Source #

FromJSON ConsensusSummarizeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusSummarizeBlockResponse_Status Source #

parseJSONList :: Value -> Parser [ConsensusSummarizeBlockResponse_Status] Source #

NFData ConsensusSummarizeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusSummarizeBlockResponse_Status -> () Source #

ProtoEnum ConsensusSummarizeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toProtoEnumMay :: Int32 -> Maybe ConsensusSummarizeBlockResponse_Status Source #

fromProtoEnum :: ConsensusSummarizeBlockResponse_Status -> Int32 Source #

ToJSONPB ConsensusSummarizeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusSummarizeBlockResponse_Status -> Options -> Value Source #

toEncodingPB :: ConsensusSummarizeBlockResponse_Status -> Options -> Encoding Source #

FromJSONPB ConsensusSummarizeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusSummarizeBlockResponse_Status Source #

HasDefault ConsensusSummarizeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusSummarizeBlockResponse_Status Source #

isDefault :: ConsensusSummarizeBlockResponse_Status -> Bool Source #

Named ConsensusSummarizeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusSummarizeBlockResponse_Status -> string Source #

Finite ConsensusSummarizeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

enumerate :: IsString string => Proxy# ConsensusSummarizeBlockResponse_Status -> [(string, Int32)] Source #

type Rep ConsensusSummarizeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusSummarizeBlockResponse_Status = D1 ('MetaData "ConsensusSummarizeBlockResponse_Status" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (((C1 ('MetaCons "ConsensusSummarizeBlockResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusSummarizeBlockResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ConsensusSummarizeBlockResponse_StatusBAD_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusSummarizeBlockResponse_StatusSERVICE_ERROR" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "ConsensusSummarizeBlockResponse_StatusNOT_READY" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusSummarizeBlockResponse_StatusINVALID_STATE" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ConsensusSummarizeBlockResponse_StatusBLOCK_NOT_READY" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusSummarizeBlockResponse_StatusNOT_ACTIVE_ENGINE" 'PrefixI 'False) (U1 :: Type -> Type))))

newtype ConsensusFinalizeBlockRequest Source #

Constructors

ConsensusFinalizeBlockRequest 

Fields

Instances

Instances details
Eq ConsensusFinalizeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusFinalizeBlockRequest -> ConsensusFinalizeBlockRequest -> Bool Source #

(/=) :: ConsensusFinalizeBlockRequest -> ConsensusFinalizeBlockRequest -> Bool Source #

Ord ConsensusFinalizeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusFinalizeBlockRequest -> ConsensusFinalizeBlockRequest -> Ordering Source #

(<) :: ConsensusFinalizeBlockRequest -> ConsensusFinalizeBlockRequest -> Bool Source #

(<=) :: ConsensusFinalizeBlockRequest -> ConsensusFinalizeBlockRequest -> Bool Source #

(>) :: ConsensusFinalizeBlockRequest -> ConsensusFinalizeBlockRequest -> Bool Source #

(>=) :: ConsensusFinalizeBlockRequest -> ConsensusFinalizeBlockRequest -> Bool Source #

max :: ConsensusFinalizeBlockRequest -> ConsensusFinalizeBlockRequest -> ConsensusFinalizeBlockRequest Source #

min :: ConsensusFinalizeBlockRequest -> ConsensusFinalizeBlockRequest -> ConsensusFinalizeBlockRequest Source #

Show ConsensusFinalizeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusFinalizeBlockRequest -> ShowS Source #

show :: ConsensusFinalizeBlockRequest -> String Source #

showList :: [ConsensusFinalizeBlockRequest] -> ShowS Source #

Generic ConsensusFinalizeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusFinalizeBlockRequest :: Type -> Type Source #

Methods

from :: ConsensusFinalizeBlockRequest -> Rep ConsensusFinalizeBlockRequest x Source #

to :: Rep ConsensusFinalizeBlockRequest x -> ConsensusFinalizeBlockRequest Source #

ToJSON ConsensusFinalizeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusFinalizeBlockRequest -> Value Source #

toEncoding :: ConsensusFinalizeBlockRequest -> Encoding Source #

toJSONList :: [ConsensusFinalizeBlockRequest] -> Value Source #

toEncodingList :: [ConsensusFinalizeBlockRequest] -> Encoding Source #

FromJSON ConsensusFinalizeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusFinalizeBlockRequest Source #

parseJSONList :: Value -> Parser [ConsensusFinalizeBlockRequest] Source #

NFData ConsensusFinalizeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusFinalizeBlockRequest -> () Source #

ToJSONPB ConsensusFinalizeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusFinalizeBlockRequest -> Options -> Value Source #

toEncodingPB :: ConsensusFinalizeBlockRequest -> Options -> Encoding Source #

FromJSONPB ConsensusFinalizeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusFinalizeBlockRequest Source #

HasDefault ConsensusFinalizeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusFinalizeBlockRequest Source #

isDefault :: ConsensusFinalizeBlockRequest -> Bool Source #

Named ConsensusFinalizeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusFinalizeBlockRequest -> string Source #

Message ConsensusFinalizeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusFinalizeBlockRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusFinalizeBlockRequest Source #

dotProto :: Proxy# ConsensusFinalizeBlockRequest -> [DotProtoField] Source #

ToSchema ConsensusFinalizeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusFinalizeBlockRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusFinalizeBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusFinalizeBlockRequest = D1 ('MetaData "ConsensusFinalizeBlockRequest" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'True) (C1 ('MetaCons "ConsensusFinalizeBlockRequest" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusFinalizeBlockRequestData") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString)))

data ConsensusFinalizeBlockResponse Source #

Constructors

ConsensusFinalizeBlockResponse 

Fields

Instances

Instances details
Eq ConsensusFinalizeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusFinalizeBlockResponse -> ConsensusFinalizeBlockResponse -> Bool Source #

(/=) :: ConsensusFinalizeBlockResponse -> ConsensusFinalizeBlockResponse -> Bool Source #

Ord ConsensusFinalizeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusFinalizeBlockResponse -> ConsensusFinalizeBlockResponse -> Ordering Source #

(<) :: ConsensusFinalizeBlockResponse -> ConsensusFinalizeBlockResponse -> Bool Source #

(<=) :: ConsensusFinalizeBlockResponse -> ConsensusFinalizeBlockResponse -> Bool Source #

(>) :: ConsensusFinalizeBlockResponse -> ConsensusFinalizeBlockResponse -> Bool Source #

(>=) :: ConsensusFinalizeBlockResponse -> ConsensusFinalizeBlockResponse -> Bool Source #

max :: ConsensusFinalizeBlockResponse -> ConsensusFinalizeBlockResponse -> ConsensusFinalizeBlockResponse Source #

min :: ConsensusFinalizeBlockResponse -> ConsensusFinalizeBlockResponse -> ConsensusFinalizeBlockResponse Source #

Show ConsensusFinalizeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusFinalizeBlockResponse -> ShowS Source #

show :: ConsensusFinalizeBlockResponse -> String Source #

showList :: [ConsensusFinalizeBlockResponse] -> ShowS Source #

Generic ConsensusFinalizeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusFinalizeBlockResponse :: Type -> Type Source #

Methods

from :: ConsensusFinalizeBlockResponse -> Rep ConsensusFinalizeBlockResponse x Source #

to :: Rep ConsensusFinalizeBlockResponse x -> ConsensusFinalizeBlockResponse Source #

ToJSON ConsensusFinalizeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusFinalizeBlockResponse -> Value Source #

toEncoding :: ConsensusFinalizeBlockResponse -> Encoding Source #

toJSONList :: [ConsensusFinalizeBlockResponse] -> Value Source #

toEncodingList :: [ConsensusFinalizeBlockResponse] -> Encoding Source #

FromJSON ConsensusFinalizeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusFinalizeBlockResponse Source #

parseJSONList :: Value -> Parser [ConsensusFinalizeBlockResponse] Source #

NFData ConsensusFinalizeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusFinalizeBlockResponse -> () Source #

ToJSONPB ConsensusFinalizeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusFinalizeBlockResponse -> Options -> Value Source #

toEncodingPB :: ConsensusFinalizeBlockResponse -> Options -> Encoding Source #

FromJSONPB ConsensusFinalizeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusFinalizeBlockResponse Source #

HasDefault ConsensusFinalizeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusFinalizeBlockResponse Source #

isDefault :: ConsensusFinalizeBlockResponse -> Bool Source #

Named ConsensusFinalizeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusFinalizeBlockResponse -> string Source #

Message ConsensusFinalizeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusFinalizeBlockResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusFinalizeBlockResponse Source #

dotProto :: Proxy# ConsensusFinalizeBlockResponse -> [DotProtoField] Source #

ToSchema ConsensusFinalizeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusFinalizeBlockResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusFinalizeBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusFinalizeBlockResponse = D1 ('MetaData "ConsensusFinalizeBlockResponse" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "ConsensusFinalizeBlockResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusFinalizeBlockResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated ConsensusFinalizeBlockResponse_Status)) :*: S1 ('MetaSel ('Just "consensusFinalizeBlockResponseBlockId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString)))

data ConsensusFinalizeBlockResponse_Status Source #

Constructors

ConsensusFinalizeBlockResponse_StatusSTATUS_UNSET 
ConsensusFinalizeBlockResponse_StatusOK 
ConsensusFinalizeBlockResponse_StatusBAD_REQUEST 
ConsensusFinalizeBlockResponse_StatusSERVICE_ERROR 
ConsensusFinalizeBlockResponse_StatusNOT_READY 
ConsensusFinalizeBlockResponse_StatusINVALID_STATE 
ConsensusFinalizeBlockResponse_StatusBLOCK_NOT_READY 
ConsensusFinalizeBlockResponse_StatusNOT_ACTIVE_ENGINE 

Instances

Instances details
Bounded ConsensusFinalizeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

minBound :: ConsensusFinalizeBlockResponse_Status Source #

maxBound :: ConsensusFinalizeBlockResponse_Status Source #

Eq ConsensusFinalizeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusFinalizeBlockResponse_Status -> ConsensusFinalizeBlockResponse_Status -> Bool Source #

(/=) :: ConsensusFinalizeBlockResponse_Status -> ConsensusFinalizeBlockResponse_Status -> Bool Source #

Ord ConsensusFinalizeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusFinalizeBlockResponse_Status -> ConsensusFinalizeBlockResponse_Status -> Ordering Source #

(<) :: ConsensusFinalizeBlockResponse_Status -> ConsensusFinalizeBlockResponse_Status -> Bool Source #

(<=) :: ConsensusFinalizeBlockResponse_Status -> ConsensusFinalizeBlockResponse_Status -> Bool Source #

(>) :: ConsensusFinalizeBlockResponse_Status -> ConsensusFinalizeBlockResponse_Status -> Bool Source #

(>=) :: ConsensusFinalizeBlockResponse_Status -> ConsensusFinalizeBlockResponse_Status -> Bool Source #

max :: ConsensusFinalizeBlockResponse_Status -> ConsensusFinalizeBlockResponse_Status -> ConsensusFinalizeBlockResponse_Status Source #

min :: ConsensusFinalizeBlockResponse_Status -> ConsensusFinalizeBlockResponse_Status -> ConsensusFinalizeBlockResponse_Status Source #

Show ConsensusFinalizeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusFinalizeBlockResponse_Status -> ShowS Source #

show :: ConsensusFinalizeBlockResponse_Status -> String Source #

showList :: [ConsensusFinalizeBlockResponse_Status] -> ShowS Source #

Generic ConsensusFinalizeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusFinalizeBlockResponse_Status :: Type -> Type Source #

Methods

from :: ConsensusFinalizeBlockResponse_Status -> Rep ConsensusFinalizeBlockResponse_Status x Source #

to :: Rep ConsensusFinalizeBlockResponse_Status x -> ConsensusFinalizeBlockResponse_Status Source #

ToJSON ConsensusFinalizeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusFinalizeBlockResponse_Status -> Value Source #

toEncoding :: ConsensusFinalizeBlockResponse_Status -> Encoding Source #

toJSONList :: [ConsensusFinalizeBlockResponse_Status] -> Value Source #

toEncodingList :: [ConsensusFinalizeBlockResponse_Status] -> Encoding Source #

FromJSON ConsensusFinalizeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusFinalizeBlockResponse_Status Source #

parseJSONList :: Value -> Parser [ConsensusFinalizeBlockResponse_Status] Source #

NFData ConsensusFinalizeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusFinalizeBlockResponse_Status -> () Source #

ProtoEnum ConsensusFinalizeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toProtoEnumMay :: Int32 -> Maybe ConsensusFinalizeBlockResponse_Status Source #

fromProtoEnum :: ConsensusFinalizeBlockResponse_Status -> Int32 Source #

ToJSONPB ConsensusFinalizeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusFinalizeBlockResponse_Status -> Options -> Value Source #

toEncodingPB :: ConsensusFinalizeBlockResponse_Status -> Options -> Encoding Source #

FromJSONPB ConsensusFinalizeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusFinalizeBlockResponse_Status Source #

HasDefault ConsensusFinalizeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusFinalizeBlockResponse_Status Source #

isDefault :: ConsensusFinalizeBlockResponse_Status -> Bool Source #

Named ConsensusFinalizeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusFinalizeBlockResponse_Status -> string Source #

Finite ConsensusFinalizeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

enumerate :: IsString string => Proxy# ConsensusFinalizeBlockResponse_Status -> [(string, Int32)] Source #

type Rep ConsensusFinalizeBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusFinalizeBlockResponse_Status = D1 ('MetaData "ConsensusFinalizeBlockResponse_Status" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (((C1 ('MetaCons "ConsensusFinalizeBlockResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusFinalizeBlockResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ConsensusFinalizeBlockResponse_StatusBAD_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusFinalizeBlockResponse_StatusSERVICE_ERROR" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "ConsensusFinalizeBlockResponse_StatusNOT_READY" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusFinalizeBlockResponse_StatusINVALID_STATE" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ConsensusFinalizeBlockResponse_StatusBLOCK_NOT_READY" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusFinalizeBlockResponse_StatusNOT_ACTIVE_ENGINE" 'PrefixI 'False) (U1 :: Type -> Type))))

data ConsensusCancelBlockRequest Source #

Constructors

ConsensusCancelBlockRequest 

Instances

Instances details
Eq ConsensusCancelBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusCancelBlockRequest -> ConsensusCancelBlockRequest -> Bool Source #

(/=) :: ConsensusCancelBlockRequest -> ConsensusCancelBlockRequest -> Bool Source #

Ord ConsensusCancelBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusCancelBlockRequest -> ConsensusCancelBlockRequest -> Ordering Source #

(<) :: ConsensusCancelBlockRequest -> ConsensusCancelBlockRequest -> Bool Source #

(<=) :: ConsensusCancelBlockRequest -> ConsensusCancelBlockRequest -> Bool Source #

(>) :: ConsensusCancelBlockRequest -> ConsensusCancelBlockRequest -> Bool Source #

(>=) :: ConsensusCancelBlockRequest -> ConsensusCancelBlockRequest -> Bool Source #

max :: ConsensusCancelBlockRequest -> ConsensusCancelBlockRequest -> ConsensusCancelBlockRequest Source #

min :: ConsensusCancelBlockRequest -> ConsensusCancelBlockRequest -> ConsensusCancelBlockRequest Source #

Show ConsensusCancelBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusCancelBlockRequest -> ShowS Source #

show :: ConsensusCancelBlockRequest -> String Source #

showList :: [ConsensusCancelBlockRequest] -> ShowS Source #

Generic ConsensusCancelBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusCancelBlockRequest :: Type -> Type Source #

Methods

from :: ConsensusCancelBlockRequest -> Rep ConsensusCancelBlockRequest x Source #

to :: Rep ConsensusCancelBlockRequest x -> ConsensusCancelBlockRequest Source #

ToJSON ConsensusCancelBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusCancelBlockRequest -> Value Source #

toEncoding :: ConsensusCancelBlockRequest -> Encoding Source #

toJSONList :: [ConsensusCancelBlockRequest] -> Value Source #

toEncodingList :: [ConsensusCancelBlockRequest] -> Encoding Source #

FromJSON ConsensusCancelBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusCancelBlockRequest Source #

parseJSONList :: Value -> Parser [ConsensusCancelBlockRequest] Source #

NFData ConsensusCancelBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusCancelBlockRequest -> () Source #

ToJSONPB ConsensusCancelBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusCancelBlockRequest -> Options -> Value Source #

toEncodingPB :: ConsensusCancelBlockRequest -> Options -> Encoding Source #

FromJSONPB ConsensusCancelBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusCancelBlockRequest Source #

HasDefault ConsensusCancelBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusCancelBlockRequest Source #

isDefault :: ConsensusCancelBlockRequest -> Bool Source #

Named ConsensusCancelBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusCancelBlockRequest -> string Source #

Message ConsensusCancelBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusCancelBlockRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusCancelBlockRequest Source #

dotProto :: Proxy# ConsensusCancelBlockRequest -> [DotProtoField] Source #

ToSchema ConsensusCancelBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusCancelBlockRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusCancelBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusCancelBlockRequest = D1 ('MetaData "ConsensusCancelBlockRequest" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "ConsensusCancelBlockRequest" 'PrefixI 'False) (U1 :: Type -> Type))

newtype ConsensusCancelBlockResponse Source #

Constructors

ConsensusCancelBlockResponse 

Fields

Instances

Instances details
Eq ConsensusCancelBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusCancelBlockResponse -> ConsensusCancelBlockResponse -> Bool Source #

(/=) :: ConsensusCancelBlockResponse -> ConsensusCancelBlockResponse -> Bool Source #

Ord ConsensusCancelBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusCancelBlockResponse -> ConsensusCancelBlockResponse -> Ordering Source #

(<) :: ConsensusCancelBlockResponse -> ConsensusCancelBlockResponse -> Bool Source #

(<=) :: ConsensusCancelBlockResponse -> ConsensusCancelBlockResponse -> Bool Source #

(>) :: ConsensusCancelBlockResponse -> ConsensusCancelBlockResponse -> Bool Source #

(>=) :: ConsensusCancelBlockResponse -> ConsensusCancelBlockResponse -> Bool Source #

max :: ConsensusCancelBlockResponse -> ConsensusCancelBlockResponse -> ConsensusCancelBlockResponse Source #

min :: ConsensusCancelBlockResponse -> ConsensusCancelBlockResponse -> ConsensusCancelBlockResponse Source #

Show ConsensusCancelBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusCancelBlockResponse -> ShowS Source #

show :: ConsensusCancelBlockResponse -> String Source #

showList :: [ConsensusCancelBlockResponse] -> ShowS Source #

Generic ConsensusCancelBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusCancelBlockResponse :: Type -> Type Source #

Methods

from :: ConsensusCancelBlockResponse -> Rep ConsensusCancelBlockResponse x Source #

to :: Rep ConsensusCancelBlockResponse x -> ConsensusCancelBlockResponse Source #

ToJSON ConsensusCancelBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusCancelBlockResponse -> Value Source #

toEncoding :: ConsensusCancelBlockResponse -> Encoding Source #

toJSONList :: [ConsensusCancelBlockResponse] -> Value Source #

toEncodingList :: [ConsensusCancelBlockResponse] -> Encoding Source #

FromJSON ConsensusCancelBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusCancelBlockResponse Source #

parseJSONList :: Value -> Parser [ConsensusCancelBlockResponse] Source #

NFData ConsensusCancelBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusCancelBlockResponse -> () Source #

ToJSONPB ConsensusCancelBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusCancelBlockResponse -> Options -> Value Source #

toEncodingPB :: ConsensusCancelBlockResponse -> Options -> Encoding Source #

FromJSONPB ConsensusCancelBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusCancelBlockResponse Source #

HasDefault ConsensusCancelBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusCancelBlockResponse Source #

isDefault :: ConsensusCancelBlockResponse -> Bool Source #

Named ConsensusCancelBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusCancelBlockResponse -> string Source #

Message ConsensusCancelBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusCancelBlockResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusCancelBlockResponse Source #

dotProto :: Proxy# ConsensusCancelBlockResponse -> [DotProtoField] Source #

ToSchema ConsensusCancelBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusCancelBlockResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusCancelBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusCancelBlockResponse = D1 ('MetaData "ConsensusCancelBlockResponse" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'True) (C1 ('MetaCons "ConsensusCancelBlockResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusCancelBlockResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated ConsensusCancelBlockResponse_Status))))

data ConsensusCancelBlockResponse_Status Source #

Constructors

ConsensusCancelBlockResponse_StatusSTATUS_UNSET 
ConsensusCancelBlockResponse_StatusOK 
ConsensusCancelBlockResponse_StatusBAD_REQUEST 
ConsensusCancelBlockResponse_StatusSERVICE_ERROR 
ConsensusCancelBlockResponse_StatusNOT_READY 
ConsensusCancelBlockResponse_StatusINVALID_STATE 
ConsensusCancelBlockResponse_StatusNOT_ACTIVE_ENGINE 

Instances

Instances details
Bounded ConsensusCancelBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

minBound :: ConsensusCancelBlockResponse_Status Source #

maxBound :: ConsensusCancelBlockResponse_Status Source #

Eq ConsensusCancelBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusCancelBlockResponse_Status -> ConsensusCancelBlockResponse_Status -> Bool Source #

(/=) :: ConsensusCancelBlockResponse_Status -> ConsensusCancelBlockResponse_Status -> Bool Source #

Ord ConsensusCancelBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusCancelBlockResponse_Status -> ConsensusCancelBlockResponse_Status -> Ordering Source #

(<) :: ConsensusCancelBlockResponse_Status -> ConsensusCancelBlockResponse_Status -> Bool Source #

(<=) :: ConsensusCancelBlockResponse_Status -> ConsensusCancelBlockResponse_Status -> Bool Source #

(>) :: ConsensusCancelBlockResponse_Status -> ConsensusCancelBlockResponse_Status -> Bool Source #

(>=) :: ConsensusCancelBlockResponse_Status -> ConsensusCancelBlockResponse_Status -> Bool Source #

max :: ConsensusCancelBlockResponse_Status -> ConsensusCancelBlockResponse_Status -> ConsensusCancelBlockResponse_Status Source #

min :: ConsensusCancelBlockResponse_Status -> ConsensusCancelBlockResponse_Status -> ConsensusCancelBlockResponse_Status Source #

Show ConsensusCancelBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusCancelBlockResponse_Status -> ShowS Source #

show :: ConsensusCancelBlockResponse_Status -> String Source #

showList :: [ConsensusCancelBlockResponse_Status] -> ShowS Source #

Generic ConsensusCancelBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusCancelBlockResponse_Status :: Type -> Type Source #

Methods

from :: ConsensusCancelBlockResponse_Status -> Rep ConsensusCancelBlockResponse_Status x Source #

to :: Rep ConsensusCancelBlockResponse_Status x -> ConsensusCancelBlockResponse_Status Source #

ToJSON ConsensusCancelBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusCancelBlockResponse_Status -> Value Source #

toEncoding :: ConsensusCancelBlockResponse_Status -> Encoding Source #

toJSONList :: [ConsensusCancelBlockResponse_Status] -> Value Source #

toEncodingList :: [ConsensusCancelBlockResponse_Status] -> Encoding Source #

FromJSON ConsensusCancelBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusCancelBlockResponse_Status Source #

parseJSONList :: Value -> Parser [ConsensusCancelBlockResponse_Status] Source #

NFData ConsensusCancelBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusCancelBlockResponse_Status -> () Source #

ProtoEnum ConsensusCancelBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toProtoEnumMay :: Int32 -> Maybe ConsensusCancelBlockResponse_Status Source #

fromProtoEnum :: ConsensusCancelBlockResponse_Status -> Int32 Source #

ToJSONPB ConsensusCancelBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusCancelBlockResponse_Status -> Options -> Value Source #

toEncodingPB :: ConsensusCancelBlockResponse_Status -> Options -> Encoding Source #

FromJSONPB ConsensusCancelBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusCancelBlockResponse_Status Source #

HasDefault ConsensusCancelBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusCancelBlockResponse_Status Source #

isDefault :: ConsensusCancelBlockResponse_Status -> Bool Source #

Named ConsensusCancelBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusCancelBlockResponse_Status -> string Source #

Finite ConsensusCancelBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

enumerate :: IsString string => Proxy# ConsensusCancelBlockResponse_Status -> [(string, Int32)] Source #

type Rep ConsensusCancelBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusCancelBlockResponse_Status = D1 ('MetaData "ConsensusCancelBlockResponse_Status" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) ((C1 ('MetaCons "ConsensusCancelBlockResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "ConsensusCancelBlockResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusCancelBlockResponse_StatusBAD_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "ConsensusCancelBlockResponse_StatusSERVICE_ERROR" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusCancelBlockResponse_StatusNOT_READY" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ConsensusCancelBlockResponse_StatusINVALID_STATE" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusCancelBlockResponse_StatusNOT_ACTIVE_ENGINE" 'PrefixI 'False) (U1 :: Type -> Type))))

newtype ConsensusCheckBlocksRequest Source #

Constructors

ConsensusCheckBlocksRequest 

Fields

Instances

Instances details
Eq ConsensusCheckBlocksRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusCheckBlocksRequest -> ConsensusCheckBlocksRequest -> Bool Source #

(/=) :: ConsensusCheckBlocksRequest -> ConsensusCheckBlocksRequest -> Bool Source #

Ord ConsensusCheckBlocksRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusCheckBlocksRequest -> ConsensusCheckBlocksRequest -> Ordering Source #

(<) :: ConsensusCheckBlocksRequest -> ConsensusCheckBlocksRequest -> Bool Source #

(<=) :: ConsensusCheckBlocksRequest -> ConsensusCheckBlocksRequest -> Bool Source #

(>) :: ConsensusCheckBlocksRequest -> ConsensusCheckBlocksRequest -> Bool Source #

(>=) :: ConsensusCheckBlocksRequest -> ConsensusCheckBlocksRequest -> Bool Source #

max :: ConsensusCheckBlocksRequest -> ConsensusCheckBlocksRequest -> ConsensusCheckBlocksRequest Source #

min :: ConsensusCheckBlocksRequest -> ConsensusCheckBlocksRequest -> ConsensusCheckBlocksRequest Source #

Show ConsensusCheckBlocksRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusCheckBlocksRequest -> ShowS Source #

show :: ConsensusCheckBlocksRequest -> String Source #

showList :: [ConsensusCheckBlocksRequest] -> ShowS Source #

Generic ConsensusCheckBlocksRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusCheckBlocksRequest :: Type -> Type Source #

Methods

from :: ConsensusCheckBlocksRequest -> Rep ConsensusCheckBlocksRequest x Source #

to :: Rep ConsensusCheckBlocksRequest x -> ConsensusCheckBlocksRequest Source #

ToJSON ConsensusCheckBlocksRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusCheckBlocksRequest -> Value Source #

toEncoding :: ConsensusCheckBlocksRequest -> Encoding Source #

toJSONList :: [ConsensusCheckBlocksRequest] -> Value Source #

toEncodingList :: [ConsensusCheckBlocksRequest] -> Encoding Source #

FromJSON ConsensusCheckBlocksRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusCheckBlocksRequest Source #

parseJSONList :: Value -> Parser [ConsensusCheckBlocksRequest] Source #

NFData ConsensusCheckBlocksRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusCheckBlocksRequest -> () Source #

ToJSONPB ConsensusCheckBlocksRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusCheckBlocksRequest -> Options -> Value Source #

toEncodingPB :: ConsensusCheckBlocksRequest -> Options -> Encoding Source #

FromJSONPB ConsensusCheckBlocksRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusCheckBlocksRequest Source #

HasDefault ConsensusCheckBlocksRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusCheckBlocksRequest Source #

isDefault :: ConsensusCheckBlocksRequest -> Bool Source #

Named ConsensusCheckBlocksRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusCheckBlocksRequest -> string Source #

Message ConsensusCheckBlocksRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusCheckBlocksRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusCheckBlocksRequest Source #

dotProto :: Proxy# ConsensusCheckBlocksRequest -> [DotProtoField] Source #

ToSchema ConsensusCheckBlocksRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusCheckBlocksRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusCheckBlocksRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusCheckBlocksRequest = D1 ('MetaData "ConsensusCheckBlocksRequest" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'True) (C1 ('MetaCons "ConsensusCheckBlocksRequest" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusCheckBlocksRequestBlockIds") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector ByteString))))

newtype ConsensusCheckBlocksResponse Source #

Constructors

ConsensusCheckBlocksResponse 

Fields

Instances

Instances details
Eq ConsensusCheckBlocksResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusCheckBlocksResponse -> ConsensusCheckBlocksResponse -> Bool Source #

(/=) :: ConsensusCheckBlocksResponse -> ConsensusCheckBlocksResponse -> Bool Source #

Ord ConsensusCheckBlocksResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusCheckBlocksResponse -> ConsensusCheckBlocksResponse -> Ordering Source #

(<) :: ConsensusCheckBlocksResponse -> ConsensusCheckBlocksResponse -> Bool Source #

(<=) :: ConsensusCheckBlocksResponse -> ConsensusCheckBlocksResponse -> Bool Source #

(>) :: ConsensusCheckBlocksResponse -> ConsensusCheckBlocksResponse -> Bool Source #

(>=) :: ConsensusCheckBlocksResponse -> ConsensusCheckBlocksResponse -> Bool Source #

max :: ConsensusCheckBlocksResponse -> ConsensusCheckBlocksResponse -> ConsensusCheckBlocksResponse Source #

min :: ConsensusCheckBlocksResponse -> ConsensusCheckBlocksResponse -> ConsensusCheckBlocksResponse Source #

Show ConsensusCheckBlocksResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusCheckBlocksResponse -> ShowS Source #

show :: ConsensusCheckBlocksResponse -> String Source #

showList :: [ConsensusCheckBlocksResponse] -> ShowS Source #

Generic ConsensusCheckBlocksResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusCheckBlocksResponse :: Type -> Type Source #

Methods

from :: ConsensusCheckBlocksResponse -> Rep ConsensusCheckBlocksResponse x Source #

to :: Rep ConsensusCheckBlocksResponse x -> ConsensusCheckBlocksResponse Source #

ToJSON ConsensusCheckBlocksResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusCheckBlocksResponse -> Value Source #

toEncoding :: ConsensusCheckBlocksResponse -> Encoding Source #

toJSONList :: [ConsensusCheckBlocksResponse] -> Value Source #

toEncodingList :: [ConsensusCheckBlocksResponse] -> Encoding Source #

FromJSON ConsensusCheckBlocksResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusCheckBlocksResponse Source #

parseJSONList :: Value -> Parser [ConsensusCheckBlocksResponse] Source #

NFData ConsensusCheckBlocksResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusCheckBlocksResponse -> () Source #

ToJSONPB ConsensusCheckBlocksResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusCheckBlocksResponse -> Options -> Value Source #

toEncodingPB :: ConsensusCheckBlocksResponse -> Options -> Encoding Source #

FromJSONPB ConsensusCheckBlocksResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusCheckBlocksResponse Source #

HasDefault ConsensusCheckBlocksResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusCheckBlocksResponse Source #

isDefault :: ConsensusCheckBlocksResponse -> Bool Source #

Named ConsensusCheckBlocksResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusCheckBlocksResponse -> string Source #

Message ConsensusCheckBlocksResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusCheckBlocksResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusCheckBlocksResponse Source #

dotProto :: Proxy# ConsensusCheckBlocksResponse -> [DotProtoField] Source #

ToSchema ConsensusCheckBlocksResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusCheckBlocksResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusCheckBlocksResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusCheckBlocksResponse = D1 ('MetaData "ConsensusCheckBlocksResponse" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'True) (C1 ('MetaCons "ConsensusCheckBlocksResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusCheckBlocksResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated ConsensusCheckBlocksResponse_Status))))

data ConsensusCheckBlocksResponse_Status Source #

Constructors

ConsensusCheckBlocksResponse_StatusSTATUS_UNSET 
ConsensusCheckBlocksResponse_StatusOK 
ConsensusCheckBlocksResponse_StatusBAD_REQUEST 
ConsensusCheckBlocksResponse_StatusSERVICE_ERROR 
ConsensusCheckBlocksResponse_StatusNOT_READY 
ConsensusCheckBlocksResponse_StatusUNKNOWN_BLOCK 
ConsensusCheckBlocksResponse_StatusNOT_ACTIVE_ENGINE 

Instances

Instances details
Bounded ConsensusCheckBlocksResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

minBound :: ConsensusCheckBlocksResponse_Status Source #

maxBound :: ConsensusCheckBlocksResponse_Status Source #

Eq ConsensusCheckBlocksResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusCheckBlocksResponse_Status -> ConsensusCheckBlocksResponse_Status -> Bool Source #

(/=) :: ConsensusCheckBlocksResponse_Status -> ConsensusCheckBlocksResponse_Status -> Bool Source #

Ord ConsensusCheckBlocksResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusCheckBlocksResponse_Status -> ConsensusCheckBlocksResponse_Status -> Ordering Source #

(<) :: ConsensusCheckBlocksResponse_Status -> ConsensusCheckBlocksResponse_Status -> Bool Source #

(<=) :: ConsensusCheckBlocksResponse_Status -> ConsensusCheckBlocksResponse_Status -> Bool Source #

(>) :: ConsensusCheckBlocksResponse_Status -> ConsensusCheckBlocksResponse_Status -> Bool Source #

(>=) :: ConsensusCheckBlocksResponse_Status -> ConsensusCheckBlocksResponse_Status -> Bool Source #

max :: ConsensusCheckBlocksResponse_Status -> ConsensusCheckBlocksResponse_Status -> ConsensusCheckBlocksResponse_Status Source #

min :: ConsensusCheckBlocksResponse_Status -> ConsensusCheckBlocksResponse_Status -> ConsensusCheckBlocksResponse_Status Source #

Show ConsensusCheckBlocksResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusCheckBlocksResponse_Status -> ShowS Source #

show :: ConsensusCheckBlocksResponse_Status -> String Source #

showList :: [ConsensusCheckBlocksResponse_Status] -> ShowS Source #

Generic ConsensusCheckBlocksResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusCheckBlocksResponse_Status :: Type -> Type Source #

Methods

from :: ConsensusCheckBlocksResponse_Status -> Rep ConsensusCheckBlocksResponse_Status x Source #

to :: Rep ConsensusCheckBlocksResponse_Status x -> ConsensusCheckBlocksResponse_Status Source #

ToJSON ConsensusCheckBlocksResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusCheckBlocksResponse_Status -> Value Source #

toEncoding :: ConsensusCheckBlocksResponse_Status -> Encoding Source #

toJSONList :: [ConsensusCheckBlocksResponse_Status] -> Value Source #

toEncodingList :: [ConsensusCheckBlocksResponse_Status] -> Encoding Source #

FromJSON ConsensusCheckBlocksResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusCheckBlocksResponse_Status Source #

parseJSONList :: Value -> Parser [ConsensusCheckBlocksResponse_Status] Source #

NFData ConsensusCheckBlocksResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusCheckBlocksResponse_Status -> () Source #

ProtoEnum ConsensusCheckBlocksResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toProtoEnumMay :: Int32 -> Maybe ConsensusCheckBlocksResponse_Status Source #

fromProtoEnum :: ConsensusCheckBlocksResponse_Status -> Int32 Source #

ToJSONPB ConsensusCheckBlocksResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusCheckBlocksResponse_Status -> Options -> Value Source #

toEncodingPB :: ConsensusCheckBlocksResponse_Status -> Options -> Encoding Source #

FromJSONPB ConsensusCheckBlocksResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusCheckBlocksResponse_Status Source #

HasDefault ConsensusCheckBlocksResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusCheckBlocksResponse_Status Source #

isDefault :: ConsensusCheckBlocksResponse_Status -> Bool Source #

Named ConsensusCheckBlocksResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusCheckBlocksResponse_Status -> string Source #

Finite ConsensusCheckBlocksResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

enumerate :: IsString string => Proxy# ConsensusCheckBlocksResponse_Status -> [(string, Int32)] Source #

type Rep ConsensusCheckBlocksResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusCheckBlocksResponse_Status = D1 ('MetaData "ConsensusCheckBlocksResponse_Status" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) ((C1 ('MetaCons "ConsensusCheckBlocksResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "ConsensusCheckBlocksResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusCheckBlocksResponse_StatusBAD_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "ConsensusCheckBlocksResponse_StatusSERVICE_ERROR" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusCheckBlocksResponse_StatusNOT_READY" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ConsensusCheckBlocksResponse_StatusUNKNOWN_BLOCK" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusCheckBlocksResponse_StatusNOT_ACTIVE_ENGINE" 'PrefixI 'False) (U1 :: Type -> Type))))

newtype ConsensusCommitBlockRequest Source #

Constructors

ConsensusCommitBlockRequest 

Fields

Instances

Instances details
Eq ConsensusCommitBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusCommitBlockRequest -> ConsensusCommitBlockRequest -> Bool Source #

(/=) :: ConsensusCommitBlockRequest -> ConsensusCommitBlockRequest -> Bool Source #

Ord ConsensusCommitBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusCommitBlockRequest -> ConsensusCommitBlockRequest -> Ordering Source #

(<) :: ConsensusCommitBlockRequest -> ConsensusCommitBlockRequest -> Bool Source #

(<=) :: ConsensusCommitBlockRequest -> ConsensusCommitBlockRequest -> Bool Source #

(>) :: ConsensusCommitBlockRequest -> ConsensusCommitBlockRequest -> Bool Source #

(>=) :: ConsensusCommitBlockRequest -> ConsensusCommitBlockRequest -> Bool Source #

max :: ConsensusCommitBlockRequest -> ConsensusCommitBlockRequest -> ConsensusCommitBlockRequest Source #

min :: ConsensusCommitBlockRequest -> ConsensusCommitBlockRequest -> ConsensusCommitBlockRequest Source #

Show ConsensusCommitBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusCommitBlockRequest -> ShowS Source #

show :: ConsensusCommitBlockRequest -> String Source #

showList :: [ConsensusCommitBlockRequest] -> ShowS Source #

Generic ConsensusCommitBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusCommitBlockRequest :: Type -> Type Source #

Methods

from :: ConsensusCommitBlockRequest -> Rep ConsensusCommitBlockRequest x Source #

to :: Rep ConsensusCommitBlockRequest x -> ConsensusCommitBlockRequest Source #

ToJSON ConsensusCommitBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusCommitBlockRequest -> Value Source #

toEncoding :: ConsensusCommitBlockRequest -> Encoding Source #

toJSONList :: [ConsensusCommitBlockRequest] -> Value Source #

toEncodingList :: [ConsensusCommitBlockRequest] -> Encoding Source #

FromJSON ConsensusCommitBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusCommitBlockRequest Source #

parseJSONList :: Value -> Parser [ConsensusCommitBlockRequest] Source #

NFData ConsensusCommitBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusCommitBlockRequest -> () Source #

ToJSONPB ConsensusCommitBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusCommitBlockRequest -> Options -> Value Source #

toEncodingPB :: ConsensusCommitBlockRequest -> Options -> Encoding Source #

FromJSONPB ConsensusCommitBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusCommitBlockRequest Source #

HasDefault ConsensusCommitBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusCommitBlockRequest Source #

isDefault :: ConsensusCommitBlockRequest -> Bool Source #

Named ConsensusCommitBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusCommitBlockRequest -> string Source #

Message ConsensusCommitBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusCommitBlockRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusCommitBlockRequest Source #

dotProto :: Proxy# ConsensusCommitBlockRequest -> [DotProtoField] Source #

ToSchema ConsensusCommitBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusCommitBlockRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusCommitBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusCommitBlockRequest = D1 ('MetaData "ConsensusCommitBlockRequest" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'True) (C1 ('MetaCons "ConsensusCommitBlockRequest" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusCommitBlockRequestBlockId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString)))

newtype ConsensusCommitBlockResponse Source #

Constructors

ConsensusCommitBlockResponse 

Fields

Instances

Instances details
Eq ConsensusCommitBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusCommitBlockResponse -> ConsensusCommitBlockResponse -> Bool Source #

(/=) :: ConsensusCommitBlockResponse -> ConsensusCommitBlockResponse -> Bool Source #

Ord ConsensusCommitBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusCommitBlockResponse -> ConsensusCommitBlockResponse -> Ordering Source #

(<) :: ConsensusCommitBlockResponse -> ConsensusCommitBlockResponse -> Bool Source #

(<=) :: ConsensusCommitBlockResponse -> ConsensusCommitBlockResponse -> Bool Source #

(>) :: ConsensusCommitBlockResponse -> ConsensusCommitBlockResponse -> Bool Source #

(>=) :: ConsensusCommitBlockResponse -> ConsensusCommitBlockResponse -> Bool Source #

max :: ConsensusCommitBlockResponse -> ConsensusCommitBlockResponse -> ConsensusCommitBlockResponse Source #

min :: ConsensusCommitBlockResponse -> ConsensusCommitBlockResponse -> ConsensusCommitBlockResponse Source #

Show ConsensusCommitBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusCommitBlockResponse -> ShowS Source #

show :: ConsensusCommitBlockResponse -> String Source #

showList :: [ConsensusCommitBlockResponse] -> ShowS Source #

Generic ConsensusCommitBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusCommitBlockResponse :: Type -> Type Source #

Methods

from :: ConsensusCommitBlockResponse -> Rep ConsensusCommitBlockResponse x Source #

to :: Rep ConsensusCommitBlockResponse x -> ConsensusCommitBlockResponse Source #

ToJSON ConsensusCommitBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusCommitBlockResponse -> Value Source #

toEncoding :: ConsensusCommitBlockResponse -> Encoding Source #

toJSONList :: [ConsensusCommitBlockResponse] -> Value Source #

toEncodingList :: [ConsensusCommitBlockResponse] -> Encoding Source #

FromJSON ConsensusCommitBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusCommitBlockResponse Source #

parseJSONList :: Value -> Parser [ConsensusCommitBlockResponse] Source #

NFData ConsensusCommitBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusCommitBlockResponse -> () Source #

ToJSONPB ConsensusCommitBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusCommitBlockResponse -> Options -> Value Source #

toEncodingPB :: ConsensusCommitBlockResponse -> Options -> Encoding Source #

FromJSONPB ConsensusCommitBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusCommitBlockResponse Source #

HasDefault ConsensusCommitBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusCommitBlockResponse Source #

isDefault :: ConsensusCommitBlockResponse -> Bool Source #

Named ConsensusCommitBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusCommitBlockResponse -> string Source #

Message ConsensusCommitBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusCommitBlockResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusCommitBlockResponse Source #

dotProto :: Proxy# ConsensusCommitBlockResponse -> [DotProtoField] Source #

ToSchema ConsensusCommitBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusCommitBlockResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusCommitBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusCommitBlockResponse = D1 ('MetaData "ConsensusCommitBlockResponse" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'True) (C1 ('MetaCons "ConsensusCommitBlockResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusCommitBlockResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated ConsensusCommitBlockResponse_Status))))

data ConsensusCommitBlockResponse_Status Source #

Constructors

ConsensusCommitBlockResponse_StatusSTATUS_UNSET 
ConsensusCommitBlockResponse_StatusOK 
ConsensusCommitBlockResponse_StatusBAD_REQUEST 
ConsensusCommitBlockResponse_StatusSERVICE_ERROR 
ConsensusCommitBlockResponse_StatusNOT_READY 
ConsensusCommitBlockResponse_StatusUNKNOWN_BLOCK 
ConsensusCommitBlockResponse_StatusNOT_ACTIVE_ENGINE 

Instances

Instances details
Bounded ConsensusCommitBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

minBound :: ConsensusCommitBlockResponse_Status Source #

maxBound :: ConsensusCommitBlockResponse_Status Source #

Eq ConsensusCommitBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusCommitBlockResponse_Status -> ConsensusCommitBlockResponse_Status -> Bool Source #

(/=) :: ConsensusCommitBlockResponse_Status -> ConsensusCommitBlockResponse_Status -> Bool Source #

Ord ConsensusCommitBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusCommitBlockResponse_Status -> ConsensusCommitBlockResponse_Status -> Ordering Source #

(<) :: ConsensusCommitBlockResponse_Status -> ConsensusCommitBlockResponse_Status -> Bool Source #

(<=) :: ConsensusCommitBlockResponse_Status -> ConsensusCommitBlockResponse_Status -> Bool Source #

(>) :: ConsensusCommitBlockResponse_Status -> ConsensusCommitBlockResponse_Status -> Bool Source #

(>=) :: ConsensusCommitBlockResponse_Status -> ConsensusCommitBlockResponse_Status -> Bool Source #

max :: ConsensusCommitBlockResponse_Status -> ConsensusCommitBlockResponse_Status -> ConsensusCommitBlockResponse_Status Source #

min :: ConsensusCommitBlockResponse_Status -> ConsensusCommitBlockResponse_Status -> ConsensusCommitBlockResponse_Status Source #

Show ConsensusCommitBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusCommitBlockResponse_Status -> ShowS Source #

show :: ConsensusCommitBlockResponse_Status -> String Source #

showList :: [ConsensusCommitBlockResponse_Status] -> ShowS Source #

Generic ConsensusCommitBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusCommitBlockResponse_Status :: Type -> Type Source #

Methods

from :: ConsensusCommitBlockResponse_Status -> Rep ConsensusCommitBlockResponse_Status x Source #

to :: Rep ConsensusCommitBlockResponse_Status x -> ConsensusCommitBlockResponse_Status Source #

ToJSON ConsensusCommitBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusCommitBlockResponse_Status -> Value Source #

toEncoding :: ConsensusCommitBlockResponse_Status -> Encoding Source #

toJSONList :: [ConsensusCommitBlockResponse_Status] -> Value Source #

toEncodingList :: [ConsensusCommitBlockResponse_Status] -> Encoding Source #

FromJSON ConsensusCommitBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusCommitBlockResponse_Status Source #

parseJSONList :: Value -> Parser [ConsensusCommitBlockResponse_Status] Source #

NFData ConsensusCommitBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusCommitBlockResponse_Status -> () Source #

ProtoEnum ConsensusCommitBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toProtoEnumMay :: Int32 -> Maybe ConsensusCommitBlockResponse_Status Source #

fromProtoEnum :: ConsensusCommitBlockResponse_Status -> Int32 Source #

ToJSONPB ConsensusCommitBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusCommitBlockResponse_Status -> Options -> Value Source #

toEncodingPB :: ConsensusCommitBlockResponse_Status -> Options -> Encoding Source #

FromJSONPB ConsensusCommitBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusCommitBlockResponse_Status Source #

HasDefault ConsensusCommitBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusCommitBlockResponse_Status Source #

isDefault :: ConsensusCommitBlockResponse_Status -> Bool Source #

Named ConsensusCommitBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusCommitBlockResponse_Status -> string Source #

Finite ConsensusCommitBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

enumerate :: IsString string => Proxy# ConsensusCommitBlockResponse_Status -> [(string, Int32)] Source #

type Rep ConsensusCommitBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusCommitBlockResponse_Status = D1 ('MetaData "ConsensusCommitBlockResponse_Status" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) ((C1 ('MetaCons "ConsensusCommitBlockResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "ConsensusCommitBlockResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusCommitBlockResponse_StatusBAD_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "ConsensusCommitBlockResponse_StatusSERVICE_ERROR" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusCommitBlockResponse_StatusNOT_READY" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ConsensusCommitBlockResponse_StatusUNKNOWN_BLOCK" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusCommitBlockResponse_StatusNOT_ACTIVE_ENGINE" 'PrefixI 'False) (U1 :: Type -> Type))))

newtype ConsensusIgnoreBlockRequest Source #

Constructors

ConsensusIgnoreBlockRequest 

Fields

Instances

Instances details
Eq ConsensusIgnoreBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusIgnoreBlockRequest -> ConsensusIgnoreBlockRequest -> Bool Source #

(/=) :: ConsensusIgnoreBlockRequest -> ConsensusIgnoreBlockRequest -> Bool Source #

Ord ConsensusIgnoreBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusIgnoreBlockRequest -> ConsensusIgnoreBlockRequest -> Ordering Source #

(<) :: ConsensusIgnoreBlockRequest -> ConsensusIgnoreBlockRequest -> Bool Source #

(<=) :: ConsensusIgnoreBlockRequest -> ConsensusIgnoreBlockRequest -> Bool Source #

(>) :: ConsensusIgnoreBlockRequest -> ConsensusIgnoreBlockRequest -> Bool Source #

(>=) :: ConsensusIgnoreBlockRequest -> ConsensusIgnoreBlockRequest -> Bool Source #

max :: ConsensusIgnoreBlockRequest -> ConsensusIgnoreBlockRequest -> ConsensusIgnoreBlockRequest Source #

min :: ConsensusIgnoreBlockRequest -> ConsensusIgnoreBlockRequest -> ConsensusIgnoreBlockRequest Source #

Show ConsensusIgnoreBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusIgnoreBlockRequest -> ShowS Source #

show :: ConsensusIgnoreBlockRequest -> String Source #

showList :: [ConsensusIgnoreBlockRequest] -> ShowS Source #

Generic ConsensusIgnoreBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusIgnoreBlockRequest :: Type -> Type Source #

Methods

from :: ConsensusIgnoreBlockRequest -> Rep ConsensusIgnoreBlockRequest x Source #

to :: Rep ConsensusIgnoreBlockRequest x -> ConsensusIgnoreBlockRequest Source #

ToJSON ConsensusIgnoreBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusIgnoreBlockRequest -> Value Source #

toEncoding :: ConsensusIgnoreBlockRequest -> Encoding Source #

toJSONList :: [ConsensusIgnoreBlockRequest] -> Value Source #

toEncodingList :: [ConsensusIgnoreBlockRequest] -> Encoding Source #

FromJSON ConsensusIgnoreBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusIgnoreBlockRequest Source #

parseJSONList :: Value -> Parser [ConsensusIgnoreBlockRequest] Source #

NFData ConsensusIgnoreBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusIgnoreBlockRequest -> () Source #

ToJSONPB ConsensusIgnoreBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusIgnoreBlockRequest -> Options -> Value Source #

toEncodingPB :: ConsensusIgnoreBlockRequest -> Options -> Encoding Source #

FromJSONPB ConsensusIgnoreBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusIgnoreBlockRequest Source #

HasDefault ConsensusIgnoreBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusIgnoreBlockRequest Source #

isDefault :: ConsensusIgnoreBlockRequest -> Bool Source #

Named ConsensusIgnoreBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusIgnoreBlockRequest -> string Source #

Message ConsensusIgnoreBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusIgnoreBlockRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusIgnoreBlockRequest Source #

dotProto :: Proxy# ConsensusIgnoreBlockRequest -> [DotProtoField] Source #

ToSchema ConsensusIgnoreBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusIgnoreBlockRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusIgnoreBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusIgnoreBlockRequest = D1 ('MetaData "ConsensusIgnoreBlockRequest" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'True) (C1 ('MetaCons "ConsensusIgnoreBlockRequest" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusIgnoreBlockRequestBlockId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString)))

newtype ConsensusIgnoreBlockResponse Source #

Constructors

ConsensusIgnoreBlockResponse 

Fields

Instances

Instances details
Eq ConsensusIgnoreBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusIgnoreBlockResponse -> ConsensusIgnoreBlockResponse -> Bool Source #

(/=) :: ConsensusIgnoreBlockResponse -> ConsensusIgnoreBlockResponse -> Bool Source #

Ord ConsensusIgnoreBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusIgnoreBlockResponse -> ConsensusIgnoreBlockResponse -> Ordering Source #

(<) :: ConsensusIgnoreBlockResponse -> ConsensusIgnoreBlockResponse -> Bool Source #

(<=) :: ConsensusIgnoreBlockResponse -> ConsensusIgnoreBlockResponse -> Bool Source #

(>) :: ConsensusIgnoreBlockResponse -> ConsensusIgnoreBlockResponse -> Bool Source #

(>=) :: ConsensusIgnoreBlockResponse -> ConsensusIgnoreBlockResponse -> Bool Source #

max :: ConsensusIgnoreBlockResponse -> ConsensusIgnoreBlockResponse -> ConsensusIgnoreBlockResponse Source #

min :: ConsensusIgnoreBlockResponse -> ConsensusIgnoreBlockResponse -> ConsensusIgnoreBlockResponse Source #

Show ConsensusIgnoreBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusIgnoreBlockResponse -> ShowS Source #

show :: ConsensusIgnoreBlockResponse -> String Source #

showList :: [ConsensusIgnoreBlockResponse] -> ShowS Source #

Generic ConsensusIgnoreBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusIgnoreBlockResponse :: Type -> Type Source #

Methods

from :: ConsensusIgnoreBlockResponse -> Rep ConsensusIgnoreBlockResponse x Source #

to :: Rep ConsensusIgnoreBlockResponse x -> ConsensusIgnoreBlockResponse Source #

ToJSON ConsensusIgnoreBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusIgnoreBlockResponse -> Value Source #

toEncoding :: ConsensusIgnoreBlockResponse -> Encoding Source #

toJSONList :: [ConsensusIgnoreBlockResponse] -> Value Source #

toEncodingList :: [ConsensusIgnoreBlockResponse] -> Encoding Source #

FromJSON ConsensusIgnoreBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusIgnoreBlockResponse Source #

parseJSONList :: Value -> Parser [ConsensusIgnoreBlockResponse] Source #

NFData ConsensusIgnoreBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusIgnoreBlockResponse -> () Source #

ToJSONPB ConsensusIgnoreBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusIgnoreBlockResponse -> Options -> Value Source #

toEncodingPB :: ConsensusIgnoreBlockResponse -> Options -> Encoding Source #

FromJSONPB ConsensusIgnoreBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusIgnoreBlockResponse Source #

HasDefault ConsensusIgnoreBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusIgnoreBlockResponse Source #

isDefault :: ConsensusIgnoreBlockResponse -> Bool Source #

Named ConsensusIgnoreBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusIgnoreBlockResponse -> string Source #

Message ConsensusIgnoreBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusIgnoreBlockResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusIgnoreBlockResponse Source #

dotProto :: Proxy# ConsensusIgnoreBlockResponse -> [DotProtoField] Source #

ToSchema ConsensusIgnoreBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusIgnoreBlockResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusIgnoreBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusIgnoreBlockResponse = D1 ('MetaData "ConsensusIgnoreBlockResponse" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'True) (C1 ('MetaCons "ConsensusIgnoreBlockResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusIgnoreBlockResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated ConsensusIgnoreBlockResponse_Status))))

data ConsensusIgnoreBlockResponse_Status Source #

Constructors

ConsensusIgnoreBlockResponse_StatusSTATUS_UNSET 
ConsensusIgnoreBlockResponse_StatusOK 
ConsensusIgnoreBlockResponse_StatusBAD_REQUEST 
ConsensusIgnoreBlockResponse_StatusSERVICE_ERROR 
ConsensusIgnoreBlockResponse_StatusNOT_READY 
ConsensusIgnoreBlockResponse_StatusUNKNOWN_BLOCK 
ConsensusIgnoreBlockResponse_StatusNOT_ACTIVE_ENGINE 

Instances

Instances details
Bounded ConsensusIgnoreBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

minBound :: ConsensusIgnoreBlockResponse_Status Source #

maxBound :: ConsensusIgnoreBlockResponse_Status Source #

Eq ConsensusIgnoreBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusIgnoreBlockResponse_Status -> ConsensusIgnoreBlockResponse_Status -> Bool Source #

(/=) :: ConsensusIgnoreBlockResponse_Status -> ConsensusIgnoreBlockResponse_Status -> Bool Source #

Ord ConsensusIgnoreBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusIgnoreBlockResponse_Status -> ConsensusIgnoreBlockResponse_Status -> Ordering Source #

(<) :: ConsensusIgnoreBlockResponse_Status -> ConsensusIgnoreBlockResponse_Status -> Bool Source #

(<=) :: ConsensusIgnoreBlockResponse_Status -> ConsensusIgnoreBlockResponse_Status -> Bool Source #

(>) :: ConsensusIgnoreBlockResponse_Status -> ConsensusIgnoreBlockResponse_Status -> Bool Source #

(>=) :: ConsensusIgnoreBlockResponse_Status -> ConsensusIgnoreBlockResponse_Status -> Bool Source #

max :: ConsensusIgnoreBlockResponse_Status -> ConsensusIgnoreBlockResponse_Status -> ConsensusIgnoreBlockResponse_Status Source #

min :: ConsensusIgnoreBlockResponse_Status -> ConsensusIgnoreBlockResponse_Status -> ConsensusIgnoreBlockResponse_Status Source #

Show ConsensusIgnoreBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusIgnoreBlockResponse_Status -> ShowS Source #

show :: ConsensusIgnoreBlockResponse_Status -> String Source #

showList :: [ConsensusIgnoreBlockResponse_Status] -> ShowS Source #

Generic ConsensusIgnoreBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusIgnoreBlockResponse_Status :: Type -> Type Source #

Methods

from :: ConsensusIgnoreBlockResponse_Status -> Rep ConsensusIgnoreBlockResponse_Status x Source #

to :: Rep ConsensusIgnoreBlockResponse_Status x -> ConsensusIgnoreBlockResponse_Status Source #

ToJSON ConsensusIgnoreBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusIgnoreBlockResponse_Status -> Value Source #

toEncoding :: ConsensusIgnoreBlockResponse_Status -> Encoding Source #

toJSONList :: [ConsensusIgnoreBlockResponse_Status] -> Value Source #

toEncodingList :: [ConsensusIgnoreBlockResponse_Status] -> Encoding Source #

FromJSON ConsensusIgnoreBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusIgnoreBlockResponse_Status Source #

parseJSONList :: Value -> Parser [ConsensusIgnoreBlockResponse_Status] Source #

NFData ConsensusIgnoreBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusIgnoreBlockResponse_Status -> () Source #

ProtoEnum ConsensusIgnoreBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toProtoEnumMay :: Int32 -> Maybe ConsensusIgnoreBlockResponse_Status Source #

fromProtoEnum :: ConsensusIgnoreBlockResponse_Status -> Int32 Source #

ToJSONPB ConsensusIgnoreBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusIgnoreBlockResponse_Status -> Options -> Value Source #

toEncodingPB :: ConsensusIgnoreBlockResponse_Status -> Options -> Encoding Source #

FromJSONPB ConsensusIgnoreBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusIgnoreBlockResponse_Status Source #

HasDefault ConsensusIgnoreBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusIgnoreBlockResponse_Status Source #

isDefault :: ConsensusIgnoreBlockResponse_Status -> Bool Source #

Named ConsensusIgnoreBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusIgnoreBlockResponse_Status -> string Source #

Finite ConsensusIgnoreBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

enumerate :: IsString string => Proxy# ConsensusIgnoreBlockResponse_Status -> [(string, Int32)] Source #

type Rep ConsensusIgnoreBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusIgnoreBlockResponse_Status = D1 ('MetaData "ConsensusIgnoreBlockResponse_Status" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) ((C1 ('MetaCons "ConsensusIgnoreBlockResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "ConsensusIgnoreBlockResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusIgnoreBlockResponse_StatusBAD_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "ConsensusIgnoreBlockResponse_StatusSERVICE_ERROR" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusIgnoreBlockResponse_StatusNOT_READY" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ConsensusIgnoreBlockResponse_StatusUNKNOWN_BLOCK" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusIgnoreBlockResponse_StatusNOT_ACTIVE_ENGINE" 'PrefixI 'False) (U1 :: Type -> Type))))

newtype ConsensusFailBlockRequest Source #

Constructors

ConsensusFailBlockRequest 

Fields

Instances

Instances details
Eq ConsensusFailBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusFailBlockRequest -> ConsensusFailBlockRequest -> Bool Source #

(/=) :: ConsensusFailBlockRequest -> ConsensusFailBlockRequest -> Bool Source #

Ord ConsensusFailBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusFailBlockRequest -> ConsensusFailBlockRequest -> Ordering Source #

(<) :: ConsensusFailBlockRequest -> ConsensusFailBlockRequest -> Bool Source #

(<=) :: ConsensusFailBlockRequest -> ConsensusFailBlockRequest -> Bool Source #

(>) :: ConsensusFailBlockRequest -> ConsensusFailBlockRequest -> Bool Source #

(>=) :: ConsensusFailBlockRequest -> ConsensusFailBlockRequest -> Bool Source #

max :: ConsensusFailBlockRequest -> ConsensusFailBlockRequest -> ConsensusFailBlockRequest Source #

min :: ConsensusFailBlockRequest -> ConsensusFailBlockRequest -> ConsensusFailBlockRequest Source #

Show ConsensusFailBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusFailBlockRequest -> ShowS Source #

show :: ConsensusFailBlockRequest -> String Source #

showList :: [ConsensusFailBlockRequest] -> ShowS Source #

Generic ConsensusFailBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusFailBlockRequest :: Type -> Type Source #

Methods

from :: ConsensusFailBlockRequest -> Rep ConsensusFailBlockRequest x Source #

to :: Rep ConsensusFailBlockRequest x -> ConsensusFailBlockRequest Source #

ToJSON ConsensusFailBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusFailBlockRequest -> Value Source #

toEncoding :: ConsensusFailBlockRequest -> Encoding Source #

toJSONList :: [ConsensusFailBlockRequest] -> Value Source #

toEncodingList :: [ConsensusFailBlockRequest] -> Encoding Source #

FromJSON ConsensusFailBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusFailBlockRequest Source #

parseJSONList :: Value -> Parser [ConsensusFailBlockRequest] Source #

NFData ConsensusFailBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusFailBlockRequest -> () Source #

ToJSONPB ConsensusFailBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusFailBlockRequest -> Options -> Value Source #

toEncodingPB :: ConsensusFailBlockRequest -> Options -> Encoding Source #

FromJSONPB ConsensusFailBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusFailBlockRequest Source #

HasDefault ConsensusFailBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusFailBlockRequest Source #

isDefault :: ConsensusFailBlockRequest -> Bool Source #

Named ConsensusFailBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusFailBlockRequest -> string Source #

Message ConsensusFailBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusFailBlockRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusFailBlockRequest Source #

dotProto :: Proxy# ConsensusFailBlockRequest -> [DotProtoField] Source #

ToSchema ConsensusFailBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusFailBlockRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusFailBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusFailBlockRequest = D1 ('MetaData "ConsensusFailBlockRequest" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'True) (C1 ('MetaCons "ConsensusFailBlockRequest" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusFailBlockRequestBlockId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString)))

newtype ConsensusFailBlockResponse Source #

Constructors

ConsensusFailBlockResponse 

Fields

Instances

Instances details
Eq ConsensusFailBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusFailBlockResponse -> ConsensusFailBlockResponse -> Bool Source #

(/=) :: ConsensusFailBlockResponse -> ConsensusFailBlockResponse -> Bool Source #

Ord ConsensusFailBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusFailBlockResponse -> ConsensusFailBlockResponse -> Ordering Source #

(<) :: ConsensusFailBlockResponse -> ConsensusFailBlockResponse -> Bool Source #

(<=) :: ConsensusFailBlockResponse -> ConsensusFailBlockResponse -> Bool Source #

(>) :: ConsensusFailBlockResponse -> ConsensusFailBlockResponse -> Bool Source #

(>=) :: ConsensusFailBlockResponse -> ConsensusFailBlockResponse -> Bool Source #

max :: ConsensusFailBlockResponse -> ConsensusFailBlockResponse -> ConsensusFailBlockResponse Source #

min :: ConsensusFailBlockResponse -> ConsensusFailBlockResponse -> ConsensusFailBlockResponse Source #

Show ConsensusFailBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusFailBlockResponse -> ShowS Source #

show :: ConsensusFailBlockResponse -> String Source #

showList :: [ConsensusFailBlockResponse] -> ShowS Source #

Generic ConsensusFailBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusFailBlockResponse :: Type -> Type Source #

Methods

from :: ConsensusFailBlockResponse -> Rep ConsensusFailBlockResponse x Source #

to :: Rep ConsensusFailBlockResponse x -> ConsensusFailBlockResponse Source #

ToJSON ConsensusFailBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusFailBlockResponse -> Value Source #

toEncoding :: ConsensusFailBlockResponse -> Encoding Source #

toJSONList :: [ConsensusFailBlockResponse] -> Value Source #

toEncodingList :: [ConsensusFailBlockResponse] -> Encoding Source #

FromJSON ConsensusFailBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusFailBlockResponse Source #

parseJSONList :: Value -> Parser [ConsensusFailBlockResponse] Source #

NFData ConsensusFailBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusFailBlockResponse -> () Source #

ToJSONPB ConsensusFailBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusFailBlockResponse -> Options -> Value Source #

toEncodingPB :: ConsensusFailBlockResponse -> Options -> Encoding Source #

FromJSONPB ConsensusFailBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusFailBlockResponse Source #

HasDefault ConsensusFailBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusFailBlockResponse Source #

isDefault :: ConsensusFailBlockResponse -> Bool Source #

Named ConsensusFailBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusFailBlockResponse -> string Source #

Message ConsensusFailBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusFailBlockResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusFailBlockResponse Source #

dotProto :: Proxy# ConsensusFailBlockResponse -> [DotProtoField] Source #

ToSchema ConsensusFailBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusFailBlockResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusFailBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusFailBlockResponse = D1 ('MetaData "ConsensusFailBlockResponse" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'True) (C1 ('MetaCons "ConsensusFailBlockResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusFailBlockResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated ConsensusFailBlockResponse_Status))))

data ConsensusFailBlockResponse_Status Source #

Constructors

ConsensusFailBlockResponse_StatusSTATUS_UNSET 
ConsensusFailBlockResponse_StatusOK 
ConsensusFailBlockResponse_StatusBAD_REQUEST 
ConsensusFailBlockResponse_StatusSERVICE_ERROR 
ConsensusFailBlockResponse_StatusNOT_READY 
ConsensusFailBlockResponse_StatusUNKNOWN_BLOCK 
ConsensusFailBlockResponse_StatusNOT_ACTIVE_ENGINE 

Instances

Instances details
Bounded ConsensusFailBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

minBound :: ConsensusFailBlockResponse_Status Source #

maxBound :: ConsensusFailBlockResponse_Status Source #

Eq ConsensusFailBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusFailBlockResponse_Status -> ConsensusFailBlockResponse_Status -> Bool Source #

(/=) :: ConsensusFailBlockResponse_Status -> ConsensusFailBlockResponse_Status -> Bool Source #

Ord ConsensusFailBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusFailBlockResponse_Status -> ConsensusFailBlockResponse_Status -> Ordering Source #

(<) :: ConsensusFailBlockResponse_Status -> ConsensusFailBlockResponse_Status -> Bool Source #

(<=) :: ConsensusFailBlockResponse_Status -> ConsensusFailBlockResponse_Status -> Bool Source #

(>) :: ConsensusFailBlockResponse_Status -> ConsensusFailBlockResponse_Status -> Bool Source #

(>=) :: ConsensusFailBlockResponse_Status -> ConsensusFailBlockResponse_Status -> Bool Source #

max :: ConsensusFailBlockResponse_Status -> ConsensusFailBlockResponse_Status -> ConsensusFailBlockResponse_Status Source #

min :: ConsensusFailBlockResponse_Status -> ConsensusFailBlockResponse_Status -> ConsensusFailBlockResponse_Status Source #

Show ConsensusFailBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusFailBlockResponse_Status -> ShowS Source #

show :: ConsensusFailBlockResponse_Status -> String Source #

showList :: [ConsensusFailBlockResponse_Status] -> ShowS Source #

Generic ConsensusFailBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusFailBlockResponse_Status :: Type -> Type Source #

Methods

from :: ConsensusFailBlockResponse_Status -> Rep ConsensusFailBlockResponse_Status x Source #

to :: Rep ConsensusFailBlockResponse_Status x -> ConsensusFailBlockResponse_Status Source #

ToJSON ConsensusFailBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusFailBlockResponse_Status -> Value Source #

toEncoding :: ConsensusFailBlockResponse_Status -> Encoding Source #

toJSONList :: [ConsensusFailBlockResponse_Status] -> Value Source #

toEncodingList :: [ConsensusFailBlockResponse_Status] -> Encoding Source #

FromJSON ConsensusFailBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusFailBlockResponse_Status Source #

parseJSONList :: Value -> Parser [ConsensusFailBlockResponse_Status] Source #

NFData ConsensusFailBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusFailBlockResponse_Status -> () Source #

ProtoEnum ConsensusFailBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toProtoEnumMay :: Int32 -> Maybe ConsensusFailBlockResponse_Status Source #

fromProtoEnum :: ConsensusFailBlockResponse_Status -> Int32 Source #

ToJSONPB ConsensusFailBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusFailBlockResponse_Status -> Options -> Value Source #

toEncodingPB :: ConsensusFailBlockResponse_Status -> Options -> Encoding Source #

FromJSONPB ConsensusFailBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusFailBlockResponse_Status Source #

HasDefault ConsensusFailBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusFailBlockResponse_Status Source #

isDefault :: ConsensusFailBlockResponse_Status -> Bool Source #

Named ConsensusFailBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusFailBlockResponse_Status -> string Source #

Finite ConsensusFailBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

enumerate :: IsString string => Proxy# ConsensusFailBlockResponse_Status -> [(string, Int32)] Source #

type Rep ConsensusFailBlockResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusFailBlockResponse_Status = D1 ('MetaData "ConsensusFailBlockResponse_Status" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) ((C1 ('MetaCons "ConsensusFailBlockResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "ConsensusFailBlockResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusFailBlockResponse_StatusBAD_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "ConsensusFailBlockResponse_StatusSERVICE_ERROR" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusFailBlockResponse_StatusNOT_READY" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ConsensusFailBlockResponse_StatusUNKNOWN_BLOCK" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusFailBlockResponse_StatusNOT_ACTIVE_ENGINE" 'PrefixI 'False) (U1 :: Type -> Type))))

newtype ConsensusBlocksGetRequest Source #

Constructors

ConsensusBlocksGetRequest 

Fields

Instances

Instances details
Eq ConsensusBlocksGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusBlocksGetRequest -> ConsensusBlocksGetRequest -> Bool Source #

(/=) :: ConsensusBlocksGetRequest -> ConsensusBlocksGetRequest -> Bool Source #

Ord ConsensusBlocksGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusBlocksGetRequest -> ConsensusBlocksGetRequest -> Ordering Source #

(<) :: ConsensusBlocksGetRequest -> ConsensusBlocksGetRequest -> Bool Source #

(<=) :: ConsensusBlocksGetRequest -> ConsensusBlocksGetRequest -> Bool Source #

(>) :: ConsensusBlocksGetRequest -> ConsensusBlocksGetRequest -> Bool Source #

(>=) :: ConsensusBlocksGetRequest -> ConsensusBlocksGetRequest -> Bool Source #

max :: ConsensusBlocksGetRequest -> ConsensusBlocksGetRequest -> ConsensusBlocksGetRequest Source #

min :: ConsensusBlocksGetRequest -> ConsensusBlocksGetRequest -> ConsensusBlocksGetRequest Source #

Show ConsensusBlocksGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusBlocksGetRequest -> ShowS Source #

show :: ConsensusBlocksGetRequest -> String Source #

showList :: [ConsensusBlocksGetRequest] -> ShowS Source #

Generic ConsensusBlocksGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusBlocksGetRequest :: Type -> Type Source #

Methods

from :: ConsensusBlocksGetRequest -> Rep ConsensusBlocksGetRequest x Source #

to :: Rep ConsensusBlocksGetRequest x -> ConsensusBlocksGetRequest Source #

ToJSON ConsensusBlocksGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusBlocksGetRequest -> Value Source #

toEncoding :: ConsensusBlocksGetRequest -> Encoding Source #

toJSONList :: [ConsensusBlocksGetRequest] -> Value Source #

toEncodingList :: [ConsensusBlocksGetRequest] -> Encoding Source #

FromJSON ConsensusBlocksGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusBlocksGetRequest Source #

parseJSONList :: Value -> Parser [ConsensusBlocksGetRequest] Source #

NFData ConsensusBlocksGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusBlocksGetRequest -> () Source #

ToJSONPB ConsensusBlocksGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusBlocksGetRequest -> Options -> Value Source #

toEncodingPB :: ConsensusBlocksGetRequest -> Options -> Encoding Source #

FromJSONPB ConsensusBlocksGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusBlocksGetRequest Source #

HasDefault ConsensusBlocksGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusBlocksGetRequest Source #

isDefault :: ConsensusBlocksGetRequest -> Bool Source #

Named ConsensusBlocksGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusBlocksGetRequest -> string Source #

Message ConsensusBlocksGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusBlocksGetRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusBlocksGetRequest Source #

dotProto :: Proxy# ConsensusBlocksGetRequest -> [DotProtoField] Source #

ToSchema ConsensusBlocksGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusBlocksGetRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusBlocksGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusBlocksGetRequest = D1 ('MetaData "ConsensusBlocksGetRequest" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'True) (C1 ('MetaCons "ConsensusBlocksGetRequest" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusBlocksGetRequestBlockIds") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector ByteString))))

data ConsensusBlocksGetResponse Source #

Constructors

ConsensusBlocksGetResponse 

Fields

Instances

Instances details
Eq ConsensusBlocksGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusBlocksGetResponse -> ConsensusBlocksGetResponse -> Bool Source #

(/=) :: ConsensusBlocksGetResponse -> ConsensusBlocksGetResponse -> Bool Source #

Ord ConsensusBlocksGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusBlocksGetResponse -> ConsensusBlocksGetResponse -> Ordering Source #

(<) :: ConsensusBlocksGetResponse -> ConsensusBlocksGetResponse -> Bool Source #

(<=) :: ConsensusBlocksGetResponse -> ConsensusBlocksGetResponse -> Bool Source #

(>) :: ConsensusBlocksGetResponse -> ConsensusBlocksGetResponse -> Bool Source #

(>=) :: ConsensusBlocksGetResponse -> ConsensusBlocksGetResponse -> Bool Source #

max :: ConsensusBlocksGetResponse -> ConsensusBlocksGetResponse -> ConsensusBlocksGetResponse Source #

min :: ConsensusBlocksGetResponse -> ConsensusBlocksGetResponse -> ConsensusBlocksGetResponse Source #

Show ConsensusBlocksGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusBlocksGetResponse -> ShowS Source #

show :: ConsensusBlocksGetResponse -> String Source #

showList :: [ConsensusBlocksGetResponse] -> ShowS Source #

Generic ConsensusBlocksGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusBlocksGetResponse :: Type -> Type Source #

Methods

from :: ConsensusBlocksGetResponse -> Rep ConsensusBlocksGetResponse x Source #

to :: Rep ConsensusBlocksGetResponse x -> ConsensusBlocksGetResponse Source #

ToJSON ConsensusBlocksGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusBlocksGetResponse -> Value Source #

toEncoding :: ConsensusBlocksGetResponse -> Encoding Source #

toJSONList :: [ConsensusBlocksGetResponse] -> Value Source #

toEncodingList :: [ConsensusBlocksGetResponse] -> Encoding Source #

FromJSON ConsensusBlocksGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusBlocksGetResponse Source #

parseJSONList :: Value -> Parser [ConsensusBlocksGetResponse] Source #

NFData ConsensusBlocksGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusBlocksGetResponse -> () Source #

ToJSONPB ConsensusBlocksGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusBlocksGetResponse -> Options -> Value Source #

toEncodingPB :: ConsensusBlocksGetResponse -> Options -> Encoding Source #

FromJSONPB ConsensusBlocksGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusBlocksGetResponse Source #

HasDefault ConsensusBlocksGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusBlocksGetResponse Source #

isDefault :: ConsensusBlocksGetResponse -> Bool Source #

Named ConsensusBlocksGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusBlocksGetResponse -> string Source #

Message ConsensusBlocksGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusBlocksGetResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusBlocksGetResponse Source #

dotProto :: Proxy# ConsensusBlocksGetResponse -> [DotProtoField] Source #

ToSchema ConsensusBlocksGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusBlocksGetResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusBlocksGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusBlocksGetResponse = D1 ('MetaData "ConsensusBlocksGetResponse" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "ConsensusBlocksGetResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusBlocksGetResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated ConsensusBlocksGetResponse_Status)) :*: S1 ('MetaSel ('Just "consensusBlocksGetResponseBlocks") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector ConsensusBlock))))

data ConsensusBlocksGetResponse_Status Source #

Constructors

ConsensusBlocksGetResponse_StatusSTATUS_UNSET 
ConsensusBlocksGetResponse_StatusOK 
ConsensusBlocksGetResponse_StatusBAD_REQUEST 
ConsensusBlocksGetResponse_StatusSERVICE_ERROR 
ConsensusBlocksGetResponse_StatusNOT_READY 
ConsensusBlocksGetResponse_StatusUNKNOWN_BLOCK 
ConsensusBlocksGetResponse_StatusNOT_ACTIVE_ENGINE 

Instances

Instances details
Bounded ConsensusBlocksGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

minBound :: ConsensusBlocksGetResponse_Status Source #

maxBound :: ConsensusBlocksGetResponse_Status Source #

Eq ConsensusBlocksGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusBlocksGetResponse_Status -> ConsensusBlocksGetResponse_Status -> Bool Source #

(/=) :: ConsensusBlocksGetResponse_Status -> ConsensusBlocksGetResponse_Status -> Bool Source #

Ord ConsensusBlocksGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusBlocksGetResponse_Status -> ConsensusBlocksGetResponse_Status -> Ordering Source #

(<) :: ConsensusBlocksGetResponse_Status -> ConsensusBlocksGetResponse_Status -> Bool Source #

(<=) :: ConsensusBlocksGetResponse_Status -> ConsensusBlocksGetResponse_Status -> Bool Source #

(>) :: ConsensusBlocksGetResponse_Status -> ConsensusBlocksGetResponse_Status -> Bool Source #

(>=) :: ConsensusBlocksGetResponse_Status -> ConsensusBlocksGetResponse_Status -> Bool Source #

max :: ConsensusBlocksGetResponse_Status -> ConsensusBlocksGetResponse_Status -> ConsensusBlocksGetResponse_Status Source #

min :: ConsensusBlocksGetResponse_Status -> ConsensusBlocksGetResponse_Status -> ConsensusBlocksGetResponse_Status Source #

Show ConsensusBlocksGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusBlocksGetResponse_Status -> ShowS Source #

show :: ConsensusBlocksGetResponse_Status -> String Source #

showList :: [ConsensusBlocksGetResponse_Status] -> ShowS Source #

Generic ConsensusBlocksGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusBlocksGetResponse_Status :: Type -> Type Source #

Methods

from :: ConsensusBlocksGetResponse_Status -> Rep ConsensusBlocksGetResponse_Status x Source #

to :: Rep ConsensusBlocksGetResponse_Status x -> ConsensusBlocksGetResponse_Status Source #

ToJSON ConsensusBlocksGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusBlocksGetResponse_Status -> Value Source #

toEncoding :: ConsensusBlocksGetResponse_Status -> Encoding Source #

toJSONList :: [ConsensusBlocksGetResponse_Status] -> Value Source #

toEncodingList :: [ConsensusBlocksGetResponse_Status] -> Encoding Source #

FromJSON ConsensusBlocksGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusBlocksGetResponse_Status Source #

parseJSONList :: Value -> Parser [ConsensusBlocksGetResponse_Status] Source #

NFData ConsensusBlocksGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusBlocksGetResponse_Status -> () Source #

ProtoEnum ConsensusBlocksGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toProtoEnumMay :: Int32 -> Maybe ConsensusBlocksGetResponse_Status Source #

fromProtoEnum :: ConsensusBlocksGetResponse_Status -> Int32 Source #

ToJSONPB ConsensusBlocksGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusBlocksGetResponse_Status -> Options -> Value Source #

toEncodingPB :: ConsensusBlocksGetResponse_Status -> Options -> Encoding Source #

FromJSONPB ConsensusBlocksGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusBlocksGetResponse_Status Source #

HasDefault ConsensusBlocksGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusBlocksGetResponse_Status Source #

isDefault :: ConsensusBlocksGetResponse_Status -> Bool Source #

Named ConsensusBlocksGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusBlocksGetResponse_Status -> string Source #

Finite ConsensusBlocksGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

enumerate :: IsString string => Proxy# ConsensusBlocksGetResponse_Status -> [(string, Int32)] Source #

type Rep ConsensusBlocksGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusBlocksGetResponse_Status = D1 ('MetaData "ConsensusBlocksGetResponse_Status" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) ((C1 ('MetaCons "ConsensusBlocksGetResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "ConsensusBlocksGetResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusBlocksGetResponse_StatusBAD_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "ConsensusBlocksGetResponse_StatusSERVICE_ERROR" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusBlocksGetResponse_StatusNOT_READY" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ConsensusBlocksGetResponse_StatusUNKNOWN_BLOCK" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusBlocksGetResponse_StatusNOT_ACTIVE_ENGINE" 'PrefixI 'False) (U1 :: Type -> Type))))

data ConsensusChainHeadGetRequest Source #

Constructors

ConsensusChainHeadGetRequest 

Instances

Instances details
Eq ConsensusChainHeadGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusChainHeadGetRequest -> ConsensusChainHeadGetRequest -> Bool Source #

(/=) :: ConsensusChainHeadGetRequest -> ConsensusChainHeadGetRequest -> Bool Source #

Ord ConsensusChainHeadGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusChainHeadGetRequest -> ConsensusChainHeadGetRequest -> Ordering Source #

(<) :: ConsensusChainHeadGetRequest -> ConsensusChainHeadGetRequest -> Bool Source #

(<=) :: ConsensusChainHeadGetRequest -> ConsensusChainHeadGetRequest -> Bool Source #

(>) :: ConsensusChainHeadGetRequest -> ConsensusChainHeadGetRequest -> Bool Source #

(>=) :: ConsensusChainHeadGetRequest -> ConsensusChainHeadGetRequest -> Bool Source #

max :: ConsensusChainHeadGetRequest -> ConsensusChainHeadGetRequest -> ConsensusChainHeadGetRequest Source #

min :: ConsensusChainHeadGetRequest -> ConsensusChainHeadGetRequest -> ConsensusChainHeadGetRequest Source #

Show ConsensusChainHeadGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusChainHeadGetRequest -> ShowS Source #

show :: ConsensusChainHeadGetRequest -> String Source #

showList :: [ConsensusChainHeadGetRequest] -> ShowS Source #

Generic ConsensusChainHeadGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusChainHeadGetRequest :: Type -> Type Source #

Methods

from :: ConsensusChainHeadGetRequest -> Rep ConsensusChainHeadGetRequest x Source #

to :: Rep ConsensusChainHeadGetRequest x -> ConsensusChainHeadGetRequest Source #

ToJSON ConsensusChainHeadGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusChainHeadGetRequest -> Value Source #

toEncoding :: ConsensusChainHeadGetRequest -> Encoding Source #

toJSONList :: [ConsensusChainHeadGetRequest] -> Value Source #

toEncodingList :: [ConsensusChainHeadGetRequest] -> Encoding Source #

FromJSON ConsensusChainHeadGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusChainHeadGetRequest Source #

parseJSONList :: Value -> Parser [ConsensusChainHeadGetRequest] Source #

NFData ConsensusChainHeadGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusChainHeadGetRequest -> () Source #

ToJSONPB ConsensusChainHeadGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusChainHeadGetRequest -> Options -> Value Source #

toEncodingPB :: ConsensusChainHeadGetRequest -> Options -> Encoding Source #

FromJSONPB ConsensusChainHeadGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusChainHeadGetRequest Source #

HasDefault ConsensusChainHeadGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusChainHeadGetRequest Source #

isDefault :: ConsensusChainHeadGetRequest -> Bool Source #

Named ConsensusChainHeadGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusChainHeadGetRequest -> string Source #

Message ConsensusChainHeadGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusChainHeadGetRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusChainHeadGetRequest Source #

dotProto :: Proxy# ConsensusChainHeadGetRequest -> [DotProtoField] Source #

ToSchema ConsensusChainHeadGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusChainHeadGetRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusChainHeadGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusChainHeadGetRequest = D1 ('MetaData "ConsensusChainHeadGetRequest" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "ConsensusChainHeadGetRequest" 'PrefixI 'False) (U1 :: Type -> Type))

data ConsensusChainHeadGetResponse Source #

Constructors

ConsensusChainHeadGetResponse 

Fields

Instances

Instances details
Eq ConsensusChainHeadGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusChainHeadGetResponse -> ConsensusChainHeadGetResponse -> Bool Source #

(/=) :: ConsensusChainHeadGetResponse -> ConsensusChainHeadGetResponse -> Bool Source #

Ord ConsensusChainHeadGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusChainHeadGetResponse -> ConsensusChainHeadGetResponse -> Ordering Source #

(<) :: ConsensusChainHeadGetResponse -> ConsensusChainHeadGetResponse -> Bool Source #

(<=) :: ConsensusChainHeadGetResponse -> ConsensusChainHeadGetResponse -> Bool Source #

(>) :: ConsensusChainHeadGetResponse -> ConsensusChainHeadGetResponse -> Bool Source #

(>=) :: ConsensusChainHeadGetResponse -> ConsensusChainHeadGetResponse -> Bool Source #

max :: ConsensusChainHeadGetResponse -> ConsensusChainHeadGetResponse -> ConsensusChainHeadGetResponse Source #

min :: ConsensusChainHeadGetResponse -> ConsensusChainHeadGetResponse -> ConsensusChainHeadGetResponse Source #

Show ConsensusChainHeadGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusChainHeadGetResponse -> ShowS Source #

show :: ConsensusChainHeadGetResponse -> String Source #

showList :: [ConsensusChainHeadGetResponse] -> ShowS Source #

Generic ConsensusChainHeadGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusChainHeadGetResponse :: Type -> Type Source #

Methods

from :: ConsensusChainHeadGetResponse -> Rep ConsensusChainHeadGetResponse x Source #

to :: Rep ConsensusChainHeadGetResponse x -> ConsensusChainHeadGetResponse Source #

ToJSON ConsensusChainHeadGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusChainHeadGetResponse -> Value Source #

toEncoding :: ConsensusChainHeadGetResponse -> Encoding Source #

toJSONList :: [ConsensusChainHeadGetResponse] -> Value Source #

toEncodingList :: [ConsensusChainHeadGetResponse] -> Encoding Source #

FromJSON ConsensusChainHeadGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusChainHeadGetResponse Source #

parseJSONList :: Value -> Parser [ConsensusChainHeadGetResponse] Source #

NFData ConsensusChainHeadGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusChainHeadGetResponse -> () Source #

ToJSONPB ConsensusChainHeadGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusChainHeadGetResponse -> Options -> Value Source #

toEncodingPB :: ConsensusChainHeadGetResponse -> Options -> Encoding Source #

FromJSONPB ConsensusChainHeadGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusChainHeadGetResponse Source #

HasDefault ConsensusChainHeadGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusChainHeadGetResponse Source #

isDefault :: ConsensusChainHeadGetResponse -> Bool Source #

Named ConsensusChainHeadGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusChainHeadGetResponse -> string Source #

Message ConsensusChainHeadGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusChainHeadGetResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusChainHeadGetResponse Source #

dotProto :: Proxy# ConsensusChainHeadGetResponse -> [DotProtoField] Source #

ToSchema ConsensusChainHeadGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusChainHeadGetResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusChainHeadGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusChainHeadGetResponse = D1 ('MetaData "ConsensusChainHeadGetResponse" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "ConsensusChainHeadGetResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusChainHeadGetResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated ConsensusChainHeadGetResponse_Status)) :*: S1 ('MetaSel ('Just "consensusChainHeadGetResponseBlock") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe ConsensusBlock))))

data ConsensusChainHeadGetResponse_Status Source #

Constructors

ConsensusChainHeadGetResponse_StatusSTATUS_UNSET 
ConsensusChainHeadGetResponse_StatusOK 
ConsensusChainHeadGetResponse_StatusBAD_REQUEST 
ConsensusChainHeadGetResponse_StatusSERVICE_ERROR 
ConsensusChainHeadGetResponse_StatusNOT_READY 
ConsensusChainHeadGetResponse_StatusNO_CHAIN_HEAD 
ConsensusChainHeadGetResponse_StatusNOT_ACTIVE_ENGINE 

Instances

Instances details
Bounded ConsensusChainHeadGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

minBound :: ConsensusChainHeadGetResponse_Status Source #

maxBound :: ConsensusChainHeadGetResponse_Status Source #

Eq ConsensusChainHeadGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusChainHeadGetResponse_Status -> ConsensusChainHeadGetResponse_Status -> Bool Source #

(/=) :: ConsensusChainHeadGetResponse_Status -> ConsensusChainHeadGetResponse_Status -> Bool Source #

Ord ConsensusChainHeadGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusChainHeadGetResponse_Status -> ConsensusChainHeadGetResponse_Status -> Ordering Source #

(<) :: ConsensusChainHeadGetResponse_Status -> ConsensusChainHeadGetResponse_Status -> Bool Source #

(<=) :: ConsensusChainHeadGetResponse_Status -> ConsensusChainHeadGetResponse_Status -> Bool Source #

(>) :: ConsensusChainHeadGetResponse_Status -> ConsensusChainHeadGetResponse_Status -> Bool Source #

(>=) :: ConsensusChainHeadGetResponse_Status -> ConsensusChainHeadGetResponse_Status -> Bool Source #

max :: ConsensusChainHeadGetResponse_Status -> ConsensusChainHeadGetResponse_Status -> ConsensusChainHeadGetResponse_Status Source #

min :: ConsensusChainHeadGetResponse_Status -> ConsensusChainHeadGetResponse_Status -> ConsensusChainHeadGetResponse_Status Source #

Show ConsensusChainHeadGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusChainHeadGetResponse_Status -> ShowS Source #

show :: ConsensusChainHeadGetResponse_Status -> String Source #

showList :: [ConsensusChainHeadGetResponse_Status] -> ShowS Source #

Generic ConsensusChainHeadGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusChainHeadGetResponse_Status :: Type -> Type Source #

Methods

from :: ConsensusChainHeadGetResponse_Status -> Rep ConsensusChainHeadGetResponse_Status x Source #

to :: Rep ConsensusChainHeadGetResponse_Status x -> ConsensusChainHeadGetResponse_Status Source #

ToJSON ConsensusChainHeadGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusChainHeadGetResponse_Status -> Value Source #

toEncoding :: ConsensusChainHeadGetResponse_Status -> Encoding Source #

toJSONList :: [ConsensusChainHeadGetResponse_Status] -> Value Source #

toEncodingList :: [ConsensusChainHeadGetResponse_Status] -> Encoding Source #

FromJSON ConsensusChainHeadGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusChainHeadGetResponse_Status Source #

parseJSONList :: Value -> Parser [ConsensusChainHeadGetResponse_Status] Source #

NFData ConsensusChainHeadGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusChainHeadGetResponse_Status -> () Source #

ProtoEnum ConsensusChainHeadGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toProtoEnumMay :: Int32 -> Maybe ConsensusChainHeadGetResponse_Status Source #

fromProtoEnum :: ConsensusChainHeadGetResponse_Status -> Int32 Source #

ToJSONPB ConsensusChainHeadGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusChainHeadGetResponse_Status -> Options -> Value Source #

toEncodingPB :: ConsensusChainHeadGetResponse_Status -> Options -> Encoding Source #

FromJSONPB ConsensusChainHeadGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusChainHeadGetResponse_Status Source #

HasDefault ConsensusChainHeadGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusChainHeadGetResponse_Status Source #

isDefault :: ConsensusChainHeadGetResponse_Status -> Bool Source #

Named ConsensusChainHeadGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusChainHeadGetResponse_Status -> string Source #

Finite ConsensusChainHeadGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

enumerate :: IsString string => Proxy# ConsensusChainHeadGetResponse_Status -> [(string, Int32)] Source #

type Rep ConsensusChainHeadGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusChainHeadGetResponse_Status = D1 ('MetaData "ConsensusChainHeadGetResponse_Status" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) ((C1 ('MetaCons "ConsensusChainHeadGetResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "ConsensusChainHeadGetResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusChainHeadGetResponse_StatusBAD_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "ConsensusChainHeadGetResponse_StatusSERVICE_ERROR" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusChainHeadGetResponse_StatusNOT_READY" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ConsensusChainHeadGetResponse_StatusNO_CHAIN_HEAD" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusChainHeadGetResponse_StatusNOT_ACTIVE_ENGINE" 'PrefixI 'False) (U1 :: Type -> Type))))

data ConsensusSettingsGetRequest Source #

Constructors

ConsensusSettingsGetRequest 

Fields

Instances

Instances details
Eq ConsensusSettingsGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusSettingsGetRequest -> ConsensusSettingsGetRequest -> Bool Source #

(/=) :: ConsensusSettingsGetRequest -> ConsensusSettingsGetRequest -> Bool Source #

Ord ConsensusSettingsGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusSettingsGetRequest -> ConsensusSettingsGetRequest -> Ordering Source #

(<) :: ConsensusSettingsGetRequest -> ConsensusSettingsGetRequest -> Bool Source #

(<=) :: ConsensusSettingsGetRequest -> ConsensusSettingsGetRequest -> Bool Source #

(>) :: ConsensusSettingsGetRequest -> ConsensusSettingsGetRequest -> Bool Source #

(>=) :: ConsensusSettingsGetRequest -> ConsensusSettingsGetRequest -> Bool Source #

max :: ConsensusSettingsGetRequest -> ConsensusSettingsGetRequest -> ConsensusSettingsGetRequest Source #

min :: ConsensusSettingsGetRequest -> ConsensusSettingsGetRequest -> ConsensusSettingsGetRequest Source #

Show ConsensusSettingsGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusSettingsGetRequest -> ShowS Source #

show :: ConsensusSettingsGetRequest -> String Source #

showList :: [ConsensusSettingsGetRequest] -> ShowS Source #

Generic ConsensusSettingsGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusSettingsGetRequest :: Type -> Type Source #

Methods

from :: ConsensusSettingsGetRequest -> Rep ConsensusSettingsGetRequest x Source #

to :: Rep ConsensusSettingsGetRequest x -> ConsensusSettingsGetRequest Source #

ToJSON ConsensusSettingsGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusSettingsGetRequest -> Value Source #

toEncoding :: ConsensusSettingsGetRequest -> Encoding Source #

toJSONList :: [ConsensusSettingsGetRequest] -> Value Source #

toEncodingList :: [ConsensusSettingsGetRequest] -> Encoding Source #

FromJSON ConsensusSettingsGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusSettingsGetRequest Source #

parseJSONList :: Value -> Parser [ConsensusSettingsGetRequest] Source #

NFData ConsensusSettingsGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusSettingsGetRequest -> () Source #

ToJSONPB ConsensusSettingsGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusSettingsGetRequest -> Options -> Value Source #

toEncodingPB :: ConsensusSettingsGetRequest -> Options -> Encoding Source #

FromJSONPB ConsensusSettingsGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusSettingsGetRequest Source #

HasDefault ConsensusSettingsGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusSettingsGetRequest Source #

isDefault :: ConsensusSettingsGetRequest -> Bool Source #

Named ConsensusSettingsGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusSettingsGetRequest -> string Source #

Message ConsensusSettingsGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusSettingsGetRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusSettingsGetRequest Source #

dotProto :: Proxy# ConsensusSettingsGetRequest -> [DotProtoField] Source #

ToSchema ConsensusSettingsGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusSettingsGetRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusSettingsGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusSettingsGetRequest = D1 ('MetaData "ConsensusSettingsGetRequest" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "ConsensusSettingsGetRequest" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusSettingsGetRequestBlockId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString) :*: S1 ('MetaSel ('Just "consensusSettingsGetRequestKeys") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Text))))

data ConsensusSettingsGetResponse Source #

Constructors

ConsensusSettingsGetResponse 

Fields

Instances

Instances details
Eq ConsensusSettingsGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusSettingsGetResponse -> ConsensusSettingsGetResponse -> Bool Source #

(/=) :: ConsensusSettingsGetResponse -> ConsensusSettingsGetResponse -> Bool Source #

Ord ConsensusSettingsGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusSettingsGetResponse -> ConsensusSettingsGetResponse -> Ordering Source #

(<) :: ConsensusSettingsGetResponse -> ConsensusSettingsGetResponse -> Bool Source #

(<=) :: ConsensusSettingsGetResponse -> ConsensusSettingsGetResponse -> Bool Source #

(>) :: ConsensusSettingsGetResponse -> ConsensusSettingsGetResponse -> Bool Source #

(>=) :: ConsensusSettingsGetResponse -> ConsensusSettingsGetResponse -> Bool Source #

max :: ConsensusSettingsGetResponse -> ConsensusSettingsGetResponse -> ConsensusSettingsGetResponse Source #

min :: ConsensusSettingsGetResponse -> ConsensusSettingsGetResponse -> ConsensusSettingsGetResponse Source #

Show ConsensusSettingsGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusSettingsGetResponse -> ShowS Source #

show :: ConsensusSettingsGetResponse -> String Source #

showList :: [ConsensusSettingsGetResponse] -> ShowS Source #

Generic ConsensusSettingsGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusSettingsGetResponse :: Type -> Type Source #

Methods

from :: ConsensusSettingsGetResponse -> Rep ConsensusSettingsGetResponse x Source #

to :: Rep ConsensusSettingsGetResponse x -> ConsensusSettingsGetResponse Source #

ToJSON ConsensusSettingsGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusSettingsGetResponse -> Value Source #

toEncoding :: ConsensusSettingsGetResponse -> Encoding Source #

toJSONList :: [ConsensusSettingsGetResponse] -> Value Source #

toEncodingList :: [ConsensusSettingsGetResponse] -> Encoding Source #

FromJSON ConsensusSettingsGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusSettingsGetResponse Source #

parseJSONList :: Value -> Parser [ConsensusSettingsGetResponse] Source #

NFData ConsensusSettingsGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusSettingsGetResponse -> () Source #

ToJSONPB ConsensusSettingsGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusSettingsGetResponse -> Options -> Value Source #

toEncodingPB :: ConsensusSettingsGetResponse -> Options -> Encoding Source #

FromJSONPB ConsensusSettingsGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusSettingsGetResponse Source #

HasDefault ConsensusSettingsGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusSettingsGetResponse Source #

isDefault :: ConsensusSettingsGetResponse -> Bool Source #

Named ConsensusSettingsGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusSettingsGetResponse -> string Source #

Message ConsensusSettingsGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusSettingsGetResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusSettingsGetResponse Source #

dotProto :: Proxy# ConsensusSettingsGetResponse -> [DotProtoField] Source #

ToSchema ConsensusSettingsGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusSettingsGetResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusSettingsGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusSettingsGetResponse = D1 ('MetaData "ConsensusSettingsGetResponse" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "ConsensusSettingsGetResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusSettingsGetResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated ConsensusSettingsGetResponse_Status)) :*: S1 ('MetaSel ('Just "consensusSettingsGetResponseEntries") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector ConsensusSettingsEntry))))

data ConsensusSettingsGetResponse_Status Source #

Constructors

ConsensusSettingsGetResponse_StatusSTATUS_UNSET 
ConsensusSettingsGetResponse_StatusOK 
ConsensusSettingsGetResponse_StatusBAD_REQUEST 
ConsensusSettingsGetResponse_StatusSERVICE_ERROR 
ConsensusSettingsGetResponse_StatusNOT_READY 
ConsensusSettingsGetResponse_StatusUNKNOWN_BLOCK 
ConsensusSettingsGetResponse_StatusNOT_ACTIVE_ENGINE 

Instances

Instances details
Bounded ConsensusSettingsGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

minBound :: ConsensusSettingsGetResponse_Status Source #

maxBound :: ConsensusSettingsGetResponse_Status Source #

Eq ConsensusSettingsGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusSettingsGetResponse_Status -> ConsensusSettingsGetResponse_Status -> Bool Source #

(/=) :: ConsensusSettingsGetResponse_Status -> ConsensusSettingsGetResponse_Status -> Bool Source #

Ord ConsensusSettingsGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusSettingsGetResponse_Status -> ConsensusSettingsGetResponse_Status -> Ordering Source #

(<) :: ConsensusSettingsGetResponse_Status -> ConsensusSettingsGetResponse_Status -> Bool Source #

(<=) :: ConsensusSettingsGetResponse_Status -> ConsensusSettingsGetResponse_Status -> Bool Source #

(>) :: ConsensusSettingsGetResponse_Status -> ConsensusSettingsGetResponse_Status -> Bool Source #

(>=) :: ConsensusSettingsGetResponse_Status -> ConsensusSettingsGetResponse_Status -> Bool Source #

max :: ConsensusSettingsGetResponse_Status -> ConsensusSettingsGetResponse_Status -> ConsensusSettingsGetResponse_Status Source #

min :: ConsensusSettingsGetResponse_Status -> ConsensusSettingsGetResponse_Status -> ConsensusSettingsGetResponse_Status Source #

Show ConsensusSettingsGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusSettingsGetResponse_Status -> ShowS Source #

show :: ConsensusSettingsGetResponse_Status -> String Source #

showList :: [ConsensusSettingsGetResponse_Status] -> ShowS Source #

Generic ConsensusSettingsGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusSettingsGetResponse_Status :: Type -> Type Source #

Methods

from :: ConsensusSettingsGetResponse_Status -> Rep ConsensusSettingsGetResponse_Status x Source #

to :: Rep ConsensusSettingsGetResponse_Status x -> ConsensusSettingsGetResponse_Status Source #

ToJSON ConsensusSettingsGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusSettingsGetResponse_Status -> Value Source #

toEncoding :: ConsensusSettingsGetResponse_Status -> Encoding Source #

toJSONList :: [ConsensusSettingsGetResponse_Status] -> Value Source #

toEncodingList :: [ConsensusSettingsGetResponse_Status] -> Encoding Source #

FromJSON ConsensusSettingsGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusSettingsGetResponse_Status Source #

parseJSONList :: Value -> Parser [ConsensusSettingsGetResponse_Status] Source #

NFData ConsensusSettingsGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusSettingsGetResponse_Status -> () Source #

ProtoEnum ConsensusSettingsGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toProtoEnumMay :: Int32 -> Maybe ConsensusSettingsGetResponse_Status Source #

fromProtoEnum :: ConsensusSettingsGetResponse_Status -> Int32 Source #

ToJSONPB ConsensusSettingsGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusSettingsGetResponse_Status -> Options -> Value Source #

toEncodingPB :: ConsensusSettingsGetResponse_Status -> Options -> Encoding Source #

FromJSONPB ConsensusSettingsGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusSettingsGetResponse_Status Source #

HasDefault ConsensusSettingsGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusSettingsGetResponse_Status Source #

isDefault :: ConsensusSettingsGetResponse_Status -> Bool Source #

Named ConsensusSettingsGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusSettingsGetResponse_Status -> string Source #

Finite ConsensusSettingsGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

enumerate :: IsString string => Proxy# ConsensusSettingsGetResponse_Status -> [(string, Int32)] Source #

type Rep ConsensusSettingsGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusSettingsGetResponse_Status = D1 ('MetaData "ConsensusSettingsGetResponse_Status" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) ((C1 ('MetaCons "ConsensusSettingsGetResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "ConsensusSettingsGetResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusSettingsGetResponse_StatusBAD_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "ConsensusSettingsGetResponse_StatusSERVICE_ERROR" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusSettingsGetResponse_StatusNOT_READY" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ConsensusSettingsGetResponse_StatusUNKNOWN_BLOCK" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusSettingsGetResponse_StatusNOT_ACTIVE_ENGINE" 'PrefixI 'False) (U1 :: Type -> Type))))

data ConsensusStateGetRequest Source #

Constructors

ConsensusStateGetRequest 

Fields

Instances

Instances details
Eq ConsensusStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusStateGetRequest -> ConsensusStateGetRequest -> Bool Source #

(/=) :: ConsensusStateGetRequest -> ConsensusStateGetRequest -> Bool Source #

Ord ConsensusStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusStateGetRequest -> ConsensusStateGetRequest -> Ordering Source #

(<) :: ConsensusStateGetRequest -> ConsensusStateGetRequest -> Bool Source #

(<=) :: ConsensusStateGetRequest -> ConsensusStateGetRequest -> Bool Source #

(>) :: ConsensusStateGetRequest -> ConsensusStateGetRequest -> Bool Source #

(>=) :: ConsensusStateGetRequest -> ConsensusStateGetRequest -> Bool Source #

max :: ConsensusStateGetRequest -> ConsensusStateGetRequest -> ConsensusStateGetRequest Source #

min :: ConsensusStateGetRequest -> ConsensusStateGetRequest -> ConsensusStateGetRequest Source #

Show ConsensusStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusStateGetRequest -> ShowS Source #

show :: ConsensusStateGetRequest -> String Source #

showList :: [ConsensusStateGetRequest] -> ShowS Source #

Generic ConsensusStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusStateGetRequest :: Type -> Type Source #

Methods

from :: ConsensusStateGetRequest -> Rep ConsensusStateGetRequest x Source #

to :: Rep ConsensusStateGetRequest x -> ConsensusStateGetRequest Source #

ToJSON ConsensusStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusStateGetRequest -> Value Source #

toEncoding :: ConsensusStateGetRequest -> Encoding Source #

toJSONList :: [ConsensusStateGetRequest] -> Value Source #

toEncodingList :: [ConsensusStateGetRequest] -> Encoding Source #

FromJSON ConsensusStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusStateGetRequest Source #

parseJSONList :: Value -> Parser [ConsensusStateGetRequest] Source #

NFData ConsensusStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusStateGetRequest -> () Source #

ToJSONPB ConsensusStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusStateGetRequest -> Options -> Value Source #

toEncodingPB :: ConsensusStateGetRequest -> Options -> Encoding Source #

FromJSONPB ConsensusStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusStateGetRequest Source #

HasDefault ConsensusStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusStateGetRequest Source #

isDefault :: ConsensusStateGetRequest -> Bool Source #

Named ConsensusStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusStateGetRequest -> string Source #

Message ConsensusStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusStateGetRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusStateGetRequest Source #

dotProto :: Proxy# ConsensusStateGetRequest -> [DotProtoField] Source #

ToSchema ConsensusStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusStateGetRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusStateGetRequest = D1 ('MetaData "ConsensusStateGetRequest" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "ConsensusStateGetRequest" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusStateGetRequestBlockId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString) :*: S1 ('MetaSel ('Just "consensusStateGetRequestAddresses") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Text))))

data ConsensusStateGetResponse Source #

Constructors

ConsensusStateGetResponse 

Fields

Instances

Instances details
Eq ConsensusStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusStateGetResponse -> ConsensusStateGetResponse -> Bool Source #

(/=) :: ConsensusStateGetResponse -> ConsensusStateGetResponse -> Bool Source #

Ord ConsensusStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusStateGetResponse -> ConsensusStateGetResponse -> Ordering Source #

(<) :: ConsensusStateGetResponse -> ConsensusStateGetResponse -> Bool Source #

(<=) :: ConsensusStateGetResponse -> ConsensusStateGetResponse -> Bool Source #

(>) :: ConsensusStateGetResponse -> ConsensusStateGetResponse -> Bool Source #

(>=) :: ConsensusStateGetResponse -> ConsensusStateGetResponse -> Bool Source #

max :: ConsensusStateGetResponse -> ConsensusStateGetResponse -> ConsensusStateGetResponse Source #

min :: ConsensusStateGetResponse -> ConsensusStateGetResponse -> ConsensusStateGetResponse Source #

Show ConsensusStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusStateGetResponse -> ShowS Source #

show :: ConsensusStateGetResponse -> String Source #

showList :: [ConsensusStateGetResponse] -> ShowS Source #

Generic ConsensusStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusStateGetResponse :: Type -> Type Source #

Methods

from :: ConsensusStateGetResponse -> Rep ConsensusStateGetResponse x Source #

to :: Rep ConsensusStateGetResponse x -> ConsensusStateGetResponse Source #

ToJSON ConsensusStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusStateGetResponse -> Value Source #

toEncoding :: ConsensusStateGetResponse -> Encoding Source #

toJSONList :: [ConsensusStateGetResponse] -> Value Source #

toEncodingList :: [ConsensusStateGetResponse] -> Encoding Source #

FromJSON ConsensusStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusStateGetResponse Source #

parseJSONList :: Value -> Parser [ConsensusStateGetResponse] Source #

NFData ConsensusStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusStateGetResponse -> () Source #

ToJSONPB ConsensusStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusStateGetResponse -> Options -> Value Source #

toEncodingPB :: ConsensusStateGetResponse -> Options -> Encoding Source #

FromJSONPB ConsensusStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusStateGetResponse Source #

HasDefault ConsensusStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusStateGetResponse Source #

isDefault :: ConsensusStateGetResponse -> Bool Source #

Named ConsensusStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusStateGetResponse -> string Source #

Message ConsensusStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

encodeMessage :: FieldNumber -> ConsensusStateGetResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ConsensusStateGetResponse Source #

dotProto :: Proxy# ConsensusStateGetResponse -> [DotProtoField] Source #

ToSchema ConsensusStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

declareNamedSchema :: Proxy ConsensusStateGetResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep ConsensusStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusStateGetResponse = D1 ('MetaData "ConsensusStateGetResponse" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "ConsensusStateGetResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "consensusStateGetResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated ConsensusStateGetResponse_Status)) :*: S1 ('MetaSel ('Just "consensusStateGetResponseEntries") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector ConsensusStateEntry))))

data ConsensusStateGetResponse_Status Source #

Constructors

ConsensusStateGetResponse_StatusSTATUS_UNSET 
ConsensusStateGetResponse_StatusOK 
ConsensusStateGetResponse_StatusBAD_REQUEST 
ConsensusStateGetResponse_StatusSERVICE_ERROR 
ConsensusStateGetResponse_StatusNOT_READY 
ConsensusStateGetResponse_StatusUNKNOWN_BLOCK 
ConsensusStateGetResponse_StatusNOT_ACTIVE_ENGINE 

Instances

Instances details
Bounded ConsensusStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

minBound :: ConsensusStateGetResponse_Status Source #

maxBound :: ConsensusStateGetResponse_Status Source #

Eq ConsensusStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

(==) :: ConsensusStateGetResponse_Status -> ConsensusStateGetResponse_Status -> Bool Source #

(/=) :: ConsensusStateGetResponse_Status -> ConsensusStateGetResponse_Status -> Bool Source #

Ord ConsensusStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

compare :: ConsensusStateGetResponse_Status -> ConsensusStateGetResponse_Status -> Ordering Source #

(<) :: ConsensusStateGetResponse_Status -> ConsensusStateGetResponse_Status -> Bool Source #

(<=) :: ConsensusStateGetResponse_Status -> ConsensusStateGetResponse_Status -> Bool Source #

(>) :: ConsensusStateGetResponse_Status -> ConsensusStateGetResponse_Status -> Bool Source #

(>=) :: ConsensusStateGetResponse_Status -> ConsensusStateGetResponse_Status -> Bool Source #

max :: ConsensusStateGetResponse_Status -> ConsensusStateGetResponse_Status -> ConsensusStateGetResponse_Status Source #

min :: ConsensusStateGetResponse_Status -> ConsensusStateGetResponse_Status -> ConsensusStateGetResponse_Status Source #

Show ConsensusStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

showsPrec :: Int -> ConsensusStateGetResponse_Status -> ShowS Source #

show :: ConsensusStateGetResponse_Status -> String Source #

showList :: [ConsensusStateGetResponse_Status] -> ShowS Source #

Generic ConsensusStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Associated Types

type Rep ConsensusStateGetResponse_Status :: Type -> Type Source #

Methods

from :: ConsensusStateGetResponse_Status -> Rep ConsensusStateGetResponse_Status x Source #

to :: Rep ConsensusStateGetResponse_Status x -> ConsensusStateGetResponse_Status Source #

ToJSON ConsensusStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSON :: ConsensusStateGetResponse_Status -> Value Source #

toEncoding :: ConsensusStateGetResponse_Status -> Encoding Source #

toJSONList :: [ConsensusStateGetResponse_Status] -> Value Source #

toEncodingList :: [ConsensusStateGetResponse_Status] -> Encoding Source #

FromJSON ConsensusStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSON :: Value -> Parser ConsensusStateGetResponse_Status Source #

parseJSONList :: Value -> Parser [ConsensusStateGetResponse_Status] Source #

NFData ConsensusStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

rnf :: ConsensusStateGetResponse_Status -> () Source #

ProtoEnum ConsensusStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toProtoEnumMay :: Int32 -> Maybe ConsensusStateGetResponse_Status Source #

fromProtoEnum :: ConsensusStateGetResponse_Status -> Int32 Source #

ToJSONPB ConsensusStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

toJSONPB :: ConsensusStateGetResponse_Status -> Options -> Value Source #

toEncodingPB :: ConsensusStateGetResponse_Status -> Options -> Encoding Source #

FromJSONPB ConsensusStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

parseJSONPB :: Value -> Parser ConsensusStateGetResponse_Status Source #

HasDefault ConsensusStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

def :: ConsensusStateGetResponse_Status Source #

isDefault :: ConsensusStateGetResponse_Status -> Bool Source #

Named ConsensusStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

nameOf :: IsString string => Proxy# ConsensusStateGetResponse_Status -> string Source #

Finite ConsensusStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

Methods

enumerate :: IsString string => Proxy# ConsensusStateGetResponse_Status -> [(string, Int32)] Source #

type Rep ConsensusStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Consensus

type Rep ConsensusStateGetResponse_Status = D1 ('MetaData "ConsensusStateGetResponse_Status" "Data.Sawtooth.Consensus" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) ((C1 ('MetaCons "ConsensusStateGetResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "ConsensusStateGetResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusStateGetResponse_StatusBAD_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "ConsensusStateGetResponse_StatusSERVICE_ERROR" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusStateGetResponse_StatusNOT_READY" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ConsensusStateGetResponse_StatusUNKNOWN_BLOCK" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ConsensusStateGetResponse_StatusNOT_ACTIVE_ENGINE" 'PrefixI 'False) (U1 :: Type -> Type))))
\ No newline at end of file diff --git a/Data-Sawtooth-Events.html b/Data-Sawtooth-Events.html index 6312401..4c6640e 100644 --- a/Data-Sawtooth-Events.html +++ b/Data-Sawtooth-Events.html @@ -1 +1 @@ -Data.Sawtooth.Events
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types
Safe HaskellNone
LanguageHaskell2010

Data.Sawtooth.Events

Description

Generated by Haskell protocol buffer compiler. DO NOT EDIT!

Documentation

data Event Source #

Constructors

Event 

Fields

Instances

Instances details
Eq Event Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

(==) :: Event -> Event -> Bool Source #

(/=) :: Event -> Event -> Bool Source #

Ord Event Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

compare :: Event -> Event -> Ordering Source #

(<) :: Event -> Event -> Bool Source #

(<=) :: Event -> Event -> Bool Source #

(>) :: Event -> Event -> Bool Source #

(>=) :: Event -> Event -> Bool Source #

max :: Event -> Event -> Event Source #

min :: Event -> Event -> Event Source #

Show Event Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

showsPrec :: Int -> Event -> ShowS Source #

show :: Event -> String Source #

showList :: [Event] -> ShowS Source #

Generic Event Source # 
Instance details

Defined in Data.Sawtooth.Events

Associated Types

type Rep Event :: Type -> Type Source #

Methods

from :: Event -> Rep Event x Source #

to :: Rep Event x -> Event Source #

ToJSON Event Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

toJSON :: Event -> Value Source #

toEncoding :: Event -> Encoding Source #

toJSONList :: [Event] -> Value Source #

toEncodingList :: [Event] -> Encoding Source #

FromJSON Event Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

parseJSON :: Value -> Parser Event Source #

parseJSONList :: Value -> Parser [Event] Source #

NFData Event Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

rnf :: Event -> () Source #

ToJSONPB Event Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

toJSONPB :: Event -> Options -> Value Source #

toEncodingPB :: Event -> Options -> Encoding Source #

FromJSONPB Event Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

parseJSONPB :: Value -> Parser Event Source #

HasDefault Event Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

def :: Event Source #

isDefault :: Event -> Bool Source #

Named Event Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

nameOf :: IsString string => Proxy# Event -> string Source #

Message Event Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

encodeMessage :: FieldNumber -> Event -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage Event Source #

dotProto :: Proxy# Event -> [DotProtoField] Source #

ToSchema Event Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

declareNamedSchema :: Proxy Event -> Declare (Definitions Schema) NamedSchema Source #

type Rep Event Source # 
Instance details

Defined in Data.Sawtooth.Events

type Rep Event = D1 ('MetaData "Event" "Data.Sawtooth.Events" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "Event" 'PrefixI 'True) (S1 ('MetaSel ('Just "eventEventType") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: (S1 ('MetaSel ('Just "eventAttributes") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Event_Attribute)) :*: S1 ('MetaSel ('Just "eventData") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString))))

data Event_Attribute Source #

Constructors

Event_Attribute 

Fields

Instances

Instances details
Eq Event_Attribute Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

(==) :: Event_Attribute -> Event_Attribute -> Bool Source #

(/=) :: Event_Attribute -> Event_Attribute -> Bool Source #

Ord Event_Attribute Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

compare :: Event_Attribute -> Event_Attribute -> Ordering Source #

(<) :: Event_Attribute -> Event_Attribute -> Bool Source #

(<=) :: Event_Attribute -> Event_Attribute -> Bool Source #

(>) :: Event_Attribute -> Event_Attribute -> Bool Source #

(>=) :: Event_Attribute -> Event_Attribute -> Bool Source #

max :: Event_Attribute -> Event_Attribute -> Event_Attribute Source #

min :: Event_Attribute -> Event_Attribute -> Event_Attribute Source #

Show Event_Attribute Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

showsPrec :: Int -> Event_Attribute -> ShowS Source #

show :: Event_Attribute -> String Source #

showList :: [Event_Attribute] -> ShowS Source #

Generic Event_Attribute Source # 
Instance details

Defined in Data.Sawtooth.Events

Associated Types

type Rep Event_Attribute :: Type -> Type Source #

Methods

from :: Event_Attribute -> Rep Event_Attribute x Source #

to :: Rep Event_Attribute x -> Event_Attribute Source #

ToJSON Event_Attribute Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

toJSON :: Event_Attribute -> Value Source #

toEncoding :: Event_Attribute -> Encoding Source #

toJSONList :: [Event_Attribute] -> Value Source #

toEncodingList :: [Event_Attribute] -> Encoding Source #

FromJSON Event_Attribute Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

parseJSON :: Value -> Parser Event_Attribute Source #

parseJSONList :: Value -> Parser [Event_Attribute] Source #

NFData Event_Attribute Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

rnf :: Event_Attribute -> () Source #

ToJSONPB Event_Attribute Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

toJSONPB :: Event_Attribute -> Options -> Value Source #

toEncodingPB :: Event_Attribute -> Options -> Encoding Source #

FromJSONPB Event_Attribute Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

parseJSONPB :: Value -> Parser Event_Attribute Source #

HasDefault Event_Attribute Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

def :: Event_Attribute Source #

isDefault :: Event_Attribute -> Bool Source #

Named Event_Attribute Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

nameOf :: IsString string => Proxy# Event_Attribute -> string Source #

Message Event_Attribute Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

encodeMessage :: FieldNumber -> Event_Attribute -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage Event_Attribute Source #

dotProto :: Proxy# Event_Attribute -> [DotProtoField] Source #

ToSchema Event_Attribute Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

declareNamedSchema :: Proxy Event_Attribute -> Declare (Definitions Schema) NamedSchema Source #

type Rep Event_Attribute Source # 
Instance details

Defined in Data.Sawtooth.Events

type Rep Event_Attribute = D1 ('MetaData "Event_Attribute" "Data.Sawtooth.Events" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "Event_Attribute" 'PrefixI 'True) (S1 ('MetaSel ('Just "event_AttributeKey") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "event_AttributeValue") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)))

newtype EventList Source #

Constructors

EventList 

Fields

Instances

Instances details
Eq EventList Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

(==) :: EventList -> EventList -> Bool Source #

(/=) :: EventList -> EventList -> Bool Source #

Ord EventList Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

compare :: EventList -> EventList -> Ordering Source #

(<) :: EventList -> EventList -> Bool Source #

(<=) :: EventList -> EventList -> Bool Source #

(>) :: EventList -> EventList -> Bool Source #

(>=) :: EventList -> EventList -> Bool Source #

max :: EventList -> EventList -> EventList Source #

min :: EventList -> EventList -> EventList Source #

Show EventList Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

showsPrec :: Int -> EventList -> ShowS Source #

show :: EventList -> String Source #

showList :: [EventList] -> ShowS Source #

Generic EventList Source # 
Instance details

Defined in Data.Sawtooth.Events

Associated Types

type Rep EventList :: Type -> Type Source #

Methods

from :: EventList -> Rep EventList x Source #

to :: Rep EventList x -> EventList Source #

ToJSON EventList Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

toJSON :: EventList -> Value Source #

toEncoding :: EventList -> Encoding Source #

toJSONList :: [EventList] -> Value Source #

toEncodingList :: [EventList] -> Encoding Source #

FromJSON EventList Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

parseJSON :: Value -> Parser EventList Source #

parseJSONList :: Value -> Parser [EventList] Source #

NFData EventList Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

rnf :: EventList -> () Source #

ToJSONPB EventList Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

toJSONPB :: EventList -> Options -> Value Source #

toEncodingPB :: EventList -> Options -> Encoding Source #

FromJSONPB EventList Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

parseJSONPB :: Value -> Parser EventList Source #

HasDefault EventList Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

def :: EventList Source #

isDefault :: EventList -> Bool Source #

Named EventList Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

nameOf :: IsString string => Proxy# EventList -> string Source #

Message EventList Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

encodeMessage :: FieldNumber -> EventList -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage EventList Source #

dotProto :: Proxy# EventList -> [DotProtoField] Source #

ToSchema EventList Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

declareNamedSchema :: Proxy EventList -> Declare (Definitions Schema) NamedSchema Source #

type Rep EventList Source # 
Instance details

Defined in Data.Sawtooth.Events

type Rep EventList = D1 ('MetaData "EventList" "Data.Sawtooth.Events" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'True) (C1 ('MetaCons "EventList" 'PrefixI 'True) (S1 ('MetaSel ('Just "eventListEvents") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Event))))

data EventFilter Source #

Constructors

EventFilter 

Fields

Instances

Instances details
Eq EventFilter Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

(==) :: EventFilter -> EventFilter -> Bool Source #

(/=) :: EventFilter -> EventFilter -> Bool Source #

Ord EventFilter Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

compare :: EventFilter -> EventFilter -> Ordering Source #

(<) :: EventFilter -> EventFilter -> Bool Source #

(<=) :: EventFilter -> EventFilter -> Bool Source #

(>) :: EventFilter -> EventFilter -> Bool Source #

(>=) :: EventFilter -> EventFilter -> Bool Source #

max :: EventFilter -> EventFilter -> EventFilter Source #

min :: EventFilter -> EventFilter -> EventFilter Source #

Show EventFilter Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

showsPrec :: Int -> EventFilter -> ShowS Source #

show :: EventFilter -> String Source #

showList :: [EventFilter] -> ShowS Source #

Generic EventFilter Source # 
Instance details

Defined in Data.Sawtooth.Events

Associated Types

type Rep EventFilter :: Type -> Type Source #

Methods

from :: EventFilter -> Rep EventFilter x Source #

to :: Rep EventFilter x -> EventFilter Source #

ToJSON EventFilter Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

toJSON :: EventFilter -> Value Source #

toEncoding :: EventFilter -> Encoding Source #

toJSONList :: [EventFilter] -> Value Source #

toEncodingList :: [EventFilter] -> Encoding Source #

FromJSON EventFilter Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

parseJSON :: Value -> Parser EventFilter Source #

parseJSONList :: Value -> Parser [EventFilter] Source #

NFData EventFilter Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

rnf :: EventFilter -> () Source #

ToJSONPB EventFilter Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

toJSONPB :: EventFilter -> Options -> Value Source #

toEncodingPB :: EventFilter -> Options -> Encoding Source #

FromJSONPB EventFilter Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

parseJSONPB :: Value -> Parser EventFilter Source #

HasDefault EventFilter Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

def :: EventFilter Source #

isDefault :: EventFilter -> Bool Source #

Named EventFilter Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

nameOf :: IsString string => Proxy# EventFilter -> string Source #

Message EventFilter Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

encodeMessage :: FieldNumber -> EventFilter -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage EventFilter Source #

dotProto :: Proxy# EventFilter -> [DotProtoField] Source #

ToSchema EventFilter Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

declareNamedSchema :: Proxy EventFilter -> Declare (Definitions Schema) NamedSchema Source #

type Rep EventFilter Source # 
Instance details

Defined in Data.Sawtooth.Events

type Rep EventFilter = D1 ('MetaData "EventFilter" "Data.Sawtooth.Events" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "EventFilter" 'PrefixI 'True) (S1 ('MetaSel ('Just "eventFilterKey") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: (S1 ('MetaSel ('Just "eventFilterMatchString") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "eventFilterFilterType") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated EventFilter_FilterType)))))

data EventFilter_FilterType Source #

Constructors

EventFilter_FilterTypeFILTER_TYPE_UNSET 
EventFilter_FilterTypeSIMPLE_ANY 
EventFilter_FilterTypeSIMPLE_ALL 
EventFilter_FilterTypeREGEX_ANY 
EventFilter_FilterTypeREGEX_ALL 

Instances

Instances details
Bounded EventFilter_FilterType Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

minBound :: EventFilter_FilterType Source #

maxBound :: EventFilter_FilterType Source #

Eq EventFilter_FilterType Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

(==) :: EventFilter_FilterType -> EventFilter_FilterType -> Bool Source #

(/=) :: EventFilter_FilterType -> EventFilter_FilterType -> Bool Source #

Ord EventFilter_FilterType Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

compare :: EventFilter_FilterType -> EventFilter_FilterType -> Ordering Source #

(<) :: EventFilter_FilterType -> EventFilter_FilterType -> Bool Source #

(<=) :: EventFilter_FilterType -> EventFilter_FilterType -> Bool Source #

(>) :: EventFilter_FilterType -> EventFilter_FilterType -> Bool Source #

(>=) :: EventFilter_FilterType -> EventFilter_FilterType -> Bool Source #

max :: EventFilter_FilterType -> EventFilter_FilterType -> EventFilter_FilterType Source #

min :: EventFilter_FilterType -> EventFilter_FilterType -> EventFilter_FilterType Source #

Show EventFilter_FilterType Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

showsPrec :: Int -> EventFilter_FilterType -> ShowS Source #

show :: EventFilter_FilterType -> String Source #

showList :: [EventFilter_FilterType] -> ShowS Source #

Generic EventFilter_FilterType Source # 
Instance details

Defined in Data.Sawtooth.Events

Associated Types

type Rep EventFilter_FilterType :: Type -> Type Source #

Methods

from :: EventFilter_FilterType -> Rep EventFilter_FilterType x Source #

to :: Rep EventFilter_FilterType x -> EventFilter_FilterType Source #

ToJSON EventFilter_FilterType Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

toJSON :: EventFilter_FilterType -> Value Source #

toEncoding :: EventFilter_FilterType -> Encoding Source #

toJSONList :: [EventFilter_FilterType] -> Value Source #

toEncodingList :: [EventFilter_FilterType] -> Encoding Source #

FromJSON EventFilter_FilterType Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

parseJSON :: Value -> Parser EventFilter_FilterType Source #

parseJSONList :: Value -> Parser [EventFilter_FilterType] Source #

NFData EventFilter_FilterType Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

rnf :: EventFilter_FilterType -> () Source #

ProtoEnum EventFilter_FilterType Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

toProtoEnumMay :: Int32 -> Maybe EventFilter_FilterType Source #

fromProtoEnum :: EventFilter_FilterType -> Int32 Source #

ToJSONPB EventFilter_FilterType Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

toJSONPB :: EventFilter_FilterType -> Options -> Value Source #

toEncodingPB :: EventFilter_FilterType -> Options -> Encoding Source #

FromJSONPB EventFilter_FilterType Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

parseJSONPB :: Value -> Parser EventFilter_FilterType Source #

HasDefault EventFilter_FilterType Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

def :: EventFilter_FilterType Source #

isDefault :: EventFilter_FilterType -> Bool Source #

Named EventFilter_FilterType Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

nameOf :: IsString string => Proxy# EventFilter_FilterType -> string Source #

Finite EventFilter_FilterType Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

enumerate :: IsString string => Proxy# EventFilter_FilterType -> [(string, Int32)] Source #

type Rep EventFilter_FilterType Source # 
Instance details

Defined in Data.Sawtooth.Events

type Rep EventFilter_FilterType = D1 ('MetaData "EventFilter_FilterType" "Data.Sawtooth.Events" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) ((C1 ('MetaCons "EventFilter_FilterTypeFILTER_TYPE_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "EventFilter_FilterTypeSIMPLE_ANY" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "EventFilter_FilterTypeSIMPLE_ALL" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "EventFilter_FilterTypeREGEX_ANY" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "EventFilter_FilterTypeREGEX_ALL" 'PrefixI 'False) (U1 :: Type -> Type))))

data EventSubscription Source #

Constructors

EventSubscription 

Fields

Instances

Instances details
Eq EventSubscription Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

(==) :: EventSubscription -> EventSubscription -> Bool Source #

(/=) :: EventSubscription -> EventSubscription -> Bool Source #

Ord EventSubscription Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

compare :: EventSubscription -> EventSubscription -> Ordering Source #

(<) :: EventSubscription -> EventSubscription -> Bool Source #

(<=) :: EventSubscription -> EventSubscription -> Bool Source #

(>) :: EventSubscription -> EventSubscription -> Bool Source #

(>=) :: EventSubscription -> EventSubscription -> Bool Source #

max :: EventSubscription -> EventSubscription -> EventSubscription Source #

min :: EventSubscription -> EventSubscription -> EventSubscription Source #

Show EventSubscription Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

showsPrec :: Int -> EventSubscription -> ShowS Source #

show :: EventSubscription -> String Source #

showList :: [EventSubscription] -> ShowS Source #

Generic EventSubscription Source # 
Instance details

Defined in Data.Sawtooth.Events

Associated Types

type Rep EventSubscription :: Type -> Type Source #

Methods

from :: EventSubscription -> Rep EventSubscription x Source #

to :: Rep EventSubscription x -> EventSubscription Source #

ToJSON EventSubscription Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

toJSON :: EventSubscription -> Value Source #

toEncoding :: EventSubscription -> Encoding Source #

toJSONList :: [EventSubscription] -> Value Source #

toEncodingList :: [EventSubscription] -> Encoding Source #

FromJSON EventSubscription Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

parseJSON :: Value -> Parser EventSubscription Source #

parseJSONList :: Value -> Parser [EventSubscription] Source #

NFData EventSubscription Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

rnf :: EventSubscription -> () Source #

ToJSONPB EventSubscription Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

toJSONPB :: EventSubscription -> Options -> Value Source #

toEncodingPB :: EventSubscription -> Options -> Encoding Source #

FromJSONPB EventSubscription Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

parseJSONPB :: Value -> Parser EventSubscription Source #

HasDefault EventSubscription Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

def :: EventSubscription Source #

isDefault :: EventSubscription -> Bool Source #

Named EventSubscription Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

nameOf :: IsString string => Proxy# EventSubscription -> string Source #

Message EventSubscription Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

encodeMessage :: FieldNumber -> EventSubscription -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage EventSubscription Source #

dotProto :: Proxy# EventSubscription -> [DotProtoField] Source #

ToSchema EventSubscription Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

declareNamedSchema :: Proxy EventSubscription -> Declare (Definitions Schema) NamedSchema Source #

type Rep EventSubscription Source # 
Instance details

Defined in Data.Sawtooth.Events

type Rep EventSubscription = D1 ('MetaData "EventSubscription" "Data.Sawtooth.Events" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "EventSubscription" 'PrefixI 'True) (S1 ('MetaSel ('Just "eventSubscriptionEventType") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "eventSubscriptionFilters") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector EventFilter))))
\ No newline at end of file +Data.Sawtooth.Events
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types
Safe HaskellNone
LanguageHaskell2010

Data.Sawtooth.Events

Description

Generated by Haskell protocol buffer compiler. DO NOT EDIT!

Documentation

data Event Source #

Constructors

Event 

Fields

Instances

Instances details
Eq Event Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

(==) :: Event -> Event -> Bool Source #

(/=) :: Event -> Event -> Bool Source #

Ord Event Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

compare :: Event -> Event -> Ordering Source #

(<) :: Event -> Event -> Bool Source #

(<=) :: Event -> Event -> Bool Source #

(>) :: Event -> Event -> Bool Source #

(>=) :: Event -> Event -> Bool Source #

max :: Event -> Event -> Event Source #

min :: Event -> Event -> Event Source #

Show Event Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

showsPrec :: Int -> Event -> ShowS Source #

show :: Event -> String Source #

showList :: [Event] -> ShowS Source #

Generic Event Source # 
Instance details

Defined in Data.Sawtooth.Events

Associated Types

type Rep Event :: Type -> Type Source #

Methods

from :: Event -> Rep Event x Source #

to :: Rep Event x -> Event Source #

ToJSON Event Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

toJSON :: Event -> Value Source #

toEncoding :: Event -> Encoding Source #

toJSONList :: [Event] -> Value Source #

toEncodingList :: [Event] -> Encoding Source #

FromJSON Event Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

parseJSON :: Value -> Parser Event Source #

parseJSONList :: Value -> Parser [Event] Source #

NFData Event Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

rnf :: Event -> () Source #

ToJSONPB Event Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

toJSONPB :: Event -> Options -> Value Source #

toEncodingPB :: Event -> Options -> Encoding Source #

FromJSONPB Event Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

parseJSONPB :: Value -> Parser Event Source #

HasDefault Event Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

def :: Event Source #

isDefault :: Event -> Bool Source #

Named Event Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

nameOf :: IsString string => Proxy# Event -> string Source #

Message Event Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

encodeMessage :: FieldNumber -> Event -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage Event Source #

dotProto :: Proxy# Event -> [DotProtoField] Source #

ToSchema Event Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

declareNamedSchema :: Proxy Event -> Declare (Definitions Schema) NamedSchema Source #

type Rep Event Source # 
Instance details

Defined in Data.Sawtooth.Events

type Rep Event = D1 ('MetaData "Event" "Data.Sawtooth.Events" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "Event" 'PrefixI 'True) (S1 ('MetaSel ('Just "eventEventType") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: (S1 ('MetaSel ('Just "eventAttributes") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Event_Attribute)) :*: S1 ('MetaSel ('Just "eventData") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString))))

data Event_Attribute Source #

Constructors

Event_Attribute 

Fields

Instances

Instances details
Eq Event_Attribute Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

(==) :: Event_Attribute -> Event_Attribute -> Bool Source #

(/=) :: Event_Attribute -> Event_Attribute -> Bool Source #

Ord Event_Attribute Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

compare :: Event_Attribute -> Event_Attribute -> Ordering Source #

(<) :: Event_Attribute -> Event_Attribute -> Bool Source #

(<=) :: Event_Attribute -> Event_Attribute -> Bool Source #

(>) :: Event_Attribute -> Event_Attribute -> Bool Source #

(>=) :: Event_Attribute -> Event_Attribute -> Bool Source #

max :: Event_Attribute -> Event_Attribute -> Event_Attribute Source #

min :: Event_Attribute -> Event_Attribute -> Event_Attribute Source #

Show Event_Attribute Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

showsPrec :: Int -> Event_Attribute -> ShowS Source #

show :: Event_Attribute -> String Source #

showList :: [Event_Attribute] -> ShowS Source #

Generic Event_Attribute Source # 
Instance details

Defined in Data.Sawtooth.Events

Associated Types

type Rep Event_Attribute :: Type -> Type Source #

Methods

from :: Event_Attribute -> Rep Event_Attribute x Source #

to :: Rep Event_Attribute x -> Event_Attribute Source #

ToJSON Event_Attribute Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

toJSON :: Event_Attribute -> Value Source #

toEncoding :: Event_Attribute -> Encoding Source #

toJSONList :: [Event_Attribute] -> Value Source #

toEncodingList :: [Event_Attribute] -> Encoding Source #

FromJSON Event_Attribute Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

parseJSON :: Value -> Parser Event_Attribute Source #

parseJSONList :: Value -> Parser [Event_Attribute] Source #

NFData Event_Attribute Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

rnf :: Event_Attribute -> () Source #

ToJSONPB Event_Attribute Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

toJSONPB :: Event_Attribute -> Options -> Value Source #

toEncodingPB :: Event_Attribute -> Options -> Encoding Source #

FromJSONPB Event_Attribute Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

parseJSONPB :: Value -> Parser Event_Attribute Source #

HasDefault Event_Attribute Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

def :: Event_Attribute Source #

isDefault :: Event_Attribute -> Bool Source #

Named Event_Attribute Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

nameOf :: IsString string => Proxy# Event_Attribute -> string Source #

Message Event_Attribute Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

encodeMessage :: FieldNumber -> Event_Attribute -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage Event_Attribute Source #

dotProto :: Proxy# Event_Attribute -> [DotProtoField] Source #

ToSchema Event_Attribute Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

declareNamedSchema :: Proxy Event_Attribute -> Declare (Definitions Schema) NamedSchema Source #

type Rep Event_Attribute Source # 
Instance details

Defined in Data.Sawtooth.Events

type Rep Event_Attribute = D1 ('MetaData "Event_Attribute" "Data.Sawtooth.Events" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "Event_Attribute" 'PrefixI 'True) (S1 ('MetaSel ('Just "event_AttributeKey") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "event_AttributeValue") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)))

newtype EventList Source #

Constructors

EventList 

Fields

Instances

Instances details
Eq EventList Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

(==) :: EventList -> EventList -> Bool Source #

(/=) :: EventList -> EventList -> Bool Source #

Ord EventList Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

compare :: EventList -> EventList -> Ordering Source #

(<) :: EventList -> EventList -> Bool Source #

(<=) :: EventList -> EventList -> Bool Source #

(>) :: EventList -> EventList -> Bool Source #

(>=) :: EventList -> EventList -> Bool Source #

max :: EventList -> EventList -> EventList Source #

min :: EventList -> EventList -> EventList Source #

Show EventList Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

showsPrec :: Int -> EventList -> ShowS Source #

show :: EventList -> String Source #

showList :: [EventList] -> ShowS Source #

Generic EventList Source # 
Instance details

Defined in Data.Sawtooth.Events

Associated Types

type Rep EventList :: Type -> Type Source #

Methods

from :: EventList -> Rep EventList x Source #

to :: Rep EventList x -> EventList Source #

ToJSON EventList Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

toJSON :: EventList -> Value Source #

toEncoding :: EventList -> Encoding Source #

toJSONList :: [EventList] -> Value Source #

toEncodingList :: [EventList] -> Encoding Source #

FromJSON EventList Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

parseJSON :: Value -> Parser EventList Source #

parseJSONList :: Value -> Parser [EventList] Source #

NFData EventList Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

rnf :: EventList -> () Source #

ToJSONPB EventList Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

toJSONPB :: EventList -> Options -> Value Source #

toEncodingPB :: EventList -> Options -> Encoding Source #

FromJSONPB EventList Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

parseJSONPB :: Value -> Parser EventList Source #

HasDefault EventList Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

def :: EventList Source #

isDefault :: EventList -> Bool Source #

Named EventList Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

nameOf :: IsString string => Proxy# EventList -> string Source #

Message EventList Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

encodeMessage :: FieldNumber -> EventList -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage EventList Source #

dotProto :: Proxy# EventList -> [DotProtoField] Source #

ToSchema EventList Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

declareNamedSchema :: Proxy EventList -> Declare (Definitions Schema) NamedSchema Source #

type Rep EventList Source # 
Instance details

Defined in Data.Sawtooth.Events

type Rep EventList = D1 ('MetaData "EventList" "Data.Sawtooth.Events" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'True) (C1 ('MetaCons "EventList" 'PrefixI 'True) (S1 ('MetaSel ('Just "eventListEvents") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Event))))

data EventFilter Source #

Constructors

EventFilter 

Fields

Instances

Instances details
Eq EventFilter Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

(==) :: EventFilter -> EventFilter -> Bool Source #

(/=) :: EventFilter -> EventFilter -> Bool Source #

Ord EventFilter Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

compare :: EventFilter -> EventFilter -> Ordering Source #

(<) :: EventFilter -> EventFilter -> Bool Source #

(<=) :: EventFilter -> EventFilter -> Bool Source #

(>) :: EventFilter -> EventFilter -> Bool Source #

(>=) :: EventFilter -> EventFilter -> Bool Source #

max :: EventFilter -> EventFilter -> EventFilter Source #

min :: EventFilter -> EventFilter -> EventFilter Source #

Show EventFilter Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

showsPrec :: Int -> EventFilter -> ShowS Source #

show :: EventFilter -> String Source #

showList :: [EventFilter] -> ShowS Source #

Generic EventFilter Source # 
Instance details

Defined in Data.Sawtooth.Events

Associated Types

type Rep EventFilter :: Type -> Type Source #

Methods

from :: EventFilter -> Rep EventFilter x Source #

to :: Rep EventFilter x -> EventFilter Source #

ToJSON EventFilter Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

toJSON :: EventFilter -> Value Source #

toEncoding :: EventFilter -> Encoding Source #

toJSONList :: [EventFilter] -> Value Source #

toEncodingList :: [EventFilter] -> Encoding Source #

FromJSON EventFilter Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

parseJSON :: Value -> Parser EventFilter Source #

parseJSONList :: Value -> Parser [EventFilter] Source #

NFData EventFilter Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

rnf :: EventFilter -> () Source #

ToJSONPB EventFilter Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

toJSONPB :: EventFilter -> Options -> Value Source #

toEncodingPB :: EventFilter -> Options -> Encoding Source #

FromJSONPB EventFilter Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

parseJSONPB :: Value -> Parser EventFilter Source #

HasDefault EventFilter Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

def :: EventFilter Source #

isDefault :: EventFilter -> Bool Source #

Named EventFilter Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

nameOf :: IsString string => Proxy# EventFilter -> string Source #

Message EventFilter Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

encodeMessage :: FieldNumber -> EventFilter -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage EventFilter Source #

dotProto :: Proxy# EventFilter -> [DotProtoField] Source #

ToSchema EventFilter Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

declareNamedSchema :: Proxy EventFilter -> Declare (Definitions Schema) NamedSchema Source #

type Rep EventFilter Source # 
Instance details

Defined in Data.Sawtooth.Events

type Rep EventFilter = D1 ('MetaData "EventFilter" "Data.Sawtooth.Events" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "EventFilter" 'PrefixI 'True) (S1 ('MetaSel ('Just "eventFilterKey") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: (S1 ('MetaSel ('Just "eventFilterMatchString") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "eventFilterFilterType") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated EventFilter_FilterType)))))

data EventFilter_FilterType Source #

Constructors

EventFilter_FilterTypeFILTER_TYPE_UNSET 
EventFilter_FilterTypeSIMPLE_ANY 
EventFilter_FilterTypeSIMPLE_ALL 
EventFilter_FilterTypeREGEX_ANY 
EventFilter_FilterTypeREGEX_ALL 

Instances

Instances details
Bounded EventFilter_FilterType Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

minBound :: EventFilter_FilterType Source #

maxBound :: EventFilter_FilterType Source #

Eq EventFilter_FilterType Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

(==) :: EventFilter_FilterType -> EventFilter_FilterType -> Bool Source #

(/=) :: EventFilter_FilterType -> EventFilter_FilterType -> Bool Source #

Ord EventFilter_FilterType Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

compare :: EventFilter_FilterType -> EventFilter_FilterType -> Ordering Source #

(<) :: EventFilter_FilterType -> EventFilter_FilterType -> Bool Source #

(<=) :: EventFilter_FilterType -> EventFilter_FilterType -> Bool Source #

(>) :: EventFilter_FilterType -> EventFilter_FilterType -> Bool Source #

(>=) :: EventFilter_FilterType -> EventFilter_FilterType -> Bool Source #

max :: EventFilter_FilterType -> EventFilter_FilterType -> EventFilter_FilterType Source #

min :: EventFilter_FilterType -> EventFilter_FilterType -> EventFilter_FilterType Source #

Show EventFilter_FilterType Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

showsPrec :: Int -> EventFilter_FilterType -> ShowS Source #

show :: EventFilter_FilterType -> String Source #

showList :: [EventFilter_FilterType] -> ShowS Source #

Generic EventFilter_FilterType Source # 
Instance details

Defined in Data.Sawtooth.Events

Associated Types

type Rep EventFilter_FilterType :: Type -> Type Source #

Methods

from :: EventFilter_FilterType -> Rep EventFilter_FilterType x Source #

to :: Rep EventFilter_FilterType x -> EventFilter_FilterType Source #

ToJSON EventFilter_FilterType Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

toJSON :: EventFilter_FilterType -> Value Source #

toEncoding :: EventFilter_FilterType -> Encoding Source #

toJSONList :: [EventFilter_FilterType] -> Value Source #

toEncodingList :: [EventFilter_FilterType] -> Encoding Source #

FromJSON EventFilter_FilterType Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

parseJSON :: Value -> Parser EventFilter_FilterType Source #

parseJSONList :: Value -> Parser [EventFilter_FilterType] Source #

NFData EventFilter_FilterType Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

rnf :: EventFilter_FilterType -> () Source #

ProtoEnum EventFilter_FilterType Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

toProtoEnumMay :: Int32 -> Maybe EventFilter_FilterType Source #

fromProtoEnum :: EventFilter_FilterType -> Int32 Source #

ToJSONPB EventFilter_FilterType Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

toJSONPB :: EventFilter_FilterType -> Options -> Value Source #

toEncodingPB :: EventFilter_FilterType -> Options -> Encoding Source #

FromJSONPB EventFilter_FilterType Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

parseJSONPB :: Value -> Parser EventFilter_FilterType Source #

HasDefault EventFilter_FilterType Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

def :: EventFilter_FilterType Source #

isDefault :: EventFilter_FilterType -> Bool Source #

Named EventFilter_FilterType Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

nameOf :: IsString string => Proxy# EventFilter_FilterType -> string Source #

Finite EventFilter_FilterType Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

enumerate :: IsString string => Proxy# EventFilter_FilterType -> [(string, Int32)] Source #

type Rep EventFilter_FilterType Source # 
Instance details

Defined in Data.Sawtooth.Events

type Rep EventFilter_FilterType = D1 ('MetaData "EventFilter_FilterType" "Data.Sawtooth.Events" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) ((C1 ('MetaCons "EventFilter_FilterTypeFILTER_TYPE_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "EventFilter_FilterTypeSIMPLE_ANY" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "EventFilter_FilterTypeSIMPLE_ALL" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "EventFilter_FilterTypeREGEX_ANY" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "EventFilter_FilterTypeREGEX_ALL" 'PrefixI 'False) (U1 :: Type -> Type))))

data EventSubscription Source #

Constructors

EventSubscription 

Fields

Instances

Instances details
Eq EventSubscription Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

(==) :: EventSubscription -> EventSubscription -> Bool Source #

(/=) :: EventSubscription -> EventSubscription -> Bool Source #

Ord EventSubscription Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

compare :: EventSubscription -> EventSubscription -> Ordering Source #

(<) :: EventSubscription -> EventSubscription -> Bool Source #

(<=) :: EventSubscription -> EventSubscription -> Bool Source #

(>) :: EventSubscription -> EventSubscription -> Bool Source #

(>=) :: EventSubscription -> EventSubscription -> Bool Source #

max :: EventSubscription -> EventSubscription -> EventSubscription Source #

min :: EventSubscription -> EventSubscription -> EventSubscription Source #

Show EventSubscription Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

showsPrec :: Int -> EventSubscription -> ShowS Source #

show :: EventSubscription -> String Source #

showList :: [EventSubscription] -> ShowS Source #

Generic EventSubscription Source # 
Instance details

Defined in Data.Sawtooth.Events

Associated Types

type Rep EventSubscription :: Type -> Type Source #

Methods

from :: EventSubscription -> Rep EventSubscription x Source #

to :: Rep EventSubscription x -> EventSubscription Source #

ToJSON EventSubscription Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

toJSON :: EventSubscription -> Value Source #

toEncoding :: EventSubscription -> Encoding Source #

toJSONList :: [EventSubscription] -> Value Source #

toEncodingList :: [EventSubscription] -> Encoding Source #

FromJSON EventSubscription Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

parseJSON :: Value -> Parser EventSubscription Source #

parseJSONList :: Value -> Parser [EventSubscription] Source #

NFData EventSubscription Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

rnf :: EventSubscription -> () Source #

ToJSONPB EventSubscription Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

toJSONPB :: EventSubscription -> Options -> Value Source #

toEncodingPB :: EventSubscription -> Options -> Encoding Source #

FromJSONPB EventSubscription Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

parseJSONPB :: Value -> Parser EventSubscription Source #

HasDefault EventSubscription Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

def :: EventSubscription Source #

isDefault :: EventSubscription -> Bool Source #

Named EventSubscription Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

nameOf :: IsString string => Proxy# EventSubscription -> string Source #

Message EventSubscription Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

encodeMessage :: FieldNumber -> EventSubscription -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage EventSubscription Source #

dotProto :: Proxy# EventSubscription -> [DotProtoField] Source #

ToSchema EventSubscription Source # 
Instance details

Defined in Data.Sawtooth.Events

Methods

declareNamedSchema :: Proxy EventSubscription -> Declare (Definitions Schema) NamedSchema Source #

type Rep EventSubscription Source # 
Instance details

Defined in Data.Sawtooth.Events

type Rep EventSubscription = D1 ('MetaData "EventSubscription" "Data.Sawtooth.Events" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "EventSubscription" 'PrefixI 'True) (S1 ('MetaSel ('Just "eventSubscriptionEventType") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "eventSubscriptionFilters") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector EventFilter))))
\ No newline at end of file diff --git a/Data-Sawtooth-Genesis.html b/Data-Sawtooth-Genesis.html index b7f3715..fe812b2 100644 --- a/Data-Sawtooth-Genesis.html +++ b/Data-Sawtooth-Genesis.html @@ -1 +1 @@ -Data.Sawtooth.Genesis
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types
Safe HaskellNone
LanguageHaskell2010

Data.Sawtooth.Genesis

Description

Generated by Haskell protocol buffer compiler. DO NOT EDIT!

Documentation

newtype GenesisData Source #

Constructors

GenesisData 

Fields

Instances

Instances details
Eq GenesisData Source # 
Instance details

Defined in Data.Sawtooth.Genesis

Methods

(==) :: GenesisData -> GenesisData -> Bool Source #

(/=) :: GenesisData -> GenesisData -> Bool Source #

Ord GenesisData Source # 
Instance details

Defined in Data.Sawtooth.Genesis

Methods

compare :: GenesisData -> GenesisData -> Ordering Source #

(<) :: GenesisData -> GenesisData -> Bool Source #

(<=) :: GenesisData -> GenesisData -> Bool Source #

(>) :: GenesisData -> GenesisData -> Bool Source #

(>=) :: GenesisData -> GenesisData -> Bool Source #

max :: GenesisData -> GenesisData -> GenesisData Source #

min :: GenesisData -> GenesisData -> GenesisData Source #

Show GenesisData Source # 
Instance details

Defined in Data.Sawtooth.Genesis

Methods

showsPrec :: Int -> GenesisData -> ShowS Source #

show :: GenesisData -> String Source #

showList :: [GenesisData] -> ShowS Source #

Generic GenesisData Source # 
Instance details

Defined in Data.Sawtooth.Genesis

Associated Types

type Rep GenesisData :: Type -> Type Source #

Methods

from :: GenesisData -> Rep GenesisData x Source #

to :: Rep GenesisData x -> GenesisData Source #

ToJSON GenesisData Source # 
Instance details

Defined in Data.Sawtooth.Genesis

Methods

toJSON :: GenesisData -> Value Source #

toEncoding :: GenesisData -> Encoding Source #

toJSONList :: [GenesisData] -> Value Source #

toEncodingList :: [GenesisData] -> Encoding Source #

FromJSON GenesisData Source # 
Instance details

Defined in Data.Sawtooth.Genesis

Methods

parseJSON :: Value -> Parser GenesisData Source #

parseJSONList :: Value -> Parser [GenesisData] Source #

NFData GenesisData Source # 
Instance details

Defined in Data.Sawtooth.Genesis

Methods

rnf :: GenesisData -> () Source #

ToJSONPB GenesisData Source # 
Instance details

Defined in Data.Sawtooth.Genesis

Methods

toJSONPB :: GenesisData -> Options -> Value Source #

toEncodingPB :: GenesisData -> Options -> Encoding Source #

FromJSONPB GenesisData Source # 
Instance details

Defined in Data.Sawtooth.Genesis

Methods

parseJSONPB :: Value -> Parser GenesisData Source #

HasDefault GenesisData Source # 
Instance details

Defined in Data.Sawtooth.Genesis

Methods

def :: GenesisData Source #

isDefault :: GenesisData -> Bool Source #

Named GenesisData Source # 
Instance details

Defined in Data.Sawtooth.Genesis

Methods

nameOf :: IsString string => Proxy# GenesisData -> string Source #

Message GenesisData Source # 
Instance details

Defined in Data.Sawtooth.Genesis

Methods

encodeMessage :: FieldNumber -> GenesisData -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage GenesisData Source #

dotProto :: Proxy# GenesisData -> [DotProtoField] Source #

ToSchema GenesisData Source # 
Instance details

Defined in Data.Sawtooth.Genesis

Methods

declareNamedSchema :: Proxy GenesisData -> Declare (Definitions Schema) NamedSchema Source #

type Rep GenesisData Source # 
Instance details

Defined in Data.Sawtooth.Genesis

type Rep GenesisData = D1 ('MetaData "GenesisData" "Data.Sawtooth.Genesis" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'True) (C1 ('MetaCons "GenesisData" 'PrefixI 'True) (S1 ('MetaSel ('Just "genesisDataBatches") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Batch))))
\ No newline at end of file +Data.Sawtooth.Genesis
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types
Safe HaskellNone
LanguageHaskell2010

Data.Sawtooth.Genesis

Description

Generated by Haskell protocol buffer compiler. DO NOT EDIT!

Documentation

newtype GenesisData Source #

Constructors

GenesisData 

Fields

Instances

Instances details
Eq GenesisData Source # 
Instance details

Defined in Data.Sawtooth.Genesis

Methods

(==) :: GenesisData -> GenesisData -> Bool Source #

(/=) :: GenesisData -> GenesisData -> Bool Source #

Ord GenesisData Source # 
Instance details

Defined in Data.Sawtooth.Genesis

Methods

compare :: GenesisData -> GenesisData -> Ordering Source #

(<) :: GenesisData -> GenesisData -> Bool Source #

(<=) :: GenesisData -> GenesisData -> Bool Source #

(>) :: GenesisData -> GenesisData -> Bool Source #

(>=) :: GenesisData -> GenesisData -> Bool Source #

max :: GenesisData -> GenesisData -> GenesisData Source #

min :: GenesisData -> GenesisData -> GenesisData Source #

Show GenesisData Source # 
Instance details

Defined in Data.Sawtooth.Genesis

Methods

showsPrec :: Int -> GenesisData -> ShowS Source #

show :: GenesisData -> String Source #

showList :: [GenesisData] -> ShowS Source #

Generic GenesisData Source # 
Instance details

Defined in Data.Sawtooth.Genesis

Associated Types

type Rep GenesisData :: Type -> Type Source #

Methods

from :: GenesisData -> Rep GenesisData x Source #

to :: Rep GenesisData x -> GenesisData Source #

ToJSON GenesisData Source # 
Instance details

Defined in Data.Sawtooth.Genesis

Methods

toJSON :: GenesisData -> Value Source #

toEncoding :: GenesisData -> Encoding Source #

toJSONList :: [GenesisData] -> Value Source #

toEncodingList :: [GenesisData] -> Encoding Source #

FromJSON GenesisData Source # 
Instance details

Defined in Data.Sawtooth.Genesis

Methods

parseJSON :: Value -> Parser GenesisData Source #

parseJSONList :: Value -> Parser [GenesisData] Source #

NFData GenesisData Source # 
Instance details

Defined in Data.Sawtooth.Genesis

Methods

rnf :: GenesisData -> () Source #

ToJSONPB GenesisData Source # 
Instance details

Defined in Data.Sawtooth.Genesis

Methods

toJSONPB :: GenesisData -> Options -> Value Source #

toEncodingPB :: GenesisData -> Options -> Encoding Source #

FromJSONPB GenesisData Source # 
Instance details

Defined in Data.Sawtooth.Genesis

Methods

parseJSONPB :: Value -> Parser GenesisData Source #

HasDefault GenesisData Source # 
Instance details

Defined in Data.Sawtooth.Genesis

Methods

def :: GenesisData Source #

isDefault :: GenesisData -> Bool Source #

Named GenesisData Source # 
Instance details

Defined in Data.Sawtooth.Genesis

Methods

nameOf :: IsString string => Proxy# GenesisData -> string Source #

Message GenesisData Source # 
Instance details

Defined in Data.Sawtooth.Genesis

Methods

encodeMessage :: FieldNumber -> GenesisData -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage GenesisData Source #

dotProto :: Proxy# GenesisData -> [DotProtoField] Source #

ToSchema GenesisData Source # 
Instance details

Defined in Data.Sawtooth.Genesis

Methods

declareNamedSchema :: Proxy GenesisData -> Declare (Definitions Schema) NamedSchema Source #

type Rep GenesisData Source # 
Instance details

Defined in Data.Sawtooth.Genesis

type Rep GenesisData = D1 ('MetaData "GenesisData" "Data.Sawtooth.Genesis" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'True) (C1 ('MetaCons "GenesisData" 'PrefixI 'True) (S1 ('MetaSel ('Just "genesisDataBatches") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Batch))))
\ No newline at end of file diff --git a/Data-Sawtooth-Identity.html b/Data-Sawtooth-Identity.html index 5feae02..2cefae1 100644 --- a/Data-Sawtooth-Identity.html +++ b/Data-Sawtooth-Identity.html @@ -1 +1 @@ -Data.Sawtooth.Identity
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types
Safe HaskellNone
LanguageHaskell2010

Data.Sawtooth.Identity

Description

Generated by Haskell protocol buffer compiler. DO NOT EDIT!

Documentation

data Policy Source #

Constructors

Policy 

Fields

Instances

Instances details
Eq Policy Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

(==) :: Policy -> Policy -> Bool Source #

(/=) :: Policy -> Policy -> Bool Source #

Ord Policy Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

compare :: Policy -> Policy -> Ordering Source #

(<) :: Policy -> Policy -> Bool Source #

(<=) :: Policy -> Policy -> Bool Source #

(>) :: Policy -> Policy -> Bool Source #

(>=) :: Policy -> Policy -> Bool Source #

max :: Policy -> Policy -> Policy Source #

min :: Policy -> Policy -> Policy Source #

Show Policy Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

showsPrec :: Int -> Policy -> ShowS Source #

show :: Policy -> String Source #

showList :: [Policy] -> ShowS Source #

Generic Policy Source # 
Instance details

Defined in Data.Sawtooth.Identity

Associated Types

type Rep Policy :: Type -> Type Source #

Methods

from :: Policy -> Rep Policy x Source #

to :: Rep Policy x -> Policy Source #

ToJSON Policy Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

toJSON :: Policy -> Value Source #

toEncoding :: Policy -> Encoding Source #

toJSONList :: [Policy] -> Value Source #

toEncodingList :: [Policy] -> Encoding Source #

FromJSON Policy Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

parseJSON :: Value -> Parser Policy Source #

parseJSONList :: Value -> Parser [Policy] Source #

NFData Policy Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

rnf :: Policy -> () Source #

ToJSONPB Policy Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

toJSONPB :: Policy -> Options -> Value Source #

toEncodingPB :: Policy -> Options -> Encoding Source #

FromJSONPB Policy Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

parseJSONPB :: Value -> Parser Policy Source #

HasDefault Policy Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

def :: Policy Source #

isDefault :: Policy -> Bool Source #

Named Policy Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

nameOf :: IsString string => Proxy# Policy -> string Source #

Message Policy Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

encodeMessage :: FieldNumber -> Policy -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage Policy Source #

dotProto :: Proxy# Policy -> [DotProtoField] Source #

ToSchema Policy Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

declareNamedSchema :: Proxy Policy -> Declare (Definitions Schema) NamedSchema Source #

type Rep Policy Source # 
Instance details

Defined in Data.Sawtooth.Identity

type Rep Policy = D1 ('MetaData "Policy" "Data.Sawtooth.Identity" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "Policy" 'PrefixI 'True) (S1 ('MetaSel ('Just "policyName") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "policyEntries") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Policy_Entry))))

data Policy_EntryType Source #

Constructors

Policy_EntryTypeENTRY_TYPE_UNSET 
Policy_EntryTypePERMIT_KEY 
Policy_EntryTypeDENY_KEY 

Instances

Instances details
Bounded Policy_EntryType Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

minBound :: Policy_EntryType Source #

maxBound :: Policy_EntryType Source #

Eq Policy_EntryType Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

(==) :: Policy_EntryType -> Policy_EntryType -> Bool Source #

(/=) :: Policy_EntryType -> Policy_EntryType -> Bool Source #

Ord Policy_EntryType Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

compare :: Policy_EntryType -> Policy_EntryType -> Ordering Source #

(<) :: Policy_EntryType -> Policy_EntryType -> Bool Source #

(<=) :: Policy_EntryType -> Policy_EntryType -> Bool Source #

(>) :: Policy_EntryType -> Policy_EntryType -> Bool Source #

(>=) :: Policy_EntryType -> Policy_EntryType -> Bool Source #

max :: Policy_EntryType -> Policy_EntryType -> Policy_EntryType Source #

min :: Policy_EntryType -> Policy_EntryType -> Policy_EntryType Source #

Show Policy_EntryType Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

showsPrec :: Int -> Policy_EntryType -> ShowS Source #

show :: Policy_EntryType -> String Source #

showList :: [Policy_EntryType] -> ShowS Source #

Generic Policy_EntryType Source # 
Instance details

Defined in Data.Sawtooth.Identity

Associated Types

type Rep Policy_EntryType :: Type -> Type Source #

Methods

from :: Policy_EntryType -> Rep Policy_EntryType x Source #

to :: Rep Policy_EntryType x -> Policy_EntryType Source #

ToJSON Policy_EntryType Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

toJSON :: Policy_EntryType -> Value Source #

toEncoding :: Policy_EntryType -> Encoding Source #

toJSONList :: [Policy_EntryType] -> Value Source #

toEncodingList :: [Policy_EntryType] -> Encoding Source #

FromJSON Policy_EntryType Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

parseJSON :: Value -> Parser Policy_EntryType Source #

parseJSONList :: Value -> Parser [Policy_EntryType] Source #

NFData Policy_EntryType Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

rnf :: Policy_EntryType -> () Source #

ProtoEnum Policy_EntryType Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

toProtoEnumMay :: Int32 -> Maybe Policy_EntryType Source #

fromProtoEnum :: Policy_EntryType -> Int32 Source #

ToJSONPB Policy_EntryType Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

toJSONPB :: Policy_EntryType -> Options -> Value Source #

toEncodingPB :: Policy_EntryType -> Options -> Encoding Source #

FromJSONPB Policy_EntryType Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

parseJSONPB :: Value -> Parser Policy_EntryType Source #

HasDefault Policy_EntryType Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

def :: Policy_EntryType Source #

isDefault :: Policy_EntryType -> Bool Source #

Named Policy_EntryType Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

nameOf :: IsString string => Proxy# Policy_EntryType -> string Source #

Finite Policy_EntryType Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

enumerate :: IsString string => Proxy# Policy_EntryType -> [(string, Int32)] Source #

type Rep Policy_EntryType Source # 
Instance details

Defined in Data.Sawtooth.Identity

type Rep Policy_EntryType = D1 ('MetaData "Policy_EntryType" "Data.Sawtooth.Identity" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "Policy_EntryTypeENTRY_TYPE_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "Policy_EntryTypePERMIT_KEY" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Policy_EntryTypeDENY_KEY" 'PrefixI 'False) (U1 :: Type -> Type)))

data Policy_Entry Source #

Constructors

Policy_Entry 

Fields

Instances

Instances details
Eq Policy_Entry Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

(==) :: Policy_Entry -> Policy_Entry -> Bool Source #

(/=) :: Policy_Entry -> Policy_Entry -> Bool Source #

Ord Policy_Entry Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

compare :: Policy_Entry -> Policy_Entry -> Ordering Source #

(<) :: Policy_Entry -> Policy_Entry -> Bool Source #

(<=) :: Policy_Entry -> Policy_Entry -> Bool Source #

(>) :: Policy_Entry -> Policy_Entry -> Bool Source #

(>=) :: Policy_Entry -> Policy_Entry -> Bool Source #

max :: Policy_Entry -> Policy_Entry -> Policy_Entry Source #

min :: Policy_Entry -> Policy_Entry -> Policy_Entry Source #

Show Policy_Entry Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

showsPrec :: Int -> Policy_Entry -> ShowS Source #

show :: Policy_Entry -> String Source #

showList :: [Policy_Entry] -> ShowS Source #

Generic Policy_Entry Source # 
Instance details

Defined in Data.Sawtooth.Identity

Associated Types

type Rep Policy_Entry :: Type -> Type Source #

Methods

from :: Policy_Entry -> Rep Policy_Entry x Source #

to :: Rep Policy_Entry x -> Policy_Entry Source #

ToJSON Policy_Entry Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

toJSON :: Policy_Entry -> Value Source #

toEncoding :: Policy_Entry -> Encoding Source #

toJSONList :: [Policy_Entry] -> Value Source #

toEncodingList :: [Policy_Entry] -> Encoding Source #

FromJSON Policy_Entry Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

parseJSON :: Value -> Parser Policy_Entry Source #

parseJSONList :: Value -> Parser [Policy_Entry] Source #

NFData Policy_Entry Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

rnf :: Policy_Entry -> () Source #

ToJSONPB Policy_Entry Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

toJSONPB :: Policy_Entry -> Options -> Value Source #

toEncodingPB :: Policy_Entry -> Options -> Encoding Source #

FromJSONPB Policy_Entry Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

parseJSONPB :: Value -> Parser Policy_Entry Source #

HasDefault Policy_Entry Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

def :: Policy_Entry Source #

isDefault :: Policy_Entry -> Bool Source #

Named Policy_Entry Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

nameOf :: IsString string => Proxy# Policy_Entry -> string Source #

Message Policy_Entry Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

encodeMessage :: FieldNumber -> Policy_Entry -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage Policy_Entry Source #

dotProto :: Proxy# Policy_Entry -> [DotProtoField] Source #

ToSchema Policy_Entry Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

declareNamedSchema :: Proxy Policy_Entry -> Declare (Definitions Schema) NamedSchema Source #

type Rep Policy_Entry Source # 
Instance details

Defined in Data.Sawtooth.Identity

type Rep Policy_Entry = D1 ('MetaData "Policy_Entry" "Data.Sawtooth.Identity" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "Policy_Entry" 'PrefixI 'True) (S1 ('MetaSel ('Just "policy_EntryType") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated Policy_EntryType)) :*: S1 ('MetaSel ('Just "policy_EntryKey") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)))

newtype PolicyList Source #

Constructors

PolicyList 

Fields

Instances

Instances details
Eq PolicyList Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

(==) :: PolicyList -> PolicyList -> Bool Source #

(/=) :: PolicyList -> PolicyList -> Bool Source #

Ord PolicyList Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

compare :: PolicyList -> PolicyList -> Ordering Source #

(<) :: PolicyList -> PolicyList -> Bool Source #

(<=) :: PolicyList -> PolicyList -> Bool Source #

(>) :: PolicyList -> PolicyList -> Bool Source #

(>=) :: PolicyList -> PolicyList -> Bool Source #

max :: PolicyList -> PolicyList -> PolicyList Source #

min :: PolicyList -> PolicyList -> PolicyList Source #

Show PolicyList Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

showsPrec :: Int -> PolicyList -> ShowS Source #

show :: PolicyList -> String Source #

showList :: [PolicyList] -> ShowS Source #

Generic PolicyList Source # 
Instance details

Defined in Data.Sawtooth.Identity

Associated Types

type Rep PolicyList :: Type -> Type Source #

Methods

from :: PolicyList -> Rep PolicyList x Source #

to :: Rep PolicyList x -> PolicyList Source #

ToJSON PolicyList Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

toJSON :: PolicyList -> Value Source #

toEncoding :: PolicyList -> Encoding Source #

toJSONList :: [PolicyList] -> Value Source #

toEncodingList :: [PolicyList] -> Encoding Source #

FromJSON PolicyList Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

parseJSON :: Value -> Parser PolicyList Source #

parseJSONList :: Value -> Parser [PolicyList] Source #

NFData PolicyList Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

rnf :: PolicyList -> () Source #

ToJSONPB PolicyList Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

toJSONPB :: PolicyList -> Options -> Value Source #

toEncodingPB :: PolicyList -> Options -> Encoding Source #

FromJSONPB PolicyList Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

parseJSONPB :: Value -> Parser PolicyList Source #

HasDefault PolicyList Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

def :: PolicyList Source #

isDefault :: PolicyList -> Bool Source #

Named PolicyList Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

nameOf :: IsString string => Proxy# PolicyList -> string Source #

Message PolicyList Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

encodeMessage :: FieldNumber -> PolicyList -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage PolicyList Source #

dotProto :: Proxy# PolicyList -> [DotProtoField] Source #

ToSchema PolicyList Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

declareNamedSchema :: Proxy PolicyList -> Declare (Definitions Schema) NamedSchema Source #

type Rep PolicyList Source # 
Instance details

Defined in Data.Sawtooth.Identity

type Rep PolicyList = D1 ('MetaData "PolicyList" "Data.Sawtooth.Identity" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'True) (C1 ('MetaCons "PolicyList" 'PrefixI 'True) (S1 ('MetaSel ('Just "policyListPolicies") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Policy))))

data Role Source #

Constructors

Role 

Fields

Instances

Instances details
Eq Role Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

(==) :: Role -> Role -> Bool Source #

(/=) :: Role -> Role -> Bool Source #

Ord Role Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

compare :: Role -> Role -> Ordering Source #

(<) :: Role -> Role -> Bool Source #

(<=) :: Role -> Role -> Bool Source #

(>) :: Role -> Role -> Bool Source #

(>=) :: Role -> Role -> Bool Source #

max :: Role -> Role -> Role Source #

min :: Role -> Role -> Role Source #

Show Role Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

showsPrec :: Int -> Role -> ShowS Source #

show :: Role -> String Source #

showList :: [Role] -> ShowS Source #

Generic Role Source # 
Instance details

Defined in Data.Sawtooth.Identity

Associated Types

type Rep Role :: Type -> Type Source #

Methods

from :: Role -> Rep Role x Source #

to :: Rep Role x -> Role Source #

ToJSON Role Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

toJSON :: Role -> Value Source #

toEncoding :: Role -> Encoding Source #

toJSONList :: [Role] -> Value Source #

toEncodingList :: [Role] -> Encoding Source #

FromJSON Role Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

parseJSON :: Value -> Parser Role Source #

parseJSONList :: Value -> Parser [Role] Source #

NFData Role Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

rnf :: Role -> () Source #

ToJSONPB Role Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

toJSONPB :: Role -> Options -> Value Source #

toEncodingPB :: Role -> Options -> Encoding Source #

FromJSONPB Role Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

parseJSONPB :: Value -> Parser Role Source #

HasDefault Role Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

def :: Role Source #

isDefault :: Role -> Bool Source #

Named Role Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

nameOf :: IsString string => Proxy# Role -> string Source #

Message Role Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

encodeMessage :: FieldNumber -> Role -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage Role Source #

dotProto :: Proxy# Role -> [DotProtoField] Source #

ToSchema Role Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

declareNamedSchema :: Proxy Role -> Declare (Definitions Schema) NamedSchema Source #

type Rep Role Source # 
Instance details

Defined in Data.Sawtooth.Identity

type Rep Role = D1 ('MetaData "Role" "Data.Sawtooth.Identity" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "Role" 'PrefixI 'True) (S1 ('MetaSel ('Just "roleName") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "rolePolicyName") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)))

newtype RoleList Source #

Constructors

RoleList 

Fields

Instances

Instances details
Eq RoleList Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

(==) :: RoleList -> RoleList -> Bool Source #

(/=) :: RoleList -> RoleList -> Bool Source #

Ord RoleList Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

compare :: RoleList -> RoleList -> Ordering Source #

(<) :: RoleList -> RoleList -> Bool Source #

(<=) :: RoleList -> RoleList -> Bool Source #

(>) :: RoleList -> RoleList -> Bool Source #

(>=) :: RoleList -> RoleList -> Bool Source #

max :: RoleList -> RoleList -> RoleList Source #

min :: RoleList -> RoleList -> RoleList Source #

Show RoleList Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

showsPrec :: Int -> RoleList -> ShowS Source #

show :: RoleList -> String Source #

showList :: [RoleList] -> ShowS Source #

Generic RoleList Source # 
Instance details

Defined in Data.Sawtooth.Identity

Associated Types

type Rep RoleList :: Type -> Type Source #

Methods

from :: RoleList -> Rep RoleList x Source #

to :: Rep RoleList x -> RoleList Source #

ToJSON RoleList Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

toJSON :: RoleList -> Value Source #

toEncoding :: RoleList -> Encoding Source #

toJSONList :: [RoleList] -> Value Source #

toEncodingList :: [RoleList] -> Encoding Source #

FromJSON RoleList Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

parseJSON :: Value -> Parser RoleList Source #

parseJSONList :: Value -> Parser [RoleList] Source #

NFData RoleList Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

rnf :: RoleList -> () Source #

ToJSONPB RoleList Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

toJSONPB :: RoleList -> Options -> Value Source #

toEncodingPB :: RoleList -> Options -> Encoding Source #

FromJSONPB RoleList Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

parseJSONPB :: Value -> Parser RoleList Source #

HasDefault RoleList Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

def :: RoleList Source #

isDefault :: RoleList -> Bool Source #

Named RoleList Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

nameOf :: IsString string => Proxy# RoleList -> string Source #

Message RoleList Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

encodeMessage :: FieldNumber -> RoleList -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage RoleList Source #

dotProto :: Proxy# RoleList -> [DotProtoField] Source #

ToSchema RoleList Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

declareNamedSchema :: Proxy RoleList -> Declare (Definitions Schema) NamedSchema Source #

type Rep RoleList Source # 
Instance details

Defined in Data.Sawtooth.Identity

type Rep RoleList = D1 ('MetaData "RoleList" "Data.Sawtooth.Identity" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'True) (C1 ('MetaCons "RoleList" 'PrefixI 'True) (S1 ('MetaSel ('Just "roleListRoles") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Role))))
\ No newline at end of file +Data.Sawtooth.Identity
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types
Safe HaskellNone
LanguageHaskell2010

Data.Sawtooth.Identity

Description

Generated by Haskell protocol buffer compiler. DO NOT EDIT!

Documentation

data Policy Source #

Constructors

Policy 

Fields

Instances

Instances details
Eq Policy Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

(==) :: Policy -> Policy -> Bool Source #

(/=) :: Policy -> Policy -> Bool Source #

Ord Policy Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

compare :: Policy -> Policy -> Ordering Source #

(<) :: Policy -> Policy -> Bool Source #

(<=) :: Policy -> Policy -> Bool Source #

(>) :: Policy -> Policy -> Bool Source #

(>=) :: Policy -> Policy -> Bool Source #

max :: Policy -> Policy -> Policy Source #

min :: Policy -> Policy -> Policy Source #

Show Policy Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

showsPrec :: Int -> Policy -> ShowS Source #

show :: Policy -> String Source #

showList :: [Policy] -> ShowS Source #

Generic Policy Source # 
Instance details

Defined in Data.Sawtooth.Identity

Associated Types

type Rep Policy :: Type -> Type Source #

Methods

from :: Policy -> Rep Policy x Source #

to :: Rep Policy x -> Policy Source #

ToJSON Policy Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

toJSON :: Policy -> Value Source #

toEncoding :: Policy -> Encoding Source #

toJSONList :: [Policy] -> Value Source #

toEncodingList :: [Policy] -> Encoding Source #

FromJSON Policy Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

parseJSON :: Value -> Parser Policy Source #

parseJSONList :: Value -> Parser [Policy] Source #

NFData Policy Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

rnf :: Policy -> () Source #

ToJSONPB Policy Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

toJSONPB :: Policy -> Options -> Value Source #

toEncodingPB :: Policy -> Options -> Encoding Source #

FromJSONPB Policy Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

parseJSONPB :: Value -> Parser Policy Source #

HasDefault Policy Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

def :: Policy Source #

isDefault :: Policy -> Bool Source #

Named Policy Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

nameOf :: IsString string => Proxy# Policy -> string Source #

Message Policy Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

encodeMessage :: FieldNumber -> Policy -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage Policy Source #

dotProto :: Proxy# Policy -> [DotProtoField] Source #

ToSchema Policy Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

declareNamedSchema :: Proxy Policy -> Declare (Definitions Schema) NamedSchema Source #

type Rep Policy Source # 
Instance details

Defined in Data.Sawtooth.Identity

type Rep Policy = D1 ('MetaData "Policy" "Data.Sawtooth.Identity" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "Policy" 'PrefixI 'True) (S1 ('MetaSel ('Just "policyName") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "policyEntries") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Policy_Entry))))

data Policy_EntryType Source #

Constructors

Policy_EntryTypeENTRY_TYPE_UNSET 
Policy_EntryTypePERMIT_KEY 
Policy_EntryTypeDENY_KEY 

Instances

Instances details
Bounded Policy_EntryType Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

minBound :: Policy_EntryType Source #

maxBound :: Policy_EntryType Source #

Eq Policy_EntryType Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

(==) :: Policy_EntryType -> Policy_EntryType -> Bool Source #

(/=) :: Policy_EntryType -> Policy_EntryType -> Bool Source #

Ord Policy_EntryType Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

compare :: Policy_EntryType -> Policy_EntryType -> Ordering Source #

(<) :: Policy_EntryType -> Policy_EntryType -> Bool Source #

(<=) :: Policy_EntryType -> Policy_EntryType -> Bool Source #

(>) :: Policy_EntryType -> Policy_EntryType -> Bool Source #

(>=) :: Policy_EntryType -> Policy_EntryType -> Bool Source #

max :: Policy_EntryType -> Policy_EntryType -> Policy_EntryType Source #

min :: Policy_EntryType -> Policy_EntryType -> Policy_EntryType Source #

Show Policy_EntryType Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

showsPrec :: Int -> Policy_EntryType -> ShowS Source #

show :: Policy_EntryType -> String Source #

showList :: [Policy_EntryType] -> ShowS Source #

Generic Policy_EntryType Source # 
Instance details

Defined in Data.Sawtooth.Identity

Associated Types

type Rep Policy_EntryType :: Type -> Type Source #

Methods

from :: Policy_EntryType -> Rep Policy_EntryType x Source #

to :: Rep Policy_EntryType x -> Policy_EntryType Source #

ToJSON Policy_EntryType Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

toJSON :: Policy_EntryType -> Value Source #

toEncoding :: Policy_EntryType -> Encoding Source #

toJSONList :: [Policy_EntryType] -> Value Source #

toEncodingList :: [Policy_EntryType] -> Encoding Source #

FromJSON Policy_EntryType Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

parseJSON :: Value -> Parser Policy_EntryType Source #

parseJSONList :: Value -> Parser [Policy_EntryType] Source #

NFData Policy_EntryType Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

rnf :: Policy_EntryType -> () Source #

ProtoEnum Policy_EntryType Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

toProtoEnumMay :: Int32 -> Maybe Policy_EntryType Source #

fromProtoEnum :: Policy_EntryType -> Int32 Source #

ToJSONPB Policy_EntryType Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

toJSONPB :: Policy_EntryType -> Options -> Value Source #

toEncodingPB :: Policy_EntryType -> Options -> Encoding Source #

FromJSONPB Policy_EntryType Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

parseJSONPB :: Value -> Parser Policy_EntryType Source #

HasDefault Policy_EntryType Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

def :: Policy_EntryType Source #

isDefault :: Policy_EntryType -> Bool Source #

Named Policy_EntryType Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

nameOf :: IsString string => Proxy# Policy_EntryType -> string Source #

Finite Policy_EntryType Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

enumerate :: IsString string => Proxy# Policy_EntryType -> [(string, Int32)] Source #

type Rep Policy_EntryType Source # 
Instance details

Defined in Data.Sawtooth.Identity

type Rep Policy_EntryType = D1 ('MetaData "Policy_EntryType" "Data.Sawtooth.Identity" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "Policy_EntryTypeENTRY_TYPE_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "Policy_EntryTypePERMIT_KEY" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Policy_EntryTypeDENY_KEY" 'PrefixI 'False) (U1 :: Type -> Type)))

data Policy_Entry Source #

Constructors

Policy_Entry 

Fields

Instances

Instances details
Eq Policy_Entry Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

(==) :: Policy_Entry -> Policy_Entry -> Bool Source #

(/=) :: Policy_Entry -> Policy_Entry -> Bool Source #

Ord Policy_Entry Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

compare :: Policy_Entry -> Policy_Entry -> Ordering Source #

(<) :: Policy_Entry -> Policy_Entry -> Bool Source #

(<=) :: Policy_Entry -> Policy_Entry -> Bool Source #

(>) :: Policy_Entry -> Policy_Entry -> Bool Source #

(>=) :: Policy_Entry -> Policy_Entry -> Bool Source #

max :: Policy_Entry -> Policy_Entry -> Policy_Entry Source #

min :: Policy_Entry -> Policy_Entry -> Policy_Entry Source #

Show Policy_Entry Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

showsPrec :: Int -> Policy_Entry -> ShowS Source #

show :: Policy_Entry -> String Source #

showList :: [Policy_Entry] -> ShowS Source #

Generic Policy_Entry Source # 
Instance details

Defined in Data.Sawtooth.Identity

Associated Types

type Rep Policy_Entry :: Type -> Type Source #

Methods

from :: Policy_Entry -> Rep Policy_Entry x Source #

to :: Rep Policy_Entry x -> Policy_Entry Source #

ToJSON Policy_Entry Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

toJSON :: Policy_Entry -> Value Source #

toEncoding :: Policy_Entry -> Encoding Source #

toJSONList :: [Policy_Entry] -> Value Source #

toEncodingList :: [Policy_Entry] -> Encoding Source #

FromJSON Policy_Entry Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

parseJSON :: Value -> Parser Policy_Entry Source #

parseJSONList :: Value -> Parser [Policy_Entry] Source #

NFData Policy_Entry Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

rnf :: Policy_Entry -> () Source #

ToJSONPB Policy_Entry Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

toJSONPB :: Policy_Entry -> Options -> Value Source #

toEncodingPB :: Policy_Entry -> Options -> Encoding Source #

FromJSONPB Policy_Entry Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

parseJSONPB :: Value -> Parser Policy_Entry Source #

HasDefault Policy_Entry Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

def :: Policy_Entry Source #

isDefault :: Policy_Entry -> Bool Source #

Named Policy_Entry Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

nameOf :: IsString string => Proxy# Policy_Entry -> string Source #

Message Policy_Entry Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

encodeMessage :: FieldNumber -> Policy_Entry -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage Policy_Entry Source #

dotProto :: Proxy# Policy_Entry -> [DotProtoField] Source #

ToSchema Policy_Entry Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

declareNamedSchema :: Proxy Policy_Entry -> Declare (Definitions Schema) NamedSchema Source #

type Rep Policy_Entry Source # 
Instance details

Defined in Data.Sawtooth.Identity

type Rep Policy_Entry = D1 ('MetaData "Policy_Entry" "Data.Sawtooth.Identity" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "Policy_Entry" 'PrefixI 'True) (S1 ('MetaSel ('Just "policy_EntryType") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated Policy_EntryType)) :*: S1 ('MetaSel ('Just "policy_EntryKey") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)))

newtype PolicyList Source #

Constructors

PolicyList 

Fields

Instances

Instances details
Eq PolicyList Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

(==) :: PolicyList -> PolicyList -> Bool Source #

(/=) :: PolicyList -> PolicyList -> Bool Source #

Ord PolicyList Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

compare :: PolicyList -> PolicyList -> Ordering Source #

(<) :: PolicyList -> PolicyList -> Bool Source #

(<=) :: PolicyList -> PolicyList -> Bool Source #

(>) :: PolicyList -> PolicyList -> Bool Source #

(>=) :: PolicyList -> PolicyList -> Bool Source #

max :: PolicyList -> PolicyList -> PolicyList Source #

min :: PolicyList -> PolicyList -> PolicyList Source #

Show PolicyList Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

showsPrec :: Int -> PolicyList -> ShowS Source #

show :: PolicyList -> String Source #

showList :: [PolicyList] -> ShowS Source #

Generic PolicyList Source # 
Instance details

Defined in Data.Sawtooth.Identity

Associated Types

type Rep PolicyList :: Type -> Type Source #

Methods

from :: PolicyList -> Rep PolicyList x Source #

to :: Rep PolicyList x -> PolicyList Source #

ToJSON PolicyList Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

toJSON :: PolicyList -> Value Source #

toEncoding :: PolicyList -> Encoding Source #

toJSONList :: [PolicyList] -> Value Source #

toEncodingList :: [PolicyList] -> Encoding Source #

FromJSON PolicyList Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

parseJSON :: Value -> Parser PolicyList Source #

parseJSONList :: Value -> Parser [PolicyList] Source #

NFData PolicyList Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

rnf :: PolicyList -> () Source #

ToJSONPB PolicyList Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

toJSONPB :: PolicyList -> Options -> Value Source #

toEncodingPB :: PolicyList -> Options -> Encoding Source #

FromJSONPB PolicyList Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

parseJSONPB :: Value -> Parser PolicyList Source #

HasDefault PolicyList Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

def :: PolicyList Source #

isDefault :: PolicyList -> Bool Source #

Named PolicyList Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

nameOf :: IsString string => Proxy# PolicyList -> string Source #

Message PolicyList Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

encodeMessage :: FieldNumber -> PolicyList -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage PolicyList Source #

dotProto :: Proxy# PolicyList -> [DotProtoField] Source #

ToSchema PolicyList Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

declareNamedSchema :: Proxy PolicyList -> Declare (Definitions Schema) NamedSchema Source #

type Rep PolicyList Source # 
Instance details

Defined in Data.Sawtooth.Identity

type Rep PolicyList = D1 ('MetaData "PolicyList" "Data.Sawtooth.Identity" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'True) (C1 ('MetaCons "PolicyList" 'PrefixI 'True) (S1 ('MetaSel ('Just "policyListPolicies") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Policy))))

data Role Source #

Constructors

Role 

Fields

Instances

Instances details
Eq Role Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

(==) :: Role -> Role -> Bool Source #

(/=) :: Role -> Role -> Bool Source #

Ord Role Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

compare :: Role -> Role -> Ordering Source #

(<) :: Role -> Role -> Bool Source #

(<=) :: Role -> Role -> Bool Source #

(>) :: Role -> Role -> Bool Source #

(>=) :: Role -> Role -> Bool Source #

max :: Role -> Role -> Role Source #

min :: Role -> Role -> Role Source #

Show Role Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

showsPrec :: Int -> Role -> ShowS Source #

show :: Role -> String Source #

showList :: [Role] -> ShowS Source #

Generic Role Source # 
Instance details

Defined in Data.Sawtooth.Identity

Associated Types

type Rep Role :: Type -> Type Source #

Methods

from :: Role -> Rep Role x Source #

to :: Rep Role x -> Role Source #

ToJSON Role Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

toJSON :: Role -> Value Source #

toEncoding :: Role -> Encoding Source #

toJSONList :: [Role] -> Value Source #

toEncodingList :: [Role] -> Encoding Source #

FromJSON Role Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

parseJSON :: Value -> Parser Role Source #

parseJSONList :: Value -> Parser [Role] Source #

NFData Role Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

rnf :: Role -> () Source #

ToJSONPB Role Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

toJSONPB :: Role -> Options -> Value Source #

toEncodingPB :: Role -> Options -> Encoding Source #

FromJSONPB Role Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

parseJSONPB :: Value -> Parser Role Source #

HasDefault Role Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

def :: Role Source #

isDefault :: Role -> Bool Source #

Named Role Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

nameOf :: IsString string => Proxy# Role -> string Source #

Message Role Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

encodeMessage :: FieldNumber -> Role -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage Role Source #

dotProto :: Proxy# Role -> [DotProtoField] Source #

ToSchema Role Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

declareNamedSchema :: Proxy Role -> Declare (Definitions Schema) NamedSchema Source #

type Rep Role Source # 
Instance details

Defined in Data.Sawtooth.Identity

type Rep Role = D1 ('MetaData "Role" "Data.Sawtooth.Identity" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "Role" 'PrefixI 'True) (S1 ('MetaSel ('Just "roleName") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "rolePolicyName") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)))

newtype RoleList Source #

Constructors

RoleList 

Fields

Instances

Instances details
Eq RoleList Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

(==) :: RoleList -> RoleList -> Bool Source #

(/=) :: RoleList -> RoleList -> Bool Source #

Ord RoleList Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

compare :: RoleList -> RoleList -> Ordering Source #

(<) :: RoleList -> RoleList -> Bool Source #

(<=) :: RoleList -> RoleList -> Bool Source #

(>) :: RoleList -> RoleList -> Bool Source #

(>=) :: RoleList -> RoleList -> Bool Source #

max :: RoleList -> RoleList -> RoleList Source #

min :: RoleList -> RoleList -> RoleList Source #

Show RoleList Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

showsPrec :: Int -> RoleList -> ShowS Source #

show :: RoleList -> String Source #

showList :: [RoleList] -> ShowS Source #

Generic RoleList Source # 
Instance details

Defined in Data.Sawtooth.Identity

Associated Types

type Rep RoleList :: Type -> Type Source #

Methods

from :: RoleList -> Rep RoleList x Source #

to :: Rep RoleList x -> RoleList Source #

ToJSON RoleList Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

toJSON :: RoleList -> Value Source #

toEncoding :: RoleList -> Encoding Source #

toJSONList :: [RoleList] -> Value Source #

toEncodingList :: [RoleList] -> Encoding Source #

FromJSON RoleList Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

parseJSON :: Value -> Parser RoleList Source #

parseJSONList :: Value -> Parser [RoleList] Source #

NFData RoleList Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

rnf :: RoleList -> () Source #

ToJSONPB RoleList Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

toJSONPB :: RoleList -> Options -> Value Source #

toEncodingPB :: RoleList -> Options -> Encoding Source #

FromJSONPB RoleList Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

parseJSONPB :: Value -> Parser RoleList Source #

HasDefault RoleList Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

def :: RoleList Source #

isDefault :: RoleList -> Bool Source #

Named RoleList Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

nameOf :: IsString string => Proxy# RoleList -> string Source #

Message RoleList Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

encodeMessage :: FieldNumber -> RoleList -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage RoleList Source #

dotProto :: Proxy# RoleList -> [DotProtoField] Source #

ToSchema RoleList Source # 
Instance details

Defined in Data.Sawtooth.Identity

Methods

declareNamedSchema :: Proxy RoleList -> Declare (Definitions Schema) NamedSchema Source #

type Rep RoleList Source # 
Instance details

Defined in Data.Sawtooth.Identity

type Rep RoleList = D1 ('MetaData "RoleList" "Data.Sawtooth.Identity" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'True) (C1 ('MetaCons "RoleList" 'PrefixI 'True) (S1 ('MetaSel ('Just "roleListRoles") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Role))))
\ No newline at end of file diff --git a/Data-Sawtooth-Merkle.html b/Data-Sawtooth-Merkle.html index 3a0aa1e..8cb1d67 100644 --- a/Data-Sawtooth-Merkle.html +++ b/Data-Sawtooth-Merkle.html @@ -1 +1 @@ -Data.Sawtooth.Merkle
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types
Safe HaskellNone
LanguageHaskell2010

Data.Sawtooth.Merkle

Description

Generated by Haskell protocol buffer compiler. DO NOT EDIT!

Documentation

data ChangeLogEntry Source #

Constructors

ChangeLogEntry 

Fields

Instances

Instances details
Eq ChangeLogEntry Source # 
Instance details

Defined in Data.Sawtooth.Merkle

Methods

(==) :: ChangeLogEntry -> ChangeLogEntry -> Bool Source #

(/=) :: ChangeLogEntry -> ChangeLogEntry -> Bool Source #

Ord ChangeLogEntry Source # 
Instance details

Defined in Data.Sawtooth.Merkle

Methods

compare :: ChangeLogEntry -> ChangeLogEntry -> Ordering Source #

(<) :: ChangeLogEntry -> ChangeLogEntry -> Bool Source #

(<=) :: ChangeLogEntry -> ChangeLogEntry -> Bool Source #

(>) :: ChangeLogEntry -> ChangeLogEntry -> Bool Source #

(>=) :: ChangeLogEntry -> ChangeLogEntry -> Bool Source #

max :: ChangeLogEntry -> ChangeLogEntry -> ChangeLogEntry Source #

min :: ChangeLogEntry -> ChangeLogEntry -> ChangeLogEntry Source #

Show ChangeLogEntry Source # 
Instance details

Defined in Data.Sawtooth.Merkle

Methods

showsPrec :: Int -> ChangeLogEntry -> ShowS Source #

show :: ChangeLogEntry -> String Source #

showList :: [ChangeLogEntry] -> ShowS Source #

Generic ChangeLogEntry Source # 
Instance details

Defined in Data.Sawtooth.Merkle

Associated Types

type Rep ChangeLogEntry :: Type -> Type Source #

Methods

from :: ChangeLogEntry -> Rep ChangeLogEntry x Source #

to :: Rep ChangeLogEntry x -> ChangeLogEntry Source #

ToJSON ChangeLogEntry Source # 
Instance details

Defined in Data.Sawtooth.Merkle

Methods

toJSON :: ChangeLogEntry -> Value Source #

toEncoding :: ChangeLogEntry -> Encoding Source #

toJSONList :: [ChangeLogEntry] -> Value Source #

toEncodingList :: [ChangeLogEntry] -> Encoding Source #

FromJSON ChangeLogEntry Source # 
Instance details

Defined in Data.Sawtooth.Merkle

Methods

parseJSON :: Value -> Parser ChangeLogEntry Source #

parseJSONList :: Value -> Parser [ChangeLogEntry] Source #

NFData ChangeLogEntry Source # 
Instance details

Defined in Data.Sawtooth.Merkle

Methods

rnf :: ChangeLogEntry -> () Source #

ToJSONPB ChangeLogEntry Source # 
Instance details

Defined in Data.Sawtooth.Merkle

Methods

toJSONPB :: ChangeLogEntry -> Options -> Value Source #

toEncodingPB :: ChangeLogEntry -> Options -> Encoding Source #

FromJSONPB ChangeLogEntry Source # 
Instance details

Defined in Data.Sawtooth.Merkle

Methods

parseJSONPB :: Value -> Parser ChangeLogEntry Source #

HasDefault ChangeLogEntry Source # 
Instance details

Defined in Data.Sawtooth.Merkle

Methods

def :: ChangeLogEntry Source #

isDefault :: ChangeLogEntry -> Bool Source #

Named ChangeLogEntry Source # 
Instance details

Defined in Data.Sawtooth.Merkle

Methods

nameOf :: IsString string => Proxy# ChangeLogEntry -> string Source #

Message ChangeLogEntry Source # 
Instance details

Defined in Data.Sawtooth.Merkle

Methods

encodeMessage :: FieldNumber -> ChangeLogEntry -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ChangeLogEntry Source #

dotProto :: Proxy# ChangeLogEntry -> [DotProtoField] Source #

ToSchema ChangeLogEntry Source # 
Instance details

Defined in Data.Sawtooth.Merkle

Methods

declareNamedSchema :: Proxy ChangeLogEntry -> Declare (Definitions Schema) NamedSchema Source #

type Rep ChangeLogEntry Source # 
Instance details

Defined in Data.Sawtooth.Merkle

type Rep ChangeLogEntry = D1 ('MetaData "ChangeLogEntry" "Data.Sawtooth.Merkle" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "ChangeLogEntry" 'PrefixI 'True) (S1 ('MetaSel ('Just "changeLogEntryParent") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString) :*: (S1 ('MetaSel ('Just "changeLogEntryAdditions") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector ByteString)) :*: S1 ('MetaSel ('Just "changeLogEntrySuccessors") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector ChangeLogEntry_Successor)))))

data ChangeLogEntry_Successor Source #

Constructors

ChangeLogEntry_Successor 

Fields

Instances

Instances details
Eq ChangeLogEntry_Successor Source # 
Instance details

Defined in Data.Sawtooth.Merkle

Methods

(==) :: ChangeLogEntry_Successor -> ChangeLogEntry_Successor -> Bool Source #

(/=) :: ChangeLogEntry_Successor -> ChangeLogEntry_Successor -> Bool Source #

Ord ChangeLogEntry_Successor Source # 
Instance details

Defined in Data.Sawtooth.Merkle

Methods

compare :: ChangeLogEntry_Successor -> ChangeLogEntry_Successor -> Ordering Source #

(<) :: ChangeLogEntry_Successor -> ChangeLogEntry_Successor -> Bool Source #

(<=) :: ChangeLogEntry_Successor -> ChangeLogEntry_Successor -> Bool Source #

(>) :: ChangeLogEntry_Successor -> ChangeLogEntry_Successor -> Bool Source #

(>=) :: ChangeLogEntry_Successor -> ChangeLogEntry_Successor -> Bool Source #

max :: ChangeLogEntry_Successor -> ChangeLogEntry_Successor -> ChangeLogEntry_Successor Source #

min :: ChangeLogEntry_Successor -> ChangeLogEntry_Successor -> ChangeLogEntry_Successor Source #

Show ChangeLogEntry_Successor Source # 
Instance details

Defined in Data.Sawtooth.Merkle

Methods

showsPrec :: Int -> ChangeLogEntry_Successor -> ShowS Source #

show :: ChangeLogEntry_Successor -> String Source #

showList :: [ChangeLogEntry_Successor] -> ShowS Source #

Generic ChangeLogEntry_Successor Source # 
Instance details

Defined in Data.Sawtooth.Merkle

Associated Types

type Rep ChangeLogEntry_Successor :: Type -> Type Source #

Methods

from :: ChangeLogEntry_Successor -> Rep ChangeLogEntry_Successor x Source #

to :: Rep ChangeLogEntry_Successor x -> ChangeLogEntry_Successor Source #

ToJSON ChangeLogEntry_Successor Source # 
Instance details

Defined in Data.Sawtooth.Merkle

Methods

toJSON :: ChangeLogEntry_Successor -> Value Source #

toEncoding :: ChangeLogEntry_Successor -> Encoding Source #

toJSONList :: [ChangeLogEntry_Successor] -> Value Source #

toEncodingList :: [ChangeLogEntry_Successor] -> Encoding Source #

FromJSON ChangeLogEntry_Successor Source # 
Instance details

Defined in Data.Sawtooth.Merkle

Methods

parseJSON :: Value -> Parser ChangeLogEntry_Successor Source #

parseJSONList :: Value -> Parser [ChangeLogEntry_Successor] Source #

NFData ChangeLogEntry_Successor Source # 
Instance details

Defined in Data.Sawtooth.Merkle

Methods

rnf :: ChangeLogEntry_Successor -> () Source #

ToJSONPB ChangeLogEntry_Successor Source # 
Instance details

Defined in Data.Sawtooth.Merkle

Methods

toJSONPB :: ChangeLogEntry_Successor -> Options -> Value Source #

toEncodingPB :: ChangeLogEntry_Successor -> Options -> Encoding Source #

FromJSONPB ChangeLogEntry_Successor Source # 
Instance details

Defined in Data.Sawtooth.Merkle

Methods

parseJSONPB :: Value -> Parser ChangeLogEntry_Successor Source #

HasDefault ChangeLogEntry_Successor Source # 
Instance details

Defined in Data.Sawtooth.Merkle

Methods

def :: ChangeLogEntry_Successor Source #

isDefault :: ChangeLogEntry_Successor -> Bool Source #

Named ChangeLogEntry_Successor Source # 
Instance details

Defined in Data.Sawtooth.Merkle

Methods

nameOf :: IsString string => Proxy# ChangeLogEntry_Successor -> string Source #

Message ChangeLogEntry_Successor Source # 
Instance details

Defined in Data.Sawtooth.Merkle

Methods

encodeMessage :: FieldNumber -> ChangeLogEntry_Successor -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ChangeLogEntry_Successor Source #

dotProto :: Proxy# ChangeLogEntry_Successor -> [DotProtoField] Source #

ToSchema ChangeLogEntry_Successor Source # 
Instance details

Defined in Data.Sawtooth.Merkle

Methods

declareNamedSchema :: Proxy ChangeLogEntry_Successor -> Declare (Definitions Schema) NamedSchema Source #

type Rep ChangeLogEntry_Successor Source # 
Instance details

Defined in Data.Sawtooth.Merkle

type Rep ChangeLogEntry_Successor = D1 ('MetaData "ChangeLogEntry_Successor" "Data.Sawtooth.Merkle" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "ChangeLogEntry_Successor" 'PrefixI 'True) (S1 ('MetaSel ('Just "changeLogEntry_SuccessorSuccessor") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString) :*: S1 ('MetaSel ('Just "changeLogEntry_SuccessorDeletions") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector ByteString))))
\ No newline at end of file +Data.Sawtooth.Merkle
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types
Safe HaskellNone
LanguageHaskell2010

Data.Sawtooth.Merkle

Description

Generated by Haskell protocol buffer compiler. DO NOT EDIT!

Documentation

data ChangeLogEntry Source #

Constructors

ChangeLogEntry 

Fields

Instances

Instances details
Eq ChangeLogEntry Source # 
Instance details

Defined in Data.Sawtooth.Merkle

Methods

(==) :: ChangeLogEntry -> ChangeLogEntry -> Bool Source #

(/=) :: ChangeLogEntry -> ChangeLogEntry -> Bool Source #

Ord ChangeLogEntry Source # 
Instance details

Defined in Data.Sawtooth.Merkle

Methods

compare :: ChangeLogEntry -> ChangeLogEntry -> Ordering Source #

(<) :: ChangeLogEntry -> ChangeLogEntry -> Bool Source #

(<=) :: ChangeLogEntry -> ChangeLogEntry -> Bool Source #

(>) :: ChangeLogEntry -> ChangeLogEntry -> Bool Source #

(>=) :: ChangeLogEntry -> ChangeLogEntry -> Bool Source #

max :: ChangeLogEntry -> ChangeLogEntry -> ChangeLogEntry Source #

min :: ChangeLogEntry -> ChangeLogEntry -> ChangeLogEntry Source #

Show ChangeLogEntry Source # 
Instance details

Defined in Data.Sawtooth.Merkle

Methods

showsPrec :: Int -> ChangeLogEntry -> ShowS Source #

show :: ChangeLogEntry -> String Source #

showList :: [ChangeLogEntry] -> ShowS Source #

Generic ChangeLogEntry Source # 
Instance details

Defined in Data.Sawtooth.Merkle

Associated Types

type Rep ChangeLogEntry :: Type -> Type Source #

Methods

from :: ChangeLogEntry -> Rep ChangeLogEntry x Source #

to :: Rep ChangeLogEntry x -> ChangeLogEntry Source #

ToJSON ChangeLogEntry Source # 
Instance details

Defined in Data.Sawtooth.Merkle

Methods

toJSON :: ChangeLogEntry -> Value Source #

toEncoding :: ChangeLogEntry -> Encoding Source #

toJSONList :: [ChangeLogEntry] -> Value Source #

toEncodingList :: [ChangeLogEntry] -> Encoding Source #

FromJSON ChangeLogEntry Source # 
Instance details

Defined in Data.Sawtooth.Merkle

Methods

parseJSON :: Value -> Parser ChangeLogEntry Source #

parseJSONList :: Value -> Parser [ChangeLogEntry] Source #

NFData ChangeLogEntry Source # 
Instance details

Defined in Data.Sawtooth.Merkle

Methods

rnf :: ChangeLogEntry -> () Source #

ToJSONPB ChangeLogEntry Source # 
Instance details

Defined in Data.Sawtooth.Merkle

Methods

toJSONPB :: ChangeLogEntry -> Options -> Value Source #

toEncodingPB :: ChangeLogEntry -> Options -> Encoding Source #

FromJSONPB ChangeLogEntry Source # 
Instance details

Defined in Data.Sawtooth.Merkle

Methods

parseJSONPB :: Value -> Parser ChangeLogEntry Source #

HasDefault ChangeLogEntry Source # 
Instance details

Defined in Data.Sawtooth.Merkle

Methods

def :: ChangeLogEntry Source #

isDefault :: ChangeLogEntry -> Bool Source #

Named ChangeLogEntry Source # 
Instance details

Defined in Data.Sawtooth.Merkle

Methods

nameOf :: IsString string => Proxy# ChangeLogEntry -> string Source #

Message ChangeLogEntry Source # 
Instance details

Defined in Data.Sawtooth.Merkle

Methods

encodeMessage :: FieldNumber -> ChangeLogEntry -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ChangeLogEntry Source #

dotProto :: Proxy# ChangeLogEntry -> [DotProtoField] Source #

ToSchema ChangeLogEntry Source # 
Instance details

Defined in Data.Sawtooth.Merkle

Methods

declareNamedSchema :: Proxy ChangeLogEntry -> Declare (Definitions Schema) NamedSchema Source #

type Rep ChangeLogEntry Source # 
Instance details

Defined in Data.Sawtooth.Merkle

type Rep ChangeLogEntry = D1 ('MetaData "ChangeLogEntry" "Data.Sawtooth.Merkle" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "ChangeLogEntry" 'PrefixI 'True) (S1 ('MetaSel ('Just "changeLogEntryParent") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString) :*: (S1 ('MetaSel ('Just "changeLogEntryAdditions") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector ByteString)) :*: S1 ('MetaSel ('Just "changeLogEntrySuccessors") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector ChangeLogEntry_Successor)))))

data ChangeLogEntry_Successor Source #

Constructors

ChangeLogEntry_Successor 

Fields

Instances

Instances details
Eq ChangeLogEntry_Successor Source # 
Instance details

Defined in Data.Sawtooth.Merkle

Methods

(==) :: ChangeLogEntry_Successor -> ChangeLogEntry_Successor -> Bool Source #

(/=) :: ChangeLogEntry_Successor -> ChangeLogEntry_Successor -> Bool Source #

Ord ChangeLogEntry_Successor Source # 
Instance details

Defined in Data.Sawtooth.Merkle

Methods

compare :: ChangeLogEntry_Successor -> ChangeLogEntry_Successor -> Ordering Source #

(<) :: ChangeLogEntry_Successor -> ChangeLogEntry_Successor -> Bool Source #

(<=) :: ChangeLogEntry_Successor -> ChangeLogEntry_Successor -> Bool Source #

(>) :: ChangeLogEntry_Successor -> ChangeLogEntry_Successor -> Bool Source #

(>=) :: ChangeLogEntry_Successor -> ChangeLogEntry_Successor -> Bool Source #

max :: ChangeLogEntry_Successor -> ChangeLogEntry_Successor -> ChangeLogEntry_Successor Source #

min :: ChangeLogEntry_Successor -> ChangeLogEntry_Successor -> ChangeLogEntry_Successor Source #

Show ChangeLogEntry_Successor Source # 
Instance details

Defined in Data.Sawtooth.Merkle

Methods

showsPrec :: Int -> ChangeLogEntry_Successor -> ShowS Source #

show :: ChangeLogEntry_Successor -> String Source #

showList :: [ChangeLogEntry_Successor] -> ShowS Source #

Generic ChangeLogEntry_Successor Source # 
Instance details

Defined in Data.Sawtooth.Merkle

Associated Types

type Rep ChangeLogEntry_Successor :: Type -> Type Source #

Methods

from :: ChangeLogEntry_Successor -> Rep ChangeLogEntry_Successor x Source #

to :: Rep ChangeLogEntry_Successor x -> ChangeLogEntry_Successor Source #

ToJSON ChangeLogEntry_Successor Source # 
Instance details

Defined in Data.Sawtooth.Merkle

Methods

toJSON :: ChangeLogEntry_Successor -> Value Source #

toEncoding :: ChangeLogEntry_Successor -> Encoding Source #

toJSONList :: [ChangeLogEntry_Successor] -> Value Source #

toEncodingList :: [ChangeLogEntry_Successor] -> Encoding Source #

FromJSON ChangeLogEntry_Successor Source # 
Instance details

Defined in Data.Sawtooth.Merkle

Methods

parseJSON :: Value -> Parser ChangeLogEntry_Successor Source #

parseJSONList :: Value -> Parser [ChangeLogEntry_Successor] Source #

NFData ChangeLogEntry_Successor Source # 
Instance details

Defined in Data.Sawtooth.Merkle

Methods

rnf :: ChangeLogEntry_Successor -> () Source #

ToJSONPB ChangeLogEntry_Successor Source # 
Instance details

Defined in Data.Sawtooth.Merkle

Methods

toJSONPB :: ChangeLogEntry_Successor -> Options -> Value Source #

toEncodingPB :: ChangeLogEntry_Successor -> Options -> Encoding Source #

FromJSONPB ChangeLogEntry_Successor Source # 
Instance details

Defined in Data.Sawtooth.Merkle

Methods

parseJSONPB :: Value -> Parser ChangeLogEntry_Successor Source #

HasDefault ChangeLogEntry_Successor Source # 
Instance details

Defined in Data.Sawtooth.Merkle

Methods

def :: ChangeLogEntry_Successor Source #

isDefault :: ChangeLogEntry_Successor -> Bool Source #

Named ChangeLogEntry_Successor Source # 
Instance details

Defined in Data.Sawtooth.Merkle

Methods

nameOf :: IsString string => Proxy# ChangeLogEntry_Successor -> string Source #

Message ChangeLogEntry_Successor Source # 
Instance details

Defined in Data.Sawtooth.Merkle

Methods

encodeMessage :: FieldNumber -> ChangeLogEntry_Successor -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage ChangeLogEntry_Successor Source #

dotProto :: Proxy# ChangeLogEntry_Successor -> [DotProtoField] Source #

ToSchema ChangeLogEntry_Successor Source # 
Instance details

Defined in Data.Sawtooth.Merkle

Methods

declareNamedSchema :: Proxy ChangeLogEntry_Successor -> Declare (Definitions Schema) NamedSchema Source #

type Rep ChangeLogEntry_Successor Source # 
Instance details

Defined in Data.Sawtooth.Merkle

type Rep ChangeLogEntry_Successor = D1 ('MetaData "ChangeLogEntry_Successor" "Data.Sawtooth.Merkle" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "ChangeLogEntry_Successor" 'PrefixI 'True) (S1 ('MetaSel ('Just "changeLogEntry_SuccessorSuccessor") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString) :*: S1 ('MetaSel ('Just "changeLogEntry_SuccessorDeletions") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector ByteString))))
\ No newline at end of file diff --git a/Data-Sawtooth-Network.html b/Data-Sawtooth-Network.html index 133c69a..549840a 100644 --- a/Data-Sawtooth-Network.html +++ b/Data-Sawtooth-Network.html @@ -1 +1 @@ -Data.Sawtooth.Network
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types
Safe HaskellNone
LanguageHaskell2010

Data.Sawtooth.Network

Description

Generated by Haskell protocol buffer compiler. DO NOT EDIT!

Documentation

data DisconnectMessage Source #

Constructors

DisconnectMessage 

Instances

Instances details
Eq DisconnectMessage Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

(==) :: DisconnectMessage -> DisconnectMessage -> Bool Source #

(/=) :: DisconnectMessage -> DisconnectMessage -> Bool Source #

Ord DisconnectMessage Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

compare :: DisconnectMessage -> DisconnectMessage -> Ordering Source #

(<) :: DisconnectMessage -> DisconnectMessage -> Bool Source #

(<=) :: DisconnectMessage -> DisconnectMessage -> Bool Source #

(>) :: DisconnectMessage -> DisconnectMessage -> Bool Source #

(>=) :: DisconnectMessage -> DisconnectMessage -> Bool Source #

max :: DisconnectMessage -> DisconnectMessage -> DisconnectMessage Source #

min :: DisconnectMessage -> DisconnectMessage -> DisconnectMessage Source #

Show DisconnectMessage Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

showsPrec :: Int -> DisconnectMessage -> ShowS Source #

show :: DisconnectMessage -> String Source #

showList :: [DisconnectMessage] -> ShowS Source #

Generic DisconnectMessage Source # 
Instance details

Defined in Data.Sawtooth.Network

Associated Types

type Rep DisconnectMessage :: Type -> Type Source #

Methods

from :: DisconnectMessage -> Rep DisconnectMessage x Source #

to :: Rep DisconnectMessage x -> DisconnectMessage Source #

ToJSON DisconnectMessage Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

toJSON :: DisconnectMessage -> Value Source #

toEncoding :: DisconnectMessage -> Encoding Source #

toJSONList :: [DisconnectMessage] -> Value Source #

toEncodingList :: [DisconnectMessage] -> Encoding Source #

FromJSON DisconnectMessage Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

parseJSON :: Value -> Parser DisconnectMessage Source #

parseJSONList :: Value -> Parser [DisconnectMessage] Source #

NFData DisconnectMessage Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

rnf :: DisconnectMessage -> () Source #

ToJSONPB DisconnectMessage Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

toJSONPB :: DisconnectMessage -> Options -> Value Source #

toEncodingPB :: DisconnectMessage -> Options -> Encoding Source #

FromJSONPB DisconnectMessage Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

parseJSONPB :: Value -> Parser DisconnectMessage Source #

HasDefault DisconnectMessage Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

def :: DisconnectMessage Source #

isDefault :: DisconnectMessage -> Bool Source #

Named DisconnectMessage Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

nameOf :: IsString string => Proxy# DisconnectMessage -> string Source #

Message DisconnectMessage Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

encodeMessage :: FieldNumber -> DisconnectMessage -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage DisconnectMessage Source #

dotProto :: Proxy# DisconnectMessage -> [DotProtoField] Source #

ToSchema DisconnectMessage Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

declareNamedSchema :: Proxy DisconnectMessage -> Declare (Definitions Schema) NamedSchema Source #

type Rep DisconnectMessage Source # 
Instance details

Defined in Data.Sawtooth.Network

type Rep DisconnectMessage = D1 ('MetaData "DisconnectMessage" "Data.Sawtooth.Network" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "DisconnectMessage" 'PrefixI 'False) (U1 :: Type -> Type))

data PeerRegisterRequest Source #

Constructors

PeerRegisterRequest 

Fields

Instances

Instances details
Eq PeerRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

(==) :: PeerRegisterRequest -> PeerRegisterRequest -> Bool Source #

(/=) :: PeerRegisterRequest -> PeerRegisterRequest -> Bool Source #

Ord PeerRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

compare :: PeerRegisterRequest -> PeerRegisterRequest -> Ordering Source #

(<) :: PeerRegisterRequest -> PeerRegisterRequest -> Bool Source #

(<=) :: PeerRegisterRequest -> PeerRegisterRequest -> Bool Source #

(>) :: PeerRegisterRequest -> PeerRegisterRequest -> Bool Source #

(>=) :: PeerRegisterRequest -> PeerRegisterRequest -> Bool Source #

max :: PeerRegisterRequest -> PeerRegisterRequest -> PeerRegisterRequest Source #

min :: PeerRegisterRequest -> PeerRegisterRequest -> PeerRegisterRequest Source #

Show PeerRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

showsPrec :: Int -> PeerRegisterRequest -> ShowS Source #

show :: PeerRegisterRequest -> String Source #

showList :: [PeerRegisterRequest] -> ShowS Source #

Generic PeerRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Associated Types

type Rep PeerRegisterRequest :: Type -> Type Source #

Methods

from :: PeerRegisterRequest -> Rep PeerRegisterRequest x Source #

to :: Rep PeerRegisterRequest x -> PeerRegisterRequest Source #

ToJSON PeerRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

toJSON :: PeerRegisterRequest -> Value Source #

toEncoding :: PeerRegisterRequest -> Encoding Source #

toJSONList :: [PeerRegisterRequest] -> Value Source #

toEncodingList :: [PeerRegisterRequest] -> Encoding Source #

FromJSON PeerRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

parseJSON :: Value -> Parser PeerRegisterRequest Source #

parseJSONList :: Value -> Parser [PeerRegisterRequest] Source #

NFData PeerRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

rnf :: PeerRegisterRequest -> () Source #

ToJSONPB PeerRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

toJSONPB :: PeerRegisterRequest -> Options -> Value Source #

toEncodingPB :: PeerRegisterRequest -> Options -> Encoding Source #

FromJSONPB PeerRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

parseJSONPB :: Value -> Parser PeerRegisterRequest Source #

HasDefault PeerRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

def :: PeerRegisterRequest Source #

isDefault :: PeerRegisterRequest -> Bool Source #

Named PeerRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

nameOf :: IsString string => Proxy# PeerRegisterRequest -> string Source #

Message PeerRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

encodeMessage :: FieldNumber -> PeerRegisterRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage PeerRegisterRequest Source #

dotProto :: Proxy# PeerRegisterRequest -> [DotProtoField] Source #

ToSchema PeerRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

declareNamedSchema :: Proxy PeerRegisterRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep PeerRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

type Rep PeerRegisterRequest = D1 ('MetaData "PeerRegisterRequest" "Data.Sawtooth.Network" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "PeerRegisterRequest" 'PrefixI 'True) (S1 ('MetaSel ('Just "peerRegisterRequestEndpoint") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "peerRegisterRequestProtocolVersion") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Word32)))

data PeerUnregisterRequest Source #

Constructors

PeerUnregisterRequest 

Instances

Instances details
Eq PeerUnregisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

(==) :: PeerUnregisterRequest -> PeerUnregisterRequest -> Bool Source #

(/=) :: PeerUnregisterRequest -> PeerUnregisterRequest -> Bool Source #

Ord PeerUnregisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

compare :: PeerUnregisterRequest -> PeerUnregisterRequest -> Ordering Source #

(<) :: PeerUnregisterRequest -> PeerUnregisterRequest -> Bool Source #

(<=) :: PeerUnregisterRequest -> PeerUnregisterRequest -> Bool Source #

(>) :: PeerUnregisterRequest -> PeerUnregisterRequest -> Bool Source #

(>=) :: PeerUnregisterRequest -> PeerUnregisterRequest -> Bool Source #

max :: PeerUnregisterRequest -> PeerUnregisterRequest -> PeerUnregisterRequest Source #

min :: PeerUnregisterRequest -> PeerUnregisterRequest -> PeerUnregisterRequest Source #

Show PeerUnregisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

showsPrec :: Int -> PeerUnregisterRequest -> ShowS Source #

show :: PeerUnregisterRequest -> String Source #

showList :: [PeerUnregisterRequest] -> ShowS Source #

Generic PeerUnregisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Associated Types

type Rep PeerUnregisterRequest :: Type -> Type Source #

Methods

from :: PeerUnregisterRequest -> Rep PeerUnregisterRequest x Source #

to :: Rep PeerUnregisterRequest x -> PeerUnregisterRequest Source #

ToJSON PeerUnregisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

toJSON :: PeerUnregisterRequest -> Value Source #

toEncoding :: PeerUnregisterRequest -> Encoding Source #

toJSONList :: [PeerUnregisterRequest] -> Value Source #

toEncodingList :: [PeerUnregisterRequest] -> Encoding Source #

FromJSON PeerUnregisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

parseJSON :: Value -> Parser PeerUnregisterRequest Source #

parseJSONList :: Value -> Parser [PeerUnregisterRequest] Source #

NFData PeerUnregisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

rnf :: PeerUnregisterRequest -> () Source #

ToJSONPB PeerUnregisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

toJSONPB :: PeerUnregisterRequest -> Options -> Value Source #

toEncodingPB :: PeerUnregisterRequest -> Options -> Encoding Source #

FromJSONPB PeerUnregisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

parseJSONPB :: Value -> Parser PeerUnregisterRequest Source #

HasDefault PeerUnregisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

def :: PeerUnregisterRequest Source #

isDefault :: PeerUnregisterRequest -> Bool Source #

Named PeerUnregisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

nameOf :: IsString string => Proxy# PeerUnregisterRequest -> string Source #

Message PeerUnregisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

encodeMessage :: FieldNumber -> PeerUnregisterRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage PeerUnregisterRequest Source #

dotProto :: Proxy# PeerUnregisterRequest -> [DotProtoField] Source #

ToSchema PeerUnregisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

declareNamedSchema :: Proxy PeerUnregisterRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep PeerUnregisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

type Rep PeerUnregisterRequest = D1 ('MetaData "PeerUnregisterRequest" "Data.Sawtooth.Network" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "PeerUnregisterRequest" 'PrefixI 'False) (U1 :: Type -> Type))

data GetPeersRequest Source #

Constructors

GetPeersRequest 

Instances

Instances details
Eq GetPeersRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

(==) :: GetPeersRequest -> GetPeersRequest -> Bool Source #

(/=) :: GetPeersRequest -> GetPeersRequest -> Bool Source #

Ord GetPeersRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

compare :: GetPeersRequest -> GetPeersRequest -> Ordering Source #

(<) :: GetPeersRequest -> GetPeersRequest -> Bool Source #

(<=) :: GetPeersRequest -> GetPeersRequest -> Bool Source #

(>) :: GetPeersRequest -> GetPeersRequest -> Bool Source #

(>=) :: GetPeersRequest -> GetPeersRequest -> Bool Source #

max :: GetPeersRequest -> GetPeersRequest -> GetPeersRequest Source #

min :: GetPeersRequest -> GetPeersRequest -> GetPeersRequest Source #

Show GetPeersRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

showsPrec :: Int -> GetPeersRequest -> ShowS Source #

show :: GetPeersRequest -> String Source #

showList :: [GetPeersRequest] -> ShowS Source #

Generic GetPeersRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Associated Types

type Rep GetPeersRequest :: Type -> Type Source #

Methods

from :: GetPeersRequest -> Rep GetPeersRequest x Source #

to :: Rep GetPeersRequest x -> GetPeersRequest Source #

ToJSON GetPeersRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

toJSON :: GetPeersRequest -> Value Source #

toEncoding :: GetPeersRequest -> Encoding Source #

toJSONList :: [GetPeersRequest] -> Value Source #

toEncodingList :: [GetPeersRequest] -> Encoding Source #

FromJSON GetPeersRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

parseJSON :: Value -> Parser GetPeersRequest Source #

parseJSONList :: Value -> Parser [GetPeersRequest] Source #

NFData GetPeersRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

rnf :: GetPeersRequest -> () Source #

ToJSONPB GetPeersRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

toJSONPB :: GetPeersRequest -> Options -> Value Source #

toEncodingPB :: GetPeersRequest -> Options -> Encoding Source #

FromJSONPB GetPeersRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

parseJSONPB :: Value -> Parser GetPeersRequest Source #

HasDefault GetPeersRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

def :: GetPeersRequest Source #

isDefault :: GetPeersRequest -> Bool Source #

Named GetPeersRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

nameOf :: IsString string => Proxy# GetPeersRequest -> string Source #

Message GetPeersRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

encodeMessage :: FieldNumber -> GetPeersRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage GetPeersRequest Source #

dotProto :: Proxy# GetPeersRequest -> [DotProtoField] Source #

ToSchema GetPeersRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

declareNamedSchema :: Proxy GetPeersRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep GetPeersRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

type Rep GetPeersRequest = D1 ('MetaData "GetPeersRequest" "Data.Sawtooth.Network" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "GetPeersRequest" 'PrefixI 'False) (U1 :: Type -> Type))

newtype GetPeersResponse Source #

Constructors

GetPeersResponse 

Fields

Instances

Instances details
Eq GetPeersResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

(==) :: GetPeersResponse -> GetPeersResponse -> Bool Source #

(/=) :: GetPeersResponse -> GetPeersResponse -> Bool Source #

Ord GetPeersResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

compare :: GetPeersResponse -> GetPeersResponse -> Ordering Source #

(<) :: GetPeersResponse -> GetPeersResponse -> Bool Source #

(<=) :: GetPeersResponse -> GetPeersResponse -> Bool Source #

(>) :: GetPeersResponse -> GetPeersResponse -> Bool Source #

(>=) :: GetPeersResponse -> GetPeersResponse -> Bool Source #

max :: GetPeersResponse -> GetPeersResponse -> GetPeersResponse Source #

min :: GetPeersResponse -> GetPeersResponse -> GetPeersResponse Source #

Show GetPeersResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

showsPrec :: Int -> GetPeersResponse -> ShowS Source #

show :: GetPeersResponse -> String Source #

showList :: [GetPeersResponse] -> ShowS Source #

Generic GetPeersResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Associated Types

type Rep GetPeersResponse :: Type -> Type Source #

Methods

from :: GetPeersResponse -> Rep GetPeersResponse x Source #

to :: Rep GetPeersResponse x -> GetPeersResponse Source #

ToJSON GetPeersResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

toJSON :: GetPeersResponse -> Value Source #

toEncoding :: GetPeersResponse -> Encoding Source #

toJSONList :: [GetPeersResponse] -> Value Source #

toEncodingList :: [GetPeersResponse] -> Encoding Source #

FromJSON GetPeersResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

parseJSON :: Value -> Parser GetPeersResponse Source #

parseJSONList :: Value -> Parser [GetPeersResponse] Source #

NFData GetPeersResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

rnf :: GetPeersResponse -> () Source #

ToJSONPB GetPeersResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

toJSONPB :: GetPeersResponse -> Options -> Value Source #

toEncodingPB :: GetPeersResponse -> Options -> Encoding Source #

FromJSONPB GetPeersResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

parseJSONPB :: Value -> Parser GetPeersResponse Source #

HasDefault GetPeersResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

def :: GetPeersResponse Source #

isDefault :: GetPeersResponse -> Bool Source #

Named GetPeersResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

nameOf :: IsString string => Proxy# GetPeersResponse -> string Source #

Message GetPeersResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

encodeMessage :: FieldNumber -> GetPeersResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage GetPeersResponse Source #

dotProto :: Proxy# GetPeersResponse -> [DotProtoField] Source #

ToSchema GetPeersResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

declareNamedSchema :: Proxy GetPeersResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep GetPeersResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

type Rep GetPeersResponse = D1 ('MetaData "GetPeersResponse" "Data.Sawtooth.Network" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'True) (C1 ('MetaCons "GetPeersResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "getPeersResponsePeerEndpoints") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Text))))

data PingRequest Source #

Constructors

PingRequest 

Instances

Instances details
Eq PingRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

(==) :: PingRequest -> PingRequest -> Bool Source #

(/=) :: PingRequest -> PingRequest -> Bool Source #

Ord PingRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

compare :: PingRequest -> PingRequest -> Ordering Source #

(<) :: PingRequest -> PingRequest -> Bool Source #

(<=) :: PingRequest -> PingRequest -> Bool Source #

(>) :: PingRequest -> PingRequest -> Bool Source #

(>=) :: PingRequest -> PingRequest -> Bool Source #

max :: PingRequest -> PingRequest -> PingRequest Source #

min :: PingRequest -> PingRequest -> PingRequest Source #

Show PingRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

showsPrec :: Int -> PingRequest -> ShowS Source #

show :: PingRequest -> String Source #

showList :: [PingRequest] -> ShowS Source #

Generic PingRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Associated Types

type Rep PingRequest :: Type -> Type Source #

Methods

from :: PingRequest -> Rep PingRequest x Source #

to :: Rep PingRequest x -> PingRequest Source #

ToJSON PingRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

toJSON :: PingRequest -> Value Source #

toEncoding :: PingRequest -> Encoding Source #

toJSONList :: [PingRequest] -> Value Source #

toEncodingList :: [PingRequest] -> Encoding Source #

FromJSON PingRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

parseJSON :: Value -> Parser PingRequest Source #

parseJSONList :: Value -> Parser [PingRequest] Source #

NFData PingRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

rnf :: PingRequest -> () Source #

ToJSONPB PingRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

toJSONPB :: PingRequest -> Options -> Value Source #

toEncodingPB :: PingRequest -> Options -> Encoding Source #

FromJSONPB PingRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

parseJSONPB :: Value -> Parser PingRequest Source #

HasDefault PingRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

def :: PingRequest Source #

isDefault :: PingRequest -> Bool Source #

Named PingRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

nameOf :: IsString string => Proxy# PingRequest -> string Source #

Message PingRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

encodeMessage :: FieldNumber -> PingRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage PingRequest Source #

dotProto :: Proxy# PingRequest -> [DotProtoField] Source #

ToSchema PingRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

declareNamedSchema :: Proxy PingRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep PingRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

type Rep PingRequest = D1 ('MetaData "PingRequest" "Data.Sawtooth.Network" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "PingRequest" 'PrefixI 'False) (U1 :: Type -> Type))

data PingResponse Source #

Constructors

PingResponse 

Instances

Instances details
Eq PingResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

(==) :: PingResponse -> PingResponse -> Bool Source #

(/=) :: PingResponse -> PingResponse -> Bool Source #

Ord PingResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

compare :: PingResponse -> PingResponse -> Ordering Source #

(<) :: PingResponse -> PingResponse -> Bool Source #

(<=) :: PingResponse -> PingResponse -> Bool Source #

(>) :: PingResponse -> PingResponse -> Bool Source #

(>=) :: PingResponse -> PingResponse -> Bool Source #

max :: PingResponse -> PingResponse -> PingResponse Source #

min :: PingResponse -> PingResponse -> PingResponse Source #

Show PingResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

showsPrec :: Int -> PingResponse -> ShowS Source #

show :: PingResponse -> String Source #

showList :: [PingResponse] -> ShowS Source #

Generic PingResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Associated Types

type Rep PingResponse :: Type -> Type Source #

Methods

from :: PingResponse -> Rep PingResponse x Source #

to :: Rep PingResponse x -> PingResponse Source #

ToJSON PingResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

toJSON :: PingResponse -> Value Source #

toEncoding :: PingResponse -> Encoding Source #

toJSONList :: [PingResponse] -> Value Source #

toEncodingList :: [PingResponse] -> Encoding Source #

FromJSON PingResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

parseJSON :: Value -> Parser PingResponse Source #

parseJSONList :: Value -> Parser [PingResponse] Source #

NFData PingResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

rnf :: PingResponse -> () Source #

ToJSONPB PingResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

toJSONPB :: PingResponse -> Options -> Value Source #

toEncodingPB :: PingResponse -> Options -> Encoding Source #

FromJSONPB PingResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

parseJSONPB :: Value -> Parser PingResponse Source #

HasDefault PingResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

def :: PingResponse Source #

isDefault :: PingResponse -> Bool Source #

Named PingResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

nameOf :: IsString string => Proxy# PingResponse -> string Source #

Message PingResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

encodeMessage :: FieldNumber -> PingResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage PingResponse Source #

dotProto :: Proxy# PingResponse -> [DotProtoField] Source #

ToSchema PingResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

declareNamedSchema :: Proxy PingResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep PingResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

type Rep PingResponse = D1 ('MetaData "PingResponse" "Data.Sawtooth.Network" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "PingResponse" 'PrefixI 'False) (U1 :: Type -> Type))

data GossipMessage Source #

Constructors

GossipMessage 

Fields

Instances

Instances details
Eq GossipMessage Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

(==) :: GossipMessage -> GossipMessage -> Bool Source #

(/=) :: GossipMessage -> GossipMessage -> Bool Source #

Ord GossipMessage Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

compare :: GossipMessage -> GossipMessage -> Ordering Source #

(<) :: GossipMessage -> GossipMessage -> Bool Source #

(<=) :: GossipMessage -> GossipMessage -> Bool Source #

(>) :: GossipMessage -> GossipMessage -> Bool Source #

(>=) :: GossipMessage -> GossipMessage -> Bool Source #

max :: GossipMessage -> GossipMessage -> GossipMessage Source #

min :: GossipMessage -> GossipMessage -> GossipMessage Source #

Show GossipMessage Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

showsPrec :: Int -> GossipMessage -> ShowS Source #

show :: GossipMessage -> String Source #

showList :: [GossipMessage] -> ShowS Source #

Generic GossipMessage Source # 
Instance details

Defined in Data.Sawtooth.Network

Associated Types

type Rep GossipMessage :: Type -> Type Source #

Methods

from :: GossipMessage -> Rep GossipMessage x Source #

to :: Rep GossipMessage x -> GossipMessage Source #

ToJSON GossipMessage Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

toJSON :: GossipMessage -> Value Source #

toEncoding :: GossipMessage -> Encoding Source #

toJSONList :: [GossipMessage] -> Value Source #

toEncodingList :: [GossipMessage] -> Encoding Source #

FromJSON GossipMessage Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

parseJSON :: Value -> Parser GossipMessage Source #

parseJSONList :: Value -> Parser [GossipMessage] Source #

NFData GossipMessage Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

rnf :: GossipMessage -> () Source #

ToJSONPB GossipMessage Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

toJSONPB :: GossipMessage -> Options -> Value Source #

toEncodingPB :: GossipMessage -> Options -> Encoding Source #

FromJSONPB GossipMessage Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

parseJSONPB :: Value -> Parser GossipMessage Source #

HasDefault GossipMessage Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

def :: GossipMessage Source #

isDefault :: GossipMessage -> Bool Source #

Named GossipMessage Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

nameOf :: IsString string => Proxy# GossipMessage -> string Source #

Message GossipMessage Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

encodeMessage :: FieldNumber -> GossipMessage -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage GossipMessage Source #

dotProto :: Proxy# GossipMessage -> [DotProtoField] Source #

ToSchema GossipMessage Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

declareNamedSchema :: Proxy GossipMessage -> Declare (Definitions Schema) NamedSchema Source #

type Rep GossipMessage Source # 
Instance details

Defined in Data.Sawtooth.Network

type Rep GossipMessage = D1 ('MetaData "GossipMessage" "Data.Sawtooth.Network" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "GossipMessage" 'PrefixI 'True) (S1 ('MetaSel ('Just "gossipMessageContent") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString) :*: (S1 ('MetaSel ('Just "gossipMessageContentType") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated GossipMessage_ContentType)) :*: S1 ('MetaSel ('Just "gossipMessageTimeToLive") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Word32))))

data GossipMessage_ContentType Source #

Constructors

GossipMessage_ContentTypeCONTENT_TYPE_UNSET 
GossipMessage_ContentTypeBLOCK 
GossipMessage_ContentTypeBATCH 
GossipMessage_ContentTypeCONSENSUS 

Instances

Instances details
Bounded GossipMessage_ContentType Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

minBound :: GossipMessage_ContentType Source #

maxBound :: GossipMessage_ContentType Source #

Eq GossipMessage_ContentType Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

(==) :: GossipMessage_ContentType -> GossipMessage_ContentType -> Bool Source #

(/=) :: GossipMessage_ContentType -> GossipMessage_ContentType -> Bool Source #

Ord GossipMessage_ContentType Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

compare :: GossipMessage_ContentType -> GossipMessage_ContentType -> Ordering Source #

(<) :: GossipMessage_ContentType -> GossipMessage_ContentType -> Bool Source #

(<=) :: GossipMessage_ContentType -> GossipMessage_ContentType -> Bool Source #

(>) :: GossipMessage_ContentType -> GossipMessage_ContentType -> Bool Source #

(>=) :: GossipMessage_ContentType -> GossipMessage_ContentType -> Bool Source #

max :: GossipMessage_ContentType -> GossipMessage_ContentType -> GossipMessage_ContentType Source #

min :: GossipMessage_ContentType -> GossipMessage_ContentType -> GossipMessage_ContentType Source #

Show GossipMessage_ContentType Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

showsPrec :: Int -> GossipMessage_ContentType -> ShowS Source #

show :: GossipMessage_ContentType -> String Source #

showList :: [GossipMessage_ContentType] -> ShowS Source #

Generic GossipMessage_ContentType Source # 
Instance details

Defined in Data.Sawtooth.Network

Associated Types

type Rep GossipMessage_ContentType :: Type -> Type Source #

Methods

from :: GossipMessage_ContentType -> Rep GossipMessage_ContentType x Source #

to :: Rep GossipMessage_ContentType x -> GossipMessage_ContentType Source #

ToJSON GossipMessage_ContentType Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

toJSON :: GossipMessage_ContentType -> Value Source #

toEncoding :: GossipMessage_ContentType -> Encoding Source #

toJSONList :: [GossipMessage_ContentType] -> Value Source #

toEncodingList :: [GossipMessage_ContentType] -> Encoding Source #

FromJSON GossipMessage_ContentType Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

parseJSON :: Value -> Parser GossipMessage_ContentType Source #

parseJSONList :: Value -> Parser [GossipMessage_ContentType] Source #

NFData GossipMessage_ContentType Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

rnf :: GossipMessage_ContentType -> () Source #

ProtoEnum GossipMessage_ContentType Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

toProtoEnumMay :: Int32 -> Maybe GossipMessage_ContentType Source #

fromProtoEnum :: GossipMessage_ContentType -> Int32 Source #

ToJSONPB GossipMessage_ContentType Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

toJSONPB :: GossipMessage_ContentType -> Options -> Value Source #

toEncodingPB :: GossipMessage_ContentType -> Options -> Encoding Source #

FromJSONPB GossipMessage_ContentType Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

parseJSONPB :: Value -> Parser GossipMessage_ContentType Source #

HasDefault GossipMessage_ContentType Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

def :: GossipMessage_ContentType Source #

isDefault :: GossipMessage_ContentType -> Bool Source #

Named GossipMessage_ContentType Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

nameOf :: IsString string => Proxy# GossipMessage_ContentType -> string Source #

Finite GossipMessage_ContentType Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

enumerate :: IsString string => Proxy# GossipMessage_ContentType -> [(string, Int32)] Source #

type Rep GossipMessage_ContentType Source # 
Instance details

Defined in Data.Sawtooth.Network

type Rep GossipMessage_ContentType = D1 ('MetaData "GossipMessage_ContentType" "Data.Sawtooth.Network" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) ((C1 ('MetaCons "GossipMessage_ContentTypeCONTENT_TYPE_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "GossipMessage_ContentTypeBLOCK" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "GossipMessage_ContentTypeBATCH" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "GossipMessage_ContentTypeCONSENSUS" 'PrefixI 'False) (U1 :: Type -> Type)))

newtype NetworkAcknowledgement Source #

Constructors

NetworkAcknowledgement 

Fields

Instances

Instances details
Eq NetworkAcknowledgement Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

(==) :: NetworkAcknowledgement -> NetworkAcknowledgement -> Bool Source #

(/=) :: NetworkAcknowledgement -> NetworkAcknowledgement -> Bool Source #

Ord NetworkAcknowledgement Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

compare :: NetworkAcknowledgement -> NetworkAcknowledgement -> Ordering Source #

(<) :: NetworkAcknowledgement -> NetworkAcknowledgement -> Bool Source #

(<=) :: NetworkAcknowledgement -> NetworkAcknowledgement -> Bool Source #

(>) :: NetworkAcknowledgement -> NetworkAcknowledgement -> Bool Source #

(>=) :: NetworkAcknowledgement -> NetworkAcknowledgement -> Bool Source #

max :: NetworkAcknowledgement -> NetworkAcknowledgement -> NetworkAcknowledgement Source #

min :: NetworkAcknowledgement -> NetworkAcknowledgement -> NetworkAcknowledgement Source #

Show NetworkAcknowledgement Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

showsPrec :: Int -> NetworkAcknowledgement -> ShowS Source #

show :: NetworkAcknowledgement -> String Source #

showList :: [NetworkAcknowledgement] -> ShowS Source #

Generic NetworkAcknowledgement Source # 
Instance details

Defined in Data.Sawtooth.Network

Associated Types

type Rep NetworkAcknowledgement :: Type -> Type Source #

Methods

from :: NetworkAcknowledgement -> Rep NetworkAcknowledgement x Source #

to :: Rep NetworkAcknowledgement x -> NetworkAcknowledgement Source #

ToJSON NetworkAcknowledgement Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

toJSON :: NetworkAcknowledgement -> Value Source #

toEncoding :: NetworkAcknowledgement -> Encoding Source #

toJSONList :: [NetworkAcknowledgement] -> Value Source #

toEncodingList :: [NetworkAcknowledgement] -> Encoding Source #

FromJSON NetworkAcknowledgement Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

parseJSON :: Value -> Parser NetworkAcknowledgement Source #

parseJSONList :: Value -> Parser [NetworkAcknowledgement] Source #

NFData NetworkAcknowledgement Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

rnf :: NetworkAcknowledgement -> () Source #

ToJSONPB NetworkAcknowledgement Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

toJSONPB :: NetworkAcknowledgement -> Options -> Value Source #

toEncodingPB :: NetworkAcknowledgement -> Options -> Encoding Source #

FromJSONPB NetworkAcknowledgement Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

parseJSONPB :: Value -> Parser NetworkAcknowledgement Source #

HasDefault NetworkAcknowledgement Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

def :: NetworkAcknowledgement Source #

isDefault :: NetworkAcknowledgement -> Bool Source #

Named NetworkAcknowledgement Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

nameOf :: IsString string => Proxy# NetworkAcknowledgement -> string Source #

Message NetworkAcknowledgement Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

encodeMessage :: FieldNumber -> NetworkAcknowledgement -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage NetworkAcknowledgement Source #

dotProto :: Proxy# NetworkAcknowledgement -> [DotProtoField] Source #

ToSchema NetworkAcknowledgement Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

declareNamedSchema :: Proxy NetworkAcknowledgement -> Declare (Definitions Schema) NamedSchema Source #

type Rep NetworkAcknowledgement Source # 
Instance details

Defined in Data.Sawtooth.Network

type Rep NetworkAcknowledgement = D1 ('MetaData "NetworkAcknowledgement" "Data.Sawtooth.Network" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'True) (C1 ('MetaCons "NetworkAcknowledgement" 'PrefixI 'True) (S1 ('MetaSel ('Just "networkAcknowledgementStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated NetworkAcknowledgement_Status))))

data NetworkAcknowledgement_Status Source #

Constructors

NetworkAcknowledgement_StatusSTATUS_UNSET 
NetworkAcknowledgement_StatusOK 
NetworkAcknowledgement_StatusERROR 

Instances

Instances details
Bounded NetworkAcknowledgement_Status Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

minBound :: NetworkAcknowledgement_Status Source #

maxBound :: NetworkAcknowledgement_Status Source #

Eq NetworkAcknowledgement_Status Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

(==) :: NetworkAcknowledgement_Status -> NetworkAcknowledgement_Status -> Bool Source #

(/=) :: NetworkAcknowledgement_Status -> NetworkAcknowledgement_Status -> Bool Source #

Ord NetworkAcknowledgement_Status Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

compare :: NetworkAcknowledgement_Status -> NetworkAcknowledgement_Status -> Ordering Source #

(<) :: NetworkAcknowledgement_Status -> NetworkAcknowledgement_Status -> Bool Source #

(<=) :: NetworkAcknowledgement_Status -> NetworkAcknowledgement_Status -> Bool Source #

(>) :: NetworkAcknowledgement_Status -> NetworkAcknowledgement_Status -> Bool Source #

(>=) :: NetworkAcknowledgement_Status -> NetworkAcknowledgement_Status -> Bool Source #

max :: NetworkAcknowledgement_Status -> NetworkAcknowledgement_Status -> NetworkAcknowledgement_Status Source #

min :: NetworkAcknowledgement_Status -> NetworkAcknowledgement_Status -> NetworkAcknowledgement_Status Source #

Show NetworkAcknowledgement_Status Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

showsPrec :: Int -> NetworkAcknowledgement_Status -> ShowS Source #

show :: NetworkAcknowledgement_Status -> String Source #

showList :: [NetworkAcknowledgement_Status] -> ShowS Source #

Generic NetworkAcknowledgement_Status Source # 
Instance details

Defined in Data.Sawtooth.Network

Associated Types

type Rep NetworkAcknowledgement_Status :: Type -> Type Source #

Methods

from :: NetworkAcknowledgement_Status -> Rep NetworkAcknowledgement_Status x Source #

to :: Rep NetworkAcknowledgement_Status x -> NetworkAcknowledgement_Status Source #

ToJSON NetworkAcknowledgement_Status Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

toJSON :: NetworkAcknowledgement_Status -> Value Source #

toEncoding :: NetworkAcknowledgement_Status -> Encoding Source #

toJSONList :: [NetworkAcknowledgement_Status] -> Value Source #

toEncodingList :: [NetworkAcknowledgement_Status] -> Encoding Source #

FromJSON NetworkAcknowledgement_Status Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

parseJSON :: Value -> Parser NetworkAcknowledgement_Status Source #

parseJSONList :: Value -> Parser [NetworkAcknowledgement_Status] Source #

NFData NetworkAcknowledgement_Status Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

rnf :: NetworkAcknowledgement_Status -> () Source #

ProtoEnum NetworkAcknowledgement_Status Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

toProtoEnumMay :: Int32 -> Maybe NetworkAcknowledgement_Status Source #

fromProtoEnum :: NetworkAcknowledgement_Status -> Int32 Source #

ToJSONPB NetworkAcknowledgement_Status Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

toJSONPB :: NetworkAcknowledgement_Status -> Options -> Value Source #

toEncodingPB :: NetworkAcknowledgement_Status -> Options -> Encoding Source #

FromJSONPB NetworkAcknowledgement_Status Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

parseJSONPB :: Value -> Parser NetworkAcknowledgement_Status Source #

HasDefault NetworkAcknowledgement_Status Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

def :: NetworkAcknowledgement_Status Source #

isDefault :: NetworkAcknowledgement_Status -> Bool Source #

Named NetworkAcknowledgement_Status Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

nameOf :: IsString string => Proxy# NetworkAcknowledgement_Status -> string Source #

Finite NetworkAcknowledgement_Status Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

enumerate :: IsString string => Proxy# NetworkAcknowledgement_Status -> [(string, Int32)] Source #

type Rep NetworkAcknowledgement_Status Source # 
Instance details

Defined in Data.Sawtooth.Network

type Rep NetworkAcknowledgement_Status = D1 ('MetaData "NetworkAcknowledgement_Status" "Data.Sawtooth.Network" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "NetworkAcknowledgement_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "NetworkAcknowledgement_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "NetworkAcknowledgement_StatusERROR" 'PrefixI 'False) (U1 :: Type -> Type)))

data GossipBlockRequest Source #

Constructors

GossipBlockRequest 

Fields

Instances

Instances details
Eq GossipBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

(==) :: GossipBlockRequest -> GossipBlockRequest -> Bool Source #

(/=) :: GossipBlockRequest -> GossipBlockRequest -> Bool Source #

Ord GossipBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

compare :: GossipBlockRequest -> GossipBlockRequest -> Ordering Source #

(<) :: GossipBlockRequest -> GossipBlockRequest -> Bool Source #

(<=) :: GossipBlockRequest -> GossipBlockRequest -> Bool Source #

(>) :: GossipBlockRequest -> GossipBlockRequest -> Bool Source #

(>=) :: GossipBlockRequest -> GossipBlockRequest -> Bool Source #

max :: GossipBlockRequest -> GossipBlockRequest -> GossipBlockRequest Source #

min :: GossipBlockRequest -> GossipBlockRequest -> GossipBlockRequest Source #

Show GossipBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

showsPrec :: Int -> GossipBlockRequest -> ShowS Source #

show :: GossipBlockRequest -> String Source #

showList :: [GossipBlockRequest] -> ShowS Source #

Generic GossipBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Associated Types

type Rep GossipBlockRequest :: Type -> Type Source #

Methods

from :: GossipBlockRequest -> Rep GossipBlockRequest x Source #

to :: Rep GossipBlockRequest x -> GossipBlockRequest Source #

ToJSON GossipBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

toJSON :: GossipBlockRequest -> Value Source #

toEncoding :: GossipBlockRequest -> Encoding Source #

toJSONList :: [GossipBlockRequest] -> Value Source #

toEncodingList :: [GossipBlockRequest] -> Encoding Source #

FromJSON GossipBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

parseJSON :: Value -> Parser GossipBlockRequest Source #

parseJSONList :: Value -> Parser [GossipBlockRequest] Source #

NFData GossipBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

rnf :: GossipBlockRequest -> () Source #

ToJSONPB GossipBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

toJSONPB :: GossipBlockRequest -> Options -> Value Source #

toEncodingPB :: GossipBlockRequest -> Options -> Encoding Source #

FromJSONPB GossipBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

parseJSONPB :: Value -> Parser GossipBlockRequest Source #

HasDefault GossipBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

def :: GossipBlockRequest Source #

isDefault :: GossipBlockRequest -> Bool Source #

Named GossipBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

nameOf :: IsString string => Proxy# GossipBlockRequest -> string Source #

Message GossipBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

encodeMessage :: FieldNumber -> GossipBlockRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage GossipBlockRequest Source #

dotProto :: Proxy# GossipBlockRequest -> [DotProtoField] Source #

ToSchema GossipBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

declareNamedSchema :: Proxy GossipBlockRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep GossipBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

type Rep GossipBlockRequest = D1 ('MetaData "GossipBlockRequest" "Data.Sawtooth.Network" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "GossipBlockRequest" 'PrefixI 'True) (S1 ('MetaSel ('Just "gossipBlockRequestBlockId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: (S1 ('MetaSel ('Just "gossipBlockRequestNonce") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "gossipBlockRequestTimeToLive") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Word32))))

newtype GossipBlockResponse Source #

Constructors

GossipBlockResponse 

Fields

Instances

Instances details
Eq GossipBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

(==) :: GossipBlockResponse -> GossipBlockResponse -> Bool Source #

(/=) :: GossipBlockResponse -> GossipBlockResponse -> Bool Source #

Ord GossipBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

compare :: GossipBlockResponse -> GossipBlockResponse -> Ordering Source #

(<) :: GossipBlockResponse -> GossipBlockResponse -> Bool Source #

(<=) :: GossipBlockResponse -> GossipBlockResponse -> Bool Source #

(>) :: GossipBlockResponse -> GossipBlockResponse -> Bool Source #

(>=) :: GossipBlockResponse -> GossipBlockResponse -> Bool Source #

max :: GossipBlockResponse -> GossipBlockResponse -> GossipBlockResponse Source #

min :: GossipBlockResponse -> GossipBlockResponse -> GossipBlockResponse Source #

Show GossipBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

showsPrec :: Int -> GossipBlockResponse -> ShowS Source #

show :: GossipBlockResponse -> String Source #

showList :: [GossipBlockResponse] -> ShowS Source #

Generic GossipBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Associated Types

type Rep GossipBlockResponse :: Type -> Type Source #

Methods

from :: GossipBlockResponse -> Rep GossipBlockResponse x Source #

to :: Rep GossipBlockResponse x -> GossipBlockResponse Source #

ToJSON GossipBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

toJSON :: GossipBlockResponse -> Value Source #

toEncoding :: GossipBlockResponse -> Encoding Source #

toJSONList :: [GossipBlockResponse] -> Value Source #

toEncodingList :: [GossipBlockResponse] -> Encoding Source #

FromJSON GossipBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

parseJSON :: Value -> Parser GossipBlockResponse Source #

parseJSONList :: Value -> Parser [GossipBlockResponse] Source #

NFData GossipBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

rnf :: GossipBlockResponse -> () Source #

ToJSONPB GossipBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

toJSONPB :: GossipBlockResponse -> Options -> Value Source #

toEncodingPB :: GossipBlockResponse -> Options -> Encoding Source #

FromJSONPB GossipBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

parseJSONPB :: Value -> Parser GossipBlockResponse Source #

HasDefault GossipBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

def :: GossipBlockResponse Source #

isDefault :: GossipBlockResponse -> Bool Source #

Named GossipBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

nameOf :: IsString string => Proxy# GossipBlockResponse -> string Source #

Message GossipBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

encodeMessage :: FieldNumber -> GossipBlockResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage GossipBlockResponse Source #

dotProto :: Proxy# GossipBlockResponse -> [DotProtoField] Source #

ToSchema GossipBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

declareNamedSchema :: Proxy GossipBlockResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep GossipBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

type Rep GossipBlockResponse = D1 ('MetaData "GossipBlockResponse" "Data.Sawtooth.Network" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'True) (C1 ('MetaCons "GossipBlockResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "gossipBlockResponseContent") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString)))

newtype GossipBatchResponse Source #

Constructors

GossipBatchResponse 

Fields

Instances

Instances details
Eq GossipBatchResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

(==) :: GossipBatchResponse -> GossipBatchResponse -> Bool Source #

(/=) :: GossipBatchResponse -> GossipBatchResponse -> Bool Source #

Ord GossipBatchResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

compare :: GossipBatchResponse -> GossipBatchResponse -> Ordering Source #

(<) :: GossipBatchResponse -> GossipBatchResponse -> Bool Source #

(<=) :: GossipBatchResponse -> GossipBatchResponse -> Bool Source #

(>) :: GossipBatchResponse -> GossipBatchResponse -> Bool Source #

(>=) :: GossipBatchResponse -> GossipBatchResponse -> Bool Source #

max :: GossipBatchResponse -> GossipBatchResponse -> GossipBatchResponse Source #

min :: GossipBatchResponse -> GossipBatchResponse -> GossipBatchResponse Source #

Show GossipBatchResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

showsPrec :: Int -> GossipBatchResponse -> ShowS Source #

show :: GossipBatchResponse -> String Source #

showList :: [GossipBatchResponse] -> ShowS Source #

Generic GossipBatchResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Associated Types

type Rep GossipBatchResponse :: Type -> Type Source #

Methods

from :: GossipBatchResponse -> Rep GossipBatchResponse x Source #

to :: Rep GossipBatchResponse x -> GossipBatchResponse Source #

ToJSON GossipBatchResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

toJSON :: GossipBatchResponse -> Value Source #

toEncoding :: GossipBatchResponse -> Encoding Source #

toJSONList :: [GossipBatchResponse] -> Value Source #

toEncodingList :: [GossipBatchResponse] -> Encoding Source #

FromJSON GossipBatchResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

parseJSON :: Value -> Parser GossipBatchResponse Source #

parseJSONList :: Value -> Parser [GossipBatchResponse] Source #

NFData GossipBatchResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

rnf :: GossipBatchResponse -> () Source #

ToJSONPB GossipBatchResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

toJSONPB :: GossipBatchResponse -> Options -> Value Source #

toEncodingPB :: GossipBatchResponse -> Options -> Encoding Source #

FromJSONPB GossipBatchResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

parseJSONPB :: Value -> Parser GossipBatchResponse Source #

HasDefault GossipBatchResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

def :: GossipBatchResponse Source #

isDefault :: GossipBatchResponse -> Bool Source #

Named GossipBatchResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

nameOf :: IsString string => Proxy# GossipBatchResponse -> string Source #

Message GossipBatchResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

encodeMessage :: FieldNumber -> GossipBatchResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage GossipBatchResponse Source #

dotProto :: Proxy# GossipBatchResponse -> [DotProtoField] Source #

ToSchema GossipBatchResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

declareNamedSchema :: Proxy GossipBatchResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep GossipBatchResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

type Rep GossipBatchResponse = D1 ('MetaData "GossipBatchResponse" "Data.Sawtooth.Network" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'True) (C1 ('MetaCons "GossipBatchResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "gossipBatchResponseContent") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString)))

data GossipBatchByBatchIdRequest Source #

Constructors

GossipBatchByBatchIdRequest 

Fields

Instances

Instances details
Eq GossipBatchByBatchIdRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

(==) :: GossipBatchByBatchIdRequest -> GossipBatchByBatchIdRequest -> Bool Source #

(/=) :: GossipBatchByBatchIdRequest -> GossipBatchByBatchIdRequest -> Bool Source #

Ord GossipBatchByBatchIdRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

compare :: GossipBatchByBatchIdRequest -> GossipBatchByBatchIdRequest -> Ordering Source #

(<) :: GossipBatchByBatchIdRequest -> GossipBatchByBatchIdRequest -> Bool Source #

(<=) :: GossipBatchByBatchIdRequest -> GossipBatchByBatchIdRequest -> Bool Source #

(>) :: GossipBatchByBatchIdRequest -> GossipBatchByBatchIdRequest -> Bool Source #

(>=) :: GossipBatchByBatchIdRequest -> GossipBatchByBatchIdRequest -> Bool Source #

max :: GossipBatchByBatchIdRequest -> GossipBatchByBatchIdRequest -> GossipBatchByBatchIdRequest Source #

min :: GossipBatchByBatchIdRequest -> GossipBatchByBatchIdRequest -> GossipBatchByBatchIdRequest Source #

Show GossipBatchByBatchIdRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

showsPrec :: Int -> GossipBatchByBatchIdRequest -> ShowS Source #

show :: GossipBatchByBatchIdRequest -> String Source #

showList :: [GossipBatchByBatchIdRequest] -> ShowS Source #

Generic GossipBatchByBatchIdRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Associated Types

type Rep GossipBatchByBatchIdRequest :: Type -> Type Source #

Methods

from :: GossipBatchByBatchIdRequest -> Rep GossipBatchByBatchIdRequest x Source #

to :: Rep GossipBatchByBatchIdRequest x -> GossipBatchByBatchIdRequest Source #

ToJSON GossipBatchByBatchIdRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

toJSON :: GossipBatchByBatchIdRequest -> Value Source #

toEncoding :: GossipBatchByBatchIdRequest -> Encoding Source #

toJSONList :: [GossipBatchByBatchIdRequest] -> Value Source #

toEncodingList :: [GossipBatchByBatchIdRequest] -> Encoding Source #

FromJSON GossipBatchByBatchIdRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

parseJSON :: Value -> Parser GossipBatchByBatchIdRequest Source #

parseJSONList :: Value -> Parser [GossipBatchByBatchIdRequest] Source #

NFData GossipBatchByBatchIdRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

rnf :: GossipBatchByBatchIdRequest -> () Source #

ToJSONPB GossipBatchByBatchIdRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

toJSONPB :: GossipBatchByBatchIdRequest -> Options -> Value Source #

toEncodingPB :: GossipBatchByBatchIdRequest -> Options -> Encoding Source #

FromJSONPB GossipBatchByBatchIdRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

parseJSONPB :: Value -> Parser GossipBatchByBatchIdRequest Source #

HasDefault GossipBatchByBatchIdRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

def :: GossipBatchByBatchIdRequest Source #

isDefault :: GossipBatchByBatchIdRequest -> Bool Source #

Named GossipBatchByBatchIdRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

nameOf :: IsString string => Proxy# GossipBatchByBatchIdRequest -> string Source #

Message GossipBatchByBatchIdRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

encodeMessage :: FieldNumber -> GossipBatchByBatchIdRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage GossipBatchByBatchIdRequest Source #

dotProto :: Proxy# GossipBatchByBatchIdRequest -> [DotProtoField] Source #

ToSchema GossipBatchByBatchIdRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

declareNamedSchema :: Proxy GossipBatchByBatchIdRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep GossipBatchByBatchIdRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

type Rep GossipBatchByBatchIdRequest = D1 ('MetaData "GossipBatchByBatchIdRequest" "Data.Sawtooth.Network" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "GossipBatchByBatchIdRequest" 'PrefixI 'True) (S1 ('MetaSel ('Just "gossipBatchByBatchIdRequestId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: (S1 ('MetaSel ('Just "gossipBatchByBatchIdRequestNonce") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "gossipBatchByBatchIdRequestTimeToLive") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Word32))))

data GossipBatchByTransactionIdRequest Source #

Constructors

GossipBatchByTransactionIdRequest 

Fields

Instances

Instances details
Eq GossipBatchByTransactionIdRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

(==) :: GossipBatchByTransactionIdRequest -> GossipBatchByTransactionIdRequest -> Bool Source #

(/=) :: GossipBatchByTransactionIdRequest -> GossipBatchByTransactionIdRequest -> Bool Source #

Ord GossipBatchByTransactionIdRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

compare :: GossipBatchByTransactionIdRequest -> GossipBatchByTransactionIdRequest -> Ordering Source #

(<) :: GossipBatchByTransactionIdRequest -> GossipBatchByTransactionIdRequest -> Bool Source #

(<=) :: GossipBatchByTransactionIdRequest -> GossipBatchByTransactionIdRequest -> Bool Source #

(>) :: GossipBatchByTransactionIdRequest -> GossipBatchByTransactionIdRequest -> Bool Source #

(>=) :: GossipBatchByTransactionIdRequest -> GossipBatchByTransactionIdRequest -> Bool Source #

max :: GossipBatchByTransactionIdRequest -> GossipBatchByTransactionIdRequest -> GossipBatchByTransactionIdRequest Source #

min :: GossipBatchByTransactionIdRequest -> GossipBatchByTransactionIdRequest -> GossipBatchByTransactionIdRequest Source #

Show GossipBatchByTransactionIdRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

showsPrec :: Int -> GossipBatchByTransactionIdRequest -> ShowS Source #

show :: GossipBatchByTransactionIdRequest -> String Source #

showList :: [GossipBatchByTransactionIdRequest] -> ShowS Source #

Generic GossipBatchByTransactionIdRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Associated Types

type Rep GossipBatchByTransactionIdRequest :: Type -> Type Source #

Methods

from :: GossipBatchByTransactionIdRequest -> Rep GossipBatchByTransactionIdRequest x Source #

to :: Rep GossipBatchByTransactionIdRequest x -> GossipBatchByTransactionIdRequest Source #

ToJSON GossipBatchByTransactionIdRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

toJSON :: GossipBatchByTransactionIdRequest -> Value Source #

toEncoding :: GossipBatchByTransactionIdRequest -> Encoding Source #

toJSONList :: [GossipBatchByTransactionIdRequest] -> Value Source #

toEncodingList :: [GossipBatchByTransactionIdRequest] -> Encoding Source #

FromJSON GossipBatchByTransactionIdRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

parseJSON :: Value -> Parser GossipBatchByTransactionIdRequest Source #

parseJSONList :: Value -> Parser [GossipBatchByTransactionIdRequest] Source #

NFData GossipBatchByTransactionIdRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

rnf :: GossipBatchByTransactionIdRequest -> () Source #

ToJSONPB GossipBatchByTransactionIdRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

toJSONPB :: GossipBatchByTransactionIdRequest -> Options -> Value Source #

toEncodingPB :: GossipBatchByTransactionIdRequest -> Options -> Encoding Source #

FromJSONPB GossipBatchByTransactionIdRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

parseJSONPB :: Value -> Parser GossipBatchByTransactionIdRequest Source #

HasDefault GossipBatchByTransactionIdRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

def :: GossipBatchByTransactionIdRequest Source #

isDefault :: GossipBatchByTransactionIdRequest -> Bool Source #

Named GossipBatchByTransactionIdRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

nameOf :: IsString string => Proxy# GossipBatchByTransactionIdRequest -> string Source #

Message GossipBatchByTransactionIdRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

encodeMessage :: FieldNumber -> GossipBatchByTransactionIdRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage GossipBatchByTransactionIdRequest Source #

dotProto :: Proxy# GossipBatchByTransactionIdRequest -> [DotProtoField] Source #

ToSchema GossipBatchByTransactionIdRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

declareNamedSchema :: Proxy GossipBatchByTransactionIdRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep GossipBatchByTransactionIdRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

type Rep GossipBatchByTransactionIdRequest = D1 ('MetaData "GossipBatchByTransactionIdRequest" "Data.Sawtooth.Network" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "GossipBatchByTransactionIdRequest" 'PrefixI 'True) (S1 ('MetaSel ('Just "gossipBatchByTransactionIdRequestIds") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Text)) :*: (S1 ('MetaSel ('Just "gossipBatchByTransactionIdRequestNonce") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "gossipBatchByTransactionIdRequestTimeToLive") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Word32))))
\ No newline at end of file +Data.Sawtooth.Network
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types
Safe HaskellNone
LanguageHaskell2010

Data.Sawtooth.Network

Description

Generated by Haskell protocol buffer compiler. DO NOT EDIT!

Documentation

data DisconnectMessage Source #

Constructors

DisconnectMessage 

Instances

Instances details
Eq DisconnectMessage Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

(==) :: DisconnectMessage -> DisconnectMessage -> Bool Source #

(/=) :: DisconnectMessage -> DisconnectMessage -> Bool Source #

Ord DisconnectMessage Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

compare :: DisconnectMessage -> DisconnectMessage -> Ordering Source #

(<) :: DisconnectMessage -> DisconnectMessage -> Bool Source #

(<=) :: DisconnectMessage -> DisconnectMessage -> Bool Source #

(>) :: DisconnectMessage -> DisconnectMessage -> Bool Source #

(>=) :: DisconnectMessage -> DisconnectMessage -> Bool Source #

max :: DisconnectMessage -> DisconnectMessage -> DisconnectMessage Source #

min :: DisconnectMessage -> DisconnectMessage -> DisconnectMessage Source #

Show DisconnectMessage Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

showsPrec :: Int -> DisconnectMessage -> ShowS Source #

show :: DisconnectMessage -> String Source #

showList :: [DisconnectMessage] -> ShowS Source #

Generic DisconnectMessage Source # 
Instance details

Defined in Data.Sawtooth.Network

Associated Types

type Rep DisconnectMessage :: Type -> Type Source #

Methods

from :: DisconnectMessage -> Rep DisconnectMessage x Source #

to :: Rep DisconnectMessage x -> DisconnectMessage Source #

ToJSON DisconnectMessage Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

toJSON :: DisconnectMessage -> Value Source #

toEncoding :: DisconnectMessage -> Encoding Source #

toJSONList :: [DisconnectMessage] -> Value Source #

toEncodingList :: [DisconnectMessage] -> Encoding Source #

FromJSON DisconnectMessage Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

parseJSON :: Value -> Parser DisconnectMessage Source #

parseJSONList :: Value -> Parser [DisconnectMessage] Source #

NFData DisconnectMessage Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

rnf :: DisconnectMessage -> () Source #

ToJSONPB DisconnectMessage Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

toJSONPB :: DisconnectMessage -> Options -> Value Source #

toEncodingPB :: DisconnectMessage -> Options -> Encoding Source #

FromJSONPB DisconnectMessage Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

parseJSONPB :: Value -> Parser DisconnectMessage Source #

HasDefault DisconnectMessage Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

def :: DisconnectMessage Source #

isDefault :: DisconnectMessage -> Bool Source #

Named DisconnectMessage Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

nameOf :: IsString string => Proxy# DisconnectMessage -> string Source #

Message DisconnectMessage Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

encodeMessage :: FieldNumber -> DisconnectMessage -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage DisconnectMessage Source #

dotProto :: Proxy# DisconnectMessage -> [DotProtoField] Source #

ToSchema DisconnectMessage Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

declareNamedSchema :: Proxy DisconnectMessage -> Declare (Definitions Schema) NamedSchema Source #

type Rep DisconnectMessage Source # 
Instance details

Defined in Data.Sawtooth.Network

type Rep DisconnectMessage = D1 ('MetaData "DisconnectMessage" "Data.Sawtooth.Network" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "DisconnectMessage" 'PrefixI 'False) (U1 :: Type -> Type))

data PeerRegisterRequest Source #

Constructors

PeerRegisterRequest 

Fields

Instances

Instances details
Eq PeerRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

(==) :: PeerRegisterRequest -> PeerRegisterRequest -> Bool Source #

(/=) :: PeerRegisterRequest -> PeerRegisterRequest -> Bool Source #

Ord PeerRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

compare :: PeerRegisterRequest -> PeerRegisterRequest -> Ordering Source #

(<) :: PeerRegisterRequest -> PeerRegisterRequest -> Bool Source #

(<=) :: PeerRegisterRequest -> PeerRegisterRequest -> Bool Source #

(>) :: PeerRegisterRequest -> PeerRegisterRequest -> Bool Source #

(>=) :: PeerRegisterRequest -> PeerRegisterRequest -> Bool Source #

max :: PeerRegisterRequest -> PeerRegisterRequest -> PeerRegisterRequest Source #

min :: PeerRegisterRequest -> PeerRegisterRequest -> PeerRegisterRequest Source #

Show PeerRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

showsPrec :: Int -> PeerRegisterRequest -> ShowS Source #

show :: PeerRegisterRequest -> String Source #

showList :: [PeerRegisterRequest] -> ShowS Source #

Generic PeerRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Associated Types

type Rep PeerRegisterRequest :: Type -> Type Source #

Methods

from :: PeerRegisterRequest -> Rep PeerRegisterRequest x Source #

to :: Rep PeerRegisterRequest x -> PeerRegisterRequest Source #

ToJSON PeerRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

toJSON :: PeerRegisterRequest -> Value Source #

toEncoding :: PeerRegisterRequest -> Encoding Source #

toJSONList :: [PeerRegisterRequest] -> Value Source #

toEncodingList :: [PeerRegisterRequest] -> Encoding Source #

FromJSON PeerRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

parseJSON :: Value -> Parser PeerRegisterRequest Source #

parseJSONList :: Value -> Parser [PeerRegisterRequest] Source #

NFData PeerRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

rnf :: PeerRegisterRequest -> () Source #

ToJSONPB PeerRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

toJSONPB :: PeerRegisterRequest -> Options -> Value Source #

toEncodingPB :: PeerRegisterRequest -> Options -> Encoding Source #

FromJSONPB PeerRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

parseJSONPB :: Value -> Parser PeerRegisterRequest Source #

HasDefault PeerRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

def :: PeerRegisterRequest Source #

isDefault :: PeerRegisterRequest -> Bool Source #

Named PeerRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

nameOf :: IsString string => Proxy# PeerRegisterRequest -> string Source #

Message PeerRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

encodeMessage :: FieldNumber -> PeerRegisterRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage PeerRegisterRequest Source #

dotProto :: Proxy# PeerRegisterRequest -> [DotProtoField] Source #

ToSchema PeerRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

declareNamedSchema :: Proxy PeerRegisterRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep PeerRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

type Rep PeerRegisterRequest = D1 ('MetaData "PeerRegisterRequest" "Data.Sawtooth.Network" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "PeerRegisterRequest" 'PrefixI 'True) (S1 ('MetaSel ('Just "peerRegisterRequestEndpoint") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "peerRegisterRequestProtocolVersion") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Word32)))

data PeerUnregisterRequest Source #

Constructors

PeerUnregisterRequest 

Instances

Instances details
Eq PeerUnregisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

(==) :: PeerUnregisterRequest -> PeerUnregisterRequest -> Bool Source #

(/=) :: PeerUnregisterRequest -> PeerUnregisterRequest -> Bool Source #

Ord PeerUnregisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

compare :: PeerUnregisterRequest -> PeerUnregisterRequest -> Ordering Source #

(<) :: PeerUnregisterRequest -> PeerUnregisterRequest -> Bool Source #

(<=) :: PeerUnregisterRequest -> PeerUnregisterRequest -> Bool Source #

(>) :: PeerUnregisterRequest -> PeerUnregisterRequest -> Bool Source #

(>=) :: PeerUnregisterRequest -> PeerUnregisterRequest -> Bool Source #

max :: PeerUnregisterRequest -> PeerUnregisterRequest -> PeerUnregisterRequest Source #

min :: PeerUnregisterRequest -> PeerUnregisterRequest -> PeerUnregisterRequest Source #

Show PeerUnregisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

showsPrec :: Int -> PeerUnregisterRequest -> ShowS Source #

show :: PeerUnregisterRequest -> String Source #

showList :: [PeerUnregisterRequest] -> ShowS Source #

Generic PeerUnregisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Associated Types

type Rep PeerUnregisterRequest :: Type -> Type Source #

Methods

from :: PeerUnregisterRequest -> Rep PeerUnregisterRequest x Source #

to :: Rep PeerUnregisterRequest x -> PeerUnregisterRequest Source #

ToJSON PeerUnregisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

toJSON :: PeerUnregisterRequest -> Value Source #

toEncoding :: PeerUnregisterRequest -> Encoding Source #

toJSONList :: [PeerUnregisterRequest] -> Value Source #

toEncodingList :: [PeerUnregisterRequest] -> Encoding Source #

FromJSON PeerUnregisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

parseJSON :: Value -> Parser PeerUnregisterRequest Source #

parseJSONList :: Value -> Parser [PeerUnregisterRequest] Source #

NFData PeerUnregisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

rnf :: PeerUnregisterRequest -> () Source #

ToJSONPB PeerUnregisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

toJSONPB :: PeerUnregisterRequest -> Options -> Value Source #

toEncodingPB :: PeerUnregisterRequest -> Options -> Encoding Source #

FromJSONPB PeerUnregisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

parseJSONPB :: Value -> Parser PeerUnregisterRequest Source #

HasDefault PeerUnregisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

def :: PeerUnregisterRequest Source #

isDefault :: PeerUnregisterRequest -> Bool Source #

Named PeerUnregisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

nameOf :: IsString string => Proxy# PeerUnregisterRequest -> string Source #

Message PeerUnregisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

encodeMessage :: FieldNumber -> PeerUnregisterRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage PeerUnregisterRequest Source #

dotProto :: Proxy# PeerUnregisterRequest -> [DotProtoField] Source #

ToSchema PeerUnregisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

declareNamedSchema :: Proxy PeerUnregisterRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep PeerUnregisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

type Rep PeerUnregisterRequest = D1 ('MetaData "PeerUnregisterRequest" "Data.Sawtooth.Network" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "PeerUnregisterRequest" 'PrefixI 'False) (U1 :: Type -> Type))

data GetPeersRequest Source #

Constructors

GetPeersRequest 

Instances

Instances details
Eq GetPeersRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

(==) :: GetPeersRequest -> GetPeersRequest -> Bool Source #

(/=) :: GetPeersRequest -> GetPeersRequest -> Bool Source #

Ord GetPeersRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

compare :: GetPeersRequest -> GetPeersRequest -> Ordering Source #

(<) :: GetPeersRequest -> GetPeersRequest -> Bool Source #

(<=) :: GetPeersRequest -> GetPeersRequest -> Bool Source #

(>) :: GetPeersRequest -> GetPeersRequest -> Bool Source #

(>=) :: GetPeersRequest -> GetPeersRequest -> Bool Source #

max :: GetPeersRequest -> GetPeersRequest -> GetPeersRequest Source #

min :: GetPeersRequest -> GetPeersRequest -> GetPeersRequest Source #

Show GetPeersRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

showsPrec :: Int -> GetPeersRequest -> ShowS Source #

show :: GetPeersRequest -> String Source #

showList :: [GetPeersRequest] -> ShowS Source #

Generic GetPeersRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Associated Types

type Rep GetPeersRequest :: Type -> Type Source #

Methods

from :: GetPeersRequest -> Rep GetPeersRequest x Source #

to :: Rep GetPeersRequest x -> GetPeersRequest Source #

ToJSON GetPeersRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

toJSON :: GetPeersRequest -> Value Source #

toEncoding :: GetPeersRequest -> Encoding Source #

toJSONList :: [GetPeersRequest] -> Value Source #

toEncodingList :: [GetPeersRequest] -> Encoding Source #

FromJSON GetPeersRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

parseJSON :: Value -> Parser GetPeersRequest Source #

parseJSONList :: Value -> Parser [GetPeersRequest] Source #

NFData GetPeersRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

rnf :: GetPeersRequest -> () Source #

ToJSONPB GetPeersRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

toJSONPB :: GetPeersRequest -> Options -> Value Source #

toEncodingPB :: GetPeersRequest -> Options -> Encoding Source #

FromJSONPB GetPeersRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

parseJSONPB :: Value -> Parser GetPeersRequest Source #

HasDefault GetPeersRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

def :: GetPeersRequest Source #

isDefault :: GetPeersRequest -> Bool Source #

Named GetPeersRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

nameOf :: IsString string => Proxy# GetPeersRequest -> string Source #

Message GetPeersRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

encodeMessage :: FieldNumber -> GetPeersRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage GetPeersRequest Source #

dotProto :: Proxy# GetPeersRequest -> [DotProtoField] Source #

ToSchema GetPeersRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

declareNamedSchema :: Proxy GetPeersRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep GetPeersRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

type Rep GetPeersRequest = D1 ('MetaData "GetPeersRequest" "Data.Sawtooth.Network" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "GetPeersRequest" 'PrefixI 'False) (U1 :: Type -> Type))

newtype GetPeersResponse Source #

Constructors

GetPeersResponse 

Fields

Instances

Instances details
Eq GetPeersResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

(==) :: GetPeersResponse -> GetPeersResponse -> Bool Source #

(/=) :: GetPeersResponse -> GetPeersResponse -> Bool Source #

Ord GetPeersResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

compare :: GetPeersResponse -> GetPeersResponse -> Ordering Source #

(<) :: GetPeersResponse -> GetPeersResponse -> Bool Source #

(<=) :: GetPeersResponse -> GetPeersResponse -> Bool Source #

(>) :: GetPeersResponse -> GetPeersResponse -> Bool Source #

(>=) :: GetPeersResponse -> GetPeersResponse -> Bool Source #

max :: GetPeersResponse -> GetPeersResponse -> GetPeersResponse Source #

min :: GetPeersResponse -> GetPeersResponse -> GetPeersResponse Source #

Show GetPeersResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

showsPrec :: Int -> GetPeersResponse -> ShowS Source #

show :: GetPeersResponse -> String Source #

showList :: [GetPeersResponse] -> ShowS Source #

Generic GetPeersResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Associated Types

type Rep GetPeersResponse :: Type -> Type Source #

Methods

from :: GetPeersResponse -> Rep GetPeersResponse x Source #

to :: Rep GetPeersResponse x -> GetPeersResponse Source #

ToJSON GetPeersResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

toJSON :: GetPeersResponse -> Value Source #

toEncoding :: GetPeersResponse -> Encoding Source #

toJSONList :: [GetPeersResponse] -> Value Source #

toEncodingList :: [GetPeersResponse] -> Encoding Source #

FromJSON GetPeersResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

parseJSON :: Value -> Parser GetPeersResponse Source #

parseJSONList :: Value -> Parser [GetPeersResponse] Source #

NFData GetPeersResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

rnf :: GetPeersResponse -> () Source #

ToJSONPB GetPeersResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

toJSONPB :: GetPeersResponse -> Options -> Value Source #

toEncodingPB :: GetPeersResponse -> Options -> Encoding Source #

FromJSONPB GetPeersResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

parseJSONPB :: Value -> Parser GetPeersResponse Source #

HasDefault GetPeersResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

def :: GetPeersResponse Source #

isDefault :: GetPeersResponse -> Bool Source #

Named GetPeersResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

nameOf :: IsString string => Proxy# GetPeersResponse -> string Source #

Message GetPeersResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

encodeMessage :: FieldNumber -> GetPeersResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage GetPeersResponse Source #

dotProto :: Proxy# GetPeersResponse -> [DotProtoField] Source #

ToSchema GetPeersResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

declareNamedSchema :: Proxy GetPeersResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep GetPeersResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

type Rep GetPeersResponse = D1 ('MetaData "GetPeersResponse" "Data.Sawtooth.Network" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'True) (C1 ('MetaCons "GetPeersResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "getPeersResponsePeerEndpoints") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Text))))

data PingRequest Source #

Constructors

PingRequest 

Instances

Instances details
Eq PingRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

(==) :: PingRequest -> PingRequest -> Bool Source #

(/=) :: PingRequest -> PingRequest -> Bool Source #

Ord PingRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

compare :: PingRequest -> PingRequest -> Ordering Source #

(<) :: PingRequest -> PingRequest -> Bool Source #

(<=) :: PingRequest -> PingRequest -> Bool Source #

(>) :: PingRequest -> PingRequest -> Bool Source #

(>=) :: PingRequest -> PingRequest -> Bool Source #

max :: PingRequest -> PingRequest -> PingRequest Source #

min :: PingRequest -> PingRequest -> PingRequest Source #

Show PingRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

showsPrec :: Int -> PingRequest -> ShowS Source #

show :: PingRequest -> String Source #

showList :: [PingRequest] -> ShowS Source #

Generic PingRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Associated Types

type Rep PingRequest :: Type -> Type Source #

Methods

from :: PingRequest -> Rep PingRequest x Source #

to :: Rep PingRequest x -> PingRequest Source #

ToJSON PingRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

toJSON :: PingRequest -> Value Source #

toEncoding :: PingRequest -> Encoding Source #

toJSONList :: [PingRequest] -> Value Source #

toEncodingList :: [PingRequest] -> Encoding Source #

FromJSON PingRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

parseJSON :: Value -> Parser PingRequest Source #

parseJSONList :: Value -> Parser [PingRequest] Source #

NFData PingRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

rnf :: PingRequest -> () Source #

ToJSONPB PingRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

toJSONPB :: PingRequest -> Options -> Value Source #

toEncodingPB :: PingRequest -> Options -> Encoding Source #

FromJSONPB PingRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

parseJSONPB :: Value -> Parser PingRequest Source #

HasDefault PingRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

def :: PingRequest Source #

isDefault :: PingRequest -> Bool Source #

Named PingRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

nameOf :: IsString string => Proxy# PingRequest -> string Source #

Message PingRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

encodeMessage :: FieldNumber -> PingRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage PingRequest Source #

dotProto :: Proxy# PingRequest -> [DotProtoField] Source #

ToSchema PingRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

declareNamedSchema :: Proxy PingRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep PingRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

type Rep PingRequest = D1 ('MetaData "PingRequest" "Data.Sawtooth.Network" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "PingRequest" 'PrefixI 'False) (U1 :: Type -> Type))

data PingResponse Source #

Constructors

PingResponse 

Instances

Instances details
Eq PingResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

(==) :: PingResponse -> PingResponse -> Bool Source #

(/=) :: PingResponse -> PingResponse -> Bool Source #

Ord PingResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

compare :: PingResponse -> PingResponse -> Ordering Source #

(<) :: PingResponse -> PingResponse -> Bool Source #

(<=) :: PingResponse -> PingResponse -> Bool Source #

(>) :: PingResponse -> PingResponse -> Bool Source #

(>=) :: PingResponse -> PingResponse -> Bool Source #

max :: PingResponse -> PingResponse -> PingResponse Source #

min :: PingResponse -> PingResponse -> PingResponse Source #

Show PingResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

showsPrec :: Int -> PingResponse -> ShowS Source #

show :: PingResponse -> String Source #

showList :: [PingResponse] -> ShowS Source #

Generic PingResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Associated Types

type Rep PingResponse :: Type -> Type Source #

Methods

from :: PingResponse -> Rep PingResponse x Source #

to :: Rep PingResponse x -> PingResponse Source #

ToJSON PingResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

toJSON :: PingResponse -> Value Source #

toEncoding :: PingResponse -> Encoding Source #

toJSONList :: [PingResponse] -> Value Source #

toEncodingList :: [PingResponse] -> Encoding Source #

FromJSON PingResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

parseJSON :: Value -> Parser PingResponse Source #

parseJSONList :: Value -> Parser [PingResponse] Source #

NFData PingResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

rnf :: PingResponse -> () Source #

ToJSONPB PingResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

toJSONPB :: PingResponse -> Options -> Value Source #

toEncodingPB :: PingResponse -> Options -> Encoding Source #

FromJSONPB PingResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

parseJSONPB :: Value -> Parser PingResponse Source #

HasDefault PingResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

def :: PingResponse Source #

isDefault :: PingResponse -> Bool Source #

Named PingResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

nameOf :: IsString string => Proxy# PingResponse -> string Source #

Message PingResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

encodeMessage :: FieldNumber -> PingResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage PingResponse Source #

dotProto :: Proxy# PingResponse -> [DotProtoField] Source #

ToSchema PingResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

declareNamedSchema :: Proxy PingResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep PingResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

type Rep PingResponse = D1 ('MetaData "PingResponse" "Data.Sawtooth.Network" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "PingResponse" 'PrefixI 'False) (U1 :: Type -> Type))

data GossipMessage Source #

Constructors

GossipMessage 

Fields

Instances

Instances details
Eq GossipMessage Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

(==) :: GossipMessage -> GossipMessage -> Bool Source #

(/=) :: GossipMessage -> GossipMessage -> Bool Source #

Ord GossipMessage Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

compare :: GossipMessage -> GossipMessage -> Ordering Source #

(<) :: GossipMessage -> GossipMessage -> Bool Source #

(<=) :: GossipMessage -> GossipMessage -> Bool Source #

(>) :: GossipMessage -> GossipMessage -> Bool Source #

(>=) :: GossipMessage -> GossipMessage -> Bool Source #

max :: GossipMessage -> GossipMessage -> GossipMessage Source #

min :: GossipMessage -> GossipMessage -> GossipMessage Source #

Show GossipMessage Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

showsPrec :: Int -> GossipMessage -> ShowS Source #

show :: GossipMessage -> String Source #

showList :: [GossipMessage] -> ShowS Source #

Generic GossipMessage Source # 
Instance details

Defined in Data.Sawtooth.Network

Associated Types

type Rep GossipMessage :: Type -> Type Source #

Methods

from :: GossipMessage -> Rep GossipMessage x Source #

to :: Rep GossipMessage x -> GossipMessage Source #

ToJSON GossipMessage Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

toJSON :: GossipMessage -> Value Source #

toEncoding :: GossipMessage -> Encoding Source #

toJSONList :: [GossipMessage] -> Value Source #

toEncodingList :: [GossipMessage] -> Encoding Source #

FromJSON GossipMessage Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

parseJSON :: Value -> Parser GossipMessage Source #

parseJSONList :: Value -> Parser [GossipMessage] Source #

NFData GossipMessage Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

rnf :: GossipMessage -> () Source #

ToJSONPB GossipMessage Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

toJSONPB :: GossipMessage -> Options -> Value Source #

toEncodingPB :: GossipMessage -> Options -> Encoding Source #

FromJSONPB GossipMessage Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

parseJSONPB :: Value -> Parser GossipMessage Source #

HasDefault GossipMessage Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

def :: GossipMessage Source #

isDefault :: GossipMessage -> Bool Source #

Named GossipMessage Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

nameOf :: IsString string => Proxy# GossipMessage -> string Source #

Message GossipMessage Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

encodeMessage :: FieldNumber -> GossipMessage -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage GossipMessage Source #

dotProto :: Proxy# GossipMessage -> [DotProtoField] Source #

ToSchema GossipMessage Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

declareNamedSchema :: Proxy GossipMessage -> Declare (Definitions Schema) NamedSchema Source #

type Rep GossipMessage Source # 
Instance details

Defined in Data.Sawtooth.Network

type Rep GossipMessage = D1 ('MetaData "GossipMessage" "Data.Sawtooth.Network" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "GossipMessage" 'PrefixI 'True) (S1 ('MetaSel ('Just "gossipMessageContent") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString) :*: (S1 ('MetaSel ('Just "gossipMessageContentType") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated GossipMessage_ContentType)) :*: S1 ('MetaSel ('Just "gossipMessageTimeToLive") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Word32))))

data GossipMessage_ContentType Source #

Constructors

GossipMessage_ContentTypeCONTENT_TYPE_UNSET 
GossipMessage_ContentTypeBLOCK 
GossipMessage_ContentTypeBATCH 
GossipMessage_ContentTypeCONSENSUS 

Instances

Instances details
Bounded GossipMessage_ContentType Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

minBound :: GossipMessage_ContentType Source #

maxBound :: GossipMessage_ContentType Source #

Eq GossipMessage_ContentType Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

(==) :: GossipMessage_ContentType -> GossipMessage_ContentType -> Bool Source #

(/=) :: GossipMessage_ContentType -> GossipMessage_ContentType -> Bool Source #

Ord GossipMessage_ContentType Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

compare :: GossipMessage_ContentType -> GossipMessage_ContentType -> Ordering Source #

(<) :: GossipMessage_ContentType -> GossipMessage_ContentType -> Bool Source #

(<=) :: GossipMessage_ContentType -> GossipMessage_ContentType -> Bool Source #

(>) :: GossipMessage_ContentType -> GossipMessage_ContentType -> Bool Source #

(>=) :: GossipMessage_ContentType -> GossipMessage_ContentType -> Bool Source #

max :: GossipMessage_ContentType -> GossipMessage_ContentType -> GossipMessage_ContentType Source #

min :: GossipMessage_ContentType -> GossipMessage_ContentType -> GossipMessage_ContentType Source #

Show GossipMessage_ContentType Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

showsPrec :: Int -> GossipMessage_ContentType -> ShowS Source #

show :: GossipMessage_ContentType -> String Source #

showList :: [GossipMessage_ContentType] -> ShowS Source #

Generic GossipMessage_ContentType Source # 
Instance details

Defined in Data.Sawtooth.Network

Associated Types

type Rep GossipMessage_ContentType :: Type -> Type Source #

Methods

from :: GossipMessage_ContentType -> Rep GossipMessage_ContentType x Source #

to :: Rep GossipMessage_ContentType x -> GossipMessage_ContentType Source #

ToJSON GossipMessage_ContentType Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

toJSON :: GossipMessage_ContentType -> Value Source #

toEncoding :: GossipMessage_ContentType -> Encoding Source #

toJSONList :: [GossipMessage_ContentType] -> Value Source #

toEncodingList :: [GossipMessage_ContentType] -> Encoding Source #

FromJSON GossipMessage_ContentType Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

parseJSON :: Value -> Parser GossipMessage_ContentType Source #

parseJSONList :: Value -> Parser [GossipMessage_ContentType] Source #

NFData GossipMessage_ContentType Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

rnf :: GossipMessage_ContentType -> () Source #

ProtoEnum GossipMessage_ContentType Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

toProtoEnumMay :: Int32 -> Maybe GossipMessage_ContentType Source #

fromProtoEnum :: GossipMessage_ContentType -> Int32 Source #

ToJSONPB GossipMessage_ContentType Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

toJSONPB :: GossipMessage_ContentType -> Options -> Value Source #

toEncodingPB :: GossipMessage_ContentType -> Options -> Encoding Source #

FromJSONPB GossipMessage_ContentType Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

parseJSONPB :: Value -> Parser GossipMessage_ContentType Source #

HasDefault GossipMessage_ContentType Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

def :: GossipMessage_ContentType Source #

isDefault :: GossipMessage_ContentType -> Bool Source #

Named GossipMessage_ContentType Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

nameOf :: IsString string => Proxy# GossipMessage_ContentType -> string Source #

Finite GossipMessage_ContentType Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

enumerate :: IsString string => Proxy# GossipMessage_ContentType -> [(string, Int32)] Source #

type Rep GossipMessage_ContentType Source # 
Instance details

Defined in Data.Sawtooth.Network

type Rep GossipMessage_ContentType = D1 ('MetaData "GossipMessage_ContentType" "Data.Sawtooth.Network" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) ((C1 ('MetaCons "GossipMessage_ContentTypeCONTENT_TYPE_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "GossipMessage_ContentTypeBLOCK" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "GossipMessage_ContentTypeBATCH" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "GossipMessage_ContentTypeCONSENSUS" 'PrefixI 'False) (U1 :: Type -> Type)))

newtype NetworkAcknowledgement Source #

Constructors

NetworkAcknowledgement 

Fields

Instances

Instances details
Eq NetworkAcknowledgement Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

(==) :: NetworkAcknowledgement -> NetworkAcknowledgement -> Bool Source #

(/=) :: NetworkAcknowledgement -> NetworkAcknowledgement -> Bool Source #

Ord NetworkAcknowledgement Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

compare :: NetworkAcknowledgement -> NetworkAcknowledgement -> Ordering Source #

(<) :: NetworkAcknowledgement -> NetworkAcknowledgement -> Bool Source #

(<=) :: NetworkAcknowledgement -> NetworkAcknowledgement -> Bool Source #

(>) :: NetworkAcknowledgement -> NetworkAcknowledgement -> Bool Source #

(>=) :: NetworkAcknowledgement -> NetworkAcknowledgement -> Bool Source #

max :: NetworkAcknowledgement -> NetworkAcknowledgement -> NetworkAcknowledgement Source #

min :: NetworkAcknowledgement -> NetworkAcknowledgement -> NetworkAcknowledgement Source #

Show NetworkAcknowledgement Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

showsPrec :: Int -> NetworkAcknowledgement -> ShowS Source #

show :: NetworkAcknowledgement -> String Source #

showList :: [NetworkAcknowledgement] -> ShowS Source #

Generic NetworkAcknowledgement Source # 
Instance details

Defined in Data.Sawtooth.Network

Associated Types

type Rep NetworkAcknowledgement :: Type -> Type Source #

Methods

from :: NetworkAcknowledgement -> Rep NetworkAcknowledgement x Source #

to :: Rep NetworkAcknowledgement x -> NetworkAcknowledgement Source #

ToJSON NetworkAcknowledgement Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

toJSON :: NetworkAcknowledgement -> Value Source #

toEncoding :: NetworkAcknowledgement -> Encoding Source #

toJSONList :: [NetworkAcknowledgement] -> Value Source #

toEncodingList :: [NetworkAcknowledgement] -> Encoding Source #

FromJSON NetworkAcknowledgement Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

parseJSON :: Value -> Parser NetworkAcknowledgement Source #

parseJSONList :: Value -> Parser [NetworkAcknowledgement] Source #

NFData NetworkAcknowledgement Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

rnf :: NetworkAcknowledgement -> () Source #

ToJSONPB NetworkAcknowledgement Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

toJSONPB :: NetworkAcknowledgement -> Options -> Value Source #

toEncodingPB :: NetworkAcknowledgement -> Options -> Encoding Source #

FromJSONPB NetworkAcknowledgement Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

parseJSONPB :: Value -> Parser NetworkAcknowledgement Source #

HasDefault NetworkAcknowledgement Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

def :: NetworkAcknowledgement Source #

isDefault :: NetworkAcknowledgement -> Bool Source #

Named NetworkAcknowledgement Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

nameOf :: IsString string => Proxy# NetworkAcknowledgement -> string Source #

Message NetworkAcknowledgement Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

encodeMessage :: FieldNumber -> NetworkAcknowledgement -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage NetworkAcknowledgement Source #

dotProto :: Proxy# NetworkAcknowledgement -> [DotProtoField] Source #

ToSchema NetworkAcknowledgement Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

declareNamedSchema :: Proxy NetworkAcknowledgement -> Declare (Definitions Schema) NamedSchema Source #

type Rep NetworkAcknowledgement Source # 
Instance details

Defined in Data.Sawtooth.Network

type Rep NetworkAcknowledgement = D1 ('MetaData "NetworkAcknowledgement" "Data.Sawtooth.Network" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'True) (C1 ('MetaCons "NetworkAcknowledgement" 'PrefixI 'True) (S1 ('MetaSel ('Just "networkAcknowledgementStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated NetworkAcknowledgement_Status))))

data NetworkAcknowledgement_Status Source #

Constructors

NetworkAcknowledgement_StatusSTATUS_UNSET 
NetworkAcknowledgement_StatusOK 
NetworkAcknowledgement_StatusERROR 

Instances

Instances details
Bounded NetworkAcknowledgement_Status Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

minBound :: NetworkAcknowledgement_Status Source #

maxBound :: NetworkAcknowledgement_Status Source #

Eq NetworkAcknowledgement_Status Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

(==) :: NetworkAcknowledgement_Status -> NetworkAcknowledgement_Status -> Bool Source #

(/=) :: NetworkAcknowledgement_Status -> NetworkAcknowledgement_Status -> Bool Source #

Ord NetworkAcknowledgement_Status Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

compare :: NetworkAcknowledgement_Status -> NetworkAcknowledgement_Status -> Ordering Source #

(<) :: NetworkAcknowledgement_Status -> NetworkAcknowledgement_Status -> Bool Source #

(<=) :: NetworkAcknowledgement_Status -> NetworkAcknowledgement_Status -> Bool Source #

(>) :: NetworkAcknowledgement_Status -> NetworkAcknowledgement_Status -> Bool Source #

(>=) :: NetworkAcknowledgement_Status -> NetworkAcknowledgement_Status -> Bool Source #

max :: NetworkAcknowledgement_Status -> NetworkAcknowledgement_Status -> NetworkAcknowledgement_Status Source #

min :: NetworkAcknowledgement_Status -> NetworkAcknowledgement_Status -> NetworkAcknowledgement_Status Source #

Show NetworkAcknowledgement_Status Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

showsPrec :: Int -> NetworkAcknowledgement_Status -> ShowS Source #

show :: NetworkAcknowledgement_Status -> String Source #

showList :: [NetworkAcknowledgement_Status] -> ShowS Source #

Generic NetworkAcknowledgement_Status Source # 
Instance details

Defined in Data.Sawtooth.Network

Associated Types

type Rep NetworkAcknowledgement_Status :: Type -> Type Source #

Methods

from :: NetworkAcknowledgement_Status -> Rep NetworkAcknowledgement_Status x Source #

to :: Rep NetworkAcknowledgement_Status x -> NetworkAcknowledgement_Status Source #

ToJSON NetworkAcknowledgement_Status Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

toJSON :: NetworkAcknowledgement_Status -> Value Source #

toEncoding :: NetworkAcknowledgement_Status -> Encoding Source #

toJSONList :: [NetworkAcknowledgement_Status] -> Value Source #

toEncodingList :: [NetworkAcknowledgement_Status] -> Encoding Source #

FromJSON NetworkAcknowledgement_Status Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

parseJSON :: Value -> Parser NetworkAcknowledgement_Status Source #

parseJSONList :: Value -> Parser [NetworkAcknowledgement_Status] Source #

NFData NetworkAcknowledgement_Status Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

rnf :: NetworkAcknowledgement_Status -> () Source #

ProtoEnum NetworkAcknowledgement_Status Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

toProtoEnumMay :: Int32 -> Maybe NetworkAcknowledgement_Status Source #

fromProtoEnum :: NetworkAcknowledgement_Status -> Int32 Source #

ToJSONPB NetworkAcknowledgement_Status Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

toJSONPB :: NetworkAcknowledgement_Status -> Options -> Value Source #

toEncodingPB :: NetworkAcknowledgement_Status -> Options -> Encoding Source #

FromJSONPB NetworkAcknowledgement_Status Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

parseJSONPB :: Value -> Parser NetworkAcknowledgement_Status Source #

HasDefault NetworkAcknowledgement_Status Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

def :: NetworkAcknowledgement_Status Source #

isDefault :: NetworkAcknowledgement_Status -> Bool Source #

Named NetworkAcknowledgement_Status Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

nameOf :: IsString string => Proxy# NetworkAcknowledgement_Status -> string Source #

Finite NetworkAcknowledgement_Status Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

enumerate :: IsString string => Proxy# NetworkAcknowledgement_Status -> [(string, Int32)] Source #

type Rep NetworkAcknowledgement_Status Source # 
Instance details

Defined in Data.Sawtooth.Network

type Rep NetworkAcknowledgement_Status = D1 ('MetaData "NetworkAcknowledgement_Status" "Data.Sawtooth.Network" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "NetworkAcknowledgement_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "NetworkAcknowledgement_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "NetworkAcknowledgement_StatusERROR" 'PrefixI 'False) (U1 :: Type -> Type)))

data GossipBlockRequest Source #

Constructors

GossipBlockRequest 

Fields

Instances

Instances details
Eq GossipBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

(==) :: GossipBlockRequest -> GossipBlockRequest -> Bool Source #

(/=) :: GossipBlockRequest -> GossipBlockRequest -> Bool Source #

Ord GossipBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

compare :: GossipBlockRequest -> GossipBlockRequest -> Ordering Source #

(<) :: GossipBlockRequest -> GossipBlockRequest -> Bool Source #

(<=) :: GossipBlockRequest -> GossipBlockRequest -> Bool Source #

(>) :: GossipBlockRequest -> GossipBlockRequest -> Bool Source #

(>=) :: GossipBlockRequest -> GossipBlockRequest -> Bool Source #

max :: GossipBlockRequest -> GossipBlockRequest -> GossipBlockRequest Source #

min :: GossipBlockRequest -> GossipBlockRequest -> GossipBlockRequest Source #

Show GossipBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

showsPrec :: Int -> GossipBlockRequest -> ShowS Source #

show :: GossipBlockRequest -> String Source #

showList :: [GossipBlockRequest] -> ShowS Source #

Generic GossipBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Associated Types

type Rep GossipBlockRequest :: Type -> Type Source #

Methods

from :: GossipBlockRequest -> Rep GossipBlockRequest x Source #

to :: Rep GossipBlockRequest x -> GossipBlockRequest Source #

ToJSON GossipBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

toJSON :: GossipBlockRequest -> Value Source #

toEncoding :: GossipBlockRequest -> Encoding Source #

toJSONList :: [GossipBlockRequest] -> Value Source #

toEncodingList :: [GossipBlockRequest] -> Encoding Source #

FromJSON GossipBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

parseJSON :: Value -> Parser GossipBlockRequest Source #

parseJSONList :: Value -> Parser [GossipBlockRequest] Source #

NFData GossipBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

rnf :: GossipBlockRequest -> () Source #

ToJSONPB GossipBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

toJSONPB :: GossipBlockRequest -> Options -> Value Source #

toEncodingPB :: GossipBlockRequest -> Options -> Encoding Source #

FromJSONPB GossipBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

parseJSONPB :: Value -> Parser GossipBlockRequest Source #

HasDefault GossipBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

def :: GossipBlockRequest Source #

isDefault :: GossipBlockRequest -> Bool Source #

Named GossipBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

nameOf :: IsString string => Proxy# GossipBlockRequest -> string Source #

Message GossipBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

encodeMessage :: FieldNumber -> GossipBlockRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage GossipBlockRequest Source #

dotProto :: Proxy# GossipBlockRequest -> [DotProtoField] Source #

ToSchema GossipBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

declareNamedSchema :: Proxy GossipBlockRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep GossipBlockRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

type Rep GossipBlockRequest = D1 ('MetaData "GossipBlockRequest" "Data.Sawtooth.Network" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "GossipBlockRequest" 'PrefixI 'True) (S1 ('MetaSel ('Just "gossipBlockRequestBlockId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: (S1 ('MetaSel ('Just "gossipBlockRequestNonce") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "gossipBlockRequestTimeToLive") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Word32))))

newtype GossipBlockResponse Source #

Constructors

GossipBlockResponse 

Fields

Instances

Instances details
Eq GossipBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

(==) :: GossipBlockResponse -> GossipBlockResponse -> Bool Source #

(/=) :: GossipBlockResponse -> GossipBlockResponse -> Bool Source #

Ord GossipBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

compare :: GossipBlockResponse -> GossipBlockResponse -> Ordering Source #

(<) :: GossipBlockResponse -> GossipBlockResponse -> Bool Source #

(<=) :: GossipBlockResponse -> GossipBlockResponse -> Bool Source #

(>) :: GossipBlockResponse -> GossipBlockResponse -> Bool Source #

(>=) :: GossipBlockResponse -> GossipBlockResponse -> Bool Source #

max :: GossipBlockResponse -> GossipBlockResponse -> GossipBlockResponse Source #

min :: GossipBlockResponse -> GossipBlockResponse -> GossipBlockResponse Source #

Show GossipBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

showsPrec :: Int -> GossipBlockResponse -> ShowS Source #

show :: GossipBlockResponse -> String Source #

showList :: [GossipBlockResponse] -> ShowS Source #

Generic GossipBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Associated Types

type Rep GossipBlockResponse :: Type -> Type Source #

Methods

from :: GossipBlockResponse -> Rep GossipBlockResponse x Source #

to :: Rep GossipBlockResponse x -> GossipBlockResponse Source #

ToJSON GossipBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

toJSON :: GossipBlockResponse -> Value Source #

toEncoding :: GossipBlockResponse -> Encoding Source #

toJSONList :: [GossipBlockResponse] -> Value Source #

toEncodingList :: [GossipBlockResponse] -> Encoding Source #

FromJSON GossipBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

parseJSON :: Value -> Parser GossipBlockResponse Source #

parseJSONList :: Value -> Parser [GossipBlockResponse] Source #

NFData GossipBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

rnf :: GossipBlockResponse -> () Source #

ToJSONPB GossipBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

toJSONPB :: GossipBlockResponse -> Options -> Value Source #

toEncodingPB :: GossipBlockResponse -> Options -> Encoding Source #

FromJSONPB GossipBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

parseJSONPB :: Value -> Parser GossipBlockResponse Source #

HasDefault GossipBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

def :: GossipBlockResponse Source #

isDefault :: GossipBlockResponse -> Bool Source #

Named GossipBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

nameOf :: IsString string => Proxy# GossipBlockResponse -> string Source #

Message GossipBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

encodeMessage :: FieldNumber -> GossipBlockResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage GossipBlockResponse Source #

dotProto :: Proxy# GossipBlockResponse -> [DotProtoField] Source #

ToSchema GossipBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

declareNamedSchema :: Proxy GossipBlockResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep GossipBlockResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

type Rep GossipBlockResponse = D1 ('MetaData "GossipBlockResponse" "Data.Sawtooth.Network" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'True) (C1 ('MetaCons "GossipBlockResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "gossipBlockResponseContent") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString)))

newtype GossipBatchResponse Source #

Constructors

GossipBatchResponse 

Fields

Instances

Instances details
Eq GossipBatchResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

(==) :: GossipBatchResponse -> GossipBatchResponse -> Bool Source #

(/=) :: GossipBatchResponse -> GossipBatchResponse -> Bool Source #

Ord GossipBatchResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

compare :: GossipBatchResponse -> GossipBatchResponse -> Ordering Source #

(<) :: GossipBatchResponse -> GossipBatchResponse -> Bool Source #

(<=) :: GossipBatchResponse -> GossipBatchResponse -> Bool Source #

(>) :: GossipBatchResponse -> GossipBatchResponse -> Bool Source #

(>=) :: GossipBatchResponse -> GossipBatchResponse -> Bool Source #

max :: GossipBatchResponse -> GossipBatchResponse -> GossipBatchResponse Source #

min :: GossipBatchResponse -> GossipBatchResponse -> GossipBatchResponse Source #

Show GossipBatchResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

showsPrec :: Int -> GossipBatchResponse -> ShowS Source #

show :: GossipBatchResponse -> String Source #

showList :: [GossipBatchResponse] -> ShowS Source #

Generic GossipBatchResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Associated Types

type Rep GossipBatchResponse :: Type -> Type Source #

Methods

from :: GossipBatchResponse -> Rep GossipBatchResponse x Source #

to :: Rep GossipBatchResponse x -> GossipBatchResponse Source #

ToJSON GossipBatchResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

toJSON :: GossipBatchResponse -> Value Source #

toEncoding :: GossipBatchResponse -> Encoding Source #

toJSONList :: [GossipBatchResponse] -> Value Source #

toEncodingList :: [GossipBatchResponse] -> Encoding Source #

FromJSON GossipBatchResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

parseJSON :: Value -> Parser GossipBatchResponse Source #

parseJSONList :: Value -> Parser [GossipBatchResponse] Source #

NFData GossipBatchResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

rnf :: GossipBatchResponse -> () Source #

ToJSONPB GossipBatchResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

toJSONPB :: GossipBatchResponse -> Options -> Value Source #

toEncodingPB :: GossipBatchResponse -> Options -> Encoding Source #

FromJSONPB GossipBatchResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

parseJSONPB :: Value -> Parser GossipBatchResponse Source #

HasDefault GossipBatchResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

def :: GossipBatchResponse Source #

isDefault :: GossipBatchResponse -> Bool Source #

Named GossipBatchResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

nameOf :: IsString string => Proxy# GossipBatchResponse -> string Source #

Message GossipBatchResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

encodeMessage :: FieldNumber -> GossipBatchResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage GossipBatchResponse Source #

dotProto :: Proxy# GossipBatchResponse -> [DotProtoField] Source #

ToSchema GossipBatchResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

declareNamedSchema :: Proxy GossipBatchResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep GossipBatchResponse Source # 
Instance details

Defined in Data.Sawtooth.Network

type Rep GossipBatchResponse = D1 ('MetaData "GossipBatchResponse" "Data.Sawtooth.Network" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'True) (C1 ('MetaCons "GossipBatchResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "gossipBatchResponseContent") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString)))

data GossipBatchByBatchIdRequest Source #

Constructors

GossipBatchByBatchIdRequest 

Fields

Instances

Instances details
Eq GossipBatchByBatchIdRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

(==) :: GossipBatchByBatchIdRequest -> GossipBatchByBatchIdRequest -> Bool Source #

(/=) :: GossipBatchByBatchIdRequest -> GossipBatchByBatchIdRequest -> Bool Source #

Ord GossipBatchByBatchIdRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

compare :: GossipBatchByBatchIdRequest -> GossipBatchByBatchIdRequest -> Ordering Source #

(<) :: GossipBatchByBatchIdRequest -> GossipBatchByBatchIdRequest -> Bool Source #

(<=) :: GossipBatchByBatchIdRequest -> GossipBatchByBatchIdRequest -> Bool Source #

(>) :: GossipBatchByBatchIdRequest -> GossipBatchByBatchIdRequest -> Bool Source #

(>=) :: GossipBatchByBatchIdRequest -> GossipBatchByBatchIdRequest -> Bool Source #

max :: GossipBatchByBatchIdRequest -> GossipBatchByBatchIdRequest -> GossipBatchByBatchIdRequest Source #

min :: GossipBatchByBatchIdRequest -> GossipBatchByBatchIdRequest -> GossipBatchByBatchIdRequest Source #

Show GossipBatchByBatchIdRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

showsPrec :: Int -> GossipBatchByBatchIdRequest -> ShowS Source #

show :: GossipBatchByBatchIdRequest -> String Source #

showList :: [GossipBatchByBatchIdRequest] -> ShowS Source #

Generic GossipBatchByBatchIdRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Associated Types

type Rep GossipBatchByBatchIdRequest :: Type -> Type Source #

Methods

from :: GossipBatchByBatchIdRequest -> Rep GossipBatchByBatchIdRequest x Source #

to :: Rep GossipBatchByBatchIdRequest x -> GossipBatchByBatchIdRequest Source #

ToJSON GossipBatchByBatchIdRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

toJSON :: GossipBatchByBatchIdRequest -> Value Source #

toEncoding :: GossipBatchByBatchIdRequest -> Encoding Source #

toJSONList :: [GossipBatchByBatchIdRequest] -> Value Source #

toEncodingList :: [GossipBatchByBatchIdRequest] -> Encoding Source #

FromJSON GossipBatchByBatchIdRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

parseJSON :: Value -> Parser GossipBatchByBatchIdRequest Source #

parseJSONList :: Value -> Parser [GossipBatchByBatchIdRequest] Source #

NFData GossipBatchByBatchIdRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

rnf :: GossipBatchByBatchIdRequest -> () Source #

ToJSONPB GossipBatchByBatchIdRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

toJSONPB :: GossipBatchByBatchIdRequest -> Options -> Value Source #

toEncodingPB :: GossipBatchByBatchIdRequest -> Options -> Encoding Source #

FromJSONPB GossipBatchByBatchIdRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

parseJSONPB :: Value -> Parser GossipBatchByBatchIdRequest Source #

HasDefault GossipBatchByBatchIdRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

def :: GossipBatchByBatchIdRequest Source #

isDefault :: GossipBatchByBatchIdRequest -> Bool Source #

Named GossipBatchByBatchIdRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

nameOf :: IsString string => Proxy# GossipBatchByBatchIdRequest -> string Source #

Message GossipBatchByBatchIdRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

encodeMessage :: FieldNumber -> GossipBatchByBatchIdRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage GossipBatchByBatchIdRequest Source #

dotProto :: Proxy# GossipBatchByBatchIdRequest -> [DotProtoField] Source #

ToSchema GossipBatchByBatchIdRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

declareNamedSchema :: Proxy GossipBatchByBatchIdRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep GossipBatchByBatchIdRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

type Rep GossipBatchByBatchIdRequest = D1 ('MetaData "GossipBatchByBatchIdRequest" "Data.Sawtooth.Network" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "GossipBatchByBatchIdRequest" 'PrefixI 'True) (S1 ('MetaSel ('Just "gossipBatchByBatchIdRequestId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: (S1 ('MetaSel ('Just "gossipBatchByBatchIdRequestNonce") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "gossipBatchByBatchIdRequestTimeToLive") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Word32))))

data GossipBatchByTransactionIdRequest Source #

Constructors

GossipBatchByTransactionIdRequest 

Fields

Instances

Instances details
Eq GossipBatchByTransactionIdRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

(==) :: GossipBatchByTransactionIdRequest -> GossipBatchByTransactionIdRequest -> Bool Source #

(/=) :: GossipBatchByTransactionIdRequest -> GossipBatchByTransactionIdRequest -> Bool Source #

Ord GossipBatchByTransactionIdRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

compare :: GossipBatchByTransactionIdRequest -> GossipBatchByTransactionIdRequest -> Ordering Source #

(<) :: GossipBatchByTransactionIdRequest -> GossipBatchByTransactionIdRequest -> Bool Source #

(<=) :: GossipBatchByTransactionIdRequest -> GossipBatchByTransactionIdRequest -> Bool Source #

(>) :: GossipBatchByTransactionIdRequest -> GossipBatchByTransactionIdRequest -> Bool Source #

(>=) :: GossipBatchByTransactionIdRequest -> GossipBatchByTransactionIdRequest -> Bool Source #

max :: GossipBatchByTransactionIdRequest -> GossipBatchByTransactionIdRequest -> GossipBatchByTransactionIdRequest Source #

min :: GossipBatchByTransactionIdRequest -> GossipBatchByTransactionIdRequest -> GossipBatchByTransactionIdRequest Source #

Show GossipBatchByTransactionIdRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

showsPrec :: Int -> GossipBatchByTransactionIdRequest -> ShowS Source #

show :: GossipBatchByTransactionIdRequest -> String Source #

showList :: [GossipBatchByTransactionIdRequest] -> ShowS Source #

Generic GossipBatchByTransactionIdRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Associated Types

type Rep GossipBatchByTransactionIdRequest :: Type -> Type Source #

Methods

from :: GossipBatchByTransactionIdRequest -> Rep GossipBatchByTransactionIdRequest x Source #

to :: Rep GossipBatchByTransactionIdRequest x -> GossipBatchByTransactionIdRequest Source #

ToJSON GossipBatchByTransactionIdRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

toJSON :: GossipBatchByTransactionIdRequest -> Value Source #

toEncoding :: GossipBatchByTransactionIdRequest -> Encoding Source #

toJSONList :: [GossipBatchByTransactionIdRequest] -> Value Source #

toEncodingList :: [GossipBatchByTransactionIdRequest] -> Encoding Source #

FromJSON GossipBatchByTransactionIdRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

parseJSON :: Value -> Parser GossipBatchByTransactionIdRequest Source #

parseJSONList :: Value -> Parser [GossipBatchByTransactionIdRequest] Source #

NFData GossipBatchByTransactionIdRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

rnf :: GossipBatchByTransactionIdRequest -> () Source #

ToJSONPB GossipBatchByTransactionIdRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

toJSONPB :: GossipBatchByTransactionIdRequest -> Options -> Value Source #

toEncodingPB :: GossipBatchByTransactionIdRequest -> Options -> Encoding Source #

FromJSONPB GossipBatchByTransactionIdRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

parseJSONPB :: Value -> Parser GossipBatchByTransactionIdRequest Source #

HasDefault GossipBatchByTransactionIdRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

def :: GossipBatchByTransactionIdRequest Source #

isDefault :: GossipBatchByTransactionIdRequest -> Bool Source #

Named GossipBatchByTransactionIdRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

nameOf :: IsString string => Proxy# GossipBatchByTransactionIdRequest -> string Source #

Message GossipBatchByTransactionIdRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

encodeMessage :: FieldNumber -> GossipBatchByTransactionIdRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage GossipBatchByTransactionIdRequest Source #

dotProto :: Proxy# GossipBatchByTransactionIdRequest -> [DotProtoField] Source #

ToSchema GossipBatchByTransactionIdRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

Methods

declareNamedSchema :: Proxy GossipBatchByTransactionIdRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep GossipBatchByTransactionIdRequest Source # 
Instance details

Defined in Data.Sawtooth.Network

type Rep GossipBatchByTransactionIdRequest = D1 ('MetaData "GossipBatchByTransactionIdRequest" "Data.Sawtooth.Network" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "GossipBatchByTransactionIdRequest" 'PrefixI 'True) (S1 ('MetaSel ('Just "gossipBatchByTransactionIdRequestIds") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Text)) :*: (S1 ('MetaSel ('Just "gossipBatchByTransactionIdRequestNonce") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "gossipBatchByTransactionIdRequestTimeToLive") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Word32))))
\ No newline at end of file diff --git a/Data-Sawtooth-Processor.html b/Data-Sawtooth-Processor.html index 5585725..daffa95 100644 --- a/Data-Sawtooth-Processor.html +++ b/Data-Sawtooth-Processor.html @@ -1 +1 @@ -Data.Sawtooth.Processor
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types
Safe HaskellNone
LanguageHaskell2010

Data.Sawtooth.Processor

Description

Generated by Haskell protocol buffer compiler. DO NOT EDIT!

Documentation

data TpRegisterRequest Source #

Constructors

TpRegisterRequest 

Fields

Instances

Instances details
Eq TpRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

(==) :: TpRegisterRequest -> TpRegisterRequest -> Bool Source #

(/=) :: TpRegisterRequest -> TpRegisterRequest -> Bool Source #

Ord TpRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

compare :: TpRegisterRequest -> TpRegisterRequest -> Ordering Source #

(<) :: TpRegisterRequest -> TpRegisterRequest -> Bool Source #

(<=) :: TpRegisterRequest -> TpRegisterRequest -> Bool Source #

(>) :: TpRegisterRequest -> TpRegisterRequest -> Bool Source #

(>=) :: TpRegisterRequest -> TpRegisterRequest -> Bool Source #

max :: TpRegisterRequest -> TpRegisterRequest -> TpRegisterRequest Source #

min :: TpRegisterRequest -> TpRegisterRequest -> TpRegisterRequest Source #

Show TpRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

showsPrec :: Int -> TpRegisterRequest -> ShowS Source #

show :: TpRegisterRequest -> String Source #

showList :: [TpRegisterRequest] -> ShowS Source #

Generic TpRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Associated Types

type Rep TpRegisterRequest :: Type -> Type Source #

Methods

from :: TpRegisterRequest -> Rep TpRegisterRequest x Source #

to :: Rep TpRegisterRequest x -> TpRegisterRequest Source #

ToJSON TpRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

toJSON :: TpRegisterRequest -> Value Source #

toEncoding :: TpRegisterRequest -> Encoding Source #

toJSONList :: [TpRegisterRequest] -> Value Source #

toEncodingList :: [TpRegisterRequest] -> Encoding Source #

FromJSON TpRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

parseJSON :: Value -> Parser TpRegisterRequest Source #

parseJSONList :: Value -> Parser [TpRegisterRequest] Source #

NFData TpRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

rnf :: TpRegisterRequest -> () Source #

ToJSONPB TpRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

toJSONPB :: TpRegisterRequest -> Options -> Value Source #

toEncodingPB :: TpRegisterRequest -> Options -> Encoding Source #

FromJSONPB TpRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

parseJSONPB :: Value -> Parser TpRegisterRequest Source #

HasDefault TpRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

def :: TpRegisterRequest Source #

isDefault :: TpRegisterRequest -> Bool Source #

Named TpRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

nameOf :: IsString string => Proxy# TpRegisterRequest -> string Source #

Message TpRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

encodeMessage :: FieldNumber -> TpRegisterRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage TpRegisterRequest Source #

dotProto :: Proxy# TpRegisterRequest -> [DotProtoField] Source #

ToSchema TpRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

declareNamedSchema :: Proxy TpRegisterRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep TpRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

type Rep TpRegisterRequest = D1 ('MetaData "TpRegisterRequest" "Data.Sawtooth.Processor" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "TpRegisterRequest" 'PrefixI 'True) ((S1 ('MetaSel ('Just "tpRegisterRequestFamily") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: (S1 ('MetaSel ('Just "tpRegisterRequestVersion") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "tpRegisterRequestNamespaces") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Text)))) :*: (S1 ('MetaSel ('Just "tpRegisterRequestMaxOccupancy") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Word32) :*: (S1 ('MetaSel ('Just "tpRegisterRequestProtocolVersion") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Word32) :*: S1 ('MetaSel ('Just "tpRegisterRequestRequestHeaderStyle") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated TpRegisterRequest_TpProcessRequestHeaderStyle))))))

data TpRegisterRequest_TpProcessRequestHeaderStyle Source #

Constructors

TpRegisterRequest_TpProcessRequestHeaderStyleHEADER_STYLE_UNSET 
TpRegisterRequest_TpProcessRequestHeaderStyleEXPANDED 
TpRegisterRequest_TpProcessRequestHeaderStyleRAW 

Instances

Instances details
Bounded TpRegisterRequest_TpProcessRequestHeaderStyle Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

minBound :: TpRegisterRequest_TpProcessRequestHeaderStyle Source #

maxBound :: TpRegisterRequest_TpProcessRequestHeaderStyle Source #

Eq TpRegisterRequest_TpProcessRequestHeaderStyle Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

(==) :: TpRegisterRequest_TpProcessRequestHeaderStyle -> TpRegisterRequest_TpProcessRequestHeaderStyle -> Bool Source #

(/=) :: TpRegisterRequest_TpProcessRequestHeaderStyle -> TpRegisterRequest_TpProcessRequestHeaderStyle -> Bool Source #

Ord TpRegisterRequest_TpProcessRequestHeaderStyle Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

compare :: TpRegisterRequest_TpProcessRequestHeaderStyle -> TpRegisterRequest_TpProcessRequestHeaderStyle -> Ordering Source #

(<) :: TpRegisterRequest_TpProcessRequestHeaderStyle -> TpRegisterRequest_TpProcessRequestHeaderStyle -> Bool Source #

(<=) :: TpRegisterRequest_TpProcessRequestHeaderStyle -> TpRegisterRequest_TpProcessRequestHeaderStyle -> Bool Source #

(>) :: TpRegisterRequest_TpProcessRequestHeaderStyle -> TpRegisterRequest_TpProcessRequestHeaderStyle -> Bool Source #

(>=) :: TpRegisterRequest_TpProcessRequestHeaderStyle -> TpRegisterRequest_TpProcessRequestHeaderStyle -> Bool Source #

max :: TpRegisterRequest_TpProcessRequestHeaderStyle -> TpRegisterRequest_TpProcessRequestHeaderStyle -> TpRegisterRequest_TpProcessRequestHeaderStyle Source #

min :: TpRegisterRequest_TpProcessRequestHeaderStyle -> TpRegisterRequest_TpProcessRequestHeaderStyle -> TpRegisterRequest_TpProcessRequestHeaderStyle Source #

Show TpRegisterRequest_TpProcessRequestHeaderStyle Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

showsPrec :: Int -> TpRegisterRequest_TpProcessRequestHeaderStyle -> ShowS Source #

show :: TpRegisterRequest_TpProcessRequestHeaderStyle -> String Source #

showList :: [TpRegisterRequest_TpProcessRequestHeaderStyle] -> ShowS Source #

Generic TpRegisterRequest_TpProcessRequestHeaderStyle Source # 
Instance details

Defined in Data.Sawtooth.Processor

Associated Types

type Rep TpRegisterRequest_TpProcessRequestHeaderStyle :: Type -> Type Source #

Methods

from :: TpRegisterRequest_TpProcessRequestHeaderStyle -> Rep TpRegisterRequest_TpProcessRequestHeaderStyle x Source #

to :: Rep TpRegisterRequest_TpProcessRequestHeaderStyle x -> TpRegisterRequest_TpProcessRequestHeaderStyle Source #

ToJSON TpRegisterRequest_TpProcessRequestHeaderStyle Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

toJSON :: TpRegisterRequest_TpProcessRequestHeaderStyle -> Value Source #

toEncoding :: TpRegisterRequest_TpProcessRequestHeaderStyle -> Encoding Source #

toJSONList :: [TpRegisterRequest_TpProcessRequestHeaderStyle] -> Value Source #

toEncodingList :: [TpRegisterRequest_TpProcessRequestHeaderStyle] -> Encoding Source #

FromJSON TpRegisterRequest_TpProcessRequestHeaderStyle Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

parseJSON :: Value -> Parser TpRegisterRequest_TpProcessRequestHeaderStyle Source #

parseJSONList :: Value -> Parser [TpRegisterRequest_TpProcessRequestHeaderStyle] Source #

NFData TpRegisterRequest_TpProcessRequestHeaderStyle Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

rnf :: TpRegisterRequest_TpProcessRequestHeaderStyle -> () Source #

ProtoEnum TpRegisterRequest_TpProcessRequestHeaderStyle Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

toProtoEnumMay :: Int32 -> Maybe TpRegisterRequest_TpProcessRequestHeaderStyle Source #

fromProtoEnum :: TpRegisterRequest_TpProcessRequestHeaderStyle -> Int32 Source #

ToJSONPB TpRegisterRequest_TpProcessRequestHeaderStyle Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

toJSONPB :: TpRegisterRequest_TpProcessRequestHeaderStyle -> Options -> Value Source #

toEncodingPB :: TpRegisterRequest_TpProcessRequestHeaderStyle -> Options -> Encoding Source #

FromJSONPB TpRegisterRequest_TpProcessRequestHeaderStyle Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

parseJSONPB :: Value -> Parser TpRegisterRequest_TpProcessRequestHeaderStyle Source #

HasDefault TpRegisterRequest_TpProcessRequestHeaderStyle Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

def :: TpRegisterRequest_TpProcessRequestHeaderStyle Source #

isDefault :: TpRegisterRequest_TpProcessRequestHeaderStyle -> Bool Source #

Named TpRegisterRequest_TpProcessRequestHeaderStyle Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

nameOf :: IsString string => Proxy# TpRegisterRequest_TpProcessRequestHeaderStyle -> string Source #

Finite TpRegisterRequest_TpProcessRequestHeaderStyle Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

enumerate :: IsString string => Proxy# TpRegisterRequest_TpProcessRequestHeaderStyle -> [(string, Int32)] Source #

type Rep TpRegisterRequest_TpProcessRequestHeaderStyle Source # 
Instance details

Defined in Data.Sawtooth.Processor

type Rep TpRegisterRequest_TpProcessRequestHeaderStyle = D1 ('MetaData "TpRegisterRequest_TpProcessRequestHeaderStyle" "Data.Sawtooth.Processor" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "TpRegisterRequest_TpProcessRequestHeaderStyleHEADER_STYLE_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "TpRegisterRequest_TpProcessRequestHeaderStyleEXPANDED" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "TpRegisterRequest_TpProcessRequestHeaderStyleRAW" 'PrefixI 'False) (U1 :: Type -> Type)))

data TpRegisterResponse Source #

Constructors

TpRegisterResponse 

Fields

Instances

Instances details
Eq TpRegisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

(==) :: TpRegisterResponse -> TpRegisterResponse -> Bool Source #

(/=) :: TpRegisterResponse -> TpRegisterResponse -> Bool Source #

Ord TpRegisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

compare :: TpRegisterResponse -> TpRegisterResponse -> Ordering Source #

(<) :: TpRegisterResponse -> TpRegisterResponse -> Bool Source #

(<=) :: TpRegisterResponse -> TpRegisterResponse -> Bool Source #

(>) :: TpRegisterResponse -> TpRegisterResponse -> Bool Source #

(>=) :: TpRegisterResponse -> TpRegisterResponse -> Bool Source #

max :: TpRegisterResponse -> TpRegisterResponse -> TpRegisterResponse Source #

min :: TpRegisterResponse -> TpRegisterResponse -> TpRegisterResponse Source #

Show TpRegisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

showsPrec :: Int -> TpRegisterResponse -> ShowS Source #

show :: TpRegisterResponse -> String Source #

showList :: [TpRegisterResponse] -> ShowS Source #

Generic TpRegisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Associated Types

type Rep TpRegisterResponse :: Type -> Type Source #

Methods

from :: TpRegisterResponse -> Rep TpRegisterResponse x Source #

to :: Rep TpRegisterResponse x -> TpRegisterResponse Source #

ToJSON TpRegisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

toJSON :: TpRegisterResponse -> Value Source #

toEncoding :: TpRegisterResponse -> Encoding Source #

toJSONList :: [TpRegisterResponse] -> Value Source #

toEncodingList :: [TpRegisterResponse] -> Encoding Source #

FromJSON TpRegisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

parseJSON :: Value -> Parser TpRegisterResponse Source #

parseJSONList :: Value -> Parser [TpRegisterResponse] Source #

NFData TpRegisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

rnf :: TpRegisterResponse -> () Source #

ToJSONPB TpRegisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

toJSONPB :: TpRegisterResponse -> Options -> Value Source #

toEncodingPB :: TpRegisterResponse -> Options -> Encoding Source #

FromJSONPB TpRegisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

parseJSONPB :: Value -> Parser TpRegisterResponse Source #

HasDefault TpRegisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

def :: TpRegisterResponse Source #

isDefault :: TpRegisterResponse -> Bool Source #

Named TpRegisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

nameOf :: IsString string => Proxy# TpRegisterResponse -> string Source #

Message TpRegisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

encodeMessage :: FieldNumber -> TpRegisterResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage TpRegisterResponse Source #

dotProto :: Proxy# TpRegisterResponse -> [DotProtoField] Source #

ToSchema TpRegisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

declareNamedSchema :: Proxy TpRegisterResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep TpRegisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

type Rep TpRegisterResponse = D1 ('MetaData "TpRegisterResponse" "Data.Sawtooth.Processor" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "TpRegisterResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "tpRegisterResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated TpRegisterResponse_Status)) :*: S1 ('MetaSel ('Just "tpRegisterResponseProtocolVersion") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Word32)))

data TpRegisterResponse_Status Source #

Constructors

TpRegisterResponse_StatusSTATUS_UNSET 
TpRegisterResponse_StatusOK 
TpRegisterResponse_StatusERROR 

Instances

Instances details
Bounded TpRegisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

minBound :: TpRegisterResponse_Status Source #

maxBound :: TpRegisterResponse_Status Source #

Eq TpRegisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

(==) :: TpRegisterResponse_Status -> TpRegisterResponse_Status -> Bool Source #

(/=) :: TpRegisterResponse_Status -> TpRegisterResponse_Status -> Bool Source #

Ord TpRegisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

compare :: TpRegisterResponse_Status -> TpRegisterResponse_Status -> Ordering Source #

(<) :: TpRegisterResponse_Status -> TpRegisterResponse_Status -> Bool Source #

(<=) :: TpRegisterResponse_Status -> TpRegisterResponse_Status -> Bool Source #

(>) :: TpRegisterResponse_Status -> TpRegisterResponse_Status -> Bool Source #

(>=) :: TpRegisterResponse_Status -> TpRegisterResponse_Status -> Bool Source #

max :: TpRegisterResponse_Status -> TpRegisterResponse_Status -> TpRegisterResponse_Status Source #

min :: TpRegisterResponse_Status -> TpRegisterResponse_Status -> TpRegisterResponse_Status Source #

Show TpRegisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

showsPrec :: Int -> TpRegisterResponse_Status -> ShowS Source #

show :: TpRegisterResponse_Status -> String Source #

showList :: [TpRegisterResponse_Status] -> ShowS Source #

Generic TpRegisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Associated Types

type Rep TpRegisterResponse_Status :: Type -> Type Source #

Methods

from :: TpRegisterResponse_Status -> Rep TpRegisterResponse_Status x Source #

to :: Rep TpRegisterResponse_Status x -> TpRegisterResponse_Status Source #

ToJSON TpRegisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

toJSON :: TpRegisterResponse_Status -> Value Source #

toEncoding :: TpRegisterResponse_Status -> Encoding Source #

toJSONList :: [TpRegisterResponse_Status] -> Value Source #

toEncodingList :: [TpRegisterResponse_Status] -> Encoding Source #

FromJSON TpRegisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

parseJSON :: Value -> Parser TpRegisterResponse_Status Source #

parseJSONList :: Value -> Parser [TpRegisterResponse_Status] Source #

NFData TpRegisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

rnf :: TpRegisterResponse_Status -> () Source #

ProtoEnum TpRegisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

toProtoEnumMay :: Int32 -> Maybe TpRegisterResponse_Status Source #

fromProtoEnum :: TpRegisterResponse_Status -> Int32 Source #

ToJSONPB TpRegisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

toJSONPB :: TpRegisterResponse_Status -> Options -> Value Source #

toEncodingPB :: TpRegisterResponse_Status -> Options -> Encoding Source #

FromJSONPB TpRegisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

parseJSONPB :: Value -> Parser TpRegisterResponse_Status Source #

HasDefault TpRegisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

def :: TpRegisterResponse_Status Source #

isDefault :: TpRegisterResponse_Status -> Bool Source #

Named TpRegisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

nameOf :: IsString string => Proxy# TpRegisterResponse_Status -> string Source #

Finite TpRegisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

enumerate :: IsString string => Proxy# TpRegisterResponse_Status -> [(string, Int32)] Source #

type Rep TpRegisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

type Rep TpRegisterResponse_Status = D1 ('MetaData "TpRegisterResponse_Status" "Data.Sawtooth.Processor" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "TpRegisterResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "TpRegisterResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "TpRegisterResponse_StatusERROR" 'PrefixI 'False) (U1 :: Type -> Type)))

data TpUnregisterRequest Source #

Constructors

TpUnregisterRequest 

Instances

Instances details
Eq TpUnregisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

(==) :: TpUnregisterRequest -> TpUnregisterRequest -> Bool Source #

(/=) :: TpUnregisterRequest -> TpUnregisterRequest -> Bool Source #

Ord TpUnregisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

compare :: TpUnregisterRequest -> TpUnregisterRequest -> Ordering Source #

(<) :: TpUnregisterRequest -> TpUnregisterRequest -> Bool Source #

(<=) :: TpUnregisterRequest -> TpUnregisterRequest -> Bool Source #

(>) :: TpUnregisterRequest -> TpUnregisterRequest -> Bool Source #

(>=) :: TpUnregisterRequest -> TpUnregisterRequest -> Bool Source #

max :: TpUnregisterRequest -> TpUnregisterRequest -> TpUnregisterRequest Source #

min :: TpUnregisterRequest -> TpUnregisterRequest -> TpUnregisterRequest Source #

Show TpUnregisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

showsPrec :: Int -> TpUnregisterRequest -> ShowS Source #

show :: TpUnregisterRequest -> String Source #

showList :: [TpUnregisterRequest] -> ShowS Source #

Generic TpUnregisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Associated Types

type Rep TpUnregisterRequest :: Type -> Type Source #

Methods

from :: TpUnregisterRequest -> Rep TpUnregisterRequest x Source #

to :: Rep TpUnregisterRequest x -> TpUnregisterRequest Source #

ToJSON TpUnregisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

toJSON :: TpUnregisterRequest -> Value Source #

toEncoding :: TpUnregisterRequest -> Encoding Source #

toJSONList :: [TpUnregisterRequest] -> Value Source #

toEncodingList :: [TpUnregisterRequest] -> Encoding Source #

FromJSON TpUnregisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

parseJSON :: Value -> Parser TpUnregisterRequest Source #

parseJSONList :: Value -> Parser [TpUnregisterRequest] Source #

NFData TpUnregisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

rnf :: TpUnregisterRequest -> () Source #

ToJSONPB TpUnregisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

toJSONPB :: TpUnregisterRequest -> Options -> Value Source #

toEncodingPB :: TpUnregisterRequest -> Options -> Encoding Source #

FromJSONPB TpUnregisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

parseJSONPB :: Value -> Parser TpUnregisterRequest Source #

HasDefault TpUnregisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

def :: TpUnregisterRequest Source #

isDefault :: TpUnregisterRequest -> Bool Source #

Named TpUnregisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

nameOf :: IsString string => Proxy# TpUnregisterRequest -> string Source #

Message TpUnregisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

encodeMessage :: FieldNumber -> TpUnregisterRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage TpUnregisterRequest Source #

dotProto :: Proxy# TpUnregisterRequest -> [DotProtoField] Source #

ToSchema TpUnregisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

declareNamedSchema :: Proxy TpUnregisterRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep TpUnregisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

type Rep TpUnregisterRequest = D1 ('MetaData "TpUnregisterRequest" "Data.Sawtooth.Processor" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "TpUnregisterRequest" 'PrefixI 'False) (U1 :: Type -> Type))

newtype TpUnregisterResponse Source #

Constructors

TpUnregisterResponse 

Fields

Instances

Instances details
Eq TpUnregisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

(==) :: TpUnregisterResponse -> TpUnregisterResponse -> Bool Source #

(/=) :: TpUnregisterResponse -> TpUnregisterResponse -> Bool Source #

Ord TpUnregisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

compare :: TpUnregisterResponse -> TpUnregisterResponse -> Ordering Source #

(<) :: TpUnregisterResponse -> TpUnregisterResponse -> Bool Source #

(<=) :: TpUnregisterResponse -> TpUnregisterResponse -> Bool Source #

(>) :: TpUnregisterResponse -> TpUnregisterResponse -> Bool Source #

(>=) :: TpUnregisterResponse -> TpUnregisterResponse -> Bool Source #

max :: TpUnregisterResponse -> TpUnregisterResponse -> TpUnregisterResponse Source #

min :: TpUnregisterResponse -> TpUnregisterResponse -> TpUnregisterResponse Source #

Show TpUnregisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

showsPrec :: Int -> TpUnregisterResponse -> ShowS Source #

show :: TpUnregisterResponse -> String Source #

showList :: [TpUnregisterResponse] -> ShowS Source #

Generic TpUnregisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Associated Types

type Rep TpUnregisterResponse :: Type -> Type Source #

Methods

from :: TpUnregisterResponse -> Rep TpUnregisterResponse x Source #

to :: Rep TpUnregisterResponse x -> TpUnregisterResponse Source #

ToJSON TpUnregisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

toJSON :: TpUnregisterResponse -> Value Source #

toEncoding :: TpUnregisterResponse -> Encoding Source #

toJSONList :: [TpUnregisterResponse] -> Value Source #

toEncodingList :: [TpUnregisterResponse] -> Encoding Source #

FromJSON TpUnregisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

parseJSON :: Value -> Parser TpUnregisterResponse Source #

parseJSONList :: Value -> Parser [TpUnregisterResponse] Source #

NFData TpUnregisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

rnf :: TpUnregisterResponse -> () Source #

ToJSONPB TpUnregisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

toJSONPB :: TpUnregisterResponse -> Options -> Value Source #

toEncodingPB :: TpUnregisterResponse -> Options -> Encoding Source #

FromJSONPB TpUnregisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

parseJSONPB :: Value -> Parser TpUnregisterResponse Source #

HasDefault TpUnregisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

def :: TpUnregisterResponse Source #

isDefault :: TpUnregisterResponse -> Bool Source #

Named TpUnregisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

nameOf :: IsString string => Proxy# TpUnregisterResponse -> string Source #

Message TpUnregisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

encodeMessage :: FieldNumber -> TpUnregisterResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage TpUnregisterResponse Source #

dotProto :: Proxy# TpUnregisterResponse -> [DotProtoField] Source #

ToSchema TpUnregisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

declareNamedSchema :: Proxy TpUnregisterResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep TpUnregisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

type Rep TpUnregisterResponse = D1 ('MetaData "TpUnregisterResponse" "Data.Sawtooth.Processor" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'True) (C1 ('MetaCons "TpUnregisterResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "tpUnregisterResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated TpUnregisterResponse_Status))))

data TpUnregisterResponse_Status Source #

Constructors

TpUnregisterResponse_StatusSTATUS_UNSET 
TpUnregisterResponse_StatusOK 
TpUnregisterResponse_StatusERROR 

Instances

Instances details
Bounded TpUnregisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

minBound :: TpUnregisterResponse_Status Source #

maxBound :: TpUnregisterResponse_Status Source #

Eq TpUnregisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

(==) :: TpUnregisterResponse_Status -> TpUnregisterResponse_Status -> Bool Source #

(/=) :: TpUnregisterResponse_Status -> TpUnregisterResponse_Status -> Bool Source #

Ord TpUnregisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

compare :: TpUnregisterResponse_Status -> TpUnregisterResponse_Status -> Ordering Source #

(<) :: TpUnregisterResponse_Status -> TpUnregisterResponse_Status -> Bool Source #

(<=) :: TpUnregisterResponse_Status -> TpUnregisterResponse_Status -> Bool Source #

(>) :: TpUnregisterResponse_Status -> TpUnregisterResponse_Status -> Bool Source #

(>=) :: TpUnregisterResponse_Status -> TpUnregisterResponse_Status -> Bool Source #

max :: TpUnregisterResponse_Status -> TpUnregisterResponse_Status -> TpUnregisterResponse_Status Source #

min :: TpUnregisterResponse_Status -> TpUnregisterResponse_Status -> TpUnregisterResponse_Status Source #

Show TpUnregisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

showsPrec :: Int -> TpUnregisterResponse_Status -> ShowS Source #

show :: TpUnregisterResponse_Status -> String Source #

showList :: [TpUnregisterResponse_Status] -> ShowS Source #

Generic TpUnregisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Associated Types

type Rep TpUnregisterResponse_Status :: Type -> Type Source #

Methods

from :: TpUnregisterResponse_Status -> Rep TpUnregisterResponse_Status x Source #

to :: Rep TpUnregisterResponse_Status x -> TpUnregisterResponse_Status Source #

ToJSON TpUnregisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

toJSON :: TpUnregisterResponse_Status -> Value Source #

toEncoding :: TpUnregisterResponse_Status -> Encoding Source #

toJSONList :: [TpUnregisterResponse_Status] -> Value Source #

toEncodingList :: [TpUnregisterResponse_Status] -> Encoding Source #

FromJSON TpUnregisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

parseJSON :: Value -> Parser TpUnregisterResponse_Status Source #

parseJSONList :: Value -> Parser [TpUnregisterResponse_Status] Source #

NFData TpUnregisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

rnf :: TpUnregisterResponse_Status -> () Source #

ProtoEnum TpUnregisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

toProtoEnumMay :: Int32 -> Maybe TpUnregisterResponse_Status Source #

fromProtoEnum :: TpUnregisterResponse_Status -> Int32 Source #

ToJSONPB TpUnregisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

toJSONPB :: TpUnregisterResponse_Status -> Options -> Value Source #

toEncodingPB :: TpUnregisterResponse_Status -> Options -> Encoding Source #

FromJSONPB TpUnregisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

parseJSONPB :: Value -> Parser TpUnregisterResponse_Status Source #

HasDefault TpUnregisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

def :: TpUnregisterResponse_Status Source #

isDefault :: TpUnregisterResponse_Status -> Bool Source #

Named TpUnregisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

nameOf :: IsString string => Proxy# TpUnregisterResponse_Status -> string Source #

Finite TpUnregisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

enumerate :: IsString string => Proxy# TpUnregisterResponse_Status -> [(string, Int32)] Source #

type Rep TpUnregisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

type Rep TpUnregisterResponse_Status = D1 ('MetaData "TpUnregisterResponse_Status" "Data.Sawtooth.Processor" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "TpUnregisterResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "TpUnregisterResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "TpUnregisterResponse_StatusERROR" 'PrefixI 'False) (U1 :: Type -> Type)))

data TpProcessRequest Source #

Constructors

TpProcessRequest 

Fields

Instances

Instances details
Eq TpProcessRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

(==) :: TpProcessRequest -> TpProcessRequest -> Bool Source #

(/=) :: TpProcessRequest -> TpProcessRequest -> Bool Source #

Ord TpProcessRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

compare :: TpProcessRequest -> TpProcessRequest -> Ordering Source #

(<) :: TpProcessRequest -> TpProcessRequest -> Bool Source #

(<=) :: TpProcessRequest -> TpProcessRequest -> Bool Source #

(>) :: TpProcessRequest -> TpProcessRequest -> Bool Source #

(>=) :: TpProcessRequest -> TpProcessRequest -> Bool Source #

max :: TpProcessRequest -> TpProcessRequest -> TpProcessRequest Source #

min :: TpProcessRequest -> TpProcessRequest -> TpProcessRequest Source #

Show TpProcessRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

showsPrec :: Int -> TpProcessRequest -> ShowS Source #

show :: TpProcessRequest -> String Source #

showList :: [TpProcessRequest] -> ShowS Source #

Generic TpProcessRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Associated Types

type Rep TpProcessRequest :: Type -> Type Source #

Methods

from :: TpProcessRequest -> Rep TpProcessRequest x Source #

to :: Rep TpProcessRequest x -> TpProcessRequest Source #

ToJSON TpProcessRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

toJSON :: TpProcessRequest -> Value Source #

toEncoding :: TpProcessRequest -> Encoding Source #

toJSONList :: [TpProcessRequest] -> Value Source #

toEncodingList :: [TpProcessRequest] -> Encoding Source #

FromJSON TpProcessRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

parseJSON :: Value -> Parser TpProcessRequest Source #

parseJSONList :: Value -> Parser [TpProcessRequest] Source #

NFData TpProcessRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

rnf :: TpProcessRequest -> () Source #

ToJSONPB TpProcessRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

toJSONPB :: TpProcessRequest -> Options -> Value Source #

toEncodingPB :: TpProcessRequest -> Options -> Encoding Source #

FromJSONPB TpProcessRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

parseJSONPB :: Value -> Parser TpProcessRequest Source #

HasDefault TpProcessRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

def :: TpProcessRequest Source #

isDefault :: TpProcessRequest -> Bool Source #

Named TpProcessRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

nameOf :: IsString string => Proxy# TpProcessRequest -> string Source #

Message TpProcessRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

encodeMessage :: FieldNumber -> TpProcessRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage TpProcessRequest Source #

dotProto :: Proxy# TpProcessRequest -> [DotProtoField] Source #

ToSchema TpProcessRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

declareNamedSchema :: Proxy TpProcessRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep TpProcessRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

type Rep TpProcessRequest = D1 ('MetaData "TpProcessRequest" "Data.Sawtooth.Processor" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "TpProcessRequest" 'PrefixI 'True) ((S1 ('MetaSel ('Just "tpProcessRequestHeader") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe TransactionHeader)) :*: S1 ('MetaSel ('Just "tpProcessRequestPayload") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString)) :*: (S1 ('MetaSel ('Just "tpProcessRequestSignature") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: (S1 ('MetaSel ('Just "tpProcessRequestContextId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "tpProcessRequestHeaderBytes") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString)))))

data TpProcessResponse Source #

Constructors

TpProcessResponse 

Fields

Instances

Instances details
Eq TpProcessResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

(==) :: TpProcessResponse -> TpProcessResponse -> Bool Source #

(/=) :: TpProcessResponse -> TpProcessResponse -> Bool Source #

Ord TpProcessResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

compare :: TpProcessResponse -> TpProcessResponse -> Ordering Source #

(<) :: TpProcessResponse -> TpProcessResponse -> Bool Source #

(<=) :: TpProcessResponse -> TpProcessResponse -> Bool Source #

(>) :: TpProcessResponse -> TpProcessResponse -> Bool Source #

(>=) :: TpProcessResponse -> TpProcessResponse -> Bool Source #

max :: TpProcessResponse -> TpProcessResponse -> TpProcessResponse Source #

min :: TpProcessResponse -> TpProcessResponse -> TpProcessResponse Source #

Show TpProcessResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

showsPrec :: Int -> TpProcessResponse -> ShowS Source #

show :: TpProcessResponse -> String Source #

showList :: [TpProcessResponse] -> ShowS Source #

Generic TpProcessResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Associated Types

type Rep TpProcessResponse :: Type -> Type Source #

Methods

from :: TpProcessResponse -> Rep TpProcessResponse x Source #

to :: Rep TpProcessResponse x -> TpProcessResponse Source #

ToJSON TpProcessResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

toJSON :: TpProcessResponse -> Value Source #

toEncoding :: TpProcessResponse -> Encoding Source #

toJSONList :: [TpProcessResponse] -> Value Source #

toEncodingList :: [TpProcessResponse] -> Encoding Source #

FromJSON TpProcessResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

parseJSON :: Value -> Parser TpProcessResponse Source #

parseJSONList :: Value -> Parser [TpProcessResponse] Source #

NFData TpProcessResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

rnf :: TpProcessResponse -> () Source #

ToJSONPB TpProcessResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

toJSONPB :: TpProcessResponse -> Options -> Value Source #

toEncodingPB :: TpProcessResponse -> Options -> Encoding Source #

FromJSONPB TpProcessResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

parseJSONPB :: Value -> Parser TpProcessResponse Source #

HasDefault TpProcessResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

def :: TpProcessResponse Source #

isDefault :: TpProcessResponse -> Bool Source #

Named TpProcessResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

nameOf :: IsString string => Proxy# TpProcessResponse -> string Source #

Message TpProcessResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

encodeMessage :: FieldNumber -> TpProcessResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage TpProcessResponse Source #

dotProto :: Proxy# TpProcessResponse -> [DotProtoField] Source #

ToSchema TpProcessResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

declareNamedSchema :: Proxy TpProcessResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep TpProcessResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

type Rep TpProcessResponse = D1 ('MetaData "TpProcessResponse" "Data.Sawtooth.Processor" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "TpProcessResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "tpProcessResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated TpProcessResponse_Status)) :*: (S1 ('MetaSel ('Just "tpProcessResponseMessage") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "tpProcessResponseExtendedData") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString))))

data TpProcessResponse_Status Source #

Constructors

TpProcessResponse_StatusSTATUS_UNSET 
TpProcessResponse_StatusOK 
TpProcessResponse_StatusINVALID_TRANSACTION 
TpProcessResponse_StatusINTERNAL_ERROR 

Instances

Instances details
Bounded TpProcessResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

minBound :: TpProcessResponse_Status Source #

maxBound :: TpProcessResponse_Status Source #

Eq TpProcessResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

(==) :: TpProcessResponse_Status -> TpProcessResponse_Status -> Bool Source #

(/=) :: TpProcessResponse_Status -> TpProcessResponse_Status -> Bool Source #

Ord TpProcessResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

compare :: TpProcessResponse_Status -> TpProcessResponse_Status -> Ordering Source #

(<) :: TpProcessResponse_Status -> TpProcessResponse_Status -> Bool Source #

(<=) :: TpProcessResponse_Status -> TpProcessResponse_Status -> Bool Source #

(>) :: TpProcessResponse_Status -> TpProcessResponse_Status -> Bool Source #

(>=) :: TpProcessResponse_Status -> TpProcessResponse_Status -> Bool Source #

max :: TpProcessResponse_Status -> TpProcessResponse_Status -> TpProcessResponse_Status Source #

min :: TpProcessResponse_Status -> TpProcessResponse_Status -> TpProcessResponse_Status Source #

Show TpProcessResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

showsPrec :: Int -> TpProcessResponse_Status -> ShowS Source #

show :: TpProcessResponse_Status -> String Source #

showList :: [TpProcessResponse_Status] -> ShowS Source #

Generic TpProcessResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Associated Types

type Rep TpProcessResponse_Status :: Type -> Type Source #

Methods

from :: TpProcessResponse_Status -> Rep TpProcessResponse_Status x Source #

to :: Rep TpProcessResponse_Status x -> TpProcessResponse_Status Source #

ToJSON TpProcessResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

toJSON :: TpProcessResponse_Status -> Value Source #

toEncoding :: TpProcessResponse_Status -> Encoding Source #

toJSONList :: [TpProcessResponse_Status] -> Value Source #

toEncodingList :: [TpProcessResponse_Status] -> Encoding Source #

FromJSON TpProcessResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

parseJSON :: Value -> Parser TpProcessResponse_Status Source #

parseJSONList :: Value -> Parser [TpProcessResponse_Status] Source #

NFData TpProcessResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

rnf :: TpProcessResponse_Status -> () Source #

ProtoEnum TpProcessResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

toProtoEnumMay :: Int32 -> Maybe TpProcessResponse_Status Source #

fromProtoEnum :: TpProcessResponse_Status -> Int32 Source #

ToJSONPB TpProcessResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

toJSONPB :: TpProcessResponse_Status -> Options -> Value Source #

toEncodingPB :: TpProcessResponse_Status -> Options -> Encoding Source #

FromJSONPB TpProcessResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

parseJSONPB :: Value -> Parser TpProcessResponse_Status Source #

HasDefault TpProcessResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

def :: TpProcessResponse_Status Source #

isDefault :: TpProcessResponse_Status -> Bool Source #

Named TpProcessResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

nameOf :: IsString string => Proxy# TpProcessResponse_Status -> string Source #

Finite TpProcessResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

enumerate :: IsString string => Proxy# TpProcessResponse_Status -> [(string, Int32)] Source #

type Rep TpProcessResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

type Rep TpProcessResponse_Status = D1 ('MetaData "TpProcessResponse_Status" "Data.Sawtooth.Processor" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) ((C1 ('MetaCons "TpProcessResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "TpProcessResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "TpProcessResponse_StatusINVALID_TRANSACTION" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "TpProcessResponse_StatusINTERNAL_ERROR" 'PrefixI 'False) (U1 :: Type -> Type)))
\ No newline at end of file +Data.Sawtooth.Processor
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types
Safe HaskellNone
LanguageHaskell2010

Data.Sawtooth.Processor

Description

Generated by Haskell protocol buffer compiler. DO NOT EDIT!

Documentation

data TpRegisterRequest Source #

Constructors

TpRegisterRequest 

Fields

Instances

Instances details
Eq TpRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

(==) :: TpRegisterRequest -> TpRegisterRequest -> Bool Source #

(/=) :: TpRegisterRequest -> TpRegisterRequest -> Bool Source #

Ord TpRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

compare :: TpRegisterRequest -> TpRegisterRequest -> Ordering Source #

(<) :: TpRegisterRequest -> TpRegisterRequest -> Bool Source #

(<=) :: TpRegisterRequest -> TpRegisterRequest -> Bool Source #

(>) :: TpRegisterRequest -> TpRegisterRequest -> Bool Source #

(>=) :: TpRegisterRequest -> TpRegisterRequest -> Bool Source #

max :: TpRegisterRequest -> TpRegisterRequest -> TpRegisterRequest Source #

min :: TpRegisterRequest -> TpRegisterRequest -> TpRegisterRequest Source #

Show TpRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

showsPrec :: Int -> TpRegisterRequest -> ShowS Source #

show :: TpRegisterRequest -> String Source #

showList :: [TpRegisterRequest] -> ShowS Source #

Generic TpRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Associated Types

type Rep TpRegisterRequest :: Type -> Type Source #

Methods

from :: TpRegisterRequest -> Rep TpRegisterRequest x Source #

to :: Rep TpRegisterRequest x -> TpRegisterRequest Source #

ToJSON TpRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

toJSON :: TpRegisterRequest -> Value Source #

toEncoding :: TpRegisterRequest -> Encoding Source #

toJSONList :: [TpRegisterRequest] -> Value Source #

toEncodingList :: [TpRegisterRequest] -> Encoding Source #

FromJSON TpRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

parseJSON :: Value -> Parser TpRegisterRequest Source #

parseJSONList :: Value -> Parser [TpRegisterRequest] Source #

NFData TpRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

rnf :: TpRegisterRequest -> () Source #

ToJSONPB TpRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

toJSONPB :: TpRegisterRequest -> Options -> Value Source #

toEncodingPB :: TpRegisterRequest -> Options -> Encoding Source #

FromJSONPB TpRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

parseJSONPB :: Value -> Parser TpRegisterRequest Source #

HasDefault TpRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

def :: TpRegisterRequest Source #

isDefault :: TpRegisterRequest -> Bool Source #

Named TpRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

nameOf :: IsString string => Proxy# TpRegisterRequest -> string Source #

Message TpRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

encodeMessage :: FieldNumber -> TpRegisterRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage TpRegisterRequest Source #

dotProto :: Proxy# TpRegisterRequest -> [DotProtoField] Source #

ToSchema TpRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

declareNamedSchema :: Proxy TpRegisterRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep TpRegisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

type Rep TpRegisterRequest = D1 ('MetaData "TpRegisterRequest" "Data.Sawtooth.Processor" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "TpRegisterRequest" 'PrefixI 'True) ((S1 ('MetaSel ('Just "tpRegisterRequestFamily") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: (S1 ('MetaSel ('Just "tpRegisterRequestVersion") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "tpRegisterRequestNamespaces") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Text)))) :*: (S1 ('MetaSel ('Just "tpRegisterRequestMaxOccupancy") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Word32) :*: (S1 ('MetaSel ('Just "tpRegisterRequestProtocolVersion") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Word32) :*: S1 ('MetaSel ('Just "tpRegisterRequestRequestHeaderStyle") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated TpRegisterRequest_TpProcessRequestHeaderStyle))))))

data TpRegisterRequest_TpProcessRequestHeaderStyle Source #

Constructors

TpRegisterRequest_TpProcessRequestHeaderStyleHEADER_STYLE_UNSET 
TpRegisterRequest_TpProcessRequestHeaderStyleEXPANDED 
TpRegisterRequest_TpProcessRequestHeaderStyleRAW 

Instances

Instances details
Bounded TpRegisterRequest_TpProcessRequestHeaderStyle Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

minBound :: TpRegisterRequest_TpProcessRequestHeaderStyle Source #

maxBound :: TpRegisterRequest_TpProcessRequestHeaderStyle Source #

Eq TpRegisterRequest_TpProcessRequestHeaderStyle Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

(==) :: TpRegisterRequest_TpProcessRequestHeaderStyle -> TpRegisterRequest_TpProcessRequestHeaderStyle -> Bool Source #

(/=) :: TpRegisterRequest_TpProcessRequestHeaderStyle -> TpRegisterRequest_TpProcessRequestHeaderStyle -> Bool Source #

Ord TpRegisterRequest_TpProcessRequestHeaderStyle Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

compare :: TpRegisterRequest_TpProcessRequestHeaderStyle -> TpRegisterRequest_TpProcessRequestHeaderStyle -> Ordering Source #

(<) :: TpRegisterRequest_TpProcessRequestHeaderStyle -> TpRegisterRequest_TpProcessRequestHeaderStyle -> Bool Source #

(<=) :: TpRegisterRequest_TpProcessRequestHeaderStyle -> TpRegisterRequest_TpProcessRequestHeaderStyle -> Bool Source #

(>) :: TpRegisterRequest_TpProcessRequestHeaderStyle -> TpRegisterRequest_TpProcessRequestHeaderStyle -> Bool Source #

(>=) :: TpRegisterRequest_TpProcessRequestHeaderStyle -> TpRegisterRequest_TpProcessRequestHeaderStyle -> Bool Source #

max :: TpRegisterRequest_TpProcessRequestHeaderStyle -> TpRegisterRequest_TpProcessRequestHeaderStyle -> TpRegisterRequest_TpProcessRequestHeaderStyle Source #

min :: TpRegisterRequest_TpProcessRequestHeaderStyle -> TpRegisterRequest_TpProcessRequestHeaderStyle -> TpRegisterRequest_TpProcessRequestHeaderStyle Source #

Show TpRegisterRequest_TpProcessRequestHeaderStyle Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

showsPrec :: Int -> TpRegisterRequest_TpProcessRequestHeaderStyle -> ShowS Source #

show :: TpRegisterRequest_TpProcessRequestHeaderStyle -> String Source #

showList :: [TpRegisterRequest_TpProcessRequestHeaderStyle] -> ShowS Source #

Generic TpRegisterRequest_TpProcessRequestHeaderStyle Source # 
Instance details

Defined in Data.Sawtooth.Processor

Associated Types

type Rep TpRegisterRequest_TpProcessRequestHeaderStyle :: Type -> Type Source #

Methods

from :: TpRegisterRequest_TpProcessRequestHeaderStyle -> Rep TpRegisterRequest_TpProcessRequestHeaderStyle x Source #

to :: Rep TpRegisterRequest_TpProcessRequestHeaderStyle x -> TpRegisterRequest_TpProcessRequestHeaderStyle Source #

ToJSON TpRegisterRequest_TpProcessRequestHeaderStyle Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

toJSON :: TpRegisterRequest_TpProcessRequestHeaderStyle -> Value Source #

toEncoding :: TpRegisterRequest_TpProcessRequestHeaderStyle -> Encoding Source #

toJSONList :: [TpRegisterRequest_TpProcessRequestHeaderStyle] -> Value Source #

toEncodingList :: [TpRegisterRequest_TpProcessRequestHeaderStyle] -> Encoding Source #

FromJSON TpRegisterRequest_TpProcessRequestHeaderStyle Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

parseJSON :: Value -> Parser TpRegisterRequest_TpProcessRequestHeaderStyle Source #

parseJSONList :: Value -> Parser [TpRegisterRequest_TpProcessRequestHeaderStyle] Source #

NFData TpRegisterRequest_TpProcessRequestHeaderStyle Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

rnf :: TpRegisterRequest_TpProcessRequestHeaderStyle -> () Source #

ProtoEnum TpRegisterRequest_TpProcessRequestHeaderStyle Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

toProtoEnumMay :: Int32 -> Maybe TpRegisterRequest_TpProcessRequestHeaderStyle Source #

fromProtoEnum :: TpRegisterRequest_TpProcessRequestHeaderStyle -> Int32 Source #

ToJSONPB TpRegisterRequest_TpProcessRequestHeaderStyle Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

toJSONPB :: TpRegisterRequest_TpProcessRequestHeaderStyle -> Options -> Value Source #

toEncodingPB :: TpRegisterRequest_TpProcessRequestHeaderStyle -> Options -> Encoding Source #

FromJSONPB TpRegisterRequest_TpProcessRequestHeaderStyle Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

parseJSONPB :: Value -> Parser TpRegisterRequest_TpProcessRequestHeaderStyle Source #

HasDefault TpRegisterRequest_TpProcessRequestHeaderStyle Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

def :: TpRegisterRequest_TpProcessRequestHeaderStyle Source #

isDefault :: TpRegisterRequest_TpProcessRequestHeaderStyle -> Bool Source #

Named TpRegisterRequest_TpProcessRequestHeaderStyle Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

nameOf :: IsString string => Proxy# TpRegisterRequest_TpProcessRequestHeaderStyle -> string Source #

Finite TpRegisterRequest_TpProcessRequestHeaderStyle Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

enumerate :: IsString string => Proxy# TpRegisterRequest_TpProcessRequestHeaderStyle -> [(string, Int32)] Source #

type Rep TpRegisterRequest_TpProcessRequestHeaderStyle Source # 
Instance details

Defined in Data.Sawtooth.Processor

type Rep TpRegisterRequest_TpProcessRequestHeaderStyle = D1 ('MetaData "TpRegisterRequest_TpProcessRequestHeaderStyle" "Data.Sawtooth.Processor" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "TpRegisterRequest_TpProcessRequestHeaderStyleHEADER_STYLE_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "TpRegisterRequest_TpProcessRequestHeaderStyleEXPANDED" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "TpRegisterRequest_TpProcessRequestHeaderStyleRAW" 'PrefixI 'False) (U1 :: Type -> Type)))

data TpRegisterResponse Source #

Constructors

TpRegisterResponse 

Fields

Instances

Instances details
Eq TpRegisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

(==) :: TpRegisterResponse -> TpRegisterResponse -> Bool Source #

(/=) :: TpRegisterResponse -> TpRegisterResponse -> Bool Source #

Ord TpRegisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

compare :: TpRegisterResponse -> TpRegisterResponse -> Ordering Source #

(<) :: TpRegisterResponse -> TpRegisterResponse -> Bool Source #

(<=) :: TpRegisterResponse -> TpRegisterResponse -> Bool Source #

(>) :: TpRegisterResponse -> TpRegisterResponse -> Bool Source #

(>=) :: TpRegisterResponse -> TpRegisterResponse -> Bool Source #

max :: TpRegisterResponse -> TpRegisterResponse -> TpRegisterResponse Source #

min :: TpRegisterResponse -> TpRegisterResponse -> TpRegisterResponse Source #

Show TpRegisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

showsPrec :: Int -> TpRegisterResponse -> ShowS Source #

show :: TpRegisterResponse -> String Source #

showList :: [TpRegisterResponse] -> ShowS Source #

Generic TpRegisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Associated Types

type Rep TpRegisterResponse :: Type -> Type Source #

Methods

from :: TpRegisterResponse -> Rep TpRegisterResponse x Source #

to :: Rep TpRegisterResponse x -> TpRegisterResponse Source #

ToJSON TpRegisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

toJSON :: TpRegisterResponse -> Value Source #

toEncoding :: TpRegisterResponse -> Encoding Source #

toJSONList :: [TpRegisterResponse] -> Value Source #

toEncodingList :: [TpRegisterResponse] -> Encoding Source #

FromJSON TpRegisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

parseJSON :: Value -> Parser TpRegisterResponse Source #

parseJSONList :: Value -> Parser [TpRegisterResponse] Source #

NFData TpRegisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

rnf :: TpRegisterResponse -> () Source #

ToJSONPB TpRegisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

toJSONPB :: TpRegisterResponse -> Options -> Value Source #

toEncodingPB :: TpRegisterResponse -> Options -> Encoding Source #

FromJSONPB TpRegisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

parseJSONPB :: Value -> Parser TpRegisterResponse Source #

HasDefault TpRegisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

def :: TpRegisterResponse Source #

isDefault :: TpRegisterResponse -> Bool Source #

Named TpRegisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

nameOf :: IsString string => Proxy# TpRegisterResponse -> string Source #

Message TpRegisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

encodeMessage :: FieldNumber -> TpRegisterResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage TpRegisterResponse Source #

dotProto :: Proxy# TpRegisterResponse -> [DotProtoField] Source #

ToSchema TpRegisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

declareNamedSchema :: Proxy TpRegisterResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep TpRegisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

type Rep TpRegisterResponse = D1 ('MetaData "TpRegisterResponse" "Data.Sawtooth.Processor" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "TpRegisterResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "tpRegisterResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated TpRegisterResponse_Status)) :*: S1 ('MetaSel ('Just "tpRegisterResponseProtocolVersion") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Word32)))

data TpRegisterResponse_Status Source #

Constructors

TpRegisterResponse_StatusSTATUS_UNSET 
TpRegisterResponse_StatusOK 
TpRegisterResponse_StatusERROR 

Instances

Instances details
Bounded TpRegisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

minBound :: TpRegisterResponse_Status Source #

maxBound :: TpRegisterResponse_Status Source #

Eq TpRegisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

(==) :: TpRegisterResponse_Status -> TpRegisterResponse_Status -> Bool Source #

(/=) :: TpRegisterResponse_Status -> TpRegisterResponse_Status -> Bool Source #

Ord TpRegisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

compare :: TpRegisterResponse_Status -> TpRegisterResponse_Status -> Ordering Source #

(<) :: TpRegisterResponse_Status -> TpRegisterResponse_Status -> Bool Source #

(<=) :: TpRegisterResponse_Status -> TpRegisterResponse_Status -> Bool Source #

(>) :: TpRegisterResponse_Status -> TpRegisterResponse_Status -> Bool Source #

(>=) :: TpRegisterResponse_Status -> TpRegisterResponse_Status -> Bool Source #

max :: TpRegisterResponse_Status -> TpRegisterResponse_Status -> TpRegisterResponse_Status Source #

min :: TpRegisterResponse_Status -> TpRegisterResponse_Status -> TpRegisterResponse_Status Source #

Show TpRegisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

showsPrec :: Int -> TpRegisterResponse_Status -> ShowS Source #

show :: TpRegisterResponse_Status -> String Source #

showList :: [TpRegisterResponse_Status] -> ShowS Source #

Generic TpRegisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Associated Types

type Rep TpRegisterResponse_Status :: Type -> Type Source #

Methods

from :: TpRegisterResponse_Status -> Rep TpRegisterResponse_Status x Source #

to :: Rep TpRegisterResponse_Status x -> TpRegisterResponse_Status Source #

ToJSON TpRegisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

toJSON :: TpRegisterResponse_Status -> Value Source #

toEncoding :: TpRegisterResponse_Status -> Encoding Source #

toJSONList :: [TpRegisterResponse_Status] -> Value Source #

toEncodingList :: [TpRegisterResponse_Status] -> Encoding Source #

FromJSON TpRegisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

parseJSON :: Value -> Parser TpRegisterResponse_Status Source #

parseJSONList :: Value -> Parser [TpRegisterResponse_Status] Source #

NFData TpRegisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

rnf :: TpRegisterResponse_Status -> () Source #

ProtoEnum TpRegisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

toProtoEnumMay :: Int32 -> Maybe TpRegisterResponse_Status Source #

fromProtoEnum :: TpRegisterResponse_Status -> Int32 Source #

ToJSONPB TpRegisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

toJSONPB :: TpRegisterResponse_Status -> Options -> Value Source #

toEncodingPB :: TpRegisterResponse_Status -> Options -> Encoding Source #

FromJSONPB TpRegisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

parseJSONPB :: Value -> Parser TpRegisterResponse_Status Source #

HasDefault TpRegisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

def :: TpRegisterResponse_Status Source #

isDefault :: TpRegisterResponse_Status -> Bool Source #

Named TpRegisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

nameOf :: IsString string => Proxy# TpRegisterResponse_Status -> string Source #

Finite TpRegisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

enumerate :: IsString string => Proxy# TpRegisterResponse_Status -> [(string, Int32)] Source #

type Rep TpRegisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

type Rep TpRegisterResponse_Status = D1 ('MetaData "TpRegisterResponse_Status" "Data.Sawtooth.Processor" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "TpRegisterResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "TpRegisterResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "TpRegisterResponse_StatusERROR" 'PrefixI 'False) (U1 :: Type -> Type)))

data TpUnregisterRequest Source #

Constructors

TpUnregisterRequest 

Instances

Instances details
Eq TpUnregisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

(==) :: TpUnregisterRequest -> TpUnregisterRequest -> Bool Source #

(/=) :: TpUnregisterRequest -> TpUnregisterRequest -> Bool Source #

Ord TpUnregisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

compare :: TpUnregisterRequest -> TpUnregisterRequest -> Ordering Source #

(<) :: TpUnregisterRequest -> TpUnregisterRequest -> Bool Source #

(<=) :: TpUnregisterRequest -> TpUnregisterRequest -> Bool Source #

(>) :: TpUnregisterRequest -> TpUnregisterRequest -> Bool Source #

(>=) :: TpUnregisterRequest -> TpUnregisterRequest -> Bool Source #

max :: TpUnregisterRequest -> TpUnregisterRequest -> TpUnregisterRequest Source #

min :: TpUnregisterRequest -> TpUnregisterRequest -> TpUnregisterRequest Source #

Show TpUnregisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

showsPrec :: Int -> TpUnregisterRequest -> ShowS Source #

show :: TpUnregisterRequest -> String Source #

showList :: [TpUnregisterRequest] -> ShowS Source #

Generic TpUnregisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Associated Types

type Rep TpUnregisterRequest :: Type -> Type Source #

Methods

from :: TpUnregisterRequest -> Rep TpUnregisterRequest x Source #

to :: Rep TpUnregisterRequest x -> TpUnregisterRequest Source #

ToJSON TpUnregisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

toJSON :: TpUnregisterRequest -> Value Source #

toEncoding :: TpUnregisterRequest -> Encoding Source #

toJSONList :: [TpUnregisterRequest] -> Value Source #

toEncodingList :: [TpUnregisterRequest] -> Encoding Source #

FromJSON TpUnregisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

parseJSON :: Value -> Parser TpUnregisterRequest Source #

parseJSONList :: Value -> Parser [TpUnregisterRequest] Source #

NFData TpUnregisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

rnf :: TpUnregisterRequest -> () Source #

ToJSONPB TpUnregisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

toJSONPB :: TpUnregisterRequest -> Options -> Value Source #

toEncodingPB :: TpUnregisterRequest -> Options -> Encoding Source #

FromJSONPB TpUnregisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

parseJSONPB :: Value -> Parser TpUnregisterRequest Source #

HasDefault TpUnregisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

def :: TpUnregisterRequest Source #

isDefault :: TpUnregisterRequest -> Bool Source #

Named TpUnregisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

nameOf :: IsString string => Proxy# TpUnregisterRequest -> string Source #

Message TpUnregisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

encodeMessage :: FieldNumber -> TpUnregisterRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage TpUnregisterRequest Source #

dotProto :: Proxy# TpUnregisterRequest -> [DotProtoField] Source #

ToSchema TpUnregisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

declareNamedSchema :: Proxy TpUnregisterRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep TpUnregisterRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

type Rep TpUnregisterRequest = D1 ('MetaData "TpUnregisterRequest" "Data.Sawtooth.Processor" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "TpUnregisterRequest" 'PrefixI 'False) (U1 :: Type -> Type))

newtype TpUnregisterResponse Source #

Constructors

TpUnregisterResponse 

Fields

Instances

Instances details
Eq TpUnregisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

(==) :: TpUnregisterResponse -> TpUnregisterResponse -> Bool Source #

(/=) :: TpUnregisterResponse -> TpUnregisterResponse -> Bool Source #

Ord TpUnregisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

compare :: TpUnregisterResponse -> TpUnregisterResponse -> Ordering Source #

(<) :: TpUnregisterResponse -> TpUnregisterResponse -> Bool Source #

(<=) :: TpUnregisterResponse -> TpUnregisterResponse -> Bool Source #

(>) :: TpUnregisterResponse -> TpUnregisterResponse -> Bool Source #

(>=) :: TpUnregisterResponse -> TpUnregisterResponse -> Bool Source #

max :: TpUnregisterResponse -> TpUnregisterResponse -> TpUnregisterResponse Source #

min :: TpUnregisterResponse -> TpUnregisterResponse -> TpUnregisterResponse Source #

Show TpUnregisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

showsPrec :: Int -> TpUnregisterResponse -> ShowS Source #

show :: TpUnregisterResponse -> String Source #

showList :: [TpUnregisterResponse] -> ShowS Source #

Generic TpUnregisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Associated Types

type Rep TpUnregisterResponse :: Type -> Type Source #

Methods

from :: TpUnregisterResponse -> Rep TpUnregisterResponse x Source #

to :: Rep TpUnregisterResponse x -> TpUnregisterResponse Source #

ToJSON TpUnregisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

toJSON :: TpUnregisterResponse -> Value Source #

toEncoding :: TpUnregisterResponse -> Encoding Source #

toJSONList :: [TpUnregisterResponse] -> Value Source #

toEncodingList :: [TpUnregisterResponse] -> Encoding Source #

FromJSON TpUnregisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

parseJSON :: Value -> Parser TpUnregisterResponse Source #

parseJSONList :: Value -> Parser [TpUnregisterResponse] Source #

NFData TpUnregisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

rnf :: TpUnregisterResponse -> () Source #

ToJSONPB TpUnregisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

toJSONPB :: TpUnregisterResponse -> Options -> Value Source #

toEncodingPB :: TpUnregisterResponse -> Options -> Encoding Source #

FromJSONPB TpUnregisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

parseJSONPB :: Value -> Parser TpUnregisterResponse Source #

HasDefault TpUnregisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

def :: TpUnregisterResponse Source #

isDefault :: TpUnregisterResponse -> Bool Source #

Named TpUnregisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

nameOf :: IsString string => Proxy# TpUnregisterResponse -> string Source #

Message TpUnregisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

encodeMessage :: FieldNumber -> TpUnregisterResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage TpUnregisterResponse Source #

dotProto :: Proxy# TpUnregisterResponse -> [DotProtoField] Source #

ToSchema TpUnregisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

declareNamedSchema :: Proxy TpUnregisterResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep TpUnregisterResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

type Rep TpUnregisterResponse = D1 ('MetaData "TpUnregisterResponse" "Data.Sawtooth.Processor" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'True) (C1 ('MetaCons "TpUnregisterResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "tpUnregisterResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated TpUnregisterResponse_Status))))

data TpUnregisterResponse_Status Source #

Constructors

TpUnregisterResponse_StatusSTATUS_UNSET 
TpUnregisterResponse_StatusOK 
TpUnregisterResponse_StatusERROR 

Instances

Instances details
Bounded TpUnregisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

minBound :: TpUnregisterResponse_Status Source #

maxBound :: TpUnregisterResponse_Status Source #

Eq TpUnregisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

(==) :: TpUnregisterResponse_Status -> TpUnregisterResponse_Status -> Bool Source #

(/=) :: TpUnregisterResponse_Status -> TpUnregisterResponse_Status -> Bool Source #

Ord TpUnregisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

compare :: TpUnregisterResponse_Status -> TpUnregisterResponse_Status -> Ordering Source #

(<) :: TpUnregisterResponse_Status -> TpUnregisterResponse_Status -> Bool Source #

(<=) :: TpUnregisterResponse_Status -> TpUnregisterResponse_Status -> Bool Source #

(>) :: TpUnregisterResponse_Status -> TpUnregisterResponse_Status -> Bool Source #

(>=) :: TpUnregisterResponse_Status -> TpUnregisterResponse_Status -> Bool Source #

max :: TpUnregisterResponse_Status -> TpUnregisterResponse_Status -> TpUnregisterResponse_Status Source #

min :: TpUnregisterResponse_Status -> TpUnregisterResponse_Status -> TpUnregisterResponse_Status Source #

Show TpUnregisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

showsPrec :: Int -> TpUnregisterResponse_Status -> ShowS Source #

show :: TpUnregisterResponse_Status -> String Source #

showList :: [TpUnregisterResponse_Status] -> ShowS Source #

Generic TpUnregisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Associated Types

type Rep TpUnregisterResponse_Status :: Type -> Type Source #

Methods

from :: TpUnregisterResponse_Status -> Rep TpUnregisterResponse_Status x Source #

to :: Rep TpUnregisterResponse_Status x -> TpUnregisterResponse_Status Source #

ToJSON TpUnregisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

toJSON :: TpUnregisterResponse_Status -> Value Source #

toEncoding :: TpUnregisterResponse_Status -> Encoding Source #

toJSONList :: [TpUnregisterResponse_Status] -> Value Source #

toEncodingList :: [TpUnregisterResponse_Status] -> Encoding Source #

FromJSON TpUnregisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

parseJSON :: Value -> Parser TpUnregisterResponse_Status Source #

parseJSONList :: Value -> Parser [TpUnregisterResponse_Status] Source #

NFData TpUnregisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

rnf :: TpUnregisterResponse_Status -> () Source #

ProtoEnum TpUnregisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

toProtoEnumMay :: Int32 -> Maybe TpUnregisterResponse_Status Source #

fromProtoEnum :: TpUnregisterResponse_Status -> Int32 Source #

ToJSONPB TpUnregisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

toJSONPB :: TpUnregisterResponse_Status -> Options -> Value Source #

toEncodingPB :: TpUnregisterResponse_Status -> Options -> Encoding Source #

FromJSONPB TpUnregisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

parseJSONPB :: Value -> Parser TpUnregisterResponse_Status Source #

HasDefault TpUnregisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

def :: TpUnregisterResponse_Status Source #

isDefault :: TpUnregisterResponse_Status -> Bool Source #

Named TpUnregisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

nameOf :: IsString string => Proxy# TpUnregisterResponse_Status -> string Source #

Finite TpUnregisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

enumerate :: IsString string => Proxy# TpUnregisterResponse_Status -> [(string, Int32)] Source #

type Rep TpUnregisterResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

type Rep TpUnregisterResponse_Status = D1 ('MetaData "TpUnregisterResponse_Status" "Data.Sawtooth.Processor" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "TpUnregisterResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "TpUnregisterResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "TpUnregisterResponse_StatusERROR" 'PrefixI 'False) (U1 :: Type -> Type)))

data TpProcessRequest Source #

Constructors

TpProcessRequest 

Fields

Instances

Instances details
Eq TpProcessRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

(==) :: TpProcessRequest -> TpProcessRequest -> Bool Source #

(/=) :: TpProcessRequest -> TpProcessRequest -> Bool Source #

Ord TpProcessRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

compare :: TpProcessRequest -> TpProcessRequest -> Ordering Source #

(<) :: TpProcessRequest -> TpProcessRequest -> Bool Source #

(<=) :: TpProcessRequest -> TpProcessRequest -> Bool Source #

(>) :: TpProcessRequest -> TpProcessRequest -> Bool Source #

(>=) :: TpProcessRequest -> TpProcessRequest -> Bool Source #

max :: TpProcessRequest -> TpProcessRequest -> TpProcessRequest Source #

min :: TpProcessRequest -> TpProcessRequest -> TpProcessRequest Source #

Show TpProcessRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

showsPrec :: Int -> TpProcessRequest -> ShowS Source #

show :: TpProcessRequest -> String Source #

showList :: [TpProcessRequest] -> ShowS Source #

Generic TpProcessRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Associated Types

type Rep TpProcessRequest :: Type -> Type Source #

Methods

from :: TpProcessRequest -> Rep TpProcessRequest x Source #

to :: Rep TpProcessRequest x -> TpProcessRequest Source #

ToJSON TpProcessRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

toJSON :: TpProcessRequest -> Value Source #

toEncoding :: TpProcessRequest -> Encoding Source #

toJSONList :: [TpProcessRequest] -> Value Source #

toEncodingList :: [TpProcessRequest] -> Encoding Source #

FromJSON TpProcessRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

parseJSON :: Value -> Parser TpProcessRequest Source #

parseJSONList :: Value -> Parser [TpProcessRequest] Source #

NFData TpProcessRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

rnf :: TpProcessRequest -> () Source #

ToJSONPB TpProcessRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

toJSONPB :: TpProcessRequest -> Options -> Value Source #

toEncodingPB :: TpProcessRequest -> Options -> Encoding Source #

FromJSONPB TpProcessRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

parseJSONPB :: Value -> Parser TpProcessRequest Source #

HasDefault TpProcessRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

def :: TpProcessRequest Source #

isDefault :: TpProcessRequest -> Bool Source #

Named TpProcessRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

nameOf :: IsString string => Proxy# TpProcessRequest -> string Source #

Message TpProcessRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

encodeMessage :: FieldNumber -> TpProcessRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage TpProcessRequest Source #

dotProto :: Proxy# TpProcessRequest -> [DotProtoField] Source #

ToSchema TpProcessRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

declareNamedSchema :: Proxy TpProcessRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep TpProcessRequest Source # 
Instance details

Defined in Data.Sawtooth.Processor

type Rep TpProcessRequest = D1 ('MetaData "TpProcessRequest" "Data.Sawtooth.Processor" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "TpProcessRequest" 'PrefixI 'True) ((S1 ('MetaSel ('Just "tpProcessRequestHeader") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe TransactionHeader)) :*: S1 ('MetaSel ('Just "tpProcessRequestPayload") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString)) :*: (S1 ('MetaSel ('Just "tpProcessRequestSignature") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: (S1 ('MetaSel ('Just "tpProcessRequestContextId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "tpProcessRequestHeaderBytes") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString)))))

data TpProcessResponse Source #

Constructors

TpProcessResponse 

Fields

Instances

Instances details
Eq TpProcessResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

(==) :: TpProcessResponse -> TpProcessResponse -> Bool Source #

(/=) :: TpProcessResponse -> TpProcessResponse -> Bool Source #

Ord TpProcessResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

compare :: TpProcessResponse -> TpProcessResponse -> Ordering Source #

(<) :: TpProcessResponse -> TpProcessResponse -> Bool Source #

(<=) :: TpProcessResponse -> TpProcessResponse -> Bool Source #

(>) :: TpProcessResponse -> TpProcessResponse -> Bool Source #

(>=) :: TpProcessResponse -> TpProcessResponse -> Bool Source #

max :: TpProcessResponse -> TpProcessResponse -> TpProcessResponse Source #

min :: TpProcessResponse -> TpProcessResponse -> TpProcessResponse Source #

Show TpProcessResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

showsPrec :: Int -> TpProcessResponse -> ShowS Source #

show :: TpProcessResponse -> String Source #

showList :: [TpProcessResponse] -> ShowS Source #

Generic TpProcessResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Associated Types

type Rep TpProcessResponse :: Type -> Type Source #

Methods

from :: TpProcessResponse -> Rep TpProcessResponse x Source #

to :: Rep TpProcessResponse x -> TpProcessResponse Source #

ToJSON TpProcessResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

toJSON :: TpProcessResponse -> Value Source #

toEncoding :: TpProcessResponse -> Encoding Source #

toJSONList :: [TpProcessResponse] -> Value Source #

toEncodingList :: [TpProcessResponse] -> Encoding Source #

FromJSON TpProcessResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

parseJSON :: Value -> Parser TpProcessResponse Source #

parseJSONList :: Value -> Parser [TpProcessResponse] Source #

NFData TpProcessResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

rnf :: TpProcessResponse -> () Source #

ToJSONPB TpProcessResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

toJSONPB :: TpProcessResponse -> Options -> Value Source #

toEncodingPB :: TpProcessResponse -> Options -> Encoding Source #

FromJSONPB TpProcessResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

parseJSONPB :: Value -> Parser TpProcessResponse Source #

HasDefault TpProcessResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

def :: TpProcessResponse Source #

isDefault :: TpProcessResponse -> Bool Source #

Named TpProcessResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

nameOf :: IsString string => Proxy# TpProcessResponse -> string Source #

Message TpProcessResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

encodeMessage :: FieldNumber -> TpProcessResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage TpProcessResponse Source #

dotProto :: Proxy# TpProcessResponse -> [DotProtoField] Source #

ToSchema TpProcessResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

declareNamedSchema :: Proxy TpProcessResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep TpProcessResponse Source # 
Instance details

Defined in Data.Sawtooth.Processor

type Rep TpProcessResponse = D1 ('MetaData "TpProcessResponse" "Data.Sawtooth.Processor" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "TpProcessResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "tpProcessResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated TpProcessResponse_Status)) :*: (S1 ('MetaSel ('Just "tpProcessResponseMessage") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "tpProcessResponseExtendedData") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString))))

data TpProcessResponse_Status Source #

Constructors

TpProcessResponse_StatusSTATUS_UNSET 
TpProcessResponse_StatusOK 
TpProcessResponse_StatusINVALID_TRANSACTION 
TpProcessResponse_StatusINTERNAL_ERROR 

Instances

Instances details
Bounded TpProcessResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

minBound :: TpProcessResponse_Status Source #

maxBound :: TpProcessResponse_Status Source #

Eq TpProcessResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

(==) :: TpProcessResponse_Status -> TpProcessResponse_Status -> Bool Source #

(/=) :: TpProcessResponse_Status -> TpProcessResponse_Status -> Bool Source #

Ord TpProcessResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

compare :: TpProcessResponse_Status -> TpProcessResponse_Status -> Ordering Source #

(<) :: TpProcessResponse_Status -> TpProcessResponse_Status -> Bool Source #

(<=) :: TpProcessResponse_Status -> TpProcessResponse_Status -> Bool Source #

(>) :: TpProcessResponse_Status -> TpProcessResponse_Status -> Bool Source #

(>=) :: TpProcessResponse_Status -> TpProcessResponse_Status -> Bool Source #

max :: TpProcessResponse_Status -> TpProcessResponse_Status -> TpProcessResponse_Status Source #

min :: TpProcessResponse_Status -> TpProcessResponse_Status -> TpProcessResponse_Status Source #

Show TpProcessResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

showsPrec :: Int -> TpProcessResponse_Status -> ShowS Source #

show :: TpProcessResponse_Status -> String Source #

showList :: [TpProcessResponse_Status] -> ShowS Source #

Generic TpProcessResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Associated Types

type Rep TpProcessResponse_Status :: Type -> Type Source #

Methods

from :: TpProcessResponse_Status -> Rep TpProcessResponse_Status x Source #

to :: Rep TpProcessResponse_Status x -> TpProcessResponse_Status Source #

ToJSON TpProcessResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

toJSON :: TpProcessResponse_Status -> Value Source #

toEncoding :: TpProcessResponse_Status -> Encoding Source #

toJSONList :: [TpProcessResponse_Status] -> Value Source #

toEncodingList :: [TpProcessResponse_Status] -> Encoding Source #

FromJSON TpProcessResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

parseJSON :: Value -> Parser TpProcessResponse_Status Source #

parseJSONList :: Value -> Parser [TpProcessResponse_Status] Source #

NFData TpProcessResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

rnf :: TpProcessResponse_Status -> () Source #

ProtoEnum TpProcessResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

toProtoEnumMay :: Int32 -> Maybe TpProcessResponse_Status Source #

fromProtoEnum :: TpProcessResponse_Status -> Int32 Source #

ToJSONPB TpProcessResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

toJSONPB :: TpProcessResponse_Status -> Options -> Value Source #

toEncodingPB :: TpProcessResponse_Status -> Options -> Encoding Source #

FromJSONPB TpProcessResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

parseJSONPB :: Value -> Parser TpProcessResponse_Status Source #

HasDefault TpProcessResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

def :: TpProcessResponse_Status Source #

isDefault :: TpProcessResponse_Status -> Bool Source #

Named TpProcessResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

nameOf :: IsString string => Proxy# TpProcessResponse_Status -> string Source #

Finite TpProcessResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

Methods

enumerate :: IsString string => Proxy# TpProcessResponse_Status -> [(string, Int32)] Source #

type Rep TpProcessResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.Processor

type Rep TpProcessResponse_Status = D1 ('MetaData "TpProcessResponse_Status" "Data.Sawtooth.Processor" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) ((C1 ('MetaCons "TpProcessResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "TpProcessResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "TpProcessResponse_StatusINVALID_TRANSACTION" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "TpProcessResponse_StatusINTERNAL_ERROR" 'PrefixI 'False) (U1 :: Type -> Type)))
\ No newline at end of file diff --git a/Data-Sawtooth-Setting.html b/Data-Sawtooth-Setting.html index 340f6db..3b9b4fb 100644 --- a/Data-Sawtooth-Setting.html +++ b/Data-Sawtooth-Setting.html @@ -1 +1 @@ -Data.Sawtooth.Setting
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types
Safe HaskellNone
LanguageHaskell2010

Data.Sawtooth.Setting

Description

Generated by Haskell protocol buffer compiler. DO NOT EDIT!

Documentation

newtype Setting Source #

Constructors

Setting 

Fields

Instances

Instances details
Eq Setting Source # 
Instance details

Defined in Data.Sawtooth.Setting

Methods

(==) :: Setting -> Setting -> Bool Source #

(/=) :: Setting -> Setting -> Bool Source #

Ord Setting Source # 
Instance details

Defined in Data.Sawtooth.Setting

Methods

compare :: Setting -> Setting -> Ordering Source #

(<) :: Setting -> Setting -> Bool Source #

(<=) :: Setting -> Setting -> Bool Source #

(>) :: Setting -> Setting -> Bool Source #

(>=) :: Setting -> Setting -> Bool Source #

max :: Setting -> Setting -> Setting Source #

min :: Setting -> Setting -> Setting Source #

Show Setting Source # 
Instance details

Defined in Data.Sawtooth.Setting

Methods

showsPrec :: Int -> Setting -> ShowS Source #

show :: Setting -> String Source #

showList :: [Setting] -> ShowS Source #

Generic Setting Source # 
Instance details

Defined in Data.Sawtooth.Setting

Associated Types

type Rep Setting :: Type -> Type Source #

Methods

from :: Setting -> Rep Setting x Source #

to :: Rep Setting x -> Setting Source #

ToJSON Setting Source # 
Instance details

Defined in Data.Sawtooth.Setting

Methods

toJSON :: Setting -> Value Source #

toEncoding :: Setting -> Encoding Source #

toJSONList :: [Setting] -> Value Source #

toEncodingList :: [Setting] -> Encoding Source #

FromJSON Setting Source # 
Instance details

Defined in Data.Sawtooth.Setting

Methods

parseJSON :: Value -> Parser Setting Source #

parseJSONList :: Value -> Parser [Setting] Source #

NFData Setting Source # 
Instance details

Defined in Data.Sawtooth.Setting

Methods

rnf :: Setting -> () Source #

ToJSONPB Setting Source # 
Instance details

Defined in Data.Sawtooth.Setting

Methods

toJSONPB :: Setting -> Options -> Value Source #

toEncodingPB :: Setting -> Options -> Encoding Source #

FromJSONPB Setting Source # 
Instance details

Defined in Data.Sawtooth.Setting

Methods

parseJSONPB :: Value -> Parser Setting Source #

HasDefault Setting Source # 
Instance details

Defined in Data.Sawtooth.Setting

Methods

def :: Setting Source #

isDefault :: Setting -> Bool Source #

Named Setting Source # 
Instance details

Defined in Data.Sawtooth.Setting

Methods

nameOf :: IsString string => Proxy# Setting -> string Source #

Message Setting Source # 
Instance details

Defined in Data.Sawtooth.Setting

Methods

encodeMessage :: FieldNumber -> Setting -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage Setting Source #

dotProto :: Proxy# Setting -> [DotProtoField] Source #

ToSchema Setting Source # 
Instance details

Defined in Data.Sawtooth.Setting

Methods

declareNamedSchema :: Proxy Setting -> Declare (Definitions Schema) NamedSchema Source #

type Rep Setting Source # 
Instance details

Defined in Data.Sawtooth.Setting

type Rep Setting = D1 ('MetaData "Setting" "Data.Sawtooth.Setting" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'True) (C1 ('MetaCons "Setting" 'PrefixI 'True) (S1 ('MetaSel ('Just "settingEntries") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Setting_Entry))))

data Setting_Entry Source #

Constructors

Setting_Entry 

Fields

Instances

Instances details
Eq Setting_Entry Source # 
Instance details

Defined in Data.Sawtooth.Setting

Methods

(==) :: Setting_Entry -> Setting_Entry -> Bool Source #

(/=) :: Setting_Entry -> Setting_Entry -> Bool Source #

Ord Setting_Entry Source # 
Instance details

Defined in Data.Sawtooth.Setting

Methods

compare :: Setting_Entry -> Setting_Entry -> Ordering Source #

(<) :: Setting_Entry -> Setting_Entry -> Bool Source #

(<=) :: Setting_Entry -> Setting_Entry -> Bool Source #

(>) :: Setting_Entry -> Setting_Entry -> Bool Source #

(>=) :: Setting_Entry -> Setting_Entry -> Bool Source #

max :: Setting_Entry -> Setting_Entry -> Setting_Entry Source #

min :: Setting_Entry -> Setting_Entry -> Setting_Entry Source #

Show Setting_Entry Source # 
Instance details

Defined in Data.Sawtooth.Setting

Methods

showsPrec :: Int -> Setting_Entry -> ShowS Source #

show :: Setting_Entry -> String Source #

showList :: [Setting_Entry] -> ShowS Source #

Generic Setting_Entry Source # 
Instance details

Defined in Data.Sawtooth.Setting

Associated Types

type Rep Setting_Entry :: Type -> Type Source #

Methods

from :: Setting_Entry -> Rep Setting_Entry x Source #

to :: Rep Setting_Entry x -> Setting_Entry Source #

ToJSON Setting_Entry Source # 
Instance details

Defined in Data.Sawtooth.Setting

Methods

toJSON :: Setting_Entry -> Value Source #

toEncoding :: Setting_Entry -> Encoding Source #

toJSONList :: [Setting_Entry] -> Value Source #

toEncodingList :: [Setting_Entry] -> Encoding Source #

FromJSON Setting_Entry Source # 
Instance details

Defined in Data.Sawtooth.Setting

Methods

parseJSON :: Value -> Parser Setting_Entry Source #

parseJSONList :: Value -> Parser [Setting_Entry] Source #

NFData Setting_Entry Source # 
Instance details

Defined in Data.Sawtooth.Setting

Methods

rnf :: Setting_Entry -> () Source #

ToJSONPB Setting_Entry Source # 
Instance details

Defined in Data.Sawtooth.Setting

Methods

toJSONPB :: Setting_Entry -> Options -> Value Source #

toEncodingPB :: Setting_Entry -> Options -> Encoding Source #

FromJSONPB Setting_Entry Source # 
Instance details

Defined in Data.Sawtooth.Setting

Methods

parseJSONPB :: Value -> Parser Setting_Entry Source #

HasDefault Setting_Entry Source # 
Instance details

Defined in Data.Sawtooth.Setting

Methods

def :: Setting_Entry Source #

isDefault :: Setting_Entry -> Bool Source #

Named Setting_Entry Source # 
Instance details

Defined in Data.Sawtooth.Setting

Methods

nameOf :: IsString string => Proxy# Setting_Entry -> string Source #

Message Setting_Entry Source # 
Instance details

Defined in Data.Sawtooth.Setting

Methods

encodeMessage :: FieldNumber -> Setting_Entry -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage Setting_Entry Source #

dotProto :: Proxy# Setting_Entry -> [DotProtoField] Source #

ToSchema Setting_Entry Source # 
Instance details

Defined in Data.Sawtooth.Setting

Methods

declareNamedSchema :: Proxy Setting_Entry -> Declare (Definitions Schema) NamedSchema Source #

type Rep Setting_Entry Source # 
Instance details

Defined in Data.Sawtooth.Setting

type Rep Setting_Entry = D1 ('MetaData "Setting_Entry" "Data.Sawtooth.Setting" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "Setting_Entry" 'PrefixI 'True) (S1 ('MetaSel ('Just "setting_EntryKey") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "setting_EntryValue") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)))
\ No newline at end of file +Data.Sawtooth.Setting
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types
Safe HaskellNone
LanguageHaskell2010

Data.Sawtooth.Setting

Description

Generated by Haskell protocol buffer compiler. DO NOT EDIT!

Documentation

newtype Setting Source #

Constructors

Setting 

Fields

Instances

Instances details
Eq Setting Source # 
Instance details

Defined in Data.Sawtooth.Setting

Methods

(==) :: Setting -> Setting -> Bool Source #

(/=) :: Setting -> Setting -> Bool Source #

Ord Setting Source # 
Instance details

Defined in Data.Sawtooth.Setting

Methods

compare :: Setting -> Setting -> Ordering Source #

(<) :: Setting -> Setting -> Bool Source #

(<=) :: Setting -> Setting -> Bool Source #

(>) :: Setting -> Setting -> Bool Source #

(>=) :: Setting -> Setting -> Bool Source #

max :: Setting -> Setting -> Setting Source #

min :: Setting -> Setting -> Setting Source #

Show Setting Source # 
Instance details

Defined in Data.Sawtooth.Setting

Methods

showsPrec :: Int -> Setting -> ShowS Source #

show :: Setting -> String Source #

showList :: [Setting] -> ShowS Source #

Generic Setting Source # 
Instance details

Defined in Data.Sawtooth.Setting

Associated Types

type Rep Setting :: Type -> Type Source #

Methods

from :: Setting -> Rep Setting x Source #

to :: Rep Setting x -> Setting Source #

ToJSON Setting Source # 
Instance details

Defined in Data.Sawtooth.Setting

Methods

toJSON :: Setting -> Value Source #

toEncoding :: Setting -> Encoding Source #

toJSONList :: [Setting] -> Value Source #

toEncodingList :: [Setting] -> Encoding Source #

FromJSON Setting Source # 
Instance details

Defined in Data.Sawtooth.Setting

Methods

parseJSON :: Value -> Parser Setting Source #

parseJSONList :: Value -> Parser [Setting] Source #

NFData Setting Source # 
Instance details

Defined in Data.Sawtooth.Setting

Methods

rnf :: Setting -> () Source #

ToJSONPB Setting Source # 
Instance details

Defined in Data.Sawtooth.Setting

Methods

toJSONPB :: Setting -> Options -> Value Source #

toEncodingPB :: Setting -> Options -> Encoding Source #

FromJSONPB Setting Source # 
Instance details

Defined in Data.Sawtooth.Setting

Methods

parseJSONPB :: Value -> Parser Setting Source #

HasDefault Setting Source # 
Instance details

Defined in Data.Sawtooth.Setting

Methods

def :: Setting Source #

isDefault :: Setting -> Bool Source #

Named Setting Source # 
Instance details

Defined in Data.Sawtooth.Setting

Methods

nameOf :: IsString string => Proxy# Setting -> string Source #

Message Setting Source # 
Instance details

Defined in Data.Sawtooth.Setting

Methods

encodeMessage :: FieldNumber -> Setting -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage Setting Source #

dotProto :: Proxy# Setting -> [DotProtoField] Source #

ToSchema Setting Source # 
Instance details

Defined in Data.Sawtooth.Setting

Methods

declareNamedSchema :: Proxy Setting -> Declare (Definitions Schema) NamedSchema Source #

type Rep Setting Source # 
Instance details

Defined in Data.Sawtooth.Setting

type Rep Setting = D1 ('MetaData "Setting" "Data.Sawtooth.Setting" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'True) (C1 ('MetaCons "Setting" 'PrefixI 'True) (S1 ('MetaSel ('Just "settingEntries") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Setting_Entry))))

data Setting_Entry Source #

Constructors

Setting_Entry 

Fields

Instances

Instances details
Eq Setting_Entry Source # 
Instance details

Defined in Data.Sawtooth.Setting

Methods

(==) :: Setting_Entry -> Setting_Entry -> Bool Source #

(/=) :: Setting_Entry -> Setting_Entry -> Bool Source #

Ord Setting_Entry Source # 
Instance details

Defined in Data.Sawtooth.Setting

Methods

compare :: Setting_Entry -> Setting_Entry -> Ordering Source #

(<) :: Setting_Entry -> Setting_Entry -> Bool Source #

(<=) :: Setting_Entry -> Setting_Entry -> Bool Source #

(>) :: Setting_Entry -> Setting_Entry -> Bool Source #

(>=) :: Setting_Entry -> Setting_Entry -> Bool Source #

max :: Setting_Entry -> Setting_Entry -> Setting_Entry Source #

min :: Setting_Entry -> Setting_Entry -> Setting_Entry Source #

Show Setting_Entry Source # 
Instance details

Defined in Data.Sawtooth.Setting

Methods

showsPrec :: Int -> Setting_Entry -> ShowS Source #

show :: Setting_Entry -> String Source #

showList :: [Setting_Entry] -> ShowS Source #

Generic Setting_Entry Source # 
Instance details

Defined in Data.Sawtooth.Setting

Associated Types

type Rep Setting_Entry :: Type -> Type Source #

Methods

from :: Setting_Entry -> Rep Setting_Entry x Source #

to :: Rep Setting_Entry x -> Setting_Entry Source #

ToJSON Setting_Entry Source # 
Instance details

Defined in Data.Sawtooth.Setting

Methods

toJSON :: Setting_Entry -> Value Source #

toEncoding :: Setting_Entry -> Encoding Source #

toJSONList :: [Setting_Entry] -> Value Source #

toEncodingList :: [Setting_Entry] -> Encoding Source #

FromJSON Setting_Entry Source # 
Instance details

Defined in Data.Sawtooth.Setting

Methods

parseJSON :: Value -> Parser Setting_Entry Source #

parseJSONList :: Value -> Parser [Setting_Entry] Source #

NFData Setting_Entry Source # 
Instance details

Defined in Data.Sawtooth.Setting

Methods

rnf :: Setting_Entry -> () Source #

ToJSONPB Setting_Entry Source # 
Instance details

Defined in Data.Sawtooth.Setting

Methods

toJSONPB :: Setting_Entry -> Options -> Value Source #

toEncodingPB :: Setting_Entry -> Options -> Encoding Source #

FromJSONPB Setting_Entry Source # 
Instance details

Defined in Data.Sawtooth.Setting

Methods

parseJSONPB :: Value -> Parser Setting_Entry Source #

HasDefault Setting_Entry Source # 
Instance details

Defined in Data.Sawtooth.Setting

Methods

def :: Setting_Entry Source #

isDefault :: Setting_Entry -> Bool Source #

Named Setting_Entry Source # 
Instance details

Defined in Data.Sawtooth.Setting

Methods

nameOf :: IsString string => Proxy# Setting_Entry -> string Source #

Message Setting_Entry Source # 
Instance details

Defined in Data.Sawtooth.Setting

Methods

encodeMessage :: FieldNumber -> Setting_Entry -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage Setting_Entry Source #

dotProto :: Proxy# Setting_Entry -> [DotProtoField] Source #

ToSchema Setting_Entry Source # 
Instance details

Defined in Data.Sawtooth.Setting

Methods

declareNamedSchema :: Proxy Setting_Entry -> Declare (Definitions Schema) NamedSchema Source #

type Rep Setting_Entry Source # 
Instance details

Defined in Data.Sawtooth.Setting

type Rep Setting_Entry = D1 ('MetaData "Setting_Entry" "Data.Sawtooth.Setting" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "Setting_Entry" 'PrefixI 'True) (S1 ('MetaSel ('Just "setting_EntryKey") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "setting_EntryValue") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)))
\ No newline at end of file diff --git a/Data-Sawtooth-StateContext.html b/Data-Sawtooth-StateContext.html index 3897777..2a6ba69 100644 --- a/Data-Sawtooth-StateContext.html +++ b/Data-Sawtooth-StateContext.html @@ -1 +1 @@ -Data.Sawtooth.StateContext
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types
Safe HaskellNone
LanguageHaskell2010

Data.Sawtooth.StateContext

Description

Generated by Haskell protocol buffer compiler. DO NOT EDIT!

Documentation

data TpStateEntry Source #

Constructors

TpStateEntry 

Fields

Instances

Instances details
Eq TpStateEntry Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

(==) :: TpStateEntry -> TpStateEntry -> Bool Source #

(/=) :: TpStateEntry -> TpStateEntry -> Bool Source #

Ord TpStateEntry Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

compare :: TpStateEntry -> TpStateEntry -> Ordering Source #

(<) :: TpStateEntry -> TpStateEntry -> Bool Source #

(<=) :: TpStateEntry -> TpStateEntry -> Bool Source #

(>) :: TpStateEntry -> TpStateEntry -> Bool Source #

(>=) :: TpStateEntry -> TpStateEntry -> Bool Source #

max :: TpStateEntry -> TpStateEntry -> TpStateEntry Source #

min :: TpStateEntry -> TpStateEntry -> TpStateEntry Source #

Show TpStateEntry Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

showsPrec :: Int -> TpStateEntry -> ShowS Source #

show :: TpStateEntry -> String Source #

showList :: [TpStateEntry] -> ShowS Source #

Generic TpStateEntry Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Associated Types

type Rep TpStateEntry :: Type -> Type Source #

Methods

from :: TpStateEntry -> Rep TpStateEntry x Source #

to :: Rep TpStateEntry x -> TpStateEntry Source #

ToJSON TpStateEntry Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

toJSON :: TpStateEntry -> Value Source #

toEncoding :: TpStateEntry -> Encoding Source #

toJSONList :: [TpStateEntry] -> Value Source #

toEncodingList :: [TpStateEntry] -> Encoding Source #

FromJSON TpStateEntry Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

parseJSON :: Value -> Parser TpStateEntry Source #

parseJSONList :: Value -> Parser [TpStateEntry] Source #

NFData TpStateEntry Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

rnf :: TpStateEntry -> () Source #

ToJSONPB TpStateEntry Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

toJSONPB :: TpStateEntry -> Options -> Value Source #

toEncodingPB :: TpStateEntry -> Options -> Encoding Source #

FromJSONPB TpStateEntry Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

parseJSONPB :: Value -> Parser TpStateEntry Source #

HasDefault TpStateEntry Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

def :: TpStateEntry Source #

isDefault :: TpStateEntry -> Bool Source #

Named TpStateEntry Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

nameOf :: IsString string => Proxy# TpStateEntry -> string Source #

Message TpStateEntry Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

encodeMessage :: FieldNumber -> TpStateEntry -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage TpStateEntry Source #

dotProto :: Proxy# TpStateEntry -> [DotProtoField] Source #

ToSchema TpStateEntry Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

declareNamedSchema :: Proxy TpStateEntry -> Declare (Definitions Schema) NamedSchema Source #

type Rep TpStateEntry Source # 
Instance details

Defined in Data.Sawtooth.StateContext

type Rep TpStateEntry = D1 ('MetaData "TpStateEntry" "Data.Sawtooth.StateContext" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "TpStateEntry" 'PrefixI 'True) (S1 ('MetaSel ('Just "tpStateEntryAddress") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "tpStateEntryData") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString)))

data TpStateGetRequest Source #

Constructors

TpStateGetRequest 

Fields

Instances

Instances details
Eq TpStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

(==) :: TpStateGetRequest -> TpStateGetRequest -> Bool Source #

(/=) :: TpStateGetRequest -> TpStateGetRequest -> Bool Source #

Ord TpStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

compare :: TpStateGetRequest -> TpStateGetRequest -> Ordering Source #

(<) :: TpStateGetRequest -> TpStateGetRequest -> Bool Source #

(<=) :: TpStateGetRequest -> TpStateGetRequest -> Bool Source #

(>) :: TpStateGetRequest -> TpStateGetRequest -> Bool Source #

(>=) :: TpStateGetRequest -> TpStateGetRequest -> Bool Source #

max :: TpStateGetRequest -> TpStateGetRequest -> TpStateGetRequest Source #

min :: TpStateGetRequest -> TpStateGetRequest -> TpStateGetRequest Source #

Show TpStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

showsPrec :: Int -> TpStateGetRequest -> ShowS Source #

show :: TpStateGetRequest -> String Source #

showList :: [TpStateGetRequest] -> ShowS Source #

Generic TpStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Associated Types

type Rep TpStateGetRequest :: Type -> Type Source #

Methods

from :: TpStateGetRequest -> Rep TpStateGetRequest x Source #

to :: Rep TpStateGetRequest x -> TpStateGetRequest Source #

ToJSON TpStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

toJSON :: TpStateGetRequest -> Value Source #

toEncoding :: TpStateGetRequest -> Encoding Source #

toJSONList :: [TpStateGetRequest] -> Value Source #

toEncodingList :: [TpStateGetRequest] -> Encoding Source #

FromJSON TpStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

parseJSON :: Value -> Parser TpStateGetRequest Source #

parseJSONList :: Value -> Parser [TpStateGetRequest] Source #

NFData TpStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

rnf :: TpStateGetRequest -> () Source #

ToJSONPB TpStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

toJSONPB :: TpStateGetRequest -> Options -> Value Source #

toEncodingPB :: TpStateGetRequest -> Options -> Encoding Source #

FromJSONPB TpStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

parseJSONPB :: Value -> Parser TpStateGetRequest Source #

HasDefault TpStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

def :: TpStateGetRequest Source #

isDefault :: TpStateGetRequest -> Bool Source #

Named TpStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

nameOf :: IsString string => Proxy# TpStateGetRequest -> string Source #

Message TpStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

encodeMessage :: FieldNumber -> TpStateGetRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage TpStateGetRequest Source #

dotProto :: Proxy# TpStateGetRequest -> [DotProtoField] Source #

ToSchema TpStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

declareNamedSchema :: Proxy TpStateGetRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep TpStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

type Rep TpStateGetRequest = D1 ('MetaData "TpStateGetRequest" "Data.Sawtooth.StateContext" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "TpStateGetRequest" 'PrefixI 'True) (S1 ('MetaSel ('Just "tpStateGetRequestContextId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "tpStateGetRequestAddresses") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Text))))

data TpStateGetResponse Source #

Constructors

TpStateGetResponse 

Fields

Instances

Instances details
Eq TpStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

(==) :: TpStateGetResponse -> TpStateGetResponse -> Bool Source #

(/=) :: TpStateGetResponse -> TpStateGetResponse -> Bool Source #

Ord TpStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

compare :: TpStateGetResponse -> TpStateGetResponse -> Ordering Source #

(<) :: TpStateGetResponse -> TpStateGetResponse -> Bool Source #

(<=) :: TpStateGetResponse -> TpStateGetResponse -> Bool Source #

(>) :: TpStateGetResponse -> TpStateGetResponse -> Bool Source #

(>=) :: TpStateGetResponse -> TpStateGetResponse -> Bool Source #

max :: TpStateGetResponse -> TpStateGetResponse -> TpStateGetResponse Source #

min :: TpStateGetResponse -> TpStateGetResponse -> TpStateGetResponse Source #

Show TpStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

showsPrec :: Int -> TpStateGetResponse -> ShowS Source #

show :: TpStateGetResponse -> String Source #

showList :: [TpStateGetResponse] -> ShowS Source #

Generic TpStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Associated Types

type Rep TpStateGetResponse :: Type -> Type Source #

Methods

from :: TpStateGetResponse -> Rep TpStateGetResponse x Source #

to :: Rep TpStateGetResponse x -> TpStateGetResponse Source #

ToJSON TpStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

toJSON :: TpStateGetResponse -> Value Source #

toEncoding :: TpStateGetResponse -> Encoding Source #

toJSONList :: [TpStateGetResponse] -> Value Source #

toEncodingList :: [TpStateGetResponse] -> Encoding Source #

FromJSON TpStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

parseJSON :: Value -> Parser TpStateGetResponse Source #

parseJSONList :: Value -> Parser [TpStateGetResponse] Source #

NFData TpStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

rnf :: TpStateGetResponse -> () Source #

ToJSONPB TpStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

toJSONPB :: TpStateGetResponse -> Options -> Value Source #

toEncodingPB :: TpStateGetResponse -> Options -> Encoding Source #

FromJSONPB TpStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

parseJSONPB :: Value -> Parser TpStateGetResponse Source #

HasDefault TpStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

def :: TpStateGetResponse Source #

isDefault :: TpStateGetResponse -> Bool Source #

Named TpStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

nameOf :: IsString string => Proxy# TpStateGetResponse -> string Source #

Message TpStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

encodeMessage :: FieldNumber -> TpStateGetResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage TpStateGetResponse Source #

dotProto :: Proxy# TpStateGetResponse -> [DotProtoField] Source #

ToSchema TpStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

declareNamedSchema :: Proxy TpStateGetResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep TpStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

type Rep TpStateGetResponse = D1 ('MetaData "TpStateGetResponse" "Data.Sawtooth.StateContext" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "TpStateGetResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "tpStateGetResponseEntries") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector TpStateEntry)) :*: S1 ('MetaSel ('Just "tpStateGetResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated TpStateGetResponse_Status))))

data TpStateGetResponse_Status Source #

Constructors

TpStateGetResponse_StatusSTATUS_UNSET 
TpStateGetResponse_StatusOK 
TpStateGetResponse_StatusAUTHORIZATION_ERROR 

Instances

Instances details
Bounded TpStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

minBound :: TpStateGetResponse_Status Source #

maxBound :: TpStateGetResponse_Status Source #

Eq TpStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

(==) :: TpStateGetResponse_Status -> TpStateGetResponse_Status -> Bool Source #

(/=) :: TpStateGetResponse_Status -> TpStateGetResponse_Status -> Bool Source #

Ord TpStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

compare :: TpStateGetResponse_Status -> TpStateGetResponse_Status -> Ordering Source #

(<) :: TpStateGetResponse_Status -> TpStateGetResponse_Status -> Bool Source #

(<=) :: TpStateGetResponse_Status -> TpStateGetResponse_Status -> Bool Source #

(>) :: TpStateGetResponse_Status -> TpStateGetResponse_Status -> Bool Source #

(>=) :: TpStateGetResponse_Status -> TpStateGetResponse_Status -> Bool Source #

max :: TpStateGetResponse_Status -> TpStateGetResponse_Status -> TpStateGetResponse_Status Source #

min :: TpStateGetResponse_Status -> TpStateGetResponse_Status -> TpStateGetResponse_Status Source #

Show TpStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

showsPrec :: Int -> TpStateGetResponse_Status -> ShowS Source #

show :: TpStateGetResponse_Status -> String Source #

showList :: [TpStateGetResponse_Status] -> ShowS Source #

Generic TpStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Associated Types

type Rep TpStateGetResponse_Status :: Type -> Type Source #

Methods

from :: TpStateGetResponse_Status -> Rep TpStateGetResponse_Status x Source #

to :: Rep TpStateGetResponse_Status x -> TpStateGetResponse_Status Source #

ToJSON TpStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

toJSON :: TpStateGetResponse_Status -> Value Source #

toEncoding :: TpStateGetResponse_Status -> Encoding Source #

toJSONList :: [TpStateGetResponse_Status] -> Value Source #

toEncodingList :: [TpStateGetResponse_Status] -> Encoding Source #

FromJSON TpStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

parseJSON :: Value -> Parser TpStateGetResponse_Status Source #

parseJSONList :: Value -> Parser [TpStateGetResponse_Status] Source #

NFData TpStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

rnf :: TpStateGetResponse_Status -> () Source #

ProtoEnum TpStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

toProtoEnumMay :: Int32 -> Maybe TpStateGetResponse_Status Source #

fromProtoEnum :: TpStateGetResponse_Status -> Int32 Source #

ToJSONPB TpStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

toJSONPB :: TpStateGetResponse_Status -> Options -> Value Source #

toEncodingPB :: TpStateGetResponse_Status -> Options -> Encoding Source #

FromJSONPB TpStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

parseJSONPB :: Value -> Parser TpStateGetResponse_Status Source #

HasDefault TpStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

def :: TpStateGetResponse_Status Source #

isDefault :: TpStateGetResponse_Status -> Bool Source #

Named TpStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

nameOf :: IsString string => Proxy# TpStateGetResponse_Status -> string Source #

Finite TpStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

enumerate :: IsString string => Proxy# TpStateGetResponse_Status -> [(string, Int32)] Source #

type Rep TpStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

type Rep TpStateGetResponse_Status = D1 ('MetaData "TpStateGetResponse_Status" "Data.Sawtooth.StateContext" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "TpStateGetResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "TpStateGetResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "TpStateGetResponse_StatusAUTHORIZATION_ERROR" 'PrefixI 'False) (U1 :: Type -> Type)))

data TpStateSetRequest Source #

Constructors

TpStateSetRequest 

Fields

Instances

Instances details
Eq TpStateSetRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

(==) :: TpStateSetRequest -> TpStateSetRequest -> Bool Source #

(/=) :: TpStateSetRequest -> TpStateSetRequest -> Bool Source #

Ord TpStateSetRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

compare :: TpStateSetRequest -> TpStateSetRequest -> Ordering Source #

(<) :: TpStateSetRequest -> TpStateSetRequest -> Bool Source #

(<=) :: TpStateSetRequest -> TpStateSetRequest -> Bool Source #

(>) :: TpStateSetRequest -> TpStateSetRequest -> Bool Source #

(>=) :: TpStateSetRequest -> TpStateSetRequest -> Bool Source #

max :: TpStateSetRequest -> TpStateSetRequest -> TpStateSetRequest Source #

min :: TpStateSetRequest -> TpStateSetRequest -> TpStateSetRequest Source #

Show TpStateSetRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

showsPrec :: Int -> TpStateSetRequest -> ShowS Source #

show :: TpStateSetRequest -> String Source #

showList :: [TpStateSetRequest] -> ShowS Source #

Generic TpStateSetRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Associated Types

type Rep TpStateSetRequest :: Type -> Type Source #

Methods

from :: TpStateSetRequest -> Rep TpStateSetRequest x Source #

to :: Rep TpStateSetRequest x -> TpStateSetRequest Source #

ToJSON TpStateSetRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

toJSON :: TpStateSetRequest -> Value Source #

toEncoding :: TpStateSetRequest -> Encoding Source #

toJSONList :: [TpStateSetRequest] -> Value Source #

toEncodingList :: [TpStateSetRequest] -> Encoding Source #

FromJSON TpStateSetRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

parseJSON :: Value -> Parser TpStateSetRequest Source #

parseJSONList :: Value -> Parser [TpStateSetRequest] Source #

NFData TpStateSetRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

rnf :: TpStateSetRequest -> () Source #

ToJSONPB TpStateSetRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

toJSONPB :: TpStateSetRequest -> Options -> Value Source #

toEncodingPB :: TpStateSetRequest -> Options -> Encoding Source #

FromJSONPB TpStateSetRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

parseJSONPB :: Value -> Parser TpStateSetRequest Source #

HasDefault TpStateSetRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

def :: TpStateSetRequest Source #

isDefault :: TpStateSetRequest -> Bool Source #

Named TpStateSetRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

nameOf :: IsString string => Proxy# TpStateSetRequest -> string Source #

Message TpStateSetRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

encodeMessage :: FieldNumber -> TpStateSetRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage TpStateSetRequest Source #

dotProto :: Proxy# TpStateSetRequest -> [DotProtoField] Source #

ToSchema TpStateSetRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

declareNamedSchema :: Proxy TpStateSetRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep TpStateSetRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

type Rep TpStateSetRequest = D1 ('MetaData "TpStateSetRequest" "Data.Sawtooth.StateContext" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "TpStateSetRequest" 'PrefixI 'True) (S1 ('MetaSel ('Just "tpStateSetRequestContextId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "tpStateSetRequestEntries") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector TpStateEntry))))

data TpStateSetResponse Source #

Constructors

TpStateSetResponse 

Fields

Instances

Instances details
Eq TpStateSetResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

(==) :: TpStateSetResponse -> TpStateSetResponse -> Bool Source #

(/=) :: TpStateSetResponse -> TpStateSetResponse -> Bool Source #

Ord TpStateSetResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

compare :: TpStateSetResponse -> TpStateSetResponse -> Ordering Source #

(<) :: TpStateSetResponse -> TpStateSetResponse -> Bool Source #

(<=) :: TpStateSetResponse -> TpStateSetResponse -> Bool Source #

(>) :: TpStateSetResponse -> TpStateSetResponse -> Bool Source #

(>=) :: TpStateSetResponse -> TpStateSetResponse -> Bool Source #

max :: TpStateSetResponse -> TpStateSetResponse -> TpStateSetResponse Source #

min :: TpStateSetResponse -> TpStateSetResponse -> TpStateSetResponse Source #

Show TpStateSetResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

showsPrec :: Int -> TpStateSetResponse -> ShowS Source #

show :: TpStateSetResponse -> String Source #

showList :: [TpStateSetResponse] -> ShowS Source #

Generic TpStateSetResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Associated Types

type Rep TpStateSetResponse :: Type -> Type Source #

Methods

from :: TpStateSetResponse -> Rep TpStateSetResponse x Source #

to :: Rep TpStateSetResponse x -> TpStateSetResponse Source #

ToJSON TpStateSetResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

toJSON :: TpStateSetResponse -> Value Source #

toEncoding :: TpStateSetResponse -> Encoding Source #

toJSONList :: [TpStateSetResponse] -> Value Source #

toEncodingList :: [TpStateSetResponse] -> Encoding Source #

FromJSON TpStateSetResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

parseJSON :: Value -> Parser TpStateSetResponse Source #

parseJSONList :: Value -> Parser [TpStateSetResponse] Source #

NFData TpStateSetResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

rnf :: TpStateSetResponse -> () Source #

ToJSONPB TpStateSetResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

toJSONPB :: TpStateSetResponse -> Options -> Value Source #

toEncodingPB :: TpStateSetResponse -> Options -> Encoding Source #

FromJSONPB TpStateSetResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

parseJSONPB :: Value -> Parser TpStateSetResponse Source #

HasDefault TpStateSetResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

def :: TpStateSetResponse Source #

isDefault :: TpStateSetResponse -> Bool Source #

Named TpStateSetResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

nameOf :: IsString string => Proxy# TpStateSetResponse -> string Source #

Message TpStateSetResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

encodeMessage :: FieldNumber -> TpStateSetResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage TpStateSetResponse Source #

dotProto :: Proxy# TpStateSetResponse -> [DotProtoField] Source #

ToSchema TpStateSetResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

declareNamedSchema :: Proxy TpStateSetResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep TpStateSetResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

type Rep TpStateSetResponse = D1 ('MetaData "TpStateSetResponse" "Data.Sawtooth.StateContext" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "TpStateSetResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "tpStateSetResponseAddresses") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Text)) :*: S1 ('MetaSel ('Just "tpStateSetResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated TpStateSetResponse_Status))))

data TpStateSetResponse_Status Source #

Constructors

TpStateSetResponse_StatusSTATUS_UNSET 
TpStateSetResponse_StatusOK 
TpStateSetResponse_StatusAUTHORIZATION_ERROR 

Instances

Instances details
Bounded TpStateSetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

minBound :: TpStateSetResponse_Status Source #

maxBound :: TpStateSetResponse_Status Source #

Eq TpStateSetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

(==) :: TpStateSetResponse_Status -> TpStateSetResponse_Status -> Bool Source #

(/=) :: TpStateSetResponse_Status -> TpStateSetResponse_Status -> Bool Source #

Ord TpStateSetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

compare :: TpStateSetResponse_Status -> TpStateSetResponse_Status -> Ordering Source #

(<) :: TpStateSetResponse_Status -> TpStateSetResponse_Status -> Bool Source #

(<=) :: TpStateSetResponse_Status -> TpStateSetResponse_Status -> Bool Source #

(>) :: TpStateSetResponse_Status -> TpStateSetResponse_Status -> Bool Source #

(>=) :: TpStateSetResponse_Status -> TpStateSetResponse_Status -> Bool Source #

max :: TpStateSetResponse_Status -> TpStateSetResponse_Status -> TpStateSetResponse_Status Source #

min :: TpStateSetResponse_Status -> TpStateSetResponse_Status -> TpStateSetResponse_Status Source #

Show TpStateSetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

showsPrec :: Int -> TpStateSetResponse_Status -> ShowS Source #

show :: TpStateSetResponse_Status -> String Source #

showList :: [TpStateSetResponse_Status] -> ShowS Source #

Generic TpStateSetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Associated Types

type Rep TpStateSetResponse_Status :: Type -> Type Source #

Methods

from :: TpStateSetResponse_Status -> Rep TpStateSetResponse_Status x Source #

to :: Rep TpStateSetResponse_Status x -> TpStateSetResponse_Status Source #

ToJSON TpStateSetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

toJSON :: TpStateSetResponse_Status -> Value Source #

toEncoding :: TpStateSetResponse_Status -> Encoding Source #

toJSONList :: [TpStateSetResponse_Status] -> Value Source #

toEncodingList :: [TpStateSetResponse_Status] -> Encoding Source #

FromJSON TpStateSetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

parseJSON :: Value -> Parser TpStateSetResponse_Status Source #

parseJSONList :: Value -> Parser [TpStateSetResponse_Status] Source #

NFData TpStateSetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

rnf :: TpStateSetResponse_Status -> () Source #

ProtoEnum TpStateSetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

toProtoEnumMay :: Int32 -> Maybe TpStateSetResponse_Status Source #

fromProtoEnum :: TpStateSetResponse_Status -> Int32 Source #

ToJSONPB TpStateSetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

toJSONPB :: TpStateSetResponse_Status -> Options -> Value Source #

toEncodingPB :: TpStateSetResponse_Status -> Options -> Encoding Source #

FromJSONPB TpStateSetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

parseJSONPB :: Value -> Parser TpStateSetResponse_Status Source #

HasDefault TpStateSetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

def :: TpStateSetResponse_Status Source #

isDefault :: TpStateSetResponse_Status -> Bool Source #

Named TpStateSetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

nameOf :: IsString string => Proxy# TpStateSetResponse_Status -> string Source #

Finite TpStateSetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

enumerate :: IsString string => Proxy# TpStateSetResponse_Status -> [(string, Int32)] Source #

type Rep TpStateSetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

type Rep TpStateSetResponse_Status = D1 ('MetaData "TpStateSetResponse_Status" "Data.Sawtooth.StateContext" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "TpStateSetResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "TpStateSetResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "TpStateSetResponse_StatusAUTHORIZATION_ERROR" 'PrefixI 'False) (U1 :: Type -> Type)))

data TpStateDeleteRequest Source #

Constructors

TpStateDeleteRequest 

Fields

Instances

Instances details
Eq TpStateDeleteRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

(==) :: TpStateDeleteRequest -> TpStateDeleteRequest -> Bool Source #

(/=) :: TpStateDeleteRequest -> TpStateDeleteRequest -> Bool Source #

Ord TpStateDeleteRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

compare :: TpStateDeleteRequest -> TpStateDeleteRequest -> Ordering Source #

(<) :: TpStateDeleteRequest -> TpStateDeleteRequest -> Bool Source #

(<=) :: TpStateDeleteRequest -> TpStateDeleteRequest -> Bool Source #

(>) :: TpStateDeleteRequest -> TpStateDeleteRequest -> Bool Source #

(>=) :: TpStateDeleteRequest -> TpStateDeleteRequest -> Bool Source #

max :: TpStateDeleteRequest -> TpStateDeleteRequest -> TpStateDeleteRequest Source #

min :: TpStateDeleteRequest -> TpStateDeleteRequest -> TpStateDeleteRequest Source #

Show TpStateDeleteRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

showsPrec :: Int -> TpStateDeleteRequest -> ShowS Source #

show :: TpStateDeleteRequest -> String Source #

showList :: [TpStateDeleteRequest] -> ShowS Source #

Generic TpStateDeleteRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Associated Types

type Rep TpStateDeleteRequest :: Type -> Type Source #

Methods

from :: TpStateDeleteRequest -> Rep TpStateDeleteRequest x Source #

to :: Rep TpStateDeleteRequest x -> TpStateDeleteRequest Source #

ToJSON TpStateDeleteRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

toJSON :: TpStateDeleteRequest -> Value Source #

toEncoding :: TpStateDeleteRequest -> Encoding Source #

toJSONList :: [TpStateDeleteRequest] -> Value Source #

toEncodingList :: [TpStateDeleteRequest] -> Encoding Source #

FromJSON TpStateDeleteRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

parseJSON :: Value -> Parser TpStateDeleteRequest Source #

parseJSONList :: Value -> Parser [TpStateDeleteRequest] Source #

NFData TpStateDeleteRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

rnf :: TpStateDeleteRequest -> () Source #

ToJSONPB TpStateDeleteRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

toJSONPB :: TpStateDeleteRequest -> Options -> Value Source #

toEncodingPB :: TpStateDeleteRequest -> Options -> Encoding Source #

FromJSONPB TpStateDeleteRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

parseJSONPB :: Value -> Parser TpStateDeleteRequest Source #

HasDefault TpStateDeleteRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

def :: TpStateDeleteRequest Source #

isDefault :: TpStateDeleteRequest -> Bool Source #

Named TpStateDeleteRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

nameOf :: IsString string => Proxy# TpStateDeleteRequest -> string Source #

Message TpStateDeleteRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

encodeMessage :: FieldNumber -> TpStateDeleteRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage TpStateDeleteRequest Source #

dotProto :: Proxy# TpStateDeleteRequest -> [DotProtoField] Source #

ToSchema TpStateDeleteRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

declareNamedSchema :: Proxy TpStateDeleteRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep TpStateDeleteRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

type Rep TpStateDeleteRequest = D1 ('MetaData "TpStateDeleteRequest" "Data.Sawtooth.StateContext" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "TpStateDeleteRequest" 'PrefixI 'True) (S1 ('MetaSel ('Just "tpStateDeleteRequestContextId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "tpStateDeleteRequestAddresses") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Text))))

data TpStateDeleteResponse Source #

Constructors

TpStateDeleteResponse 

Fields

Instances

Instances details
Eq TpStateDeleteResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

(==) :: TpStateDeleteResponse -> TpStateDeleteResponse -> Bool Source #

(/=) :: TpStateDeleteResponse -> TpStateDeleteResponse -> Bool Source #

Ord TpStateDeleteResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

compare :: TpStateDeleteResponse -> TpStateDeleteResponse -> Ordering Source #

(<) :: TpStateDeleteResponse -> TpStateDeleteResponse -> Bool Source #

(<=) :: TpStateDeleteResponse -> TpStateDeleteResponse -> Bool Source #

(>) :: TpStateDeleteResponse -> TpStateDeleteResponse -> Bool Source #

(>=) :: TpStateDeleteResponse -> TpStateDeleteResponse -> Bool Source #

max :: TpStateDeleteResponse -> TpStateDeleteResponse -> TpStateDeleteResponse Source #

min :: TpStateDeleteResponse -> TpStateDeleteResponse -> TpStateDeleteResponse Source #

Show TpStateDeleteResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

showsPrec :: Int -> TpStateDeleteResponse -> ShowS Source #

show :: TpStateDeleteResponse -> String Source #

showList :: [TpStateDeleteResponse] -> ShowS Source #

Generic TpStateDeleteResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Associated Types

type Rep TpStateDeleteResponse :: Type -> Type Source #

Methods

from :: TpStateDeleteResponse -> Rep TpStateDeleteResponse x Source #

to :: Rep TpStateDeleteResponse x -> TpStateDeleteResponse Source #

ToJSON TpStateDeleteResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

toJSON :: TpStateDeleteResponse -> Value Source #

toEncoding :: TpStateDeleteResponse -> Encoding Source #

toJSONList :: [TpStateDeleteResponse] -> Value Source #

toEncodingList :: [TpStateDeleteResponse] -> Encoding Source #

FromJSON TpStateDeleteResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

parseJSON :: Value -> Parser TpStateDeleteResponse Source #

parseJSONList :: Value -> Parser [TpStateDeleteResponse] Source #

NFData TpStateDeleteResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

rnf :: TpStateDeleteResponse -> () Source #

ToJSONPB TpStateDeleteResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

toJSONPB :: TpStateDeleteResponse -> Options -> Value Source #

toEncodingPB :: TpStateDeleteResponse -> Options -> Encoding Source #

FromJSONPB TpStateDeleteResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

parseJSONPB :: Value -> Parser TpStateDeleteResponse Source #

HasDefault TpStateDeleteResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

def :: TpStateDeleteResponse Source #

isDefault :: TpStateDeleteResponse -> Bool Source #

Named TpStateDeleteResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

nameOf :: IsString string => Proxy# TpStateDeleteResponse -> string Source #

Message TpStateDeleteResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

encodeMessage :: FieldNumber -> TpStateDeleteResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage TpStateDeleteResponse Source #

dotProto :: Proxy# TpStateDeleteResponse -> [DotProtoField] Source #

ToSchema TpStateDeleteResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

declareNamedSchema :: Proxy TpStateDeleteResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep TpStateDeleteResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

type Rep TpStateDeleteResponse = D1 ('MetaData "TpStateDeleteResponse" "Data.Sawtooth.StateContext" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "TpStateDeleteResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "tpStateDeleteResponseAddresses") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Text)) :*: S1 ('MetaSel ('Just "tpStateDeleteResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated TpStateDeleteResponse_Status))))

data TpStateDeleteResponse_Status Source #

Constructors

TpStateDeleteResponse_StatusSTATUS_UNSET 
TpStateDeleteResponse_StatusOK 
TpStateDeleteResponse_StatusAUTHORIZATION_ERROR 

Instances

Instances details
Bounded TpStateDeleteResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

minBound :: TpStateDeleteResponse_Status Source #

maxBound :: TpStateDeleteResponse_Status Source #

Eq TpStateDeleteResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

(==) :: TpStateDeleteResponse_Status -> TpStateDeleteResponse_Status -> Bool Source #

(/=) :: TpStateDeleteResponse_Status -> TpStateDeleteResponse_Status -> Bool Source #

Ord TpStateDeleteResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

compare :: TpStateDeleteResponse_Status -> TpStateDeleteResponse_Status -> Ordering Source #

(<) :: TpStateDeleteResponse_Status -> TpStateDeleteResponse_Status -> Bool Source #

(<=) :: TpStateDeleteResponse_Status -> TpStateDeleteResponse_Status -> Bool Source #

(>) :: TpStateDeleteResponse_Status -> TpStateDeleteResponse_Status -> Bool Source #

(>=) :: TpStateDeleteResponse_Status -> TpStateDeleteResponse_Status -> Bool Source #

max :: TpStateDeleteResponse_Status -> TpStateDeleteResponse_Status -> TpStateDeleteResponse_Status Source #

min :: TpStateDeleteResponse_Status -> TpStateDeleteResponse_Status -> TpStateDeleteResponse_Status Source #

Show TpStateDeleteResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

showsPrec :: Int -> TpStateDeleteResponse_Status -> ShowS Source #

show :: TpStateDeleteResponse_Status -> String Source #

showList :: [TpStateDeleteResponse_Status] -> ShowS Source #

Generic TpStateDeleteResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Associated Types

type Rep TpStateDeleteResponse_Status :: Type -> Type Source #

Methods

from :: TpStateDeleteResponse_Status -> Rep TpStateDeleteResponse_Status x Source #

to :: Rep TpStateDeleteResponse_Status x -> TpStateDeleteResponse_Status Source #

ToJSON TpStateDeleteResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

toJSON :: TpStateDeleteResponse_Status -> Value Source #

toEncoding :: TpStateDeleteResponse_Status -> Encoding Source #

toJSONList :: [TpStateDeleteResponse_Status] -> Value Source #

toEncodingList :: [TpStateDeleteResponse_Status] -> Encoding Source #

FromJSON TpStateDeleteResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

parseJSON :: Value -> Parser TpStateDeleteResponse_Status Source #

parseJSONList :: Value -> Parser [TpStateDeleteResponse_Status] Source #

NFData TpStateDeleteResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

rnf :: TpStateDeleteResponse_Status -> () Source #

ProtoEnum TpStateDeleteResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

toProtoEnumMay :: Int32 -> Maybe TpStateDeleteResponse_Status Source #

fromProtoEnum :: TpStateDeleteResponse_Status -> Int32 Source #

ToJSONPB TpStateDeleteResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

toJSONPB :: TpStateDeleteResponse_Status -> Options -> Value Source #

toEncodingPB :: TpStateDeleteResponse_Status -> Options -> Encoding Source #

FromJSONPB TpStateDeleteResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

parseJSONPB :: Value -> Parser TpStateDeleteResponse_Status Source #

HasDefault TpStateDeleteResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

def :: TpStateDeleteResponse_Status Source #

isDefault :: TpStateDeleteResponse_Status -> Bool Source #

Named TpStateDeleteResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

nameOf :: IsString string => Proxy# TpStateDeleteResponse_Status -> string Source #

Finite TpStateDeleteResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

enumerate :: IsString string => Proxy# TpStateDeleteResponse_Status -> [(string, Int32)] Source #

type Rep TpStateDeleteResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

type Rep TpStateDeleteResponse_Status = D1 ('MetaData "TpStateDeleteResponse_Status" "Data.Sawtooth.StateContext" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "TpStateDeleteResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "TpStateDeleteResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "TpStateDeleteResponse_StatusAUTHORIZATION_ERROR" 'PrefixI 'False) (U1 :: Type -> Type)))

data TpReceiptAddDataRequest Source #

Constructors

TpReceiptAddDataRequest 

Fields

Instances

Instances details
Eq TpReceiptAddDataRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

(==) :: TpReceiptAddDataRequest -> TpReceiptAddDataRequest -> Bool Source #

(/=) :: TpReceiptAddDataRequest -> TpReceiptAddDataRequest -> Bool Source #

Ord TpReceiptAddDataRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

compare :: TpReceiptAddDataRequest -> TpReceiptAddDataRequest -> Ordering Source #

(<) :: TpReceiptAddDataRequest -> TpReceiptAddDataRequest -> Bool Source #

(<=) :: TpReceiptAddDataRequest -> TpReceiptAddDataRequest -> Bool Source #

(>) :: TpReceiptAddDataRequest -> TpReceiptAddDataRequest -> Bool Source #

(>=) :: TpReceiptAddDataRequest -> TpReceiptAddDataRequest -> Bool Source #

max :: TpReceiptAddDataRequest -> TpReceiptAddDataRequest -> TpReceiptAddDataRequest Source #

min :: TpReceiptAddDataRequest -> TpReceiptAddDataRequest -> TpReceiptAddDataRequest Source #

Show TpReceiptAddDataRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

showsPrec :: Int -> TpReceiptAddDataRequest -> ShowS Source #

show :: TpReceiptAddDataRequest -> String Source #

showList :: [TpReceiptAddDataRequest] -> ShowS Source #

Generic TpReceiptAddDataRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Associated Types

type Rep TpReceiptAddDataRequest :: Type -> Type Source #

Methods

from :: TpReceiptAddDataRequest -> Rep TpReceiptAddDataRequest x Source #

to :: Rep TpReceiptAddDataRequest x -> TpReceiptAddDataRequest Source #

ToJSON TpReceiptAddDataRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

toJSON :: TpReceiptAddDataRequest -> Value Source #

toEncoding :: TpReceiptAddDataRequest -> Encoding Source #

toJSONList :: [TpReceiptAddDataRequest] -> Value Source #

toEncodingList :: [TpReceiptAddDataRequest] -> Encoding Source #

FromJSON TpReceiptAddDataRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

parseJSON :: Value -> Parser TpReceiptAddDataRequest Source #

parseJSONList :: Value -> Parser [TpReceiptAddDataRequest] Source #

NFData TpReceiptAddDataRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

rnf :: TpReceiptAddDataRequest -> () Source #

ToJSONPB TpReceiptAddDataRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

toJSONPB :: TpReceiptAddDataRequest -> Options -> Value Source #

toEncodingPB :: TpReceiptAddDataRequest -> Options -> Encoding Source #

FromJSONPB TpReceiptAddDataRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

parseJSONPB :: Value -> Parser TpReceiptAddDataRequest Source #

HasDefault TpReceiptAddDataRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

def :: TpReceiptAddDataRequest Source #

isDefault :: TpReceiptAddDataRequest -> Bool Source #

Named TpReceiptAddDataRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

nameOf :: IsString string => Proxy# TpReceiptAddDataRequest -> string Source #

Message TpReceiptAddDataRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

encodeMessage :: FieldNumber -> TpReceiptAddDataRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage TpReceiptAddDataRequest Source #

dotProto :: Proxy# TpReceiptAddDataRequest -> [DotProtoField] Source #

ToSchema TpReceiptAddDataRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

declareNamedSchema :: Proxy TpReceiptAddDataRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep TpReceiptAddDataRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

type Rep TpReceiptAddDataRequest = D1 ('MetaData "TpReceiptAddDataRequest" "Data.Sawtooth.StateContext" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "TpReceiptAddDataRequest" 'PrefixI 'True) (S1 ('MetaSel ('Just "tpReceiptAddDataRequestContextId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "tpReceiptAddDataRequestData") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString)))

newtype TpReceiptAddDataResponse Source #

Constructors

TpReceiptAddDataResponse 

Fields

Instances

Instances details
Eq TpReceiptAddDataResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

(==) :: TpReceiptAddDataResponse -> TpReceiptAddDataResponse -> Bool Source #

(/=) :: TpReceiptAddDataResponse -> TpReceiptAddDataResponse -> Bool Source #

Ord TpReceiptAddDataResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

compare :: TpReceiptAddDataResponse -> TpReceiptAddDataResponse -> Ordering Source #

(<) :: TpReceiptAddDataResponse -> TpReceiptAddDataResponse -> Bool Source #

(<=) :: TpReceiptAddDataResponse -> TpReceiptAddDataResponse -> Bool Source #

(>) :: TpReceiptAddDataResponse -> TpReceiptAddDataResponse -> Bool Source #

(>=) :: TpReceiptAddDataResponse -> TpReceiptAddDataResponse -> Bool Source #

max :: TpReceiptAddDataResponse -> TpReceiptAddDataResponse -> TpReceiptAddDataResponse Source #

min :: TpReceiptAddDataResponse -> TpReceiptAddDataResponse -> TpReceiptAddDataResponse Source #

Show TpReceiptAddDataResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

showsPrec :: Int -> TpReceiptAddDataResponse -> ShowS Source #

show :: TpReceiptAddDataResponse -> String Source #

showList :: [TpReceiptAddDataResponse] -> ShowS Source #

Generic TpReceiptAddDataResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Associated Types

type Rep TpReceiptAddDataResponse :: Type -> Type Source #

Methods

from :: TpReceiptAddDataResponse -> Rep TpReceiptAddDataResponse x Source #

to :: Rep TpReceiptAddDataResponse x -> TpReceiptAddDataResponse Source #

ToJSON TpReceiptAddDataResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

toJSON :: TpReceiptAddDataResponse -> Value Source #

toEncoding :: TpReceiptAddDataResponse -> Encoding Source #

toJSONList :: [TpReceiptAddDataResponse] -> Value Source #

toEncodingList :: [TpReceiptAddDataResponse] -> Encoding Source #

FromJSON TpReceiptAddDataResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

parseJSON :: Value -> Parser TpReceiptAddDataResponse Source #

parseJSONList :: Value -> Parser [TpReceiptAddDataResponse] Source #

NFData TpReceiptAddDataResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

rnf :: TpReceiptAddDataResponse -> () Source #

ToJSONPB TpReceiptAddDataResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

toJSONPB :: TpReceiptAddDataResponse -> Options -> Value Source #

toEncodingPB :: TpReceiptAddDataResponse -> Options -> Encoding Source #

FromJSONPB TpReceiptAddDataResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

parseJSONPB :: Value -> Parser TpReceiptAddDataResponse Source #

HasDefault TpReceiptAddDataResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

def :: TpReceiptAddDataResponse Source #

isDefault :: TpReceiptAddDataResponse -> Bool Source #

Named TpReceiptAddDataResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

nameOf :: IsString string => Proxy# TpReceiptAddDataResponse -> string Source #

Message TpReceiptAddDataResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

encodeMessage :: FieldNumber -> TpReceiptAddDataResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage TpReceiptAddDataResponse Source #

dotProto :: Proxy# TpReceiptAddDataResponse -> [DotProtoField] Source #

ToSchema TpReceiptAddDataResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

declareNamedSchema :: Proxy TpReceiptAddDataResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep TpReceiptAddDataResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

type Rep TpReceiptAddDataResponse = D1 ('MetaData "TpReceiptAddDataResponse" "Data.Sawtooth.StateContext" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'True) (C1 ('MetaCons "TpReceiptAddDataResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "tpReceiptAddDataResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated TpReceiptAddDataResponse_Status))))

data TpReceiptAddDataResponse_Status Source #

Constructors

TpReceiptAddDataResponse_StatusSTATUS_UNSET 
TpReceiptAddDataResponse_StatusOK 
TpReceiptAddDataResponse_StatusERROR 

Instances

Instances details
Bounded TpReceiptAddDataResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

minBound :: TpReceiptAddDataResponse_Status Source #

maxBound :: TpReceiptAddDataResponse_Status Source #

Eq TpReceiptAddDataResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

(==) :: TpReceiptAddDataResponse_Status -> TpReceiptAddDataResponse_Status -> Bool Source #

(/=) :: TpReceiptAddDataResponse_Status -> TpReceiptAddDataResponse_Status -> Bool Source #

Ord TpReceiptAddDataResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

compare :: TpReceiptAddDataResponse_Status -> TpReceiptAddDataResponse_Status -> Ordering Source #

(<) :: TpReceiptAddDataResponse_Status -> TpReceiptAddDataResponse_Status -> Bool Source #

(<=) :: TpReceiptAddDataResponse_Status -> TpReceiptAddDataResponse_Status -> Bool Source #

(>) :: TpReceiptAddDataResponse_Status -> TpReceiptAddDataResponse_Status -> Bool Source #

(>=) :: TpReceiptAddDataResponse_Status -> TpReceiptAddDataResponse_Status -> Bool Source #

max :: TpReceiptAddDataResponse_Status -> TpReceiptAddDataResponse_Status -> TpReceiptAddDataResponse_Status Source #

min :: TpReceiptAddDataResponse_Status -> TpReceiptAddDataResponse_Status -> TpReceiptAddDataResponse_Status Source #

Show TpReceiptAddDataResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

showsPrec :: Int -> TpReceiptAddDataResponse_Status -> ShowS Source #

show :: TpReceiptAddDataResponse_Status -> String Source #

showList :: [TpReceiptAddDataResponse_Status] -> ShowS Source #

Generic TpReceiptAddDataResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Associated Types

type Rep TpReceiptAddDataResponse_Status :: Type -> Type Source #

Methods

from :: TpReceiptAddDataResponse_Status -> Rep TpReceiptAddDataResponse_Status x Source #

to :: Rep TpReceiptAddDataResponse_Status x -> TpReceiptAddDataResponse_Status Source #

ToJSON TpReceiptAddDataResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

toJSON :: TpReceiptAddDataResponse_Status -> Value Source #

toEncoding :: TpReceiptAddDataResponse_Status -> Encoding Source #

toJSONList :: [TpReceiptAddDataResponse_Status] -> Value Source #

toEncodingList :: [TpReceiptAddDataResponse_Status] -> Encoding Source #

FromJSON TpReceiptAddDataResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

parseJSON :: Value -> Parser TpReceiptAddDataResponse_Status Source #

parseJSONList :: Value -> Parser [TpReceiptAddDataResponse_Status] Source #

NFData TpReceiptAddDataResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

rnf :: TpReceiptAddDataResponse_Status -> () Source #

ProtoEnum TpReceiptAddDataResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

toProtoEnumMay :: Int32 -> Maybe TpReceiptAddDataResponse_Status Source #

fromProtoEnum :: TpReceiptAddDataResponse_Status -> Int32 Source #

ToJSONPB TpReceiptAddDataResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

toJSONPB :: TpReceiptAddDataResponse_Status -> Options -> Value Source #

toEncodingPB :: TpReceiptAddDataResponse_Status -> Options -> Encoding Source #

FromJSONPB TpReceiptAddDataResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

parseJSONPB :: Value -> Parser TpReceiptAddDataResponse_Status Source #

HasDefault TpReceiptAddDataResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

def :: TpReceiptAddDataResponse_Status Source #

isDefault :: TpReceiptAddDataResponse_Status -> Bool Source #

Named TpReceiptAddDataResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

nameOf :: IsString string => Proxy# TpReceiptAddDataResponse_Status -> string Source #

Finite TpReceiptAddDataResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

enumerate :: IsString string => Proxy# TpReceiptAddDataResponse_Status -> [(string, Int32)] Source #

type Rep TpReceiptAddDataResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

type Rep TpReceiptAddDataResponse_Status = D1 ('MetaData "TpReceiptAddDataResponse_Status" "Data.Sawtooth.StateContext" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "TpReceiptAddDataResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "TpReceiptAddDataResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "TpReceiptAddDataResponse_StatusERROR" 'PrefixI 'False) (U1 :: Type -> Type)))

data TpEventAddRequest Source #

Constructors

TpEventAddRequest 

Fields

Instances

Instances details
Eq TpEventAddRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

(==) :: TpEventAddRequest -> TpEventAddRequest -> Bool Source #

(/=) :: TpEventAddRequest -> TpEventAddRequest -> Bool Source #

Ord TpEventAddRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

compare :: TpEventAddRequest -> TpEventAddRequest -> Ordering Source #

(<) :: TpEventAddRequest -> TpEventAddRequest -> Bool Source #

(<=) :: TpEventAddRequest -> TpEventAddRequest -> Bool Source #

(>) :: TpEventAddRequest -> TpEventAddRequest -> Bool Source #

(>=) :: TpEventAddRequest -> TpEventAddRequest -> Bool Source #

max :: TpEventAddRequest -> TpEventAddRequest -> TpEventAddRequest Source #

min :: TpEventAddRequest -> TpEventAddRequest -> TpEventAddRequest Source #

Show TpEventAddRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

showsPrec :: Int -> TpEventAddRequest -> ShowS Source #

show :: TpEventAddRequest -> String Source #

showList :: [TpEventAddRequest] -> ShowS Source #

Generic TpEventAddRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Associated Types

type Rep TpEventAddRequest :: Type -> Type Source #

Methods

from :: TpEventAddRequest -> Rep TpEventAddRequest x Source #

to :: Rep TpEventAddRequest x -> TpEventAddRequest Source #

ToJSON TpEventAddRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

toJSON :: TpEventAddRequest -> Value Source #

toEncoding :: TpEventAddRequest -> Encoding Source #

toJSONList :: [TpEventAddRequest] -> Value Source #

toEncodingList :: [TpEventAddRequest] -> Encoding Source #

FromJSON TpEventAddRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

parseJSON :: Value -> Parser TpEventAddRequest Source #

parseJSONList :: Value -> Parser [TpEventAddRequest] Source #

NFData TpEventAddRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

rnf :: TpEventAddRequest -> () Source #

ToJSONPB TpEventAddRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

toJSONPB :: TpEventAddRequest -> Options -> Value Source #

toEncodingPB :: TpEventAddRequest -> Options -> Encoding Source #

FromJSONPB TpEventAddRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

parseJSONPB :: Value -> Parser TpEventAddRequest Source #

HasDefault TpEventAddRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

def :: TpEventAddRequest Source #

isDefault :: TpEventAddRequest -> Bool Source #

Named TpEventAddRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

nameOf :: IsString string => Proxy# TpEventAddRequest -> string Source #

Message TpEventAddRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

encodeMessage :: FieldNumber -> TpEventAddRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage TpEventAddRequest Source #

dotProto :: Proxy# TpEventAddRequest -> [DotProtoField] Source #

ToSchema TpEventAddRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

declareNamedSchema :: Proxy TpEventAddRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep TpEventAddRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

type Rep TpEventAddRequest = D1 ('MetaData "TpEventAddRequest" "Data.Sawtooth.StateContext" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "TpEventAddRequest" 'PrefixI 'True) (S1 ('MetaSel ('Just "tpEventAddRequestContextId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "tpEventAddRequestEvent") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe Event))))

newtype TpEventAddResponse Source #

Constructors

TpEventAddResponse 

Fields

Instances

Instances details
Eq TpEventAddResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

(==) :: TpEventAddResponse -> TpEventAddResponse -> Bool Source #

(/=) :: TpEventAddResponse -> TpEventAddResponse -> Bool Source #

Ord TpEventAddResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

compare :: TpEventAddResponse -> TpEventAddResponse -> Ordering Source #

(<) :: TpEventAddResponse -> TpEventAddResponse -> Bool Source #

(<=) :: TpEventAddResponse -> TpEventAddResponse -> Bool Source #

(>) :: TpEventAddResponse -> TpEventAddResponse -> Bool Source #

(>=) :: TpEventAddResponse -> TpEventAddResponse -> Bool Source #

max :: TpEventAddResponse -> TpEventAddResponse -> TpEventAddResponse Source #

min :: TpEventAddResponse -> TpEventAddResponse -> TpEventAddResponse Source #

Show TpEventAddResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

showsPrec :: Int -> TpEventAddResponse -> ShowS Source #

show :: TpEventAddResponse -> String Source #

showList :: [TpEventAddResponse] -> ShowS Source #

Generic TpEventAddResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Associated Types

type Rep TpEventAddResponse :: Type -> Type Source #

Methods

from :: TpEventAddResponse -> Rep TpEventAddResponse x Source #

to :: Rep TpEventAddResponse x -> TpEventAddResponse Source #

ToJSON TpEventAddResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

toJSON :: TpEventAddResponse -> Value Source #

toEncoding :: TpEventAddResponse -> Encoding Source #

toJSONList :: [TpEventAddResponse] -> Value Source #

toEncodingList :: [TpEventAddResponse] -> Encoding Source #

FromJSON TpEventAddResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

parseJSON :: Value -> Parser TpEventAddResponse Source #

parseJSONList :: Value -> Parser [TpEventAddResponse] Source #

NFData TpEventAddResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

rnf :: TpEventAddResponse -> () Source #

ToJSONPB TpEventAddResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

toJSONPB :: TpEventAddResponse -> Options -> Value Source #

toEncodingPB :: TpEventAddResponse -> Options -> Encoding Source #

FromJSONPB TpEventAddResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

parseJSONPB :: Value -> Parser TpEventAddResponse Source #

HasDefault TpEventAddResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

def :: TpEventAddResponse Source #

isDefault :: TpEventAddResponse -> Bool Source #

Named TpEventAddResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

nameOf :: IsString string => Proxy# TpEventAddResponse -> string Source #

Message TpEventAddResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

encodeMessage :: FieldNumber -> TpEventAddResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage TpEventAddResponse Source #

dotProto :: Proxy# TpEventAddResponse -> [DotProtoField] Source #

ToSchema TpEventAddResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

declareNamedSchema :: Proxy TpEventAddResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep TpEventAddResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

type Rep TpEventAddResponse = D1 ('MetaData "TpEventAddResponse" "Data.Sawtooth.StateContext" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'True) (C1 ('MetaCons "TpEventAddResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "tpEventAddResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated TpEventAddResponse_Status))))

data TpEventAddResponse_Status Source #

Constructors

TpEventAddResponse_StatusSTATUS_UNSET 
TpEventAddResponse_StatusOK 
TpEventAddResponse_StatusERROR 

Instances

Instances details
Bounded TpEventAddResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

minBound :: TpEventAddResponse_Status Source #

maxBound :: TpEventAddResponse_Status Source #

Eq TpEventAddResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

(==) :: TpEventAddResponse_Status -> TpEventAddResponse_Status -> Bool Source #

(/=) :: TpEventAddResponse_Status -> TpEventAddResponse_Status -> Bool Source #

Ord TpEventAddResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

compare :: TpEventAddResponse_Status -> TpEventAddResponse_Status -> Ordering Source #

(<) :: TpEventAddResponse_Status -> TpEventAddResponse_Status -> Bool Source #

(<=) :: TpEventAddResponse_Status -> TpEventAddResponse_Status -> Bool Source #

(>) :: TpEventAddResponse_Status -> TpEventAddResponse_Status -> Bool Source #

(>=) :: TpEventAddResponse_Status -> TpEventAddResponse_Status -> Bool Source #

max :: TpEventAddResponse_Status -> TpEventAddResponse_Status -> TpEventAddResponse_Status Source #

min :: TpEventAddResponse_Status -> TpEventAddResponse_Status -> TpEventAddResponse_Status Source #

Show TpEventAddResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

showsPrec :: Int -> TpEventAddResponse_Status -> ShowS Source #

show :: TpEventAddResponse_Status -> String Source #

showList :: [TpEventAddResponse_Status] -> ShowS Source #

Generic TpEventAddResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Associated Types

type Rep TpEventAddResponse_Status :: Type -> Type Source #

Methods

from :: TpEventAddResponse_Status -> Rep TpEventAddResponse_Status x Source #

to :: Rep TpEventAddResponse_Status x -> TpEventAddResponse_Status Source #

ToJSON TpEventAddResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

toJSON :: TpEventAddResponse_Status -> Value Source #

toEncoding :: TpEventAddResponse_Status -> Encoding Source #

toJSONList :: [TpEventAddResponse_Status] -> Value Source #

toEncodingList :: [TpEventAddResponse_Status] -> Encoding Source #

FromJSON TpEventAddResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

parseJSON :: Value -> Parser TpEventAddResponse_Status Source #

parseJSONList :: Value -> Parser [TpEventAddResponse_Status] Source #

NFData TpEventAddResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

rnf :: TpEventAddResponse_Status -> () Source #

ProtoEnum TpEventAddResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

toProtoEnumMay :: Int32 -> Maybe TpEventAddResponse_Status Source #

fromProtoEnum :: TpEventAddResponse_Status -> Int32 Source #

ToJSONPB TpEventAddResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

toJSONPB :: TpEventAddResponse_Status -> Options -> Value Source #

toEncodingPB :: TpEventAddResponse_Status -> Options -> Encoding Source #

FromJSONPB TpEventAddResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

parseJSONPB :: Value -> Parser TpEventAddResponse_Status Source #

HasDefault TpEventAddResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

def :: TpEventAddResponse_Status Source #

isDefault :: TpEventAddResponse_Status -> Bool Source #

Named TpEventAddResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

nameOf :: IsString string => Proxy# TpEventAddResponse_Status -> string Source #

Finite TpEventAddResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

enumerate :: IsString string => Proxy# TpEventAddResponse_Status -> [(string, Int32)] Source #

type Rep TpEventAddResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

type Rep TpEventAddResponse_Status = D1 ('MetaData "TpEventAddResponse_Status" "Data.Sawtooth.StateContext" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "TpEventAddResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "TpEventAddResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "TpEventAddResponse_StatusERROR" 'PrefixI 'False) (U1 :: Type -> Type)))
\ No newline at end of file +Data.Sawtooth.StateContext
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types
Safe HaskellNone
LanguageHaskell2010

Data.Sawtooth.StateContext

Description

Generated by Haskell protocol buffer compiler. DO NOT EDIT!

Documentation

data TpStateEntry Source #

Constructors

TpStateEntry 

Fields

Instances

Instances details
Eq TpStateEntry Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

(==) :: TpStateEntry -> TpStateEntry -> Bool Source #

(/=) :: TpStateEntry -> TpStateEntry -> Bool Source #

Ord TpStateEntry Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

compare :: TpStateEntry -> TpStateEntry -> Ordering Source #

(<) :: TpStateEntry -> TpStateEntry -> Bool Source #

(<=) :: TpStateEntry -> TpStateEntry -> Bool Source #

(>) :: TpStateEntry -> TpStateEntry -> Bool Source #

(>=) :: TpStateEntry -> TpStateEntry -> Bool Source #

max :: TpStateEntry -> TpStateEntry -> TpStateEntry Source #

min :: TpStateEntry -> TpStateEntry -> TpStateEntry Source #

Show TpStateEntry Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

showsPrec :: Int -> TpStateEntry -> ShowS Source #

show :: TpStateEntry -> String Source #

showList :: [TpStateEntry] -> ShowS Source #

Generic TpStateEntry Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Associated Types

type Rep TpStateEntry :: Type -> Type Source #

Methods

from :: TpStateEntry -> Rep TpStateEntry x Source #

to :: Rep TpStateEntry x -> TpStateEntry Source #

ToJSON TpStateEntry Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

toJSON :: TpStateEntry -> Value Source #

toEncoding :: TpStateEntry -> Encoding Source #

toJSONList :: [TpStateEntry] -> Value Source #

toEncodingList :: [TpStateEntry] -> Encoding Source #

FromJSON TpStateEntry Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

parseJSON :: Value -> Parser TpStateEntry Source #

parseJSONList :: Value -> Parser [TpStateEntry] Source #

NFData TpStateEntry Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

rnf :: TpStateEntry -> () Source #

ToJSONPB TpStateEntry Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

toJSONPB :: TpStateEntry -> Options -> Value Source #

toEncodingPB :: TpStateEntry -> Options -> Encoding Source #

FromJSONPB TpStateEntry Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

parseJSONPB :: Value -> Parser TpStateEntry Source #

HasDefault TpStateEntry Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

def :: TpStateEntry Source #

isDefault :: TpStateEntry -> Bool Source #

Named TpStateEntry Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

nameOf :: IsString string => Proxy# TpStateEntry -> string Source #

Message TpStateEntry Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

encodeMessage :: FieldNumber -> TpStateEntry -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage TpStateEntry Source #

dotProto :: Proxy# TpStateEntry -> [DotProtoField] Source #

ToSchema TpStateEntry Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

declareNamedSchema :: Proxy TpStateEntry -> Declare (Definitions Schema) NamedSchema Source #

type Rep TpStateEntry Source # 
Instance details

Defined in Data.Sawtooth.StateContext

type Rep TpStateEntry = D1 ('MetaData "TpStateEntry" "Data.Sawtooth.StateContext" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "TpStateEntry" 'PrefixI 'True) (S1 ('MetaSel ('Just "tpStateEntryAddress") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "tpStateEntryData") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString)))

data TpStateGetRequest Source #

Constructors

TpStateGetRequest 

Fields

Instances

Instances details
Eq TpStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

(==) :: TpStateGetRequest -> TpStateGetRequest -> Bool Source #

(/=) :: TpStateGetRequest -> TpStateGetRequest -> Bool Source #

Ord TpStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

compare :: TpStateGetRequest -> TpStateGetRequest -> Ordering Source #

(<) :: TpStateGetRequest -> TpStateGetRequest -> Bool Source #

(<=) :: TpStateGetRequest -> TpStateGetRequest -> Bool Source #

(>) :: TpStateGetRequest -> TpStateGetRequest -> Bool Source #

(>=) :: TpStateGetRequest -> TpStateGetRequest -> Bool Source #

max :: TpStateGetRequest -> TpStateGetRequest -> TpStateGetRequest Source #

min :: TpStateGetRequest -> TpStateGetRequest -> TpStateGetRequest Source #

Show TpStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

showsPrec :: Int -> TpStateGetRequest -> ShowS Source #

show :: TpStateGetRequest -> String Source #

showList :: [TpStateGetRequest] -> ShowS Source #

Generic TpStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Associated Types

type Rep TpStateGetRequest :: Type -> Type Source #

Methods

from :: TpStateGetRequest -> Rep TpStateGetRequest x Source #

to :: Rep TpStateGetRequest x -> TpStateGetRequest Source #

ToJSON TpStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

toJSON :: TpStateGetRequest -> Value Source #

toEncoding :: TpStateGetRequest -> Encoding Source #

toJSONList :: [TpStateGetRequest] -> Value Source #

toEncodingList :: [TpStateGetRequest] -> Encoding Source #

FromJSON TpStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

parseJSON :: Value -> Parser TpStateGetRequest Source #

parseJSONList :: Value -> Parser [TpStateGetRequest] Source #

NFData TpStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

rnf :: TpStateGetRequest -> () Source #

ToJSONPB TpStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

toJSONPB :: TpStateGetRequest -> Options -> Value Source #

toEncodingPB :: TpStateGetRequest -> Options -> Encoding Source #

FromJSONPB TpStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

parseJSONPB :: Value -> Parser TpStateGetRequest Source #

HasDefault TpStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

def :: TpStateGetRequest Source #

isDefault :: TpStateGetRequest -> Bool Source #

Named TpStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

nameOf :: IsString string => Proxy# TpStateGetRequest -> string Source #

Message TpStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

encodeMessage :: FieldNumber -> TpStateGetRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage TpStateGetRequest Source #

dotProto :: Proxy# TpStateGetRequest -> [DotProtoField] Source #

ToSchema TpStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

declareNamedSchema :: Proxy TpStateGetRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep TpStateGetRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

type Rep TpStateGetRequest = D1 ('MetaData "TpStateGetRequest" "Data.Sawtooth.StateContext" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "TpStateGetRequest" 'PrefixI 'True) (S1 ('MetaSel ('Just "tpStateGetRequestContextId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "tpStateGetRequestAddresses") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Text))))

data TpStateGetResponse Source #

Constructors

TpStateGetResponse 

Fields

Instances

Instances details
Eq TpStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

(==) :: TpStateGetResponse -> TpStateGetResponse -> Bool Source #

(/=) :: TpStateGetResponse -> TpStateGetResponse -> Bool Source #

Ord TpStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

compare :: TpStateGetResponse -> TpStateGetResponse -> Ordering Source #

(<) :: TpStateGetResponse -> TpStateGetResponse -> Bool Source #

(<=) :: TpStateGetResponse -> TpStateGetResponse -> Bool Source #

(>) :: TpStateGetResponse -> TpStateGetResponse -> Bool Source #

(>=) :: TpStateGetResponse -> TpStateGetResponse -> Bool Source #

max :: TpStateGetResponse -> TpStateGetResponse -> TpStateGetResponse Source #

min :: TpStateGetResponse -> TpStateGetResponse -> TpStateGetResponse Source #

Show TpStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

showsPrec :: Int -> TpStateGetResponse -> ShowS Source #

show :: TpStateGetResponse -> String Source #

showList :: [TpStateGetResponse] -> ShowS Source #

Generic TpStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Associated Types

type Rep TpStateGetResponse :: Type -> Type Source #

Methods

from :: TpStateGetResponse -> Rep TpStateGetResponse x Source #

to :: Rep TpStateGetResponse x -> TpStateGetResponse Source #

ToJSON TpStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

toJSON :: TpStateGetResponse -> Value Source #

toEncoding :: TpStateGetResponse -> Encoding Source #

toJSONList :: [TpStateGetResponse] -> Value Source #

toEncodingList :: [TpStateGetResponse] -> Encoding Source #

FromJSON TpStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

parseJSON :: Value -> Parser TpStateGetResponse Source #

parseJSONList :: Value -> Parser [TpStateGetResponse] Source #

NFData TpStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

rnf :: TpStateGetResponse -> () Source #

ToJSONPB TpStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

toJSONPB :: TpStateGetResponse -> Options -> Value Source #

toEncodingPB :: TpStateGetResponse -> Options -> Encoding Source #

FromJSONPB TpStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

parseJSONPB :: Value -> Parser TpStateGetResponse Source #

HasDefault TpStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

def :: TpStateGetResponse Source #

isDefault :: TpStateGetResponse -> Bool Source #

Named TpStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

nameOf :: IsString string => Proxy# TpStateGetResponse -> string Source #

Message TpStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

encodeMessage :: FieldNumber -> TpStateGetResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage TpStateGetResponse Source #

dotProto :: Proxy# TpStateGetResponse -> [DotProtoField] Source #

ToSchema TpStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

declareNamedSchema :: Proxy TpStateGetResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep TpStateGetResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

type Rep TpStateGetResponse = D1 ('MetaData "TpStateGetResponse" "Data.Sawtooth.StateContext" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "TpStateGetResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "tpStateGetResponseEntries") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector TpStateEntry)) :*: S1 ('MetaSel ('Just "tpStateGetResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated TpStateGetResponse_Status))))

data TpStateGetResponse_Status Source #

Constructors

TpStateGetResponse_StatusSTATUS_UNSET 
TpStateGetResponse_StatusOK 
TpStateGetResponse_StatusAUTHORIZATION_ERROR 

Instances

Instances details
Bounded TpStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

minBound :: TpStateGetResponse_Status Source #

maxBound :: TpStateGetResponse_Status Source #

Eq TpStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

(==) :: TpStateGetResponse_Status -> TpStateGetResponse_Status -> Bool Source #

(/=) :: TpStateGetResponse_Status -> TpStateGetResponse_Status -> Bool Source #

Ord TpStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

compare :: TpStateGetResponse_Status -> TpStateGetResponse_Status -> Ordering Source #

(<) :: TpStateGetResponse_Status -> TpStateGetResponse_Status -> Bool Source #

(<=) :: TpStateGetResponse_Status -> TpStateGetResponse_Status -> Bool Source #

(>) :: TpStateGetResponse_Status -> TpStateGetResponse_Status -> Bool Source #

(>=) :: TpStateGetResponse_Status -> TpStateGetResponse_Status -> Bool Source #

max :: TpStateGetResponse_Status -> TpStateGetResponse_Status -> TpStateGetResponse_Status Source #

min :: TpStateGetResponse_Status -> TpStateGetResponse_Status -> TpStateGetResponse_Status Source #

Show TpStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

showsPrec :: Int -> TpStateGetResponse_Status -> ShowS Source #

show :: TpStateGetResponse_Status -> String Source #

showList :: [TpStateGetResponse_Status] -> ShowS Source #

Generic TpStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Associated Types

type Rep TpStateGetResponse_Status :: Type -> Type Source #

Methods

from :: TpStateGetResponse_Status -> Rep TpStateGetResponse_Status x Source #

to :: Rep TpStateGetResponse_Status x -> TpStateGetResponse_Status Source #

ToJSON TpStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

toJSON :: TpStateGetResponse_Status -> Value Source #

toEncoding :: TpStateGetResponse_Status -> Encoding Source #

toJSONList :: [TpStateGetResponse_Status] -> Value Source #

toEncodingList :: [TpStateGetResponse_Status] -> Encoding Source #

FromJSON TpStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

parseJSON :: Value -> Parser TpStateGetResponse_Status Source #

parseJSONList :: Value -> Parser [TpStateGetResponse_Status] Source #

NFData TpStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

rnf :: TpStateGetResponse_Status -> () Source #

ProtoEnum TpStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

toProtoEnumMay :: Int32 -> Maybe TpStateGetResponse_Status Source #

fromProtoEnum :: TpStateGetResponse_Status -> Int32 Source #

ToJSONPB TpStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

toJSONPB :: TpStateGetResponse_Status -> Options -> Value Source #

toEncodingPB :: TpStateGetResponse_Status -> Options -> Encoding Source #

FromJSONPB TpStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

parseJSONPB :: Value -> Parser TpStateGetResponse_Status Source #

HasDefault TpStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

def :: TpStateGetResponse_Status Source #

isDefault :: TpStateGetResponse_Status -> Bool Source #

Named TpStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

nameOf :: IsString string => Proxy# TpStateGetResponse_Status -> string Source #

Finite TpStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

enumerate :: IsString string => Proxy# TpStateGetResponse_Status -> [(string, Int32)] Source #

type Rep TpStateGetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

type Rep TpStateGetResponse_Status = D1 ('MetaData "TpStateGetResponse_Status" "Data.Sawtooth.StateContext" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "TpStateGetResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "TpStateGetResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "TpStateGetResponse_StatusAUTHORIZATION_ERROR" 'PrefixI 'False) (U1 :: Type -> Type)))

data TpStateSetRequest Source #

Constructors

TpStateSetRequest 

Fields

Instances

Instances details
Eq TpStateSetRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

(==) :: TpStateSetRequest -> TpStateSetRequest -> Bool Source #

(/=) :: TpStateSetRequest -> TpStateSetRequest -> Bool Source #

Ord TpStateSetRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

compare :: TpStateSetRequest -> TpStateSetRequest -> Ordering Source #

(<) :: TpStateSetRequest -> TpStateSetRequest -> Bool Source #

(<=) :: TpStateSetRequest -> TpStateSetRequest -> Bool Source #

(>) :: TpStateSetRequest -> TpStateSetRequest -> Bool Source #

(>=) :: TpStateSetRequest -> TpStateSetRequest -> Bool Source #

max :: TpStateSetRequest -> TpStateSetRequest -> TpStateSetRequest Source #

min :: TpStateSetRequest -> TpStateSetRequest -> TpStateSetRequest Source #

Show TpStateSetRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

showsPrec :: Int -> TpStateSetRequest -> ShowS Source #

show :: TpStateSetRequest -> String Source #

showList :: [TpStateSetRequest] -> ShowS Source #

Generic TpStateSetRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Associated Types

type Rep TpStateSetRequest :: Type -> Type Source #

Methods

from :: TpStateSetRequest -> Rep TpStateSetRequest x Source #

to :: Rep TpStateSetRequest x -> TpStateSetRequest Source #

ToJSON TpStateSetRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

toJSON :: TpStateSetRequest -> Value Source #

toEncoding :: TpStateSetRequest -> Encoding Source #

toJSONList :: [TpStateSetRequest] -> Value Source #

toEncodingList :: [TpStateSetRequest] -> Encoding Source #

FromJSON TpStateSetRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

parseJSON :: Value -> Parser TpStateSetRequest Source #

parseJSONList :: Value -> Parser [TpStateSetRequest] Source #

NFData TpStateSetRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

rnf :: TpStateSetRequest -> () Source #

ToJSONPB TpStateSetRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

toJSONPB :: TpStateSetRequest -> Options -> Value Source #

toEncodingPB :: TpStateSetRequest -> Options -> Encoding Source #

FromJSONPB TpStateSetRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

parseJSONPB :: Value -> Parser TpStateSetRequest Source #

HasDefault TpStateSetRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

def :: TpStateSetRequest Source #

isDefault :: TpStateSetRequest -> Bool Source #

Named TpStateSetRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

nameOf :: IsString string => Proxy# TpStateSetRequest -> string Source #

Message TpStateSetRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

encodeMessage :: FieldNumber -> TpStateSetRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage TpStateSetRequest Source #

dotProto :: Proxy# TpStateSetRequest -> [DotProtoField] Source #

ToSchema TpStateSetRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

declareNamedSchema :: Proxy TpStateSetRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep TpStateSetRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

type Rep TpStateSetRequest = D1 ('MetaData "TpStateSetRequest" "Data.Sawtooth.StateContext" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "TpStateSetRequest" 'PrefixI 'True) (S1 ('MetaSel ('Just "tpStateSetRequestContextId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "tpStateSetRequestEntries") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector TpStateEntry))))

data TpStateSetResponse Source #

Constructors

TpStateSetResponse 

Fields

Instances

Instances details
Eq TpStateSetResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

(==) :: TpStateSetResponse -> TpStateSetResponse -> Bool Source #

(/=) :: TpStateSetResponse -> TpStateSetResponse -> Bool Source #

Ord TpStateSetResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

compare :: TpStateSetResponse -> TpStateSetResponse -> Ordering Source #

(<) :: TpStateSetResponse -> TpStateSetResponse -> Bool Source #

(<=) :: TpStateSetResponse -> TpStateSetResponse -> Bool Source #

(>) :: TpStateSetResponse -> TpStateSetResponse -> Bool Source #

(>=) :: TpStateSetResponse -> TpStateSetResponse -> Bool Source #

max :: TpStateSetResponse -> TpStateSetResponse -> TpStateSetResponse Source #

min :: TpStateSetResponse -> TpStateSetResponse -> TpStateSetResponse Source #

Show TpStateSetResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

showsPrec :: Int -> TpStateSetResponse -> ShowS Source #

show :: TpStateSetResponse -> String Source #

showList :: [TpStateSetResponse] -> ShowS Source #

Generic TpStateSetResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Associated Types

type Rep TpStateSetResponse :: Type -> Type Source #

Methods

from :: TpStateSetResponse -> Rep TpStateSetResponse x Source #

to :: Rep TpStateSetResponse x -> TpStateSetResponse Source #

ToJSON TpStateSetResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

toJSON :: TpStateSetResponse -> Value Source #

toEncoding :: TpStateSetResponse -> Encoding Source #

toJSONList :: [TpStateSetResponse] -> Value Source #

toEncodingList :: [TpStateSetResponse] -> Encoding Source #

FromJSON TpStateSetResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

parseJSON :: Value -> Parser TpStateSetResponse Source #

parseJSONList :: Value -> Parser [TpStateSetResponse] Source #

NFData TpStateSetResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

rnf :: TpStateSetResponse -> () Source #

ToJSONPB TpStateSetResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

toJSONPB :: TpStateSetResponse -> Options -> Value Source #

toEncodingPB :: TpStateSetResponse -> Options -> Encoding Source #

FromJSONPB TpStateSetResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

parseJSONPB :: Value -> Parser TpStateSetResponse Source #

HasDefault TpStateSetResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

def :: TpStateSetResponse Source #

isDefault :: TpStateSetResponse -> Bool Source #

Named TpStateSetResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

nameOf :: IsString string => Proxy# TpStateSetResponse -> string Source #

Message TpStateSetResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

encodeMessage :: FieldNumber -> TpStateSetResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage TpStateSetResponse Source #

dotProto :: Proxy# TpStateSetResponse -> [DotProtoField] Source #

ToSchema TpStateSetResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

declareNamedSchema :: Proxy TpStateSetResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep TpStateSetResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

type Rep TpStateSetResponse = D1 ('MetaData "TpStateSetResponse" "Data.Sawtooth.StateContext" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "TpStateSetResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "tpStateSetResponseAddresses") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Text)) :*: S1 ('MetaSel ('Just "tpStateSetResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated TpStateSetResponse_Status))))

data TpStateSetResponse_Status Source #

Constructors

TpStateSetResponse_StatusSTATUS_UNSET 
TpStateSetResponse_StatusOK 
TpStateSetResponse_StatusAUTHORIZATION_ERROR 

Instances

Instances details
Bounded TpStateSetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

minBound :: TpStateSetResponse_Status Source #

maxBound :: TpStateSetResponse_Status Source #

Eq TpStateSetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

(==) :: TpStateSetResponse_Status -> TpStateSetResponse_Status -> Bool Source #

(/=) :: TpStateSetResponse_Status -> TpStateSetResponse_Status -> Bool Source #

Ord TpStateSetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

compare :: TpStateSetResponse_Status -> TpStateSetResponse_Status -> Ordering Source #

(<) :: TpStateSetResponse_Status -> TpStateSetResponse_Status -> Bool Source #

(<=) :: TpStateSetResponse_Status -> TpStateSetResponse_Status -> Bool Source #

(>) :: TpStateSetResponse_Status -> TpStateSetResponse_Status -> Bool Source #

(>=) :: TpStateSetResponse_Status -> TpStateSetResponse_Status -> Bool Source #

max :: TpStateSetResponse_Status -> TpStateSetResponse_Status -> TpStateSetResponse_Status Source #

min :: TpStateSetResponse_Status -> TpStateSetResponse_Status -> TpStateSetResponse_Status Source #

Show TpStateSetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

showsPrec :: Int -> TpStateSetResponse_Status -> ShowS Source #

show :: TpStateSetResponse_Status -> String Source #

showList :: [TpStateSetResponse_Status] -> ShowS Source #

Generic TpStateSetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Associated Types

type Rep TpStateSetResponse_Status :: Type -> Type Source #

Methods

from :: TpStateSetResponse_Status -> Rep TpStateSetResponse_Status x Source #

to :: Rep TpStateSetResponse_Status x -> TpStateSetResponse_Status Source #

ToJSON TpStateSetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

toJSON :: TpStateSetResponse_Status -> Value Source #

toEncoding :: TpStateSetResponse_Status -> Encoding Source #

toJSONList :: [TpStateSetResponse_Status] -> Value Source #

toEncodingList :: [TpStateSetResponse_Status] -> Encoding Source #

FromJSON TpStateSetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

parseJSON :: Value -> Parser TpStateSetResponse_Status Source #

parseJSONList :: Value -> Parser [TpStateSetResponse_Status] Source #

NFData TpStateSetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

rnf :: TpStateSetResponse_Status -> () Source #

ProtoEnum TpStateSetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

toProtoEnumMay :: Int32 -> Maybe TpStateSetResponse_Status Source #

fromProtoEnum :: TpStateSetResponse_Status -> Int32 Source #

ToJSONPB TpStateSetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

toJSONPB :: TpStateSetResponse_Status -> Options -> Value Source #

toEncodingPB :: TpStateSetResponse_Status -> Options -> Encoding Source #

FromJSONPB TpStateSetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

parseJSONPB :: Value -> Parser TpStateSetResponse_Status Source #

HasDefault TpStateSetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

def :: TpStateSetResponse_Status Source #

isDefault :: TpStateSetResponse_Status -> Bool Source #

Named TpStateSetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

nameOf :: IsString string => Proxy# TpStateSetResponse_Status -> string Source #

Finite TpStateSetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

enumerate :: IsString string => Proxy# TpStateSetResponse_Status -> [(string, Int32)] Source #

type Rep TpStateSetResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

type Rep TpStateSetResponse_Status = D1 ('MetaData "TpStateSetResponse_Status" "Data.Sawtooth.StateContext" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "TpStateSetResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "TpStateSetResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "TpStateSetResponse_StatusAUTHORIZATION_ERROR" 'PrefixI 'False) (U1 :: Type -> Type)))

data TpStateDeleteRequest Source #

Constructors

TpStateDeleteRequest 

Fields

Instances

Instances details
Eq TpStateDeleteRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

(==) :: TpStateDeleteRequest -> TpStateDeleteRequest -> Bool Source #

(/=) :: TpStateDeleteRequest -> TpStateDeleteRequest -> Bool Source #

Ord TpStateDeleteRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

compare :: TpStateDeleteRequest -> TpStateDeleteRequest -> Ordering Source #

(<) :: TpStateDeleteRequest -> TpStateDeleteRequest -> Bool Source #

(<=) :: TpStateDeleteRequest -> TpStateDeleteRequest -> Bool Source #

(>) :: TpStateDeleteRequest -> TpStateDeleteRequest -> Bool Source #

(>=) :: TpStateDeleteRequest -> TpStateDeleteRequest -> Bool Source #

max :: TpStateDeleteRequest -> TpStateDeleteRequest -> TpStateDeleteRequest Source #

min :: TpStateDeleteRequest -> TpStateDeleteRequest -> TpStateDeleteRequest Source #

Show TpStateDeleteRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

showsPrec :: Int -> TpStateDeleteRequest -> ShowS Source #

show :: TpStateDeleteRequest -> String Source #

showList :: [TpStateDeleteRequest] -> ShowS Source #

Generic TpStateDeleteRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Associated Types

type Rep TpStateDeleteRequest :: Type -> Type Source #

Methods

from :: TpStateDeleteRequest -> Rep TpStateDeleteRequest x Source #

to :: Rep TpStateDeleteRequest x -> TpStateDeleteRequest Source #

ToJSON TpStateDeleteRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

toJSON :: TpStateDeleteRequest -> Value Source #

toEncoding :: TpStateDeleteRequest -> Encoding Source #

toJSONList :: [TpStateDeleteRequest] -> Value Source #

toEncodingList :: [TpStateDeleteRequest] -> Encoding Source #

FromJSON TpStateDeleteRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

parseJSON :: Value -> Parser TpStateDeleteRequest Source #

parseJSONList :: Value -> Parser [TpStateDeleteRequest] Source #

NFData TpStateDeleteRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

rnf :: TpStateDeleteRequest -> () Source #

ToJSONPB TpStateDeleteRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

toJSONPB :: TpStateDeleteRequest -> Options -> Value Source #

toEncodingPB :: TpStateDeleteRequest -> Options -> Encoding Source #

FromJSONPB TpStateDeleteRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

parseJSONPB :: Value -> Parser TpStateDeleteRequest Source #

HasDefault TpStateDeleteRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

def :: TpStateDeleteRequest Source #

isDefault :: TpStateDeleteRequest -> Bool Source #

Named TpStateDeleteRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

nameOf :: IsString string => Proxy# TpStateDeleteRequest -> string Source #

Message TpStateDeleteRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

encodeMessage :: FieldNumber -> TpStateDeleteRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage TpStateDeleteRequest Source #

dotProto :: Proxy# TpStateDeleteRequest -> [DotProtoField] Source #

ToSchema TpStateDeleteRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

declareNamedSchema :: Proxy TpStateDeleteRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep TpStateDeleteRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

type Rep TpStateDeleteRequest = D1 ('MetaData "TpStateDeleteRequest" "Data.Sawtooth.StateContext" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "TpStateDeleteRequest" 'PrefixI 'True) (S1 ('MetaSel ('Just "tpStateDeleteRequestContextId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "tpStateDeleteRequestAddresses") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Text))))

data TpStateDeleteResponse Source #

Constructors

TpStateDeleteResponse 

Fields

Instances

Instances details
Eq TpStateDeleteResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

(==) :: TpStateDeleteResponse -> TpStateDeleteResponse -> Bool Source #

(/=) :: TpStateDeleteResponse -> TpStateDeleteResponse -> Bool Source #

Ord TpStateDeleteResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

compare :: TpStateDeleteResponse -> TpStateDeleteResponse -> Ordering Source #

(<) :: TpStateDeleteResponse -> TpStateDeleteResponse -> Bool Source #

(<=) :: TpStateDeleteResponse -> TpStateDeleteResponse -> Bool Source #

(>) :: TpStateDeleteResponse -> TpStateDeleteResponse -> Bool Source #

(>=) :: TpStateDeleteResponse -> TpStateDeleteResponse -> Bool Source #

max :: TpStateDeleteResponse -> TpStateDeleteResponse -> TpStateDeleteResponse Source #

min :: TpStateDeleteResponse -> TpStateDeleteResponse -> TpStateDeleteResponse Source #

Show TpStateDeleteResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

showsPrec :: Int -> TpStateDeleteResponse -> ShowS Source #

show :: TpStateDeleteResponse -> String Source #

showList :: [TpStateDeleteResponse] -> ShowS Source #

Generic TpStateDeleteResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Associated Types

type Rep TpStateDeleteResponse :: Type -> Type Source #

Methods

from :: TpStateDeleteResponse -> Rep TpStateDeleteResponse x Source #

to :: Rep TpStateDeleteResponse x -> TpStateDeleteResponse Source #

ToJSON TpStateDeleteResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

toJSON :: TpStateDeleteResponse -> Value Source #

toEncoding :: TpStateDeleteResponse -> Encoding Source #

toJSONList :: [TpStateDeleteResponse] -> Value Source #

toEncodingList :: [TpStateDeleteResponse] -> Encoding Source #

FromJSON TpStateDeleteResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

parseJSON :: Value -> Parser TpStateDeleteResponse Source #

parseJSONList :: Value -> Parser [TpStateDeleteResponse] Source #

NFData TpStateDeleteResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

rnf :: TpStateDeleteResponse -> () Source #

ToJSONPB TpStateDeleteResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

toJSONPB :: TpStateDeleteResponse -> Options -> Value Source #

toEncodingPB :: TpStateDeleteResponse -> Options -> Encoding Source #

FromJSONPB TpStateDeleteResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

parseJSONPB :: Value -> Parser TpStateDeleteResponse Source #

HasDefault TpStateDeleteResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

def :: TpStateDeleteResponse Source #

isDefault :: TpStateDeleteResponse -> Bool Source #

Named TpStateDeleteResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

nameOf :: IsString string => Proxy# TpStateDeleteResponse -> string Source #

Message TpStateDeleteResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

encodeMessage :: FieldNumber -> TpStateDeleteResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage TpStateDeleteResponse Source #

dotProto :: Proxy# TpStateDeleteResponse -> [DotProtoField] Source #

ToSchema TpStateDeleteResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

declareNamedSchema :: Proxy TpStateDeleteResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep TpStateDeleteResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

type Rep TpStateDeleteResponse = D1 ('MetaData "TpStateDeleteResponse" "Data.Sawtooth.StateContext" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "TpStateDeleteResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "tpStateDeleteResponseAddresses") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Text)) :*: S1 ('MetaSel ('Just "tpStateDeleteResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated TpStateDeleteResponse_Status))))

data TpStateDeleteResponse_Status Source #

Constructors

TpStateDeleteResponse_StatusSTATUS_UNSET 
TpStateDeleteResponse_StatusOK 
TpStateDeleteResponse_StatusAUTHORIZATION_ERROR 

Instances

Instances details
Bounded TpStateDeleteResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

minBound :: TpStateDeleteResponse_Status Source #

maxBound :: TpStateDeleteResponse_Status Source #

Eq TpStateDeleteResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

(==) :: TpStateDeleteResponse_Status -> TpStateDeleteResponse_Status -> Bool Source #

(/=) :: TpStateDeleteResponse_Status -> TpStateDeleteResponse_Status -> Bool Source #

Ord TpStateDeleteResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

compare :: TpStateDeleteResponse_Status -> TpStateDeleteResponse_Status -> Ordering Source #

(<) :: TpStateDeleteResponse_Status -> TpStateDeleteResponse_Status -> Bool Source #

(<=) :: TpStateDeleteResponse_Status -> TpStateDeleteResponse_Status -> Bool Source #

(>) :: TpStateDeleteResponse_Status -> TpStateDeleteResponse_Status -> Bool Source #

(>=) :: TpStateDeleteResponse_Status -> TpStateDeleteResponse_Status -> Bool Source #

max :: TpStateDeleteResponse_Status -> TpStateDeleteResponse_Status -> TpStateDeleteResponse_Status Source #

min :: TpStateDeleteResponse_Status -> TpStateDeleteResponse_Status -> TpStateDeleteResponse_Status Source #

Show TpStateDeleteResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

showsPrec :: Int -> TpStateDeleteResponse_Status -> ShowS Source #

show :: TpStateDeleteResponse_Status -> String Source #

showList :: [TpStateDeleteResponse_Status] -> ShowS Source #

Generic TpStateDeleteResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Associated Types

type Rep TpStateDeleteResponse_Status :: Type -> Type Source #

Methods

from :: TpStateDeleteResponse_Status -> Rep TpStateDeleteResponse_Status x Source #

to :: Rep TpStateDeleteResponse_Status x -> TpStateDeleteResponse_Status Source #

ToJSON TpStateDeleteResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

toJSON :: TpStateDeleteResponse_Status -> Value Source #

toEncoding :: TpStateDeleteResponse_Status -> Encoding Source #

toJSONList :: [TpStateDeleteResponse_Status] -> Value Source #

toEncodingList :: [TpStateDeleteResponse_Status] -> Encoding Source #

FromJSON TpStateDeleteResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

parseJSON :: Value -> Parser TpStateDeleteResponse_Status Source #

parseJSONList :: Value -> Parser [TpStateDeleteResponse_Status] Source #

NFData TpStateDeleteResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

rnf :: TpStateDeleteResponse_Status -> () Source #

ProtoEnum TpStateDeleteResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

toProtoEnumMay :: Int32 -> Maybe TpStateDeleteResponse_Status Source #

fromProtoEnum :: TpStateDeleteResponse_Status -> Int32 Source #

ToJSONPB TpStateDeleteResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

toJSONPB :: TpStateDeleteResponse_Status -> Options -> Value Source #

toEncodingPB :: TpStateDeleteResponse_Status -> Options -> Encoding Source #

FromJSONPB TpStateDeleteResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

parseJSONPB :: Value -> Parser TpStateDeleteResponse_Status Source #

HasDefault TpStateDeleteResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

def :: TpStateDeleteResponse_Status Source #

isDefault :: TpStateDeleteResponse_Status -> Bool Source #

Named TpStateDeleteResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

nameOf :: IsString string => Proxy# TpStateDeleteResponse_Status -> string Source #

Finite TpStateDeleteResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

enumerate :: IsString string => Proxy# TpStateDeleteResponse_Status -> [(string, Int32)] Source #

type Rep TpStateDeleteResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

type Rep TpStateDeleteResponse_Status = D1 ('MetaData "TpStateDeleteResponse_Status" "Data.Sawtooth.StateContext" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "TpStateDeleteResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "TpStateDeleteResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "TpStateDeleteResponse_StatusAUTHORIZATION_ERROR" 'PrefixI 'False) (U1 :: Type -> Type)))

data TpReceiptAddDataRequest Source #

Constructors

TpReceiptAddDataRequest 

Fields

Instances

Instances details
Eq TpReceiptAddDataRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

(==) :: TpReceiptAddDataRequest -> TpReceiptAddDataRequest -> Bool Source #

(/=) :: TpReceiptAddDataRequest -> TpReceiptAddDataRequest -> Bool Source #

Ord TpReceiptAddDataRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

compare :: TpReceiptAddDataRequest -> TpReceiptAddDataRequest -> Ordering Source #

(<) :: TpReceiptAddDataRequest -> TpReceiptAddDataRequest -> Bool Source #

(<=) :: TpReceiptAddDataRequest -> TpReceiptAddDataRequest -> Bool Source #

(>) :: TpReceiptAddDataRequest -> TpReceiptAddDataRequest -> Bool Source #

(>=) :: TpReceiptAddDataRequest -> TpReceiptAddDataRequest -> Bool Source #

max :: TpReceiptAddDataRequest -> TpReceiptAddDataRequest -> TpReceiptAddDataRequest Source #

min :: TpReceiptAddDataRequest -> TpReceiptAddDataRequest -> TpReceiptAddDataRequest Source #

Show TpReceiptAddDataRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

showsPrec :: Int -> TpReceiptAddDataRequest -> ShowS Source #

show :: TpReceiptAddDataRequest -> String Source #

showList :: [TpReceiptAddDataRequest] -> ShowS Source #

Generic TpReceiptAddDataRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Associated Types

type Rep TpReceiptAddDataRequest :: Type -> Type Source #

Methods

from :: TpReceiptAddDataRequest -> Rep TpReceiptAddDataRequest x Source #

to :: Rep TpReceiptAddDataRequest x -> TpReceiptAddDataRequest Source #

ToJSON TpReceiptAddDataRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

toJSON :: TpReceiptAddDataRequest -> Value Source #

toEncoding :: TpReceiptAddDataRequest -> Encoding Source #

toJSONList :: [TpReceiptAddDataRequest] -> Value Source #

toEncodingList :: [TpReceiptAddDataRequest] -> Encoding Source #

FromJSON TpReceiptAddDataRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

parseJSON :: Value -> Parser TpReceiptAddDataRequest Source #

parseJSONList :: Value -> Parser [TpReceiptAddDataRequest] Source #

NFData TpReceiptAddDataRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

rnf :: TpReceiptAddDataRequest -> () Source #

ToJSONPB TpReceiptAddDataRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

toJSONPB :: TpReceiptAddDataRequest -> Options -> Value Source #

toEncodingPB :: TpReceiptAddDataRequest -> Options -> Encoding Source #

FromJSONPB TpReceiptAddDataRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

parseJSONPB :: Value -> Parser TpReceiptAddDataRequest Source #

HasDefault TpReceiptAddDataRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

def :: TpReceiptAddDataRequest Source #

isDefault :: TpReceiptAddDataRequest -> Bool Source #

Named TpReceiptAddDataRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

nameOf :: IsString string => Proxy# TpReceiptAddDataRequest -> string Source #

Message TpReceiptAddDataRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

encodeMessage :: FieldNumber -> TpReceiptAddDataRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage TpReceiptAddDataRequest Source #

dotProto :: Proxy# TpReceiptAddDataRequest -> [DotProtoField] Source #

ToSchema TpReceiptAddDataRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

declareNamedSchema :: Proxy TpReceiptAddDataRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep TpReceiptAddDataRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

type Rep TpReceiptAddDataRequest = D1 ('MetaData "TpReceiptAddDataRequest" "Data.Sawtooth.StateContext" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "TpReceiptAddDataRequest" 'PrefixI 'True) (S1 ('MetaSel ('Just "tpReceiptAddDataRequestContextId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "tpReceiptAddDataRequestData") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString)))

newtype TpReceiptAddDataResponse Source #

Constructors

TpReceiptAddDataResponse 

Fields

Instances

Instances details
Eq TpReceiptAddDataResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

(==) :: TpReceiptAddDataResponse -> TpReceiptAddDataResponse -> Bool Source #

(/=) :: TpReceiptAddDataResponse -> TpReceiptAddDataResponse -> Bool Source #

Ord TpReceiptAddDataResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

compare :: TpReceiptAddDataResponse -> TpReceiptAddDataResponse -> Ordering Source #

(<) :: TpReceiptAddDataResponse -> TpReceiptAddDataResponse -> Bool Source #

(<=) :: TpReceiptAddDataResponse -> TpReceiptAddDataResponse -> Bool Source #

(>) :: TpReceiptAddDataResponse -> TpReceiptAddDataResponse -> Bool Source #

(>=) :: TpReceiptAddDataResponse -> TpReceiptAddDataResponse -> Bool Source #

max :: TpReceiptAddDataResponse -> TpReceiptAddDataResponse -> TpReceiptAddDataResponse Source #

min :: TpReceiptAddDataResponse -> TpReceiptAddDataResponse -> TpReceiptAddDataResponse Source #

Show TpReceiptAddDataResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

showsPrec :: Int -> TpReceiptAddDataResponse -> ShowS Source #

show :: TpReceiptAddDataResponse -> String Source #

showList :: [TpReceiptAddDataResponse] -> ShowS Source #

Generic TpReceiptAddDataResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Associated Types

type Rep TpReceiptAddDataResponse :: Type -> Type Source #

Methods

from :: TpReceiptAddDataResponse -> Rep TpReceiptAddDataResponse x Source #

to :: Rep TpReceiptAddDataResponse x -> TpReceiptAddDataResponse Source #

ToJSON TpReceiptAddDataResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

toJSON :: TpReceiptAddDataResponse -> Value Source #

toEncoding :: TpReceiptAddDataResponse -> Encoding Source #

toJSONList :: [TpReceiptAddDataResponse] -> Value Source #

toEncodingList :: [TpReceiptAddDataResponse] -> Encoding Source #

FromJSON TpReceiptAddDataResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

parseJSON :: Value -> Parser TpReceiptAddDataResponse Source #

parseJSONList :: Value -> Parser [TpReceiptAddDataResponse] Source #

NFData TpReceiptAddDataResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

rnf :: TpReceiptAddDataResponse -> () Source #

ToJSONPB TpReceiptAddDataResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

toJSONPB :: TpReceiptAddDataResponse -> Options -> Value Source #

toEncodingPB :: TpReceiptAddDataResponse -> Options -> Encoding Source #

FromJSONPB TpReceiptAddDataResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

parseJSONPB :: Value -> Parser TpReceiptAddDataResponse Source #

HasDefault TpReceiptAddDataResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

def :: TpReceiptAddDataResponse Source #

isDefault :: TpReceiptAddDataResponse -> Bool Source #

Named TpReceiptAddDataResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

nameOf :: IsString string => Proxy# TpReceiptAddDataResponse -> string Source #

Message TpReceiptAddDataResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

encodeMessage :: FieldNumber -> TpReceiptAddDataResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage TpReceiptAddDataResponse Source #

dotProto :: Proxy# TpReceiptAddDataResponse -> [DotProtoField] Source #

ToSchema TpReceiptAddDataResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

declareNamedSchema :: Proxy TpReceiptAddDataResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep TpReceiptAddDataResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

type Rep TpReceiptAddDataResponse = D1 ('MetaData "TpReceiptAddDataResponse" "Data.Sawtooth.StateContext" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'True) (C1 ('MetaCons "TpReceiptAddDataResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "tpReceiptAddDataResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated TpReceiptAddDataResponse_Status))))

data TpReceiptAddDataResponse_Status Source #

Constructors

TpReceiptAddDataResponse_StatusSTATUS_UNSET 
TpReceiptAddDataResponse_StatusOK 
TpReceiptAddDataResponse_StatusERROR 

Instances

Instances details
Bounded TpReceiptAddDataResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

minBound :: TpReceiptAddDataResponse_Status Source #

maxBound :: TpReceiptAddDataResponse_Status Source #

Eq TpReceiptAddDataResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

(==) :: TpReceiptAddDataResponse_Status -> TpReceiptAddDataResponse_Status -> Bool Source #

(/=) :: TpReceiptAddDataResponse_Status -> TpReceiptAddDataResponse_Status -> Bool Source #

Ord TpReceiptAddDataResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

compare :: TpReceiptAddDataResponse_Status -> TpReceiptAddDataResponse_Status -> Ordering Source #

(<) :: TpReceiptAddDataResponse_Status -> TpReceiptAddDataResponse_Status -> Bool Source #

(<=) :: TpReceiptAddDataResponse_Status -> TpReceiptAddDataResponse_Status -> Bool Source #

(>) :: TpReceiptAddDataResponse_Status -> TpReceiptAddDataResponse_Status -> Bool Source #

(>=) :: TpReceiptAddDataResponse_Status -> TpReceiptAddDataResponse_Status -> Bool Source #

max :: TpReceiptAddDataResponse_Status -> TpReceiptAddDataResponse_Status -> TpReceiptAddDataResponse_Status Source #

min :: TpReceiptAddDataResponse_Status -> TpReceiptAddDataResponse_Status -> TpReceiptAddDataResponse_Status Source #

Show TpReceiptAddDataResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

showsPrec :: Int -> TpReceiptAddDataResponse_Status -> ShowS Source #

show :: TpReceiptAddDataResponse_Status -> String Source #

showList :: [TpReceiptAddDataResponse_Status] -> ShowS Source #

Generic TpReceiptAddDataResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Associated Types

type Rep TpReceiptAddDataResponse_Status :: Type -> Type Source #

Methods

from :: TpReceiptAddDataResponse_Status -> Rep TpReceiptAddDataResponse_Status x Source #

to :: Rep TpReceiptAddDataResponse_Status x -> TpReceiptAddDataResponse_Status Source #

ToJSON TpReceiptAddDataResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

toJSON :: TpReceiptAddDataResponse_Status -> Value Source #

toEncoding :: TpReceiptAddDataResponse_Status -> Encoding Source #

toJSONList :: [TpReceiptAddDataResponse_Status] -> Value Source #

toEncodingList :: [TpReceiptAddDataResponse_Status] -> Encoding Source #

FromJSON TpReceiptAddDataResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

parseJSON :: Value -> Parser TpReceiptAddDataResponse_Status Source #

parseJSONList :: Value -> Parser [TpReceiptAddDataResponse_Status] Source #

NFData TpReceiptAddDataResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

rnf :: TpReceiptAddDataResponse_Status -> () Source #

ProtoEnum TpReceiptAddDataResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

toProtoEnumMay :: Int32 -> Maybe TpReceiptAddDataResponse_Status Source #

fromProtoEnum :: TpReceiptAddDataResponse_Status -> Int32 Source #

ToJSONPB TpReceiptAddDataResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

toJSONPB :: TpReceiptAddDataResponse_Status -> Options -> Value Source #

toEncodingPB :: TpReceiptAddDataResponse_Status -> Options -> Encoding Source #

FromJSONPB TpReceiptAddDataResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

parseJSONPB :: Value -> Parser TpReceiptAddDataResponse_Status Source #

HasDefault TpReceiptAddDataResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

def :: TpReceiptAddDataResponse_Status Source #

isDefault :: TpReceiptAddDataResponse_Status -> Bool Source #

Named TpReceiptAddDataResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

nameOf :: IsString string => Proxy# TpReceiptAddDataResponse_Status -> string Source #

Finite TpReceiptAddDataResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

enumerate :: IsString string => Proxy# TpReceiptAddDataResponse_Status -> [(string, Int32)] Source #

type Rep TpReceiptAddDataResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

type Rep TpReceiptAddDataResponse_Status = D1 ('MetaData "TpReceiptAddDataResponse_Status" "Data.Sawtooth.StateContext" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "TpReceiptAddDataResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "TpReceiptAddDataResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "TpReceiptAddDataResponse_StatusERROR" 'PrefixI 'False) (U1 :: Type -> Type)))

data TpEventAddRequest Source #

Constructors

TpEventAddRequest 

Fields

Instances

Instances details
Eq TpEventAddRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

(==) :: TpEventAddRequest -> TpEventAddRequest -> Bool Source #

(/=) :: TpEventAddRequest -> TpEventAddRequest -> Bool Source #

Ord TpEventAddRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

compare :: TpEventAddRequest -> TpEventAddRequest -> Ordering Source #

(<) :: TpEventAddRequest -> TpEventAddRequest -> Bool Source #

(<=) :: TpEventAddRequest -> TpEventAddRequest -> Bool Source #

(>) :: TpEventAddRequest -> TpEventAddRequest -> Bool Source #

(>=) :: TpEventAddRequest -> TpEventAddRequest -> Bool Source #

max :: TpEventAddRequest -> TpEventAddRequest -> TpEventAddRequest Source #

min :: TpEventAddRequest -> TpEventAddRequest -> TpEventAddRequest Source #

Show TpEventAddRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

showsPrec :: Int -> TpEventAddRequest -> ShowS Source #

show :: TpEventAddRequest -> String Source #

showList :: [TpEventAddRequest] -> ShowS Source #

Generic TpEventAddRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Associated Types

type Rep TpEventAddRequest :: Type -> Type Source #

Methods

from :: TpEventAddRequest -> Rep TpEventAddRequest x Source #

to :: Rep TpEventAddRequest x -> TpEventAddRequest Source #

ToJSON TpEventAddRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

toJSON :: TpEventAddRequest -> Value Source #

toEncoding :: TpEventAddRequest -> Encoding Source #

toJSONList :: [TpEventAddRequest] -> Value Source #

toEncodingList :: [TpEventAddRequest] -> Encoding Source #

FromJSON TpEventAddRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

parseJSON :: Value -> Parser TpEventAddRequest Source #

parseJSONList :: Value -> Parser [TpEventAddRequest] Source #

NFData TpEventAddRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

rnf :: TpEventAddRequest -> () Source #

ToJSONPB TpEventAddRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

toJSONPB :: TpEventAddRequest -> Options -> Value Source #

toEncodingPB :: TpEventAddRequest -> Options -> Encoding Source #

FromJSONPB TpEventAddRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

parseJSONPB :: Value -> Parser TpEventAddRequest Source #

HasDefault TpEventAddRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

def :: TpEventAddRequest Source #

isDefault :: TpEventAddRequest -> Bool Source #

Named TpEventAddRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

nameOf :: IsString string => Proxy# TpEventAddRequest -> string Source #

Message TpEventAddRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

encodeMessage :: FieldNumber -> TpEventAddRequest -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage TpEventAddRequest Source #

dotProto :: Proxy# TpEventAddRequest -> [DotProtoField] Source #

ToSchema TpEventAddRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

declareNamedSchema :: Proxy TpEventAddRequest -> Declare (Definitions Schema) NamedSchema Source #

type Rep TpEventAddRequest Source # 
Instance details

Defined in Data.Sawtooth.StateContext

type Rep TpEventAddRequest = D1 ('MetaData "TpEventAddRequest" "Data.Sawtooth.StateContext" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "TpEventAddRequest" 'PrefixI 'True) (S1 ('MetaSel ('Just "tpEventAddRequestContextId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "tpEventAddRequestEvent") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe Event))))

newtype TpEventAddResponse Source #

Constructors

TpEventAddResponse 

Fields

Instances

Instances details
Eq TpEventAddResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

(==) :: TpEventAddResponse -> TpEventAddResponse -> Bool Source #

(/=) :: TpEventAddResponse -> TpEventAddResponse -> Bool Source #

Ord TpEventAddResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

compare :: TpEventAddResponse -> TpEventAddResponse -> Ordering Source #

(<) :: TpEventAddResponse -> TpEventAddResponse -> Bool Source #

(<=) :: TpEventAddResponse -> TpEventAddResponse -> Bool Source #

(>) :: TpEventAddResponse -> TpEventAddResponse -> Bool Source #

(>=) :: TpEventAddResponse -> TpEventAddResponse -> Bool Source #

max :: TpEventAddResponse -> TpEventAddResponse -> TpEventAddResponse Source #

min :: TpEventAddResponse -> TpEventAddResponse -> TpEventAddResponse Source #

Show TpEventAddResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

showsPrec :: Int -> TpEventAddResponse -> ShowS Source #

show :: TpEventAddResponse -> String Source #

showList :: [TpEventAddResponse] -> ShowS Source #

Generic TpEventAddResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Associated Types

type Rep TpEventAddResponse :: Type -> Type Source #

Methods

from :: TpEventAddResponse -> Rep TpEventAddResponse x Source #

to :: Rep TpEventAddResponse x -> TpEventAddResponse Source #

ToJSON TpEventAddResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

toJSON :: TpEventAddResponse -> Value Source #

toEncoding :: TpEventAddResponse -> Encoding Source #

toJSONList :: [TpEventAddResponse] -> Value Source #

toEncodingList :: [TpEventAddResponse] -> Encoding Source #

FromJSON TpEventAddResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

parseJSON :: Value -> Parser TpEventAddResponse Source #

parseJSONList :: Value -> Parser [TpEventAddResponse] Source #

NFData TpEventAddResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

rnf :: TpEventAddResponse -> () Source #

ToJSONPB TpEventAddResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

toJSONPB :: TpEventAddResponse -> Options -> Value Source #

toEncodingPB :: TpEventAddResponse -> Options -> Encoding Source #

FromJSONPB TpEventAddResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

parseJSONPB :: Value -> Parser TpEventAddResponse Source #

HasDefault TpEventAddResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

def :: TpEventAddResponse Source #

isDefault :: TpEventAddResponse -> Bool Source #

Named TpEventAddResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

nameOf :: IsString string => Proxy# TpEventAddResponse -> string Source #

Message TpEventAddResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

encodeMessage :: FieldNumber -> TpEventAddResponse -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage TpEventAddResponse Source #

dotProto :: Proxy# TpEventAddResponse -> [DotProtoField] Source #

ToSchema TpEventAddResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

declareNamedSchema :: Proxy TpEventAddResponse -> Declare (Definitions Schema) NamedSchema Source #

type Rep TpEventAddResponse Source # 
Instance details

Defined in Data.Sawtooth.StateContext

type Rep TpEventAddResponse = D1 ('MetaData "TpEventAddResponse" "Data.Sawtooth.StateContext" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'True) (C1 ('MetaCons "TpEventAddResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "tpEventAddResponseStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated TpEventAddResponse_Status))))

data TpEventAddResponse_Status Source #

Constructors

TpEventAddResponse_StatusSTATUS_UNSET 
TpEventAddResponse_StatusOK 
TpEventAddResponse_StatusERROR 

Instances

Instances details
Bounded TpEventAddResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

minBound :: TpEventAddResponse_Status Source #

maxBound :: TpEventAddResponse_Status Source #

Eq TpEventAddResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

(==) :: TpEventAddResponse_Status -> TpEventAddResponse_Status -> Bool Source #

(/=) :: TpEventAddResponse_Status -> TpEventAddResponse_Status -> Bool Source #

Ord TpEventAddResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

compare :: TpEventAddResponse_Status -> TpEventAddResponse_Status -> Ordering Source #

(<) :: TpEventAddResponse_Status -> TpEventAddResponse_Status -> Bool Source #

(<=) :: TpEventAddResponse_Status -> TpEventAddResponse_Status -> Bool Source #

(>) :: TpEventAddResponse_Status -> TpEventAddResponse_Status -> Bool Source #

(>=) :: TpEventAddResponse_Status -> TpEventAddResponse_Status -> Bool Source #

max :: TpEventAddResponse_Status -> TpEventAddResponse_Status -> TpEventAddResponse_Status Source #

min :: TpEventAddResponse_Status -> TpEventAddResponse_Status -> TpEventAddResponse_Status Source #

Show TpEventAddResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

showsPrec :: Int -> TpEventAddResponse_Status -> ShowS Source #

show :: TpEventAddResponse_Status -> String Source #

showList :: [TpEventAddResponse_Status] -> ShowS Source #

Generic TpEventAddResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Associated Types

type Rep TpEventAddResponse_Status :: Type -> Type Source #

Methods

from :: TpEventAddResponse_Status -> Rep TpEventAddResponse_Status x Source #

to :: Rep TpEventAddResponse_Status x -> TpEventAddResponse_Status Source #

ToJSON TpEventAddResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

toJSON :: TpEventAddResponse_Status -> Value Source #

toEncoding :: TpEventAddResponse_Status -> Encoding Source #

toJSONList :: [TpEventAddResponse_Status] -> Value Source #

toEncodingList :: [TpEventAddResponse_Status] -> Encoding Source #

FromJSON TpEventAddResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

parseJSON :: Value -> Parser TpEventAddResponse_Status Source #

parseJSONList :: Value -> Parser [TpEventAddResponse_Status] Source #

NFData TpEventAddResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

rnf :: TpEventAddResponse_Status -> () Source #

ProtoEnum TpEventAddResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

toProtoEnumMay :: Int32 -> Maybe TpEventAddResponse_Status Source #

fromProtoEnum :: TpEventAddResponse_Status -> Int32 Source #

ToJSONPB TpEventAddResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

toJSONPB :: TpEventAddResponse_Status -> Options -> Value Source #

toEncodingPB :: TpEventAddResponse_Status -> Options -> Encoding Source #

FromJSONPB TpEventAddResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

parseJSONPB :: Value -> Parser TpEventAddResponse_Status Source #

HasDefault TpEventAddResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

def :: TpEventAddResponse_Status Source #

isDefault :: TpEventAddResponse_Status -> Bool Source #

Named TpEventAddResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

nameOf :: IsString string => Proxy# TpEventAddResponse_Status -> string Source #

Finite TpEventAddResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

Methods

enumerate :: IsString string => Proxy# TpEventAddResponse_Status -> [(string, Int32)] Source #

type Rep TpEventAddResponse_Status Source # 
Instance details

Defined in Data.Sawtooth.StateContext

type Rep TpEventAddResponse_Status = D1 ('MetaData "TpEventAddResponse_Status" "Data.Sawtooth.StateContext" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "TpEventAddResponse_StatusSTATUS_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "TpEventAddResponse_StatusOK" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "TpEventAddResponse_StatusERROR" 'PrefixI 'False) (U1 :: Type -> Type)))
\ No newline at end of file diff --git a/Data-Sawtooth-Transaction.html b/Data-Sawtooth-Transaction.html index 4cbb65d..e8b2c79 100644 --- a/Data-Sawtooth-Transaction.html +++ b/Data-Sawtooth-Transaction.html @@ -1 +1 @@ -Data.Sawtooth.Transaction
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types
Safe HaskellNone
LanguageHaskell2010

Data.Sawtooth.Transaction

Description

Generated by Haskell protocol buffer compiler. DO NOT EDIT!

Documentation

data TransactionHeader Source #

Constructors

TransactionHeader 

Fields

Instances

Instances details
Eq TransactionHeader Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Methods

(==) :: TransactionHeader -> TransactionHeader -> Bool Source #

(/=) :: TransactionHeader -> TransactionHeader -> Bool Source #

Ord TransactionHeader Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Methods

compare :: TransactionHeader -> TransactionHeader -> Ordering Source #

(<) :: TransactionHeader -> TransactionHeader -> Bool Source #

(<=) :: TransactionHeader -> TransactionHeader -> Bool Source #

(>) :: TransactionHeader -> TransactionHeader -> Bool Source #

(>=) :: TransactionHeader -> TransactionHeader -> Bool Source #

max :: TransactionHeader -> TransactionHeader -> TransactionHeader Source #

min :: TransactionHeader -> TransactionHeader -> TransactionHeader Source #

Show TransactionHeader Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Methods

showsPrec :: Int -> TransactionHeader -> ShowS Source #

show :: TransactionHeader -> String Source #

showList :: [TransactionHeader] -> ShowS Source #

Generic TransactionHeader Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Associated Types

type Rep TransactionHeader :: Type -> Type Source #

Methods

from :: TransactionHeader -> Rep TransactionHeader x Source #

to :: Rep TransactionHeader x -> TransactionHeader Source #

ToJSON TransactionHeader Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Methods

toJSON :: TransactionHeader -> Value Source #

toEncoding :: TransactionHeader -> Encoding Source #

toJSONList :: [TransactionHeader] -> Value Source #

toEncodingList :: [TransactionHeader] -> Encoding Source #

FromJSON TransactionHeader Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Methods

parseJSON :: Value -> Parser TransactionHeader Source #

parseJSONList :: Value -> Parser [TransactionHeader] Source #

NFData TransactionHeader Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Methods

rnf :: TransactionHeader -> () Source #

ToJSONPB TransactionHeader Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Methods

toJSONPB :: TransactionHeader -> Options -> Value Source #

toEncodingPB :: TransactionHeader -> Options -> Encoding Source #

FromJSONPB TransactionHeader Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Methods

parseJSONPB :: Value -> Parser TransactionHeader Source #

HasDefault TransactionHeader Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Methods

def :: TransactionHeader Source #

isDefault :: TransactionHeader -> Bool Source #

Named TransactionHeader Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Methods

nameOf :: IsString string => Proxy# TransactionHeader -> string Source #

Message TransactionHeader Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Methods

encodeMessage :: FieldNumber -> TransactionHeader -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage TransactionHeader Source #

dotProto :: Proxy# TransactionHeader -> [DotProtoField] Source #

ToSchema TransactionHeader Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Methods

declareNamedSchema :: Proxy TransactionHeader -> Declare (Definitions Schema) NamedSchema Source #

type Rep TransactionHeader Source # 
Instance details

Defined in Data.Sawtooth.Transaction

type Rep TransactionHeader = D1 ('MetaData "TransactionHeader" "Data.Sawtooth.Transaction" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "TransactionHeader" 'PrefixI 'True) (((S1 ('MetaSel ('Just "transactionHeaderBatcherPublicKey") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "transactionHeaderDependencies") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Text))) :*: (S1 ('MetaSel ('Just "transactionHeaderFamilyName") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "transactionHeaderFamilyVersion") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text))) :*: ((S1 ('MetaSel ('Just "transactionHeaderInputs") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Text)) :*: S1 ('MetaSel ('Just "transactionHeaderNonce") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)) :*: (S1 ('MetaSel ('Just "transactionHeaderOutputs") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Text)) :*: (S1 ('MetaSel ('Just "transactionHeaderPayloadSha512") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "transactionHeaderSignerPublicKey") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text))))))

data Transaction Source #

Constructors

Transaction 

Fields

Instances

Instances details
Eq Transaction Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Methods

(==) :: Transaction -> Transaction -> Bool Source #

(/=) :: Transaction -> Transaction -> Bool Source #

Ord Transaction Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Methods

compare :: Transaction -> Transaction -> Ordering Source #

(<) :: Transaction -> Transaction -> Bool Source #

(<=) :: Transaction -> Transaction -> Bool Source #

(>) :: Transaction -> Transaction -> Bool Source #

(>=) :: Transaction -> Transaction -> Bool Source #

max :: Transaction -> Transaction -> Transaction Source #

min :: Transaction -> Transaction -> Transaction Source #

Show Transaction Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Methods

showsPrec :: Int -> Transaction -> ShowS Source #

show :: Transaction -> String Source #

showList :: [Transaction] -> ShowS Source #

Generic Transaction Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Associated Types

type Rep Transaction :: Type -> Type Source #

Methods

from :: Transaction -> Rep Transaction x Source #

to :: Rep Transaction x -> Transaction Source #

ToJSON Transaction Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Methods

toJSON :: Transaction -> Value Source #

toEncoding :: Transaction -> Encoding Source #

toJSONList :: [Transaction] -> Value Source #

toEncodingList :: [Transaction] -> Encoding Source #

FromJSON Transaction Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Methods

parseJSON :: Value -> Parser Transaction Source #

parseJSONList :: Value -> Parser [Transaction] Source #

NFData Transaction Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Methods

rnf :: Transaction -> () Source #

ToJSONPB Transaction Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Methods

toJSONPB :: Transaction -> Options -> Value Source #

toEncodingPB :: Transaction -> Options -> Encoding Source #

FromJSONPB Transaction Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Methods

parseJSONPB :: Value -> Parser Transaction Source #

HasDefault Transaction Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Methods

def :: Transaction Source #

isDefault :: Transaction -> Bool Source #

Named Transaction Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Methods

nameOf :: IsString string => Proxy# Transaction -> string Source #

Message Transaction Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Methods

encodeMessage :: FieldNumber -> Transaction -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage Transaction Source #

dotProto :: Proxy# Transaction -> [DotProtoField] Source #

ToSchema Transaction Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Methods

declareNamedSchema :: Proxy Transaction -> Declare (Definitions Schema) NamedSchema Source #

type Rep Transaction Source # 
Instance details

Defined in Data.Sawtooth.Transaction

type Rep Transaction = D1 ('MetaData "Transaction" "Data.Sawtooth.Transaction" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "Transaction" 'PrefixI 'True) (S1 ('MetaSel ('Just "transactionHeader") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString) :*: (S1 ('MetaSel ('Just "transactionHeaderSignature") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "transactionPayload") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString))))

newtype TransactionList Source #

Constructors

TransactionList 

Fields

Instances

Instances details
Eq TransactionList Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Methods

(==) :: TransactionList -> TransactionList -> Bool Source #

(/=) :: TransactionList -> TransactionList -> Bool Source #

Ord TransactionList Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Methods

compare :: TransactionList -> TransactionList -> Ordering Source #

(<) :: TransactionList -> TransactionList -> Bool Source #

(<=) :: TransactionList -> TransactionList -> Bool Source #

(>) :: TransactionList -> TransactionList -> Bool Source #

(>=) :: TransactionList -> TransactionList -> Bool Source #

max :: TransactionList -> TransactionList -> TransactionList Source #

min :: TransactionList -> TransactionList -> TransactionList Source #

Show TransactionList Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Methods

showsPrec :: Int -> TransactionList -> ShowS Source #

show :: TransactionList -> String Source #

showList :: [TransactionList] -> ShowS Source #

Generic TransactionList Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Associated Types

type Rep TransactionList :: Type -> Type Source #

Methods

from :: TransactionList -> Rep TransactionList x Source #

to :: Rep TransactionList x -> TransactionList Source #

ToJSON TransactionList Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Methods

toJSON :: TransactionList -> Value Source #

toEncoding :: TransactionList -> Encoding Source #

toJSONList :: [TransactionList] -> Value Source #

toEncodingList :: [TransactionList] -> Encoding Source #

FromJSON TransactionList Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Methods

parseJSON :: Value -> Parser TransactionList Source #

parseJSONList :: Value -> Parser [TransactionList] Source #

NFData TransactionList Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Methods

rnf :: TransactionList -> () Source #

ToJSONPB TransactionList Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Methods

toJSONPB :: TransactionList -> Options -> Value Source #

toEncodingPB :: TransactionList -> Options -> Encoding Source #

FromJSONPB TransactionList Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Methods

parseJSONPB :: Value -> Parser TransactionList Source #

HasDefault TransactionList Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Methods

def :: TransactionList Source #

isDefault :: TransactionList -> Bool Source #

Named TransactionList Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Methods

nameOf :: IsString string => Proxy# TransactionList -> string Source #

Message TransactionList Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Methods

encodeMessage :: FieldNumber -> TransactionList -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage TransactionList Source #

dotProto :: Proxy# TransactionList -> [DotProtoField] Source #

ToSchema TransactionList Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Methods

declareNamedSchema :: Proxy TransactionList -> Declare (Definitions Schema) NamedSchema Source #

type Rep TransactionList Source # 
Instance details

Defined in Data.Sawtooth.Transaction

type Rep TransactionList = D1 ('MetaData "TransactionList" "Data.Sawtooth.Transaction" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'True) (C1 ('MetaCons "TransactionList" 'PrefixI 'True) (S1 ('MetaSel ('Just "transactionListTransactions") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Transaction))))
\ No newline at end of file +Data.Sawtooth.Transaction
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types
Safe HaskellNone
LanguageHaskell2010

Data.Sawtooth.Transaction

Description

Generated by Haskell protocol buffer compiler. DO NOT EDIT!

Documentation

data TransactionHeader Source #

Constructors

TransactionHeader 

Fields

Instances

Instances details
Eq TransactionHeader Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Methods

(==) :: TransactionHeader -> TransactionHeader -> Bool Source #

(/=) :: TransactionHeader -> TransactionHeader -> Bool Source #

Ord TransactionHeader Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Methods

compare :: TransactionHeader -> TransactionHeader -> Ordering Source #

(<) :: TransactionHeader -> TransactionHeader -> Bool Source #

(<=) :: TransactionHeader -> TransactionHeader -> Bool Source #

(>) :: TransactionHeader -> TransactionHeader -> Bool Source #

(>=) :: TransactionHeader -> TransactionHeader -> Bool Source #

max :: TransactionHeader -> TransactionHeader -> TransactionHeader Source #

min :: TransactionHeader -> TransactionHeader -> TransactionHeader Source #

Show TransactionHeader Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Methods

showsPrec :: Int -> TransactionHeader -> ShowS Source #

show :: TransactionHeader -> String Source #

showList :: [TransactionHeader] -> ShowS Source #

Generic TransactionHeader Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Associated Types

type Rep TransactionHeader :: Type -> Type Source #

Methods

from :: TransactionHeader -> Rep TransactionHeader x Source #

to :: Rep TransactionHeader x -> TransactionHeader Source #

ToJSON TransactionHeader Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Methods

toJSON :: TransactionHeader -> Value Source #

toEncoding :: TransactionHeader -> Encoding Source #

toJSONList :: [TransactionHeader] -> Value Source #

toEncodingList :: [TransactionHeader] -> Encoding Source #

FromJSON TransactionHeader Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Methods

parseJSON :: Value -> Parser TransactionHeader Source #

parseJSONList :: Value -> Parser [TransactionHeader] Source #

NFData TransactionHeader Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Methods

rnf :: TransactionHeader -> () Source #

ToJSONPB TransactionHeader Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Methods

toJSONPB :: TransactionHeader -> Options -> Value Source #

toEncodingPB :: TransactionHeader -> Options -> Encoding Source #

FromJSONPB TransactionHeader Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Methods

parseJSONPB :: Value -> Parser TransactionHeader Source #

HasDefault TransactionHeader Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Methods

def :: TransactionHeader Source #

isDefault :: TransactionHeader -> Bool Source #

Named TransactionHeader Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Methods

nameOf :: IsString string => Proxy# TransactionHeader -> string Source #

Message TransactionHeader Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Methods

encodeMessage :: FieldNumber -> TransactionHeader -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage TransactionHeader Source #

dotProto :: Proxy# TransactionHeader -> [DotProtoField] Source #

ToSchema TransactionHeader Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Methods

declareNamedSchema :: Proxy TransactionHeader -> Declare (Definitions Schema) NamedSchema Source #

type Rep TransactionHeader Source # 
Instance details

Defined in Data.Sawtooth.Transaction

type Rep TransactionHeader = D1 ('MetaData "TransactionHeader" "Data.Sawtooth.Transaction" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "TransactionHeader" 'PrefixI 'True) (((S1 ('MetaSel ('Just "transactionHeaderBatcherPublicKey") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "transactionHeaderDependencies") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Text))) :*: (S1 ('MetaSel ('Just "transactionHeaderFamilyName") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "transactionHeaderFamilyVersion") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text))) :*: ((S1 ('MetaSel ('Just "transactionHeaderInputs") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Text)) :*: S1 ('MetaSel ('Just "transactionHeaderNonce") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)) :*: (S1 ('MetaSel ('Just "transactionHeaderOutputs") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Text)) :*: (S1 ('MetaSel ('Just "transactionHeaderPayloadSha512") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "transactionHeaderSignerPublicKey") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text))))))

data Transaction Source #

Constructors

Transaction 

Fields

Instances

Instances details
Eq Transaction Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Methods

(==) :: Transaction -> Transaction -> Bool Source #

(/=) :: Transaction -> Transaction -> Bool Source #

Ord Transaction Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Methods

compare :: Transaction -> Transaction -> Ordering Source #

(<) :: Transaction -> Transaction -> Bool Source #

(<=) :: Transaction -> Transaction -> Bool Source #

(>) :: Transaction -> Transaction -> Bool Source #

(>=) :: Transaction -> Transaction -> Bool Source #

max :: Transaction -> Transaction -> Transaction Source #

min :: Transaction -> Transaction -> Transaction Source #

Show Transaction Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Methods

showsPrec :: Int -> Transaction -> ShowS Source #

show :: Transaction -> String Source #

showList :: [Transaction] -> ShowS Source #

Generic Transaction Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Associated Types

type Rep Transaction :: Type -> Type Source #

Methods

from :: Transaction -> Rep Transaction x Source #

to :: Rep Transaction x -> Transaction Source #

ToJSON Transaction Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Methods

toJSON :: Transaction -> Value Source #

toEncoding :: Transaction -> Encoding Source #

toJSONList :: [Transaction] -> Value Source #

toEncodingList :: [Transaction] -> Encoding Source #

FromJSON Transaction Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Methods

parseJSON :: Value -> Parser Transaction Source #

parseJSONList :: Value -> Parser [Transaction] Source #

NFData Transaction Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Methods

rnf :: Transaction -> () Source #

ToJSONPB Transaction Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Methods

toJSONPB :: Transaction -> Options -> Value Source #

toEncodingPB :: Transaction -> Options -> Encoding Source #

FromJSONPB Transaction Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Methods

parseJSONPB :: Value -> Parser Transaction Source #

HasDefault Transaction Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Methods

def :: Transaction Source #

isDefault :: Transaction -> Bool Source #

Named Transaction Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Methods

nameOf :: IsString string => Proxy# Transaction -> string Source #

Message Transaction Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Methods

encodeMessage :: FieldNumber -> Transaction -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage Transaction Source #

dotProto :: Proxy# Transaction -> [DotProtoField] Source #

ToSchema Transaction Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Methods

declareNamedSchema :: Proxy Transaction -> Declare (Definitions Schema) NamedSchema Source #

type Rep Transaction Source # 
Instance details

Defined in Data.Sawtooth.Transaction

type Rep Transaction = D1 ('MetaData "Transaction" "Data.Sawtooth.Transaction" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "Transaction" 'PrefixI 'True) (S1 ('MetaSel ('Just "transactionHeader") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString) :*: (S1 ('MetaSel ('Just "transactionHeaderSignature") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "transactionPayload") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString))))

newtype TransactionList Source #

Constructors

TransactionList 

Fields

Instances

Instances details
Eq TransactionList Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Methods

(==) :: TransactionList -> TransactionList -> Bool Source #

(/=) :: TransactionList -> TransactionList -> Bool Source #

Ord TransactionList Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Methods

compare :: TransactionList -> TransactionList -> Ordering Source #

(<) :: TransactionList -> TransactionList -> Bool Source #

(<=) :: TransactionList -> TransactionList -> Bool Source #

(>) :: TransactionList -> TransactionList -> Bool Source #

(>=) :: TransactionList -> TransactionList -> Bool Source #

max :: TransactionList -> TransactionList -> TransactionList Source #

min :: TransactionList -> TransactionList -> TransactionList Source #

Show TransactionList Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Methods

showsPrec :: Int -> TransactionList -> ShowS Source #

show :: TransactionList -> String Source #

showList :: [TransactionList] -> ShowS Source #

Generic TransactionList Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Associated Types

type Rep TransactionList :: Type -> Type Source #

Methods

from :: TransactionList -> Rep TransactionList x Source #

to :: Rep TransactionList x -> TransactionList Source #

ToJSON TransactionList Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Methods

toJSON :: TransactionList -> Value Source #

toEncoding :: TransactionList -> Encoding Source #

toJSONList :: [TransactionList] -> Value Source #

toEncodingList :: [TransactionList] -> Encoding Source #

FromJSON TransactionList Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Methods

parseJSON :: Value -> Parser TransactionList Source #

parseJSONList :: Value -> Parser [TransactionList] Source #

NFData TransactionList Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Methods

rnf :: TransactionList -> () Source #

ToJSONPB TransactionList Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Methods

toJSONPB :: TransactionList -> Options -> Value Source #

toEncodingPB :: TransactionList -> Options -> Encoding Source #

FromJSONPB TransactionList Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Methods

parseJSONPB :: Value -> Parser TransactionList Source #

HasDefault TransactionList Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Methods

def :: TransactionList Source #

isDefault :: TransactionList -> Bool Source #

Named TransactionList Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Methods

nameOf :: IsString string => Proxy# TransactionList -> string Source #

Message TransactionList Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Methods

encodeMessage :: FieldNumber -> TransactionList -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage TransactionList Source #

dotProto :: Proxy# TransactionList -> [DotProtoField] Source #

ToSchema TransactionList Source # 
Instance details

Defined in Data.Sawtooth.Transaction

Methods

declareNamedSchema :: Proxy TransactionList -> Declare (Definitions Schema) NamedSchema Source #

type Rep TransactionList Source # 
Instance details

Defined in Data.Sawtooth.Transaction

type Rep TransactionList = D1 ('MetaData "TransactionList" "Data.Sawtooth.Transaction" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'True) (C1 ('MetaCons "TransactionList" 'PrefixI 'True) (S1 ('MetaSel ('Just "transactionListTransactions") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Transaction))))
\ No newline at end of file diff --git a/Data-Sawtooth-TransactionReceipt.html b/Data-Sawtooth-TransactionReceipt.html index 276c8f8..0d6c385 100644 --- a/Data-Sawtooth-TransactionReceipt.html +++ b/Data-Sawtooth-TransactionReceipt.html @@ -1 +1 @@ -Data.Sawtooth.TransactionReceipt
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types
Safe HaskellNone
LanguageHaskell2010

Data.Sawtooth.TransactionReceipt

Description

Generated by Haskell protocol buffer compiler. DO NOT EDIT!

Documentation

data TransactionReceipt Source #

Constructors

TransactionReceipt 

Fields

Instances

Instances details
Eq TransactionReceipt Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

(==) :: TransactionReceipt -> TransactionReceipt -> Bool Source #

(/=) :: TransactionReceipt -> TransactionReceipt -> Bool Source #

Ord TransactionReceipt Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

compare :: TransactionReceipt -> TransactionReceipt -> Ordering Source #

(<) :: TransactionReceipt -> TransactionReceipt -> Bool Source #

(<=) :: TransactionReceipt -> TransactionReceipt -> Bool Source #

(>) :: TransactionReceipt -> TransactionReceipt -> Bool Source #

(>=) :: TransactionReceipt -> TransactionReceipt -> Bool Source #

max :: TransactionReceipt -> TransactionReceipt -> TransactionReceipt Source #

min :: TransactionReceipt -> TransactionReceipt -> TransactionReceipt Source #

Show TransactionReceipt Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

showsPrec :: Int -> TransactionReceipt -> ShowS Source #

show :: TransactionReceipt -> String Source #

showList :: [TransactionReceipt] -> ShowS Source #

Generic TransactionReceipt Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Associated Types

type Rep TransactionReceipt :: Type -> Type Source #

Methods

from :: TransactionReceipt -> Rep TransactionReceipt x Source #

to :: Rep TransactionReceipt x -> TransactionReceipt Source #

ToJSON TransactionReceipt Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

toJSON :: TransactionReceipt -> Value Source #

toEncoding :: TransactionReceipt -> Encoding Source #

toJSONList :: [TransactionReceipt] -> Value Source #

toEncodingList :: [TransactionReceipt] -> Encoding Source #

FromJSON TransactionReceipt Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

parseJSON :: Value -> Parser TransactionReceipt Source #

parseJSONList :: Value -> Parser [TransactionReceipt] Source #

NFData TransactionReceipt Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

rnf :: TransactionReceipt -> () Source #

ToJSONPB TransactionReceipt Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

toJSONPB :: TransactionReceipt -> Options -> Value Source #

toEncodingPB :: TransactionReceipt -> Options -> Encoding Source #

FromJSONPB TransactionReceipt Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

parseJSONPB :: Value -> Parser TransactionReceipt Source #

HasDefault TransactionReceipt Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

def :: TransactionReceipt Source #

isDefault :: TransactionReceipt -> Bool Source #

Named TransactionReceipt Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

nameOf :: IsString string => Proxy# TransactionReceipt -> string Source #

Message TransactionReceipt Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

encodeMessage :: FieldNumber -> TransactionReceipt -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage TransactionReceipt Source #

dotProto :: Proxy# TransactionReceipt -> [DotProtoField] Source #

ToSchema TransactionReceipt Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

declareNamedSchema :: Proxy TransactionReceipt -> Declare (Definitions Schema) NamedSchema Source #

type Rep TransactionReceipt Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

type Rep TransactionReceipt = D1 ('MetaData "TransactionReceipt" "Data.Sawtooth.TransactionReceipt" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "TransactionReceipt" 'PrefixI 'True) ((S1 ('MetaSel ('Just "transactionReceiptStateChanges") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector StateChange)) :*: S1 ('MetaSel ('Just "transactionReceiptEvents") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Event))) :*: (S1 ('MetaSel ('Just "transactionReceiptData") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector ByteString)) :*: S1 ('MetaSel ('Just "transactionReceiptTransactionId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text))))

data StateChange Source #

Constructors

StateChange 

Fields

Instances

Instances details
Eq StateChange Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

(==) :: StateChange -> StateChange -> Bool Source #

(/=) :: StateChange -> StateChange -> Bool Source #

Ord StateChange Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

compare :: StateChange -> StateChange -> Ordering Source #

(<) :: StateChange -> StateChange -> Bool Source #

(<=) :: StateChange -> StateChange -> Bool Source #

(>) :: StateChange -> StateChange -> Bool Source #

(>=) :: StateChange -> StateChange -> Bool Source #

max :: StateChange -> StateChange -> StateChange Source #

min :: StateChange -> StateChange -> StateChange Source #

Show StateChange Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

showsPrec :: Int -> StateChange -> ShowS Source #

show :: StateChange -> String Source #

showList :: [StateChange] -> ShowS Source #

Generic StateChange Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Associated Types

type Rep StateChange :: Type -> Type Source #

Methods

from :: StateChange -> Rep StateChange x Source #

to :: Rep StateChange x -> StateChange Source #

ToJSON StateChange Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

toJSON :: StateChange -> Value Source #

toEncoding :: StateChange -> Encoding Source #

toJSONList :: [StateChange] -> Value Source #

toEncodingList :: [StateChange] -> Encoding Source #

FromJSON StateChange Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

parseJSON :: Value -> Parser StateChange Source #

parseJSONList :: Value -> Parser [StateChange] Source #

NFData StateChange Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

rnf :: StateChange -> () Source #

ToJSONPB StateChange Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

toJSONPB :: StateChange -> Options -> Value Source #

toEncodingPB :: StateChange -> Options -> Encoding Source #

FromJSONPB StateChange Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

parseJSONPB :: Value -> Parser StateChange Source #

HasDefault StateChange Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

def :: StateChange Source #

isDefault :: StateChange -> Bool Source #

Named StateChange Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

nameOf :: IsString string => Proxy# StateChange -> string Source #

Message StateChange Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

encodeMessage :: FieldNumber -> StateChange -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage StateChange Source #

dotProto :: Proxy# StateChange -> [DotProtoField] Source #

ToSchema StateChange Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

declareNamedSchema :: Proxy StateChange -> Declare (Definitions Schema) NamedSchema Source #

type Rep StateChange Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

type Rep StateChange = D1 ('MetaData "StateChange" "Data.Sawtooth.TransactionReceipt" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "StateChange" 'PrefixI 'True) (S1 ('MetaSel ('Just "stateChangeAddress") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: (S1 ('MetaSel ('Just "stateChangeValue") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString) :*: S1 ('MetaSel ('Just "stateChangeType") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated StateChange_Type)))))

data StateChange_Type Source #

Constructors

StateChange_TypeTYPE_UNSET 
StateChange_TypeSET 
StateChange_TypeDELETE 

Instances

Instances details
Bounded StateChange_Type Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

minBound :: StateChange_Type Source #

maxBound :: StateChange_Type Source #

Eq StateChange_Type Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

(==) :: StateChange_Type -> StateChange_Type -> Bool Source #

(/=) :: StateChange_Type -> StateChange_Type -> Bool Source #

Ord StateChange_Type Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

compare :: StateChange_Type -> StateChange_Type -> Ordering Source #

(<) :: StateChange_Type -> StateChange_Type -> Bool Source #

(<=) :: StateChange_Type -> StateChange_Type -> Bool Source #

(>) :: StateChange_Type -> StateChange_Type -> Bool Source #

(>=) :: StateChange_Type -> StateChange_Type -> Bool Source #

max :: StateChange_Type -> StateChange_Type -> StateChange_Type Source #

min :: StateChange_Type -> StateChange_Type -> StateChange_Type Source #

Show StateChange_Type Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

showsPrec :: Int -> StateChange_Type -> ShowS Source #

show :: StateChange_Type -> String Source #

showList :: [StateChange_Type] -> ShowS Source #

Generic StateChange_Type Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Associated Types

type Rep StateChange_Type :: Type -> Type Source #

Methods

from :: StateChange_Type -> Rep StateChange_Type x Source #

to :: Rep StateChange_Type x -> StateChange_Type Source #

ToJSON StateChange_Type Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

toJSON :: StateChange_Type -> Value Source #

toEncoding :: StateChange_Type -> Encoding Source #

toJSONList :: [StateChange_Type] -> Value Source #

toEncodingList :: [StateChange_Type] -> Encoding Source #

FromJSON StateChange_Type Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

parseJSON :: Value -> Parser StateChange_Type Source #

parseJSONList :: Value -> Parser [StateChange_Type] Source #

NFData StateChange_Type Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

rnf :: StateChange_Type -> () Source #

ProtoEnum StateChange_Type Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

toProtoEnumMay :: Int32 -> Maybe StateChange_Type Source #

fromProtoEnum :: StateChange_Type -> Int32 Source #

ToJSONPB StateChange_Type Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

toJSONPB :: StateChange_Type -> Options -> Value Source #

toEncodingPB :: StateChange_Type -> Options -> Encoding Source #

FromJSONPB StateChange_Type Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

parseJSONPB :: Value -> Parser StateChange_Type Source #

HasDefault StateChange_Type Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

def :: StateChange_Type Source #

isDefault :: StateChange_Type -> Bool Source #

Named StateChange_Type Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

nameOf :: IsString string => Proxy# StateChange_Type -> string Source #

Finite StateChange_Type Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

enumerate :: IsString string => Proxy# StateChange_Type -> [(string, Int32)] Source #

type Rep StateChange_Type Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

type Rep StateChange_Type = D1 ('MetaData "StateChange_Type" "Data.Sawtooth.TransactionReceipt" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "StateChange_TypeTYPE_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "StateChange_TypeSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "StateChange_TypeDELETE" 'PrefixI 'False) (U1 :: Type -> Type)))

newtype StateChangeList Source #

Constructors

StateChangeList 

Fields

Instances

Instances details
Eq StateChangeList Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

(==) :: StateChangeList -> StateChangeList -> Bool Source #

(/=) :: StateChangeList -> StateChangeList -> Bool Source #

Ord StateChangeList Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

compare :: StateChangeList -> StateChangeList -> Ordering Source #

(<) :: StateChangeList -> StateChangeList -> Bool Source #

(<=) :: StateChangeList -> StateChangeList -> Bool Source #

(>) :: StateChangeList -> StateChangeList -> Bool Source #

(>=) :: StateChangeList -> StateChangeList -> Bool Source #

max :: StateChangeList -> StateChangeList -> StateChangeList Source #

min :: StateChangeList -> StateChangeList -> StateChangeList Source #

Show StateChangeList Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

showsPrec :: Int -> StateChangeList -> ShowS Source #

show :: StateChangeList -> String Source #

showList :: [StateChangeList] -> ShowS Source #

Generic StateChangeList Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Associated Types

type Rep StateChangeList :: Type -> Type Source #

Methods

from :: StateChangeList -> Rep StateChangeList x Source #

to :: Rep StateChangeList x -> StateChangeList Source #

ToJSON StateChangeList Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

toJSON :: StateChangeList -> Value Source #

toEncoding :: StateChangeList -> Encoding Source #

toJSONList :: [StateChangeList] -> Value Source #

toEncodingList :: [StateChangeList] -> Encoding Source #

FromJSON StateChangeList Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

parseJSON :: Value -> Parser StateChangeList Source #

parseJSONList :: Value -> Parser [StateChangeList] Source #

NFData StateChangeList Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

rnf :: StateChangeList -> () Source #

ToJSONPB StateChangeList Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

toJSONPB :: StateChangeList -> Options -> Value Source #

toEncodingPB :: StateChangeList -> Options -> Encoding Source #

FromJSONPB StateChangeList Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

parseJSONPB :: Value -> Parser StateChangeList Source #

HasDefault StateChangeList Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

def :: StateChangeList Source #

isDefault :: StateChangeList -> Bool Source #

Named StateChangeList Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

nameOf :: IsString string => Proxy# StateChangeList -> string Source #

Message StateChangeList Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

encodeMessage :: FieldNumber -> StateChangeList -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage StateChangeList Source #

dotProto :: Proxy# StateChangeList -> [DotProtoField] Source #

ToSchema StateChangeList Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

declareNamedSchema :: Proxy StateChangeList -> Declare (Definitions Schema) NamedSchema Source #

type Rep StateChangeList Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

type Rep StateChangeList = D1 ('MetaData "StateChangeList" "Data.Sawtooth.TransactionReceipt" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'True) (C1 ('MetaCons "StateChangeList" 'PrefixI 'True) (S1 ('MetaSel ('Just "stateChangeListStateChanges") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector StateChange))))
\ No newline at end of file +Data.Sawtooth.TransactionReceipt
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types
Safe HaskellNone
LanguageHaskell2010

Data.Sawtooth.TransactionReceipt

Description

Generated by Haskell protocol buffer compiler. DO NOT EDIT!

Documentation

data TransactionReceipt Source #

Constructors

TransactionReceipt 

Fields

Instances

Instances details
Eq TransactionReceipt Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

(==) :: TransactionReceipt -> TransactionReceipt -> Bool Source #

(/=) :: TransactionReceipt -> TransactionReceipt -> Bool Source #

Ord TransactionReceipt Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

compare :: TransactionReceipt -> TransactionReceipt -> Ordering Source #

(<) :: TransactionReceipt -> TransactionReceipt -> Bool Source #

(<=) :: TransactionReceipt -> TransactionReceipt -> Bool Source #

(>) :: TransactionReceipt -> TransactionReceipt -> Bool Source #

(>=) :: TransactionReceipt -> TransactionReceipt -> Bool Source #

max :: TransactionReceipt -> TransactionReceipt -> TransactionReceipt Source #

min :: TransactionReceipt -> TransactionReceipt -> TransactionReceipt Source #

Show TransactionReceipt Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

showsPrec :: Int -> TransactionReceipt -> ShowS Source #

show :: TransactionReceipt -> String Source #

showList :: [TransactionReceipt] -> ShowS Source #

Generic TransactionReceipt Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Associated Types

type Rep TransactionReceipt :: Type -> Type Source #

Methods

from :: TransactionReceipt -> Rep TransactionReceipt x Source #

to :: Rep TransactionReceipt x -> TransactionReceipt Source #

ToJSON TransactionReceipt Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

toJSON :: TransactionReceipt -> Value Source #

toEncoding :: TransactionReceipt -> Encoding Source #

toJSONList :: [TransactionReceipt] -> Value Source #

toEncodingList :: [TransactionReceipt] -> Encoding Source #

FromJSON TransactionReceipt Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

parseJSON :: Value -> Parser TransactionReceipt Source #

parseJSONList :: Value -> Parser [TransactionReceipt] Source #

NFData TransactionReceipt Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

rnf :: TransactionReceipt -> () Source #

ToJSONPB TransactionReceipt Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

toJSONPB :: TransactionReceipt -> Options -> Value Source #

toEncodingPB :: TransactionReceipt -> Options -> Encoding Source #

FromJSONPB TransactionReceipt Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

parseJSONPB :: Value -> Parser TransactionReceipt Source #

HasDefault TransactionReceipt Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

def :: TransactionReceipt Source #

isDefault :: TransactionReceipt -> Bool Source #

Named TransactionReceipt Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

nameOf :: IsString string => Proxy# TransactionReceipt -> string Source #

Message TransactionReceipt Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

encodeMessage :: FieldNumber -> TransactionReceipt -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage TransactionReceipt Source #

dotProto :: Proxy# TransactionReceipt -> [DotProtoField] Source #

ToSchema TransactionReceipt Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

declareNamedSchema :: Proxy TransactionReceipt -> Declare (Definitions Schema) NamedSchema Source #

type Rep TransactionReceipt Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

type Rep TransactionReceipt = D1 ('MetaData "TransactionReceipt" "Data.Sawtooth.TransactionReceipt" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "TransactionReceipt" 'PrefixI 'True) ((S1 ('MetaSel ('Just "transactionReceiptStateChanges") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector StateChange)) :*: S1 ('MetaSel ('Just "transactionReceiptEvents") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Event))) :*: (S1 ('MetaSel ('Just "transactionReceiptData") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector ByteString)) :*: S1 ('MetaSel ('Just "transactionReceiptTransactionId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text))))

data StateChange Source #

Constructors

StateChange 

Fields

Instances

Instances details
Eq StateChange Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

(==) :: StateChange -> StateChange -> Bool Source #

(/=) :: StateChange -> StateChange -> Bool Source #

Ord StateChange Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

compare :: StateChange -> StateChange -> Ordering Source #

(<) :: StateChange -> StateChange -> Bool Source #

(<=) :: StateChange -> StateChange -> Bool Source #

(>) :: StateChange -> StateChange -> Bool Source #

(>=) :: StateChange -> StateChange -> Bool Source #

max :: StateChange -> StateChange -> StateChange Source #

min :: StateChange -> StateChange -> StateChange Source #

Show StateChange Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

showsPrec :: Int -> StateChange -> ShowS Source #

show :: StateChange -> String Source #

showList :: [StateChange] -> ShowS Source #

Generic StateChange Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Associated Types

type Rep StateChange :: Type -> Type Source #

Methods

from :: StateChange -> Rep StateChange x Source #

to :: Rep StateChange x -> StateChange Source #

ToJSON StateChange Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

toJSON :: StateChange -> Value Source #

toEncoding :: StateChange -> Encoding Source #

toJSONList :: [StateChange] -> Value Source #

toEncodingList :: [StateChange] -> Encoding Source #

FromJSON StateChange Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

parseJSON :: Value -> Parser StateChange Source #

parseJSONList :: Value -> Parser [StateChange] Source #

NFData StateChange Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

rnf :: StateChange -> () Source #

ToJSONPB StateChange Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

toJSONPB :: StateChange -> Options -> Value Source #

toEncodingPB :: StateChange -> Options -> Encoding Source #

FromJSONPB StateChange Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

parseJSONPB :: Value -> Parser StateChange Source #

HasDefault StateChange Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

def :: StateChange Source #

isDefault :: StateChange -> Bool Source #

Named StateChange Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

nameOf :: IsString string => Proxy# StateChange -> string Source #

Message StateChange Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

encodeMessage :: FieldNumber -> StateChange -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage StateChange Source #

dotProto :: Proxy# StateChange -> [DotProtoField] Source #

ToSchema StateChange Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

declareNamedSchema :: Proxy StateChange -> Declare (Definitions Schema) NamedSchema Source #

type Rep StateChange Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

type Rep StateChange = D1 ('MetaData "StateChange" "Data.Sawtooth.TransactionReceipt" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "StateChange" 'PrefixI 'True) (S1 ('MetaSel ('Just "stateChangeAddress") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: (S1 ('MetaSel ('Just "stateChangeValue") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString) :*: S1 ('MetaSel ('Just "stateChangeType") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated StateChange_Type)))))

data StateChange_Type Source #

Constructors

StateChange_TypeTYPE_UNSET 
StateChange_TypeSET 
StateChange_TypeDELETE 

Instances

Instances details
Bounded StateChange_Type Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

minBound :: StateChange_Type Source #

maxBound :: StateChange_Type Source #

Eq StateChange_Type Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

(==) :: StateChange_Type -> StateChange_Type -> Bool Source #

(/=) :: StateChange_Type -> StateChange_Type -> Bool Source #

Ord StateChange_Type Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

compare :: StateChange_Type -> StateChange_Type -> Ordering Source #

(<) :: StateChange_Type -> StateChange_Type -> Bool Source #

(<=) :: StateChange_Type -> StateChange_Type -> Bool Source #

(>) :: StateChange_Type -> StateChange_Type -> Bool Source #

(>=) :: StateChange_Type -> StateChange_Type -> Bool Source #

max :: StateChange_Type -> StateChange_Type -> StateChange_Type Source #

min :: StateChange_Type -> StateChange_Type -> StateChange_Type Source #

Show StateChange_Type Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

showsPrec :: Int -> StateChange_Type -> ShowS Source #

show :: StateChange_Type -> String Source #

showList :: [StateChange_Type] -> ShowS Source #

Generic StateChange_Type Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Associated Types

type Rep StateChange_Type :: Type -> Type Source #

Methods

from :: StateChange_Type -> Rep StateChange_Type x Source #

to :: Rep StateChange_Type x -> StateChange_Type Source #

ToJSON StateChange_Type Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

toJSON :: StateChange_Type -> Value Source #

toEncoding :: StateChange_Type -> Encoding Source #

toJSONList :: [StateChange_Type] -> Value Source #

toEncodingList :: [StateChange_Type] -> Encoding Source #

FromJSON StateChange_Type Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

parseJSON :: Value -> Parser StateChange_Type Source #

parseJSONList :: Value -> Parser [StateChange_Type] Source #

NFData StateChange_Type Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

rnf :: StateChange_Type -> () Source #

ProtoEnum StateChange_Type Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

toProtoEnumMay :: Int32 -> Maybe StateChange_Type Source #

fromProtoEnum :: StateChange_Type -> Int32 Source #

ToJSONPB StateChange_Type Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

toJSONPB :: StateChange_Type -> Options -> Value Source #

toEncodingPB :: StateChange_Type -> Options -> Encoding Source #

FromJSONPB StateChange_Type Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

parseJSONPB :: Value -> Parser StateChange_Type Source #

HasDefault StateChange_Type Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

def :: StateChange_Type Source #

isDefault :: StateChange_Type -> Bool Source #

Named StateChange_Type Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

nameOf :: IsString string => Proxy# StateChange_Type -> string Source #

Finite StateChange_Type Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

enumerate :: IsString string => Proxy# StateChange_Type -> [(string, Int32)] Source #

type Rep StateChange_Type Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

type Rep StateChange_Type = D1 ('MetaData "StateChange_Type" "Data.Sawtooth.TransactionReceipt" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "StateChange_TypeTYPE_UNSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "StateChange_TypeSET" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "StateChange_TypeDELETE" 'PrefixI 'False) (U1 :: Type -> Type)))

newtype StateChangeList Source #

Constructors

StateChangeList 

Fields

Instances

Instances details
Eq StateChangeList Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

(==) :: StateChangeList -> StateChangeList -> Bool Source #

(/=) :: StateChangeList -> StateChangeList -> Bool Source #

Ord StateChangeList Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

compare :: StateChangeList -> StateChangeList -> Ordering Source #

(<) :: StateChangeList -> StateChangeList -> Bool Source #

(<=) :: StateChangeList -> StateChangeList -> Bool Source #

(>) :: StateChangeList -> StateChangeList -> Bool Source #

(>=) :: StateChangeList -> StateChangeList -> Bool Source #

max :: StateChangeList -> StateChangeList -> StateChangeList Source #

min :: StateChangeList -> StateChangeList -> StateChangeList Source #

Show StateChangeList Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

showsPrec :: Int -> StateChangeList -> ShowS Source #

show :: StateChangeList -> String Source #

showList :: [StateChangeList] -> ShowS Source #

Generic StateChangeList Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Associated Types

type Rep StateChangeList :: Type -> Type Source #

Methods

from :: StateChangeList -> Rep StateChangeList x Source #

to :: Rep StateChangeList x -> StateChangeList Source #

ToJSON StateChangeList Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

toJSON :: StateChangeList -> Value Source #

toEncoding :: StateChangeList -> Encoding Source #

toJSONList :: [StateChangeList] -> Value Source #

toEncodingList :: [StateChangeList] -> Encoding Source #

FromJSON StateChangeList Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

parseJSON :: Value -> Parser StateChangeList Source #

parseJSONList :: Value -> Parser [StateChangeList] Source #

NFData StateChangeList Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

rnf :: StateChangeList -> () Source #

ToJSONPB StateChangeList Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

toJSONPB :: StateChangeList -> Options -> Value Source #

toEncodingPB :: StateChangeList -> Options -> Encoding Source #

FromJSONPB StateChangeList Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

parseJSONPB :: Value -> Parser StateChangeList Source #

HasDefault StateChangeList Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

def :: StateChangeList Source #

isDefault :: StateChangeList -> Bool Source #

Named StateChangeList Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

nameOf :: IsString string => Proxy# StateChangeList -> string Source #

Message StateChangeList Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

encodeMessage :: FieldNumber -> StateChangeList -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage StateChangeList Source #

dotProto :: Proxy# StateChangeList -> [DotProtoField] Source #

ToSchema StateChangeList Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

Methods

declareNamedSchema :: Proxy StateChangeList -> Declare (Definitions Schema) NamedSchema Source #

type Rep StateChangeList Source # 
Instance details

Defined in Data.Sawtooth.TransactionReceipt

type Rep StateChangeList = D1 ('MetaData "StateChangeList" "Data.Sawtooth.TransactionReceipt" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'True) (C1 ('MetaCons "StateChangeList" 'PrefixI 'True) (S1 ('MetaSel ('Just "stateChangeListStateChanges") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector StateChange))))
\ No newline at end of file diff --git a/Data-Sawtooth-Validator.html b/Data-Sawtooth-Validator.html index 07b4728..07946c4 100644 --- a/Data-Sawtooth-Validator.html +++ b/Data-Sawtooth-Validator.html @@ -1 +1 @@ -Data.Sawtooth.Validator
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types
Safe HaskellNone
LanguageHaskell2010

Data.Sawtooth.Validator

Description

Generated by Haskell protocol buffer compiler. DO NOT EDIT!

Documentation

newtype MessageList Source #

Constructors

MessageList 

Fields

Instances

Instances details
Eq MessageList Source # 
Instance details

Defined in Data.Sawtooth.Validator

Methods

(==) :: MessageList -> MessageList -> Bool Source #

(/=) :: MessageList -> MessageList -> Bool Source #

Ord MessageList Source # 
Instance details

Defined in Data.Sawtooth.Validator

Methods

compare :: MessageList -> MessageList -> Ordering Source #

(<) :: MessageList -> MessageList -> Bool Source #

(<=) :: MessageList -> MessageList -> Bool Source #

(>) :: MessageList -> MessageList -> Bool Source #

(>=) :: MessageList -> MessageList -> Bool Source #

max :: MessageList -> MessageList -> MessageList Source #

min :: MessageList -> MessageList -> MessageList Source #

Show MessageList Source # 
Instance details

Defined in Data.Sawtooth.Validator

Methods

showsPrec :: Int -> MessageList -> ShowS Source #

show :: MessageList -> String Source #

showList :: [MessageList] -> ShowS Source #

Generic MessageList Source # 
Instance details

Defined in Data.Sawtooth.Validator

Associated Types

type Rep MessageList :: Type -> Type Source #

Methods

from :: MessageList -> Rep MessageList x Source #

to :: Rep MessageList x -> MessageList Source #

ToJSON MessageList Source # 
Instance details

Defined in Data.Sawtooth.Validator

Methods

toJSON :: MessageList -> Value Source #

toEncoding :: MessageList -> Encoding Source #

toJSONList :: [MessageList] -> Value Source #

toEncodingList :: [MessageList] -> Encoding Source #

FromJSON MessageList Source # 
Instance details

Defined in Data.Sawtooth.Validator

Methods

parseJSON :: Value -> Parser MessageList Source #

parseJSONList :: Value -> Parser [MessageList] Source #

NFData MessageList Source # 
Instance details

Defined in Data.Sawtooth.Validator

Methods

rnf :: MessageList -> () Source #

ToJSONPB MessageList Source # 
Instance details

Defined in Data.Sawtooth.Validator

Methods

toJSONPB :: MessageList -> Options -> Value Source #

toEncodingPB :: MessageList -> Options -> Encoding Source #

FromJSONPB MessageList Source # 
Instance details

Defined in Data.Sawtooth.Validator

Methods

parseJSONPB :: Value -> Parser MessageList Source #

HasDefault MessageList Source # 
Instance details

Defined in Data.Sawtooth.Validator

Methods

def :: MessageList Source #

isDefault :: MessageList -> Bool Source #

Named MessageList Source # 
Instance details

Defined in Data.Sawtooth.Validator

Methods

nameOf :: IsString string => Proxy# MessageList -> string Source #

Message MessageList Source # 
Instance details

Defined in Data.Sawtooth.Validator

Methods

encodeMessage :: FieldNumber -> MessageList -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage MessageList Source #

dotProto :: Proxy# MessageList -> [DotProtoField] Source #

ToSchema MessageList Source # 
Instance details

Defined in Data.Sawtooth.Validator

Methods

declareNamedSchema :: Proxy MessageList -> Declare (Definitions Schema) NamedSchema Source #

type Rep MessageList Source # 
Instance details

Defined in Data.Sawtooth.Validator

type Rep MessageList = D1 ('MetaData "MessageList" "Data.Sawtooth.Validator" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'True) (C1 ('MetaCons "MessageList" 'PrefixI 'True) (S1 ('MetaSel ('Just "messageListMessages") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Message))))

data Message Source #

Constructors

Message 

Fields

Instances

Instances details
Eq Message Source # 
Instance details

Defined in Data.Sawtooth.Validator

Methods

(==) :: Message -> Message -> Bool Source #

(/=) :: Message -> Message -> Bool Source #

Ord Message Source # 
Instance details

Defined in Data.Sawtooth.Validator

Methods

compare :: Message -> Message -> Ordering Source #

(<) :: Message -> Message -> Bool Source #

(<=) :: Message -> Message -> Bool Source #

(>) :: Message -> Message -> Bool Source #

(>=) :: Message -> Message -> Bool Source #

max :: Message -> Message -> Message Source #

min :: Message -> Message -> Message Source #

Show Message Source # 
Instance details

Defined in Data.Sawtooth.Validator

Methods

showsPrec :: Int -> Message -> ShowS Source #

show :: Message -> String Source #

showList :: [Message] -> ShowS Source #

Generic Message Source # 
Instance details

Defined in Data.Sawtooth.Validator

Associated Types

type Rep Message :: Type -> Type Source #

Methods

from :: Message -> Rep Message x Source #

to :: Rep Message x -> Message Source #

ToJSON Message Source # 
Instance details

Defined in Data.Sawtooth.Validator

Methods

toJSON :: Message -> Value Source #

toEncoding :: Message -> Encoding Source #

toJSONList :: [Message] -> Value Source #

toEncodingList :: [Message] -> Encoding Source #

FromJSON Message Source # 
Instance details

Defined in Data.Sawtooth.Validator

Methods

parseJSON :: Value -> Parser Message Source #

parseJSONList :: Value -> Parser [Message] Source #

NFData Message Source # 
Instance details

Defined in Data.Sawtooth.Validator

Methods

rnf :: Message -> () Source #

ToJSONPB Message Source # 
Instance details

Defined in Data.Sawtooth.Validator

Methods

toJSONPB :: Message -> Options -> Value Source #

toEncodingPB :: Message -> Options -> Encoding Source #

FromJSONPB Message Source # 
Instance details

Defined in Data.Sawtooth.Validator

Methods

parseJSONPB :: Value -> Parser Message Source #

HasDefault Message Source # 
Instance details

Defined in Data.Sawtooth.Validator

Methods

def :: Message Source #

isDefault :: Message -> Bool Source #

Named Message Source # 
Instance details

Defined in Data.Sawtooth.Validator

Methods

nameOf :: IsString string => Proxy# Message -> string Source #

Message Message Source # 
Instance details

Defined in Data.Sawtooth.Validator

Methods

encodeMessage :: FieldNumber -> Message -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage Message Source #

dotProto :: Proxy# Message -> [DotProtoField] Source #

ToSchema Message Source # 
Instance details

Defined in Data.Sawtooth.Validator

Methods

declareNamedSchema :: Proxy Message -> Declare (Definitions Schema) NamedSchema Source #

type Rep Message Source # 
Instance details

Defined in Data.Sawtooth.Validator

type Rep Message = D1 ('MetaData "Message" "Data.Sawtooth.Validator" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) (C1 ('MetaCons "Message" 'PrefixI 'True) (S1 ('MetaSel ('Just "messageMessageType") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated Message_MessageType)) :*: (S1 ('MetaSel ('Just "messageCorrelationId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "messageContent") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString))))

data Message_MessageType Source #

Constructors

Message_MessageTypeDEFAULT 
Message_MessageTypeTP_REGISTER_REQUEST 
Message_MessageTypeTP_REGISTER_RESPONSE 
Message_MessageTypeTP_UNREGISTER_REQUEST 
Message_MessageTypeTP_UNREGISTER_RESPONSE 
Message_MessageTypeTP_PROCESS_REQUEST 
Message_MessageTypeTP_PROCESS_RESPONSE 
Message_MessageTypeTP_STATE_GET_REQUEST 
Message_MessageTypeTP_STATE_GET_RESPONSE 
Message_MessageTypeTP_STATE_SET_REQUEST 
Message_MessageTypeTP_STATE_SET_RESPONSE 
Message_MessageTypeTP_STATE_DELETE_REQUEST 
Message_MessageTypeTP_STATE_DELETE_RESPONSE 
Message_MessageTypeTP_RECEIPT_ADD_DATA_REQUEST 
Message_MessageTypeTP_RECEIPT_ADD_DATA_RESPONSE 
Message_MessageTypeTP_EVENT_ADD_REQUEST 
Message_MessageTypeTP_EVENT_ADD_RESPONSE 
Message_MessageTypeCLIENT_BATCH_SUBMIT_REQUEST 
Message_MessageTypeCLIENT_BATCH_SUBMIT_RESPONSE 
Message_MessageTypeCLIENT_BLOCK_LIST_REQUEST 
Message_MessageTypeCLIENT_BLOCK_LIST_RESPONSE 
Message_MessageTypeCLIENT_BLOCK_GET_BY_ID_REQUEST 
Message_MessageTypeCLIENT_BLOCK_GET_RESPONSE 
Message_MessageTypeCLIENT_BATCH_LIST_REQUEST 
Message_MessageTypeCLIENT_BATCH_LIST_RESPONSE 
Message_MessageTypeCLIENT_BATCH_GET_REQUEST 
Message_MessageTypeCLIENT_BATCH_GET_RESPONSE 
Message_MessageTypeCLIENT_TRANSACTION_LIST_REQUEST 
Message_MessageTypeCLIENT_TRANSACTION_LIST_RESPONSE 
Message_MessageTypeCLIENT_TRANSACTION_GET_REQUEST 
Message_MessageTypeCLIENT_TRANSACTION_GET_RESPONSE 
Message_MessageTypeCLIENT_STATE_CURRENT_REQUEST 
Message_MessageTypeCLIENT_STATE_CURRENT_RESPONSE 
Message_MessageTypeCLIENT_STATE_LIST_REQUEST 
Message_MessageTypeCLIENT_STATE_LIST_RESPONSE 
Message_MessageTypeCLIENT_STATE_GET_REQUEST 
Message_MessageTypeCLIENT_STATE_GET_RESPONSE 
Message_MessageTypeCLIENT_BATCH_STATUS_REQUEST 
Message_MessageTypeCLIENT_BATCH_STATUS_RESPONSE 
Message_MessageTypeCLIENT_RECEIPT_GET_REQUEST 
Message_MessageTypeCLIENT_RECEIPT_GET_RESPONSE 
Message_MessageTypeCLIENT_BLOCK_GET_BY_NUM_REQUEST 
Message_MessageTypeCLIENT_PEERS_GET_REQUEST 
Message_MessageTypeCLIENT_PEERS_GET_RESPONSE 
Message_MessageTypeCLIENT_BLOCK_GET_BY_TRANSACTION_ID_REQUEST 
Message_MessageTypeCLIENT_BLOCK_GET_BY_BATCH_ID_REQUEST 
Message_MessageTypeCLIENT_STATUS_GET_REQUEST 
Message_MessageTypeCLIENT_STATUS_GET_RESPONSE 
Message_MessageTypeGOSSIP_MESSAGE 
Message_MessageTypeGOSSIP_REGISTER 
Message_MessageTypeGOSSIP_UNREGISTER 
Message_MessageTypeGOSSIP_BLOCK_REQUEST 
Message_MessageTypeGOSSIP_BLOCK_RESPONSE 
Message_MessageTypeGOSSIP_BATCH_BY_BATCH_ID_REQUEST 
Message_MessageTypeGOSSIP_BATCH_BY_TRANSACTION_ID_REQUEST 
Message_MessageTypeGOSSIP_BATCH_RESPONSE 
Message_MessageTypeGOSSIP_GET_PEERS_REQUEST 
Message_MessageTypeGOSSIP_GET_PEERS_RESPONSE 
Message_MessageTypeGOSSIP_CONSENSUS_MESSAGE 
Message_MessageTypeNETWORK_ACK 
Message_MessageTypeNETWORK_CONNECT 
Message_MessageTypeNETWORK_DISCONNECT 
Message_MessageTypeCLIENT_EVENTS_SUBSCRIBE_REQUEST 
Message_MessageTypeCLIENT_EVENTS_SUBSCRIBE_RESPONSE 
Message_MessageTypeCLIENT_EVENTS_UNSUBSCRIBE_REQUEST 
Message_MessageTypeCLIENT_EVENTS_UNSUBSCRIBE_RESPONSE 
Message_MessageTypeCLIENT_EVENTS 
Message_MessageTypeCLIENT_EVENTS_GET_REQUEST 
Message_MessageTypeCLIENT_EVENTS_GET_RESPONSE 
Message_MessageTypeAUTHORIZATION_CONNECTION_RESPONSE 
Message_MessageTypeAUTHORIZATION_VIOLATION 
Message_MessageTypeAUTHORIZATION_TRUST_REQUEST 
Message_MessageTypeAUTHORIZATION_TRUST_RESPONSE 
Message_MessageTypeAUTHORIZATION_CHALLENGE_REQUEST 
Message_MessageTypeAUTHORIZATION_CHALLENGE_RESPONSE 
Message_MessageTypeAUTHORIZATION_CHALLENGE_SUBMIT 
Message_MessageTypeAUTHORIZATION_CHALLENGE_RESULT 
Message_MessageTypePING_REQUEST 
Message_MessageTypePING_RESPONSE 
Message_MessageTypeCONSENSUS_REGISTER_REQUEST 
Message_MessageTypeCONSENSUS_REGISTER_RESPONSE 
Message_MessageTypeCONSENSUS_SEND_TO_REQUEST 
Message_MessageTypeCONSENSUS_SEND_TO_RESPONSE 
Message_MessageTypeCONSENSUS_BROADCAST_REQUEST 
Message_MessageTypeCONSENSUS_BROADCAST_RESPONSE 
Message_MessageTypeCONSENSUS_INITIALIZE_BLOCK_REQUEST 
Message_MessageTypeCONSENSUS_INITIALIZE_BLOCK_RESPONSE 
Message_MessageTypeCONSENSUS_FINALIZE_BLOCK_REQUEST 
Message_MessageTypeCONSENSUS_FINALIZE_BLOCK_RESPONSE 
Message_MessageTypeCONSENSUS_CANCEL_BLOCK_REQUEST 
Message_MessageTypeCONSENSUS_CANCEL_BLOCK_RESPONSE 
Message_MessageTypeCONSENSUS_CHECK_BLOCKS_REQUEST 
Message_MessageTypeCONSENSUS_CHECK_BLOCKS_RESPONSE 
Message_MessageTypeCONSENSUS_COMMIT_BLOCK_REQUEST 
Message_MessageTypeCONSENSUS_COMMIT_BLOCK_RESPONSE 
Message_MessageTypeCONSENSUS_IGNORE_BLOCK_REQUEST 
Message_MessageTypeCONSENSUS_IGNORE_BLOCK_RESPONSE 
Message_MessageTypeCONSENSUS_FAIL_BLOCK_REQUEST 
Message_MessageTypeCONSENSUS_FAIL_BLOCK_RESPONSE 
Message_MessageTypeCONSENSUS_SETTINGS_GET_REQUEST 
Message_MessageTypeCONSENSUS_SETTINGS_GET_RESPONSE 
Message_MessageTypeCONSENSUS_STATE_GET_REQUEST 
Message_MessageTypeCONSENSUS_STATE_GET_RESPONSE 
Message_MessageTypeCONSENSUS_BLOCKS_GET_REQUEST 
Message_MessageTypeCONSENSUS_BLOCKS_GET_RESPONSE 
Message_MessageTypeCONSENSUS_CHAIN_HEAD_GET_REQUEST 
Message_MessageTypeCONSENSUS_CHAIN_HEAD_GET_RESPONSE 
Message_MessageTypeCONSENSUS_SUMMARIZE_BLOCK_REQUEST 
Message_MessageTypeCONSENSUS_SUMMARIZE_BLOCK_RESPONSE 
Message_MessageTypeCONSENSUS_NOTIFY_PEER_CONNECTED 
Message_MessageTypeCONSENSUS_NOTIFY_PEER_DISCONNECTED 
Message_MessageTypeCONSENSUS_NOTIFY_PEER_MESSAGE 
Message_MessageTypeCONSENSUS_NOTIFY_BLOCK_NEW 
Message_MessageTypeCONSENSUS_NOTIFY_BLOCK_VALID 
Message_MessageTypeCONSENSUS_NOTIFY_BLOCK_INVALID 
Message_MessageTypeCONSENSUS_NOTIFY_BLOCK_COMMIT 
Message_MessageTypeCONSENSUS_NOTIFY_ENGINE_ACTIVATED 
Message_MessageTypeCONSENSUS_NOTIFY_ENGINE_DEACTIVATED 
Message_MessageTypeCONSENSUS_NOTIFY_ACK 

Instances

Instances details
Bounded Message_MessageType Source # 
Instance details

Defined in Data.Sawtooth.Validator

Methods

minBound :: Message_MessageType Source #

maxBound :: Message_MessageType Source #

Eq Message_MessageType Source # 
Instance details

Defined in Data.Sawtooth.Validator

Methods

(==) :: Message_MessageType -> Message_MessageType -> Bool Source #

(/=) :: Message_MessageType -> Message_MessageType -> Bool Source #

Ord Message_MessageType Source # 
Instance details

Defined in Data.Sawtooth.Validator

Methods

compare :: Message_MessageType -> Message_MessageType -> Ordering Source #

(<) :: Message_MessageType -> Message_MessageType -> Bool Source #

(<=) :: Message_MessageType -> Message_MessageType -> Bool Source #

(>) :: Message_MessageType -> Message_MessageType -> Bool Source #

(>=) :: Message_MessageType -> Message_MessageType -> Bool Source #

max :: Message_MessageType -> Message_MessageType -> Message_MessageType Source #

min :: Message_MessageType -> Message_MessageType -> Message_MessageType Source #

Show Message_MessageType Source # 
Instance details

Defined in Data.Sawtooth.Validator

Methods

showsPrec :: Int -> Message_MessageType -> ShowS Source #

show :: Message_MessageType -> String Source #

showList :: [Message_MessageType] -> ShowS Source #

Generic Message_MessageType Source # 
Instance details

Defined in Data.Sawtooth.Validator

Associated Types

type Rep Message_MessageType :: Type -> Type Source #

Methods

from :: Message_MessageType -> Rep Message_MessageType x Source #

to :: Rep Message_MessageType x -> Message_MessageType Source #

ToJSON Message_MessageType Source # 
Instance details

Defined in Data.Sawtooth.Validator

Methods

toJSON :: Message_MessageType -> Value Source #

toEncoding :: Message_MessageType -> Encoding Source #

toJSONList :: [Message_MessageType] -> Value Source #

toEncodingList :: [Message_MessageType] -> Encoding Source #

FromJSON Message_MessageType Source # 
Instance details

Defined in Data.Sawtooth.Validator

Methods

parseJSON :: Value -> Parser Message_MessageType Source #

parseJSONList :: Value -> Parser [Message_MessageType] Source #

NFData Message_MessageType Source # 
Instance details

Defined in Data.Sawtooth.Validator

Methods

rnf :: Message_MessageType -> () Source #

ProtoEnum Message_MessageType Source # 
Instance details

Defined in Data.Sawtooth.Validator

Methods

toProtoEnumMay :: Int32 -> Maybe Message_MessageType Source #

fromProtoEnum :: Message_MessageType -> Int32 Source #

ToJSONPB Message_MessageType Source # 
Instance details

Defined in Data.Sawtooth.Validator

Methods

toJSONPB :: Message_MessageType -> Options -> Value Source #

toEncodingPB :: Message_MessageType -> Options -> Encoding Source #

FromJSONPB Message_MessageType Source # 
Instance details

Defined in Data.Sawtooth.Validator

Methods

parseJSONPB :: Value -> Parser Message_MessageType Source #

HasDefault Message_MessageType Source # 
Instance details

Defined in Data.Sawtooth.Validator

Methods

def :: Message_MessageType Source #

isDefault :: Message_MessageType -> Bool Source #

Named Message_MessageType Source # 
Instance details

Defined in Data.Sawtooth.Validator

Methods

nameOf :: IsString string => Proxy# Message_MessageType -> string Source #

Finite Message_MessageType Source # 
Instance details

Defined in Data.Sawtooth.Validator

Methods

enumerate :: IsString string => Proxy# Message_MessageType -> [(string, Int32)] Source #

type Rep Message_MessageType Source # 
Instance details

Defined in Data.Sawtooth.Validator

type Rep Message_MessageType = D1 ('MetaData "Message_MessageType" "Data.Sawtooth.Validator" "sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" 'False) ((((((C1 ('MetaCons "Message_MessageTypeDEFAULT" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "Message_MessageTypeTP_REGISTER_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeTP_REGISTER_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "Message_MessageTypeTP_UNREGISTER_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeTP_UNREGISTER_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "Message_MessageTypeTP_PROCESS_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeTP_PROCESS_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type)))) :+: ((C1 ('MetaCons "Message_MessageTypeTP_STATE_GET_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "Message_MessageTypeTP_STATE_GET_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeTP_STATE_SET_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "Message_MessageTypeTP_STATE_SET_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeTP_STATE_DELETE_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "Message_MessageTypeTP_STATE_DELETE_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeTP_RECEIPT_ADD_DATA_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type))))) :+: (((C1 ('MetaCons "Message_MessageTypeTP_RECEIPT_ADD_DATA_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "Message_MessageTypeTP_EVENT_ADD_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeTP_EVENT_ADD_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "Message_MessageTypeCLIENT_BATCH_SUBMIT_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeCLIENT_BATCH_SUBMIT_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "Message_MessageTypeCLIENT_BLOCK_LIST_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeCLIENT_BLOCK_LIST_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type)))) :+: (((C1 ('MetaCons "Message_MessageTypeCLIENT_BLOCK_GET_BY_ID_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeCLIENT_BLOCK_GET_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "Message_MessageTypeCLIENT_BATCH_LIST_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeCLIENT_BATCH_LIST_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "Message_MessageTypeCLIENT_BATCH_GET_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeCLIENT_BATCH_GET_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "Message_MessageTypeCLIENT_TRANSACTION_LIST_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeCLIENT_TRANSACTION_LIST_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type)))))) :+: ((((C1 ('MetaCons "Message_MessageTypeCLIENT_TRANSACTION_GET_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "Message_MessageTypeCLIENT_TRANSACTION_GET_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeCLIENT_STATE_CURRENT_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "Message_MessageTypeCLIENT_STATE_CURRENT_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeCLIENT_STATE_LIST_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "Message_MessageTypeCLIENT_STATE_LIST_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeCLIENT_STATE_GET_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type)))) :+: (((C1 ('MetaCons "Message_MessageTypeCLIENT_STATE_GET_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeCLIENT_BATCH_STATUS_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "Message_MessageTypeCLIENT_BATCH_STATUS_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeCLIENT_RECEIPT_GET_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "Message_MessageTypeCLIENT_RECEIPT_GET_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeCLIENT_BLOCK_GET_BY_NUM_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "Message_MessageTypeCLIENT_PEERS_GET_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeCLIENT_PEERS_GET_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type))))) :+: (((C1 ('MetaCons "Message_MessageTypeCLIENT_BLOCK_GET_BY_TRANSACTION_ID_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "Message_MessageTypeCLIENT_BLOCK_GET_BY_BATCH_ID_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeCLIENT_STATUS_GET_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "Message_MessageTypeCLIENT_STATUS_GET_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeGOSSIP_MESSAGE" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "Message_MessageTypeGOSSIP_REGISTER" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeGOSSIP_UNREGISTER" 'PrefixI 'False) (U1 :: Type -> Type)))) :+: (((C1 ('MetaCons "Message_MessageTypeGOSSIP_BLOCK_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeGOSSIP_BLOCK_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "Message_MessageTypeGOSSIP_BATCH_BY_BATCH_ID_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeGOSSIP_BATCH_BY_TRANSACTION_ID_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "Message_MessageTypeGOSSIP_BATCH_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeGOSSIP_GET_PEERS_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "Message_MessageTypeGOSSIP_GET_PEERS_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeGOSSIP_CONSENSUS_MESSAGE" 'PrefixI 'False) (U1 :: Type -> Type))))))) :+: (((((C1 ('MetaCons "Message_MessageTypeNETWORK_ACK" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "Message_MessageTypeNETWORK_CONNECT" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeNETWORK_DISCONNECT" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "Message_MessageTypeCLIENT_EVENTS_SUBSCRIBE_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeCLIENT_EVENTS_SUBSCRIBE_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "Message_MessageTypeCLIENT_EVENTS_UNSUBSCRIBE_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeCLIENT_EVENTS_UNSUBSCRIBE_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type)))) :+: (((C1 ('MetaCons "Message_MessageTypeCLIENT_EVENTS" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeCLIENT_EVENTS_GET_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "Message_MessageTypeCLIENT_EVENTS_GET_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeAUTHORIZATION_CONNECTION_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "Message_MessageTypeAUTHORIZATION_VIOLATION" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeAUTHORIZATION_TRUST_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "Message_MessageTypeAUTHORIZATION_TRUST_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeAUTHORIZATION_CHALLENGE_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type))))) :+: (((C1 ('MetaCons "Message_MessageTypeAUTHORIZATION_CHALLENGE_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "Message_MessageTypeAUTHORIZATION_CHALLENGE_SUBMIT" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeAUTHORIZATION_CHALLENGE_RESULT" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "Message_MessageTypePING_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypePING_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "Message_MessageTypeCONSENSUS_REGISTER_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeCONSENSUS_REGISTER_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type)))) :+: (((C1 ('MetaCons "Message_MessageTypeCONSENSUS_SEND_TO_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeCONSENSUS_SEND_TO_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "Message_MessageTypeCONSENSUS_BROADCAST_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeCONSENSUS_BROADCAST_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "Message_MessageTypeCONSENSUS_INITIALIZE_BLOCK_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeCONSENSUS_INITIALIZE_BLOCK_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "Message_MessageTypeCONSENSUS_FINALIZE_BLOCK_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeCONSENSUS_FINALIZE_BLOCK_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type)))))) :+: ((((C1 ('MetaCons "Message_MessageTypeCONSENSUS_CANCEL_BLOCK_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "Message_MessageTypeCONSENSUS_CANCEL_BLOCK_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeCONSENSUS_CHECK_BLOCKS_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "Message_MessageTypeCONSENSUS_CHECK_BLOCKS_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeCONSENSUS_COMMIT_BLOCK_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "Message_MessageTypeCONSENSUS_COMMIT_BLOCK_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeCONSENSUS_IGNORE_BLOCK_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type)))) :+: (((C1 ('MetaCons "Message_MessageTypeCONSENSUS_IGNORE_BLOCK_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeCONSENSUS_FAIL_BLOCK_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "Message_MessageTypeCONSENSUS_FAIL_BLOCK_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeCONSENSUS_SETTINGS_GET_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "Message_MessageTypeCONSENSUS_SETTINGS_GET_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeCONSENSUS_STATE_GET_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "Message_MessageTypeCONSENSUS_STATE_GET_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeCONSENSUS_BLOCKS_GET_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type))))) :+: (((C1 ('MetaCons "Message_MessageTypeCONSENSUS_BLOCKS_GET_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "Message_MessageTypeCONSENSUS_CHAIN_HEAD_GET_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeCONSENSUS_CHAIN_HEAD_GET_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "Message_MessageTypeCONSENSUS_SUMMARIZE_BLOCK_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeCONSENSUS_SUMMARIZE_BLOCK_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "Message_MessageTypeCONSENSUS_NOTIFY_PEER_CONNECTED" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeCONSENSUS_NOTIFY_PEER_DISCONNECTED" 'PrefixI 'False) (U1 :: Type -> Type)))) :+: (((C1 ('MetaCons "Message_MessageTypeCONSENSUS_NOTIFY_PEER_MESSAGE" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeCONSENSUS_NOTIFY_BLOCK_NEW" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "Message_MessageTypeCONSENSUS_NOTIFY_BLOCK_VALID" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeCONSENSUS_NOTIFY_BLOCK_INVALID" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "Message_MessageTypeCONSENSUS_NOTIFY_BLOCK_COMMIT" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeCONSENSUS_NOTIFY_ENGINE_ACTIVATED" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "Message_MessageTypeCONSENSUS_NOTIFY_ENGINE_DEACTIVATED" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeCONSENSUS_NOTIFY_ACK" 'PrefixI 'False) (U1 :: Type -> Type))))))))
\ No newline at end of file +Data.Sawtooth.Validator
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types
Safe HaskellNone
LanguageHaskell2010

Data.Sawtooth.Validator

Description

Generated by Haskell protocol buffer compiler. DO NOT EDIT!

Documentation

newtype MessageList Source #

Constructors

MessageList 

Fields

Instances

Instances details
Eq MessageList Source # 
Instance details

Defined in Data.Sawtooth.Validator

Methods

(==) :: MessageList -> MessageList -> Bool Source #

(/=) :: MessageList -> MessageList -> Bool Source #

Ord MessageList Source # 
Instance details

Defined in Data.Sawtooth.Validator

Methods

compare :: MessageList -> MessageList -> Ordering Source #

(<) :: MessageList -> MessageList -> Bool Source #

(<=) :: MessageList -> MessageList -> Bool Source #

(>) :: MessageList -> MessageList -> Bool Source #

(>=) :: MessageList -> MessageList -> Bool Source #

max :: MessageList -> MessageList -> MessageList Source #

min :: MessageList -> MessageList -> MessageList Source #

Show MessageList Source # 
Instance details

Defined in Data.Sawtooth.Validator

Methods

showsPrec :: Int -> MessageList -> ShowS Source #

show :: MessageList -> String Source #

showList :: [MessageList] -> ShowS Source #

Generic MessageList Source # 
Instance details

Defined in Data.Sawtooth.Validator

Associated Types

type Rep MessageList :: Type -> Type Source #

Methods

from :: MessageList -> Rep MessageList x Source #

to :: Rep MessageList x -> MessageList Source #

ToJSON MessageList Source # 
Instance details

Defined in Data.Sawtooth.Validator

Methods

toJSON :: MessageList -> Value Source #

toEncoding :: MessageList -> Encoding Source #

toJSONList :: [MessageList] -> Value Source #

toEncodingList :: [MessageList] -> Encoding Source #

FromJSON MessageList Source # 
Instance details

Defined in Data.Sawtooth.Validator

Methods

parseJSON :: Value -> Parser MessageList Source #

parseJSONList :: Value -> Parser [MessageList] Source #

NFData MessageList Source # 
Instance details

Defined in Data.Sawtooth.Validator

Methods

rnf :: MessageList -> () Source #

ToJSONPB MessageList Source # 
Instance details

Defined in Data.Sawtooth.Validator

Methods

toJSONPB :: MessageList -> Options -> Value Source #

toEncodingPB :: MessageList -> Options -> Encoding Source #

FromJSONPB MessageList Source # 
Instance details

Defined in Data.Sawtooth.Validator

Methods

parseJSONPB :: Value -> Parser MessageList Source #

HasDefault MessageList Source # 
Instance details

Defined in Data.Sawtooth.Validator

Methods

def :: MessageList Source #

isDefault :: MessageList -> Bool Source #

Named MessageList Source # 
Instance details

Defined in Data.Sawtooth.Validator

Methods

nameOf :: IsString string => Proxy# MessageList -> string Source #

Message MessageList Source # 
Instance details

Defined in Data.Sawtooth.Validator

Methods

encodeMessage :: FieldNumber -> MessageList -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage MessageList Source #

dotProto :: Proxy# MessageList -> [DotProtoField] Source #

ToSchema MessageList Source # 
Instance details

Defined in Data.Sawtooth.Validator

Methods

declareNamedSchema :: Proxy MessageList -> Declare (Definitions Schema) NamedSchema Source #

type Rep MessageList Source # 
Instance details

Defined in Data.Sawtooth.Validator

type Rep MessageList = D1 ('MetaData "MessageList" "Data.Sawtooth.Validator" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'True) (C1 ('MetaCons "MessageList" 'PrefixI 'True) (S1 ('MetaSel ('Just "messageListMessages") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Message))))

data Message Source #

Constructors

Message 

Fields

Instances

Instances details
Eq Message Source # 
Instance details

Defined in Data.Sawtooth.Validator

Methods

(==) :: Message -> Message -> Bool Source #

(/=) :: Message -> Message -> Bool Source #

Ord Message Source # 
Instance details

Defined in Data.Sawtooth.Validator

Methods

compare :: Message -> Message -> Ordering Source #

(<) :: Message -> Message -> Bool Source #

(<=) :: Message -> Message -> Bool Source #

(>) :: Message -> Message -> Bool Source #

(>=) :: Message -> Message -> Bool Source #

max :: Message -> Message -> Message Source #

min :: Message -> Message -> Message Source #

Show Message Source # 
Instance details

Defined in Data.Sawtooth.Validator

Methods

showsPrec :: Int -> Message -> ShowS Source #

show :: Message -> String Source #

showList :: [Message] -> ShowS Source #

Generic Message Source # 
Instance details

Defined in Data.Sawtooth.Validator

Associated Types

type Rep Message :: Type -> Type Source #

Methods

from :: Message -> Rep Message x Source #

to :: Rep Message x -> Message Source #

ToJSON Message Source # 
Instance details

Defined in Data.Sawtooth.Validator

Methods

toJSON :: Message -> Value Source #

toEncoding :: Message -> Encoding Source #

toJSONList :: [Message] -> Value Source #

toEncodingList :: [Message] -> Encoding Source #

FromJSON Message Source # 
Instance details

Defined in Data.Sawtooth.Validator

Methods

parseJSON :: Value -> Parser Message Source #

parseJSONList :: Value -> Parser [Message] Source #

NFData Message Source # 
Instance details

Defined in Data.Sawtooth.Validator

Methods

rnf :: Message -> () Source #

ToJSONPB Message Source # 
Instance details

Defined in Data.Sawtooth.Validator

Methods

toJSONPB :: Message -> Options -> Value Source #

toEncodingPB :: Message -> Options -> Encoding Source #

FromJSONPB Message Source # 
Instance details

Defined in Data.Sawtooth.Validator

Methods

parseJSONPB :: Value -> Parser Message Source #

HasDefault Message Source # 
Instance details

Defined in Data.Sawtooth.Validator

Methods

def :: Message Source #

isDefault :: Message -> Bool Source #

Named Message Source # 
Instance details

Defined in Data.Sawtooth.Validator

Methods

nameOf :: IsString string => Proxy# Message -> string Source #

Message Message Source # 
Instance details

Defined in Data.Sawtooth.Validator

Methods

encodeMessage :: FieldNumber -> Message -> MessageBuilder Source #

decodeMessage :: FieldNumber -> Parser RawMessage Message Source #

dotProto :: Proxy# Message -> [DotProtoField] Source #

ToSchema Message Source # 
Instance details

Defined in Data.Sawtooth.Validator

Methods

declareNamedSchema :: Proxy Message -> Declare (Definitions Schema) NamedSchema Source #

type Rep Message Source # 
Instance details

Defined in Data.Sawtooth.Validator

type Rep Message = D1 ('MetaData "Message" "Data.Sawtooth.Validator" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) (C1 ('MetaCons "Message" 'PrefixI 'True) (S1 ('MetaSel ('Just "messageMessageType") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Enumerated Message_MessageType)) :*: (S1 ('MetaSel ('Just "messageCorrelationId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "messageContent") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString))))

data Message_MessageType Source #

Constructors

Message_MessageTypeDEFAULT 
Message_MessageTypeTP_REGISTER_REQUEST 
Message_MessageTypeTP_REGISTER_RESPONSE 
Message_MessageTypeTP_UNREGISTER_REQUEST 
Message_MessageTypeTP_UNREGISTER_RESPONSE 
Message_MessageTypeTP_PROCESS_REQUEST 
Message_MessageTypeTP_PROCESS_RESPONSE 
Message_MessageTypeTP_STATE_GET_REQUEST 
Message_MessageTypeTP_STATE_GET_RESPONSE 
Message_MessageTypeTP_STATE_SET_REQUEST 
Message_MessageTypeTP_STATE_SET_RESPONSE 
Message_MessageTypeTP_STATE_DELETE_REQUEST 
Message_MessageTypeTP_STATE_DELETE_RESPONSE 
Message_MessageTypeTP_RECEIPT_ADD_DATA_REQUEST 
Message_MessageTypeTP_RECEIPT_ADD_DATA_RESPONSE 
Message_MessageTypeTP_EVENT_ADD_REQUEST 
Message_MessageTypeTP_EVENT_ADD_RESPONSE 
Message_MessageTypeCLIENT_BATCH_SUBMIT_REQUEST 
Message_MessageTypeCLIENT_BATCH_SUBMIT_RESPONSE 
Message_MessageTypeCLIENT_BLOCK_LIST_REQUEST 
Message_MessageTypeCLIENT_BLOCK_LIST_RESPONSE 
Message_MessageTypeCLIENT_BLOCK_GET_BY_ID_REQUEST 
Message_MessageTypeCLIENT_BLOCK_GET_RESPONSE 
Message_MessageTypeCLIENT_BATCH_LIST_REQUEST 
Message_MessageTypeCLIENT_BATCH_LIST_RESPONSE 
Message_MessageTypeCLIENT_BATCH_GET_REQUEST 
Message_MessageTypeCLIENT_BATCH_GET_RESPONSE 
Message_MessageTypeCLIENT_TRANSACTION_LIST_REQUEST 
Message_MessageTypeCLIENT_TRANSACTION_LIST_RESPONSE 
Message_MessageTypeCLIENT_TRANSACTION_GET_REQUEST 
Message_MessageTypeCLIENT_TRANSACTION_GET_RESPONSE 
Message_MessageTypeCLIENT_STATE_CURRENT_REQUEST 
Message_MessageTypeCLIENT_STATE_CURRENT_RESPONSE 
Message_MessageTypeCLIENT_STATE_LIST_REQUEST 
Message_MessageTypeCLIENT_STATE_LIST_RESPONSE 
Message_MessageTypeCLIENT_STATE_GET_REQUEST 
Message_MessageTypeCLIENT_STATE_GET_RESPONSE 
Message_MessageTypeCLIENT_BATCH_STATUS_REQUEST 
Message_MessageTypeCLIENT_BATCH_STATUS_RESPONSE 
Message_MessageTypeCLIENT_RECEIPT_GET_REQUEST 
Message_MessageTypeCLIENT_RECEIPT_GET_RESPONSE 
Message_MessageTypeCLIENT_BLOCK_GET_BY_NUM_REQUEST 
Message_MessageTypeCLIENT_PEERS_GET_REQUEST 
Message_MessageTypeCLIENT_PEERS_GET_RESPONSE 
Message_MessageTypeCLIENT_BLOCK_GET_BY_TRANSACTION_ID_REQUEST 
Message_MessageTypeCLIENT_BLOCK_GET_BY_BATCH_ID_REQUEST 
Message_MessageTypeCLIENT_STATUS_GET_REQUEST 
Message_MessageTypeCLIENT_STATUS_GET_RESPONSE 
Message_MessageTypeGOSSIP_MESSAGE 
Message_MessageTypeGOSSIP_REGISTER 
Message_MessageTypeGOSSIP_UNREGISTER 
Message_MessageTypeGOSSIP_BLOCK_REQUEST 
Message_MessageTypeGOSSIP_BLOCK_RESPONSE 
Message_MessageTypeGOSSIP_BATCH_BY_BATCH_ID_REQUEST 
Message_MessageTypeGOSSIP_BATCH_BY_TRANSACTION_ID_REQUEST 
Message_MessageTypeGOSSIP_BATCH_RESPONSE 
Message_MessageTypeGOSSIP_GET_PEERS_REQUEST 
Message_MessageTypeGOSSIP_GET_PEERS_RESPONSE 
Message_MessageTypeGOSSIP_CONSENSUS_MESSAGE 
Message_MessageTypeNETWORK_ACK 
Message_MessageTypeNETWORK_CONNECT 
Message_MessageTypeNETWORK_DISCONNECT 
Message_MessageTypeCLIENT_EVENTS_SUBSCRIBE_REQUEST 
Message_MessageTypeCLIENT_EVENTS_SUBSCRIBE_RESPONSE 
Message_MessageTypeCLIENT_EVENTS_UNSUBSCRIBE_REQUEST 
Message_MessageTypeCLIENT_EVENTS_UNSUBSCRIBE_RESPONSE 
Message_MessageTypeCLIENT_EVENTS 
Message_MessageTypeCLIENT_EVENTS_GET_REQUEST 
Message_MessageTypeCLIENT_EVENTS_GET_RESPONSE 
Message_MessageTypeAUTHORIZATION_CONNECTION_RESPONSE 
Message_MessageTypeAUTHORIZATION_VIOLATION 
Message_MessageTypeAUTHORIZATION_TRUST_REQUEST 
Message_MessageTypeAUTHORIZATION_TRUST_RESPONSE 
Message_MessageTypeAUTHORIZATION_CHALLENGE_REQUEST 
Message_MessageTypeAUTHORIZATION_CHALLENGE_RESPONSE 
Message_MessageTypeAUTHORIZATION_CHALLENGE_SUBMIT 
Message_MessageTypeAUTHORIZATION_CHALLENGE_RESULT 
Message_MessageTypePING_REQUEST 
Message_MessageTypePING_RESPONSE 
Message_MessageTypeCONSENSUS_REGISTER_REQUEST 
Message_MessageTypeCONSENSUS_REGISTER_RESPONSE 
Message_MessageTypeCONSENSUS_SEND_TO_REQUEST 
Message_MessageTypeCONSENSUS_SEND_TO_RESPONSE 
Message_MessageTypeCONSENSUS_BROADCAST_REQUEST 
Message_MessageTypeCONSENSUS_BROADCAST_RESPONSE 
Message_MessageTypeCONSENSUS_INITIALIZE_BLOCK_REQUEST 
Message_MessageTypeCONSENSUS_INITIALIZE_BLOCK_RESPONSE 
Message_MessageTypeCONSENSUS_FINALIZE_BLOCK_REQUEST 
Message_MessageTypeCONSENSUS_FINALIZE_BLOCK_RESPONSE 
Message_MessageTypeCONSENSUS_CANCEL_BLOCK_REQUEST 
Message_MessageTypeCONSENSUS_CANCEL_BLOCK_RESPONSE 
Message_MessageTypeCONSENSUS_CHECK_BLOCKS_REQUEST 
Message_MessageTypeCONSENSUS_CHECK_BLOCKS_RESPONSE 
Message_MessageTypeCONSENSUS_COMMIT_BLOCK_REQUEST 
Message_MessageTypeCONSENSUS_COMMIT_BLOCK_RESPONSE 
Message_MessageTypeCONSENSUS_IGNORE_BLOCK_REQUEST 
Message_MessageTypeCONSENSUS_IGNORE_BLOCK_RESPONSE 
Message_MessageTypeCONSENSUS_FAIL_BLOCK_REQUEST 
Message_MessageTypeCONSENSUS_FAIL_BLOCK_RESPONSE 
Message_MessageTypeCONSENSUS_SETTINGS_GET_REQUEST 
Message_MessageTypeCONSENSUS_SETTINGS_GET_RESPONSE 
Message_MessageTypeCONSENSUS_STATE_GET_REQUEST 
Message_MessageTypeCONSENSUS_STATE_GET_RESPONSE 
Message_MessageTypeCONSENSUS_BLOCKS_GET_REQUEST 
Message_MessageTypeCONSENSUS_BLOCKS_GET_RESPONSE 
Message_MessageTypeCONSENSUS_CHAIN_HEAD_GET_REQUEST 
Message_MessageTypeCONSENSUS_CHAIN_HEAD_GET_RESPONSE 
Message_MessageTypeCONSENSUS_SUMMARIZE_BLOCK_REQUEST 
Message_MessageTypeCONSENSUS_SUMMARIZE_BLOCK_RESPONSE 
Message_MessageTypeCONSENSUS_NOTIFY_PEER_CONNECTED 
Message_MessageTypeCONSENSUS_NOTIFY_PEER_DISCONNECTED 
Message_MessageTypeCONSENSUS_NOTIFY_PEER_MESSAGE 
Message_MessageTypeCONSENSUS_NOTIFY_BLOCK_NEW 
Message_MessageTypeCONSENSUS_NOTIFY_BLOCK_VALID 
Message_MessageTypeCONSENSUS_NOTIFY_BLOCK_INVALID 
Message_MessageTypeCONSENSUS_NOTIFY_BLOCK_COMMIT 
Message_MessageTypeCONSENSUS_NOTIFY_ENGINE_ACTIVATED 
Message_MessageTypeCONSENSUS_NOTIFY_ENGINE_DEACTIVATED 
Message_MessageTypeCONSENSUS_NOTIFY_ACK 

Instances

Instances details
Bounded Message_MessageType Source # 
Instance details

Defined in Data.Sawtooth.Validator

Methods

minBound :: Message_MessageType Source #

maxBound :: Message_MessageType Source #

Eq Message_MessageType Source # 
Instance details

Defined in Data.Sawtooth.Validator

Methods

(==) :: Message_MessageType -> Message_MessageType -> Bool Source #

(/=) :: Message_MessageType -> Message_MessageType -> Bool Source #

Ord Message_MessageType Source # 
Instance details

Defined in Data.Sawtooth.Validator

Methods

compare :: Message_MessageType -> Message_MessageType -> Ordering Source #

(<) :: Message_MessageType -> Message_MessageType -> Bool Source #

(<=) :: Message_MessageType -> Message_MessageType -> Bool Source #

(>) :: Message_MessageType -> Message_MessageType -> Bool Source #

(>=) :: Message_MessageType -> Message_MessageType -> Bool Source #

max :: Message_MessageType -> Message_MessageType -> Message_MessageType Source #

min :: Message_MessageType -> Message_MessageType -> Message_MessageType Source #

Show Message_MessageType Source # 
Instance details

Defined in Data.Sawtooth.Validator

Methods

showsPrec :: Int -> Message_MessageType -> ShowS Source #

show :: Message_MessageType -> String Source #

showList :: [Message_MessageType] -> ShowS Source #

Generic Message_MessageType Source # 
Instance details

Defined in Data.Sawtooth.Validator

Associated Types

type Rep Message_MessageType :: Type -> Type Source #

Methods

from :: Message_MessageType -> Rep Message_MessageType x Source #

to :: Rep Message_MessageType x -> Message_MessageType Source #

ToJSON Message_MessageType Source # 
Instance details

Defined in Data.Sawtooth.Validator

Methods

toJSON :: Message_MessageType -> Value Source #

toEncoding :: Message_MessageType -> Encoding Source #

toJSONList :: [Message_MessageType] -> Value Source #

toEncodingList :: [Message_MessageType] -> Encoding Source #

FromJSON Message_MessageType Source # 
Instance details

Defined in Data.Sawtooth.Validator

Methods

parseJSON :: Value -> Parser Message_MessageType Source #

parseJSONList :: Value -> Parser [Message_MessageType] Source #

NFData Message_MessageType Source # 
Instance details

Defined in Data.Sawtooth.Validator

Methods

rnf :: Message_MessageType -> () Source #

ProtoEnum Message_MessageType Source # 
Instance details

Defined in Data.Sawtooth.Validator

Methods

toProtoEnumMay :: Int32 -> Maybe Message_MessageType Source #

fromProtoEnum :: Message_MessageType -> Int32 Source #

ToJSONPB Message_MessageType Source # 
Instance details

Defined in Data.Sawtooth.Validator

Methods

toJSONPB :: Message_MessageType -> Options -> Value Source #

toEncodingPB :: Message_MessageType -> Options -> Encoding Source #

FromJSONPB Message_MessageType Source # 
Instance details

Defined in Data.Sawtooth.Validator

Methods

parseJSONPB :: Value -> Parser Message_MessageType Source #

HasDefault Message_MessageType Source # 
Instance details

Defined in Data.Sawtooth.Validator

Methods

def :: Message_MessageType Source #

isDefault :: Message_MessageType -> Bool Source #

Named Message_MessageType Source # 
Instance details

Defined in Data.Sawtooth.Validator

Methods

nameOf :: IsString string => Proxy# Message_MessageType -> string Source #

Finite Message_MessageType Source # 
Instance details

Defined in Data.Sawtooth.Validator

Methods

enumerate :: IsString string => Proxy# Message_MessageType -> [(string, Int32)] Source #

type Rep Message_MessageType Source # 
Instance details

Defined in Data.Sawtooth.Validator

type Rep Message_MessageType = D1 ('MetaData "Message_MessageType" "Data.Sawtooth.Validator" "sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" 'False) ((((((C1 ('MetaCons "Message_MessageTypeDEFAULT" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "Message_MessageTypeTP_REGISTER_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeTP_REGISTER_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "Message_MessageTypeTP_UNREGISTER_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeTP_UNREGISTER_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "Message_MessageTypeTP_PROCESS_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeTP_PROCESS_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type)))) :+: ((C1 ('MetaCons "Message_MessageTypeTP_STATE_GET_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "Message_MessageTypeTP_STATE_GET_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeTP_STATE_SET_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "Message_MessageTypeTP_STATE_SET_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeTP_STATE_DELETE_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "Message_MessageTypeTP_STATE_DELETE_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeTP_RECEIPT_ADD_DATA_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type))))) :+: (((C1 ('MetaCons "Message_MessageTypeTP_RECEIPT_ADD_DATA_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "Message_MessageTypeTP_EVENT_ADD_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeTP_EVENT_ADD_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "Message_MessageTypeCLIENT_BATCH_SUBMIT_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeCLIENT_BATCH_SUBMIT_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "Message_MessageTypeCLIENT_BLOCK_LIST_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeCLIENT_BLOCK_LIST_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type)))) :+: (((C1 ('MetaCons "Message_MessageTypeCLIENT_BLOCK_GET_BY_ID_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeCLIENT_BLOCK_GET_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "Message_MessageTypeCLIENT_BATCH_LIST_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeCLIENT_BATCH_LIST_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "Message_MessageTypeCLIENT_BATCH_GET_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeCLIENT_BATCH_GET_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "Message_MessageTypeCLIENT_TRANSACTION_LIST_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeCLIENT_TRANSACTION_LIST_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type)))))) :+: ((((C1 ('MetaCons "Message_MessageTypeCLIENT_TRANSACTION_GET_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "Message_MessageTypeCLIENT_TRANSACTION_GET_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeCLIENT_STATE_CURRENT_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "Message_MessageTypeCLIENT_STATE_CURRENT_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeCLIENT_STATE_LIST_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "Message_MessageTypeCLIENT_STATE_LIST_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeCLIENT_STATE_GET_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type)))) :+: (((C1 ('MetaCons "Message_MessageTypeCLIENT_STATE_GET_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeCLIENT_BATCH_STATUS_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "Message_MessageTypeCLIENT_BATCH_STATUS_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeCLIENT_RECEIPT_GET_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "Message_MessageTypeCLIENT_RECEIPT_GET_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeCLIENT_BLOCK_GET_BY_NUM_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "Message_MessageTypeCLIENT_PEERS_GET_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeCLIENT_PEERS_GET_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type))))) :+: (((C1 ('MetaCons "Message_MessageTypeCLIENT_BLOCK_GET_BY_TRANSACTION_ID_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "Message_MessageTypeCLIENT_BLOCK_GET_BY_BATCH_ID_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeCLIENT_STATUS_GET_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "Message_MessageTypeCLIENT_STATUS_GET_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeGOSSIP_MESSAGE" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "Message_MessageTypeGOSSIP_REGISTER" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeGOSSIP_UNREGISTER" 'PrefixI 'False) (U1 :: Type -> Type)))) :+: (((C1 ('MetaCons "Message_MessageTypeGOSSIP_BLOCK_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeGOSSIP_BLOCK_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "Message_MessageTypeGOSSIP_BATCH_BY_BATCH_ID_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeGOSSIP_BATCH_BY_TRANSACTION_ID_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "Message_MessageTypeGOSSIP_BATCH_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeGOSSIP_GET_PEERS_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "Message_MessageTypeGOSSIP_GET_PEERS_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeGOSSIP_CONSENSUS_MESSAGE" 'PrefixI 'False) (U1 :: Type -> Type))))))) :+: (((((C1 ('MetaCons "Message_MessageTypeNETWORK_ACK" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "Message_MessageTypeNETWORK_CONNECT" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeNETWORK_DISCONNECT" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "Message_MessageTypeCLIENT_EVENTS_SUBSCRIBE_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeCLIENT_EVENTS_SUBSCRIBE_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "Message_MessageTypeCLIENT_EVENTS_UNSUBSCRIBE_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeCLIENT_EVENTS_UNSUBSCRIBE_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type)))) :+: (((C1 ('MetaCons "Message_MessageTypeCLIENT_EVENTS" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeCLIENT_EVENTS_GET_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "Message_MessageTypeCLIENT_EVENTS_GET_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeAUTHORIZATION_CONNECTION_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "Message_MessageTypeAUTHORIZATION_VIOLATION" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeAUTHORIZATION_TRUST_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "Message_MessageTypeAUTHORIZATION_TRUST_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeAUTHORIZATION_CHALLENGE_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type))))) :+: (((C1 ('MetaCons "Message_MessageTypeAUTHORIZATION_CHALLENGE_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "Message_MessageTypeAUTHORIZATION_CHALLENGE_SUBMIT" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeAUTHORIZATION_CHALLENGE_RESULT" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "Message_MessageTypePING_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypePING_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "Message_MessageTypeCONSENSUS_REGISTER_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeCONSENSUS_REGISTER_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type)))) :+: (((C1 ('MetaCons "Message_MessageTypeCONSENSUS_SEND_TO_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeCONSENSUS_SEND_TO_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "Message_MessageTypeCONSENSUS_BROADCAST_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeCONSENSUS_BROADCAST_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "Message_MessageTypeCONSENSUS_INITIALIZE_BLOCK_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeCONSENSUS_INITIALIZE_BLOCK_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "Message_MessageTypeCONSENSUS_FINALIZE_BLOCK_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeCONSENSUS_FINALIZE_BLOCK_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type)))))) :+: ((((C1 ('MetaCons "Message_MessageTypeCONSENSUS_CANCEL_BLOCK_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "Message_MessageTypeCONSENSUS_CANCEL_BLOCK_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeCONSENSUS_CHECK_BLOCKS_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "Message_MessageTypeCONSENSUS_CHECK_BLOCKS_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeCONSENSUS_COMMIT_BLOCK_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "Message_MessageTypeCONSENSUS_COMMIT_BLOCK_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeCONSENSUS_IGNORE_BLOCK_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type)))) :+: (((C1 ('MetaCons "Message_MessageTypeCONSENSUS_IGNORE_BLOCK_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeCONSENSUS_FAIL_BLOCK_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "Message_MessageTypeCONSENSUS_FAIL_BLOCK_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeCONSENSUS_SETTINGS_GET_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "Message_MessageTypeCONSENSUS_SETTINGS_GET_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeCONSENSUS_STATE_GET_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "Message_MessageTypeCONSENSUS_STATE_GET_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeCONSENSUS_BLOCKS_GET_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type))))) :+: (((C1 ('MetaCons "Message_MessageTypeCONSENSUS_BLOCKS_GET_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "Message_MessageTypeCONSENSUS_CHAIN_HEAD_GET_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeCONSENSUS_CHAIN_HEAD_GET_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "Message_MessageTypeCONSENSUS_SUMMARIZE_BLOCK_REQUEST" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeCONSENSUS_SUMMARIZE_BLOCK_RESPONSE" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "Message_MessageTypeCONSENSUS_NOTIFY_PEER_CONNECTED" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeCONSENSUS_NOTIFY_PEER_DISCONNECTED" 'PrefixI 'False) (U1 :: Type -> Type)))) :+: (((C1 ('MetaCons "Message_MessageTypeCONSENSUS_NOTIFY_PEER_MESSAGE" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeCONSENSUS_NOTIFY_BLOCK_NEW" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "Message_MessageTypeCONSENSUS_NOTIFY_BLOCK_VALID" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeCONSENSUS_NOTIFY_BLOCK_INVALID" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "Message_MessageTypeCONSENSUS_NOTIFY_BLOCK_COMMIT" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeCONSENSUS_NOTIFY_ENGINE_ACTIVATED" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "Message_MessageTypeCONSENSUS_NOTIFY_ENGINE_DEACTIVATED" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Message_MessageTypeCONSENSUS_NOTIFY_ACK" 'PrefixI 'False) (U1 :: Type -> Type))))))))
\ No newline at end of file diff --git a/doc-index-A.html b/doc-index-A.html index cbbd6b6..3b86e68 100644 --- a/doc-index-A.html +++ b/doc-index-A.html @@ -1 +1 @@ -sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types (Index - A)
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types

Index - A

AuthorizationChallengeRequest 
1 (Type/Class)Data.Sawtooth.Authorization
2 (Data Constructor)Data.Sawtooth.Authorization
AuthorizationChallengeResponse 
1 (Type/Class)Data.Sawtooth.Authorization
2 (Data Constructor)Data.Sawtooth.Authorization
authorizationChallengeResponsePayloadData.Sawtooth.Authorization
AuthorizationChallengeResult 
1 (Type/Class)Data.Sawtooth.Authorization
2 (Data Constructor)Data.Sawtooth.Authorization
authorizationChallengeResultRolesData.Sawtooth.Authorization
AuthorizationChallengeSubmit 
1 (Type/Class)Data.Sawtooth.Authorization
2 (Data Constructor)Data.Sawtooth.Authorization
authorizationChallengeSubmitPublicKeyData.Sawtooth.Authorization
authorizationChallengeSubmitRolesData.Sawtooth.Authorization
authorizationChallengeSubmitSignatureData.Sawtooth.Authorization
AuthorizationTrustRequest 
1 (Type/Class)Data.Sawtooth.Authorization
2 (Data Constructor)Data.Sawtooth.Authorization
authorizationTrustRequestPublicKeyData.Sawtooth.Authorization
authorizationTrustRequestRolesData.Sawtooth.Authorization
AuthorizationTrustResponse 
1 (Type/Class)Data.Sawtooth.Authorization
2 (Data Constructor)Data.Sawtooth.Authorization
authorizationTrustResponseRolesData.Sawtooth.Authorization
AuthorizationViolation 
1 (Type/Class)Data.Sawtooth.Authorization
2 (Data Constructor)Data.Sawtooth.Authorization
authorizationViolationViolationData.Sawtooth.Authorization
\ No newline at end of file +sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types (Index - A)
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types

Index - A

AuthorizationChallengeRequest 
1 (Type/Class)Data.Sawtooth.Authorization
2 (Data Constructor)Data.Sawtooth.Authorization
AuthorizationChallengeResponse 
1 (Type/Class)Data.Sawtooth.Authorization
2 (Data Constructor)Data.Sawtooth.Authorization
authorizationChallengeResponsePayloadData.Sawtooth.Authorization
AuthorizationChallengeResult 
1 (Type/Class)Data.Sawtooth.Authorization
2 (Data Constructor)Data.Sawtooth.Authorization
authorizationChallengeResultRolesData.Sawtooth.Authorization
AuthorizationChallengeSubmit 
1 (Type/Class)Data.Sawtooth.Authorization
2 (Data Constructor)Data.Sawtooth.Authorization
authorizationChallengeSubmitPublicKeyData.Sawtooth.Authorization
authorizationChallengeSubmitRolesData.Sawtooth.Authorization
authorizationChallengeSubmitSignatureData.Sawtooth.Authorization
AuthorizationTrustRequest 
1 (Type/Class)Data.Sawtooth.Authorization
2 (Data Constructor)Data.Sawtooth.Authorization
authorizationTrustRequestPublicKeyData.Sawtooth.Authorization
authorizationTrustRequestRolesData.Sawtooth.Authorization
AuthorizationTrustResponse 
1 (Type/Class)Data.Sawtooth.Authorization
2 (Data Constructor)Data.Sawtooth.Authorization
authorizationTrustResponseRolesData.Sawtooth.Authorization
AuthorizationViolation 
1 (Type/Class)Data.Sawtooth.Authorization
2 (Data Constructor)Data.Sawtooth.Authorization
authorizationViolationViolationData.Sawtooth.Authorization
\ No newline at end of file diff --git a/doc-index-All.html b/doc-index-All.html index 25161a0..9a6f2d6 100644 --- a/doc-index-All.html +++ b/doc-index-All.html @@ -1 +1 @@ -sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types (Index)
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types

Index

AuthorizationChallengeRequest 
1 (Type/Class)Data.Sawtooth.Authorization
2 (Data Constructor)Data.Sawtooth.Authorization
AuthorizationChallengeResponse 
1 (Type/Class)Data.Sawtooth.Authorization
2 (Data Constructor)Data.Sawtooth.Authorization
authorizationChallengeResponsePayloadData.Sawtooth.Authorization
AuthorizationChallengeResult 
1 (Type/Class)Data.Sawtooth.Authorization
2 (Data Constructor)Data.Sawtooth.Authorization
authorizationChallengeResultRolesData.Sawtooth.Authorization
AuthorizationChallengeSubmit 
1 (Type/Class)Data.Sawtooth.Authorization
2 (Data Constructor)Data.Sawtooth.Authorization
authorizationChallengeSubmitPublicKeyData.Sawtooth.Authorization
authorizationChallengeSubmitRolesData.Sawtooth.Authorization
authorizationChallengeSubmitSignatureData.Sawtooth.Authorization
AuthorizationTrustRequest 
1 (Type/Class)Data.Sawtooth.Authorization
2 (Data Constructor)Data.Sawtooth.Authorization
authorizationTrustRequestPublicKeyData.Sawtooth.Authorization
authorizationTrustRequestRolesData.Sawtooth.Authorization
AuthorizationTrustResponse 
1 (Type/Class)Data.Sawtooth.Authorization
2 (Data Constructor)Data.Sawtooth.Authorization
authorizationTrustResponseRolesData.Sawtooth.Authorization
AuthorizationViolation 
1 (Type/Class)Data.Sawtooth.Authorization
2 (Data Constructor)Data.Sawtooth.Authorization
authorizationViolationViolationData.Sawtooth.Authorization
Batch 
1 (Type/Class)Data.Sawtooth.Batch
2 (Data Constructor)Data.Sawtooth.Batch
BatchHeader 
1 (Type/Class)Data.Sawtooth.Batch
2 (Data Constructor)Data.Sawtooth.Batch
batchHeaderData.Sawtooth.Batch
batchHeaderSignatureData.Sawtooth.Batch
batchHeaderSignerPublicKeyData.Sawtooth.Batch
batchHeaderTransactionIdsData.Sawtooth.Batch
BatchList 
1 (Type/Class)Data.Sawtooth.Batch
2 (Data Constructor)Data.Sawtooth.Batch
batchListBatchesData.Sawtooth.Batch
batchTraceData.Sawtooth.Batch
batchTransactionsData.Sawtooth.Batch
Block 
1 (Type/Class)Data.Sawtooth.Block
2 (Data Constructor)Data.Sawtooth.Block
blockBatchesData.Sawtooth.Block
BlockHeader 
1 (Type/Class)Data.Sawtooth.Block
2 (Data Constructor)Data.Sawtooth.Block
blockHeaderData.Sawtooth.Block
blockHeaderBatchIdsData.Sawtooth.Block
blockHeaderBlockNumData.Sawtooth.Block
blockHeaderConsensusData.Sawtooth.Block
blockHeaderPreviousBlockIdData.Sawtooth.Block
blockHeaderSignatureData.Sawtooth.Block
blockHeaderSignerPublicKeyData.Sawtooth.Block
blockHeaderStateRootHashData.Sawtooth.Block
BlockInfo 
1 (Type/Class)Data.Sawtooth.BlockInfo
2 (Data Constructor)Data.Sawtooth.BlockInfo
blockInfoBlockNumData.Sawtooth.BlockInfo
BlockInfoConfig 
1 (Type/Class)Data.Sawtooth.BlockInfo
2 (Data Constructor)Data.Sawtooth.BlockInfo
blockInfoConfigLatestBlockData.Sawtooth.BlockInfo
blockInfoConfigOldestBlockData.Sawtooth.BlockInfo
blockInfoConfigSyncToleranceData.Sawtooth.BlockInfo
blockInfoConfigTargetCountData.Sawtooth.BlockInfo
blockInfoHeaderSignatureData.Sawtooth.BlockInfo
blockInfoPreviousBlockIdData.Sawtooth.BlockInfo
blockInfoSignerPublicKeyData.Sawtooth.BlockInfo
blockInfoTimestampData.Sawtooth.BlockInfo
BlockInfoTxn 
1 (Type/Class)Data.Sawtooth.BlockInfo
2 (Data Constructor)Data.Sawtooth.BlockInfo
blockInfoTxnBlockData.Sawtooth.BlockInfo
blockInfoTxnSyncToleranceData.Sawtooth.BlockInfo
blockInfoTxnTargetCountData.Sawtooth.BlockInfo
ChangeLogEntry 
1 (Type/Class)Data.Sawtooth.Merkle
2 (Data Constructor)Data.Sawtooth.Merkle
changeLogEntryAdditionsData.Sawtooth.Merkle
changeLogEntryParentData.Sawtooth.Merkle
changeLogEntrySuccessorsData.Sawtooth.Merkle
ChangeLogEntry_Successor 
1 (Type/Class)Data.Sawtooth.Merkle
2 (Data Constructor)Data.Sawtooth.Merkle
changeLogEntry_SuccessorDeletionsData.Sawtooth.Merkle
changeLogEntry_SuccessorSuccessorData.Sawtooth.Merkle
ClientBatchGetRequest 
1 (Type/Class)Data.Sawtooth.ClientBatch
2 (Data Constructor)Data.Sawtooth.ClientBatch
clientBatchGetRequestBatchIdData.Sawtooth.ClientBatch
ClientBatchGetResponse 
1 (Type/Class)Data.Sawtooth.ClientBatch
2 (Data Constructor)Data.Sawtooth.ClientBatch
clientBatchGetResponseBatchData.Sawtooth.ClientBatch
clientBatchGetResponseStatusData.Sawtooth.ClientBatch
ClientBatchGetResponse_StatusData.Sawtooth.ClientBatch
ClientBatchGetResponse_StatusINTERNAL_ERRORData.Sawtooth.ClientBatch
ClientBatchGetResponse_StatusINVALID_IDData.Sawtooth.ClientBatch
ClientBatchGetResponse_StatusNO_RESOURCEData.Sawtooth.ClientBatch
ClientBatchGetResponse_StatusOKData.Sawtooth.ClientBatch
ClientBatchGetResponse_StatusSTATUS_UNSETData.Sawtooth.ClientBatch
ClientBatchListRequest 
1 (Type/Class)Data.Sawtooth.ClientBatch
2 (Data Constructor)Data.Sawtooth.ClientBatch
clientBatchListRequestBatchIdsData.Sawtooth.ClientBatch
clientBatchListRequestHeadIdData.Sawtooth.ClientBatch
clientBatchListRequestPagingData.Sawtooth.ClientBatch
clientBatchListRequestSortingData.Sawtooth.ClientBatch
ClientBatchListResponse 
1 (Type/Class)Data.Sawtooth.ClientBatch
2 (Data Constructor)Data.Sawtooth.ClientBatch
clientBatchListResponseBatchesData.Sawtooth.ClientBatch
clientBatchListResponseHeadIdData.Sawtooth.ClientBatch
clientBatchListResponsePagingData.Sawtooth.ClientBatch
clientBatchListResponseStatusData.Sawtooth.ClientBatch
ClientBatchListResponse_StatusData.Sawtooth.ClientBatch
ClientBatchListResponse_StatusINTERNAL_ERRORData.Sawtooth.ClientBatch
ClientBatchListResponse_StatusINVALID_IDData.Sawtooth.ClientBatch
ClientBatchListResponse_StatusINVALID_PAGINGData.Sawtooth.ClientBatch
ClientBatchListResponse_StatusINVALID_SORTData.Sawtooth.ClientBatch
ClientBatchListResponse_StatusNOT_READYData.Sawtooth.ClientBatch
ClientBatchListResponse_StatusNO_RESOURCEData.Sawtooth.ClientBatch
ClientBatchListResponse_StatusNO_ROOTData.Sawtooth.ClientBatch
ClientBatchListResponse_StatusOKData.Sawtooth.ClientBatch
ClientBatchListResponse_StatusSTATUS_UNSETData.Sawtooth.ClientBatch
ClientBatchStatus 
1 (Type/Class)Data.Sawtooth.ClientBatchSubmit
2 (Data Constructor)Data.Sawtooth.ClientBatchSubmit
clientBatchStatusBatchIdData.Sawtooth.ClientBatchSubmit
clientBatchStatusInvalidTransactionsData.Sawtooth.ClientBatchSubmit
ClientBatchStatusRequest 
1 (Type/Class)Data.Sawtooth.ClientBatchSubmit
2 (Data Constructor)Data.Sawtooth.ClientBatchSubmit
clientBatchStatusRequestBatchIdsData.Sawtooth.ClientBatchSubmit
clientBatchStatusRequestTimeoutData.Sawtooth.ClientBatchSubmit
clientBatchStatusRequestWaitData.Sawtooth.ClientBatchSubmit
ClientBatchStatusResponse 
1 (Type/Class)Data.Sawtooth.ClientBatchSubmit
2 (Data Constructor)Data.Sawtooth.ClientBatchSubmit
clientBatchStatusResponseBatchStatusesData.Sawtooth.ClientBatchSubmit
clientBatchStatusResponseStatusData.Sawtooth.ClientBatchSubmit
ClientBatchStatusResponse_StatusData.Sawtooth.ClientBatchSubmit
ClientBatchStatusResponse_StatusINTERNAL_ERRORData.Sawtooth.ClientBatchSubmit
ClientBatchStatusResponse_StatusINVALID_IDData.Sawtooth.ClientBatchSubmit
ClientBatchStatusResponse_StatusNO_RESOURCEData.Sawtooth.ClientBatchSubmit
ClientBatchStatusResponse_StatusOKData.Sawtooth.ClientBatchSubmit
ClientBatchStatusResponse_StatusSTATUS_UNSETData.Sawtooth.ClientBatchSubmit
clientBatchStatusStatusData.Sawtooth.ClientBatchSubmit
ClientBatchStatus_InvalidTransaction 
1 (Type/Class)Data.Sawtooth.ClientBatchSubmit
2 (Data Constructor)Data.Sawtooth.ClientBatchSubmit
clientBatchStatus_InvalidTransactionExtendedDataData.Sawtooth.ClientBatchSubmit
clientBatchStatus_InvalidTransactionMessageData.Sawtooth.ClientBatchSubmit
clientBatchStatus_InvalidTransactionTransactionIdData.Sawtooth.ClientBatchSubmit
ClientBatchStatus_StatusData.Sawtooth.ClientBatchSubmit
ClientBatchStatus_StatusCOMMITTEDData.Sawtooth.ClientBatchSubmit
ClientBatchStatus_StatusINVALIDData.Sawtooth.ClientBatchSubmit
ClientBatchStatus_StatusPENDINGData.Sawtooth.ClientBatchSubmit
ClientBatchStatus_StatusSTATUS_UNSETData.Sawtooth.ClientBatchSubmit
ClientBatchStatus_StatusUNKNOWNData.Sawtooth.ClientBatchSubmit
ClientBatchSubmitRequest 
1 (Type/Class)Data.Sawtooth.ClientBatchSubmit
2 (Data Constructor)Data.Sawtooth.ClientBatchSubmit
clientBatchSubmitRequestBatchesData.Sawtooth.ClientBatchSubmit
ClientBatchSubmitResponse 
1 (Type/Class)Data.Sawtooth.ClientBatchSubmit
2 (Data Constructor)Data.Sawtooth.ClientBatchSubmit
clientBatchSubmitResponseStatusData.Sawtooth.ClientBatchSubmit
ClientBatchSubmitResponse_StatusData.Sawtooth.ClientBatchSubmit
ClientBatchSubmitResponse_StatusINTERNAL_ERRORData.Sawtooth.ClientBatchSubmit
ClientBatchSubmitResponse_StatusINVALID_BATCHData.Sawtooth.ClientBatchSubmit
ClientBatchSubmitResponse_StatusOKData.Sawtooth.ClientBatchSubmit
ClientBatchSubmitResponse_StatusQUEUE_FULLData.Sawtooth.ClientBatchSubmit
ClientBatchSubmitResponse_StatusSTATUS_UNSETData.Sawtooth.ClientBatchSubmit
ClientBlockGetByBatchIdRequest 
1 (Type/Class)Data.Sawtooth.ClientBlock
2 (Data Constructor)Data.Sawtooth.ClientBlock
clientBlockGetByBatchIdRequestBatchIdData.Sawtooth.ClientBlock
ClientBlockGetByIdRequest 
1 (Type/Class)Data.Sawtooth.ClientBlock
2 (Data Constructor)Data.Sawtooth.ClientBlock
clientBlockGetByIdRequestBlockIdData.Sawtooth.ClientBlock
ClientBlockGetByNumRequest 
1 (Type/Class)Data.Sawtooth.ClientBlock
2 (Data Constructor)Data.Sawtooth.ClientBlock
clientBlockGetByNumRequestBlockNumData.Sawtooth.ClientBlock
ClientBlockGetByTransactionIdRequest 
1 (Type/Class)Data.Sawtooth.ClientBlock
2 (Data Constructor)Data.Sawtooth.ClientBlock
clientBlockGetByTransactionIdRequestTransactionIdData.Sawtooth.ClientBlock
ClientBlockGetResponse 
1 (Type/Class)Data.Sawtooth.ClientBlock
2 (Data Constructor)Data.Sawtooth.ClientBlock
clientBlockGetResponseBlockData.Sawtooth.ClientBlock
clientBlockGetResponseStatusData.Sawtooth.ClientBlock
ClientBlockGetResponse_StatusData.Sawtooth.ClientBlock
ClientBlockGetResponse_StatusINTERNAL_ERRORData.Sawtooth.ClientBlock
ClientBlockGetResponse_StatusINVALID_IDData.Sawtooth.ClientBlock
ClientBlockGetResponse_StatusNO_RESOURCEData.Sawtooth.ClientBlock
ClientBlockGetResponse_StatusOKData.Sawtooth.ClientBlock
ClientBlockGetResponse_StatusSTATUS_UNSETData.Sawtooth.ClientBlock
ClientBlockListRequest 
1 (Type/Class)Data.Sawtooth.ClientBlock
2 (Data Constructor)Data.Sawtooth.ClientBlock
clientBlockListRequestBlockIdsData.Sawtooth.ClientBlock
clientBlockListRequestHeadIdData.Sawtooth.ClientBlock
clientBlockListRequestPagingData.Sawtooth.ClientBlock
clientBlockListRequestSortingData.Sawtooth.ClientBlock
ClientBlockListResponse 
1 (Type/Class)Data.Sawtooth.ClientBlock
2 (Data Constructor)Data.Sawtooth.ClientBlock
clientBlockListResponseBlocksData.Sawtooth.ClientBlock
clientBlockListResponseHeadIdData.Sawtooth.ClientBlock
clientBlockListResponsePagingData.Sawtooth.ClientBlock
clientBlockListResponseStatusData.Sawtooth.ClientBlock
ClientBlockListResponse_StatusData.Sawtooth.ClientBlock
ClientBlockListResponse_StatusINTERNAL_ERRORData.Sawtooth.ClientBlock
ClientBlockListResponse_StatusINVALID_IDData.Sawtooth.ClientBlock
ClientBlockListResponse_StatusINVALID_PAGINGData.Sawtooth.ClientBlock
ClientBlockListResponse_StatusINVALID_SORTData.Sawtooth.ClientBlock
ClientBlockListResponse_StatusNOT_READYData.Sawtooth.ClientBlock
ClientBlockListResponse_StatusNO_RESOURCEData.Sawtooth.ClientBlock
ClientBlockListResponse_StatusNO_ROOTData.Sawtooth.ClientBlock
ClientBlockListResponse_StatusOKData.Sawtooth.ClientBlock
ClientBlockListResponse_StatusSTATUS_UNSETData.Sawtooth.ClientBlock
ClientEventsGetRequest 
1 (Type/Class)Data.Sawtooth.ClientEvent
2 (Data Constructor)Data.Sawtooth.ClientEvent
clientEventsGetRequestBlockIdsData.Sawtooth.ClientEvent
clientEventsGetRequestSubscriptionsData.Sawtooth.ClientEvent
ClientEventsGetResponse 
1 (Type/Class)Data.Sawtooth.ClientEvent
2 (Data Constructor)Data.Sawtooth.ClientEvent
clientEventsGetResponseEventsData.Sawtooth.ClientEvent
clientEventsGetResponseStatusData.Sawtooth.ClientEvent
ClientEventsGetResponse_StatusData.Sawtooth.ClientEvent
ClientEventsGetResponse_StatusINTERNAL_ERRORData.Sawtooth.ClientEvent
ClientEventsGetResponse_StatusINVALID_FILTERData.Sawtooth.ClientEvent
ClientEventsGetResponse_StatusOKData.Sawtooth.ClientEvent
ClientEventsGetResponse_StatusSTATUS_UNSETData.Sawtooth.ClientEvent
ClientEventsGetResponse_StatusUNKNOWN_BLOCKData.Sawtooth.ClientEvent
ClientEventsSubscribeRequest 
1 (Type/Class)Data.Sawtooth.ClientEvent
2 (Data Constructor)Data.Sawtooth.ClientEvent
clientEventsSubscribeRequestLastKnownBlockIdsData.Sawtooth.ClientEvent
clientEventsSubscribeRequestSubscriptionsData.Sawtooth.ClientEvent
ClientEventsSubscribeResponse 
1 (Type/Class)Data.Sawtooth.ClientEvent
2 (Data Constructor)Data.Sawtooth.ClientEvent
clientEventsSubscribeResponseResponseMessageData.Sawtooth.ClientEvent
clientEventsSubscribeResponseStatusData.Sawtooth.ClientEvent
ClientEventsSubscribeResponse_StatusData.Sawtooth.ClientEvent
ClientEventsSubscribeResponse_StatusINVALID_FILTERData.Sawtooth.ClientEvent
ClientEventsSubscribeResponse_StatusOKData.Sawtooth.ClientEvent
ClientEventsSubscribeResponse_StatusSTATUS_UNSETData.Sawtooth.ClientEvent
ClientEventsSubscribeResponse_StatusUNKNOWN_BLOCKData.Sawtooth.ClientEvent
ClientEventsUnsubscribeRequest 
1 (Type/Class)Data.Sawtooth.ClientEvent
2 (Data Constructor)Data.Sawtooth.ClientEvent
ClientEventsUnsubscribeResponse 
1 (Type/Class)Data.Sawtooth.ClientEvent
2 (Data Constructor)Data.Sawtooth.ClientEvent
clientEventsUnsubscribeResponseStatusData.Sawtooth.ClientEvent
ClientEventsUnsubscribeResponse_StatusData.Sawtooth.ClientEvent
ClientEventsUnsubscribeResponse_StatusINTERNAL_ERRORData.Sawtooth.ClientEvent
ClientEventsUnsubscribeResponse_StatusOKData.Sawtooth.ClientEvent
ClientEventsUnsubscribeResponse_StatusSTATUS_UNSETData.Sawtooth.ClientEvent
ClientPagingControls 
1 (Type/Class)Data.Sawtooth.ClientListControl
2 (Data Constructor)Data.Sawtooth.ClientListControl
clientPagingControlsLimitData.Sawtooth.ClientListControl
clientPagingControlsStartData.Sawtooth.ClientListControl
ClientPagingResponse 
1 (Type/Class)Data.Sawtooth.ClientListControl
2 (Data Constructor)Data.Sawtooth.ClientListControl
clientPagingResponseLimitData.Sawtooth.ClientListControl
clientPagingResponseNextData.Sawtooth.ClientListControl
clientPagingResponseStartData.Sawtooth.ClientListControl
ClientPeersGetRequest 
1 (Type/Class)Data.Sawtooth.ClientPeers
2 (Data Constructor)Data.Sawtooth.ClientPeers
ClientPeersGetResponse 
1 (Type/Class)Data.Sawtooth.ClientPeers
2 (Data Constructor)Data.Sawtooth.ClientPeers
clientPeersGetResponsePeersData.Sawtooth.ClientPeers
clientPeersGetResponseStatusData.Sawtooth.ClientPeers
ClientPeersGetResponse_StatusData.Sawtooth.ClientPeers
ClientPeersGetResponse_StatusERRORData.Sawtooth.ClientPeers
ClientPeersGetResponse_StatusOKData.Sawtooth.ClientPeers
ClientPeersGetResponse_StatusSTATUS_UNSETData.Sawtooth.ClientPeers
ClientReceiptGetRequest 
1 (Type/Class)Data.Sawtooth.ClientReceipt
2 (Data Constructor)Data.Sawtooth.ClientReceipt
clientReceiptGetRequestTransactionIdsData.Sawtooth.ClientReceipt
ClientReceiptGetResponse 
1 (Type/Class)Data.Sawtooth.ClientReceipt
2 (Data Constructor)Data.Sawtooth.ClientReceipt
clientReceiptGetResponseReceiptsData.Sawtooth.ClientReceipt
clientReceiptGetResponseStatusData.Sawtooth.ClientReceipt
ClientReceiptGetResponse_StatusData.Sawtooth.ClientReceipt
ClientReceiptGetResponse_StatusINTERNAL_ERRORData.Sawtooth.ClientReceipt
ClientReceiptGetResponse_StatusINVALID_IDData.Sawtooth.ClientReceipt
ClientReceiptGetResponse_StatusNO_RESOURCEData.Sawtooth.ClientReceipt
ClientReceiptGetResponse_StatusOKData.Sawtooth.ClientReceipt
ClientReceiptGetResponse_StatusSTATUS_UNSETData.Sawtooth.ClientReceipt
ClientSortControls 
1 (Type/Class)Data.Sawtooth.ClientListControl
2 (Data Constructor)Data.Sawtooth.ClientListControl
clientSortControlsKeysData.Sawtooth.ClientListControl
clientSortControlsReverseData.Sawtooth.ClientListControl
ClientStateGetRequest 
1 (Type/Class)Data.Sawtooth.ClientState
2 (Data Constructor)Data.Sawtooth.ClientState
clientStateGetRequestAddressData.Sawtooth.ClientState
clientStateGetRequestStateRootData.Sawtooth.ClientState
ClientStateGetResponse 
1 (Type/Class)Data.Sawtooth.ClientState
2 (Data Constructor)Data.Sawtooth.ClientState
clientStateGetResponseStateRootData.Sawtooth.ClientState
clientStateGetResponseStatusData.Sawtooth.ClientState
clientStateGetResponseValueData.Sawtooth.ClientState
ClientStateGetResponse_StatusData.Sawtooth.ClientState
ClientStateGetResponse_StatusINTERNAL_ERRORData.Sawtooth.ClientState
ClientStateGetResponse_StatusINVALID_ADDRESSData.Sawtooth.ClientState
ClientStateGetResponse_StatusINVALID_ROOTData.Sawtooth.ClientState
ClientStateGetResponse_StatusNOT_READYData.Sawtooth.ClientState
ClientStateGetResponse_StatusNO_RESOURCEData.Sawtooth.ClientState
ClientStateGetResponse_StatusNO_ROOTData.Sawtooth.ClientState
ClientStateGetResponse_StatusOKData.Sawtooth.ClientState
ClientStateGetResponse_StatusSTATUS_UNSETData.Sawtooth.ClientState
ClientStateListRequest 
1 (Type/Class)Data.Sawtooth.ClientState
2 (Data Constructor)Data.Sawtooth.ClientState
clientStateListRequestAddressData.Sawtooth.ClientState
clientStateListRequestPagingData.Sawtooth.ClientState
clientStateListRequestSortingData.Sawtooth.ClientState
clientStateListRequestStateRootData.Sawtooth.ClientState
ClientStateListResponse 
1 (Type/Class)Data.Sawtooth.ClientState
2 (Data Constructor)Data.Sawtooth.ClientState
clientStateListResponseEntriesData.Sawtooth.ClientState
clientStateListResponsePagingData.Sawtooth.ClientState
clientStateListResponseStateRootData.Sawtooth.ClientState
clientStateListResponseStatusData.Sawtooth.ClientState
ClientStateListResponse_Entry 
1 (Type/Class)Data.Sawtooth.ClientState
2 (Data Constructor)Data.Sawtooth.ClientState
clientStateListResponse_EntryAddressData.Sawtooth.ClientState
clientStateListResponse_EntryDataData.Sawtooth.ClientState
ClientStateListResponse_StatusData.Sawtooth.ClientState
ClientStateListResponse_StatusINTERNAL_ERRORData.Sawtooth.ClientState
ClientStateListResponse_StatusINVALID_ADDRESSData.Sawtooth.ClientState
ClientStateListResponse_StatusINVALID_PAGINGData.Sawtooth.ClientState
ClientStateListResponse_StatusINVALID_ROOTData.Sawtooth.ClientState
ClientStateListResponse_StatusINVALID_SORTData.Sawtooth.ClientState
ClientStateListResponse_StatusNOT_READYData.Sawtooth.ClientState
ClientStateListResponse_StatusNO_RESOURCEData.Sawtooth.ClientState
ClientStateListResponse_StatusNO_ROOTData.Sawtooth.ClientState
ClientStateListResponse_StatusOKData.Sawtooth.ClientState
ClientStateListResponse_StatusSTATUS_UNSETData.Sawtooth.ClientState
ClientStatusGetRequest 
1 (Type/Class)Data.Sawtooth.ClientStatus
2 (Data Constructor)Data.Sawtooth.ClientStatus
ClientStatusGetResponse 
1 (Type/Class)Data.Sawtooth.ClientStatus
2 (Data Constructor)Data.Sawtooth.ClientStatus
clientStatusGetResponseEndpointData.Sawtooth.ClientStatus
clientStatusGetResponsePeersData.Sawtooth.ClientStatus
clientStatusGetResponseStatusData.Sawtooth.ClientStatus
ClientStatusGetResponse_Peer 
1 (Type/Class)Data.Sawtooth.ClientStatus
2 (Data Constructor)Data.Sawtooth.ClientStatus
clientStatusGetResponse_PeerEndpointData.Sawtooth.ClientStatus
ClientStatusGetResponse_StatusData.Sawtooth.ClientStatus
ClientStatusGetResponse_StatusERRORData.Sawtooth.ClientStatus
ClientStatusGetResponse_StatusOKData.Sawtooth.ClientStatus
ClientStatusGetResponse_StatusSTATUS_UNSETData.Sawtooth.ClientStatus
ClientTransactionGetRequest 
1 (Type/Class)Data.Sawtooth.ClientTransaction
2 (Data Constructor)Data.Sawtooth.ClientTransaction
clientTransactionGetRequestTransactionIdData.Sawtooth.ClientTransaction
ClientTransactionGetResponse 
1 (Type/Class)Data.Sawtooth.ClientTransaction
2 (Data Constructor)Data.Sawtooth.ClientTransaction
clientTransactionGetResponseStatusData.Sawtooth.ClientTransaction
clientTransactionGetResponseTransactionData.Sawtooth.ClientTransaction
ClientTransactionGetResponse_StatusData.Sawtooth.ClientTransaction
ClientTransactionGetResponse_StatusINTERNAL_ERRORData.Sawtooth.ClientTransaction
ClientTransactionGetResponse_StatusINVALID_IDData.Sawtooth.ClientTransaction
ClientTransactionGetResponse_StatusNO_RESOURCEData.Sawtooth.ClientTransaction
ClientTransactionGetResponse_StatusOKData.Sawtooth.ClientTransaction
ClientTransactionGetResponse_StatusSTATUS_UNSETData.Sawtooth.ClientTransaction
ClientTransactionListRequest 
1 (Type/Class)Data.Sawtooth.ClientTransaction
2 (Data Constructor)Data.Sawtooth.ClientTransaction
clientTransactionListRequestHeadIdData.Sawtooth.ClientTransaction
clientTransactionListRequestPagingData.Sawtooth.ClientTransaction
clientTransactionListRequestSortingData.Sawtooth.ClientTransaction
clientTransactionListRequestTransactionIdsData.Sawtooth.ClientTransaction
ClientTransactionListResponse 
1 (Type/Class)Data.Sawtooth.ClientTransaction
2 (Data Constructor)Data.Sawtooth.ClientTransaction
clientTransactionListResponseHeadIdData.Sawtooth.ClientTransaction
clientTransactionListResponsePagingData.Sawtooth.ClientTransaction
clientTransactionListResponseStatusData.Sawtooth.ClientTransaction
clientTransactionListResponseTransactionsData.Sawtooth.ClientTransaction
ClientTransactionListResponse_StatusData.Sawtooth.ClientTransaction
ClientTransactionListResponse_StatusINTERNAL_ERRORData.Sawtooth.ClientTransaction
ClientTransactionListResponse_StatusINVALID_IDData.Sawtooth.ClientTransaction
ClientTransactionListResponse_StatusINVALID_PAGINGData.Sawtooth.ClientTransaction
ClientTransactionListResponse_StatusINVALID_SORTData.Sawtooth.ClientTransaction
ClientTransactionListResponse_StatusNOT_READYData.Sawtooth.ClientTransaction
ClientTransactionListResponse_StatusNO_RESOURCEData.Sawtooth.ClientTransaction
ClientTransactionListResponse_StatusNO_ROOTData.Sawtooth.ClientTransaction
ClientTransactionListResponse_StatusOKData.Sawtooth.ClientTransaction
ClientTransactionListResponse_StatusSTATUS_UNSETData.Sawtooth.ClientTransaction
ConnectionRequest 
1 (Type/Class)Data.Sawtooth.Authorization
2 (Data Constructor)Data.Sawtooth.Authorization
connectionRequestEndpointData.Sawtooth.Authorization
ConnectionResponse 
1 (Type/Class)Data.Sawtooth.Authorization
2 (Data Constructor)Data.Sawtooth.Authorization
connectionResponseRolesData.Sawtooth.Authorization
connectionResponseStatusData.Sawtooth.Authorization
ConnectionResponse_AuthorizationTypeData.Sawtooth.Authorization
ConnectionResponse_AuthorizationTypeAUTHORIZATION_TYPE_UNSETData.Sawtooth.Authorization
ConnectionResponse_AuthorizationTypeCHALLENGEData.Sawtooth.Authorization
ConnectionResponse_AuthorizationTypeTRUSTData.Sawtooth.Authorization
ConnectionResponse_RoleEntry 
1 (Type/Class)Data.Sawtooth.Authorization
2 (Data Constructor)Data.Sawtooth.Authorization
connectionResponse_RoleEntryAuthTypeData.Sawtooth.Authorization
connectionResponse_RoleEntryRoleData.Sawtooth.Authorization
ConnectionResponse_StatusData.Sawtooth.Authorization
ConnectionResponse_StatusERRORData.Sawtooth.Authorization
ConnectionResponse_StatusOKData.Sawtooth.Authorization
ConnectionResponse_StatusSTATUS_UNSETData.Sawtooth.Authorization
ConsensusBlock 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusBlockBlockIdData.Sawtooth.Consensus
consensusBlockBlockNumData.Sawtooth.Consensus
consensusBlockPayloadData.Sawtooth.Consensus
consensusBlockPreviousIdData.Sawtooth.Consensus
ConsensusBlocksGetRequest 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusBlocksGetRequestBlockIdsData.Sawtooth.Consensus
ConsensusBlocksGetResponse 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusBlocksGetResponseBlocksData.Sawtooth.Consensus
consensusBlocksGetResponseStatusData.Sawtooth.Consensus
ConsensusBlocksGetResponse_StatusData.Sawtooth.Consensus
ConsensusBlocksGetResponse_StatusBAD_REQUESTData.Sawtooth.Consensus
ConsensusBlocksGetResponse_StatusNOT_ACTIVE_ENGINEData.Sawtooth.Consensus
ConsensusBlocksGetResponse_StatusNOT_READYData.Sawtooth.Consensus
ConsensusBlocksGetResponse_StatusOKData.Sawtooth.Consensus
ConsensusBlocksGetResponse_StatusSERVICE_ERRORData.Sawtooth.Consensus
ConsensusBlocksGetResponse_StatusSTATUS_UNSETData.Sawtooth.Consensus
ConsensusBlocksGetResponse_StatusUNKNOWN_BLOCKData.Sawtooth.Consensus
consensusBlockSignerIdData.Sawtooth.Consensus
consensusBlockSummaryData.Sawtooth.Consensus
ConsensusBroadcastRequest 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusBroadcastRequestContentData.Sawtooth.Consensus
consensusBroadcastRequestMessageTypeData.Sawtooth.Consensus
ConsensusBroadcastResponse 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusBroadcastResponseStatusData.Sawtooth.Consensus
ConsensusBroadcastResponse_StatusData.Sawtooth.Consensus
ConsensusBroadcastResponse_StatusBAD_REQUESTData.Sawtooth.Consensus
ConsensusBroadcastResponse_StatusNOT_ACTIVE_ENGINEData.Sawtooth.Consensus
ConsensusBroadcastResponse_StatusNOT_READYData.Sawtooth.Consensus
ConsensusBroadcastResponse_StatusOKData.Sawtooth.Consensus
ConsensusBroadcastResponse_StatusSERVICE_ERRORData.Sawtooth.Consensus
ConsensusBroadcastResponse_StatusSTATUS_UNSETData.Sawtooth.Consensus
ConsensusCancelBlockRequest 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
ConsensusCancelBlockResponse 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusCancelBlockResponseStatusData.Sawtooth.Consensus
ConsensusCancelBlockResponse_StatusData.Sawtooth.Consensus
ConsensusCancelBlockResponse_StatusBAD_REQUESTData.Sawtooth.Consensus
ConsensusCancelBlockResponse_StatusINVALID_STATEData.Sawtooth.Consensus
ConsensusCancelBlockResponse_StatusNOT_ACTIVE_ENGINEData.Sawtooth.Consensus
ConsensusCancelBlockResponse_StatusNOT_READYData.Sawtooth.Consensus
ConsensusCancelBlockResponse_StatusOKData.Sawtooth.Consensus
ConsensusCancelBlockResponse_StatusSERVICE_ERRORData.Sawtooth.Consensus
ConsensusCancelBlockResponse_StatusSTATUS_UNSETData.Sawtooth.Consensus
ConsensusChainHeadGetRequest 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
ConsensusChainHeadGetResponse 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusChainHeadGetResponseBlockData.Sawtooth.Consensus
consensusChainHeadGetResponseStatusData.Sawtooth.Consensus
ConsensusChainHeadGetResponse_StatusData.Sawtooth.Consensus
ConsensusChainHeadGetResponse_StatusBAD_REQUESTData.Sawtooth.Consensus
ConsensusChainHeadGetResponse_StatusNOT_ACTIVE_ENGINEData.Sawtooth.Consensus
ConsensusChainHeadGetResponse_StatusNOT_READYData.Sawtooth.Consensus
ConsensusChainHeadGetResponse_StatusNO_CHAIN_HEADData.Sawtooth.Consensus
ConsensusChainHeadGetResponse_StatusOKData.Sawtooth.Consensus
ConsensusChainHeadGetResponse_StatusSERVICE_ERRORData.Sawtooth.Consensus
ConsensusChainHeadGetResponse_StatusSTATUS_UNSETData.Sawtooth.Consensus
ConsensusCheckBlocksRequest 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusCheckBlocksRequestBlockIdsData.Sawtooth.Consensus
ConsensusCheckBlocksResponse 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusCheckBlocksResponseStatusData.Sawtooth.Consensus
ConsensusCheckBlocksResponse_StatusData.Sawtooth.Consensus
ConsensusCheckBlocksResponse_StatusBAD_REQUESTData.Sawtooth.Consensus
ConsensusCheckBlocksResponse_StatusNOT_ACTIVE_ENGINEData.Sawtooth.Consensus
ConsensusCheckBlocksResponse_StatusNOT_READYData.Sawtooth.Consensus
ConsensusCheckBlocksResponse_StatusOKData.Sawtooth.Consensus
ConsensusCheckBlocksResponse_StatusSERVICE_ERRORData.Sawtooth.Consensus
ConsensusCheckBlocksResponse_StatusSTATUS_UNSETData.Sawtooth.Consensus
ConsensusCheckBlocksResponse_StatusUNKNOWN_BLOCKData.Sawtooth.Consensus
ConsensusCommitBlockRequest 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusCommitBlockRequestBlockIdData.Sawtooth.Consensus
ConsensusCommitBlockResponse 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusCommitBlockResponseStatusData.Sawtooth.Consensus
ConsensusCommitBlockResponse_StatusData.Sawtooth.Consensus
ConsensusCommitBlockResponse_StatusBAD_REQUESTData.Sawtooth.Consensus
ConsensusCommitBlockResponse_StatusNOT_ACTIVE_ENGINEData.Sawtooth.Consensus
ConsensusCommitBlockResponse_StatusNOT_READYData.Sawtooth.Consensus
ConsensusCommitBlockResponse_StatusOKData.Sawtooth.Consensus
ConsensusCommitBlockResponse_StatusSERVICE_ERRORData.Sawtooth.Consensus
ConsensusCommitBlockResponse_StatusSTATUS_UNSETData.Sawtooth.Consensus
ConsensusCommitBlockResponse_StatusUNKNOWN_BLOCKData.Sawtooth.Consensus
ConsensusFailBlockRequest 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusFailBlockRequestBlockIdData.Sawtooth.Consensus
ConsensusFailBlockResponse 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusFailBlockResponseStatusData.Sawtooth.Consensus
ConsensusFailBlockResponse_StatusData.Sawtooth.Consensus
ConsensusFailBlockResponse_StatusBAD_REQUESTData.Sawtooth.Consensus
ConsensusFailBlockResponse_StatusNOT_ACTIVE_ENGINEData.Sawtooth.Consensus
ConsensusFailBlockResponse_StatusNOT_READYData.Sawtooth.Consensus
ConsensusFailBlockResponse_StatusOKData.Sawtooth.Consensus
ConsensusFailBlockResponse_StatusSERVICE_ERRORData.Sawtooth.Consensus
ConsensusFailBlockResponse_StatusSTATUS_UNSETData.Sawtooth.Consensus
ConsensusFailBlockResponse_StatusUNKNOWN_BLOCKData.Sawtooth.Consensus
ConsensusFinalizeBlockRequest 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusFinalizeBlockRequestDataData.Sawtooth.Consensus
ConsensusFinalizeBlockResponse 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusFinalizeBlockResponseBlockIdData.Sawtooth.Consensus
consensusFinalizeBlockResponseStatusData.Sawtooth.Consensus
ConsensusFinalizeBlockResponse_StatusData.Sawtooth.Consensus
ConsensusFinalizeBlockResponse_StatusBAD_REQUESTData.Sawtooth.Consensus
ConsensusFinalizeBlockResponse_StatusBLOCK_NOT_READYData.Sawtooth.Consensus
ConsensusFinalizeBlockResponse_StatusINVALID_STATEData.Sawtooth.Consensus
ConsensusFinalizeBlockResponse_StatusNOT_ACTIVE_ENGINEData.Sawtooth.Consensus
ConsensusFinalizeBlockResponse_StatusNOT_READYData.Sawtooth.Consensus
ConsensusFinalizeBlockResponse_StatusOKData.Sawtooth.Consensus
ConsensusFinalizeBlockResponse_StatusSERVICE_ERRORData.Sawtooth.Consensus
ConsensusFinalizeBlockResponse_StatusSTATUS_UNSETData.Sawtooth.Consensus
ConsensusIgnoreBlockRequest 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusIgnoreBlockRequestBlockIdData.Sawtooth.Consensus
ConsensusIgnoreBlockResponse 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusIgnoreBlockResponseStatusData.Sawtooth.Consensus
ConsensusIgnoreBlockResponse_StatusData.Sawtooth.Consensus
ConsensusIgnoreBlockResponse_StatusBAD_REQUESTData.Sawtooth.Consensus
ConsensusIgnoreBlockResponse_StatusNOT_ACTIVE_ENGINEData.Sawtooth.Consensus
ConsensusIgnoreBlockResponse_StatusNOT_READYData.Sawtooth.Consensus
ConsensusIgnoreBlockResponse_StatusOKData.Sawtooth.Consensus
ConsensusIgnoreBlockResponse_StatusSERVICE_ERRORData.Sawtooth.Consensus
ConsensusIgnoreBlockResponse_StatusSTATUS_UNSETData.Sawtooth.Consensus
ConsensusIgnoreBlockResponse_StatusUNKNOWN_BLOCKData.Sawtooth.Consensus
ConsensusInitializeBlockRequest 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusInitializeBlockRequestPreviousIdData.Sawtooth.Consensus
ConsensusInitializeBlockResponse 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusInitializeBlockResponseStatusData.Sawtooth.Consensus
ConsensusInitializeBlockResponse_StatusData.Sawtooth.Consensus
ConsensusInitializeBlockResponse_StatusBAD_REQUESTData.Sawtooth.Consensus
ConsensusInitializeBlockResponse_StatusINVALID_STATEData.Sawtooth.Consensus
ConsensusInitializeBlockResponse_StatusNOT_ACTIVE_ENGINEData.Sawtooth.Consensus
ConsensusInitializeBlockResponse_StatusNOT_READYData.Sawtooth.Consensus
ConsensusInitializeBlockResponse_StatusOKData.Sawtooth.Consensus
ConsensusInitializeBlockResponse_StatusSERVICE_ERRORData.Sawtooth.Consensus
ConsensusInitializeBlockResponse_StatusSTATUS_UNSETData.Sawtooth.Consensus
ConsensusInitializeBlockResponse_StatusUNKNOWN_BLOCKData.Sawtooth.Consensus
ConsensusNotifyAck 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
ConsensusNotifyBlockCommit 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusNotifyBlockCommitBlockIdData.Sawtooth.Consensus
ConsensusNotifyBlockInvalid 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusNotifyBlockInvalidBlockIdData.Sawtooth.Consensus
ConsensusNotifyBlockNew 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusNotifyBlockNewBlockData.Sawtooth.Consensus
ConsensusNotifyBlockValid 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusNotifyBlockValidBlockIdData.Sawtooth.Consensus
ConsensusNotifyEngineActivated 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusNotifyEngineActivatedChainHeadData.Sawtooth.Consensus
consensusNotifyEngineActivatedLocalPeerInfoData.Sawtooth.Consensus
consensusNotifyEngineActivatedPeersData.Sawtooth.Consensus
ConsensusNotifyEngineDeactivated 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
ConsensusNotifyPeerConnected 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusNotifyPeerConnectedPeerInfoData.Sawtooth.Consensus
ConsensusNotifyPeerDisconnected 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusNotifyPeerDisconnectedPeerIdData.Sawtooth.Consensus
ConsensusNotifyPeerMessage 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusNotifyPeerMessageMessageData.Sawtooth.Consensus
consensusNotifyPeerMessageSenderIdData.Sawtooth.Consensus
ConsensusPeerInfo 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusPeerInfoPeerIdData.Sawtooth.Consensus
ConsensusPeerMessage 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusPeerMessageContentData.Sawtooth.Consensus
ConsensusPeerMessageHeader 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusPeerMessageHeaderData.Sawtooth.Consensus
consensusPeerMessageHeaderContentSha512Data.Sawtooth.Consensus
consensusPeerMessageHeaderMessageTypeData.Sawtooth.Consensus
consensusPeerMessageHeaderNameData.Sawtooth.Consensus
consensusPeerMessageHeaderSignatureData.Sawtooth.Consensus
consensusPeerMessageHeaderSignerIdData.Sawtooth.Consensus
consensusPeerMessageHeaderVersionData.Sawtooth.Consensus
ConsensusRegisterRequest 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusRegisterRequestAdditionalProtocolsData.Sawtooth.Consensus
consensusRegisterRequestNameData.Sawtooth.Consensus
consensusRegisterRequestVersionData.Sawtooth.Consensus
ConsensusRegisterRequest_Protocol 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusRegisterRequest_ProtocolNameData.Sawtooth.Consensus
consensusRegisterRequest_ProtocolVersionData.Sawtooth.Consensus
ConsensusRegisterResponse 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusRegisterResponseChainHeadData.Sawtooth.Consensus
consensusRegisterResponseLocalPeerInfoData.Sawtooth.Consensus
consensusRegisterResponsePeersData.Sawtooth.Consensus
consensusRegisterResponseStatusData.Sawtooth.Consensus
ConsensusRegisterResponse_StatusData.Sawtooth.Consensus
ConsensusRegisterResponse_StatusBAD_REQUESTData.Sawtooth.Consensus
ConsensusRegisterResponse_StatusNOT_READYData.Sawtooth.Consensus
ConsensusRegisterResponse_StatusOKData.Sawtooth.Consensus
ConsensusRegisterResponse_StatusSERVICE_ERRORData.Sawtooth.Consensus
ConsensusRegisterResponse_StatusSTATUS_UNSETData.Sawtooth.Consensus
ConsensusSendToRequest 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusSendToRequestContentData.Sawtooth.Consensus
consensusSendToRequestMessageTypeData.Sawtooth.Consensus
consensusSendToRequestReceiverIdData.Sawtooth.Consensus
ConsensusSendToResponse 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusSendToResponseStatusData.Sawtooth.Consensus
ConsensusSendToResponse_StatusData.Sawtooth.Consensus
ConsensusSendToResponse_StatusBAD_REQUESTData.Sawtooth.Consensus
ConsensusSendToResponse_StatusNOT_ACTIVE_ENGINEData.Sawtooth.Consensus
ConsensusSendToResponse_StatusNOT_READYData.Sawtooth.Consensus
ConsensusSendToResponse_StatusOKData.Sawtooth.Consensus
ConsensusSendToResponse_StatusSERVICE_ERRORData.Sawtooth.Consensus
ConsensusSendToResponse_StatusSTATUS_UNSETData.Sawtooth.Consensus
ConsensusSendToResponse_StatusUNKNOWN_PEERData.Sawtooth.Consensus
ConsensusSettingsEntry 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusSettingsEntryKeyData.Sawtooth.Consensus
consensusSettingsEntryValueData.Sawtooth.Consensus
ConsensusSettingsGetRequest 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusSettingsGetRequestBlockIdData.Sawtooth.Consensus
consensusSettingsGetRequestKeysData.Sawtooth.Consensus
ConsensusSettingsGetResponse 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusSettingsGetResponseEntriesData.Sawtooth.Consensus
consensusSettingsGetResponseStatusData.Sawtooth.Consensus
ConsensusSettingsGetResponse_StatusData.Sawtooth.Consensus
ConsensusSettingsGetResponse_StatusBAD_REQUESTData.Sawtooth.Consensus
ConsensusSettingsGetResponse_StatusNOT_ACTIVE_ENGINEData.Sawtooth.Consensus
ConsensusSettingsGetResponse_StatusNOT_READYData.Sawtooth.Consensus
ConsensusSettingsGetResponse_StatusOKData.Sawtooth.Consensus
ConsensusSettingsGetResponse_StatusSERVICE_ERRORData.Sawtooth.Consensus
ConsensusSettingsGetResponse_StatusSTATUS_UNSETData.Sawtooth.Consensus
ConsensusSettingsGetResponse_StatusUNKNOWN_BLOCKData.Sawtooth.Consensus
ConsensusStateEntry 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusStateEntryAddressData.Sawtooth.Consensus
consensusStateEntryDataData.Sawtooth.Consensus
ConsensusStateGetRequest 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusStateGetRequestAddressesData.Sawtooth.Consensus
consensusStateGetRequestBlockIdData.Sawtooth.Consensus
ConsensusStateGetResponse 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusStateGetResponseEntriesData.Sawtooth.Consensus
consensusStateGetResponseStatusData.Sawtooth.Consensus
ConsensusStateGetResponse_StatusData.Sawtooth.Consensus
ConsensusStateGetResponse_StatusBAD_REQUESTData.Sawtooth.Consensus
ConsensusStateGetResponse_StatusNOT_ACTIVE_ENGINEData.Sawtooth.Consensus
ConsensusStateGetResponse_StatusNOT_READYData.Sawtooth.Consensus
ConsensusStateGetResponse_StatusOKData.Sawtooth.Consensus
ConsensusStateGetResponse_StatusSERVICE_ERRORData.Sawtooth.Consensus
ConsensusStateGetResponse_StatusSTATUS_UNSETData.Sawtooth.Consensus
ConsensusStateGetResponse_StatusUNKNOWN_BLOCKData.Sawtooth.Consensus
ConsensusSummarizeBlockRequest 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
ConsensusSummarizeBlockResponse 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusSummarizeBlockResponseStatusData.Sawtooth.Consensus
consensusSummarizeBlockResponseSummaryData.Sawtooth.Consensus
ConsensusSummarizeBlockResponse_StatusData.Sawtooth.Consensus
ConsensusSummarizeBlockResponse_StatusBAD_REQUESTData.Sawtooth.Consensus
ConsensusSummarizeBlockResponse_StatusBLOCK_NOT_READYData.Sawtooth.Consensus
ConsensusSummarizeBlockResponse_StatusINVALID_STATEData.Sawtooth.Consensus
ConsensusSummarizeBlockResponse_StatusNOT_ACTIVE_ENGINEData.Sawtooth.Consensus
ConsensusSummarizeBlockResponse_StatusNOT_READYData.Sawtooth.Consensus
ConsensusSummarizeBlockResponse_StatusOKData.Sawtooth.Consensus
ConsensusSummarizeBlockResponse_StatusSERVICE_ERRORData.Sawtooth.Consensus
ConsensusSummarizeBlockResponse_StatusSTATUS_UNSETData.Sawtooth.Consensus
DisconnectMessage 
1 (Type/Class)Data.Sawtooth.Network
2 (Data Constructor)Data.Sawtooth.Network
Event 
1 (Type/Class)Data.Sawtooth.Events
2 (Data Constructor)Data.Sawtooth.Events
eventAttributesData.Sawtooth.Events
eventDataData.Sawtooth.Events
eventEventTypeData.Sawtooth.Events
EventFilter 
1 (Type/Class)Data.Sawtooth.Events
2 (Data Constructor)Data.Sawtooth.Events
eventFilterFilterTypeData.Sawtooth.Events
eventFilterKeyData.Sawtooth.Events
eventFilterMatchStringData.Sawtooth.Events
EventFilter_FilterTypeData.Sawtooth.Events
EventFilter_FilterTypeFILTER_TYPE_UNSETData.Sawtooth.Events
EventFilter_FilterTypeREGEX_ALLData.Sawtooth.Events
EventFilter_FilterTypeREGEX_ANYData.Sawtooth.Events
EventFilter_FilterTypeSIMPLE_ALLData.Sawtooth.Events
EventFilter_FilterTypeSIMPLE_ANYData.Sawtooth.Events
EventList 
1 (Type/Class)Data.Sawtooth.Events
2 (Data Constructor)Data.Sawtooth.Events
eventListEventsData.Sawtooth.Events
EventSubscription 
1 (Type/Class)Data.Sawtooth.Events
2 (Data Constructor)Data.Sawtooth.Events
eventSubscriptionEventTypeData.Sawtooth.Events
eventSubscriptionFiltersData.Sawtooth.Events
Event_Attribute 
1 (Type/Class)Data.Sawtooth.Events
2 (Data Constructor)Data.Sawtooth.Events
event_AttributeKeyData.Sawtooth.Events
event_AttributeValueData.Sawtooth.Events
GenesisData 
1 (Type/Class)Data.Sawtooth.Genesis
2 (Data Constructor)Data.Sawtooth.Genesis
genesisDataBatchesData.Sawtooth.Genesis
GetPeersRequest 
1 (Type/Class)Data.Sawtooth.Network
2 (Data Constructor)Data.Sawtooth.Network
GetPeersResponse 
1 (Type/Class)Data.Sawtooth.Network
2 (Data Constructor)Data.Sawtooth.Network
getPeersResponsePeerEndpointsData.Sawtooth.Network
GossipBatchByBatchIdRequest 
1 (Type/Class)Data.Sawtooth.Network
2 (Data Constructor)Data.Sawtooth.Network
gossipBatchByBatchIdRequestIdData.Sawtooth.Network
gossipBatchByBatchIdRequestNonceData.Sawtooth.Network
gossipBatchByBatchIdRequestTimeToLiveData.Sawtooth.Network
GossipBatchByTransactionIdRequest 
1 (Type/Class)Data.Sawtooth.Network
2 (Data Constructor)Data.Sawtooth.Network
gossipBatchByTransactionIdRequestIdsData.Sawtooth.Network
gossipBatchByTransactionIdRequestNonceData.Sawtooth.Network
gossipBatchByTransactionIdRequestTimeToLiveData.Sawtooth.Network
GossipBatchResponse 
1 (Type/Class)Data.Sawtooth.Network
2 (Data Constructor)Data.Sawtooth.Network
gossipBatchResponseContentData.Sawtooth.Network
GossipBlockRequest 
1 (Type/Class)Data.Sawtooth.Network
2 (Data Constructor)Data.Sawtooth.Network
gossipBlockRequestBlockIdData.Sawtooth.Network
gossipBlockRequestNonceData.Sawtooth.Network
gossipBlockRequestTimeToLiveData.Sawtooth.Network
GossipBlockResponse 
1 (Type/Class)Data.Sawtooth.Network
2 (Data Constructor)Data.Sawtooth.Network
gossipBlockResponseContentData.Sawtooth.Network
GossipMessage 
1 (Type/Class)Data.Sawtooth.Network
2 (Data Constructor)Data.Sawtooth.Network
gossipMessageContentData.Sawtooth.Network
gossipMessageContentTypeData.Sawtooth.Network
gossipMessageTimeToLiveData.Sawtooth.Network
GossipMessage_ContentTypeData.Sawtooth.Network
GossipMessage_ContentTypeBATCHData.Sawtooth.Network
GossipMessage_ContentTypeBLOCKData.Sawtooth.Network
GossipMessage_ContentTypeCONSENSUSData.Sawtooth.Network
GossipMessage_ContentTypeCONTENT_TYPE_UNSETData.Sawtooth.Network
Message 
1 (Type/Class)Data.Sawtooth.Validator
2 (Data Constructor)Data.Sawtooth.Validator
messageContentData.Sawtooth.Validator
messageCorrelationIdData.Sawtooth.Validator
MessageList 
1 (Type/Class)Data.Sawtooth.Validator
2 (Data Constructor)Data.Sawtooth.Validator
messageListMessagesData.Sawtooth.Validator
messageMessageTypeData.Sawtooth.Validator
Message_MessageTypeData.Sawtooth.Validator
Message_MessageTypeAUTHORIZATION_CHALLENGE_REQUESTData.Sawtooth.Validator
Message_MessageTypeAUTHORIZATION_CHALLENGE_RESPONSEData.Sawtooth.Validator
Message_MessageTypeAUTHORIZATION_CHALLENGE_RESULTData.Sawtooth.Validator
Message_MessageTypeAUTHORIZATION_CHALLENGE_SUBMITData.Sawtooth.Validator
Message_MessageTypeAUTHORIZATION_CONNECTION_RESPONSEData.Sawtooth.Validator
Message_MessageTypeAUTHORIZATION_TRUST_REQUESTData.Sawtooth.Validator
Message_MessageTypeAUTHORIZATION_TRUST_RESPONSEData.Sawtooth.Validator
Message_MessageTypeAUTHORIZATION_VIOLATIONData.Sawtooth.Validator
Message_MessageTypeCLIENT_BATCH_GET_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_BATCH_GET_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCLIENT_BATCH_LIST_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_BATCH_LIST_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCLIENT_BATCH_STATUS_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_BATCH_STATUS_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCLIENT_BATCH_SUBMIT_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_BATCH_SUBMIT_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCLIENT_BLOCK_GET_BY_BATCH_ID_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_BLOCK_GET_BY_ID_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_BLOCK_GET_BY_NUM_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_BLOCK_GET_BY_TRANSACTION_ID_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_BLOCK_GET_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCLIENT_BLOCK_LIST_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_BLOCK_LIST_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCLIENT_EVENTSData.Sawtooth.Validator
Message_MessageTypeCLIENT_EVENTS_GET_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_EVENTS_GET_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCLIENT_EVENTS_SUBSCRIBE_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_EVENTS_SUBSCRIBE_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCLIENT_EVENTS_UNSUBSCRIBE_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_EVENTS_UNSUBSCRIBE_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCLIENT_PEERS_GET_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_PEERS_GET_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCLIENT_RECEIPT_GET_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_RECEIPT_GET_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCLIENT_STATE_CURRENT_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_STATE_CURRENT_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCLIENT_STATE_GET_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_STATE_GET_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCLIENT_STATE_LIST_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_STATE_LIST_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCLIENT_STATUS_GET_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_STATUS_GET_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCLIENT_TRANSACTION_GET_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_TRANSACTION_GET_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCLIENT_TRANSACTION_LIST_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_TRANSACTION_LIST_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_BLOCKS_GET_REQUESTData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_BLOCKS_GET_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_BROADCAST_REQUESTData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_BROADCAST_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_CANCEL_BLOCK_REQUESTData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_CANCEL_BLOCK_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_CHAIN_HEAD_GET_REQUESTData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_CHAIN_HEAD_GET_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_CHECK_BLOCKS_REQUESTData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_CHECK_BLOCKS_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_COMMIT_BLOCK_REQUESTData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_COMMIT_BLOCK_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_FAIL_BLOCK_REQUESTData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_FAIL_BLOCK_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_FINALIZE_BLOCK_REQUESTData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_FINALIZE_BLOCK_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_IGNORE_BLOCK_REQUESTData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_IGNORE_BLOCK_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_INITIALIZE_BLOCK_REQUESTData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_INITIALIZE_BLOCK_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_NOTIFY_ACKData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_NOTIFY_BLOCK_COMMITData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_NOTIFY_BLOCK_INVALIDData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_NOTIFY_BLOCK_NEWData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_NOTIFY_BLOCK_VALIDData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_NOTIFY_ENGINE_ACTIVATEDData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_NOTIFY_ENGINE_DEACTIVATEDData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_NOTIFY_PEER_CONNECTEDData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_NOTIFY_PEER_DISCONNECTEDData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_NOTIFY_PEER_MESSAGEData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_REGISTER_REQUESTData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_REGISTER_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_SEND_TO_REQUESTData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_SEND_TO_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_SETTINGS_GET_REQUESTData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_SETTINGS_GET_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_STATE_GET_REQUESTData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_STATE_GET_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_SUMMARIZE_BLOCK_REQUESTData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_SUMMARIZE_BLOCK_RESPONSEData.Sawtooth.Validator
Message_MessageTypeDEFAULTData.Sawtooth.Validator
Message_MessageTypeGOSSIP_BATCH_BY_BATCH_ID_REQUESTData.Sawtooth.Validator
Message_MessageTypeGOSSIP_BATCH_BY_TRANSACTION_ID_REQUESTData.Sawtooth.Validator
Message_MessageTypeGOSSIP_BATCH_RESPONSEData.Sawtooth.Validator
Message_MessageTypeGOSSIP_BLOCK_REQUESTData.Sawtooth.Validator
Message_MessageTypeGOSSIP_BLOCK_RESPONSEData.Sawtooth.Validator
Message_MessageTypeGOSSIP_CONSENSUS_MESSAGEData.Sawtooth.Validator
Message_MessageTypeGOSSIP_GET_PEERS_REQUESTData.Sawtooth.Validator
Message_MessageTypeGOSSIP_GET_PEERS_RESPONSEData.Sawtooth.Validator
Message_MessageTypeGOSSIP_MESSAGEData.Sawtooth.Validator
Message_MessageTypeGOSSIP_REGISTERData.Sawtooth.Validator
Message_MessageTypeGOSSIP_UNREGISTERData.Sawtooth.Validator
Message_MessageTypeNETWORK_ACKData.Sawtooth.Validator
Message_MessageTypeNETWORK_CONNECTData.Sawtooth.Validator
Message_MessageTypeNETWORK_DISCONNECTData.Sawtooth.Validator
Message_MessageTypePING_REQUESTData.Sawtooth.Validator
Message_MessageTypePING_RESPONSEData.Sawtooth.Validator
Message_MessageTypeTP_EVENT_ADD_REQUESTData.Sawtooth.Validator
Message_MessageTypeTP_EVENT_ADD_RESPONSEData.Sawtooth.Validator
Message_MessageTypeTP_PROCESS_REQUESTData.Sawtooth.Validator
Message_MessageTypeTP_PROCESS_RESPONSEData.Sawtooth.Validator
Message_MessageTypeTP_RECEIPT_ADD_DATA_REQUESTData.Sawtooth.Validator
Message_MessageTypeTP_RECEIPT_ADD_DATA_RESPONSEData.Sawtooth.Validator
Message_MessageTypeTP_REGISTER_REQUESTData.Sawtooth.Validator
Message_MessageTypeTP_REGISTER_RESPONSEData.Sawtooth.Validator
Message_MessageTypeTP_STATE_DELETE_REQUESTData.Sawtooth.Validator
Message_MessageTypeTP_STATE_DELETE_RESPONSEData.Sawtooth.Validator
Message_MessageTypeTP_STATE_GET_REQUESTData.Sawtooth.Validator
Message_MessageTypeTP_STATE_GET_RESPONSEData.Sawtooth.Validator
Message_MessageTypeTP_STATE_SET_REQUESTData.Sawtooth.Validator
Message_MessageTypeTP_STATE_SET_RESPONSEData.Sawtooth.Validator
Message_MessageTypeTP_UNREGISTER_REQUESTData.Sawtooth.Validator
Message_MessageTypeTP_UNREGISTER_RESPONSEData.Sawtooth.Validator
NetworkAcknowledgement 
1 (Type/Class)Data.Sawtooth.Network
2 (Data Constructor)Data.Sawtooth.Network
networkAcknowledgementStatusData.Sawtooth.Network
NetworkAcknowledgement_StatusData.Sawtooth.Network
NetworkAcknowledgement_StatusERRORData.Sawtooth.Network
NetworkAcknowledgement_StatusOKData.Sawtooth.Network
NetworkAcknowledgement_StatusSTATUS_UNSETData.Sawtooth.Network
PeerRegisterRequest 
1 (Type/Class)Data.Sawtooth.Network
2 (Data Constructor)Data.Sawtooth.Network
peerRegisterRequestEndpointData.Sawtooth.Network
peerRegisterRequestProtocolVersionData.Sawtooth.Network
PeerUnregisterRequest 
1 (Type/Class)Data.Sawtooth.Network
2 (Data Constructor)Data.Sawtooth.Network
PingRequest 
1 (Type/Class)Data.Sawtooth.Network
2 (Data Constructor)Data.Sawtooth.Network
PingResponse 
1 (Type/Class)Data.Sawtooth.Network
2 (Data Constructor)Data.Sawtooth.Network
Policy 
1 (Type/Class)Data.Sawtooth.Identity
2 (Data Constructor)Data.Sawtooth.Identity
policyEntriesData.Sawtooth.Identity
PolicyList 
1 (Type/Class)Data.Sawtooth.Identity
2 (Data Constructor)Data.Sawtooth.Identity
policyListPoliciesData.Sawtooth.Identity
policyNameData.Sawtooth.Identity
Policy_Entry 
1 (Type/Class)Data.Sawtooth.Identity
2 (Data Constructor)Data.Sawtooth.Identity
policy_EntryKeyData.Sawtooth.Identity
Policy_EntryTypeData.Sawtooth.Identity
policy_EntryTypeData.Sawtooth.Identity
Policy_EntryTypeDENY_KEYData.Sawtooth.Identity
Policy_EntryTypeENTRY_TYPE_UNSETData.Sawtooth.Identity
Policy_EntryTypePERMIT_KEYData.Sawtooth.Identity
Role 
1 (Type/Class)Data.Sawtooth.Identity
2 (Data Constructor)Data.Sawtooth.Identity
RoleList 
1 (Type/Class)Data.Sawtooth.Identity
2 (Data Constructor)Data.Sawtooth.Identity
roleListRolesData.Sawtooth.Identity
roleNameData.Sawtooth.Identity
rolePolicyNameData.Sawtooth.Identity
RoleTypeData.Sawtooth.Authorization
RoleTypeALLData.Sawtooth.Authorization
RoleTypeNETWORKData.Sawtooth.Authorization
RoleTypeROLE_TYPE_UNSETData.Sawtooth.Authorization
Setting 
1 (Type/Class)Data.Sawtooth.Setting
2 (Data Constructor)Data.Sawtooth.Setting
settingEntriesData.Sawtooth.Setting
Setting_Entry 
1 (Type/Class)Data.Sawtooth.Setting
2 (Data Constructor)Data.Sawtooth.Setting
setting_EntryKeyData.Sawtooth.Setting
setting_EntryValueData.Sawtooth.Setting
StateChange 
1 (Type/Class)Data.Sawtooth.TransactionReceipt
2 (Data Constructor)Data.Sawtooth.TransactionReceipt
stateChangeAddressData.Sawtooth.TransactionReceipt
StateChangeList 
1 (Type/Class)Data.Sawtooth.TransactionReceipt
2 (Data Constructor)Data.Sawtooth.TransactionReceipt
stateChangeListStateChangesData.Sawtooth.TransactionReceipt
stateChangeTypeData.Sawtooth.TransactionReceipt
stateChangeValueData.Sawtooth.TransactionReceipt
StateChange_TypeData.Sawtooth.TransactionReceipt
StateChange_TypeDELETEData.Sawtooth.TransactionReceipt
StateChange_TypeSETData.Sawtooth.TransactionReceipt
StateChange_TypeTYPE_UNSETData.Sawtooth.TransactionReceipt
TpEventAddRequest 
1 (Type/Class)Data.Sawtooth.StateContext
2 (Data Constructor)Data.Sawtooth.StateContext
tpEventAddRequestContextIdData.Sawtooth.StateContext
tpEventAddRequestEventData.Sawtooth.StateContext
TpEventAddResponse 
1 (Type/Class)Data.Sawtooth.StateContext
2 (Data Constructor)Data.Sawtooth.StateContext
tpEventAddResponseStatusData.Sawtooth.StateContext
TpEventAddResponse_StatusData.Sawtooth.StateContext
TpEventAddResponse_StatusERRORData.Sawtooth.StateContext
TpEventAddResponse_StatusOKData.Sawtooth.StateContext
TpEventAddResponse_StatusSTATUS_UNSETData.Sawtooth.StateContext
TpProcessRequest 
1 (Type/Class)Data.Sawtooth.Processor
2 (Data Constructor)Data.Sawtooth.Processor
tpProcessRequestContextIdData.Sawtooth.Processor
tpProcessRequestHeaderData.Sawtooth.Processor
tpProcessRequestHeaderBytesData.Sawtooth.Processor
tpProcessRequestPayloadData.Sawtooth.Processor
tpProcessRequestSignatureData.Sawtooth.Processor
TpProcessResponse 
1 (Type/Class)Data.Sawtooth.Processor
2 (Data Constructor)Data.Sawtooth.Processor
tpProcessResponseExtendedDataData.Sawtooth.Processor
tpProcessResponseMessageData.Sawtooth.Processor
tpProcessResponseStatusData.Sawtooth.Processor
TpProcessResponse_StatusData.Sawtooth.Processor
TpProcessResponse_StatusINTERNAL_ERRORData.Sawtooth.Processor
TpProcessResponse_StatusINVALID_TRANSACTIONData.Sawtooth.Processor
TpProcessResponse_StatusOKData.Sawtooth.Processor
TpProcessResponse_StatusSTATUS_UNSETData.Sawtooth.Processor
TpReceiptAddDataRequest 
1 (Type/Class)Data.Sawtooth.StateContext
2 (Data Constructor)Data.Sawtooth.StateContext
tpReceiptAddDataRequestContextIdData.Sawtooth.StateContext
tpReceiptAddDataRequestDataData.Sawtooth.StateContext
TpReceiptAddDataResponse 
1 (Type/Class)Data.Sawtooth.StateContext
2 (Data Constructor)Data.Sawtooth.StateContext
tpReceiptAddDataResponseStatusData.Sawtooth.StateContext
TpReceiptAddDataResponse_StatusData.Sawtooth.StateContext
TpReceiptAddDataResponse_StatusERRORData.Sawtooth.StateContext
TpReceiptAddDataResponse_StatusOKData.Sawtooth.StateContext
TpReceiptAddDataResponse_StatusSTATUS_UNSETData.Sawtooth.StateContext
TpRegisterRequest 
1 (Type/Class)Data.Sawtooth.Processor
2 (Data Constructor)Data.Sawtooth.Processor
tpRegisterRequestFamilyData.Sawtooth.Processor
tpRegisterRequestMaxOccupancyData.Sawtooth.Processor
tpRegisterRequestNamespacesData.Sawtooth.Processor
tpRegisterRequestProtocolVersionData.Sawtooth.Processor
tpRegisterRequestRequestHeaderStyleData.Sawtooth.Processor
tpRegisterRequestVersionData.Sawtooth.Processor
TpRegisterRequest_TpProcessRequestHeaderStyleData.Sawtooth.Processor
TpRegisterRequest_TpProcessRequestHeaderStyleEXPANDEDData.Sawtooth.Processor
TpRegisterRequest_TpProcessRequestHeaderStyleHEADER_STYLE_UNSETData.Sawtooth.Processor
TpRegisterRequest_TpProcessRequestHeaderStyleRAWData.Sawtooth.Processor
TpRegisterResponse 
1 (Type/Class)Data.Sawtooth.Processor
2 (Data Constructor)Data.Sawtooth.Processor
tpRegisterResponseProtocolVersionData.Sawtooth.Processor
tpRegisterResponseStatusData.Sawtooth.Processor
TpRegisterResponse_StatusData.Sawtooth.Processor
TpRegisterResponse_StatusERRORData.Sawtooth.Processor
TpRegisterResponse_StatusOKData.Sawtooth.Processor
TpRegisterResponse_StatusSTATUS_UNSETData.Sawtooth.Processor
TpStateDeleteRequest 
1 (Type/Class)Data.Sawtooth.StateContext
2 (Data Constructor)Data.Sawtooth.StateContext
tpStateDeleteRequestAddressesData.Sawtooth.StateContext
tpStateDeleteRequestContextIdData.Sawtooth.StateContext
TpStateDeleteResponse 
1 (Type/Class)Data.Sawtooth.StateContext
2 (Data Constructor)Data.Sawtooth.StateContext
tpStateDeleteResponseAddressesData.Sawtooth.StateContext
tpStateDeleteResponseStatusData.Sawtooth.StateContext
TpStateDeleteResponse_StatusData.Sawtooth.StateContext
TpStateDeleteResponse_StatusAUTHORIZATION_ERRORData.Sawtooth.StateContext
TpStateDeleteResponse_StatusOKData.Sawtooth.StateContext
TpStateDeleteResponse_StatusSTATUS_UNSETData.Sawtooth.StateContext
TpStateEntry 
1 (Type/Class)Data.Sawtooth.StateContext
2 (Data Constructor)Data.Sawtooth.StateContext
tpStateEntryAddressData.Sawtooth.StateContext
tpStateEntryDataData.Sawtooth.StateContext
TpStateGetRequest 
1 (Type/Class)Data.Sawtooth.StateContext
2 (Data Constructor)Data.Sawtooth.StateContext
tpStateGetRequestAddressesData.Sawtooth.StateContext
tpStateGetRequestContextIdData.Sawtooth.StateContext
TpStateGetResponse 
1 (Type/Class)Data.Sawtooth.StateContext
2 (Data Constructor)Data.Sawtooth.StateContext
tpStateGetResponseEntriesData.Sawtooth.StateContext
tpStateGetResponseStatusData.Sawtooth.StateContext
TpStateGetResponse_StatusData.Sawtooth.StateContext
TpStateGetResponse_StatusAUTHORIZATION_ERRORData.Sawtooth.StateContext
TpStateGetResponse_StatusOKData.Sawtooth.StateContext
TpStateGetResponse_StatusSTATUS_UNSETData.Sawtooth.StateContext
TpStateSetRequest 
1 (Type/Class)Data.Sawtooth.StateContext
2 (Data Constructor)Data.Sawtooth.StateContext
tpStateSetRequestContextIdData.Sawtooth.StateContext
tpStateSetRequestEntriesData.Sawtooth.StateContext
TpStateSetResponse 
1 (Type/Class)Data.Sawtooth.StateContext
2 (Data Constructor)Data.Sawtooth.StateContext
tpStateSetResponseAddressesData.Sawtooth.StateContext
tpStateSetResponseStatusData.Sawtooth.StateContext
TpStateSetResponse_StatusData.Sawtooth.StateContext
TpStateSetResponse_StatusAUTHORIZATION_ERRORData.Sawtooth.StateContext
TpStateSetResponse_StatusOKData.Sawtooth.StateContext
TpStateSetResponse_StatusSTATUS_UNSETData.Sawtooth.StateContext
TpUnregisterRequest 
1 (Type/Class)Data.Sawtooth.Processor
2 (Data Constructor)Data.Sawtooth.Processor
TpUnregisterResponse 
1 (Type/Class)Data.Sawtooth.Processor
2 (Data Constructor)Data.Sawtooth.Processor
tpUnregisterResponseStatusData.Sawtooth.Processor
TpUnregisterResponse_StatusData.Sawtooth.Processor
TpUnregisterResponse_StatusERRORData.Sawtooth.Processor
TpUnregisterResponse_StatusOKData.Sawtooth.Processor
TpUnregisterResponse_StatusSTATUS_UNSETData.Sawtooth.Processor
Transaction 
1 (Type/Class)Data.Sawtooth.Transaction
2 (Data Constructor)Data.Sawtooth.Transaction
TransactionHeader 
1 (Type/Class)Data.Sawtooth.Transaction
2 (Data Constructor)Data.Sawtooth.Transaction
transactionHeaderData.Sawtooth.Transaction
transactionHeaderBatcherPublicKeyData.Sawtooth.Transaction
transactionHeaderDependenciesData.Sawtooth.Transaction
transactionHeaderFamilyNameData.Sawtooth.Transaction
transactionHeaderFamilyVersionData.Sawtooth.Transaction
transactionHeaderInputsData.Sawtooth.Transaction
transactionHeaderNonceData.Sawtooth.Transaction
transactionHeaderOutputsData.Sawtooth.Transaction
transactionHeaderPayloadSha512Data.Sawtooth.Transaction
transactionHeaderSignatureData.Sawtooth.Transaction
transactionHeaderSignerPublicKeyData.Sawtooth.Transaction
TransactionList 
1 (Type/Class)Data.Sawtooth.Transaction
2 (Data Constructor)Data.Sawtooth.Transaction
transactionListTransactionsData.Sawtooth.Transaction
transactionPayloadData.Sawtooth.Transaction
TransactionReceipt 
1 (Type/Class)Data.Sawtooth.TransactionReceipt
2 (Data Constructor)Data.Sawtooth.TransactionReceipt
transactionReceiptDataData.Sawtooth.TransactionReceipt
transactionReceiptEventsData.Sawtooth.TransactionReceipt
transactionReceiptStateChangesData.Sawtooth.TransactionReceipt
transactionReceiptTransactionIdData.Sawtooth.TransactionReceipt
\ No newline at end of file +sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types (Index)
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types

Index

AuthorizationChallengeRequest 
1 (Type/Class)Data.Sawtooth.Authorization
2 (Data Constructor)Data.Sawtooth.Authorization
AuthorizationChallengeResponse 
1 (Type/Class)Data.Sawtooth.Authorization
2 (Data Constructor)Data.Sawtooth.Authorization
authorizationChallengeResponsePayloadData.Sawtooth.Authorization
AuthorizationChallengeResult 
1 (Type/Class)Data.Sawtooth.Authorization
2 (Data Constructor)Data.Sawtooth.Authorization
authorizationChallengeResultRolesData.Sawtooth.Authorization
AuthorizationChallengeSubmit 
1 (Type/Class)Data.Sawtooth.Authorization
2 (Data Constructor)Data.Sawtooth.Authorization
authorizationChallengeSubmitPublicKeyData.Sawtooth.Authorization
authorizationChallengeSubmitRolesData.Sawtooth.Authorization
authorizationChallengeSubmitSignatureData.Sawtooth.Authorization
AuthorizationTrustRequest 
1 (Type/Class)Data.Sawtooth.Authorization
2 (Data Constructor)Data.Sawtooth.Authorization
authorizationTrustRequestPublicKeyData.Sawtooth.Authorization
authorizationTrustRequestRolesData.Sawtooth.Authorization
AuthorizationTrustResponse 
1 (Type/Class)Data.Sawtooth.Authorization
2 (Data Constructor)Data.Sawtooth.Authorization
authorizationTrustResponseRolesData.Sawtooth.Authorization
AuthorizationViolation 
1 (Type/Class)Data.Sawtooth.Authorization
2 (Data Constructor)Data.Sawtooth.Authorization
authorizationViolationViolationData.Sawtooth.Authorization
Batch 
1 (Type/Class)Data.Sawtooth.Batch
2 (Data Constructor)Data.Sawtooth.Batch
BatchHeader 
1 (Type/Class)Data.Sawtooth.Batch
2 (Data Constructor)Data.Sawtooth.Batch
batchHeaderData.Sawtooth.Batch
batchHeaderSignatureData.Sawtooth.Batch
batchHeaderSignerPublicKeyData.Sawtooth.Batch
batchHeaderTransactionIdsData.Sawtooth.Batch
BatchList 
1 (Type/Class)Data.Sawtooth.Batch
2 (Data Constructor)Data.Sawtooth.Batch
batchListBatchesData.Sawtooth.Batch
batchTraceData.Sawtooth.Batch
batchTransactionsData.Sawtooth.Batch
Block 
1 (Type/Class)Data.Sawtooth.Block
2 (Data Constructor)Data.Sawtooth.Block
blockBatchesData.Sawtooth.Block
BlockHeader 
1 (Type/Class)Data.Sawtooth.Block
2 (Data Constructor)Data.Sawtooth.Block
blockHeaderData.Sawtooth.Block
blockHeaderBatchIdsData.Sawtooth.Block
blockHeaderBlockNumData.Sawtooth.Block
blockHeaderConsensusData.Sawtooth.Block
blockHeaderPreviousBlockIdData.Sawtooth.Block
blockHeaderSignatureData.Sawtooth.Block
blockHeaderSignerPublicKeyData.Sawtooth.Block
blockHeaderStateRootHashData.Sawtooth.Block
BlockInfo 
1 (Type/Class)Data.Sawtooth.BlockInfo
2 (Data Constructor)Data.Sawtooth.BlockInfo
blockInfoBlockNumData.Sawtooth.BlockInfo
BlockInfoConfig 
1 (Type/Class)Data.Sawtooth.BlockInfo
2 (Data Constructor)Data.Sawtooth.BlockInfo
blockInfoConfigLatestBlockData.Sawtooth.BlockInfo
blockInfoConfigOldestBlockData.Sawtooth.BlockInfo
blockInfoConfigSyncToleranceData.Sawtooth.BlockInfo
blockInfoConfigTargetCountData.Sawtooth.BlockInfo
blockInfoHeaderSignatureData.Sawtooth.BlockInfo
blockInfoPreviousBlockIdData.Sawtooth.BlockInfo
blockInfoSignerPublicKeyData.Sawtooth.BlockInfo
blockInfoTimestampData.Sawtooth.BlockInfo
BlockInfoTxn 
1 (Type/Class)Data.Sawtooth.BlockInfo
2 (Data Constructor)Data.Sawtooth.BlockInfo
blockInfoTxnBlockData.Sawtooth.BlockInfo
blockInfoTxnSyncToleranceData.Sawtooth.BlockInfo
blockInfoTxnTargetCountData.Sawtooth.BlockInfo
ChangeLogEntry 
1 (Type/Class)Data.Sawtooth.Merkle
2 (Data Constructor)Data.Sawtooth.Merkle
changeLogEntryAdditionsData.Sawtooth.Merkle
changeLogEntryParentData.Sawtooth.Merkle
changeLogEntrySuccessorsData.Sawtooth.Merkle
ChangeLogEntry_Successor 
1 (Type/Class)Data.Sawtooth.Merkle
2 (Data Constructor)Data.Sawtooth.Merkle
changeLogEntry_SuccessorDeletionsData.Sawtooth.Merkle
changeLogEntry_SuccessorSuccessorData.Sawtooth.Merkle
ClientBatchGetRequest 
1 (Type/Class)Data.Sawtooth.ClientBatch
2 (Data Constructor)Data.Sawtooth.ClientBatch
clientBatchGetRequestBatchIdData.Sawtooth.ClientBatch
ClientBatchGetResponse 
1 (Type/Class)Data.Sawtooth.ClientBatch
2 (Data Constructor)Data.Sawtooth.ClientBatch
clientBatchGetResponseBatchData.Sawtooth.ClientBatch
clientBatchGetResponseStatusData.Sawtooth.ClientBatch
ClientBatchGetResponse_StatusData.Sawtooth.ClientBatch
ClientBatchGetResponse_StatusINTERNAL_ERRORData.Sawtooth.ClientBatch
ClientBatchGetResponse_StatusINVALID_IDData.Sawtooth.ClientBatch
ClientBatchGetResponse_StatusNO_RESOURCEData.Sawtooth.ClientBatch
ClientBatchGetResponse_StatusOKData.Sawtooth.ClientBatch
ClientBatchGetResponse_StatusSTATUS_UNSETData.Sawtooth.ClientBatch
ClientBatchListRequest 
1 (Type/Class)Data.Sawtooth.ClientBatch
2 (Data Constructor)Data.Sawtooth.ClientBatch
clientBatchListRequestBatchIdsData.Sawtooth.ClientBatch
clientBatchListRequestHeadIdData.Sawtooth.ClientBatch
clientBatchListRequestPagingData.Sawtooth.ClientBatch
clientBatchListRequestSortingData.Sawtooth.ClientBatch
ClientBatchListResponse 
1 (Type/Class)Data.Sawtooth.ClientBatch
2 (Data Constructor)Data.Sawtooth.ClientBatch
clientBatchListResponseBatchesData.Sawtooth.ClientBatch
clientBatchListResponseHeadIdData.Sawtooth.ClientBatch
clientBatchListResponsePagingData.Sawtooth.ClientBatch
clientBatchListResponseStatusData.Sawtooth.ClientBatch
ClientBatchListResponse_StatusData.Sawtooth.ClientBatch
ClientBatchListResponse_StatusINTERNAL_ERRORData.Sawtooth.ClientBatch
ClientBatchListResponse_StatusINVALID_IDData.Sawtooth.ClientBatch
ClientBatchListResponse_StatusINVALID_PAGINGData.Sawtooth.ClientBatch
ClientBatchListResponse_StatusINVALID_SORTData.Sawtooth.ClientBatch
ClientBatchListResponse_StatusNOT_READYData.Sawtooth.ClientBatch
ClientBatchListResponse_StatusNO_RESOURCEData.Sawtooth.ClientBatch
ClientBatchListResponse_StatusNO_ROOTData.Sawtooth.ClientBatch
ClientBatchListResponse_StatusOKData.Sawtooth.ClientBatch
ClientBatchListResponse_StatusSTATUS_UNSETData.Sawtooth.ClientBatch
ClientBatchStatus 
1 (Type/Class)Data.Sawtooth.ClientBatchSubmit
2 (Data Constructor)Data.Sawtooth.ClientBatchSubmit
clientBatchStatusBatchIdData.Sawtooth.ClientBatchSubmit
clientBatchStatusInvalidTransactionsData.Sawtooth.ClientBatchSubmit
ClientBatchStatusRequest 
1 (Type/Class)Data.Sawtooth.ClientBatchSubmit
2 (Data Constructor)Data.Sawtooth.ClientBatchSubmit
clientBatchStatusRequestBatchIdsData.Sawtooth.ClientBatchSubmit
clientBatchStatusRequestTimeoutData.Sawtooth.ClientBatchSubmit
clientBatchStatusRequestWaitData.Sawtooth.ClientBatchSubmit
ClientBatchStatusResponse 
1 (Type/Class)Data.Sawtooth.ClientBatchSubmit
2 (Data Constructor)Data.Sawtooth.ClientBatchSubmit
clientBatchStatusResponseBatchStatusesData.Sawtooth.ClientBatchSubmit
clientBatchStatusResponseStatusData.Sawtooth.ClientBatchSubmit
ClientBatchStatusResponse_StatusData.Sawtooth.ClientBatchSubmit
ClientBatchStatusResponse_StatusINTERNAL_ERRORData.Sawtooth.ClientBatchSubmit
ClientBatchStatusResponse_StatusINVALID_IDData.Sawtooth.ClientBatchSubmit
ClientBatchStatusResponse_StatusNO_RESOURCEData.Sawtooth.ClientBatchSubmit
ClientBatchStatusResponse_StatusOKData.Sawtooth.ClientBatchSubmit
ClientBatchStatusResponse_StatusSTATUS_UNSETData.Sawtooth.ClientBatchSubmit
clientBatchStatusStatusData.Sawtooth.ClientBatchSubmit
ClientBatchStatus_InvalidTransaction 
1 (Type/Class)Data.Sawtooth.ClientBatchSubmit
2 (Data Constructor)Data.Sawtooth.ClientBatchSubmit
clientBatchStatus_InvalidTransactionExtendedDataData.Sawtooth.ClientBatchSubmit
clientBatchStatus_InvalidTransactionMessageData.Sawtooth.ClientBatchSubmit
clientBatchStatus_InvalidTransactionTransactionIdData.Sawtooth.ClientBatchSubmit
ClientBatchStatus_StatusData.Sawtooth.ClientBatchSubmit
ClientBatchStatus_StatusCOMMITTEDData.Sawtooth.ClientBatchSubmit
ClientBatchStatus_StatusINVALIDData.Sawtooth.ClientBatchSubmit
ClientBatchStatus_StatusPENDINGData.Sawtooth.ClientBatchSubmit
ClientBatchStatus_StatusSTATUS_UNSETData.Sawtooth.ClientBatchSubmit
ClientBatchStatus_StatusUNKNOWNData.Sawtooth.ClientBatchSubmit
ClientBatchSubmitRequest 
1 (Type/Class)Data.Sawtooth.ClientBatchSubmit
2 (Data Constructor)Data.Sawtooth.ClientBatchSubmit
clientBatchSubmitRequestBatchesData.Sawtooth.ClientBatchSubmit
ClientBatchSubmitResponse 
1 (Type/Class)Data.Sawtooth.ClientBatchSubmit
2 (Data Constructor)Data.Sawtooth.ClientBatchSubmit
clientBatchSubmitResponseStatusData.Sawtooth.ClientBatchSubmit
ClientBatchSubmitResponse_StatusData.Sawtooth.ClientBatchSubmit
ClientBatchSubmitResponse_StatusINTERNAL_ERRORData.Sawtooth.ClientBatchSubmit
ClientBatchSubmitResponse_StatusINVALID_BATCHData.Sawtooth.ClientBatchSubmit
ClientBatchSubmitResponse_StatusOKData.Sawtooth.ClientBatchSubmit
ClientBatchSubmitResponse_StatusQUEUE_FULLData.Sawtooth.ClientBatchSubmit
ClientBatchSubmitResponse_StatusSTATUS_UNSETData.Sawtooth.ClientBatchSubmit
ClientBlockGetByBatchIdRequest 
1 (Type/Class)Data.Sawtooth.ClientBlock
2 (Data Constructor)Data.Sawtooth.ClientBlock
clientBlockGetByBatchIdRequestBatchIdData.Sawtooth.ClientBlock
ClientBlockGetByIdRequest 
1 (Type/Class)Data.Sawtooth.ClientBlock
2 (Data Constructor)Data.Sawtooth.ClientBlock
clientBlockGetByIdRequestBlockIdData.Sawtooth.ClientBlock
ClientBlockGetByNumRequest 
1 (Type/Class)Data.Sawtooth.ClientBlock
2 (Data Constructor)Data.Sawtooth.ClientBlock
clientBlockGetByNumRequestBlockNumData.Sawtooth.ClientBlock
ClientBlockGetByTransactionIdRequest 
1 (Type/Class)Data.Sawtooth.ClientBlock
2 (Data Constructor)Data.Sawtooth.ClientBlock
clientBlockGetByTransactionIdRequestTransactionIdData.Sawtooth.ClientBlock
ClientBlockGetResponse 
1 (Type/Class)Data.Sawtooth.ClientBlock
2 (Data Constructor)Data.Sawtooth.ClientBlock
clientBlockGetResponseBlockData.Sawtooth.ClientBlock
clientBlockGetResponseStatusData.Sawtooth.ClientBlock
ClientBlockGetResponse_StatusData.Sawtooth.ClientBlock
ClientBlockGetResponse_StatusINTERNAL_ERRORData.Sawtooth.ClientBlock
ClientBlockGetResponse_StatusINVALID_IDData.Sawtooth.ClientBlock
ClientBlockGetResponse_StatusNO_RESOURCEData.Sawtooth.ClientBlock
ClientBlockGetResponse_StatusOKData.Sawtooth.ClientBlock
ClientBlockGetResponse_StatusSTATUS_UNSETData.Sawtooth.ClientBlock
ClientBlockListRequest 
1 (Type/Class)Data.Sawtooth.ClientBlock
2 (Data Constructor)Data.Sawtooth.ClientBlock
clientBlockListRequestBlockIdsData.Sawtooth.ClientBlock
clientBlockListRequestHeadIdData.Sawtooth.ClientBlock
clientBlockListRequestPagingData.Sawtooth.ClientBlock
clientBlockListRequestSortingData.Sawtooth.ClientBlock
ClientBlockListResponse 
1 (Type/Class)Data.Sawtooth.ClientBlock
2 (Data Constructor)Data.Sawtooth.ClientBlock
clientBlockListResponseBlocksData.Sawtooth.ClientBlock
clientBlockListResponseHeadIdData.Sawtooth.ClientBlock
clientBlockListResponsePagingData.Sawtooth.ClientBlock
clientBlockListResponseStatusData.Sawtooth.ClientBlock
ClientBlockListResponse_StatusData.Sawtooth.ClientBlock
ClientBlockListResponse_StatusINTERNAL_ERRORData.Sawtooth.ClientBlock
ClientBlockListResponse_StatusINVALID_IDData.Sawtooth.ClientBlock
ClientBlockListResponse_StatusINVALID_PAGINGData.Sawtooth.ClientBlock
ClientBlockListResponse_StatusINVALID_SORTData.Sawtooth.ClientBlock
ClientBlockListResponse_StatusNOT_READYData.Sawtooth.ClientBlock
ClientBlockListResponse_StatusNO_RESOURCEData.Sawtooth.ClientBlock
ClientBlockListResponse_StatusNO_ROOTData.Sawtooth.ClientBlock
ClientBlockListResponse_StatusOKData.Sawtooth.ClientBlock
ClientBlockListResponse_StatusSTATUS_UNSETData.Sawtooth.ClientBlock
ClientEventsGetRequest 
1 (Type/Class)Data.Sawtooth.ClientEvent
2 (Data Constructor)Data.Sawtooth.ClientEvent
clientEventsGetRequestBlockIdsData.Sawtooth.ClientEvent
clientEventsGetRequestSubscriptionsData.Sawtooth.ClientEvent
ClientEventsGetResponse 
1 (Type/Class)Data.Sawtooth.ClientEvent
2 (Data Constructor)Data.Sawtooth.ClientEvent
clientEventsGetResponseEventsData.Sawtooth.ClientEvent
clientEventsGetResponseStatusData.Sawtooth.ClientEvent
ClientEventsGetResponse_StatusData.Sawtooth.ClientEvent
ClientEventsGetResponse_StatusINTERNAL_ERRORData.Sawtooth.ClientEvent
ClientEventsGetResponse_StatusINVALID_FILTERData.Sawtooth.ClientEvent
ClientEventsGetResponse_StatusOKData.Sawtooth.ClientEvent
ClientEventsGetResponse_StatusSTATUS_UNSETData.Sawtooth.ClientEvent
ClientEventsGetResponse_StatusUNKNOWN_BLOCKData.Sawtooth.ClientEvent
ClientEventsSubscribeRequest 
1 (Type/Class)Data.Sawtooth.ClientEvent
2 (Data Constructor)Data.Sawtooth.ClientEvent
clientEventsSubscribeRequestLastKnownBlockIdsData.Sawtooth.ClientEvent
clientEventsSubscribeRequestSubscriptionsData.Sawtooth.ClientEvent
ClientEventsSubscribeResponse 
1 (Type/Class)Data.Sawtooth.ClientEvent
2 (Data Constructor)Data.Sawtooth.ClientEvent
clientEventsSubscribeResponseResponseMessageData.Sawtooth.ClientEvent
clientEventsSubscribeResponseStatusData.Sawtooth.ClientEvent
ClientEventsSubscribeResponse_StatusData.Sawtooth.ClientEvent
ClientEventsSubscribeResponse_StatusINVALID_FILTERData.Sawtooth.ClientEvent
ClientEventsSubscribeResponse_StatusOKData.Sawtooth.ClientEvent
ClientEventsSubscribeResponse_StatusSTATUS_UNSETData.Sawtooth.ClientEvent
ClientEventsSubscribeResponse_StatusUNKNOWN_BLOCKData.Sawtooth.ClientEvent
ClientEventsUnsubscribeRequest 
1 (Type/Class)Data.Sawtooth.ClientEvent
2 (Data Constructor)Data.Sawtooth.ClientEvent
ClientEventsUnsubscribeResponse 
1 (Type/Class)Data.Sawtooth.ClientEvent
2 (Data Constructor)Data.Sawtooth.ClientEvent
clientEventsUnsubscribeResponseStatusData.Sawtooth.ClientEvent
ClientEventsUnsubscribeResponse_StatusData.Sawtooth.ClientEvent
ClientEventsUnsubscribeResponse_StatusINTERNAL_ERRORData.Sawtooth.ClientEvent
ClientEventsUnsubscribeResponse_StatusOKData.Sawtooth.ClientEvent
ClientEventsUnsubscribeResponse_StatusSTATUS_UNSETData.Sawtooth.ClientEvent
ClientPagingControls 
1 (Type/Class)Data.Sawtooth.ClientListControl
2 (Data Constructor)Data.Sawtooth.ClientListControl
clientPagingControlsLimitData.Sawtooth.ClientListControl
clientPagingControlsStartData.Sawtooth.ClientListControl
ClientPagingResponse 
1 (Type/Class)Data.Sawtooth.ClientListControl
2 (Data Constructor)Data.Sawtooth.ClientListControl
clientPagingResponseLimitData.Sawtooth.ClientListControl
clientPagingResponseNextData.Sawtooth.ClientListControl
clientPagingResponseStartData.Sawtooth.ClientListControl
ClientPeersGetRequest 
1 (Type/Class)Data.Sawtooth.ClientPeers
2 (Data Constructor)Data.Sawtooth.ClientPeers
ClientPeersGetResponse 
1 (Type/Class)Data.Sawtooth.ClientPeers
2 (Data Constructor)Data.Sawtooth.ClientPeers
clientPeersGetResponsePeersData.Sawtooth.ClientPeers
clientPeersGetResponseStatusData.Sawtooth.ClientPeers
ClientPeersGetResponse_StatusData.Sawtooth.ClientPeers
ClientPeersGetResponse_StatusERRORData.Sawtooth.ClientPeers
ClientPeersGetResponse_StatusOKData.Sawtooth.ClientPeers
ClientPeersGetResponse_StatusSTATUS_UNSETData.Sawtooth.ClientPeers
ClientReceiptGetRequest 
1 (Type/Class)Data.Sawtooth.ClientReceipt
2 (Data Constructor)Data.Sawtooth.ClientReceipt
clientReceiptGetRequestTransactionIdsData.Sawtooth.ClientReceipt
ClientReceiptGetResponse 
1 (Type/Class)Data.Sawtooth.ClientReceipt
2 (Data Constructor)Data.Sawtooth.ClientReceipt
clientReceiptGetResponseReceiptsData.Sawtooth.ClientReceipt
clientReceiptGetResponseStatusData.Sawtooth.ClientReceipt
ClientReceiptGetResponse_StatusData.Sawtooth.ClientReceipt
ClientReceiptGetResponse_StatusINTERNAL_ERRORData.Sawtooth.ClientReceipt
ClientReceiptGetResponse_StatusINVALID_IDData.Sawtooth.ClientReceipt
ClientReceiptGetResponse_StatusNO_RESOURCEData.Sawtooth.ClientReceipt
ClientReceiptGetResponse_StatusOKData.Sawtooth.ClientReceipt
ClientReceiptGetResponse_StatusSTATUS_UNSETData.Sawtooth.ClientReceipt
ClientSortControls 
1 (Type/Class)Data.Sawtooth.ClientListControl
2 (Data Constructor)Data.Sawtooth.ClientListControl
clientSortControlsKeysData.Sawtooth.ClientListControl
clientSortControlsReverseData.Sawtooth.ClientListControl
ClientStateGetRequest 
1 (Type/Class)Data.Sawtooth.ClientState
2 (Data Constructor)Data.Sawtooth.ClientState
clientStateGetRequestAddressData.Sawtooth.ClientState
clientStateGetRequestStateRootData.Sawtooth.ClientState
ClientStateGetResponse 
1 (Type/Class)Data.Sawtooth.ClientState
2 (Data Constructor)Data.Sawtooth.ClientState
clientStateGetResponseStateRootData.Sawtooth.ClientState
clientStateGetResponseStatusData.Sawtooth.ClientState
clientStateGetResponseValueData.Sawtooth.ClientState
ClientStateGetResponse_StatusData.Sawtooth.ClientState
ClientStateGetResponse_StatusINTERNAL_ERRORData.Sawtooth.ClientState
ClientStateGetResponse_StatusINVALID_ADDRESSData.Sawtooth.ClientState
ClientStateGetResponse_StatusINVALID_ROOTData.Sawtooth.ClientState
ClientStateGetResponse_StatusNOT_READYData.Sawtooth.ClientState
ClientStateGetResponse_StatusNO_RESOURCEData.Sawtooth.ClientState
ClientStateGetResponse_StatusNO_ROOTData.Sawtooth.ClientState
ClientStateGetResponse_StatusOKData.Sawtooth.ClientState
ClientStateGetResponse_StatusSTATUS_UNSETData.Sawtooth.ClientState
ClientStateListRequest 
1 (Type/Class)Data.Sawtooth.ClientState
2 (Data Constructor)Data.Sawtooth.ClientState
clientStateListRequestAddressData.Sawtooth.ClientState
clientStateListRequestPagingData.Sawtooth.ClientState
clientStateListRequestSortingData.Sawtooth.ClientState
clientStateListRequestStateRootData.Sawtooth.ClientState
ClientStateListResponse 
1 (Type/Class)Data.Sawtooth.ClientState
2 (Data Constructor)Data.Sawtooth.ClientState
clientStateListResponseEntriesData.Sawtooth.ClientState
clientStateListResponsePagingData.Sawtooth.ClientState
clientStateListResponseStateRootData.Sawtooth.ClientState
clientStateListResponseStatusData.Sawtooth.ClientState
ClientStateListResponse_Entry 
1 (Type/Class)Data.Sawtooth.ClientState
2 (Data Constructor)Data.Sawtooth.ClientState
clientStateListResponse_EntryAddressData.Sawtooth.ClientState
clientStateListResponse_EntryDataData.Sawtooth.ClientState
ClientStateListResponse_StatusData.Sawtooth.ClientState
ClientStateListResponse_StatusINTERNAL_ERRORData.Sawtooth.ClientState
ClientStateListResponse_StatusINVALID_ADDRESSData.Sawtooth.ClientState
ClientStateListResponse_StatusINVALID_PAGINGData.Sawtooth.ClientState
ClientStateListResponse_StatusINVALID_ROOTData.Sawtooth.ClientState
ClientStateListResponse_StatusINVALID_SORTData.Sawtooth.ClientState
ClientStateListResponse_StatusNOT_READYData.Sawtooth.ClientState
ClientStateListResponse_StatusNO_RESOURCEData.Sawtooth.ClientState
ClientStateListResponse_StatusNO_ROOTData.Sawtooth.ClientState
ClientStateListResponse_StatusOKData.Sawtooth.ClientState
ClientStateListResponse_StatusSTATUS_UNSETData.Sawtooth.ClientState
ClientStatusGetRequest 
1 (Type/Class)Data.Sawtooth.ClientStatus
2 (Data Constructor)Data.Sawtooth.ClientStatus
ClientStatusGetResponse 
1 (Type/Class)Data.Sawtooth.ClientStatus
2 (Data Constructor)Data.Sawtooth.ClientStatus
clientStatusGetResponseEndpointData.Sawtooth.ClientStatus
clientStatusGetResponsePeersData.Sawtooth.ClientStatus
clientStatusGetResponseStatusData.Sawtooth.ClientStatus
ClientStatusGetResponse_Peer 
1 (Type/Class)Data.Sawtooth.ClientStatus
2 (Data Constructor)Data.Sawtooth.ClientStatus
clientStatusGetResponse_PeerEndpointData.Sawtooth.ClientStatus
ClientStatusGetResponse_StatusData.Sawtooth.ClientStatus
ClientStatusGetResponse_StatusERRORData.Sawtooth.ClientStatus
ClientStatusGetResponse_StatusOKData.Sawtooth.ClientStatus
ClientStatusGetResponse_StatusSTATUS_UNSETData.Sawtooth.ClientStatus
ClientTransactionGetRequest 
1 (Type/Class)Data.Sawtooth.ClientTransaction
2 (Data Constructor)Data.Sawtooth.ClientTransaction
clientTransactionGetRequestTransactionIdData.Sawtooth.ClientTransaction
ClientTransactionGetResponse 
1 (Type/Class)Data.Sawtooth.ClientTransaction
2 (Data Constructor)Data.Sawtooth.ClientTransaction
clientTransactionGetResponseStatusData.Sawtooth.ClientTransaction
clientTransactionGetResponseTransactionData.Sawtooth.ClientTransaction
ClientTransactionGetResponse_StatusData.Sawtooth.ClientTransaction
ClientTransactionGetResponse_StatusINTERNAL_ERRORData.Sawtooth.ClientTransaction
ClientTransactionGetResponse_StatusINVALID_IDData.Sawtooth.ClientTransaction
ClientTransactionGetResponse_StatusNO_RESOURCEData.Sawtooth.ClientTransaction
ClientTransactionGetResponse_StatusOKData.Sawtooth.ClientTransaction
ClientTransactionGetResponse_StatusSTATUS_UNSETData.Sawtooth.ClientTransaction
ClientTransactionListRequest 
1 (Type/Class)Data.Sawtooth.ClientTransaction
2 (Data Constructor)Data.Sawtooth.ClientTransaction
clientTransactionListRequestHeadIdData.Sawtooth.ClientTransaction
clientTransactionListRequestPagingData.Sawtooth.ClientTransaction
clientTransactionListRequestSortingData.Sawtooth.ClientTransaction
clientTransactionListRequestTransactionIdsData.Sawtooth.ClientTransaction
ClientTransactionListResponse 
1 (Type/Class)Data.Sawtooth.ClientTransaction
2 (Data Constructor)Data.Sawtooth.ClientTransaction
clientTransactionListResponseHeadIdData.Sawtooth.ClientTransaction
clientTransactionListResponsePagingData.Sawtooth.ClientTransaction
clientTransactionListResponseStatusData.Sawtooth.ClientTransaction
clientTransactionListResponseTransactionsData.Sawtooth.ClientTransaction
ClientTransactionListResponse_StatusData.Sawtooth.ClientTransaction
ClientTransactionListResponse_StatusINTERNAL_ERRORData.Sawtooth.ClientTransaction
ClientTransactionListResponse_StatusINVALID_IDData.Sawtooth.ClientTransaction
ClientTransactionListResponse_StatusINVALID_PAGINGData.Sawtooth.ClientTransaction
ClientTransactionListResponse_StatusINVALID_SORTData.Sawtooth.ClientTransaction
ClientTransactionListResponse_StatusNOT_READYData.Sawtooth.ClientTransaction
ClientTransactionListResponse_StatusNO_RESOURCEData.Sawtooth.ClientTransaction
ClientTransactionListResponse_StatusNO_ROOTData.Sawtooth.ClientTransaction
ClientTransactionListResponse_StatusOKData.Sawtooth.ClientTransaction
ClientTransactionListResponse_StatusSTATUS_UNSETData.Sawtooth.ClientTransaction
ConnectionRequest 
1 (Type/Class)Data.Sawtooth.Authorization
2 (Data Constructor)Data.Sawtooth.Authorization
connectionRequestEndpointData.Sawtooth.Authorization
ConnectionResponse 
1 (Type/Class)Data.Sawtooth.Authorization
2 (Data Constructor)Data.Sawtooth.Authorization
connectionResponseRolesData.Sawtooth.Authorization
connectionResponseStatusData.Sawtooth.Authorization
ConnectionResponse_AuthorizationTypeData.Sawtooth.Authorization
ConnectionResponse_AuthorizationTypeAUTHORIZATION_TYPE_UNSETData.Sawtooth.Authorization
ConnectionResponse_AuthorizationTypeCHALLENGEData.Sawtooth.Authorization
ConnectionResponse_AuthorizationTypeTRUSTData.Sawtooth.Authorization
ConnectionResponse_RoleEntry 
1 (Type/Class)Data.Sawtooth.Authorization
2 (Data Constructor)Data.Sawtooth.Authorization
connectionResponse_RoleEntryAuthTypeData.Sawtooth.Authorization
connectionResponse_RoleEntryRoleData.Sawtooth.Authorization
ConnectionResponse_StatusData.Sawtooth.Authorization
ConnectionResponse_StatusERRORData.Sawtooth.Authorization
ConnectionResponse_StatusOKData.Sawtooth.Authorization
ConnectionResponse_StatusSTATUS_UNSETData.Sawtooth.Authorization
ConsensusBlock 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusBlockBlockIdData.Sawtooth.Consensus
consensusBlockBlockNumData.Sawtooth.Consensus
consensusBlockPayloadData.Sawtooth.Consensus
consensusBlockPreviousIdData.Sawtooth.Consensus
ConsensusBlocksGetRequest 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusBlocksGetRequestBlockIdsData.Sawtooth.Consensus
ConsensusBlocksGetResponse 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusBlocksGetResponseBlocksData.Sawtooth.Consensus
consensusBlocksGetResponseStatusData.Sawtooth.Consensus
ConsensusBlocksGetResponse_StatusData.Sawtooth.Consensus
ConsensusBlocksGetResponse_StatusBAD_REQUESTData.Sawtooth.Consensus
ConsensusBlocksGetResponse_StatusNOT_ACTIVE_ENGINEData.Sawtooth.Consensus
ConsensusBlocksGetResponse_StatusNOT_READYData.Sawtooth.Consensus
ConsensusBlocksGetResponse_StatusOKData.Sawtooth.Consensus
ConsensusBlocksGetResponse_StatusSERVICE_ERRORData.Sawtooth.Consensus
ConsensusBlocksGetResponse_StatusSTATUS_UNSETData.Sawtooth.Consensus
ConsensusBlocksGetResponse_StatusUNKNOWN_BLOCKData.Sawtooth.Consensus
consensusBlockSignerIdData.Sawtooth.Consensus
consensusBlockSummaryData.Sawtooth.Consensus
ConsensusBroadcastRequest 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusBroadcastRequestContentData.Sawtooth.Consensus
consensusBroadcastRequestMessageTypeData.Sawtooth.Consensus
ConsensusBroadcastResponse 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusBroadcastResponseStatusData.Sawtooth.Consensus
ConsensusBroadcastResponse_StatusData.Sawtooth.Consensus
ConsensusBroadcastResponse_StatusBAD_REQUESTData.Sawtooth.Consensus
ConsensusBroadcastResponse_StatusNOT_ACTIVE_ENGINEData.Sawtooth.Consensus
ConsensusBroadcastResponse_StatusNOT_READYData.Sawtooth.Consensus
ConsensusBroadcastResponse_StatusOKData.Sawtooth.Consensus
ConsensusBroadcastResponse_StatusSERVICE_ERRORData.Sawtooth.Consensus
ConsensusBroadcastResponse_StatusSTATUS_UNSETData.Sawtooth.Consensus
ConsensusCancelBlockRequest 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
ConsensusCancelBlockResponse 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusCancelBlockResponseStatusData.Sawtooth.Consensus
ConsensusCancelBlockResponse_StatusData.Sawtooth.Consensus
ConsensusCancelBlockResponse_StatusBAD_REQUESTData.Sawtooth.Consensus
ConsensusCancelBlockResponse_StatusINVALID_STATEData.Sawtooth.Consensus
ConsensusCancelBlockResponse_StatusNOT_ACTIVE_ENGINEData.Sawtooth.Consensus
ConsensusCancelBlockResponse_StatusNOT_READYData.Sawtooth.Consensus
ConsensusCancelBlockResponse_StatusOKData.Sawtooth.Consensus
ConsensusCancelBlockResponse_StatusSERVICE_ERRORData.Sawtooth.Consensus
ConsensusCancelBlockResponse_StatusSTATUS_UNSETData.Sawtooth.Consensus
ConsensusChainHeadGetRequest 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
ConsensusChainHeadGetResponse 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusChainHeadGetResponseBlockData.Sawtooth.Consensus
consensusChainHeadGetResponseStatusData.Sawtooth.Consensus
ConsensusChainHeadGetResponse_StatusData.Sawtooth.Consensus
ConsensusChainHeadGetResponse_StatusBAD_REQUESTData.Sawtooth.Consensus
ConsensusChainHeadGetResponse_StatusNOT_ACTIVE_ENGINEData.Sawtooth.Consensus
ConsensusChainHeadGetResponse_StatusNOT_READYData.Sawtooth.Consensus
ConsensusChainHeadGetResponse_StatusNO_CHAIN_HEADData.Sawtooth.Consensus
ConsensusChainHeadGetResponse_StatusOKData.Sawtooth.Consensus
ConsensusChainHeadGetResponse_StatusSERVICE_ERRORData.Sawtooth.Consensus
ConsensusChainHeadGetResponse_StatusSTATUS_UNSETData.Sawtooth.Consensus
ConsensusCheckBlocksRequest 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusCheckBlocksRequestBlockIdsData.Sawtooth.Consensus
ConsensusCheckBlocksResponse 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusCheckBlocksResponseStatusData.Sawtooth.Consensus
ConsensusCheckBlocksResponse_StatusData.Sawtooth.Consensus
ConsensusCheckBlocksResponse_StatusBAD_REQUESTData.Sawtooth.Consensus
ConsensusCheckBlocksResponse_StatusNOT_ACTIVE_ENGINEData.Sawtooth.Consensus
ConsensusCheckBlocksResponse_StatusNOT_READYData.Sawtooth.Consensus
ConsensusCheckBlocksResponse_StatusOKData.Sawtooth.Consensus
ConsensusCheckBlocksResponse_StatusSERVICE_ERRORData.Sawtooth.Consensus
ConsensusCheckBlocksResponse_StatusSTATUS_UNSETData.Sawtooth.Consensus
ConsensusCheckBlocksResponse_StatusUNKNOWN_BLOCKData.Sawtooth.Consensus
ConsensusCommitBlockRequest 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusCommitBlockRequestBlockIdData.Sawtooth.Consensus
ConsensusCommitBlockResponse 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusCommitBlockResponseStatusData.Sawtooth.Consensus
ConsensusCommitBlockResponse_StatusData.Sawtooth.Consensus
ConsensusCommitBlockResponse_StatusBAD_REQUESTData.Sawtooth.Consensus
ConsensusCommitBlockResponse_StatusNOT_ACTIVE_ENGINEData.Sawtooth.Consensus
ConsensusCommitBlockResponse_StatusNOT_READYData.Sawtooth.Consensus
ConsensusCommitBlockResponse_StatusOKData.Sawtooth.Consensus
ConsensusCommitBlockResponse_StatusSERVICE_ERRORData.Sawtooth.Consensus
ConsensusCommitBlockResponse_StatusSTATUS_UNSETData.Sawtooth.Consensus
ConsensusCommitBlockResponse_StatusUNKNOWN_BLOCKData.Sawtooth.Consensus
ConsensusFailBlockRequest 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusFailBlockRequestBlockIdData.Sawtooth.Consensus
ConsensusFailBlockResponse 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusFailBlockResponseStatusData.Sawtooth.Consensus
ConsensusFailBlockResponse_StatusData.Sawtooth.Consensus
ConsensusFailBlockResponse_StatusBAD_REQUESTData.Sawtooth.Consensus
ConsensusFailBlockResponse_StatusNOT_ACTIVE_ENGINEData.Sawtooth.Consensus
ConsensusFailBlockResponse_StatusNOT_READYData.Sawtooth.Consensus
ConsensusFailBlockResponse_StatusOKData.Sawtooth.Consensus
ConsensusFailBlockResponse_StatusSERVICE_ERRORData.Sawtooth.Consensus
ConsensusFailBlockResponse_StatusSTATUS_UNSETData.Sawtooth.Consensus
ConsensusFailBlockResponse_StatusUNKNOWN_BLOCKData.Sawtooth.Consensus
ConsensusFinalizeBlockRequest 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusFinalizeBlockRequestDataData.Sawtooth.Consensus
ConsensusFinalizeBlockResponse 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusFinalizeBlockResponseBlockIdData.Sawtooth.Consensus
consensusFinalizeBlockResponseStatusData.Sawtooth.Consensus
ConsensusFinalizeBlockResponse_StatusData.Sawtooth.Consensus
ConsensusFinalizeBlockResponse_StatusBAD_REQUESTData.Sawtooth.Consensus
ConsensusFinalizeBlockResponse_StatusBLOCK_NOT_READYData.Sawtooth.Consensus
ConsensusFinalizeBlockResponse_StatusINVALID_STATEData.Sawtooth.Consensus
ConsensusFinalizeBlockResponse_StatusNOT_ACTIVE_ENGINEData.Sawtooth.Consensus
ConsensusFinalizeBlockResponse_StatusNOT_READYData.Sawtooth.Consensus
ConsensusFinalizeBlockResponse_StatusOKData.Sawtooth.Consensus
ConsensusFinalizeBlockResponse_StatusSERVICE_ERRORData.Sawtooth.Consensus
ConsensusFinalizeBlockResponse_StatusSTATUS_UNSETData.Sawtooth.Consensus
ConsensusIgnoreBlockRequest 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusIgnoreBlockRequestBlockIdData.Sawtooth.Consensus
ConsensusIgnoreBlockResponse 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusIgnoreBlockResponseStatusData.Sawtooth.Consensus
ConsensusIgnoreBlockResponse_StatusData.Sawtooth.Consensus
ConsensusIgnoreBlockResponse_StatusBAD_REQUESTData.Sawtooth.Consensus
ConsensusIgnoreBlockResponse_StatusNOT_ACTIVE_ENGINEData.Sawtooth.Consensus
ConsensusIgnoreBlockResponse_StatusNOT_READYData.Sawtooth.Consensus
ConsensusIgnoreBlockResponse_StatusOKData.Sawtooth.Consensus
ConsensusIgnoreBlockResponse_StatusSERVICE_ERRORData.Sawtooth.Consensus
ConsensusIgnoreBlockResponse_StatusSTATUS_UNSETData.Sawtooth.Consensus
ConsensusIgnoreBlockResponse_StatusUNKNOWN_BLOCKData.Sawtooth.Consensus
ConsensusInitializeBlockRequest 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusInitializeBlockRequestPreviousIdData.Sawtooth.Consensus
ConsensusInitializeBlockResponse 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusInitializeBlockResponseStatusData.Sawtooth.Consensus
ConsensusInitializeBlockResponse_StatusData.Sawtooth.Consensus
ConsensusInitializeBlockResponse_StatusBAD_REQUESTData.Sawtooth.Consensus
ConsensusInitializeBlockResponse_StatusINVALID_STATEData.Sawtooth.Consensus
ConsensusInitializeBlockResponse_StatusNOT_ACTIVE_ENGINEData.Sawtooth.Consensus
ConsensusInitializeBlockResponse_StatusNOT_READYData.Sawtooth.Consensus
ConsensusInitializeBlockResponse_StatusOKData.Sawtooth.Consensus
ConsensusInitializeBlockResponse_StatusSERVICE_ERRORData.Sawtooth.Consensus
ConsensusInitializeBlockResponse_StatusSTATUS_UNSETData.Sawtooth.Consensus
ConsensusInitializeBlockResponse_StatusUNKNOWN_BLOCKData.Sawtooth.Consensus
ConsensusNotifyAck 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
ConsensusNotifyBlockCommit 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusNotifyBlockCommitBlockIdData.Sawtooth.Consensus
ConsensusNotifyBlockInvalid 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusNotifyBlockInvalidBlockIdData.Sawtooth.Consensus
ConsensusNotifyBlockNew 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusNotifyBlockNewBlockData.Sawtooth.Consensus
ConsensusNotifyBlockValid 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusNotifyBlockValidBlockIdData.Sawtooth.Consensus
ConsensusNotifyEngineActivated 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusNotifyEngineActivatedChainHeadData.Sawtooth.Consensus
consensusNotifyEngineActivatedLocalPeerInfoData.Sawtooth.Consensus
consensusNotifyEngineActivatedPeersData.Sawtooth.Consensus
ConsensusNotifyEngineDeactivated 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
ConsensusNotifyPeerConnected 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusNotifyPeerConnectedPeerInfoData.Sawtooth.Consensus
ConsensusNotifyPeerDisconnected 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusNotifyPeerDisconnectedPeerIdData.Sawtooth.Consensus
ConsensusNotifyPeerMessage 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusNotifyPeerMessageMessageData.Sawtooth.Consensus
consensusNotifyPeerMessageSenderIdData.Sawtooth.Consensus
ConsensusPeerInfo 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusPeerInfoPeerIdData.Sawtooth.Consensus
ConsensusPeerMessage 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusPeerMessageContentData.Sawtooth.Consensus
ConsensusPeerMessageHeader 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusPeerMessageHeaderData.Sawtooth.Consensus
consensusPeerMessageHeaderContentSha512Data.Sawtooth.Consensus
consensusPeerMessageHeaderMessageTypeData.Sawtooth.Consensus
consensusPeerMessageHeaderNameData.Sawtooth.Consensus
consensusPeerMessageHeaderSignatureData.Sawtooth.Consensus
consensusPeerMessageHeaderSignerIdData.Sawtooth.Consensus
consensusPeerMessageHeaderVersionData.Sawtooth.Consensus
ConsensusRegisterRequest 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusRegisterRequestAdditionalProtocolsData.Sawtooth.Consensus
consensusRegisterRequestNameData.Sawtooth.Consensus
consensusRegisterRequestVersionData.Sawtooth.Consensus
ConsensusRegisterRequest_Protocol 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusRegisterRequest_ProtocolNameData.Sawtooth.Consensus
consensusRegisterRequest_ProtocolVersionData.Sawtooth.Consensus
ConsensusRegisterResponse 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusRegisterResponseChainHeadData.Sawtooth.Consensus
consensusRegisterResponseLocalPeerInfoData.Sawtooth.Consensus
consensusRegisterResponsePeersData.Sawtooth.Consensus
consensusRegisterResponseStatusData.Sawtooth.Consensus
ConsensusRegisterResponse_StatusData.Sawtooth.Consensus
ConsensusRegisterResponse_StatusBAD_REQUESTData.Sawtooth.Consensus
ConsensusRegisterResponse_StatusNOT_READYData.Sawtooth.Consensus
ConsensusRegisterResponse_StatusOKData.Sawtooth.Consensus
ConsensusRegisterResponse_StatusSERVICE_ERRORData.Sawtooth.Consensus
ConsensusRegisterResponse_StatusSTATUS_UNSETData.Sawtooth.Consensus
ConsensusSendToRequest 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusSendToRequestContentData.Sawtooth.Consensus
consensusSendToRequestMessageTypeData.Sawtooth.Consensus
consensusSendToRequestReceiverIdData.Sawtooth.Consensus
ConsensusSendToResponse 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusSendToResponseStatusData.Sawtooth.Consensus
ConsensusSendToResponse_StatusData.Sawtooth.Consensus
ConsensusSendToResponse_StatusBAD_REQUESTData.Sawtooth.Consensus
ConsensusSendToResponse_StatusNOT_ACTIVE_ENGINEData.Sawtooth.Consensus
ConsensusSendToResponse_StatusNOT_READYData.Sawtooth.Consensus
ConsensusSendToResponse_StatusOKData.Sawtooth.Consensus
ConsensusSendToResponse_StatusSERVICE_ERRORData.Sawtooth.Consensus
ConsensusSendToResponse_StatusSTATUS_UNSETData.Sawtooth.Consensus
ConsensusSendToResponse_StatusUNKNOWN_PEERData.Sawtooth.Consensus
ConsensusSettingsEntry 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusSettingsEntryKeyData.Sawtooth.Consensus
consensusSettingsEntryValueData.Sawtooth.Consensus
ConsensusSettingsGetRequest 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusSettingsGetRequestBlockIdData.Sawtooth.Consensus
consensusSettingsGetRequestKeysData.Sawtooth.Consensus
ConsensusSettingsGetResponse 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusSettingsGetResponseEntriesData.Sawtooth.Consensus
consensusSettingsGetResponseStatusData.Sawtooth.Consensus
ConsensusSettingsGetResponse_StatusData.Sawtooth.Consensus
ConsensusSettingsGetResponse_StatusBAD_REQUESTData.Sawtooth.Consensus
ConsensusSettingsGetResponse_StatusNOT_ACTIVE_ENGINEData.Sawtooth.Consensus
ConsensusSettingsGetResponse_StatusNOT_READYData.Sawtooth.Consensus
ConsensusSettingsGetResponse_StatusOKData.Sawtooth.Consensus
ConsensusSettingsGetResponse_StatusSERVICE_ERRORData.Sawtooth.Consensus
ConsensusSettingsGetResponse_StatusSTATUS_UNSETData.Sawtooth.Consensus
ConsensusSettingsGetResponse_StatusUNKNOWN_BLOCKData.Sawtooth.Consensus
ConsensusStateEntry 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusStateEntryAddressData.Sawtooth.Consensus
consensusStateEntryDataData.Sawtooth.Consensus
ConsensusStateGetRequest 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusStateGetRequestAddressesData.Sawtooth.Consensus
consensusStateGetRequestBlockIdData.Sawtooth.Consensus
ConsensusStateGetResponse 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusStateGetResponseEntriesData.Sawtooth.Consensus
consensusStateGetResponseStatusData.Sawtooth.Consensus
ConsensusStateGetResponse_StatusData.Sawtooth.Consensus
ConsensusStateGetResponse_StatusBAD_REQUESTData.Sawtooth.Consensus
ConsensusStateGetResponse_StatusNOT_ACTIVE_ENGINEData.Sawtooth.Consensus
ConsensusStateGetResponse_StatusNOT_READYData.Sawtooth.Consensus
ConsensusStateGetResponse_StatusOKData.Sawtooth.Consensus
ConsensusStateGetResponse_StatusSERVICE_ERRORData.Sawtooth.Consensus
ConsensusStateGetResponse_StatusSTATUS_UNSETData.Sawtooth.Consensus
ConsensusStateGetResponse_StatusUNKNOWN_BLOCKData.Sawtooth.Consensus
ConsensusSummarizeBlockRequest 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
ConsensusSummarizeBlockResponse 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusSummarizeBlockResponseStatusData.Sawtooth.Consensus
consensusSummarizeBlockResponseSummaryData.Sawtooth.Consensus
ConsensusSummarizeBlockResponse_StatusData.Sawtooth.Consensus
ConsensusSummarizeBlockResponse_StatusBAD_REQUESTData.Sawtooth.Consensus
ConsensusSummarizeBlockResponse_StatusBLOCK_NOT_READYData.Sawtooth.Consensus
ConsensusSummarizeBlockResponse_StatusINVALID_STATEData.Sawtooth.Consensus
ConsensusSummarizeBlockResponse_StatusNOT_ACTIVE_ENGINEData.Sawtooth.Consensus
ConsensusSummarizeBlockResponse_StatusNOT_READYData.Sawtooth.Consensus
ConsensusSummarizeBlockResponse_StatusOKData.Sawtooth.Consensus
ConsensusSummarizeBlockResponse_StatusSERVICE_ERRORData.Sawtooth.Consensus
ConsensusSummarizeBlockResponse_StatusSTATUS_UNSETData.Sawtooth.Consensus
DisconnectMessage 
1 (Type/Class)Data.Sawtooth.Network
2 (Data Constructor)Data.Sawtooth.Network
Event 
1 (Type/Class)Data.Sawtooth.Events
2 (Data Constructor)Data.Sawtooth.Events
eventAttributesData.Sawtooth.Events
eventDataData.Sawtooth.Events
eventEventTypeData.Sawtooth.Events
EventFilter 
1 (Type/Class)Data.Sawtooth.Events
2 (Data Constructor)Data.Sawtooth.Events
eventFilterFilterTypeData.Sawtooth.Events
eventFilterKeyData.Sawtooth.Events
eventFilterMatchStringData.Sawtooth.Events
EventFilter_FilterTypeData.Sawtooth.Events
EventFilter_FilterTypeFILTER_TYPE_UNSETData.Sawtooth.Events
EventFilter_FilterTypeREGEX_ALLData.Sawtooth.Events
EventFilter_FilterTypeREGEX_ANYData.Sawtooth.Events
EventFilter_FilterTypeSIMPLE_ALLData.Sawtooth.Events
EventFilter_FilterTypeSIMPLE_ANYData.Sawtooth.Events
EventList 
1 (Type/Class)Data.Sawtooth.Events
2 (Data Constructor)Data.Sawtooth.Events
eventListEventsData.Sawtooth.Events
EventSubscription 
1 (Type/Class)Data.Sawtooth.Events
2 (Data Constructor)Data.Sawtooth.Events
eventSubscriptionEventTypeData.Sawtooth.Events
eventSubscriptionFiltersData.Sawtooth.Events
Event_Attribute 
1 (Type/Class)Data.Sawtooth.Events
2 (Data Constructor)Data.Sawtooth.Events
event_AttributeKeyData.Sawtooth.Events
event_AttributeValueData.Sawtooth.Events
GenesisData 
1 (Type/Class)Data.Sawtooth.Genesis
2 (Data Constructor)Data.Sawtooth.Genesis
genesisDataBatchesData.Sawtooth.Genesis
GetPeersRequest 
1 (Type/Class)Data.Sawtooth.Network
2 (Data Constructor)Data.Sawtooth.Network
GetPeersResponse 
1 (Type/Class)Data.Sawtooth.Network
2 (Data Constructor)Data.Sawtooth.Network
getPeersResponsePeerEndpointsData.Sawtooth.Network
GossipBatchByBatchIdRequest 
1 (Type/Class)Data.Sawtooth.Network
2 (Data Constructor)Data.Sawtooth.Network
gossipBatchByBatchIdRequestIdData.Sawtooth.Network
gossipBatchByBatchIdRequestNonceData.Sawtooth.Network
gossipBatchByBatchIdRequestTimeToLiveData.Sawtooth.Network
GossipBatchByTransactionIdRequest 
1 (Type/Class)Data.Sawtooth.Network
2 (Data Constructor)Data.Sawtooth.Network
gossipBatchByTransactionIdRequestIdsData.Sawtooth.Network
gossipBatchByTransactionIdRequestNonceData.Sawtooth.Network
gossipBatchByTransactionIdRequestTimeToLiveData.Sawtooth.Network
GossipBatchResponse 
1 (Type/Class)Data.Sawtooth.Network
2 (Data Constructor)Data.Sawtooth.Network
gossipBatchResponseContentData.Sawtooth.Network
GossipBlockRequest 
1 (Type/Class)Data.Sawtooth.Network
2 (Data Constructor)Data.Sawtooth.Network
gossipBlockRequestBlockIdData.Sawtooth.Network
gossipBlockRequestNonceData.Sawtooth.Network
gossipBlockRequestTimeToLiveData.Sawtooth.Network
GossipBlockResponse 
1 (Type/Class)Data.Sawtooth.Network
2 (Data Constructor)Data.Sawtooth.Network
gossipBlockResponseContentData.Sawtooth.Network
GossipMessage 
1 (Type/Class)Data.Sawtooth.Network
2 (Data Constructor)Data.Sawtooth.Network
gossipMessageContentData.Sawtooth.Network
gossipMessageContentTypeData.Sawtooth.Network
gossipMessageTimeToLiveData.Sawtooth.Network
GossipMessage_ContentTypeData.Sawtooth.Network
GossipMessage_ContentTypeBATCHData.Sawtooth.Network
GossipMessage_ContentTypeBLOCKData.Sawtooth.Network
GossipMessage_ContentTypeCONSENSUSData.Sawtooth.Network
GossipMessage_ContentTypeCONTENT_TYPE_UNSETData.Sawtooth.Network
Message 
1 (Type/Class)Data.Sawtooth.Validator
2 (Data Constructor)Data.Sawtooth.Validator
messageContentData.Sawtooth.Validator
messageCorrelationIdData.Sawtooth.Validator
MessageList 
1 (Type/Class)Data.Sawtooth.Validator
2 (Data Constructor)Data.Sawtooth.Validator
messageListMessagesData.Sawtooth.Validator
messageMessageTypeData.Sawtooth.Validator
Message_MessageTypeData.Sawtooth.Validator
Message_MessageTypeAUTHORIZATION_CHALLENGE_REQUESTData.Sawtooth.Validator
Message_MessageTypeAUTHORIZATION_CHALLENGE_RESPONSEData.Sawtooth.Validator
Message_MessageTypeAUTHORIZATION_CHALLENGE_RESULTData.Sawtooth.Validator
Message_MessageTypeAUTHORIZATION_CHALLENGE_SUBMITData.Sawtooth.Validator
Message_MessageTypeAUTHORIZATION_CONNECTION_RESPONSEData.Sawtooth.Validator
Message_MessageTypeAUTHORIZATION_TRUST_REQUESTData.Sawtooth.Validator
Message_MessageTypeAUTHORIZATION_TRUST_RESPONSEData.Sawtooth.Validator
Message_MessageTypeAUTHORIZATION_VIOLATIONData.Sawtooth.Validator
Message_MessageTypeCLIENT_BATCH_GET_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_BATCH_GET_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCLIENT_BATCH_LIST_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_BATCH_LIST_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCLIENT_BATCH_STATUS_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_BATCH_STATUS_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCLIENT_BATCH_SUBMIT_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_BATCH_SUBMIT_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCLIENT_BLOCK_GET_BY_BATCH_ID_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_BLOCK_GET_BY_ID_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_BLOCK_GET_BY_NUM_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_BLOCK_GET_BY_TRANSACTION_ID_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_BLOCK_GET_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCLIENT_BLOCK_LIST_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_BLOCK_LIST_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCLIENT_EVENTSData.Sawtooth.Validator
Message_MessageTypeCLIENT_EVENTS_GET_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_EVENTS_GET_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCLIENT_EVENTS_SUBSCRIBE_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_EVENTS_SUBSCRIBE_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCLIENT_EVENTS_UNSUBSCRIBE_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_EVENTS_UNSUBSCRIBE_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCLIENT_PEERS_GET_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_PEERS_GET_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCLIENT_RECEIPT_GET_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_RECEIPT_GET_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCLIENT_STATE_CURRENT_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_STATE_CURRENT_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCLIENT_STATE_GET_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_STATE_GET_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCLIENT_STATE_LIST_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_STATE_LIST_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCLIENT_STATUS_GET_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_STATUS_GET_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCLIENT_TRANSACTION_GET_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_TRANSACTION_GET_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCLIENT_TRANSACTION_LIST_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_TRANSACTION_LIST_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_BLOCKS_GET_REQUESTData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_BLOCKS_GET_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_BROADCAST_REQUESTData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_BROADCAST_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_CANCEL_BLOCK_REQUESTData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_CANCEL_BLOCK_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_CHAIN_HEAD_GET_REQUESTData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_CHAIN_HEAD_GET_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_CHECK_BLOCKS_REQUESTData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_CHECK_BLOCKS_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_COMMIT_BLOCK_REQUESTData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_COMMIT_BLOCK_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_FAIL_BLOCK_REQUESTData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_FAIL_BLOCK_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_FINALIZE_BLOCK_REQUESTData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_FINALIZE_BLOCK_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_IGNORE_BLOCK_REQUESTData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_IGNORE_BLOCK_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_INITIALIZE_BLOCK_REQUESTData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_INITIALIZE_BLOCK_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_NOTIFY_ACKData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_NOTIFY_BLOCK_COMMITData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_NOTIFY_BLOCK_INVALIDData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_NOTIFY_BLOCK_NEWData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_NOTIFY_BLOCK_VALIDData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_NOTIFY_ENGINE_ACTIVATEDData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_NOTIFY_ENGINE_DEACTIVATEDData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_NOTIFY_PEER_CONNECTEDData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_NOTIFY_PEER_DISCONNECTEDData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_NOTIFY_PEER_MESSAGEData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_REGISTER_REQUESTData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_REGISTER_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_SEND_TO_REQUESTData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_SEND_TO_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_SETTINGS_GET_REQUESTData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_SETTINGS_GET_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_STATE_GET_REQUESTData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_STATE_GET_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_SUMMARIZE_BLOCK_REQUESTData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_SUMMARIZE_BLOCK_RESPONSEData.Sawtooth.Validator
Message_MessageTypeDEFAULTData.Sawtooth.Validator
Message_MessageTypeGOSSIP_BATCH_BY_BATCH_ID_REQUESTData.Sawtooth.Validator
Message_MessageTypeGOSSIP_BATCH_BY_TRANSACTION_ID_REQUESTData.Sawtooth.Validator
Message_MessageTypeGOSSIP_BATCH_RESPONSEData.Sawtooth.Validator
Message_MessageTypeGOSSIP_BLOCK_REQUESTData.Sawtooth.Validator
Message_MessageTypeGOSSIP_BLOCK_RESPONSEData.Sawtooth.Validator
Message_MessageTypeGOSSIP_CONSENSUS_MESSAGEData.Sawtooth.Validator
Message_MessageTypeGOSSIP_GET_PEERS_REQUESTData.Sawtooth.Validator
Message_MessageTypeGOSSIP_GET_PEERS_RESPONSEData.Sawtooth.Validator
Message_MessageTypeGOSSIP_MESSAGEData.Sawtooth.Validator
Message_MessageTypeGOSSIP_REGISTERData.Sawtooth.Validator
Message_MessageTypeGOSSIP_UNREGISTERData.Sawtooth.Validator
Message_MessageTypeNETWORK_ACKData.Sawtooth.Validator
Message_MessageTypeNETWORK_CONNECTData.Sawtooth.Validator
Message_MessageTypeNETWORK_DISCONNECTData.Sawtooth.Validator
Message_MessageTypePING_REQUESTData.Sawtooth.Validator
Message_MessageTypePING_RESPONSEData.Sawtooth.Validator
Message_MessageTypeTP_EVENT_ADD_REQUESTData.Sawtooth.Validator
Message_MessageTypeTP_EVENT_ADD_RESPONSEData.Sawtooth.Validator
Message_MessageTypeTP_PROCESS_REQUESTData.Sawtooth.Validator
Message_MessageTypeTP_PROCESS_RESPONSEData.Sawtooth.Validator
Message_MessageTypeTP_RECEIPT_ADD_DATA_REQUESTData.Sawtooth.Validator
Message_MessageTypeTP_RECEIPT_ADD_DATA_RESPONSEData.Sawtooth.Validator
Message_MessageTypeTP_REGISTER_REQUESTData.Sawtooth.Validator
Message_MessageTypeTP_REGISTER_RESPONSEData.Sawtooth.Validator
Message_MessageTypeTP_STATE_DELETE_REQUESTData.Sawtooth.Validator
Message_MessageTypeTP_STATE_DELETE_RESPONSEData.Sawtooth.Validator
Message_MessageTypeTP_STATE_GET_REQUESTData.Sawtooth.Validator
Message_MessageTypeTP_STATE_GET_RESPONSEData.Sawtooth.Validator
Message_MessageTypeTP_STATE_SET_REQUESTData.Sawtooth.Validator
Message_MessageTypeTP_STATE_SET_RESPONSEData.Sawtooth.Validator
Message_MessageTypeTP_UNREGISTER_REQUESTData.Sawtooth.Validator
Message_MessageTypeTP_UNREGISTER_RESPONSEData.Sawtooth.Validator
NetworkAcknowledgement 
1 (Type/Class)Data.Sawtooth.Network
2 (Data Constructor)Data.Sawtooth.Network
networkAcknowledgementStatusData.Sawtooth.Network
NetworkAcknowledgement_StatusData.Sawtooth.Network
NetworkAcknowledgement_StatusERRORData.Sawtooth.Network
NetworkAcknowledgement_StatusOKData.Sawtooth.Network
NetworkAcknowledgement_StatusSTATUS_UNSETData.Sawtooth.Network
PeerRegisterRequest 
1 (Type/Class)Data.Sawtooth.Network
2 (Data Constructor)Data.Sawtooth.Network
peerRegisterRequestEndpointData.Sawtooth.Network
peerRegisterRequestProtocolVersionData.Sawtooth.Network
PeerUnregisterRequest 
1 (Type/Class)Data.Sawtooth.Network
2 (Data Constructor)Data.Sawtooth.Network
PingRequest 
1 (Type/Class)Data.Sawtooth.Network
2 (Data Constructor)Data.Sawtooth.Network
PingResponse 
1 (Type/Class)Data.Sawtooth.Network
2 (Data Constructor)Data.Sawtooth.Network
Policy 
1 (Type/Class)Data.Sawtooth.Identity
2 (Data Constructor)Data.Sawtooth.Identity
policyEntriesData.Sawtooth.Identity
PolicyList 
1 (Type/Class)Data.Sawtooth.Identity
2 (Data Constructor)Data.Sawtooth.Identity
policyListPoliciesData.Sawtooth.Identity
policyNameData.Sawtooth.Identity
Policy_Entry 
1 (Type/Class)Data.Sawtooth.Identity
2 (Data Constructor)Data.Sawtooth.Identity
policy_EntryKeyData.Sawtooth.Identity
Policy_EntryTypeData.Sawtooth.Identity
policy_EntryTypeData.Sawtooth.Identity
Policy_EntryTypeDENY_KEYData.Sawtooth.Identity
Policy_EntryTypeENTRY_TYPE_UNSETData.Sawtooth.Identity
Policy_EntryTypePERMIT_KEYData.Sawtooth.Identity
Role 
1 (Type/Class)Data.Sawtooth.Identity
2 (Data Constructor)Data.Sawtooth.Identity
RoleList 
1 (Type/Class)Data.Sawtooth.Identity
2 (Data Constructor)Data.Sawtooth.Identity
roleListRolesData.Sawtooth.Identity
roleNameData.Sawtooth.Identity
rolePolicyNameData.Sawtooth.Identity
RoleTypeData.Sawtooth.Authorization
RoleTypeALLData.Sawtooth.Authorization
RoleTypeNETWORKData.Sawtooth.Authorization
RoleTypeROLE_TYPE_UNSETData.Sawtooth.Authorization
Setting 
1 (Type/Class)Data.Sawtooth.Setting
2 (Data Constructor)Data.Sawtooth.Setting
settingEntriesData.Sawtooth.Setting
Setting_Entry 
1 (Type/Class)Data.Sawtooth.Setting
2 (Data Constructor)Data.Sawtooth.Setting
setting_EntryKeyData.Sawtooth.Setting
setting_EntryValueData.Sawtooth.Setting
StateChange 
1 (Type/Class)Data.Sawtooth.TransactionReceipt
2 (Data Constructor)Data.Sawtooth.TransactionReceipt
stateChangeAddressData.Sawtooth.TransactionReceipt
StateChangeList 
1 (Type/Class)Data.Sawtooth.TransactionReceipt
2 (Data Constructor)Data.Sawtooth.TransactionReceipt
stateChangeListStateChangesData.Sawtooth.TransactionReceipt
stateChangeTypeData.Sawtooth.TransactionReceipt
stateChangeValueData.Sawtooth.TransactionReceipt
StateChange_TypeData.Sawtooth.TransactionReceipt
StateChange_TypeDELETEData.Sawtooth.TransactionReceipt
StateChange_TypeSETData.Sawtooth.TransactionReceipt
StateChange_TypeTYPE_UNSETData.Sawtooth.TransactionReceipt
TpEventAddRequest 
1 (Type/Class)Data.Sawtooth.StateContext
2 (Data Constructor)Data.Sawtooth.StateContext
tpEventAddRequestContextIdData.Sawtooth.StateContext
tpEventAddRequestEventData.Sawtooth.StateContext
TpEventAddResponse 
1 (Type/Class)Data.Sawtooth.StateContext
2 (Data Constructor)Data.Sawtooth.StateContext
tpEventAddResponseStatusData.Sawtooth.StateContext
TpEventAddResponse_StatusData.Sawtooth.StateContext
TpEventAddResponse_StatusERRORData.Sawtooth.StateContext
TpEventAddResponse_StatusOKData.Sawtooth.StateContext
TpEventAddResponse_StatusSTATUS_UNSETData.Sawtooth.StateContext
TpProcessRequest 
1 (Type/Class)Data.Sawtooth.Processor
2 (Data Constructor)Data.Sawtooth.Processor
tpProcessRequestContextIdData.Sawtooth.Processor
tpProcessRequestHeaderData.Sawtooth.Processor
tpProcessRequestHeaderBytesData.Sawtooth.Processor
tpProcessRequestPayloadData.Sawtooth.Processor
tpProcessRequestSignatureData.Sawtooth.Processor
TpProcessResponse 
1 (Type/Class)Data.Sawtooth.Processor
2 (Data Constructor)Data.Sawtooth.Processor
tpProcessResponseExtendedDataData.Sawtooth.Processor
tpProcessResponseMessageData.Sawtooth.Processor
tpProcessResponseStatusData.Sawtooth.Processor
TpProcessResponse_StatusData.Sawtooth.Processor
TpProcessResponse_StatusINTERNAL_ERRORData.Sawtooth.Processor
TpProcessResponse_StatusINVALID_TRANSACTIONData.Sawtooth.Processor
TpProcessResponse_StatusOKData.Sawtooth.Processor
TpProcessResponse_StatusSTATUS_UNSETData.Sawtooth.Processor
TpReceiptAddDataRequest 
1 (Type/Class)Data.Sawtooth.StateContext
2 (Data Constructor)Data.Sawtooth.StateContext
tpReceiptAddDataRequestContextIdData.Sawtooth.StateContext
tpReceiptAddDataRequestDataData.Sawtooth.StateContext
TpReceiptAddDataResponse 
1 (Type/Class)Data.Sawtooth.StateContext
2 (Data Constructor)Data.Sawtooth.StateContext
tpReceiptAddDataResponseStatusData.Sawtooth.StateContext
TpReceiptAddDataResponse_StatusData.Sawtooth.StateContext
TpReceiptAddDataResponse_StatusERRORData.Sawtooth.StateContext
TpReceiptAddDataResponse_StatusOKData.Sawtooth.StateContext
TpReceiptAddDataResponse_StatusSTATUS_UNSETData.Sawtooth.StateContext
TpRegisterRequest 
1 (Type/Class)Data.Sawtooth.Processor
2 (Data Constructor)Data.Sawtooth.Processor
tpRegisterRequestFamilyData.Sawtooth.Processor
tpRegisterRequestMaxOccupancyData.Sawtooth.Processor
tpRegisterRequestNamespacesData.Sawtooth.Processor
tpRegisterRequestProtocolVersionData.Sawtooth.Processor
tpRegisterRequestRequestHeaderStyleData.Sawtooth.Processor
tpRegisterRequestVersionData.Sawtooth.Processor
TpRegisterRequest_TpProcessRequestHeaderStyleData.Sawtooth.Processor
TpRegisterRequest_TpProcessRequestHeaderStyleEXPANDEDData.Sawtooth.Processor
TpRegisterRequest_TpProcessRequestHeaderStyleHEADER_STYLE_UNSETData.Sawtooth.Processor
TpRegisterRequest_TpProcessRequestHeaderStyleRAWData.Sawtooth.Processor
TpRegisterResponse 
1 (Type/Class)Data.Sawtooth.Processor
2 (Data Constructor)Data.Sawtooth.Processor
tpRegisterResponseProtocolVersionData.Sawtooth.Processor
tpRegisterResponseStatusData.Sawtooth.Processor
TpRegisterResponse_StatusData.Sawtooth.Processor
TpRegisterResponse_StatusERRORData.Sawtooth.Processor
TpRegisterResponse_StatusOKData.Sawtooth.Processor
TpRegisterResponse_StatusSTATUS_UNSETData.Sawtooth.Processor
TpStateDeleteRequest 
1 (Type/Class)Data.Sawtooth.StateContext
2 (Data Constructor)Data.Sawtooth.StateContext
tpStateDeleteRequestAddressesData.Sawtooth.StateContext
tpStateDeleteRequestContextIdData.Sawtooth.StateContext
TpStateDeleteResponse 
1 (Type/Class)Data.Sawtooth.StateContext
2 (Data Constructor)Data.Sawtooth.StateContext
tpStateDeleteResponseAddressesData.Sawtooth.StateContext
tpStateDeleteResponseStatusData.Sawtooth.StateContext
TpStateDeleteResponse_StatusData.Sawtooth.StateContext
TpStateDeleteResponse_StatusAUTHORIZATION_ERRORData.Sawtooth.StateContext
TpStateDeleteResponse_StatusOKData.Sawtooth.StateContext
TpStateDeleteResponse_StatusSTATUS_UNSETData.Sawtooth.StateContext
TpStateEntry 
1 (Type/Class)Data.Sawtooth.StateContext
2 (Data Constructor)Data.Sawtooth.StateContext
tpStateEntryAddressData.Sawtooth.StateContext
tpStateEntryDataData.Sawtooth.StateContext
TpStateGetRequest 
1 (Type/Class)Data.Sawtooth.StateContext
2 (Data Constructor)Data.Sawtooth.StateContext
tpStateGetRequestAddressesData.Sawtooth.StateContext
tpStateGetRequestContextIdData.Sawtooth.StateContext
TpStateGetResponse 
1 (Type/Class)Data.Sawtooth.StateContext
2 (Data Constructor)Data.Sawtooth.StateContext
tpStateGetResponseEntriesData.Sawtooth.StateContext
tpStateGetResponseStatusData.Sawtooth.StateContext
TpStateGetResponse_StatusData.Sawtooth.StateContext
TpStateGetResponse_StatusAUTHORIZATION_ERRORData.Sawtooth.StateContext
TpStateGetResponse_StatusOKData.Sawtooth.StateContext
TpStateGetResponse_StatusSTATUS_UNSETData.Sawtooth.StateContext
TpStateSetRequest 
1 (Type/Class)Data.Sawtooth.StateContext
2 (Data Constructor)Data.Sawtooth.StateContext
tpStateSetRequestContextIdData.Sawtooth.StateContext
tpStateSetRequestEntriesData.Sawtooth.StateContext
TpStateSetResponse 
1 (Type/Class)Data.Sawtooth.StateContext
2 (Data Constructor)Data.Sawtooth.StateContext
tpStateSetResponseAddressesData.Sawtooth.StateContext
tpStateSetResponseStatusData.Sawtooth.StateContext
TpStateSetResponse_StatusData.Sawtooth.StateContext
TpStateSetResponse_StatusAUTHORIZATION_ERRORData.Sawtooth.StateContext
TpStateSetResponse_StatusOKData.Sawtooth.StateContext
TpStateSetResponse_StatusSTATUS_UNSETData.Sawtooth.StateContext
TpUnregisterRequest 
1 (Type/Class)Data.Sawtooth.Processor
2 (Data Constructor)Data.Sawtooth.Processor
TpUnregisterResponse 
1 (Type/Class)Data.Sawtooth.Processor
2 (Data Constructor)Data.Sawtooth.Processor
tpUnregisterResponseStatusData.Sawtooth.Processor
TpUnregisterResponse_StatusData.Sawtooth.Processor
TpUnregisterResponse_StatusERRORData.Sawtooth.Processor
TpUnregisterResponse_StatusOKData.Sawtooth.Processor
TpUnregisterResponse_StatusSTATUS_UNSETData.Sawtooth.Processor
Transaction 
1 (Type/Class)Data.Sawtooth.Transaction
2 (Data Constructor)Data.Sawtooth.Transaction
TransactionHeader 
1 (Type/Class)Data.Sawtooth.Transaction
2 (Data Constructor)Data.Sawtooth.Transaction
transactionHeaderData.Sawtooth.Transaction
transactionHeaderBatcherPublicKeyData.Sawtooth.Transaction
transactionHeaderDependenciesData.Sawtooth.Transaction
transactionHeaderFamilyNameData.Sawtooth.Transaction
transactionHeaderFamilyVersionData.Sawtooth.Transaction
transactionHeaderInputsData.Sawtooth.Transaction
transactionHeaderNonceData.Sawtooth.Transaction
transactionHeaderOutputsData.Sawtooth.Transaction
transactionHeaderPayloadSha512Data.Sawtooth.Transaction
transactionHeaderSignatureData.Sawtooth.Transaction
transactionHeaderSignerPublicKeyData.Sawtooth.Transaction
TransactionList 
1 (Type/Class)Data.Sawtooth.Transaction
2 (Data Constructor)Data.Sawtooth.Transaction
transactionListTransactionsData.Sawtooth.Transaction
transactionPayloadData.Sawtooth.Transaction
TransactionReceipt 
1 (Type/Class)Data.Sawtooth.TransactionReceipt
2 (Data Constructor)Data.Sawtooth.TransactionReceipt
transactionReceiptDataData.Sawtooth.TransactionReceipt
transactionReceiptEventsData.Sawtooth.TransactionReceipt
transactionReceiptStateChangesData.Sawtooth.TransactionReceipt
transactionReceiptTransactionIdData.Sawtooth.TransactionReceipt
\ No newline at end of file diff --git a/doc-index-B.html b/doc-index-B.html index c92cde0..714cea2 100644 --- a/doc-index-B.html +++ b/doc-index-B.html @@ -1 +1 @@ -sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types (Index - B)
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types

Index - B

Batch 
1 (Type/Class)Data.Sawtooth.Batch
2 (Data Constructor)Data.Sawtooth.Batch
BatchHeader 
1 (Type/Class)Data.Sawtooth.Batch
2 (Data Constructor)Data.Sawtooth.Batch
batchHeaderData.Sawtooth.Batch
batchHeaderSignatureData.Sawtooth.Batch
batchHeaderSignerPublicKeyData.Sawtooth.Batch
batchHeaderTransactionIdsData.Sawtooth.Batch
BatchList 
1 (Type/Class)Data.Sawtooth.Batch
2 (Data Constructor)Data.Sawtooth.Batch
batchListBatchesData.Sawtooth.Batch
batchTraceData.Sawtooth.Batch
batchTransactionsData.Sawtooth.Batch
Block 
1 (Type/Class)Data.Sawtooth.Block
2 (Data Constructor)Data.Sawtooth.Block
blockBatchesData.Sawtooth.Block
BlockHeader 
1 (Type/Class)Data.Sawtooth.Block
2 (Data Constructor)Data.Sawtooth.Block
blockHeaderData.Sawtooth.Block
blockHeaderBatchIdsData.Sawtooth.Block
blockHeaderBlockNumData.Sawtooth.Block
blockHeaderConsensusData.Sawtooth.Block
blockHeaderPreviousBlockIdData.Sawtooth.Block
blockHeaderSignatureData.Sawtooth.Block
blockHeaderSignerPublicKeyData.Sawtooth.Block
blockHeaderStateRootHashData.Sawtooth.Block
BlockInfo 
1 (Type/Class)Data.Sawtooth.BlockInfo
2 (Data Constructor)Data.Sawtooth.BlockInfo
blockInfoBlockNumData.Sawtooth.BlockInfo
BlockInfoConfig 
1 (Type/Class)Data.Sawtooth.BlockInfo
2 (Data Constructor)Data.Sawtooth.BlockInfo
blockInfoConfigLatestBlockData.Sawtooth.BlockInfo
blockInfoConfigOldestBlockData.Sawtooth.BlockInfo
blockInfoConfigSyncToleranceData.Sawtooth.BlockInfo
blockInfoConfigTargetCountData.Sawtooth.BlockInfo
blockInfoHeaderSignatureData.Sawtooth.BlockInfo
blockInfoPreviousBlockIdData.Sawtooth.BlockInfo
blockInfoSignerPublicKeyData.Sawtooth.BlockInfo
blockInfoTimestampData.Sawtooth.BlockInfo
BlockInfoTxn 
1 (Type/Class)Data.Sawtooth.BlockInfo
2 (Data Constructor)Data.Sawtooth.BlockInfo
blockInfoTxnBlockData.Sawtooth.BlockInfo
blockInfoTxnSyncToleranceData.Sawtooth.BlockInfo
blockInfoTxnTargetCountData.Sawtooth.BlockInfo
\ No newline at end of file +sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types (Index - B)
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types

Index - B

Batch 
1 (Type/Class)Data.Sawtooth.Batch
2 (Data Constructor)Data.Sawtooth.Batch
BatchHeader 
1 (Type/Class)Data.Sawtooth.Batch
2 (Data Constructor)Data.Sawtooth.Batch
batchHeaderData.Sawtooth.Batch
batchHeaderSignatureData.Sawtooth.Batch
batchHeaderSignerPublicKeyData.Sawtooth.Batch
batchHeaderTransactionIdsData.Sawtooth.Batch
BatchList 
1 (Type/Class)Data.Sawtooth.Batch
2 (Data Constructor)Data.Sawtooth.Batch
batchListBatchesData.Sawtooth.Batch
batchTraceData.Sawtooth.Batch
batchTransactionsData.Sawtooth.Batch
Block 
1 (Type/Class)Data.Sawtooth.Block
2 (Data Constructor)Data.Sawtooth.Block
blockBatchesData.Sawtooth.Block
BlockHeader 
1 (Type/Class)Data.Sawtooth.Block
2 (Data Constructor)Data.Sawtooth.Block
blockHeaderData.Sawtooth.Block
blockHeaderBatchIdsData.Sawtooth.Block
blockHeaderBlockNumData.Sawtooth.Block
blockHeaderConsensusData.Sawtooth.Block
blockHeaderPreviousBlockIdData.Sawtooth.Block
blockHeaderSignatureData.Sawtooth.Block
blockHeaderSignerPublicKeyData.Sawtooth.Block
blockHeaderStateRootHashData.Sawtooth.Block
BlockInfo 
1 (Type/Class)Data.Sawtooth.BlockInfo
2 (Data Constructor)Data.Sawtooth.BlockInfo
blockInfoBlockNumData.Sawtooth.BlockInfo
BlockInfoConfig 
1 (Type/Class)Data.Sawtooth.BlockInfo
2 (Data Constructor)Data.Sawtooth.BlockInfo
blockInfoConfigLatestBlockData.Sawtooth.BlockInfo
blockInfoConfigOldestBlockData.Sawtooth.BlockInfo
blockInfoConfigSyncToleranceData.Sawtooth.BlockInfo
blockInfoConfigTargetCountData.Sawtooth.BlockInfo
blockInfoHeaderSignatureData.Sawtooth.BlockInfo
blockInfoPreviousBlockIdData.Sawtooth.BlockInfo
blockInfoSignerPublicKeyData.Sawtooth.BlockInfo
blockInfoTimestampData.Sawtooth.BlockInfo
BlockInfoTxn 
1 (Type/Class)Data.Sawtooth.BlockInfo
2 (Data Constructor)Data.Sawtooth.BlockInfo
blockInfoTxnBlockData.Sawtooth.BlockInfo
blockInfoTxnSyncToleranceData.Sawtooth.BlockInfo
blockInfoTxnTargetCountData.Sawtooth.BlockInfo
\ No newline at end of file diff --git a/doc-index-C.html b/doc-index-C.html index f79dacc..1818cd7 100644 --- a/doc-index-C.html +++ b/doc-index-C.html @@ -1 +1 @@ -sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types (Index - C)
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types

Index - C

ChangeLogEntry 
1 (Type/Class)Data.Sawtooth.Merkle
2 (Data Constructor)Data.Sawtooth.Merkle
changeLogEntryAdditionsData.Sawtooth.Merkle
changeLogEntryParentData.Sawtooth.Merkle
changeLogEntrySuccessorsData.Sawtooth.Merkle
ChangeLogEntry_Successor 
1 (Type/Class)Data.Sawtooth.Merkle
2 (Data Constructor)Data.Sawtooth.Merkle
changeLogEntry_SuccessorDeletionsData.Sawtooth.Merkle
changeLogEntry_SuccessorSuccessorData.Sawtooth.Merkle
ClientBatchGetRequest 
1 (Type/Class)Data.Sawtooth.ClientBatch
2 (Data Constructor)Data.Sawtooth.ClientBatch
clientBatchGetRequestBatchIdData.Sawtooth.ClientBatch
ClientBatchGetResponse 
1 (Type/Class)Data.Sawtooth.ClientBatch
2 (Data Constructor)Data.Sawtooth.ClientBatch
clientBatchGetResponseBatchData.Sawtooth.ClientBatch
clientBatchGetResponseStatusData.Sawtooth.ClientBatch
ClientBatchGetResponse_StatusData.Sawtooth.ClientBatch
ClientBatchGetResponse_StatusINTERNAL_ERRORData.Sawtooth.ClientBatch
ClientBatchGetResponse_StatusINVALID_IDData.Sawtooth.ClientBatch
ClientBatchGetResponse_StatusNO_RESOURCEData.Sawtooth.ClientBatch
ClientBatchGetResponse_StatusOKData.Sawtooth.ClientBatch
ClientBatchGetResponse_StatusSTATUS_UNSETData.Sawtooth.ClientBatch
ClientBatchListRequest 
1 (Type/Class)Data.Sawtooth.ClientBatch
2 (Data Constructor)Data.Sawtooth.ClientBatch
clientBatchListRequestBatchIdsData.Sawtooth.ClientBatch
clientBatchListRequestHeadIdData.Sawtooth.ClientBatch
clientBatchListRequestPagingData.Sawtooth.ClientBatch
clientBatchListRequestSortingData.Sawtooth.ClientBatch
ClientBatchListResponse 
1 (Type/Class)Data.Sawtooth.ClientBatch
2 (Data Constructor)Data.Sawtooth.ClientBatch
clientBatchListResponseBatchesData.Sawtooth.ClientBatch
clientBatchListResponseHeadIdData.Sawtooth.ClientBatch
clientBatchListResponsePagingData.Sawtooth.ClientBatch
clientBatchListResponseStatusData.Sawtooth.ClientBatch
ClientBatchListResponse_StatusData.Sawtooth.ClientBatch
ClientBatchListResponse_StatusINTERNAL_ERRORData.Sawtooth.ClientBatch
ClientBatchListResponse_StatusINVALID_IDData.Sawtooth.ClientBatch
ClientBatchListResponse_StatusINVALID_PAGINGData.Sawtooth.ClientBatch
ClientBatchListResponse_StatusINVALID_SORTData.Sawtooth.ClientBatch
ClientBatchListResponse_StatusNOT_READYData.Sawtooth.ClientBatch
ClientBatchListResponse_StatusNO_RESOURCEData.Sawtooth.ClientBatch
ClientBatchListResponse_StatusNO_ROOTData.Sawtooth.ClientBatch
ClientBatchListResponse_StatusOKData.Sawtooth.ClientBatch
ClientBatchListResponse_StatusSTATUS_UNSETData.Sawtooth.ClientBatch
ClientBatchStatus 
1 (Type/Class)Data.Sawtooth.ClientBatchSubmit
2 (Data Constructor)Data.Sawtooth.ClientBatchSubmit
clientBatchStatusBatchIdData.Sawtooth.ClientBatchSubmit
clientBatchStatusInvalidTransactionsData.Sawtooth.ClientBatchSubmit
ClientBatchStatusRequest 
1 (Type/Class)Data.Sawtooth.ClientBatchSubmit
2 (Data Constructor)Data.Sawtooth.ClientBatchSubmit
clientBatchStatusRequestBatchIdsData.Sawtooth.ClientBatchSubmit
clientBatchStatusRequestTimeoutData.Sawtooth.ClientBatchSubmit
clientBatchStatusRequestWaitData.Sawtooth.ClientBatchSubmit
ClientBatchStatusResponse 
1 (Type/Class)Data.Sawtooth.ClientBatchSubmit
2 (Data Constructor)Data.Sawtooth.ClientBatchSubmit
clientBatchStatusResponseBatchStatusesData.Sawtooth.ClientBatchSubmit
clientBatchStatusResponseStatusData.Sawtooth.ClientBatchSubmit
ClientBatchStatusResponse_StatusData.Sawtooth.ClientBatchSubmit
ClientBatchStatusResponse_StatusINTERNAL_ERRORData.Sawtooth.ClientBatchSubmit
ClientBatchStatusResponse_StatusINVALID_IDData.Sawtooth.ClientBatchSubmit
ClientBatchStatusResponse_StatusNO_RESOURCEData.Sawtooth.ClientBatchSubmit
ClientBatchStatusResponse_StatusOKData.Sawtooth.ClientBatchSubmit
ClientBatchStatusResponse_StatusSTATUS_UNSETData.Sawtooth.ClientBatchSubmit
clientBatchStatusStatusData.Sawtooth.ClientBatchSubmit
ClientBatchStatus_InvalidTransaction 
1 (Type/Class)Data.Sawtooth.ClientBatchSubmit
2 (Data Constructor)Data.Sawtooth.ClientBatchSubmit
clientBatchStatus_InvalidTransactionExtendedDataData.Sawtooth.ClientBatchSubmit
clientBatchStatus_InvalidTransactionMessageData.Sawtooth.ClientBatchSubmit
clientBatchStatus_InvalidTransactionTransactionIdData.Sawtooth.ClientBatchSubmit
ClientBatchStatus_StatusData.Sawtooth.ClientBatchSubmit
ClientBatchStatus_StatusCOMMITTEDData.Sawtooth.ClientBatchSubmit
ClientBatchStatus_StatusINVALIDData.Sawtooth.ClientBatchSubmit
ClientBatchStatus_StatusPENDINGData.Sawtooth.ClientBatchSubmit
ClientBatchStatus_StatusSTATUS_UNSETData.Sawtooth.ClientBatchSubmit
ClientBatchStatus_StatusUNKNOWNData.Sawtooth.ClientBatchSubmit
ClientBatchSubmitRequest 
1 (Type/Class)Data.Sawtooth.ClientBatchSubmit
2 (Data Constructor)Data.Sawtooth.ClientBatchSubmit
clientBatchSubmitRequestBatchesData.Sawtooth.ClientBatchSubmit
ClientBatchSubmitResponse 
1 (Type/Class)Data.Sawtooth.ClientBatchSubmit
2 (Data Constructor)Data.Sawtooth.ClientBatchSubmit
clientBatchSubmitResponseStatusData.Sawtooth.ClientBatchSubmit
ClientBatchSubmitResponse_StatusData.Sawtooth.ClientBatchSubmit
ClientBatchSubmitResponse_StatusINTERNAL_ERRORData.Sawtooth.ClientBatchSubmit
ClientBatchSubmitResponse_StatusINVALID_BATCHData.Sawtooth.ClientBatchSubmit
ClientBatchSubmitResponse_StatusOKData.Sawtooth.ClientBatchSubmit
ClientBatchSubmitResponse_StatusQUEUE_FULLData.Sawtooth.ClientBatchSubmit
ClientBatchSubmitResponse_StatusSTATUS_UNSETData.Sawtooth.ClientBatchSubmit
ClientBlockGetByBatchIdRequest 
1 (Type/Class)Data.Sawtooth.ClientBlock
2 (Data Constructor)Data.Sawtooth.ClientBlock
clientBlockGetByBatchIdRequestBatchIdData.Sawtooth.ClientBlock
ClientBlockGetByIdRequest 
1 (Type/Class)Data.Sawtooth.ClientBlock
2 (Data Constructor)Data.Sawtooth.ClientBlock
clientBlockGetByIdRequestBlockIdData.Sawtooth.ClientBlock
ClientBlockGetByNumRequest 
1 (Type/Class)Data.Sawtooth.ClientBlock
2 (Data Constructor)Data.Sawtooth.ClientBlock
clientBlockGetByNumRequestBlockNumData.Sawtooth.ClientBlock
ClientBlockGetByTransactionIdRequest 
1 (Type/Class)Data.Sawtooth.ClientBlock
2 (Data Constructor)Data.Sawtooth.ClientBlock
clientBlockGetByTransactionIdRequestTransactionIdData.Sawtooth.ClientBlock
ClientBlockGetResponse 
1 (Type/Class)Data.Sawtooth.ClientBlock
2 (Data Constructor)Data.Sawtooth.ClientBlock
clientBlockGetResponseBlockData.Sawtooth.ClientBlock
clientBlockGetResponseStatusData.Sawtooth.ClientBlock
ClientBlockGetResponse_StatusData.Sawtooth.ClientBlock
ClientBlockGetResponse_StatusINTERNAL_ERRORData.Sawtooth.ClientBlock
ClientBlockGetResponse_StatusINVALID_IDData.Sawtooth.ClientBlock
ClientBlockGetResponse_StatusNO_RESOURCEData.Sawtooth.ClientBlock
ClientBlockGetResponse_StatusOKData.Sawtooth.ClientBlock
ClientBlockGetResponse_StatusSTATUS_UNSETData.Sawtooth.ClientBlock
ClientBlockListRequest 
1 (Type/Class)Data.Sawtooth.ClientBlock
2 (Data Constructor)Data.Sawtooth.ClientBlock
clientBlockListRequestBlockIdsData.Sawtooth.ClientBlock
clientBlockListRequestHeadIdData.Sawtooth.ClientBlock
clientBlockListRequestPagingData.Sawtooth.ClientBlock
clientBlockListRequestSortingData.Sawtooth.ClientBlock
ClientBlockListResponse 
1 (Type/Class)Data.Sawtooth.ClientBlock
2 (Data Constructor)Data.Sawtooth.ClientBlock
clientBlockListResponseBlocksData.Sawtooth.ClientBlock
clientBlockListResponseHeadIdData.Sawtooth.ClientBlock
clientBlockListResponsePagingData.Sawtooth.ClientBlock
clientBlockListResponseStatusData.Sawtooth.ClientBlock
ClientBlockListResponse_StatusData.Sawtooth.ClientBlock
ClientBlockListResponse_StatusINTERNAL_ERRORData.Sawtooth.ClientBlock
ClientBlockListResponse_StatusINVALID_IDData.Sawtooth.ClientBlock
ClientBlockListResponse_StatusINVALID_PAGINGData.Sawtooth.ClientBlock
ClientBlockListResponse_StatusINVALID_SORTData.Sawtooth.ClientBlock
ClientBlockListResponse_StatusNOT_READYData.Sawtooth.ClientBlock
ClientBlockListResponse_StatusNO_RESOURCEData.Sawtooth.ClientBlock
ClientBlockListResponse_StatusNO_ROOTData.Sawtooth.ClientBlock
ClientBlockListResponse_StatusOKData.Sawtooth.ClientBlock
ClientBlockListResponse_StatusSTATUS_UNSETData.Sawtooth.ClientBlock
ClientEventsGetRequest 
1 (Type/Class)Data.Sawtooth.ClientEvent
2 (Data Constructor)Data.Sawtooth.ClientEvent
clientEventsGetRequestBlockIdsData.Sawtooth.ClientEvent
clientEventsGetRequestSubscriptionsData.Sawtooth.ClientEvent
ClientEventsGetResponse 
1 (Type/Class)Data.Sawtooth.ClientEvent
2 (Data Constructor)Data.Sawtooth.ClientEvent
clientEventsGetResponseEventsData.Sawtooth.ClientEvent
clientEventsGetResponseStatusData.Sawtooth.ClientEvent
ClientEventsGetResponse_StatusData.Sawtooth.ClientEvent
ClientEventsGetResponse_StatusINTERNAL_ERRORData.Sawtooth.ClientEvent
ClientEventsGetResponse_StatusINVALID_FILTERData.Sawtooth.ClientEvent
ClientEventsGetResponse_StatusOKData.Sawtooth.ClientEvent
ClientEventsGetResponse_StatusSTATUS_UNSETData.Sawtooth.ClientEvent
ClientEventsGetResponse_StatusUNKNOWN_BLOCKData.Sawtooth.ClientEvent
ClientEventsSubscribeRequest 
1 (Type/Class)Data.Sawtooth.ClientEvent
2 (Data Constructor)Data.Sawtooth.ClientEvent
clientEventsSubscribeRequestLastKnownBlockIdsData.Sawtooth.ClientEvent
clientEventsSubscribeRequestSubscriptionsData.Sawtooth.ClientEvent
ClientEventsSubscribeResponse 
1 (Type/Class)Data.Sawtooth.ClientEvent
2 (Data Constructor)Data.Sawtooth.ClientEvent
clientEventsSubscribeResponseResponseMessageData.Sawtooth.ClientEvent
clientEventsSubscribeResponseStatusData.Sawtooth.ClientEvent
ClientEventsSubscribeResponse_StatusData.Sawtooth.ClientEvent
ClientEventsSubscribeResponse_StatusINVALID_FILTERData.Sawtooth.ClientEvent
ClientEventsSubscribeResponse_StatusOKData.Sawtooth.ClientEvent
ClientEventsSubscribeResponse_StatusSTATUS_UNSETData.Sawtooth.ClientEvent
ClientEventsSubscribeResponse_StatusUNKNOWN_BLOCKData.Sawtooth.ClientEvent
ClientEventsUnsubscribeRequest 
1 (Type/Class)Data.Sawtooth.ClientEvent
2 (Data Constructor)Data.Sawtooth.ClientEvent
ClientEventsUnsubscribeResponse 
1 (Type/Class)Data.Sawtooth.ClientEvent
2 (Data Constructor)Data.Sawtooth.ClientEvent
clientEventsUnsubscribeResponseStatusData.Sawtooth.ClientEvent
ClientEventsUnsubscribeResponse_StatusData.Sawtooth.ClientEvent
ClientEventsUnsubscribeResponse_StatusINTERNAL_ERRORData.Sawtooth.ClientEvent
ClientEventsUnsubscribeResponse_StatusOKData.Sawtooth.ClientEvent
ClientEventsUnsubscribeResponse_StatusSTATUS_UNSETData.Sawtooth.ClientEvent
ClientPagingControls 
1 (Type/Class)Data.Sawtooth.ClientListControl
2 (Data Constructor)Data.Sawtooth.ClientListControl
clientPagingControlsLimitData.Sawtooth.ClientListControl
clientPagingControlsStartData.Sawtooth.ClientListControl
ClientPagingResponse 
1 (Type/Class)Data.Sawtooth.ClientListControl
2 (Data Constructor)Data.Sawtooth.ClientListControl
clientPagingResponseLimitData.Sawtooth.ClientListControl
clientPagingResponseNextData.Sawtooth.ClientListControl
clientPagingResponseStartData.Sawtooth.ClientListControl
ClientPeersGetRequest 
1 (Type/Class)Data.Sawtooth.ClientPeers
2 (Data Constructor)Data.Sawtooth.ClientPeers
ClientPeersGetResponse 
1 (Type/Class)Data.Sawtooth.ClientPeers
2 (Data Constructor)Data.Sawtooth.ClientPeers
clientPeersGetResponsePeersData.Sawtooth.ClientPeers
clientPeersGetResponseStatusData.Sawtooth.ClientPeers
ClientPeersGetResponse_StatusData.Sawtooth.ClientPeers
ClientPeersGetResponse_StatusERRORData.Sawtooth.ClientPeers
ClientPeersGetResponse_StatusOKData.Sawtooth.ClientPeers
ClientPeersGetResponse_StatusSTATUS_UNSETData.Sawtooth.ClientPeers
ClientReceiptGetRequest 
1 (Type/Class)Data.Sawtooth.ClientReceipt
2 (Data Constructor)Data.Sawtooth.ClientReceipt
clientReceiptGetRequestTransactionIdsData.Sawtooth.ClientReceipt
ClientReceiptGetResponse 
1 (Type/Class)Data.Sawtooth.ClientReceipt
2 (Data Constructor)Data.Sawtooth.ClientReceipt
clientReceiptGetResponseReceiptsData.Sawtooth.ClientReceipt
clientReceiptGetResponseStatusData.Sawtooth.ClientReceipt
ClientReceiptGetResponse_StatusData.Sawtooth.ClientReceipt
ClientReceiptGetResponse_StatusINTERNAL_ERRORData.Sawtooth.ClientReceipt
ClientReceiptGetResponse_StatusINVALID_IDData.Sawtooth.ClientReceipt
ClientReceiptGetResponse_StatusNO_RESOURCEData.Sawtooth.ClientReceipt
ClientReceiptGetResponse_StatusOKData.Sawtooth.ClientReceipt
ClientReceiptGetResponse_StatusSTATUS_UNSETData.Sawtooth.ClientReceipt
ClientSortControls 
1 (Type/Class)Data.Sawtooth.ClientListControl
2 (Data Constructor)Data.Sawtooth.ClientListControl
clientSortControlsKeysData.Sawtooth.ClientListControl
clientSortControlsReverseData.Sawtooth.ClientListControl
ClientStateGetRequest 
1 (Type/Class)Data.Sawtooth.ClientState
2 (Data Constructor)Data.Sawtooth.ClientState
clientStateGetRequestAddressData.Sawtooth.ClientState
clientStateGetRequestStateRootData.Sawtooth.ClientState
ClientStateGetResponse 
1 (Type/Class)Data.Sawtooth.ClientState
2 (Data Constructor)Data.Sawtooth.ClientState
clientStateGetResponseStateRootData.Sawtooth.ClientState
clientStateGetResponseStatusData.Sawtooth.ClientState
clientStateGetResponseValueData.Sawtooth.ClientState
ClientStateGetResponse_StatusData.Sawtooth.ClientState
ClientStateGetResponse_StatusINTERNAL_ERRORData.Sawtooth.ClientState
ClientStateGetResponse_StatusINVALID_ADDRESSData.Sawtooth.ClientState
ClientStateGetResponse_StatusINVALID_ROOTData.Sawtooth.ClientState
ClientStateGetResponse_StatusNOT_READYData.Sawtooth.ClientState
ClientStateGetResponse_StatusNO_RESOURCEData.Sawtooth.ClientState
ClientStateGetResponse_StatusNO_ROOTData.Sawtooth.ClientState
ClientStateGetResponse_StatusOKData.Sawtooth.ClientState
ClientStateGetResponse_StatusSTATUS_UNSETData.Sawtooth.ClientState
ClientStateListRequest 
1 (Type/Class)Data.Sawtooth.ClientState
2 (Data Constructor)Data.Sawtooth.ClientState
clientStateListRequestAddressData.Sawtooth.ClientState
clientStateListRequestPagingData.Sawtooth.ClientState
clientStateListRequestSortingData.Sawtooth.ClientState
clientStateListRequestStateRootData.Sawtooth.ClientState
ClientStateListResponse 
1 (Type/Class)Data.Sawtooth.ClientState
2 (Data Constructor)Data.Sawtooth.ClientState
clientStateListResponseEntriesData.Sawtooth.ClientState
clientStateListResponsePagingData.Sawtooth.ClientState
clientStateListResponseStateRootData.Sawtooth.ClientState
clientStateListResponseStatusData.Sawtooth.ClientState
ClientStateListResponse_Entry 
1 (Type/Class)Data.Sawtooth.ClientState
2 (Data Constructor)Data.Sawtooth.ClientState
clientStateListResponse_EntryAddressData.Sawtooth.ClientState
clientStateListResponse_EntryDataData.Sawtooth.ClientState
ClientStateListResponse_StatusData.Sawtooth.ClientState
ClientStateListResponse_StatusINTERNAL_ERRORData.Sawtooth.ClientState
ClientStateListResponse_StatusINVALID_ADDRESSData.Sawtooth.ClientState
ClientStateListResponse_StatusINVALID_PAGINGData.Sawtooth.ClientState
ClientStateListResponse_StatusINVALID_ROOTData.Sawtooth.ClientState
ClientStateListResponse_StatusINVALID_SORTData.Sawtooth.ClientState
ClientStateListResponse_StatusNOT_READYData.Sawtooth.ClientState
ClientStateListResponse_StatusNO_RESOURCEData.Sawtooth.ClientState
ClientStateListResponse_StatusNO_ROOTData.Sawtooth.ClientState
ClientStateListResponse_StatusOKData.Sawtooth.ClientState
ClientStateListResponse_StatusSTATUS_UNSETData.Sawtooth.ClientState
ClientStatusGetRequest 
1 (Type/Class)Data.Sawtooth.ClientStatus
2 (Data Constructor)Data.Sawtooth.ClientStatus
ClientStatusGetResponse 
1 (Type/Class)Data.Sawtooth.ClientStatus
2 (Data Constructor)Data.Sawtooth.ClientStatus
clientStatusGetResponseEndpointData.Sawtooth.ClientStatus
clientStatusGetResponsePeersData.Sawtooth.ClientStatus
clientStatusGetResponseStatusData.Sawtooth.ClientStatus
ClientStatusGetResponse_Peer 
1 (Type/Class)Data.Sawtooth.ClientStatus
2 (Data Constructor)Data.Sawtooth.ClientStatus
clientStatusGetResponse_PeerEndpointData.Sawtooth.ClientStatus
ClientStatusGetResponse_StatusData.Sawtooth.ClientStatus
ClientStatusGetResponse_StatusERRORData.Sawtooth.ClientStatus
ClientStatusGetResponse_StatusOKData.Sawtooth.ClientStatus
ClientStatusGetResponse_StatusSTATUS_UNSETData.Sawtooth.ClientStatus
ClientTransactionGetRequest 
1 (Type/Class)Data.Sawtooth.ClientTransaction
2 (Data Constructor)Data.Sawtooth.ClientTransaction
clientTransactionGetRequestTransactionIdData.Sawtooth.ClientTransaction
ClientTransactionGetResponse 
1 (Type/Class)Data.Sawtooth.ClientTransaction
2 (Data Constructor)Data.Sawtooth.ClientTransaction
clientTransactionGetResponseStatusData.Sawtooth.ClientTransaction
clientTransactionGetResponseTransactionData.Sawtooth.ClientTransaction
ClientTransactionGetResponse_StatusData.Sawtooth.ClientTransaction
ClientTransactionGetResponse_StatusINTERNAL_ERRORData.Sawtooth.ClientTransaction
ClientTransactionGetResponse_StatusINVALID_IDData.Sawtooth.ClientTransaction
ClientTransactionGetResponse_StatusNO_RESOURCEData.Sawtooth.ClientTransaction
ClientTransactionGetResponse_StatusOKData.Sawtooth.ClientTransaction
ClientTransactionGetResponse_StatusSTATUS_UNSETData.Sawtooth.ClientTransaction
ClientTransactionListRequest 
1 (Type/Class)Data.Sawtooth.ClientTransaction
2 (Data Constructor)Data.Sawtooth.ClientTransaction
clientTransactionListRequestHeadIdData.Sawtooth.ClientTransaction
clientTransactionListRequestPagingData.Sawtooth.ClientTransaction
clientTransactionListRequestSortingData.Sawtooth.ClientTransaction
clientTransactionListRequestTransactionIdsData.Sawtooth.ClientTransaction
ClientTransactionListResponse 
1 (Type/Class)Data.Sawtooth.ClientTransaction
2 (Data Constructor)Data.Sawtooth.ClientTransaction
clientTransactionListResponseHeadIdData.Sawtooth.ClientTransaction
clientTransactionListResponsePagingData.Sawtooth.ClientTransaction
clientTransactionListResponseStatusData.Sawtooth.ClientTransaction
clientTransactionListResponseTransactionsData.Sawtooth.ClientTransaction
ClientTransactionListResponse_StatusData.Sawtooth.ClientTransaction
ClientTransactionListResponse_StatusINTERNAL_ERRORData.Sawtooth.ClientTransaction
ClientTransactionListResponse_StatusINVALID_IDData.Sawtooth.ClientTransaction
ClientTransactionListResponse_StatusINVALID_PAGINGData.Sawtooth.ClientTransaction
ClientTransactionListResponse_StatusINVALID_SORTData.Sawtooth.ClientTransaction
ClientTransactionListResponse_StatusNOT_READYData.Sawtooth.ClientTransaction
ClientTransactionListResponse_StatusNO_RESOURCEData.Sawtooth.ClientTransaction
ClientTransactionListResponse_StatusNO_ROOTData.Sawtooth.ClientTransaction
ClientTransactionListResponse_StatusOKData.Sawtooth.ClientTransaction
ClientTransactionListResponse_StatusSTATUS_UNSETData.Sawtooth.ClientTransaction
ConnectionRequest 
1 (Type/Class)Data.Sawtooth.Authorization
2 (Data Constructor)Data.Sawtooth.Authorization
connectionRequestEndpointData.Sawtooth.Authorization
ConnectionResponse 
1 (Type/Class)Data.Sawtooth.Authorization
2 (Data Constructor)Data.Sawtooth.Authorization
connectionResponseRolesData.Sawtooth.Authorization
connectionResponseStatusData.Sawtooth.Authorization
ConnectionResponse_AuthorizationTypeData.Sawtooth.Authorization
ConnectionResponse_AuthorizationTypeAUTHORIZATION_TYPE_UNSETData.Sawtooth.Authorization
ConnectionResponse_AuthorizationTypeCHALLENGEData.Sawtooth.Authorization
ConnectionResponse_AuthorizationTypeTRUSTData.Sawtooth.Authorization
ConnectionResponse_RoleEntry 
1 (Type/Class)Data.Sawtooth.Authorization
2 (Data Constructor)Data.Sawtooth.Authorization
connectionResponse_RoleEntryAuthTypeData.Sawtooth.Authorization
connectionResponse_RoleEntryRoleData.Sawtooth.Authorization
ConnectionResponse_StatusData.Sawtooth.Authorization
ConnectionResponse_StatusERRORData.Sawtooth.Authorization
ConnectionResponse_StatusOKData.Sawtooth.Authorization
ConnectionResponse_StatusSTATUS_UNSETData.Sawtooth.Authorization
ConsensusBlock 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusBlockBlockIdData.Sawtooth.Consensus
consensusBlockBlockNumData.Sawtooth.Consensus
consensusBlockPayloadData.Sawtooth.Consensus
consensusBlockPreviousIdData.Sawtooth.Consensus
ConsensusBlocksGetRequest 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusBlocksGetRequestBlockIdsData.Sawtooth.Consensus
ConsensusBlocksGetResponse 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusBlocksGetResponseBlocksData.Sawtooth.Consensus
consensusBlocksGetResponseStatusData.Sawtooth.Consensus
ConsensusBlocksGetResponse_StatusData.Sawtooth.Consensus
ConsensusBlocksGetResponse_StatusBAD_REQUESTData.Sawtooth.Consensus
ConsensusBlocksGetResponse_StatusNOT_ACTIVE_ENGINEData.Sawtooth.Consensus
ConsensusBlocksGetResponse_StatusNOT_READYData.Sawtooth.Consensus
ConsensusBlocksGetResponse_StatusOKData.Sawtooth.Consensus
ConsensusBlocksGetResponse_StatusSERVICE_ERRORData.Sawtooth.Consensus
ConsensusBlocksGetResponse_StatusSTATUS_UNSETData.Sawtooth.Consensus
ConsensusBlocksGetResponse_StatusUNKNOWN_BLOCKData.Sawtooth.Consensus
consensusBlockSignerIdData.Sawtooth.Consensus
consensusBlockSummaryData.Sawtooth.Consensus
ConsensusBroadcastRequest 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusBroadcastRequestContentData.Sawtooth.Consensus
consensusBroadcastRequestMessageTypeData.Sawtooth.Consensus
ConsensusBroadcastResponse 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusBroadcastResponseStatusData.Sawtooth.Consensus
ConsensusBroadcastResponse_StatusData.Sawtooth.Consensus
ConsensusBroadcastResponse_StatusBAD_REQUESTData.Sawtooth.Consensus
ConsensusBroadcastResponse_StatusNOT_ACTIVE_ENGINEData.Sawtooth.Consensus
ConsensusBroadcastResponse_StatusNOT_READYData.Sawtooth.Consensus
ConsensusBroadcastResponse_StatusOKData.Sawtooth.Consensus
ConsensusBroadcastResponse_StatusSERVICE_ERRORData.Sawtooth.Consensus
ConsensusBroadcastResponse_StatusSTATUS_UNSETData.Sawtooth.Consensus
ConsensusCancelBlockRequest 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
ConsensusCancelBlockResponse 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusCancelBlockResponseStatusData.Sawtooth.Consensus
ConsensusCancelBlockResponse_StatusData.Sawtooth.Consensus
ConsensusCancelBlockResponse_StatusBAD_REQUESTData.Sawtooth.Consensus
ConsensusCancelBlockResponse_StatusINVALID_STATEData.Sawtooth.Consensus
ConsensusCancelBlockResponse_StatusNOT_ACTIVE_ENGINEData.Sawtooth.Consensus
ConsensusCancelBlockResponse_StatusNOT_READYData.Sawtooth.Consensus
ConsensusCancelBlockResponse_StatusOKData.Sawtooth.Consensus
ConsensusCancelBlockResponse_StatusSERVICE_ERRORData.Sawtooth.Consensus
ConsensusCancelBlockResponse_StatusSTATUS_UNSETData.Sawtooth.Consensus
ConsensusChainHeadGetRequest 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
ConsensusChainHeadGetResponse 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusChainHeadGetResponseBlockData.Sawtooth.Consensus
consensusChainHeadGetResponseStatusData.Sawtooth.Consensus
ConsensusChainHeadGetResponse_StatusData.Sawtooth.Consensus
ConsensusChainHeadGetResponse_StatusBAD_REQUESTData.Sawtooth.Consensus
ConsensusChainHeadGetResponse_StatusNOT_ACTIVE_ENGINEData.Sawtooth.Consensus
ConsensusChainHeadGetResponse_StatusNOT_READYData.Sawtooth.Consensus
ConsensusChainHeadGetResponse_StatusNO_CHAIN_HEADData.Sawtooth.Consensus
ConsensusChainHeadGetResponse_StatusOKData.Sawtooth.Consensus
ConsensusChainHeadGetResponse_StatusSERVICE_ERRORData.Sawtooth.Consensus
ConsensusChainHeadGetResponse_StatusSTATUS_UNSETData.Sawtooth.Consensus
ConsensusCheckBlocksRequest 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusCheckBlocksRequestBlockIdsData.Sawtooth.Consensus
ConsensusCheckBlocksResponse 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusCheckBlocksResponseStatusData.Sawtooth.Consensus
ConsensusCheckBlocksResponse_StatusData.Sawtooth.Consensus
ConsensusCheckBlocksResponse_StatusBAD_REQUESTData.Sawtooth.Consensus
ConsensusCheckBlocksResponse_StatusNOT_ACTIVE_ENGINEData.Sawtooth.Consensus
ConsensusCheckBlocksResponse_StatusNOT_READYData.Sawtooth.Consensus
ConsensusCheckBlocksResponse_StatusOKData.Sawtooth.Consensus
ConsensusCheckBlocksResponse_StatusSERVICE_ERRORData.Sawtooth.Consensus
ConsensusCheckBlocksResponse_StatusSTATUS_UNSETData.Sawtooth.Consensus
ConsensusCheckBlocksResponse_StatusUNKNOWN_BLOCKData.Sawtooth.Consensus
ConsensusCommitBlockRequest 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusCommitBlockRequestBlockIdData.Sawtooth.Consensus
ConsensusCommitBlockResponse 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusCommitBlockResponseStatusData.Sawtooth.Consensus
ConsensusCommitBlockResponse_StatusData.Sawtooth.Consensus
ConsensusCommitBlockResponse_StatusBAD_REQUESTData.Sawtooth.Consensus
ConsensusCommitBlockResponse_StatusNOT_ACTIVE_ENGINEData.Sawtooth.Consensus
ConsensusCommitBlockResponse_StatusNOT_READYData.Sawtooth.Consensus
ConsensusCommitBlockResponse_StatusOKData.Sawtooth.Consensus
ConsensusCommitBlockResponse_StatusSERVICE_ERRORData.Sawtooth.Consensus
ConsensusCommitBlockResponse_StatusSTATUS_UNSETData.Sawtooth.Consensus
ConsensusCommitBlockResponse_StatusUNKNOWN_BLOCKData.Sawtooth.Consensus
ConsensusFailBlockRequest 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusFailBlockRequestBlockIdData.Sawtooth.Consensus
ConsensusFailBlockResponse 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusFailBlockResponseStatusData.Sawtooth.Consensus
ConsensusFailBlockResponse_StatusData.Sawtooth.Consensus
ConsensusFailBlockResponse_StatusBAD_REQUESTData.Sawtooth.Consensus
ConsensusFailBlockResponse_StatusNOT_ACTIVE_ENGINEData.Sawtooth.Consensus
ConsensusFailBlockResponse_StatusNOT_READYData.Sawtooth.Consensus
ConsensusFailBlockResponse_StatusOKData.Sawtooth.Consensus
ConsensusFailBlockResponse_StatusSERVICE_ERRORData.Sawtooth.Consensus
ConsensusFailBlockResponse_StatusSTATUS_UNSETData.Sawtooth.Consensus
ConsensusFailBlockResponse_StatusUNKNOWN_BLOCKData.Sawtooth.Consensus
ConsensusFinalizeBlockRequest 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusFinalizeBlockRequestDataData.Sawtooth.Consensus
ConsensusFinalizeBlockResponse 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusFinalizeBlockResponseBlockIdData.Sawtooth.Consensus
consensusFinalizeBlockResponseStatusData.Sawtooth.Consensus
ConsensusFinalizeBlockResponse_StatusData.Sawtooth.Consensus
ConsensusFinalizeBlockResponse_StatusBAD_REQUESTData.Sawtooth.Consensus
ConsensusFinalizeBlockResponse_StatusBLOCK_NOT_READYData.Sawtooth.Consensus
ConsensusFinalizeBlockResponse_StatusINVALID_STATEData.Sawtooth.Consensus
ConsensusFinalizeBlockResponse_StatusNOT_ACTIVE_ENGINEData.Sawtooth.Consensus
ConsensusFinalizeBlockResponse_StatusNOT_READYData.Sawtooth.Consensus
ConsensusFinalizeBlockResponse_StatusOKData.Sawtooth.Consensus
ConsensusFinalizeBlockResponse_StatusSERVICE_ERRORData.Sawtooth.Consensus
ConsensusFinalizeBlockResponse_StatusSTATUS_UNSETData.Sawtooth.Consensus
ConsensusIgnoreBlockRequest 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusIgnoreBlockRequestBlockIdData.Sawtooth.Consensus
ConsensusIgnoreBlockResponse 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusIgnoreBlockResponseStatusData.Sawtooth.Consensus
ConsensusIgnoreBlockResponse_StatusData.Sawtooth.Consensus
ConsensusIgnoreBlockResponse_StatusBAD_REQUESTData.Sawtooth.Consensus
ConsensusIgnoreBlockResponse_StatusNOT_ACTIVE_ENGINEData.Sawtooth.Consensus
ConsensusIgnoreBlockResponse_StatusNOT_READYData.Sawtooth.Consensus
ConsensusIgnoreBlockResponse_StatusOKData.Sawtooth.Consensus
ConsensusIgnoreBlockResponse_StatusSERVICE_ERRORData.Sawtooth.Consensus
ConsensusIgnoreBlockResponse_StatusSTATUS_UNSETData.Sawtooth.Consensus
ConsensusIgnoreBlockResponse_StatusUNKNOWN_BLOCKData.Sawtooth.Consensus
ConsensusInitializeBlockRequest 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusInitializeBlockRequestPreviousIdData.Sawtooth.Consensus
ConsensusInitializeBlockResponse 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusInitializeBlockResponseStatusData.Sawtooth.Consensus
ConsensusInitializeBlockResponse_StatusData.Sawtooth.Consensus
ConsensusInitializeBlockResponse_StatusBAD_REQUESTData.Sawtooth.Consensus
ConsensusInitializeBlockResponse_StatusINVALID_STATEData.Sawtooth.Consensus
ConsensusInitializeBlockResponse_StatusNOT_ACTIVE_ENGINEData.Sawtooth.Consensus
ConsensusInitializeBlockResponse_StatusNOT_READYData.Sawtooth.Consensus
ConsensusInitializeBlockResponse_StatusOKData.Sawtooth.Consensus
ConsensusInitializeBlockResponse_StatusSERVICE_ERRORData.Sawtooth.Consensus
ConsensusInitializeBlockResponse_StatusSTATUS_UNSETData.Sawtooth.Consensus
ConsensusInitializeBlockResponse_StatusUNKNOWN_BLOCKData.Sawtooth.Consensus
ConsensusNotifyAck 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
ConsensusNotifyBlockCommit 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusNotifyBlockCommitBlockIdData.Sawtooth.Consensus
ConsensusNotifyBlockInvalid 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusNotifyBlockInvalidBlockIdData.Sawtooth.Consensus
ConsensusNotifyBlockNew 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusNotifyBlockNewBlockData.Sawtooth.Consensus
ConsensusNotifyBlockValid 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusNotifyBlockValidBlockIdData.Sawtooth.Consensus
ConsensusNotifyEngineActivated 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusNotifyEngineActivatedChainHeadData.Sawtooth.Consensus
consensusNotifyEngineActivatedLocalPeerInfoData.Sawtooth.Consensus
consensusNotifyEngineActivatedPeersData.Sawtooth.Consensus
ConsensusNotifyEngineDeactivated 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
ConsensusNotifyPeerConnected 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusNotifyPeerConnectedPeerInfoData.Sawtooth.Consensus
ConsensusNotifyPeerDisconnected 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusNotifyPeerDisconnectedPeerIdData.Sawtooth.Consensus
ConsensusNotifyPeerMessage 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusNotifyPeerMessageMessageData.Sawtooth.Consensus
consensusNotifyPeerMessageSenderIdData.Sawtooth.Consensus
ConsensusPeerInfo 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusPeerInfoPeerIdData.Sawtooth.Consensus
ConsensusPeerMessage 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusPeerMessageContentData.Sawtooth.Consensus
ConsensusPeerMessageHeader 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusPeerMessageHeaderData.Sawtooth.Consensus
consensusPeerMessageHeaderContentSha512Data.Sawtooth.Consensus
consensusPeerMessageHeaderMessageTypeData.Sawtooth.Consensus
consensusPeerMessageHeaderNameData.Sawtooth.Consensus
consensusPeerMessageHeaderSignatureData.Sawtooth.Consensus
consensusPeerMessageHeaderSignerIdData.Sawtooth.Consensus
consensusPeerMessageHeaderVersionData.Sawtooth.Consensus
ConsensusRegisterRequest 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusRegisterRequestAdditionalProtocolsData.Sawtooth.Consensus
consensusRegisterRequestNameData.Sawtooth.Consensus
consensusRegisterRequestVersionData.Sawtooth.Consensus
ConsensusRegisterRequest_Protocol 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusRegisterRequest_ProtocolNameData.Sawtooth.Consensus
consensusRegisterRequest_ProtocolVersionData.Sawtooth.Consensus
ConsensusRegisterResponse 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusRegisterResponseChainHeadData.Sawtooth.Consensus
consensusRegisterResponseLocalPeerInfoData.Sawtooth.Consensus
consensusRegisterResponsePeersData.Sawtooth.Consensus
consensusRegisterResponseStatusData.Sawtooth.Consensus
ConsensusRegisterResponse_StatusData.Sawtooth.Consensus
ConsensusRegisterResponse_StatusBAD_REQUESTData.Sawtooth.Consensus
ConsensusRegisterResponse_StatusNOT_READYData.Sawtooth.Consensus
ConsensusRegisterResponse_StatusOKData.Sawtooth.Consensus
ConsensusRegisterResponse_StatusSERVICE_ERRORData.Sawtooth.Consensus
ConsensusRegisterResponse_StatusSTATUS_UNSETData.Sawtooth.Consensus
ConsensusSendToRequest 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusSendToRequestContentData.Sawtooth.Consensus
consensusSendToRequestMessageTypeData.Sawtooth.Consensus
consensusSendToRequestReceiverIdData.Sawtooth.Consensus
ConsensusSendToResponse 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusSendToResponseStatusData.Sawtooth.Consensus
ConsensusSendToResponse_StatusData.Sawtooth.Consensus
ConsensusSendToResponse_StatusBAD_REQUESTData.Sawtooth.Consensus
ConsensusSendToResponse_StatusNOT_ACTIVE_ENGINEData.Sawtooth.Consensus
ConsensusSendToResponse_StatusNOT_READYData.Sawtooth.Consensus
ConsensusSendToResponse_StatusOKData.Sawtooth.Consensus
ConsensusSendToResponse_StatusSERVICE_ERRORData.Sawtooth.Consensus
ConsensusSendToResponse_StatusSTATUS_UNSETData.Sawtooth.Consensus
ConsensusSendToResponse_StatusUNKNOWN_PEERData.Sawtooth.Consensus
ConsensusSettingsEntry 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusSettingsEntryKeyData.Sawtooth.Consensus
consensusSettingsEntryValueData.Sawtooth.Consensus
ConsensusSettingsGetRequest 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusSettingsGetRequestBlockIdData.Sawtooth.Consensus
consensusSettingsGetRequestKeysData.Sawtooth.Consensus
ConsensusSettingsGetResponse 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusSettingsGetResponseEntriesData.Sawtooth.Consensus
consensusSettingsGetResponseStatusData.Sawtooth.Consensus
ConsensusSettingsGetResponse_StatusData.Sawtooth.Consensus
ConsensusSettingsGetResponse_StatusBAD_REQUESTData.Sawtooth.Consensus
ConsensusSettingsGetResponse_StatusNOT_ACTIVE_ENGINEData.Sawtooth.Consensus
ConsensusSettingsGetResponse_StatusNOT_READYData.Sawtooth.Consensus
ConsensusSettingsGetResponse_StatusOKData.Sawtooth.Consensus
ConsensusSettingsGetResponse_StatusSERVICE_ERRORData.Sawtooth.Consensus
ConsensusSettingsGetResponse_StatusSTATUS_UNSETData.Sawtooth.Consensus
ConsensusSettingsGetResponse_StatusUNKNOWN_BLOCKData.Sawtooth.Consensus
ConsensusStateEntry 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusStateEntryAddressData.Sawtooth.Consensus
consensusStateEntryDataData.Sawtooth.Consensus
ConsensusStateGetRequest 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusStateGetRequestAddressesData.Sawtooth.Consensus
consensusStateGetRequestBlockIdData.Sawtooth.Consensus
ConsensusStateGetResponse 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusStateGetResponseEntriesData.Sawtooth.Consensus
consensusStateGetResponseStatusData.Sawtooth.Consensus
ConsensusStateGetResponse_StatusData.Sawtooth.Consensus
ConsensusStateGetResponse_StatusBAD_REQUESTData.Sawtooth.Consensus
ConsensusStateGetResponse_StatusNOT_ACTIVE_ENGINEData.Sawtooth.Consensus
ConsensusStateGetResponse_StatusNOT_READYData.Sawtooth.Consensus
ConsensusStateGetResponse_StatusOKData.Sawtooth.Consensus
ConsensusStateGetResponse_StatusSERVICE_ERRORData.Sawtooth.Consensus
ConsensusStateGetResponse_StatusSTATUS_UNSETData.Sawtooth.Consensus
ConsensusStateGetResponse_StatusUNKNOWN_BLOCKData.Sawtooth.Consensus
ConsensusSummarizeBlockRequest 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
ConsensusSummarizeBlockResponse 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusSummarizeBlockResponseStatusData.Sawtooth.Consensus
consensusSummarizeBlockResponseSummaryData.Sawtooth.Consensus
ConsensusSummarizeBlockResponse_StatusData.Sawtooth.Consensus
ConsensusSummarizeBlockResponse_StatusBAD_REQUESTData.Sawtooth.Consensus
ConsensusSummarizeBlockResponse_StatusBLOCK_NOT_READYData.Sawtooth.Consensus
ConsensusSummarizeBlockResponse_StatusINVALID_STATEData.Sawtooth.Consensus
ConsensusSummarizeBlockResponse_StatusNOT_ACTIVE_ENGINEData.Sawtooth.Consensus
ConsensusSummarizeBlockResponse_StatusNOT_READYData.Sawtooth.Consensus
ConsensusSummarizeBlockResponse_StatusOKData.Sawtooth.Consensus
ConsensusSummarizeBlockResponse_StatusSERVICE_ERRORData.Sawtooth.Consensus
ConsensusSummarizeBlockResponse_StatusSTATUS_UNSETData.Sawtooth.Consensus
\ No newline at end of file +sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types (Index - C)
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types

Index - C

ChangeLogEntry 
1 (Type/Class)Data.Sawtooth.Merkle
2 (Data Constructor)Data.Sawtooth.Merkle
changeLogEntryAdditionsData.Sawtooth.Merkle
changeLogEntryParentData.Sawtooth.Merkle
changeLogEntrySuccessorsData.Sawtooth.Merkle
ChangeLogEntry_Successor 
1 (Type/Class)Data.Sawtooth.Merkle
2 (Data Constructor)Data.Sawtooth.Merkle
changeLogEntry_SuccessorDeletionsData.Sawtooth.Merkle
changeLogEntry_SuccessorSuccessorData.Sawtooth.Merkle
ClientBatchGetRequest 
1 (Type/Class)Data.Sawtooth.ClientBatch
2 (Data Constructor)Data.Sawtooth.ClientBatch
clientBatchGetRequestBatchIdData.Sawtooth.ClientBatch
ClientBatchGetResponse 
1 (Type/Class)Data.Sawtooth.ClientBatch
2 (Data Constructor)Data.Sawtooth.ClientBatch
clientBatchGetResponseBatchData.Sawtooth.ClientBatch
clientBatchGetResponseStatusData.Sawtooth.ClientBatch
ClientBatchGetResponse_StatusData.Sawtooth.ClientBatch
ClientBatchGetResponse_StatusINTERNAL_ERRORData.Sawtooth.ClientBatch
ClientBatchGetResponse_StatusINVALID_IDData.Sawtooth.ClientBatch
ClientBatchGetResponse_StatusNO_RESOURCEData.Sawtooth.ClientBatch
ClientBatchGetResponse_StatusOKData.Sawtooth.ClientBatch
ClientBatchGetResponse_StatusSTATUS_UNSETData.Sawtooth.ClientBatch
ClientBatchListRequest 
1 (Type/Class)Data.Sawtooth.ClientBatch
2 (Data Constructor)Data.Sawtooth.ClientBatch
clientBatchListRequestBatchIdsData.Sawtooth.ClientBatch
clientBatchListRequestHeadIdData.Sawtooth.ClientBatch
clientBatchListRequestPagingData.Sawtooth.ClientBatch
clientBatchListRequestSortingData.Sawtooth.ClientBatch
ClientBatchListResponse 
1 (Type/Class)Data.Sawtooth.ClientBatch
2 (Data Constructor)Data.Sawtooth.ClientBatch
clientBatchListResponseBatchesData.Sawtooth.ClientBatch
clientBatchListResponseHeadIdData.Sawtooth.ClientBatch
clientBatchListResponsePagingData.Sawtooth.ClientBatch
clientBatchListResponseStatusData.Sawtooth.ClientBatch
ClientBatchListResponse_StatusData.Sawtooth.ClientBatch
ClientBatchListResponse_StatusINTERNAL_ERRORData.Sawtooth.ClientBatch
ClientBatchListResponse_StatusINVALID_IDData.Sawtooth.ClientBatch
ClientBatchListResponse_StatusINVALID_PAGINGData.Sawtooth.ClientBatch
ClientBatchListResponse_StatusINVALID_SORTData.Sawtooth.ClientBatch
ClientBatchListResponse_StatusNOT_READYData.Sawtooth.ClientBatch
ClientBatchListResponse_StatusNO_RESOURCEData.Sawtooth.ClientBatch
ClientBatchListResponse_StatusNO_ROOTData.Sawtooth.ClientBatch
ClientBatchListResponse_StatusOKData.Sawtooth.ClientBatch
ClientBatchListResponse_StatusSTATUS_UNSETData.Sawtooth.ClientBatch
ClientBatchStatus 
1 (Type/Class)Data.Sawtooth.ClientBatchSubmit
2 (Data Constructor)Data.Sawtooth.ClientBatchSubmit
clientBatchStatusBatchIdData.Sawtooth.ClientBatchSubmit
clientBatchStatusInvalidTransactionsData.Sawtooth.ClientBatchSubmit
ClientBatchStatusRequest 
1 (Type/Class)Data.Sawtooth.ClientBatchSubmit
2 (Data Constructor)Data.Sawtooth.ClientBatchSubmit
clientBatchStatusRequestBatchIdsData.Sawtooth.ClientBatchSubmit
clientBatchStatusRequestTimeoutData.Sawtooth.ClientBatchSubmit
clientBatchStatusRequestWaitData.Sawtooth.ClientBatchSubmit
ClientBatchStatusResponse 
1 (Type/Class)Data.Sawtooth.ClientBatchSubmit
2 (Data Constructor)Data.Sawtooth.ClientBatchSubmit
clientBatchStatusResponseBatchStatusesData.Sawtooth.ClientBatchSubmit
clientBatchStatusResponseStatusData.Sawtooth.ClientBatchSubmit
ClientBatchStatusResponse_StatusData.Sawtooth.ClientBatchSubmit
ClientBatchStatusResponse_StatusINTERNAL_ERRORData.Sawtooth.ClientBatchSubmit
ClientBatchStatusResponse_StatusINVALID_IDData.Sawtooth.ClientBatchSubmit
ClientBatchStatusResponse_StatusNO_RESOURCEData.Sawtooth.ClientBatchSubmit
ClientBatchStatusResponse_StatusOKData.Sawtooth.ClientBatchSubmit
ClientBatchStatusResponse_StatusSTATUS_UNSETData.Sawtooth.ClientBatchSubmit
clientBatchStatusStatusData.Sawtooth.ClientBatchSubmit
ClientBatchStatus_InvalidTransaction 
1 (Type/Class)Data.Sawtooth.ClientBatchSubmit
2 (Data Constructor)Data.Sawtooth.ClientBatchSubmit
clientBatchStatus_InvalidTransactionExtendedDataData.Sawtooth.ClientBatchSubmit
clientBatchStatus_InvalidTransactionMessageData.Sawtooth.ClientBatchSubmit
clientBatchStatus_InvalidTransactionTransactionIdData.Sawtooth.ClientBatchSubmit
ClientBatchStatus_StatusData.Sawtooth.ClientBatchSubmit
ClientBatchStatus_StatusCOMMITTEDData.Sawtooth.ClientBatchSubmit
ClientBatchStatus_StatusINVALIDData.Sawtooth.ClientBatchSubmit
ClientBatchStatus_StatusPENDINGData.Sawtooth.ClientBatchSubmit
ClientBatchStatus_StatusSTATUS_UNSETData.Sawtooth.ClientBatchSubmit
ClientBatchStatus_StatusUNKNOWNData.Sawtooth.ClientBatchSubmit
ClientBatchSubmitRequest 
1 (Type/Class)Data.Sawtooth.ClientBatchSubmit
2 (Data Constructor)Data.Sawtooth.ClientBatchSubmit
clientBatchSubmitRequestBatchesData.Sawtooth.ClientBatchSubmit
ClientBatchSubmitResponse 
1 (Type/Class)Data.Sawtooth.ClientBatchSubmit
2 (Data Constructor)Data.Sawtooth.ClientBatchSubmit
clientBatchSubmitResponseStatusData.Sawtooth.ClientBatchSubmit
ClientBatchSubmitResponse_StatusData.Sawtooth.ClientBatchSubmit
ClientBatchSubmitResponse_StatusINTERNAL_ERRORData.Sawtooth.ClientBatchSubmit
ClientBatchSubmitResponse_StatusINVALID_BATCHData.Sawtooth.ClientBatchSubmit
ClientBatchSubmitResponse_StatusOKData.Sawtooth.ClientBatchSubmit
ClientBatchSubmitResponse_StatusQUEUE_FULLData.Sawtooth.ClientBatchSubmit
ClientBatchSubmitResponse_StatusSTATUS_UNSETData.Sawtooth.ClientBatchSubmit
ClientBlockGetByBatchIdRequest 
1 (Type/Class)Data.Sawtooth.ClientBlock
2 (Data Constructor)Data.Sawtooth.ClientBlock
clientBlockGetByBatchIdRequestBatchIdData.Sawtooth.ClientBlock
ClientBlockGetByIdRequest 
1 (Type/Class)Data.Sawtooth.ClientBlock
2 (Data Constructor)Data.Sawtooth.ClientBlock
clientBlockGetByIdRequestBlockIdData.Sawtooth.ClientBlock
ClientBlockGetByNumRequest 
1 (Type/Class)Data.Sawtooth.ClientBlock
2 (Data Constructor)Data.Sawtooth.ClientBlock
clientBlockGetByNumRequestBlockNumData.Sawtooth.ClientBlock
ClientBlockGetByTransactionIdRequest 
1 (Type/Class)Data.Sawtooth.ClientBlock
2 (Data Constructor)Data.Sawtooth.ClientBlock
clientBlockGetByTransactionIdRequestTransactionIdData.Sawtooth.ClientBlock
ClientBlockGetResponse 
1 (Type/Class)Data.Sawtooth.ClientBlock
2 (Data Constructor)Data.Sawtooth.ClientBlock
clientBlockGetResponseBlockData.Sawtooth.ClientBlock
clientBlockGetResponseStatusData.Sawtooth.ClientBlock
ClientBlockGetResponse_StatusData.Sawtooth.ClientBlock
ClientBlockGetResponse_StatusINTERNAL_ERRORData.Sawtooth.ClientBlock
ClientBlockGetResponse_StatusINVALID_IDData.Sawtooth.ClientBlock
ClientBlockGetResponse_StatusNO_RESOURCEData.Sawtooth.ClientBlock
ClientBlockGetResponse_StatusOKData.Sawtooth.ClientBlock
ClientBlockGetResponse_StatusSTATUS_UNSETData.Sawtooth.ClientBlock
ClientBlockListRequest 
1 (Type/Class)Data.Sawtooth.ClientBlock
2 (Data Constructor)Data.Sawtooth.ClientBlock
clientBlockListRequestBlockIdsData.Sawtooth.ClientBlock
clientBlockListRequestHeadIdData.Sawtooth.ClientBlock
clientBlockListRequestPagingData.Sawtooth.ClientBlock
clientBlockListRequestSortingData.Sawtooth.ClientBlock
ClientBlockListResponse 
1 (Type/Class)Data.Sawtooth.ClientBlock
2 (Data Constructor)Data.Sawtooth.ClientBlock
clientBlockListResponseBlocksData.Sawtooth.ClientBlock
clientBlockListResponseHeadIdData.Sawtooth.ClientBlock
clientBlockListResponsePagingData.Sawtooth.ClientBlock
clientBlockListResponseStatusData.Sawtooth.ClientBlock
ClientBlockListResponse_StatusData.Sawtooth.ClientBlock
ClientBlockListResponse_StatusINTERNAL_ERRORData.Sawtooth.ClientBlock
ClientBlockListResponse_StatusINVALID_IDData.Sawtooth.ClientBlock
ClientBlockListResponse_StatusINVALID_PAGINGData.Sawtooth.ClientBlock
ClientBlockListResponse_StatusINVALID_SORTData.Sawtooth.ClientBlock
ClientBlockListResponse_StatusNOT_READYData.Sawtooth.ClientBlock
ClientBlockListResponse_StatusNO_RESOURCEData.Sawtooth.ClientBlock
ClientBlockListResponse_StatusNO_ROOTData.Sawtooth.ClientBlock
ClientBlockListResponse_StatusOKData.Sawtooth.ClientBlock
ClientBlockListResponse_StatusSTATUS_UNSETData.Sawtooth.ClientBlock
ClientEventsGetRequest 
1 (Type/Class)Data.Sawtooth.ClientEvent
2 (Data Constructor)Data.Sawtooth.ClientEvent
clientEventsGetRequestBlockIdsData.Sawtooth.ClientEvent
clientEventsGetRequestSubscriptionsData.Sawtooth.ClientEvent
ClientEventsGetResponse 
1 (Type/Class)Data.Sawtooth.ClientEvent
2 (Data Constructor)Data.Sawtooth.ClientEvent
clientEventsGetResponseEventsData.Sawtooth.ClientEvent
clientEventsGetResponseStatusData.Sawtooth.ClientEvent
ClientEventsGetResponse_StatusData.Sawtooth.ClientEvent
ClientEventsGetResponse_StatusINTERNAL_ERRORData.Sawtooth.ClientEvent
ClientEventsGetResponse_StatusINVALID_FILTERData.Sawtooth.ClientEvent
ClientEventsGetResponse_StatusOKData.Sawtooth.ClientEvent
ClientEventsGetResponse_StatusSTATUS_UNSETData.Sawtooth.ClientEvent
ClientEventsGetResponse_StatusUNKNOWN_BLOCKData.Sawtooth.ClientEvent
ClientEventsSubscribeRequest 
1 (Type/Class)Data.Sawtooth.ClientEvent
2 (Data Constructor)Data.Sawtooth.ClientEvent
clientEventsSubscribeRequestLastKnownBlockIdsData.Sawtooth.ClientEvent
clientEventsSubscribeRequestSubscriptionsData.Sawtooth.ClientEvent
ClientEventsSubscribeResponse 
1 (Type/Class)Data.Sawtooth.ClientEvent
2 (Data Constructor)Data.Sawtooth.ClientEvent
clientEventsSubscribeResponseResponseMessageData.Sawtooth.ClientEvent
clientEventsSubscribeResponseStatusData.Sawtooth.ClientEvent
ClientEventsSubscribeResponse_StatusData.Sawtooth.ClientEvent
ClientEventsSubscribeResponse_StatusINVALID_FILTERData.Sawtooth.ClientEvent
ClientEventsSubscribeResponse_StatusOKData.Sawtooth.ClientEvent
ClientEventsSubscribeResponse_StatusSTATUS_UNSETData.Sawtooth.ClientEvent
ClientEventsSubscribeResponse_StatusUNKNOWN_BLOCKData.Sawtooth.ClientEvent
ClientEventsUnsubscribeRequest 
1 (Type/Class)Data.Sawtooth.ClientEvent
2 (Data Constructor)Data.Sawtooth.ClientEvent
ClientEventsUnsubscribeResponse 
1 (Type/Class)Data.Sawtooth.ClientEvent
2 (Data Constructor)Data.Sawtooth.ClientEvent
clientEventsUnsubscribeResponseStatusData.Sawtooth.ClientEvent
ClientEventsUnsubscribeResponse_StatusData.Sawtooth.ClientEvent
ClientEventsUnsubscribeResponse_StatusINTERNAL_ERRORData.Sawtooth.ClientEvent
ClientEventsUnsubscribeResponse_StatusOKData.Sawtooth.ClientEvent
ClientEventsUnsubscribeResponse_StatusSTATUS_UNSETData.Sawtooth.ClientEvent
ClientPagingControls 
1 (Type/Class)Data.Sawtooth.ClientListControl
2 (Data Constructor)Data.Sawtooth.ClientListControl
clientPagingControlsLimitData.Sawtooth.ClientListControl
clientPagingControlsStartData.Sawtooth.ClientListControl
ClientPagingResponse 
1 (Type/Class)Data.Sawtooth.ClientListControl
2 (Data Constructor)Data.Sawtooth.ClientListControl
clientPagingResponseLimitData.Sawtooth.ClientListControl
clientPagingResponseNextData.Sawtooth.ClientListControl
clientPagingResponseStartData.Sawtooth.ClientListControl
ClientPeersGetRequest 
1 (Type/Class)Data.Sawtooth.ClientPeers
2 (Data Constructor)Data.Sawtooth.ClientPeers
ClientPeersGetResponse 
1 (Type/Class)Data.Sawtooth.ClientPeers
2 (Data Constructor)Data.Sawtooth.ClientPeers
clientPeersGetResponsePeersData.Sawtooth.ClientPeers
clientPeersGetResponseStatusData.Sawtooth.ClientPeers
ClientPeersGetResponse_StatusData.Sawtooth.ClientPeers
ClientPeersGetResponse_StatusERRORData.Sawtooth.ClientPeers
ClientPeersGetResponse_StatusOKData.Sawtooth.ClientPeers
ClientPeersGetResponse_StatusSTATUS_UNSETData.Sawtooth.ClientPeers
ClientReceiptGetRequest 
1 (Type/Class)Data.Sawtooth.ClientReceipt
2 (Data Constructor)Data.Sawtooth.ClientReceipt
clientReceiptGetRequestTransactionIdsData.Sawtooth.ClientReceipt
ClientReceiptGetResponse 
1 (Type/Class)Data.Sawtooth.ClientReceipt
2 (Data Constructor)Data.Sawtooth.ClientReceipt
clientReceiptGetResponseReceiptsData.Sawtooth.ClientReceipt
clientReceiptGetResponseStatusData.Sawtooth.ClientReceipt
ClientReceiptGetResponse_StatusData.Sawtooth.ClientReceipt
ClientReceiptGetResponse_StatusINTERNAL_ERRORData.Sawtooth.ClientReceipt
ClientReceiptGetResponse_StatusINVALID_IDData.Sawtooth.ClientReceipt
ClientReceiptGetResponse_StatusNO_RESOURCEData.Sawtooth.ClientReceipt
ClientReceiptGetResponse_StatusOKData.Sawtooth.ClientReceipt
ClientReceiptGetResponse_StatusSTATUS_UNSETData.Sawtooth.ClientReceipt
ClientSortControls 
1 (Type/Class)Data.Sawtooth.ClientListControl
2 (Data Constructor)Data.Sawtooth.ClientListControl
clientSortControlsKeysData.Sawtooth.ClientListControl
clientSortControlsReverseData.Sawtooth.ClientListControl
ClientStateGetRequest 
1 (Type/Class)Data.Sawtooth.ClientState
2 (Data Constructor)Data.Sawtooth.ClientState
clientStateGetRequestAddressData.Sawtooth.ClientState
clientStateGetRequestStateRootData.Sawtooth.ClientState
ClientStateGetResponse 
1 (Type/Class)Data.Sawtooth.ClientState
2 (Data Constructor)Data.Sawtooth.ClientState
clientStateGetResponseStateRootData.Sawtooth.ClientState
clientStateGetResponseStatusData.Sawtooth.ClientState
clientStateGetResponseValueData.Sawtooth.ClientState
ClientStateGetResponse_StatusData.Sawtooth.ClientState
ClientStateGetResponse_StatusINTERNAL_ERRORData.Sawtooth.ClientState
ClientStateGetResponse_StatusINVALID_ADDRESSData.Sawtooth.ClientState
ClientStateGetResponse_StatusINVALID_ROOTData.Sawtooth.ClientState
ClientStateGetResponse_StatusNOT_READYData.Sawtooth.ClientState
ClientStateGetResponse_StatusNO_RESOURCEData.Sawtooth.ClientState
ClientStateGetResponse_StatusNO_ROOTData.Sawtooth.ClientState
ClientStateGetResponse_StatusOKData.Sawtooth.ClientState
ClientStateGetResponse_StatusSTATUS_UNSETData.Sawtooth.ClientState
ClientStateListRequest 
1 (Type/Class)Data.Sawtooth.ClientState
2 (Data Constructor)Data.Sawtooth.ClientState
clientStateListRequestAddressData.Sawtooth.ClientState
clientStateListRequestPagingData.Sawtooth.ClientState
clientStateListRequestSortingData.Sawtooth.ClientState
clientStateListRequestStateRootData.Sawtooth.ClientState
ClientStateListResponse 
1 (Type/Class)Data.Sawtooth.ClientState
2 (Data Constructor)Data.Sawtooth.ClientState
clientStateListResponseEntriesData.Sawtooth.ClientState
clientStateListResponsePagingData.Sawtooth.ClientState
clientStateListResponseStateRootData.Sawtooth.ClientState
clientStateListResponseStatusData.Sawtooth.ClientState
ClientStateListResponse_Entry 
1 (Type/Class)Data.Sawtooth.ClientState
2 (Data Constructor)Data.Sawtooth.ClientState
clientStateListResponse_EntryAddressData.Sawtooth.ClientState
clientStateListResponse_EntryDataData.Sawtooth.ClientState
ClientStateListResponse_StatusData.Sawtooth.ClientState
ClientStateListResponse_StatusINTERNAL_ERRORData.Sawtooth.ClientState
ClientStateListResponse_StatusINVALID_ADDRESSData.Sawtooth.ClientState
ClientStateListResponse_StatusINVALID_PAGINGData.Sawtooth.ClientState
ClientStateListResponse_StatusINVALID_ROOTData.Sawtooth.ClientState
ClientStateListResponse_StatusINVALID_SORTData.Sawtooth.ClientState
ClientStateListResponse_StatusNOT_READYData.Sawtooth.ClientState
ClientStateListResponse_StatusNO_RESOURCEData.Sawtooth.ClientState
ClientStateListResponse_StatusNO_ROOTData.Sawtooth.ClientState
ClientStateListResponse_StatusOKData.Sawtooth.ClientState
ClientStateListResponse_StatusSTATUS_UNSETData.Sawtooth.ClientState
ClientStatusGetRequest 
1 (Type/Class)Data.Sawtooth.ClientStatus
2 (Data Constructor)Data.Sawtooth.ClientStatus
ClientStatusGetResponse 
1 (Type/Class)Data.Sawtooth.ClientStatus
2 (Data Constructor)Data.Sawtooth.ClientStatus
clientStatusGetResponseEndpointData.Sawtooth.ClientStatus
clientStatusGetResponsePeersData.Sawtooth.ClientStatus
clientStatusGetResponseStatusData.Sawtooth.ClientStatus
ClientStatusGetResponse_Peer 
1 (Type/Class)Data.Sawtooth.ClientStatus
2 (Data Constructor)Data.Sawtooth.ClientStatus
clientStatusGetResponse_PeerEndpointData.Sawtooth.ClientStatus
ClientStatusGetResponse_StatusData.Sawtooth.ClientStatus
ClientStatusGetResponse_StatusERRORData.Sawtooth.ClientStatus
ClientStatusGetResponse_StatusOKData.Sawtooth.ClientStatus
ClientStatusGetResponse_StatusSTATUS_UNSETData.Sawtooth.ClientStatus
ClientTransactionGetRequest 
1 (Type/Class)Data.Sawtooth.ClientTransaction
2 (Data Constructor)Data.Sawtooth.ClientTransaction
clientTransactionGetRequestTransactionIdData.Sawtooth.ClientTransaction
ClientTransactionGetResponse 
1 (Type/Class)Data.Sawtooth.ClientTransaction
2 (Data Constructor)Data.Sawtooth.ClientTransaction
clientTransactionGetResponseStatusData.Sawtooth.ClientTransaction
clientTransactionGetResponseTransactionData.Sawtooth.ClientTransaction
ClientTransactionGetResponse_StatusData.Sawtooth.ClientTransaction
ClientTransactionGetResponse_StatusINTERNAL_ERRORData.Sawtooth.ClientTransaction
ClientTransactionGetResponse_StatusINVALID_IDData.Sawtooth.ClientTransaction
ClientTransactionGetResponse_StatusNO_RESOURCEData.Sawtooth.ClientTransaction
ClientTransactionGetResponse_StatusOKData.Sawtooth.ClientTransaction
ClientTransactionGetResponse_StatusSTATUS_UNSETData.Sawtooth.ClientTransaction
ClientTransactionListRequest 
1 (Type/Class)Data.Sawtooth.ClientTransaction
2 (Data Constructor)Data.Sawtooth.ClientTransaction
clientTransactionListRequestHeadIdData.Sawtooth.ClientTransaction
clientTransactionListRequestPagingData.Sawtooth.ClientTransaction
clientTransactionListRequestSortingData.Sawtooth.ClientTransaction
clientTransactionListRequestTransactionIdsData.Sawtooth.ClientTransaction
ClientTransactionListResponse 
1 (Type/Class)Data.Sawtooth.ClientTransaction
2 (Data Constructor)Data.Sawtooth.ClientTransaction
clientTransactionListResponseHeadIdData.Sawtooth.ClientTransaction
clientTransactionListResponsePagingData.Sawtooth.ClientTransaction
clientTransactionListResponseStatusData.Sawtooth.ClientTransaction
clientTransactionListResponseTransactionsData.Sawtooth.ClientTransaction
ClientTransactionListResponse_StatusData.Sawtooth.ClientTransaction
ClientTransactionListResponse_StatusINTERNAL_ERRORData.Sawtooth.ClientTransaction
ClientTransactionListResponse_StatusINVALID_IDData.Sawtooth.ClientTransaction
ClientTransactionListResponse_StatusINVALID_PAGINGData.Sawtooth.ClientTransaction
ClientTransactionListResponse_StatusINVALID_SORTData.Sawtooth.ClientTransaction
ClientTransactionListResponse_StatusNOT_READYData.Sawtooth.ClientTransaction
ClientTransactionListResponse_StatusNO_RESOURCEData.Sawtooth.ClientTransaction
ClientTransactionListResponse_StatusNO_ROOTData.Sawtooth.ClientTransaction
ClientTransactionListResponse_StatusOKData.Sawtooth.ClientTransaction
ClientTransactionListResponse_StatusSTATUS_UNSETData.Sawtooth.ClientTransaction
ConnectionRequest 
1 (Type/Class)Data.Sawtooth.Authorization
2 (Data Constructor)Data.Sawtooth.Authorization
connectionRequestEndpointData.Sawtooth.Authorization
ConnectionResponse 
1 (Type/Class)Data.Sawtooth.Authorization
2 (Data Constructor)Data.Sawtooth.Authorization
connectionResponseRolesData.Sawtooth.Authorization
connectionResponseStatusData.Sawtooth.Authorization
ConnectionResponse_AuthorizationTypeData.Sawtooth.Authorization
ConnectionResponse_AuthorizationTypeAUTHORIZATION_TYPE_UNSETData.Sawtooth.Authorization
ConnectionResponse_AuthorizationTypeCHALLENGEData.Sawtooth.Authorization
ConnectionResponse_AuthorizationTypeTRUSTData.Sawtooth.Authorization
ConnectionResponse_RoleEntry 
1 (Type/Class)Data.Sawtooth.Authorization
2 (Data Constructor)Data.Sawtooth.Authorization
connectionResponse_RoleEntryAuthTypeData.Sawtooth.Authorization
connectionResponse_RoleEntryRoleData.Sawtooth.Authorization
ConnectionResponse_StatusData.Sawtooth.Authorization
ConnectionResponse_StatusERRORData.Sawtooth.Authorization
ConnectionResponse_StatusOKData.Sawtooth.Authorization
ConnectionResponse_StatusSTATUS_UNSETData.Sawtooth.Authorization
ConsensusBlock 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusBlockBlockIdData.Sawtooth.Consensus
consensusBlockBlockNumData.Sawtooth.Consensus
consensusBlockPayloadData.Sawtooth.Consensus
consensusBlockPreviousIdData.Sawtooth.Consensus
ConsensusBlocksGetRequest 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusBlocksGetRequestBlockIdsData.Sawtooth.Consensus
ConsensusBlocksGetResponse 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusBlocksGetResponseBlocksData.Sawtooth.Consensus
consensusBlocksGetResponseStatusData.Sawtooth.Consensus
ConsensusBlocksGetResponse_StatusData.Sawtooth.Consensus
ConsensusBlocksGetResponse_StatusBAD_REQUESTData.Sawtooth.Consensus
ConsensusBlocksGetResponse_StatusNOT_ACTIVE_ENGINEData.Sawtooth.Consensus
ConsensusBlocksGetResponse_StatusNOT_READYData.Sawtooth.Consensus
ConsensusBlocksGetResponse_StatusOKData.Sawtooth.Consensus
ConsensusBlocksGetResponse_StatusSERVICE_ERRORData.Sawtooth.Consensus
ConsensusBlocksGetResponse_StatusSTATUS_UNSETData.Sawtooth.Consensus
ConsensusBlocksGetResponse_StatusUNKNOWN_BLOCKData.Sawtooth.Consensus
consensusBlockSignerIdData.Sawtooth.Consensus
consensusBlockSummaryData.Sawtooth.Consensus
ConsensusBroadcastRequest 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusBroadcastRequestContentData.Sawtooth.Consensus
consensusBroadcastRequestMessageTypeData.Sawtooth.Consensus
ConsensusBroadcastResponse 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusBroadcastResponseStatusData.Sawtooth.Consensus
ConsensusBroadcastResponse_StatusData.Sawtooth.Consensus
ConsensusBroadcastResponse_StatusBAD_REQUESTData.Sawtooth.Consensus
ConsensusBroadcastResponse_StatusNOT_ACTIVE_ENGINEData.Sawtooth.Consensus
ConsensusBroadcastResponse_StatusNOT_READYData.Sawtooth.Consensus
ConsensusBroadcastResponse_StatusOKData.Sawtooth.Consensus
ConsensusBroadcastResponse_StatusSERVICE_ERRORData.Sawtooth.Consensus
ConsensusBroadcastResponse_StatusSTATUS_UNSETData.Sawtooth.Consensus
ConsensusCancelBlockRequest 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
ConsensusCancelBlockResponse 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusCancelBlockResponseStatusData.Sawtooth.Consensus
ConsensusCancelBlockResponse_StatusData.Sawtooth.Consensus
ConsensusCancelBlockResponse_StatusBAD_REQUESTData.Sawtooth.Consensus
ConsensusCancelBlockResponse_StatusINVALID_STATEData.Sawtooth.Consensus
ConsensusCancelBlockResponse_StatusNOT_ACTIVE_ENGINEData.Sawtooth.Consensus
ConsensusCancelBlockResponse_StatusNOT_READYData.Sawtooth.Consensus
ConsensusCancelBlockResponse_StatusOKData.Sawtooth.Consensus
ConsensusCancelBlockResponse_StatusSERVICE_ERRORData.Sawtooth.Consensus
ConsensusCancelBlockResponse_StatusSTATUS_UNSETData.Sawtooth.Consensus
ConsensusChainHeadGetRequest 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
ConsensusChainHeadGetResponse 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusChainHeadGetResponseBlockData.Sawtooth.Consensus
consensusChainHeadGetResponseStatusData.Sawtooth.Consensus
ConsensusChainHeadGetResponse_StatusData.Sawtooth.Consensus
ConsensusChainHeadGetResponse_StatusBAD_REQUESTData.Sawtooth.Consensus
ConsensusChainHeadGetResponse_StatusNOT_ACTIVE_ENGINEData.Sawtooth.Consensus
ConsensusChainHeadGetResponse_StatusNOT_READYData.Sawtooth.Consensus
ConsensusChainHeadGetResponse_StatusNO_CHAIN_HEADData.Sawtooth.Consensus
ConsensusChainHeadGetResponse_StatusOKData.Sawtooth.Consensus
ConsensusChainHeadGetResponse_StatusSERVICE_ERRORData.Sawtooth.Consensus
ConsensusChainHeadGetResponse_StatusSTATUS_UNSETData.Sawtooth.Consensus
ConsensusCheckBlocksRequest 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusCheckBlocksRequestBlockIdsData.Sawtooth.Consensus
ConsensusCheckBlocksResponse 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusCheckBlocksResponseStatusData.Sawtooth.Consensus
ConsensusCheckBlocksResponse_StatusData.Sawtooth.Consensus
ConsensusCheckBlocksResponse_StatusBAD_REQUESTData.Sawtooth.Consensus
ConsensusCheckBlocksResponse_StatusNOT_ACTIVE_ENGINEData.Sawtooth.Consensus
ConsensusCheckBlocksResponse_StatusNOT_READYData.Sawtooth.Consensus
ConsensusCheckBlocksResponse_StatusOKData.Sawtooth.Consensus
ConsensusCheckBlocksResponse_StatusSERVICE_ERRORData.Sawtooth.Consensus
ConsensusCheckBlocksResponse_StatusSTATUS_UNSETData.Sawtooth.Consensus
ConsensusCheckBlocksResponse_StatusUNKNOWN_BLOCKData.Sawtooth.Consensus
ConsensusCommitBlockRequest 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusCommitBlockRequestBlockIdData.Sawtooth.Consensus
ConsensusCommitBlockResponse 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusCommitBlockResponseStatusData.Sawtooth.Consensus
ConsensusCommitBlockResponse_StatusData.Sawtooth.Consensus
ConsensusCommitBlockResponse_StatusBAD_REQUESTData.Sawtooth.Consensus
ConsensusCommitBlockResponse_StatusNOT_ACTIVE_ENGINEData.Sawtooth.Consensus
ConsensusCommitBlockResponse_StatusNOT_READYData.Sawtooth.Consensus
ConsensusCommitBlockResponse_StatusOKData.Sawtooth.Consensus
ConsensusCommitBlockResponse_StatusSERVICE_ERRORData.Sawtooth.Consensus
ConsensusCommitBlockResponse_StatusSTATUS_UNSETData.Sawtooth.Consensus
ConsensusCommitBlockResponse_StatusUNKNOWN_BLOCKData.Sawtooth.Consensus
ConsensusFailBlockRequest 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusFailBlockRequestBlockIdData.Sawtooth.Consensus
ConsensusFailBlockResponse 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusFailBlockResponseStatusData.Sawtooth.Consensus
ConsensusFailBlockResponse_StatusData.Sawtooth.Consensus
ConsensusFailBlockResponse_StatusBAD_REQUESTData.Sawtooth.Consensus
ConsensusFailBlockResponse_StatusNOT_ACTIVE_ENGINEData.Sawtooth.Consensus
ConsensusFailBlockResponse_StatusNOT_READYData.Sawtooth.Consensus
ConsensusFailBlockResponse_StatusOKData.Sawtooth.Consensus
ConsensusFailBlockResponse_StatusSERVICE_ERRORData.Sawtooth.Consensus
ConsensusFailBlockResponse_StatusSTATUS_UNSETData.Sawtooth.Consensus
ConsensusFailBlockResponse_StatusUNKNOWN_BLOCKData.Sawtooth.Consensus
ConsensusFinalizeBlockRequest 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusFinalizeBlockRequestDataData.Sawtooth.Consensus
ConsensusFinalizeBlockResponse 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusFinalizeBlockResponseBlockIdData.Sawtooth.Consensus
consensusFinalizeBlockResponseStatusData.Sawtooth.Consensus
ConsensusFinalizeBlockResponse_StatusData.Sawtooth.Consensus
ConsensusFinalizeBlockResponse_StatusBAD_REQUESTData.Sawtooth.Consensus
ConsensusFinalizeBlockResponse_StatusBLOCK_NOT_READYData.Sawtooth.Consensus
ConsensusFinalizeBlockResponse_StatusINVALID_STATEData.Sawtooth.Consensus
ConsensusFinalizeBlockResponse_StatusNOT_ACTIVE_ENGINEData.Sawtooth.Consensus
ConsensusFinalizeBlockResponse_StatusNOT_READYData.Sawtooth.Consensus
ConsensusFinalizeBlockResponse_StatusOKData.Sawtooth.Consensus
ConsensusFinalizeBlockResponse_StatusSERVICE_ERRORData.Sawtooth.Consensus
ConsensusFinalizeBlockResponse_StatusSTATUS_UNSETData.Sawtooth.Consensus
ConsensusIgnoreBlockRequest 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusIgnoreBlockRequestBlockIdData.Sawtooth.Consensus
ConsensusIgnoreBlockResponse 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusIgnoreBlockResponseStatusData.Sawtooth.Consensus
ConsensusIgnoreBlockResponse_StatusData.Sawtooth.Consensus
ConsensusIgnoreBlockResponse_StatusBAD_REQUESTData.Sawtooth.Consensus
ConsensusIgnoreBlockResponse_StatusNOT_ACTIVE_ENGINEData.Sawtooth.Consensus
ConsensusIgnoreBlockResponse_StatusNOT_READYData.Sawtooth.Consensus
ConsensusIgnoreBlockResponse_StatusOKData.Sawtooth.Consensus
ConsensusIgnoreBlockResponse_StatusSERVICE_ERRORData.Sawtooth.Consensus
ConsensusIgnoreBlockResponse_StatusSTATUS_UNSETData.Sawtooth.Consensus
ConsensusIgnoreBlockResponse_StatusUNKNOWN_BLOCKData.Sawtooth.Consensus
ConsensusInitializeBlockRequest 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusInitializeBlockRequestPreviousIdData.Sawtooth.Consensus
ConsensusInitializeBlockResponse 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusInitializeBlockResponseStatusData.Sawtooth.Consensus
ConsensusInitializeBlockResponse_StatusData.Sawtooth.Consensus
ConsensusInitializeBlockResponse_StatusBAD_REQUESTData.Sawtooth.Consensus
ConsensusInitializeBlockResponse_StatusINVALID_STATEData.Sawtooth.Consensus
ConsensusInitializeBlockResponse_StatusNOT_ACTIVE_ENGINEData.Sawtooth.Consensus
ConsensusInitializeBlockResponse_StatusNOT_READYData.Sawtooth.Consensus
ConsensusInitializeBlockResponse_StatusOKData.Sawtooth.Consensus
ConsensusInitializeBlockResponse_StatusSERVICE_ERRORData.Sawtooth.Consensus
ConsensusInitializeBlockResponse_StatusSTATUS_UNSETData.Sawtooth.Consensus
ConsensusInitializeBlockResponse_StatusUNKNOWN_BLOCKData.Sawtooth.Consensus
ConsensusNotifyAck 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
ConsensusNotifyBlockCommit 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusNotifyBlockCommitBlockIdData.Sawtooth.Consensus
ConsensusNotifyBlockInvalid 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusNotifyBlockInvalidBlockIdData.Sawtooth.Consensus
ConsensusNotifyBlockNew 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusNotifyBlockNewBlockData.Sawtooth.Consensus
ConsensusNotifyBlockValid 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusNotifyBlockValidBlockIdData.Sawtooth.Consensus
ConsensusNotifyEngineActivated 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusNotifyEngineActivatedChainHeadData.Sawtooth.Consensus
consensusNotifyEngineActivatedLocalPeerInfoData.Sawtooth.Consensus
consensusNotifyEngineActivatedPeersData.Sawtooth.Consensus
ConsensusNotifyEngineDeactivated 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
ConsensusNotifyPeerConnected 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusNotifyPeerConnectedPeerInfoData.Sawtooth.Consensus
ConsensusNotifyPeerDisconnected 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusNotifyPeerDisconnectedPeerIdData.Sawtooth.Consensus
ConsensusNotifyPeerMessage 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusNotifyPeerMessageMessageData.Sawtooth.Consensus
consensusNotifyPeerMessageSenderIdData.Sawtooth.Consensus
ConsensusPeerInfo 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusPeerInfoPeerIdData.Sawtooth.Consensus
ConsensusPeerMessage 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusPeerMessageContentData.Sawtooth.Consensus
ConsensusPeerMessageHeader 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusPeerMessageHeaderData.Sawtooth.Consensus
consensusPeerMessageHeaderContentSha512Data.Sawtooth.Consensus
consensusPeerMessageHeaderMessageTypeData.Sawtooth.Consensus
consensusPeerMessageHeaderNameData.Sawtooth.Consensus
consensusPeerMessageHeaderSignatureData.Sawtooth.Consensus
consensusPeerMessageHeaderSignerIdData.Sawtooth.Consensus
consensusPeerMessageHeaderVersionData.Sawtooth.Consensus
ConsensusRegisterRequest 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusRegisterRequestAdditionalProtocolsData.Sawtooth.Consensus
consensusRegisterRequestNameData.Sawtooth.Consensus
consensusRegisterRequestVersionData.Sawtooth.Consensus
ConsensusRegisterRequest_Protocol 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusRegisterRequest_ProtocolNameData.Sawtooth.Consensus
consensusRegisterRequest_ProtocolVersionData.Sawtooth.Consensus
ConsensusRegisterResponse 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusRegisterResponseChainHeadData.Sawtooth.Consensus
consensusRegisterResponseLocalPeerInfoData.Sawtooth.Consensus
consensusRegisterResponsePeersData.Sawtooth.Consensus
consensusRegisterResponseStatusData.Sawtooth.Consensus
ConsensusRegisterResponse_StatusData.Sawtooth.Consensus
ConsensusRegisterResponse_StatusBAD_REQUESTData.Sawtooth.Consensus
ConsensusRegisterResponse_StatusNOT_READYData.Sawtooth.Consensus
ConsensusRegisterResponse_StatusOKData.Sawtooth.Consensus
ConsensusRegisterResponse_StatusSERVICE_ERRORData.Sawtooth.Consensus
ConsensusRegisterResponse_StatusSTATUS_UNSETData.Sawtooth.Consensus
ConsensusSendToRequest 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusSendToRequestContentData.Sawtooth.Consensus
consensusSendToRequestMessageTypeData.Sawtooth.Consensus
consensusSendToRequestReceiverIdData.Sawtooth.Consensus
ConsensusSendToResponse 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusSendToResponseStatusData.Sawtooth.Consensus
ConsensusSendToResponse_StatusData.Sawtooth.Consensus
ConsensusSendToResponse_StatusBAD_REQUESTData.Sawtooth.Consensus
ConsensusSendToResponse_StatusNOT_ACTIVE_ENGINEData.Sawtooth.Consensus
ConsensusSendToResponse_StatusNOT_READYData.Sawtooth.Consensus
ConsensusSendToResponse_StatusOKData.Sawtooth.Consensus
ConsensusSendToResponse_StatusSERVICE_ERRORData.Sawtooth.Consensus
ConsensusSendToResponse_StatusSTATUS_UNSETData.Sawtooth.Consensus
ConsensusSendToResponse_StatusUNKNOWN_PEERData.Sawtooth.Consensus
ConsensusSettingsEntry 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusSettingsEntryKeyData.Sawtooth.Consensus
consensusSettingsEntryValueData.Sawtooth.Consensus
ConsensusSettingsGetRequest 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusSettingsGetRequestBlockIdData.Sawtooth.Consensus
consensusSettingsGetRequestKeysData.Sawtooth.Consensus
ConsensusSettingsGetResponse 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusSettingsGetResponseEntriesData.Sawtooth.Consensus
consensusSettingsGetResponseStatusData.Sawtooth.Consensus
ConsensusSettingsGetResponse_StatusData.Sawtooth.Consensus
ConsensusSettingsGetResponse_StatusBAD_REQUESTData.Sawtooth.Consensus
ConsensusSettingsGetResponse_StatusNOT_ACTIVE_ENGINEData.Sawtooth.Consensus
ConsensusSettingsGetResponse_StatusNOT_READYData.Sawtooth.Consensus
ConsensusSettingsGetResponse_StatusOKData.Sawtooth.Consensus
ConsensusSettingsGetResponse_StatusSERVICE_ERRORData.Sawtooth.Consensus
ConsensusSettingsGetResponse_StatusSTATUS_UNSETData.Sawtooth.Consensus
ConsensusSettingsGetResponse_StatusUNKNOWN_BLOCKData.Sawtooth.Consensus
ConsensusStateEntry 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusStateEntryAddressData.Sawtooth.Consensus
consensusStateEntryDataData.Sawtooth.Consensus
ConsensusStateGetRequest 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusStateGetRequestAddressesData.Sawtooth.Consensus
consensusStateGetRequestBlockIdData.Sawtooth.Consensus
ConsensusStateGetResponse 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusStateGetResponseEntriesData.Sawtooth.Consensus
consensusStateGetResponseStatusData.Sawtooth.Consensus
ConsensusStateGetResponse_StatusData.Sawtooth.Consensus
ConsensusStateGetResponse_StatusBAD_REQUESTData.Sawtooth.Consensus
ConsensusStateGetResponse_StatusNOT_ACTIVE_ENGINEData.Sawtooth.Consensus
ConsensusStateGetResponse_StatusNOT_READYData.Sawtooth.Consensus
ConsensusStateGetResponse_StatusOKData.Sawtooth.Consensus
ConsensusStateGetResponse_StatusSERVICE_ERRORData.Sawtooth.Consensus
ConsensusStateGetResponse_StatusSTATUS_UNSETData.Sawtooth.Consensus
ConsensusStateGetResponse_StatusUNKNOWN_BLOCKData.Sawtooth.Consensus
ConsensusSummarizeBlockRequest 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
ConsensusSummarizeBlockResponse 
1 (Type/Class)Data.Sawtooth.Consensus
2 (Data Constructor)Data.Sawtooth.Consensus
consensusSummarizeBlockResponseStatusData.Sawtooth.Consensus
consensusSummarizeBlockResponseSummaryData.Sawtooth.Consensus
ConsensusSummarizeBlockResponse_StatusData.Sawtooth.Consensus
ConsensusSummarizeBlockResponse_StatusBAD_REQUESTData.Sawtooth.Consensus
ConsensusSummarizeBlockResponse_StatusBLOCK_NOT_READYData.Sawtooth.Consensus
ConsensusSummarizeBlockResponse_StatusINVALID_STATEData.Sawtooth.Consensus
ConsensusSummarizeBlockResponse_StatusNOT_ACTIVE_ENGINEData.Sawtooth.Consensus
ConsensusSummarizeBlockResponse_StatusNOT_READYData.Sawtooth.Consensus
ConsensusSummarizeBlockResponse_StatusOKData.Sawtooth.Consensus
ConsensusSummarizeBlockResponse_StatusSERVICE_ERRORData.Sawtooth.Consensus
ConsensusSummarizeBlockResponse_StatusSTATUS_UNSETData.Sawtooth.Consensus
\ No newline at end of file diff --git a/doc-index-D.html b/doc-index-D.html index 40431eb..cab6976 100644 --- a/doc-index-D.html +++ b/doc-index-D.html @@ -1 +1 @@ -sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types (Index - D)
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types

Index - D

DisconnectMessage 
1 (Type/Class)Data.Sawtooth.Network
2 (Data Constructor)Data.Sawtooth.Network
\ No newline at end of file +sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types (Index - D)
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types

Index - D

DisconnectMessage 
1 (Type/Class)Data.Sawtooth.Network
2 (Data Constructor)Data.Sawtooth.Network
\ No newline at end of file diff --git a/doc-index-E.html b/doc-index-E.html index 62255d7..953879e 100644 --- a/doc-index-E.html +++ b/doc-index-E.html @@ -1 +1 @@ -sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types (Index - E)
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types

Index - E

Event 
1 (Type/Class)Data.Sawtooth.Events
2 (Data Constructor)Data.Sawtooth.Events
eventAttributesData.Sawtooth.Events
eventDataData.Sawtooth.Events
eventEventTypeData.Sawtooth.Events
EventFilter 
1 (Type/Class)Data.Sawtooth.Events
2 (Data Constructor)Data.Sawtooth.Events
eventFilterFilterTypeData.Sawtooth.Events
eventFilterKeyData.Sawtooth.Events
eventFilterMatchStringData.Sawtooth.Events
EventFilter_FilterTypeData.Sawtooth.Events
EventFilter_FilterTypeFILTER_TYPE_UNSETData.Sawtooth.Events
EventFilter_FilterTypeREGEX_ALLData.Sawtooth.Events
EventFilter_FilterTypeREGEX_ANYData.Sawtooth.Events
EventFilter_FilterTypeSIMPLE_ALLData.Sawtooth.Events
EventFilter_FilterTypeSIMPLE_ANYData.Sawtooth.Events
EventList 
1 (Type/Class)Data.Sawtooth.Events
2 (Data Constructor)Data.Sawtooth.Events
eventListEventsData.Sawtooth.Events
EventSubscription 
1 (Type/Class)Data.Sawtooth.Events
2 (Data Constructor)Data.Sawtooth.Events
eventSubscriptionEventTypeData.Sawtooth.Events
eventSubscriptionFiltersData.Sawtooth.Events
Event_Attribute 
1 (Type/Class)Data.Sawtooth.Events
2 (Data Constructor)Data.Sawtooth.Events
event_AttributeKeyData.Sawtooth.Events
event_AttributeValueData.Sawtooth.Events
\ No newline at end of file +sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types (Index - E)
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types

Index - E

Event 
1 (Type/Class)Data.Sawtooth.Events
2 (Data Constructor)Data.Sawtooth.Events
eventAttributesData.Sawtooth.Events
eventDataData.Sawtooth.Events
eventEventTypeData.Sawtooth.Events
EventFilter 
1 (Type/Class)Data.Sawtooth.Events
2 (Data Constructor)Data.Sawtooth.Events
eventFilterFilterTypeData.Sawtooth.Events
eventFilterKeyData.Sawtooth.Events
eventFilterMatchStringData.Sawtooth.Events
EventFilter_FilterTypeData.Sawtooth.Events
EventFilter_FilterTypeFILTER_TYPE_UNSETData.Sawtooth.Events
EventFilter_FilterTypeREGEX_ALLData.Sawtooth.Events
EventFilter_FilterTypeREGEX_ANYData.Sawtooth.Events
EventFilter_FilterTypeSIMPLE_ALLData.Sawtooth.Events
EventFilter_FilterTypeSIMPLE_ANYData.Sawtooth.Events
EventList 
1 (Type/Class)Data.Sawtooth.Events
2 (Data Constructor)Data.Sawtooth.Events
eventListEventsData.Sawtooth.Events
EventSubscription 
1 (Type/Class)Data.Sawtooth.Events
2 (Data Constructor)Data.Sawtooth.Events
eventSubscriptionEventTypeData.Sawtooth.Events
eventSubscriptionFiltersData.Sawtooth.Events
Event_Attribute 
1 (Type/Class)Data.Sawtooth.Events
2 (Data Constructor)Data.Sawtooth.Events
event_AttributeKeyData.Sawtooth.Events
event_AttributeValueData.Sawtooth.Events
\ No newline at end of file diff --git a/doc-index-G.html b/doc-index-G.html index a37f041..d17d2ae 100644 --- a/doc-index-G.html +++ b/doc-index-G.html @@ -1 +1 @@ -sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types (Index - G)
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types

Index - G

GenesisData 
1 (Type/Class)Data.Sawtooth.Genesis
2 (Data Constructor)Data.Sawtooth.Genesis
genesisDataBatchesData.Sawtooth.Genesis
GetPeersRequest 
1 (Type/Class)Data.Sawtooth.Network
2 (Data Constructor)Data.Sawtooth.Network
GetPeersResponse 
1 (Type/Class)Data.Sawtooth.Network
2 (Data Constructor)Data.Sawtooth.Network
getPeersResponsePeerEndpointsData.Sawtooth.Network
GossipBatchByBatchIdRequest 
1 (Type/Class)Data.Sawtooth.Network
2 (Data Constructor)Data.Sawtooth.Network
gossipBatchByBatchIdRequestIdData.Sawtooth.Network
gossipBatchByBatchIdRequestNonceData.Sawtooth.Network
gossipBatchByBatchIdRequestTimeToLiveData.Sawtooth.Network
GossipBatchByTransactionIdRequest 
1 (Type/Class)Data.Sawtooth.Network
2 (Data Constructor)Data.Sawtooth.Network
gossipBatchByTransactionIdRequestIdsData.Sawtooth.Network
gossipBatchByTransactionIdRequestNonceData.Sawtooth.Network
gossipBatchByTransactionIdRequestTimeToLiveData.Sawtooth.Network
GossipBatchResponse 
1 (Type/Class)Data.Sawtooth.Network
2 (Data Constructor)Data.Sawtooth.Network
gossipBatchResponseContentData.Sawtooth.Network
GossipBlockRequest 
1 (Type/Class)Data.Sawtooth.Network
2 (Data Constructor)Data.Sawtooth.Network
gossipBlockRequestBlockIdData.Sawtooth.Network
gossipBlockRequestNonceData.Sawtooth.Network
gossipBlockRequestTimeToLiveData.Sawtooth.Network
GossipBlockResponse 
1 (Type/Class)Data.Sawtooth.Network
2 (Data Constructor)Data.Sawtooth.Network
gossipBlockResponseContentData.Sawtooth.Network
GossipMessage 
1 (Type/Class)Data.Sawtooth.Network
2 (Data Constructor)Data.Sawtooth.Network
gossipMessageContentData.Sawtooth.Network
gossipMessageContentTypeData.Sawtooth.Network
gossipMessageTimeToLiveData.Sawtooth.Network
GossipMessage_ContentTypeData.Sawtooth.Network
GossipMessage_ContentTypeBATCHData.Sawtooth.Network
GossipMessage_ContentTypeBLOCKData.Sawtooth.Network
GossipMessage_ContentTypeCONSENSUSData.Sawtooth.Network
GossipMessage_ContentTypeCONTENT_TYPE_UNSETData.Sawtooth.Network
\ No newline at end of file +sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types (Index - G)
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types

Index - G

GenesisData 
1 (Type/Class)Data.Sawtooth.Genesis
2 (Data Constructor)Data.Sawtooth.Genesis
genesisDataBatchesData.Sawtooth.Genesis
GetPeersRequest 
1 (Type/Class)Data.Sawtooth.Network
2 (Data Constructor)Data.Sawtooth.Network
GetPeersResponse 
1 (Type/Class)Data.Sawtooth.Network
2 (Data Constructor)Data.Sawtooth.Network
getPeersResponsePeerEndpointsData.Sawtooth.Network
GossipBatchByBatchIdRequest 
1 (Type/Class)Data.Sawtooth.Network
2 (Data Constructor)Data.Sawtooth.Network
gossipBatchByBatchIdRequestIdData.Sawtooth.Network
gossipBatchByBatchIdRequestNonceData.Sawtooth.Network
gossipBatchByBatchIdRequestTimeToLiveData.Sawtooth.Network
GossipBatchByTransactionIdRequest 
1 (Type/Class)Data.Sawtooth.Network
2 (Data Constructor)Data.Sawtooth.Network
gossipBatchByTransactionIdRequestIdsData.Sawtooth.Network
gossipBatchByTransactionIdRequestNonceData.Sawtooth.Network
gossipBatchByTransactionIdRequestTimeToLiveData.Sawtooth.Network
GossipBatchResponse 
1 (Type/Class)Data.Sawtooth.Network
2 (Data Constructor)Data.Sawtooth.Network
gossipBatchResponseContentData.Sawtooth.Network
GossipBlockRequest 
1 (Type/Class)Data.Sawtooth.Network
2 (Data Constructor)Data.Sawtooth.Network
gossipBlockRequestBlockIdData.Sawtooth.Network
gossipBlockRequestNonceData.Sawtooth.Network
gossipBlockRequestTimeToLiveData.Sawtooth.Network
GossipBlockResponse 
1 (Type/Class)Data.Sawtooth.Network
2 (Data Constructor)Data.Sawtooth.Network
gossipBlockResponseContentData.Sawtooth.Network
GossipMessage 
1 (Type/Class)Data.Sawtooth.Network
2 (Data Constructor)Data.Sawtooth.Network
gossipMessageContentData.Sawtooth.Network
gossipMessageContentTypeData.Sawtooth.Network
gossipMessageTimeToLiveData.Sawtooth.Network
GossipMessage_ContentTypeData.Sawtooth.Network
GossipMessage_ContentTypeBATCHData.Sawtooth.Network
GossipMessage_ContentTypeBLOCKData.Sawtooth.Network
GossipMessage_ContentTypeCONSENSUSData.Sawtooth.Network
GossipMessage_ContentTypeCONTENT_TYPE_UNSETData.Sawtooth.Network
\ No newline at end of file diff --git a/doc-index-M.html b/doc-index-M.html index ce11e03..d025bcc 100644 --- a/doc-index-M.html +++ b/doc-index-M.html @@ -1 +1 @@ -sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types (Index - M)
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types

Index - M

Message 
1 (Type/Class)Data.Sawtooth.Validator
2 (Data Constructor)Data.Sawtooth.Validator
messageContentData.Sawtooth.Validator
messageCorrelationIdData.Sawtooth.Validator
MessageList 
1 (Type/Class)Data.Sawtooth.Validator
2 (Data Constructor)Data.Sawtooth.Validator
messageListMessagesData.Sawtooth.Validator
messageMessageTypeData.Sawtooth.Validator
Message_MessageTypeData.Sawtooth.Validator
Message_MessageTypeAUTHORIZATION_CHALLENGE_REQUESTData.Sawtooth.Validator
Message_MessageTypeAUTHORIZATION_CHALLENGE_RESPONSEData.Sawtooth.Validator
Message_MessageTypeAUTHORIZATION_CHALLENGE_RESULTData.Sawtooth.Validator
Message_MessageTypeAUTHORIZATION_CHALLENGE_SUBMITData.Sawtooth.Validator
Message_MessageTypeAUTHORIZATION_CONNECTION_RESPONSEData.Sawtooth.Validator
Message_MessageTypeAUTHORIZATION_TRUST_REQUESTData.Sawtooth.Validator
Message_MessageTypeAUTHORIZATION_TRUST_RESPONSEData.Sawtooth.Validator
Message_MessageTypeAUTHORIZATION_VIOLATIONData.Sawtooth.Validator
Message_MessageTypeCLIENT_BATCH_GET_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_BATCH_GET_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCLIENT_BATCH_LIST_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_BATCH_LIST_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCLIENT_BATCH_STATUS_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_BATCH_STATUS_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCLIENT_BATCH_SUBMIT_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_BATCH_SUBMIT_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCLIENT_BLOCK_GET_BY_BATCH_ID_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_BLOCK_GET_BY_ID_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_BLOCK_GET_BY_NUM_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_BLOCK_GET_BY_TRANSACTION_ID_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_BLOCK_GET_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCLIENT_BLOCK_LIST_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_BLOCK_LIST_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCLIENT_EVENTSData.Sawtooth.Validator
Message_MessageTypeCLIENT_EVENTS_GET_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_EVENTS_GET_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCLIENT_EVENTS_SUBSCRIBE_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_EVENTS_SUBSCRIBE_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCLIENT_EVENTS_UNSUBSCRIBE_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_EVENTS_UNSUBSCRIBE_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCLIENT_PEERS_GET_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_PEERS_GET_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCLIENT_RECEIPT_GET_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_RECEIPT_GET_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCLIENT_STATE_CURRENT_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_STATE_CURRENT_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCLIENT_STATE_GET_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_STATE_GET_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCLIENT_STATE_LIST_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_STATE_LIST_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCLIENT_STATUS_GET_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_STATUS_GET_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCLIENT_TRANSACTION_GET_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_TRANSACTION_GET_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCLIENT_TRANSACTION_LIST_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_TRANSACTION_LIST_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_BLOCKS_GET_REQUESTData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_BLOCKS_GET_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_BROADCAST_REQUESTData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_BROADCAST_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_CANCEL_BLOCK_REQUESTData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_CANCEL_BLOCK_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_CHAIN_HEAD_GET_REQUESTData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_CHAIN_HEAD_GET_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_CHECK_BLOCKS_REQUESTData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_CHECK_BLOCKS_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_COMMIT_BLOCK_REQUESTData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_COMMIT_BLOCK_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_FAIL_BLOCK_REQUESTData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_FAIL_BLOCK_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_FINALIZE_BLOCK_REQUESTData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_FINALIZE_BLOCK_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_IGNORE_BLOCK_REQUESTData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_IGNORE_BLOCK_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_INITIALIZE_BLOCK_REQUESTData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_INITIALIZE_BLOCK_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_NOTIFY_ACKData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_NOTIFY_BLOCK_COMMITData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_NOTIFY_BLOCK_INVALIDData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_NOTIFY_BLOCK_NEWData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_NOTIFY_BLOCK_VALIDData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_NOTIFY_ENGINE_ACTIVATEDData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_NOTIFY_ENGINE_DEACTIVATEDData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_NOTIFY_PEER_CONNECTEDData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_NOTIFY_PEER_DISCONNECTEDData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_NOTIFY_PEER_MESSAGEData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_REGISTER_REQUESTData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_REGISTER_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_SEND_TO_REQUESTData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_SEND_TO_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_SETTINGS_GET_REQUESTData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_SETTINGS_GET_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_STATE_GET_REQUESTData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_STATE_GET_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_SUMMARIZE_BLOCK_REQUESTData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_SUMMARIZE_BLOCK_RESPONSEData.Sawtooth.Validator
Message_MessageTypeDEFAULTData.Sawtooth.Validator
Message_MessageTypeGOSSIP_BATCH_BY_BATCH_ID_REQUESTData.Sawtooth.Validator
Message_MessageTypeGOSSIP_BATCH_BY_TRANSACTION_ID_REQUESTData.Sawtooth.Validator
Message_MessageTypeGOSSIP_BATCH_RESPONSEData.Sawtooth.Validator
Message_MessageTypeGOSSIP_BLOCK_REQUESTData.Sawtooth.Validator
Message_MessageTypeGOSSIP_BLOCK_RESPONSEData.Sawtooth.Validator
Message_MessageTypeGOSSIP_CONSENSUS_MESSAGEData.Sawtooth.Validator
Message_MessageTypeGOSSIP_GET_PEERS_REQUESTData.Sawtooth.Validator
Message_MessageTypeGOSSIP_GET_PEERS_RESPONSEData.Sawtooth.Validator
Message_MessageTypeGOSSIP_MESSAGEData.Sawtooth.Validator
Message_MessageTypeGOSSIP_REGISTERData.Sawtooth.Validator
Message_MessageTypeGOSSIP_UNREGISTERData.Sawtooth.Validator
Message_MessageTypeNETWORK_ACKData.Sawtooth.Validator
Message_MessageTypeNETWORK_CONNECTData.Sawtooth.Validator
Message_MessageTypeNETWORK_DISCONNECTData.Sawtooth.Validator
Message_MessageTypePING_REQUESTData.Sawtooth.Validator
Message_MessageTypePING_RESPONSEData.Sawtooth.Validator
Message_MessageTypeTP_EVENT_ADD_REQUESTData.Sawtooth.Validator
Message_MessageTypeTP_EVENT_ADD_RESPONSEData.Sawtooth.Validator
Message_MessageTypeTP_PROCESS_REQUESTData.Sawtooth.Validator
Message_MessageTypeTP_PROCESS_RESPONSEData.Sawtooth.Validator
Message_MessageTypeTP_RECEIPT_ADD_DATA_REQUESTData.Sawtooth.Validator
Message_MessageTypeTP_RECEIPT_ADD_DATA_RESPONSEData.Sawtooth.Validator
Message_MessageTypeTP_REGISTER_REQUESTData.Sawtooth.Validator
Message_MessageTypeTP_REGISTER_RESPONSEData.Sawtooth.Validator
Message_MessageTypeTP_STATE_DELETE_REQUESTData.Sawtooth.Validator
Message_MessageTypeTP_STATE_DELETE_RESPONSEData.Sawtooth.Validator
Message_MessageTypeTP_STATE_GET_REQUESTData.Sawtooth.Validator
Message_MessageTypeTP_STATE_GET_RESPONSEData.Sawtooth.Validator
Message_MessageTypeTP_STATE_SET_REQUESTData.Sawtooth.Validator
Message_MessageTypeTP_STATE_SET_RESPONSEData.Sawtooth.Validator
Message_MessageTypeTP_UNREGISTER_REQUESTData.Sawtooth.Validator
Message_MessageTypeTP_UNREGISTER_RESPONSEData.Sawtooth.Validator
\ No newline at end of file +sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types (Index - M)
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types

Index - M

Message 
1 (Type/Class)Data.Sawtooth.Validator
2 (Data Constructor)Data.Sawtooth.Validator
messageContentData.Sawtooth.Validator
messageCorrelationIdData.Sawtooth.Validator
MessageList 
1 (Type/Class)Data.Sawtooth.Validator
2 (Data Constructor)Data.Sawtooth.Validator
messageListMessagesData.Sawtooth.Validator
messageMessageTypeData.Sawtooth.Validator
Message_MessageTypeData.Sawtooth.Validator
Message_MessageTypeAUTHORIZATION_CHALLENGE_REQUESTData.Sawtooth.Validator
Message_MessageTypeAUTHORIZATION_CHALLENGE_RESPONSEData.Sawtooth.Validator
Message_MessageTypeAUTHORIZATION_CHALLENGE_RESULTData.Sawtooth.Validator
Message_MessageTypeAUTHORIZATION_CHALLENGE_SUBMITData.Sawtooth.Validator
Message_MessageTypeAUTHORIZATION_CONNECTION_RESPONSEData.Sawtooth.Validator
Message_MessageTypeAUTHORIZATION_TRUST_REQUESTData.Sawtooth.Validator
Message_MessageTypeAUTHORIZATION_TRUST_RESPONSEData.Sawtooth.Validator
Message_MessageTypeAUTHORIZATION_VIOLATIONData.Sawtooth.Validator
Message_MessageTypeCLIENT_BATCH_GET_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_BATCH_GET_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCLIENT_BATCH_LIST_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_BATCH_LIST_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCLIENT_BATCH_STATUS_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_BATCH_STATUS_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCLIENT_BATCH_SUBMIT_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_BATCH_SUBMIT_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCLIENT_BLOCK_GET_BY_BATCH_ID_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_BLOCK_GET_BY_ID_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_BLOCK_GET_BY_NUM_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_BLOCK_GET_BY_TRANSACTION_ID_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_BLOCK_GET_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCLIENT_BLOCK_LIST_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_BLOCK_LIST_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCLIENT_EVENTSData.Sawtooth.Validator
Message_MessageTypeCLIENT_EVENTS_GET_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_EVENTS_GET_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCLIENT_EVENTS_SUBSCRIBE_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_EVENTS_SUBSCRIBE_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCLIENT_EVENTS_UNSUBSCRIBE_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_EVENTS_UNSUBSCRIBE_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCLIENT_PEERS_GET_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_PEERS_GET_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCLIENT_RECEIPT_GET_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_RECEIPT_GET_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCLIENT_STATE_CURRENT_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_STATE_CURRENT_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCLIENT_STATE_GET_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_STATE_GET_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCLIENT_STATE_LIST_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_STATE_LIST_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCLIENT_STATUS_GET_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_STATUS_GET_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCLIENT_TRANSACTION_GET_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_TRANSACTION_GET_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCLIENT_TRANSACTION_LIST_REQUESTData.Sawtooth.Validator
Message_MessageTypeCLIENT_TRANSACTION_LIST_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_BLOCKS_GET_REQUESTData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_BLOCKS_GET_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_BROADCAST_REQUESTData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_BROADCAST_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_CANCEL_BLOCK_REQUESTData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_CANCEL_BLOCK_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_CHAIN_HEAD_GET_REQUESTData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_CHAIN_HEAD_GET_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_CHECK_BLOCKS_REQUESTData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_CHECK_BLOCKS_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_COMMIT_BLOCK_REQUESTData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_COMMIT_BLOCK_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_FAIL_BLOCK_REQUESTData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_FAIL_BLOCK_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_FINALIZE_BLOCK_REQUESTData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_FINALIZE_BLOCK_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_IGNORE_BLOCK_REQUESTData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_IGNORE_BLOCK_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_INITIALIZE_BLOCK_REQUESTData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_INITIALIZE_BLOCK_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_NOTIFY_ACKData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_NOTIFY_BLOCK_COMMITData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_NOTIFY_BLOCK_INVALIDData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_NOTIFY_BLOCK_NEWData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_NOTIFY_BLOCK_VALIDData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_NOTIFY_ENGINE_ACTIVATEDData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_NOTIFY_ENGINE_DEACTIVATEDData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_NOTIFY_PEER_CONNECTEDData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_NOTIFY_PEER_DISCONNECTEDData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_NOTIFY_PEER_MESSAGEData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_REGISTER_REQUESTData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_REGISTER_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_SEND_TO_REQUESTData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_SEND_TO_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_SETTINGS_GET_REQUESTData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_SETTINGS_GET_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_STATE_GET_REQUESTData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_STATE_GET_RESPONSEData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_SUMMARIZE_BLOCK_REQUESTData.Sawtooth.Validator
Message_MessageTypeCONSENSUS_SUMMARIZE_BLOCK_RESPONSEData.Sawtooth.Validator
Message_MessageTypeDEFAULTData.Sawtooth.Validator
Message_MessageTypeGOSSIP_BATCH_BY_BATCH_ID_REQUESTData.Sawtooth.Validator
Message_MessageTypeGOSSIP_BATCH_BY_TRANSACTION_ID_REQUESTData.Sawtooth.Validator
Message_MessageTypeGOSSIP_BATCH_RESPONSEData.Sawtooth.Validator
Message_MessageTypeGOSSIP_BLOCK_REQUESTData.Sawtooth.Validator
Message_MessageTypeGOSSIP_BLOCK_RESPONSEData.Sawtooth.Validator
Message_MessageTypeGOSSIP_CONSENSUS_MESSAGEData.Sawtooth.Validator
Message_MessageTypeGOSSIP_GET_PEERS_REQUESTData.Sawtooth.Validator
Message_MessageTypeGOSSIP_GET_PEERS_RESPONSEData.Sawtooth.Validator
Message_MessageTypeGOSSIP_MESSAGEData.Sawtooth.Validator
Message_MessageTypeGOSSIP_REGISTERData.Sawtooth.Validator
Message_MessageTypeGOSSIP_UNREGISTERData.Sawtooth.Validator
Message_MessageTypeNETWORK_ACKData.Sawtooth.Validator
Message_MessageTypeNETWORK_CONNECTData.Sawtooth.Validator
Message_MessageTypeNETWORK_DISCONNECTData.Sawtooth.Validator
Message_MessageTypePING_REQUESTData.Sawtooth.Validator
Message_MessageTypePING_RESPONSEData.Sawtooth.Validator
Message_MessageTypeTP_EVENT_ADD_REQUESTData.Sawtooth.Validator
Message_MessageTypeTP_EVENT_ADD_RESPONSEData.Sawtooth.Validator
Message_MessageTypeTP_PROCESS_REQUESTData.Sawtooth.Validator
Message_MessageTypeTP_PROCESS_RESPONSEData.Sawtooth.Validator
Message_MessageTypeTP_RECEIPT_ADD_DATA_REQUESTData.Sawtooth.Validator
Message_MessageTypeTP_RECEIPT_ADD_DATA_RESPONSEData.Sawtooth.Validator
Message_MessageTypeTP_REGISTER_REQUESTData.Sawtooth.Validator
Message_MessageTypeTP_REGISTER_RESPONSEData.Sawtooth.Validator
Message_MessageTypeTP_STATE_DELETE_REQUESTData.Sawtooth.Validator
Message_MessageTypeTP_STATE_DELETE_RESPONSEData.Sawtooth.Validator
Message_MessageTypeTP_STATE_GET_REQUESTData.Sawtooth.Validator
Message_MessageTypeTP_STATE_GET_RESPONSEData.Sawtooth.Validator
Message_MessageTypeTP_STATE_SET_REQUESTData.Sawtooth.Validator
Message_MessageTypeTP_STATE_SET_RESPONSEData.Sawtooth.Validator
Message_MessageTypeTP_UNREGISTER_REQUESTData.Sawtooth.Validator
Message_MessageTypeTP_UNREGISTER_RESPONSEData.Sawtooth.Validator
\ No newline at end of file diff --git a/doc-index-N.html b/doc-index-N.html index 87fc86d..25f95c5 100644 --- a/doc-index-N.html +++ b/doc-index-N.html @@ -1 +1 @@ -sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types (Index - N)
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types

Index - N

NetworkAcknowledgement 
1 (Type/Class)Data.Sawtooth.Network
2 (Data Constructor)Data.Sawtooth.Network
networkAcknowledgementStatusData.Sawtooth.Network
NetworkAcknowledgement_StatusData.Sawtooth.Network
NetworkAcknowledgement_StatusERRORData.Sawtooth.Network
NetworkAcknowledgement_StatusOKData.Sawtooth.Network
NetworkAcknowledgement_StatusSTATUS_UNSETData.Sawtooth.Network
\ No newline at end of file +sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types (Index - N)
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types

Index - N

NetworkAcknowledgement 
1 (Type/Class)Data.Sawtooth.Network
2 (Data Constructor)Data.Sawtooth.Network
networkAcknowledgementStatusData.Sawtooth.Network
NetworkAcknowledgement_StatusData.Sawtooth.Network
NetworkAcknowledgement_StatusERRORData.Sawtooth.Network
NetworkAcknowledgement_StatusOKData.Sawtooth.Network
NetworkAcknowledgement_StatusSTATUS_UNSETData.Sawtooth.Network
\ No newline at end of file diff --git a/doc-index-P.html b/doc-index-P.html index bea36ee..d374257 100644 --- a/doc-index-P.html +++ b/doc-index-P.html @@ -1 +1 @@ -sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types (Index - P)
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types

Index - P

PeerRegisterRequest 
1 (Type/Class)Data.Sawtooth.Network
2 (Data Constructor)Data.Sawtooth.Network
peerRegisterRequestEndpointData.Sawtooth.Network
peerRegisterRequestProtocolVersionData.Sawtooth.Network
PeerUnregisterRequest 
1 (Type/Class)Data.Sawtooth.Network
2 (Data Constructor)Data.Sawtooth.Network
PingRequest 
1 (Type/Class)Data.Sawtooth.Network
2 (Data Constructor)Data.Sawtooth.Network
PingResponse 
1 (Type/Class)Data.Sawtooth.Network
2 (Data Constructor)Data.Sawtooth.Network
Policy 
1 (Type/Class)Data.Sawtooth.Identity
2 (Data Constructor)Data.Sawtooth.Identity
policyEntriesData.Sawtooth.Identity
PolicyList 
1 (Type/Class)Data.Sawtooth.Identity
2 (Data Constructor)Data.Sawtooth.Identity
policyListPoliciesData.Sawtooth.Identity
policyNameData.Sawtooth.Identity
Policy_Entry 
1 (Type/Class)Data.Sawtooth.Identity
2 (Data Constructor)Data.Sawtooth.Identity
policy_EntryKeyData.Sawtooth.Identity
Policy_EntryTypeData.Sawtooth.Identity
policy_EntryTypeData.Sawtooth.Identity
Policy_EntryTypeDENY_KEYData.Sawtooth.Identity
Policy_EntryTypeENTRY_TYPE_UNSETData.Sawtooth.Identity
Policy_EntryTypePERMIT_KEYData.Sawtooth.Identity
\ No newline at end of file +sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types (Index - P)
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types

Index - P

PeerRegisterRequest 
1 (Type/Class)Data.Sawtooth.Network
2 (Data Constructor)Data.Sawtooth.Network
peerRegisterRequestEndpointData.Sawtooth.Network
peerRegisterRequestProtocolVersionData.Sawtooth.Network
PeerUnregisterRequest 
1 (Type/Class)Data.Sawtooth.Network
2 (Data Constructor)Data.Sawtooth.Network
PingRequest 
1 (Type/Class)Data.Sawtooth.Network
2 (Data Constructor)Data.Sawtooth.Network
PingResponse 
1 (Type/Class)Data.Sawtooth.Network
2 (Data Constructor)Data.Sawtooth.Network
Policy 
1 (Type/Class)Data.Sawtooth.Identity
2 (Data Constructor)Data.Sawtooth.Identity
policyEntriesData.Sawtooth.Identity
PolicyList 
1 (Type/Class)Data.Sawtooth.Identity
2 (Data Constructor)Data.Sawtooth.Identity
policyListPoliciesData.Sawtooth.Identity
policyNameData.Sawtooth.Identity
Policy_Entry 
1 (Type/Class)Data.Sawtooth.Identity
2 (Data Constructor)Data.Sawtooth.Identity
policy_EntryKeyData.Sawtooth.Identity
Policy_EntryTypeData.Sawtooth.Identity
policy_EntryTypeData.Sawtooth.Identity
Policy_EntryTypeDENY_KEYData.Sawtooth.Identity
Policy_EntryTypeENTRY_TYPE_UNSETData.Sawtooth.Identity
Policy_EntryTypePERMIT_KEYData.Sawtooth.Identity
\ No newline at end of file diff --git a/doc-index-R.html b/doc-index-R.html index 15fe4de..ce139fd 100644 --- a/doc-index-R.html +++ b/doc-index-R.html @@ -1 +1 @@ -sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types (Index - R)
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types

Index - R

Role 
1 (Type/Class)Data.Sawtooth.Identity
2 (Data Constructor)Data.Sawtooth.Identity
RoleList 
1 (Type/Class)Data.Sawtooth.Identity
2 (Data Constructor)Data.Sawtooth.Identity
roleListRolesData.Sawtooth.Identity
roleNameData.Sawtooth.Identity
rolePolicyNameData.Sawtooth.Identity
RoleTypeData.Sawtooth.Authorization
RoleTypeALLData.Sawtooth.Authorization
RoleTypeNETWORKData.Sawtooth.Authorization
RoleTypeROLE_TYPE_UNSETData.Sawtooth.Authorization
\ No newline at end of file +sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types (Index - R)
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types

Index - R

Role 
1 (Type/Class)Data.Sawtooth.Identity
2 (Data Constructor)Data.Sawtooth.Identity
RoleList 
1 (Type/Class)Data.Sawtooth.Identity
2 (Data Constructor)Data.Sawtooth.Identity
roleListRolesData.Sawtooth.Identity
roleNameData.Sawtooth.Identity
rolePolicyNameData.Sawtooth.Identity
RoleTypeData.Sawtooth.Authorization
RoleTypeALLData.Sawtooth.Authorization
RoleTypeNETWORKData.Sawtooth.Authorization
RoleTypeROLE_TYPE_UNSETData.Sawtooth.Authorization
\ No newline at end of file diff --git a/doc-index-S.html b/doc-index-S.html index 43f256a..b451c31 100644 --- a/doc-index-S.html +++ b/doc-index-S.html @@ -1 +1 @@ -sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types (Index - S)
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types

Index - S

Setting 
1 (Type/Class)Data.Sawtooth.Setting
2 (Data Constructor)Data.Sawtooth.Setting
settingEntriesData.Sawtooth.Setting
Setting_Entry 
1 (Type/Class)Data.Sawtooth.Setting
2 (Data Constructor)Data.Sawtooth.Setting
setting_EntryKeyData.Sawtooth.Setting
setting_EntryValueData.Sawtooth.Setting
StateChange 
1 (Type/Class)Data.Sawtooth.TransactionReceipt
2 (Data Constructor)Data.Sawtooth.TransactionReceipt
stateChangeAddressData.Sawtooth.TransactionReceipt
StateChangeList 
1 (Type/Class)Data.Sawtooth.TransactionReceipt
2 (Data Constructor)Data.Sawtooth.TransactionReceipt
stateChangeListStateChangesData.Sawtooth.TransactionReceipt
stateChangeTypeData.Sawtooth.TransactionReceipt
stateChangeValueData.Sawtooth.TransactionReceipt
StateChange_TypeData.Sawtooth.TransactionReceipt
StateChange_TypeDELETEData.Sawtooth.TransactionReceipt
StateChange_TypeSETData.Sawtooth.TransactionReceipt
StateChange_TypeTYPE_UNSETData.Sawtooth.TransactionReceipt
\ No newline at end of file +sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types (Index - S)
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types

Index - S

Setting 
1 (Type/Class)Data.Sawtooth.Setting
2 (Data Constructor)Data.Sawtooth.Setting
settingEntriesData.Sawtooth.Setting
Setting_Entry 
1 (Type/Class)Data.Sawtooth.Setting
2 (Data Constructor)Data.Sawtooth.Setting
setting_EntryKeyData.Sawtooth.Setting
setting_EntryValueData.Sawtooth.Setting
StateChange 
1 (Type/Class)Data.Sawtooth.TransactionReceipt
2 (Data Constructor)Data.Sawtooth.TransactionReceipt
stateChangeAddressData.Sawtooth.TransactionReceipt
StateChangeList 
1 (Type/Class)Data.Sawtooth.TransactionReceipt
2 (Data Constructor)Data.Sawtooth.TransactionReceipt
stateChangeListStateChangesData.Sawtooth.TransactionReceipt
stateChangeTypeData.Sawtooth.TransactionReceipt
stateChangeValueData.Sawtooth.TransactionReceipt
StateChange_TypeData.Sawtooth.TransactionReceipt
StateChange_TypeDELETEData.Sawtooth.TransactionReceipt
StateChange_TypeSETData.Sawtooth.TransactionReceipt
StateChange_TypeTYPE_UNSETData.Sawtooth.TransactionReceipt
\ No newline at end of file diff --git a/doc-index-T.html b/doc-index-T.html index 0413382..091536f 100644 --- a/doc-index-T.html +++ b/doc-index-T.html @@ -1 +1 @@ -sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types (Index - T)
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types

Index - T

TpEventAddRequest 
1 (Type/Class)Data.Sawtooth.StateContext
2 (Data Constructor)Data.Sawtooth.StateContext
tpEventAddRequestContextIdData.Sawtooth.StateContext
tpEventAddRequestEventData.Sawtooth.StateContext
TpEventAddResponse 
1 (Type/Class)Data.Sawtooth.StateContext
2 (Data Constructor)Data.Sawtooth.StateContext
tpEventAddResponseStatusData.Sawtooth.StateContext
TpEventAddResponse_StatusData.Sawtooth.StateContext
TpEventAddResponse_StatusERRORData.Sawtooth.StateContext
TpEventAddResponse_StatusOKData.Sawtooth.StateContext
TpEventAddResponse_StatusSTATUS_UNSETData.Sawtooth.StateContext
TpProcessRequest 
1 (Type/Class)Data.Sawtooth.Processor
2 (Data Constructor)Data.Sawtooth.Processor
tpProcessRequestContextIdData.Sawtooth.Processor
tpProcessRequestHeaderData.Sawtooth.Processor
tpProcessRequestHeaderBytesData.Sawtooth.Processor
tpProcessRequestPayloadData.Sawtooth.Processor
tpProcessRequestSignatureData.Sawtooth.Processor
TpProcessResponse 
1 (Type/Class)Data.Sawtooth.Processor
2 (Data Constructor)Data.Sawtooth.Processor
tpProcessResponseExtendedDataData.Sawtooth.Processor
tpProcessResponseMessageData.Sawtooth.Processor
tpProcessResponseStatusData.Sawtooth.Processor
TpProcessResponse_StatusData.Sawtooth.Processor
TpProcessResponse_StatusINTERNAL_ERRORData.Sawtooth.Processor
TpProcessResponse_StatusINVALID_TRANSACTIONData.Sawtooth.Processor
TpProcessResponse_StatusOKData.Sawtooth.Processor
TpProcessResponse_StatusSTATUS_UNSETData.Sawtooth.Processor
TpReceiptAddDataRequest 
1 (Type/Class)Data.Sawtooth.StateContext
2 (Data Constructor)Data.Sawtooth.StateContext
tpReceiptAddDataRequestContextIdData.Sawtooth.StateContext
tpReceiptAddDataRequestDataData.Sawtooth.StateContext
TpReceiptAddDataResponse 
1 (Type/Class)Data.Sawtooth.StateContext
2 (Data Constructor)Data.Sawtooth.StateContext
tpReceiptAddDataResponseStatusData.Sawtooth.StateContext
TpReceiptAddDataResponse_StatusData.Sawtooth.StateContext
TpReceiptAddDataResponse_StatusERRORData.Sawtooth.StateContext
TpReceiptAddDataResponse_StatusOKData.Sawtooth.StateContext
TpReceiptAddDataResponse_StatusSTATUS_UNSETData.Sawtooth.StateContext
TpRegisterRequest 
1 (Type/Class)Data.Sawtooth.Processor
2 (Data Constructor)Data.Sawtooth.Processor
tpRegisterRequestFamilyData.Sawtooth.Processor
tpRegisterRequestMaxOccupancyData.Sawtooth.Processor
tpRegisterRequestNamespacesData.Sawtooth.Processor
tpRegisterRequestProtocolVersionData.Sawtooth.Processor
tpRegisterRequestRequestHeaderStyleData.Sawtooth.Processor
tpRegisterRequestVersionData.Sawtooth.Processor
TpRegisterRequest_TpProcessRequestHeaderStyleData.Sawtooth.Processor
TpRegisterRequest_TpProcessRequestHeaderStyleEXPANDEDData.Sawtooth.Processor
TpRegisterRequest_TpProcessRequestHeaderStyleHEADER_STYLE_UNSETData.Sawtooth.Processor
TpRegisterRequest_TpProcessRequestHeaderStyleRAWData.Sawtooth.Processor
TpRegisterResponse 
1 (Type/Class)Data.Sawtooth.Processor
2 (Data Constructor)Data.Sawtooth.Processor
tpRegisterResponseProtocolVersionData.Sawtooth.Processor
tpRegisterResponseStatusData.Sawtooth.Processor
TpRegisterResponse_StatusData.Sawtooth.Processor
TpRegisterResponse_StatusERRORData.Sawtooth.Processor
TpRegisterResponse_StatusOKData.Sawtooth.Processor
TpRegisterResponse_StatusSTATUS_UNSETData.Sawtooth.Processor
TpStateDeleteRequest 
1 (Type/Class)Data.Sawtooth.StateContext
2 (Data Constructor)Data.Sawtooth.StateContext
tpStateDeleteRequestAddressesData.Sawtooth.StateContext
tpStateDeleteRequestContextIdData.Sawtooth.StateContext
TpStateDeleteResponse 
1 (Type/Class)Data.Sawtooth.StateContext
2 (Data Constructor)Data.Sawtooth.StateContext
tpStateDeleteResponseAddressesData.Sawtooth.StateContext
tpStateDeleteResponseStatusData.Sawtooth.StateContext
TpStateDeleteResponse_StatusData.Sawtooth.StateContext
TpStateDeleteResponse_StatusAUTHORIZATION_ERRORData.Sawtooth.StateContext
TpStateDeleteResponse_StatusOKData.Sawtooth.StateContext
TpStateDeleteResponse_StatusSTATUS_UNSETData.Sawtooth.StateContext
TpStateEntry 
1 (Type/Class)Data.Sawtooth.StateContext
2 (Data Constructor)Data.Sawtooth.StateContext
tpStateEntryAddressData.Sawtooth.StateContext
tpStateEntryDataData.Sawtooth.StateContext
TpStateGetRequest 
1 (Type/Class)Data.Sawtooth.StateContext
2 (Data Constructor)Data.Sawtooth.StateContext
tpStateGetRequestAddressesData.Sawtooth.StateContext
tpStateGetRequestContextIdData.Sawtooth.StateContext
TpStateGetResponse 
1 (Type/Class)Data.Sawtooth.StateContext
2 (Data Constructor)Data.Sawtooth.StateContext
tpStateGetResponseEntriesData.Sawtooth.StateContext
tpStateGetResponseStatusData.Sawtooth.StateContext
TpStateGetResponse_StatusData.Sawtooth.StateContext
TpStateGetResponse_StatusAUTHORIZATION_ERRORData.Sawtooth.StateContext
TpStateGetResponse_StatusOKData.Sawtooth.StateContext
TpStateGetResponse_StatusSTATUS_UNSETData.Sawtooth.StateContext
TpStateSetRequest 
1 (Type/Class)Data.Sawtooth.StateContext
2 (Data Constructor)Data.Sawtooth.StateContext
tpStateSetRequestContextIdData.Sawtooth.StateContext
tpStateSetRequestEntriesData.Sawtooth.StateContext
TpStateSetResponse 
1 (Type/Class)Data.Sawtooth.StateContext
2 (Data Constructor)Data.Sawtooth.StateContext
tpStateSetResponseAddressesData.Sawtooth.StateContext
tpStateSetResponseStatusData.Sawtooth.StateContext
TpStateSetResponse_StatusData.Sawtooth.StateContext
TpStateSetResponse_StatusAUTHORIZATION_ERRORData.Sawtooth.StateContext
TpStateSetResponse_StatusOKData.Sawtooth.StateContext
TpStateSetResponse_StatusSTATUS_UNSETData.Sawtooth.StateContext
TpUnregisterRequest 
1 (Type/Class)Data.Sawtooth.Processor
2 (Data Constructor)Data.Sawtooth.Processor
TpUnregisterResponse 
1 (Type/Class)Data.Sawtooth.Processor
2 (Data Constructor)Data.Sawtooth.Processor
tpUnregisterResponseStatusData.Sawtooth.Processor
TpUnregisterResponse_StatusData.Sawtooth.Processor
TpUnregisterResponse_StatusERRORData.Sawtooth.Processor
TpUnregisterResponse_StatusOKData.Sawtooth.Processor
TpUnregisterResponse_StatusSTATUS_UNSETData.Sawtooth.Processor
Transaction 
1 (Type/Class)Data.Sawtooth.Transaction
2 (Data Constructor)Data.Sawtooth.Transaction
TransactionHeader 
1 (Type/Class)Data.Sawtooth.Transaction
2 (Data Constructor)Data.Sawtooth.Transaction
transactionHeaderData.Sawtooth.Transaction
transactionHeaderBatcherPublicKeyData.Sawtooth.Transaction
transactionHeaderDependenciesData.Sawtooth.Transaction
transactionHeaderFamilyNameData.Sawtooth.Transaction
transactionHeaderFamilyVersionData.Sawtooth.Transaction
transactionHeaderInputsData.Sawtooth.Transaction
transactionHeaderNonceData.Sawtooth.Transaction
transactionHeaderOutputsData.Sawtooth.Transaction
transactionHeaderPayloadSha512Data.Sawtooth.Transaction
transactionHeaderSignatureData.Sawtooth.Transaction
transactionHeaderSignerPublicKeyData.Sawtooth.Transaction
TransactionList 
1 (Type/Class)Data.Sawtooth.Transaction
2 (Data Constructor)Data.Sawtooth.Transaction
transactionListTransactionsData.Sawtooth.Transaction
transactionPayloadData.Sawtooth.Transaction
TransactionReceipt 
1 (Type/Class)Data.Sawtooth.TransactionReceipt
2 (Data Constructor)Data.Sawtooth.TransactionReceipt
transactionReceiptDataData.Sawtooth.TransactionReceipt
transactionReceiptEventsData.Sawtooth.TransactionReceipt
transactionReceiptStateChangesData.Sawtooth.TransactionReceipt
transactionReceiptTransactionIdData.Sawtooth.TransactionReceipt
\ No newline at end of file +sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types (Index - T)
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types

Index - T

TpEventAddRequest 
1 (Type/Class)Data.Sawtooth.StateContext
2 (Data Constructor)Data.Sawtooth.StateContext
tpEventAddRequestContextIdData.Sawtooth.StateContext
tpEventAddRequestEventData.Sawtooth.StateContext
TpEventAddResponse 
1 (Type/Class)Data.Sawtooth.StateContext
2 (Data Constructor)Data.Sawtooth.StateContext
tpEventAddResponseStatusData.Sawtooth.StateContext
TpEventAddResponse_StatusData.Sawtooth.StateContext
TpEventAddResponse_StatusERRORData.Sawtooth.StateContext
TpEventAddResponse_StatusOKData.Sawtooth.StateContext
TpEventAddResponse_StatusSTATUS_UNSETData.Sawtooth.StateContext
TpProcessRequest 
1 (Type/Class)Data.Sawtooth.Processor
2 (Data Constructor)Data.Sawtooth.Processor
tpProcessRequestContextIdData.Sawtooth.Processor
tpProcessRequestHeaderData.Sawtooth.Processor
tpProcessRequestHeaderBytesData.Sawtooth.Processor
tpProcessRequestPayloadData.Sawtooth.Processor
tpProcessRequestSignatureData.Sawtooth.Processor
TpProcessResponse 
1 (Type/Class)Data.Sawtooth.Processor
2 (Data Constructor)Data.Sawtooth.Processor
tpProcessResponseExtendedDataData.Sawtooth.Processor
tpProcessResponseMessageData.Sawtooth.Processor
tpProcessResponseStatusData.Sawtooth.Processor
TpProcessResponse_StatusData.Sawtooth.Processor
TpProcessResponse_StatusINTERNAL_ERRORData.Sawtooth.Processor
TpProcessResponse_StatusINVALID_TRANSACTIONData.Sawtooth.Processor
TpProcessResponse_StatusOKData.Sawtooth.Processor
TpProcessResponse_StatusSTATUS_UNSETData.Sawtooth.Processor
TpReceiptAddDataRequest 
1 (Type/Class)Data.Sawtooth.StateContext
2 (Data Constructor)Data.Sawtooth.StateContext
tpReceiptAddDataRequestContextIdData.Sawtooth.StateContext
tpReceiptAddDataRequestDataData.Sawtooth.StateContext
TpReceiptAddDataResponse 
1 (Type/Class)Data.Sawtooth.StateContext
2 (Data Constructor)Data.Sawtooth.StateContext
tpReceiptAddDataResponseStatusData.Sawtooth.StateContext
TpReceiptAddDataResponse_StatusData.Sawtooth.StateContext
TpReceiptAddDataResponse_StatusERRORData.Sawtooth.StateContext
TpReceiptAddDataResponse_StatusOKData.Sawtooth.StateContext
TpReceiptAddDataResponse_StatusSTATUS_UNSETData.Sawtooth.StateContext
TpRegisterRequest 
1 (Type/Class)Data.Sawtooth.Processor
2 (Data Constructor)Data.Sawtooth.Processor
tpRegisterRequestFamilyData.Sawtooth.Processor
tpRegisterRequestMaxOccupancyData.Sawtooth.Processor
tpRegisterRequestNamespacesData.Sawtooth.Processor
tpRegisterRequestProtocolVersionData.Sawtooth.Processor
tpRegisterRequestRequestHeaderStyleData.Sawtooth.Processor
tpRegisterRequestVersionData.Sawtooth.Processor
TpRegisterRequest_TpProcessRequestHeaderStyleData.Sawtooth.Processor
TpRegisterRequest_TpProcessRequestHeaderStyleEXPANDEDData.Sawtooth.Processor
TpRegisterRequest_TpProcessRequestHeaderStyleHEADER_STYLE_UNSETData.Sawtooth.Processor
TpRegisterRequest_TpProcessRequestHeaderStyleRAWData.Sawtooth.Processor
TpRegisterResponse 
1 (Type/Class)Data.Sawtooth.Processor
2 (Data Constructor)Data.Sawtooth.Processor
tpRegisterResponseProtocolVersionData.Sawtooth.Processor
tpRegisterResponseStatusData.Sawtooth.Processor
TpRegisterResponse_StatusData.Sawtooth.Processor
TpRegisterResponse_StatusERRORData.Sawtooth.Processor
TpRegisterResponse_StatusOKData.Sawtooth.Processor
TpRegisterResponse_StatusSTATUS_UNSETData.Sawtooth.Processor
TpStateDeleteRequest 
1 (Type/Class)Data.Sawtooth.StateContext
2 (Data Constructor)Data.Sawtooth.StateContext
tpStateDeleteRequestAddressesData.Sawtooth.StateContext
tpStateDeleteRequestContextIdData.Sawtooth.StateContext
TpStateDeleteResponse 
1 (Type/Class)Data.Sawtooth.StateContext
2 (Data Constructor)Data.Sawtooth.StateContext
tpStateDeleteResponseAddressesData.Sawtooth.StateContext
tpStateDeleteResponseStatusData.Sawtooth.StateContext
TpStateDeleteResponse_StatusData.Sawtooth.StateContext
TpStateDeleteResponse_StatusAUTHORIZATION_ERRORData.Sawtooth.StateContext
TpStateDeleteResponse_StatusOKData.Sawtooth.StateContext
TpStateDeleteResponse_StatusSTATUS_UNSETData.Sawtooth.StateContext
TpStateEntry 
1 (Type/Class)Data.Sawtooth.StateContext
2 (Data Constructor)Data.Sawtooth.StateContext
tpStateEntryAddressData.Sawtooth.StateContext
tpStateEntryDataData.Sawtooth.StateContext
TpStateGetRequest 
1 (Type/Class)Data.Sawtooth.StateContext
2 (Data Constructor)Data.Sawtooth.StateContext
tpStateGetRequestAddressesData.Sawtooth.StateContext
tpStateGetRequestContextIdData.Sawtooth.StateContext
TpStateGetResponse 
1 (Type/Class)Data.Sawtooth.StateContext
2 (Data Constructor)Data.Sawtooth.StateContext
tpStateGetResponseEntriesData.Sawtooth.StateContext
tpStateGetResponseStatusData.Sawtooth.StateContext
TpStateGetResponse_StatusData.Sawtooth.StateContext
TpStateGetResponse_StatusAUTHORIZATION_ERRORData.Sawtooth.StateContext
TpStateGetResponse_StatusOKData.Sawtooth.StateContext
TpStateGetResponse_StatusSTATUS_UNSETData.Sawtooth.StateContext
TpStateSetRequest 
1 (Type/Class)Data.Sawtooth.StateContext
2 (Data Constructor)Data.Sawtooth.StateContext
tpStateSetRequestContextIdData.Sawtooth.StateContext
tpStateSetRequestEntriesData.Sawtooth.StateContext
TpStateSetResponse 
1 (Type/Class)Data.Sawtooth.StateContext
2 (Data Constructor)Data.Sawtooth.StateContext
tpStateSetResponseAddressesData.Sawtooth.StateContext
tpStateSetResponseStatusData.Sawtooth.StateContext
TpStateSetResponse_StatusData.Sawtooth.StateContext
TpStateSetResponse_StatusAUTHORIZATION_ERRORData.Sawtooth.StateContext
TpStateSetResponse_StatusOKData.Sawtooth.StateContext
TpStateSetResponse_StatusSTATUS_UNSETData.Sawtooth.StateContext
TpUnregisterRequest 
1 (Type/Class)Data.Sawtooth.Processor
2 (Data Constructor)Data.Sawtooth.Processor
TpUnregisterResponse 
1 (Type/Class)Data.Sawtooth.Processor
2 (Data Constructor)Data.Sawtooth.Processor
tpUnregisterResponseStatusData.Sawtooth.Processor
TpUnregisterResponse_StatusData.Sawtooth.Processor
TpUnregisterResponse_StatusERRORData.Sawtooth.Processor
TpUnregisterResponse_StatusOKData.Sawtooth.Processor
TpUnregisterResponse_StatusSTATUS_UNSETData.Sawtooth.Processor
Transaction 
1 (Type/Class)Data.Sawtooth.Transaction
2 (Data Constructor)Data.Sawtooth.Transaction
TransactionHeader 
1 (Type/Class)Data.Sawtooth.Transaction
2 (Data Constructor)Data.Sawtooth.Transaction
transactionHeaderData.Sawtooth.Transaction
transactionHeaderBatcherPublicKeyData.Sawtooth.Transaction
transactionHeaderDependenciesData.Sawtooth.Transaction
transactionHeaderFamilyNameData.Sawtooth.Transaction
transactionHeaderFamilyVersionData.Sawtooth.Transaction
transactionHeaderInputsData.Sawtooth.Transaction
transactionHeaderNonceData.Sawtooth.Transaction
transactionHeaderOutputsData.Sawtooth.Transaction
transactionHeaderPayloadSha512Data.Sawtooth.Transaction
transactionHeaderSignatureData.Sawtooth.Transaction
transactionHeaderSignerPublicKeyData.Sawtooth.Transaction
TransactionList 
1 (Type/Class)Data.Sawtooth.Transaction
2 (Data Constructor)Data.Sawtooth.Transaction
transactionListTransactionsData.Sawtooth.Transaction
transactionPayloadData.Sawtooth.Transaction
TransactionReceipt 
1 (Type/Class)Data.Sawtooth.TransactionReceipt
2 (Data Constructor)Data.Sawtooth.TransactionReceipt
transactionReceiptDataData.Sawtooth.TransactionReceipt
transactionReceiptEventsData.Sawtooth.TransactionReceipt
transactionReceiptStateChangesData.Sawtooth.TransactionReceipt
transactionReceiptTransactionIdData.Sawtooth.TransactionReceipt
\ No newline at end of file diff --git a/doc-index.html b/doc-index.html index d4525f0..4d28893 100644 --- a/doc-index.html +++ b/doc-index.html @@ -1 +1 @@ -sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types (Index)
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types
\ No newline at end of file +sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types (Index)
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types
\ No newline at end of file diff --git a/doc-index.json b/doc-index.json index 23df247..599245f 100644 --- a/doc-index.json +++ b/doc-index.json @@ -1 +1 @@ -[{"display_html":"newtype ConnectionRequest = ConnectionRequest {}","name":"ConnectionRequest ConnectionRequest connectionRequestEndpoint","module":"Data.Sawtooth.Authorization","link":"Data-Sawtooth-Authorization.html#t:ConnectionRequest"},{"display_html":"data RoleType","name":"RoleType RoleTypeNETWORK RoleTypeALL RoleTypeROLE_TYPE_UNSET","module":"Data.Sawtooth.Authorization","link":"Data-Sawtooth-Authorization.html#t:RoleType"},{"display_html":"data ConnectionResponse = ConnectionResponse {}","name":"ConnectionResponse ConnectionResponse connectionResponseStatus connectionResponseRoles","module":"Data.Sawtooth.Authorization","link":"Data-Sawtooth-Authorization.html#t:ConnectionResponse"},{"display_html":"data ConnectionResponse_Status","name":"ConnectionResponse_Status ConnectionResponse_StatusERROR ConnectionResponse_StatusOK ConnectionResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.Authorization","link":"Data-Sawtooth-Authorization.html#t:ConnectionResponse_Status"},{"display_html":"data ConnectionResponse_AuthorizationType","name":"ConnectionResponse_AuthorizationType ConnectionResponse_AuthorizationTypeCHALLENGE ConnectionResponse_AuthorizationTypeTRUST ConnectionResponse_AuthorizationTypeAUTHORIZATION_TYPE_UNSET","module":"Data.Sawtooth.Authorization","link":"Data-Sawtooth-Authorization.html#t:ConnectionResponse_AuthorizationType"},{"display_html":"data ConnectionResponse_RoleEntry = ConnectionResponse_RoleEntry {}","name":"ConnectionResponse_RoleEntry ConnectionResponse_RoleEntry connectionResponse_RoleEntryAuthType connectionResponse_RoleEntryRole","module":"Data.Sawtooth.Authorization","link":"Data-Sawtooth-Authorization.html#t:ConnectionResponse_RoleEntry"},{"display_html":"data AuthorizationTrustRequest = AuthorizationTrustRequest {}","name":"AuthorizationTrustRequest AuthorizationTrustRequest authorizationTrustRequestPublicKey authorizationTrustRequestRoles","module":"Data.Sawtooth.Authorization","link":"Data-Sawtooth-Authorization.html#t:AuthorizationTrustRequest"},{"display_html":"newtype AuthorizationTrustResponse = AuthorizationTrustResponse {}","name":"AuthorizationTrustResponse AuthorizationTrustResponse authorizationTrustResponseRoles","module":"Data.Sawtooth.Authorization","link":"Data-Sawtooth-Authorization.html#t:AuthorizationTrustResponse"},{"display_html":"newtype AuthorizationViolation = AuthorizationViolation {}","name":"AuthorizationViolation AuthorizationViolation authorizationViolationViolation","module":"Data.Sawtooth.Authorization","link":"Data-Sawtooth-Authorization.html#t:AuthorizationViolation"},{"display_html":"data AuthorizationChallengeRequest = AuthorizationChallengeRequest {}","name":"AuthorizationChallengeRequest AuthorizationChallengeRequest","module":"Data.Sawtooth.Authorization","link":"Data-Sawtooth-Authorization.html#t:AuthorizationChallengeRequest"},{"display_html":"newtype AuthorizationChallengeResponse = AuthorizationChallengeResponse {}","name":"AuthorizationChallengeResponse AuthorizationChallengeResponse authorizationChallengeResponsePayload","module":"Data.Sawtooth.Authorization","link":"Data-Sawtooth-Authorization.html#t:AuthorizationChallengeResponse"},{"display_html":"data AuthorizationChallengeSubmit = AuthorizationChallengeSubmit {}","name":"AuthorizationChallengeSubmit AuthorizationChallengeSubmit authorizationChallengeSubmitRoles authorizationChallengeSubmitSignature authorizationChallengeSubmitPublicKey","module":"Data.Sawtooth.Authorization","link":"Data-Sawtooth-Authorization.html#t:AuthorizationChallengeSubmit"},{"display_html":"newtype AuthorizationChallengeResult = AuthorizationChallengeResult {}","name":"AuthorizationChallengeResult AuthorizationChallengeResult authorizationChallengeResultRoles","module":"Data.Sawtooth.Authorization","link":"Data-Sawtooth-Authorization.html#t:AuthorizationChallengeResult"},{"display_html":"data BlockInfoConfig = BlockInfoConfig {}","name":"BlockInfoConfig BlockInfoConfig blockInfoConfigSyncTolerance blockInfoConfigTargetCount blockInfoConfigOldestBlock blockInfoConfigLatestBlock","module":"Data.Sawtooth.BlockInfo","link":"Data-Sawtooth-BlockInfo.html#t:BlockInfoConfig"},{"display_html":"data BlockInfo = BlockInfo {}","name":"BlockInfo BlockInfo blockInfoTimestamp blockInfoHeaderSignature blockInfoSignerPublicKey blockInfoPreviousBlockId blockInfoBlockNum","module":"Data.Sawtooth.BlockInfo","link":"Data-Sawtooth-BlockInfo.html#t:BlockInfo"},{"display_html":"data BlockInfoTxn = BlockInfoTxn {}","name":"BlockInfoTxn BlockInfoTxn blockInfoTxnSyncTolerance blockInfoTxnTargetCount blockInfoTxnBlock","module":"Data.Sawtooth.BlockInfo","link":"Data-Sawtooth-BlockInfo.html#t:BlockInfoTxn"},{"display_html":"data ClientPagingControls = ClientPagingControls {}","name":"ClientPagingControls ClientPagingControls clientPagingControlsLimit clientPagingControlsStart","module":"Data.Sawtooth.ClientListControl","link":"Data-Sawtooth-ClientListControl.html#t:ClientPagingControls"},{"display_html":"data ClientPagingResponse = ClientPagingResponse {}","name":"ClientPagingResponse ClientPagingResponse clientPagingResponseLimit clientPagingResponseStart clientPagingResponseNext","module":"Data.Sawtooth.ClientListControl","link":"Data-Sawtooth-ClientListControl.html#t:ClientPagingResponse"},{"display_html":"data ClientSortControls = ClientSortControls {}","name":"ClientSortControls ClientSortControls clientSortControlsReverse clientSortControlsKeys","module":"Data.Sawtooth.ClientListControl","link":"Data-Sawtooth-ClientListControl.html#t:ClientSortControls"},{"display_html":"data ClientPeersGetRequest = ClientPeersGetRequest {}","name":"ClientPeersGetRequest ClientPeersGetRequest","module":"Data.Sawtooth.ClientPeers","link":"Data-Sawtooth-ClientPeers.html#t:ClientPeersGetRequest"},{"display_html":"data ClientPeersGetResponse = ClientPeersGetResponse {}","name":"ClientPeersGetResponse ClientPeersGetResponse clientPeersGetResponsePeers clientPeersGetResponseStatus","module":"Data.Sawtooth.ClientPeers","link":"Data-Sawtooth-ClientPeers.html#t:ClientPeersGetResponse"},{"display_html":"data ClientPeersGetResponse_Status","name":"ClientPeersGetResponse_Status ClientPeersGetResponse_StatusERROR ClientPeersGetResponse_StatusOK ClientPeersGetResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.ClientPeers","link":"Data-Sawtooth-ClientPeers.html#t:ClientPeersGetResponse_Status"},{"display_html":"data ClientStateListRequest = ClientStateListRequest {}","name":"ClientStateListRequest ClientStateListRequest clientStateListRequestSorting clientStateListRequestPaging clientStateListRequestAddress clientStateListRequestStateRoot","module":"Data.Sawtooth.ClientState","link":"Data-Sawtooth-ClientState.html#t:ClientStateListRequest"},{"display_html":"data ClientStateListResponse = ClientStateListResponse {}","name":"ClientStateListResponse ClientStateListResponse clientStateListResponsePaging clientStateListResponseStateRoot clientStateListResponseEntries clientStateListResponseStatus","module":"Data.Sawtooth.ClientState","link":"Data-Sawtooth-ClientState.html#t:ClientStateListResponse"},{"display_html":"data ClientStateListResponse_Status","name":"ClientStateListResponse_Status ClientStateListResponse_StatusINVALID_ROOT ClientStateListResponse_StatusINVALID_ADDRESS ClientStateListResponse_StatusINVALID_SORT ClientStateListResponse_StatusINVALID_PAGING ClientStateListResponse_StatusNO_RESOURCE ClientStateListResponse_StatusNO_ROOT ClientStateListResponse_StatusNOT_READY ClientStateListResponse_StatusINTERNAL_ERROR ClientStateListResponse_StatusOK ClientStateListResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.ClientState","link":"Data-Sawtooth-ClientState.html#t:ClientStateListResponse_Status"},{"display_html":"data ClientStateListResponse_Entry = ClientStateListResponse_Entry {}","name":"ClientStateListResponse_Entry ClientStateListResponse_Entry clientStateListResponse_EntryData clientStateListResponse_EntryAddress","module":"Data.Sawtooth.ClientState","link":"Data-Sawtooth-ClientState.html#t:ClientStateListResponse_Entry"},{"display_html":"data ClientStateGetRequest = ClientStateGetRequest {}","name":"ClientStateGetRequest ClientStateGetRequest clientStateGetRequestAddress clientStateGetRequestStateRoot","module":"Data.Sawtooth.ClientState","link":"Data-Sawtooth-ClientState.html#t:ClientStateGetRequest"},{"display_html":"data ClientStateGetResponse = ClientStateGetResponse {}","name":"ClientStateGetResponse ClientStateGetResponse clientStateGetResponseStateRoot clientStateGetResponseValue clientStateGetResponseStatus","module":"Data.Sawtooth.ClientState","link":"Data-Sawtooth-ClientState.html#t:ClientStateGetResponse"},{"display_html":"data ClientStateGetResponse_Status","name":"ClientStateGetResponse_Status ClientStateGetResponse_StatusINVALID_ROOT ClientStateGetResponse_StatusINVALID_ADDRESS ClientStateGetResponse_StatusNO_RESOURCE ClientStateGetResponse_StatusNO_ROOT ClientStateGetResponse_StatusNOT_READY ClientStateGetResponse_StatusINTERNAL_ERROR ClientStateGetResponse_StatusOK ClientStateGetResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.ClientState","link":"Data-Sawtooth-ClientState.html#t:ClientStateGetResponse_Status"},{"display_html":"data ClientStatusGetRequest = ClientStatusGetRequest {}","name":"ClientStatusGetRequest ClientStatusGetRequest","module":"Data.Sawtooth.ClientStatus","link":"Data-Sawtooth-ClientStatus.html#t:ClientStatusGetRequest"},{"display_html":"data ClientStatusGetResponse = ClientStatusGetResponse {}","name":"ClientStatusGetResponse ClientStatusGetResponse clientStatusGetResponseEndpoint clientStatusGetResponsePeers clientStatusGetResponseStatus","module":"Data.Sawtooth.ClientStatus","link":"Data-Sawtooth-ClientStatus.html#t:ClientStatusGetResponse"},{"display_html":"data ClientStatusGetResponse_Status","name":"ClientStatusGetResponse_Status ClientStatusGetResponse_StatusERROR ClientStatusGetResponse_StatusOK ClientStatusGetResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.ClientStatus","link":"Data-Sawtooth-ClientStatus.html#t:ClientStatusGetResponse_Status"},{"display_html":"newtype ClientStatusGetResponse_Peer = ClientStatusGetResponse_Peer {}","name":"ClientStatusGetResponse_Peer ClientStatusGetResponse_Peer clientStatusGetResponse_PeerEndpoint","module":"Data.Sawtooth.ClientStatus","link":"Data-Sawtooth-ClientStatus.html#t:ClientStatusGetResponse_Peer"},{"display_html":"data ConsensusPeerMessageHeader = ConsensusPeerMessageHeader {}","name":"ConsensusPeerMessageHeader ConsensusPeerMessageHeader consensusPeerMessageHeaderVersion consensusPeerMessageHeaderName consensusPeerMessageHeaderMessageType consensusPeerMessageHeaderContentSha512 consensusPeerMessageHeaderSignerId","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusPeerMessageHeader"},{"display_html":"data ConsensusPeerMessage = ConsensusPeerMessage {}","name":"ConsensusPeerMessage ConsensusPeerMessage consensusPeerMessageContent consensusPeerMessageHeaderSignature consensusPeerMessageHeader","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusPeerMessage"},{"display_html":"data ConsensusBlock = ConsensusBlock {}","name":"ConsensusBlock ConsensusBlock consensusBlockSummary consensusBlockPayload consensusBlockBlockNum consensusBlockSignerId consensusBlockPreviousId consensusBlockBlockId","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusBlock"},{"display_html":"newtype ConsensusPeerInfo = ConsensusPeerInfo {}","name":"ConsensusPeerInfo ConsensusPeerInfo consensusPeerInfoPeerId","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusPeerInfo"},{"display_html":"data ConsensusSettingsEntry = ConsensusSettingsEntry {}","name":"ConsensusSettingsEntry ConsensusSettingsEntry consensusSettingsEntryValue consensusSettingsEntryKey","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusSettingsEntry"},{"display_html":"data ConsensusStateEntry = ConsensusStateEntry {}","name":"ConsensusStateEntry ConsensusStateEntry consensusStateEntryData consensusStateEntryAddress","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusStateEntry"},{"display_html":"data ConsensusRegisterRequest = ConsensusRegisterRequest {}","name":"ConsensusRegisterRequest ConsensusRegisterRequest consensusRegisterRequestAdditionalProtocols consensusRegisterRequestVersion consensusRegisterRequestName","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusRegisterRequest"},{"display_html":"data ConsensusRegisterRequest_Protocol = ConsensusRegisterRequest_Protocol {}","name":"ConsensusRegisterRequest_Protocol ConsensusRegisterRequest_Protocol consensusRegisterRequest_ProtocolVersion consensusRegisterRequest_ProtocolName","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusRegisterRequest_Protocol"},{"display_html":"data ConsensusRegisterResponse = ConsensusRegisterResponse {}","name":"ConsensusRegisterResponse ConsensusRegisterResponse consensusRegisterResponseLocalPeerInfo consensusRegisterResponsePeers consensusRegisterResponseChainHead consensusRegisterResponseStatus","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusRegisterResponse"},{"display_html":"data ConsensusRegisterResponse_Status","name":"ConsensusRegisterResponse_Status ConsensusRegisterResponse_StatusNOT_READY ConsensusRegisterResponse_StatusSERVICE_ERROR ConsensusRegisterResponse_StatusBAD_REQUEST ConsensusRegisterResponse_StatusOK ConsensusRegisterResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusRegisterResponse_Status"},{"display_html":"newtype ConsensusNotifyPeerConnected = ConsensusNotifyPeerConnected {}","name":"ConsensusNotifyPeerConnected ConsensusNotifyPeerConnected consensusNotifyPeerConnectedPeerInfo","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusNotifyPeerConnected"},{"display_html":"newtype ConsensusNotifyPeerDisconnected = ConsensusNotifyPeerDisconnected {}","name":"ConsensusNotifyPeerDisconnected ConsensusNotifyPeerDisconnected consensusNotifyPeerDisconnectedPeerId","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusNotifyPeerDisconnected"},{"display_html":"data ConsensusNotifyPeerMessage = ConsensusNotifyPeerMessage {}","name":"ConsensusNotifyPeerMessage ConsensusNotifyPeerMessage consensusNotifyPeerMessageSenderId consensusNotifyPeerMessageMessage","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusNotifyPeerMessage"},{"display_html":"newtype ConsensusNotifyBlockNew = ConsensusNotifyBlockNew {}","name":"ConsensusNotifyBlockNew ConsensusNotifyBlockNew consensusNotifyBlockNewBlock","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusNotifyBlockNew"},{"display_html":"newtype ConsensusNotifyBlockValid = ConsensusNotifyBlockValid {}","name":"ConsensusNotifyBlockValid ConsensusNotifyBlockValid consensusNotifyBlockValidBlockId","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusNotifyBlockValid"},{"display_html":"newtype ConsensusNotifyBlockInvalid = ConsensusNotifyBlockInvalid {}","name":"ConsensusNotifyBlockInvalid ConsensusNotifyBlockInvalid consensusNotifyBlockInvalidBlockId","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusNotifyBlockInvalid"},{"display_html":"newtype ConsensusNotifyBlockCommit = ConsensusNotifyBlockCommit {}","name":"ConsensusNotifyBlockCommit ConsensusNotifyBlockCommit consensusNotifyBlockCommitBlockId","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusNotifyBlockCommit"},{"display_html":"data ConsensusNotifyEngineActivated = ConsensusNotifyEngineActivated {}","name":"ConsensusNotifyEngineActivated ConsensusNotifyEngineActivated consensusNotifyEngineActivatedLocalPeerInfo consensusNotifyEngineActivatedPeers consensusNotifyEngineActivatedChainHead","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusNotifyEngineActivated"},{"display_html":"data ConsensusNotifyEngineDeactivated = ConsensusNotifyEngineDeactivated {}","name":"ConsensusNotifyEngineDeactivated ConsensusNotifyEngineDeactivated","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusNotifyEngineDeactivated"},{"display_html":"data ConsensusNotifyAck = ConsensusNotifyAck {}","name":"ConsensusNotifyAck ConsensusNotifyAck","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusNotifyAck"},{"display_html":"data ConsensusSendToRequest = ConsensusSendToRequest {}","name":"ConsensusSendToRequest ConsensusSendToRequest consensusSendToRequestReceiverId consensusSendToRequestMessageType consensusSendToRequestContent","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusSendToRequest"},{"display_html":"newtype ConsensusSendToResponse = ConsensusSendToResponse {}","name":"ConsensusSendToResponse ConsensusSendToResponse consensusSendToResponseStatus","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusSendToResponse"},{"display_html":"data ConsensusSendToResponse_Status","name":"ConsensusSendToResponse_Status ConsensusSendToResponse_StatusNOT_ACTIVE_ENGINE ConsensusSendToResponse_StatusUNKNOWN_PEER ConsensusSendToResponse_StatusNOT_READY ConsensusSendToResponse_StatusSERVICE_ERROR ConsensusSendToResponse_StatusBAD_REQUEST ConsensusSendToResponse_StatusOK ConsensusSendToResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusSendToResponse_Status"},{"display_html":"data ConsensusBroadcastRequest = ConsensusBroadcastRequest {}","name":"ConsensusBroadcastRequest ConsensusBroadcastRequest consensusBroadcastRequestMessageType consensusBroadcastRequestContent","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusBroadcastRequest"},{"display_html":"newtype ConsensusBroadcastResponse = ConsensusBroadcastResponse {}","name":"ConsensusBroadcastResponse ConsensusBroadcastResponse consensusBroadcastResponseStatus","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusBroadcastResponse"},{"display_html":"data ConsensusBroadcastResponse_Status","name":"ConsensusBroadcastResponse_Status ConsensusBroadcastResponse_StatusNOT_ACTIVE_ENGINE ConsensusBroadcastResponse_StatusNOT_READY ConsensusBroadcastResponse_StatusSERVICE_ERROR ConsensusBroadcastResponse_StatusBAD_REQUEST ConsensusBroadcastResponse_StatusOK ConsensusBroadcastResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusBroadcastResponse_Status"},{"display_html":"newtype ConsensusInitializeBlockRequest = ConsensusInitializeBlockRequest {}","name":"ConsensusInitializeBlockRequest ConsensusInitializeBlockRequest consensusInitializeBlockRequestPreviousId","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusInitializeBlockRequest"},{"display_html":"newtype ConsensusInitializeBlockResponse = ConsensusInitializeBlockResponse {}","name":"ConsensusInitializeBlockResponse ConsensusInitializeBlockResponse consensusInitializeBlockResponseStatus","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusInitializeBlockResponse"},{"display_html":"data ConsensusInitializeBlockResponse_Status","name":"ConsensusInitializeBlockResponse_Status ConsensusInitializeBlockResponse_StatusNOT_ACTIVE_ENGINE ConsensusInitializeBlockResponse_StatusUNKNOWN_BLOCK ConsensusInitializeBlockResponse_StatusINVALID_STATE ConsensusInitializeBlockResponse_StatusNOT_READY ConsensusInitializeBlockResponse_StatusSERVICE_ERROR ConsensusInitializeBlockResponse_StatusBAD_REQUEST ConsensusInitializeBlockResponse_StatusOK ConsensusInitializeBlockResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusInitializeBlockResponse_Status"},{"display_html":"data ConsensusSummarizeBlockRequest = ConsensusSummarizeBlockRequest {}","name":"ConsensusSummarizeBlockRequest ConsensusSummarizeBlockRequest","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusSummarizeBlockRequest"},{"display_html":"data ConsensusSummarizeBlockResponse = ConsensusSummarizeBlockResponse {}","name":"ConsensusSummarizeBlockResponse ConsensusSummarizeBlockResponse consensusSummarizeBlockResponseSummary consensusSummarizeBlockResponseStatus","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusSummarizeBlockResponse"},{"display_html":"data ConsensusSummarizeBlockResponse_Status","name":"ConsensusSummarizeBlockResponse_Status ConsensusSummarizeBlockResponse_StatusNOT_ACTIVE_ENGINE ConsensusSummarizeBlockResponse_StatusBLOCK_NOT_READY ConsensusSummarizeBlockResponse_StatusINVALID_STATE ConsensusSummarizeBlockResponse_StatusNOT_READY ConsensusSummarizeBlockResponse_StatusSERVICE_ERROR ConsensusSummarizeBlockResponse_StatusBAD_REQUEST ConsensusSummarizeBlockResponse_StatusOK ConsensusSummarizeBlockResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusSummarizeBlockResponse_Status"},{"display_html":"newtype ConsensusFinalizeBlockRequest = ConsensusFinalizeBlockRequest {}","name":"ConsensusFinalizeBlockRequest ConsensusFinalizeBlockRequest consensusFinalizeBlockRequestData","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusFinalizeBlockRequest"},{"display_html":"data ConsensusFinalizeBlockResponse = ConsensusFinalizeBlockResponse {}","name":"ConsensusFinalizeBlockResponse ConsensusFinalizeBlockResponse consensusFinalizeBlockResponseBlockId consensusFinalizeBlockResponseStatus","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusFinalizeBlockResponse"},{"display_html":"data ConsensusFinalizeBlockResponse_Status","name":"ConsensusFinalizeBlockResponse_Status ConsensusFinalizeBlockResponse_StatusNOT_ACTIVE_ENGINE ConsensusFinalizeBlockResponse_StatusBLOCK_NOT_READY ConsensusFinalizeBlockResponse_StatusINVALID_STATE ConsensusFinalizeBlockResponse_StatusNOT_READY ConsensusFinalizeBlockResponse_StatusSERVICE_ERROR ConsensusFinalizeBlockResponse_StatusBAD_REQUEST ConsensusFinalizeBlockResponse_StatusOK ConsensusFinalizeBlockResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusFinalizeBlockResponse_Status"},{"display_html":"data ConsensusCancelBlockRequest = ConsensusCancelBlockRequest {}","name":"ConsensusCancelBlockRequest ConsensusCancelBlockRequest","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusCancelBlockRequest"},{"display_html":"newtype ConsensusCancelBlockResponse = ConsensusCancelBlockResponse {}","name":"ConsensusCancelBlockResponse ConsensusCancelBlockResponse consensusCancelBlockResponseStatus","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusCancelBlockResponse"},{"display_html":"data ConsensusCancelBlockResponse_Status","name":"ConsensusCancelBlockResponse_Status ConsensusCancelBlockResponse_StatusNOT_ACTIVE_ENGINE ConsensusCancelBlockResponse_StatusINVALID_STATE ConsensusCancelBlockResponse_StatusNOT_READY ConsensusCancelBlockResponse_StatusSERVICE_ERROR ConsensusCancelBlockResponse_StatusBAD_REQUEST ConsensusCancelBlockResponse_StatusOK ConsensusCancelBlockResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusCancelBlockResponse_Status"},{"display_html":"newtype ConsensusCheckBlocksRequest = ConsensusCheckBlocksRequest {}","name":"ConsensusCheckBlocksRequest ConsensusCheckBlocksRequest consensusCheckBlocksRequestBlockIds","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusCheckBlocksRequest"},{"display_html":"newtype ConsensusCheckBlocksResponse = ConsensusCheckBlocksResponse {}","name":"ConsensusCheckBlocksResponse ConsensusCheckBlocksResponse consensusCheckBlocksResponseStatus","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusCheckBlocksResponse"},{"display_html":"data ConsensusCheckBlocksResponse_Status","name":"ConsensusCheckBlocksResponse_Status ConsensusCheckBlocksResponse_StatusNOT_ACTIVE_ENGINE ConsensusCheckBlocksResponse_StatusUNKNOWN_BLOCK ConsensusCheckBlocksResponse_StatusNOT_READY ConsensusCheckBlocksResponse_StatusSERVICE_ERROR ConsensusCheckBlocksResponse_StatusBAD_REQUEST ConsensusCheckBlocksResponse_StatusOK ConsensusCheckBlocksResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusCheckBlocksResponse_Status"},{"display_html":"newtype ConsensusCommitBlockRequest = ConsensusCommitBlockRequest {}","name":"ConsensusCommitBlockRequest ConsensusCommitBlockRequest consensusCommitBlockRequestBlockId","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusCommitBlockRequest"},{"display_html":"newtype ConsensusCommitBlockResponse = ConsensusCommitBlockResponse {}","name":"ConsensusCommitBlockResponse ConsensusCommitBlockResponse consensusCommitBlockResponseStatus","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusCommitBlockResponse"},{"display_html":"data ConsensusCommitBlockResponse_Status","name":"ConsensusCommitBlockResponse_Status ConsensusCommitBlockResponse_StatusNOT_ACTIVE_ENGINE ConsensusCommitBlockResponse_StatusUNKNOWN_BLOCK ConsensusCommitBlockResponse_StatusNOT_READY ConsensusCommitBlockResponse_StatusSERVICE_ERROR ConsensusCommitBlockResponse_StatusBAD_REQUEST ConsensusCommitBlockResponse_StatusOK ConsensusCommitBlockResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusCommitBlockResponse_Status"},{"display_html":"newtype ConsensusIgnoreBlockRequest = ConsensusIgnoreBlockRequest {}","name":"ConsensusIgnoreBlockRequest ConsensusIgnoreBlockRequest consensusIgnoreBlockRequestBlockId","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusIgnoreBlockRequest"},{"display_html":"newtype ConsensusIgnoreBlockResponse = ConsensusIgnoreBlockResponse {}","name":"ConsensusIgnoreBlockResponse ConsensusIgnoreBlockResponse consensusIgnoreBlockResponseStatus","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusIgnoreBlockResponse"},{"display_html":"data ConsensusIgnoreBlockResponse_Status","name":"ConsensusIgnoreBlockResponse_Status ConsensusIgnoreBlockResponse_StatusNOT_ACTIVE_ENGINE ConsensusIgnoreBlockResponse_StatusUNKNOWN_BLOCK ConsensusIgnoreBlockResponse_StatusNOT_READY ConsensusIgnoreBlockResponse_StatusSERVICE_ERROR ConsensusIgnoreBlockResponse_StatusBAD_REQUEST ConsensusIgnoreBlockResponse_StatusOK ConsensusIgnoreBlockResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusIgnoreBlockResponse_Status"},{"display_html":"newtype ConsensusFailBlockRequest = ConsensusFailBlockRequest {}","name":"ConsensusFailBlockRequest ConsensusFailBlockRequest consensusFailBlockRequestBlockId","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusFailBlockRequest"},{"display_html":"newtype ConsensusFailBlockResponse = ConsensusFailBlockResponse {}","name":"ConsensusFailBlockResponse ConsensusFailBlockResponse consensusFailBlockResponseStatus","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusFailBlockResponse"},{"display_html":"data ConsensusFailBlockResponse_Status","name":"ConsensusFailBlockResponse_Status ConsensusFailBlockResponse_StatusNOT_ACTIVE_ENGINE ConsensusFailBlockResponse_StatusUNKNOWN_BLOCK ConsensusFailBlockResponse_StatusNOT_READY ConsensusFailBlockResponse_StatusSERVICE_ERROR ConsensusFailBlockResponse_StatusBAD_REQUEST ConsensusFailBlockResponse_StatusOK ConsensusFailBlockResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusFailBlockResponse_Status"},{"display_html":"newtype ConsensusBlocksGetRequest = ConsensusBlocksGetRequest {}","name":"ConsensusBlocksGetRequest ConsensusBlocksGetRequest consensusBlocksGetRequestBlockIds","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusBlocksGetRequest"},{"display_html":"data ConsensusBlocksGetResponse = ConsensusBlocksGetResponse {}","name":"ConsensusBlocksGetResponse ConsensusBlocksGetResponse consensusBlocksGetResponseBlocks consensusBlocksGetResponseStatus","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusBlocksGetResponse"},{"display_html":"data ConsensusBlocksGetResponse_Status","name":"ConsensusBlocksGetResponse_Status ConsensusBlocksGetResponse_StatusNOT_ACTIVE_ENGINE ConsensusBlocksGetResponse_StatusUNKNOWN_BLOCK ConsensusBlocksGetResponse_StatusNOT_READY ConsensusBlocksGetResponse_StatusSERVICE_ERROR ConsensusBlocksGetResponse_StatusBAD_REQUEST ConsensusBlocksGetResponse_StatusOK ConsensusBlocksGetResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusBlocksGetResponse_Status"},{"display_html":"data ConsensusChainHeadGetRequest = ConsensusChainHeadGetRequest {}","name":"ConsensusChainHeadGetRequest ConsensusChainHeadGetRequest","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusChainHeadGetRequest"},{"display_html":"data ConsensusChainHeadGetResponse = ConsensusChainHeadGetResponse {}","name":"ConsensusChainHeadGetResponse ConsensusChainHeadGetResponse consensusChainHeadGetResponseBlock consensusChainHeadGetResponseStatus","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusChainHeadGetResponse"},{"display_html":"data ConsensusChainHeadGetResponse_Status","name":"ConsensusChainHeadGetResponse_Status ConsensusChainHeadGetResponse_StatusNOT_ACTIVE_ENGINE ConsensusChainHeadGetResponse_StatusNO_CHAIN_HEAD ConsensusChainHeadGetResponse_StatusNOT_READY ConsensusChainHeadGetResponse_StatusSERVICE_ERROR ConsensusChainHeadGetResponse_StatusBAD_REQUEST ConsensusChainHeadGetResponse_StatusOK ConsensusChainHeadGetResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusChainHeadGetResponse_Status"},{"display_html":"data ConsensusSettingsGetRequest = ConsensusSettingsGetRequest {}","name":"ConsensusSettingsGetRequest ConsensusSettingsGetRequest consensusSettingsGetRequestKeys consensusSettingsGetRequestBlockId","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusSettingsGetRequest"},{"display_html":"data ConsensusSettingsGetResponse = ConsensusSettingsGetResponse {}","name":"ConsensusSettingsGetResponse ConsensusSettingsGetResponse consensusSettingsGetResponseEntries consensusSettingsGetResponseStatus","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusSettingsGetResponse"},{"display_html":"data ConsensusSettingsGetResponse_Status","name":"ConsensusSettingsGetResponse_Status ConsensusSettingsGetResponse_StatusNOT_ACTIVE_ENGINE ConsensusSettingsGetResponse_StatusUNKNOWN_BLOCK ConsensusSettingsGetResponse_StatusNOT_READY ConsensusSettingsGetResponse_StatusSERVICE_ERROR ConsensusSettingsGetResponse_StatusBAD_REQUEST ConsensusSettingsGetResponse_StatusOK ConsensusSettingsGetResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusSettingsGetResponse_Status"},{"display_html":"data ConsensusStateGetRequest = ConsensusStateGetRequest {}","name":"ConsensusStateGetRequest ConsensusStateGetRequest consensusStateGetRequestAddresses consensusStateGetRequestBlockId","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusStateGetRequest"},{"display_html":"data ConsensusStateGetResponse = ConsensusStateGetResponse {}","name":"ConsensusStateGetResponse ConsensusStateGetResponse consensusStateGetResponseEntries consensusStateGetResponseStatus","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusStateGetResponse"},{"display_html":"data ConsensusStateGetResponse_Status","name":"ConsensusStateGetResponse_Status ConsensusStateGetResponse_StatusNOT_ACTIVE_ENGINE ConsensusStateGetResponse_StatusUNKNOWN_BLOCK ConsensusStateGetResponse_StatusNOT_READY ConsensusStateGetResponse_StatusSERVICE_ERROR ConsensusStateGetResponse_StatusBAD_REQUEST ConsensusStateGetResponse_StatusOK ConsensusStateGetResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusStateGetResponse_Status"},{"display_html":"data Event = Event {}","name":"Event Event eventData eventAttributes eventEventType","module":"Data.Sawtooth.Events","link":"Data-Sawtooth-Events.html#t:Event"},{"display_html":"data Event_Attribute = Event_Attribute {}","name":"Event_Attribute Event_Attribute event_AttributeValue event_AttributeKey","module":"Data.Sawtooth.Events","link":"Data-Sawtooth-Events.html#t:Event_Attribute"},{"display_html":"newtype EventList = EventList {}","name":"EventList EventList eventListEvents","module":"Data.Sawtooth.Events","link":"Data-Sawtooth-Events.html#t:EventList"},{"display_html":"data EventFilter = EventFilter {}","name":"EventFilter EventFilter eventFilterFilterType eventFilterMatchString eventFilterKey","module":"Data.Sawtooth.Events","link":"Data-Sawtooth-Events.html#t:EventFilter"},{"display_html":"data EventFilter_FilterType","name":"EventFilter_FilterType EventFilter_FilterTypeREGEX_ALL EventFilter_FilterTypeREGEX_ANY EventFilter_FilterTypeSIMPLE_ALL EventFilter_FilterTypeSIMPLE_ANY EventFilter_FilterTypeFILTER_TYPE_UNSET","module":"Data.Sawtooth.Events","link":"Data-Sawtooth-Events.html#t:EventFilter_FilterType"},{"display_html":"data EventSubscription = EventSubscription {}","name":"EventSubscription EventSubscription eventSubscriptionFilters eventSubscriptionEventType","module":"Data.Sawtooth.Events","link":"Data-Sawtooth-Events.html#t:EventSubscription"},{"display_html":"data ClientEventsSubscribeRequest = ClientEventsSubscribeRequest {}","name":"ClientEventsSubscribeRequest ClientEventsSubscribeRequest clientEventsSubscribeRequestLastKnownBlockIds clientEventsSubscribeRequestSubscriptions","module":"Data.Sawtooth.ClientEvent","link":"Data-Sawtooth-ClientEvent.html#t:ClientEventsSubscribeRequest"},{"display_html":"data ClientEventsSubscribeResponse = ClientEventsSubscribeResponse {}","name":"ClientEventsSubscribeResponse ClientEventsSubscribeResponse clientEventsSubscribeResponseResponseMessage clientEventsSubscribeResponseStatus","module":"Data.Sawtooth.ClientEvent","link":"Data-Sawtooth-ClientEvent.html#t:ClientEventsSubscribeResponse"},{"display_html":"data ClientEventsSubscribeResponse_Status","name":"ClientEventsSubscribeResponse_Status ClientEventsSubscribeResponse_StatusUNKNOWN_BLOCK ClientEventsSubscribeResponse_StatusINVALID_FILTER ClientEventsSubscribeResponse_StatusOK ClientEventsSubscribeResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.ClientEvent","link":"Data-Sawtooth-ClientEvent.html#t:ClientEventsSubscribeResponse_Status"},{"display_html":"data ClientEventsUnsubscribeRequest = ClientEventsUnsubscribeRequest {}","name":"ClientEventsUnsubscribeRequest ClientEventsUnsubscribeRequest","module":"Data.Sawtooth.ClientEvent","link":"Data-Sawtooth-ClientEvent.html#t:ClientEventsUnsubscribeRequest"},{"display_html":"newtype ClientEventsUnsubscribeResponse = ClientEventsUnsubscribeResponse {}","name":"ClientEventsUnsubscribeResponse ClientEventsUnsubscribeResponse clientEventsUnsubscribeResponseStatus","module":"Data.Sawtooth.ClientEvent","link":"Data-Sawtooth-ClientEvent.html#t:ClientEventsUnsubscribeResponse"},{"display_html":"data ClientEventsUnsubscribeResponse_Status","name":"ClientEventsUnsubscribeResponse_Status ClientEventsUnsubscribeResponse_StatusINTERNAL_ERROR ClientEventsUnsubscribeResponse_StatusOK ClientEventsUnsubscribeResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.ClientEvent","link":"Data-Sawtooth-ClientEvent.html#t:ClientEventsUnsubscribeResponse_Status"},{"display_html":"data ClientEventsGetRequest = ClientEventsGetRequest {}","name":"ClientEventsGetRequest ClientEventsGetRequest clientEventsGetRequestBlockIds clientEventsGetRequestSubscriptions","module":"Data.Sawtooth.ClientEvent","link":"Data-Sawtooth-ClientEvent.html#t:ClientEventsGetRequest"},{"display_html":"data ClientEventsGetResponse = ClientEventsGetResponse {}","name":"ClientEventsGetResponse ClientEventsGetResponse clientEventsGetResponseEvents clientEventsGetResponseStatus","module":"Data.Sawtooth.ClientEvent","link":"Data-Sawtooth-ClientEvent.html#t:ClientEventsGetResponse"},{"display_html":"data ClientEventsGetResponse_Status","name":"ClientEventsGetResponse_Status ClientEventsGetResponse_StatusUNKNOWN_BLOCK ClientEventsGetResponse_StatusINVALID_FILTER ClientEventsGetResponse_StatusINTERNAL_ERROR ClientEventsGetResponse_StatusOK ClientEventsGetResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.ClientEvent","link":"Data-Sawtooth-ClientEvent.html#t:ClientEventsGetResponse_Status"},{"display_html":"data Policy = Policy {}","name":"Policy Policy policyEntries policyName","module":"Data.Sawtooth.Identity","link":"Data-Sawtooth-Identity.html#t:Policy"},{"display_html":"data Policy_EntryType","name":"Policy_EntryType Policy_EntryTypeDENY_KEY Policy_EntryTypePERMIT_KEY Policy_EntryTypeENTRY_TYPE_UNSET","module":"Data.Sawtooth.Identity","link":"Data-Sawtooth-Identity.html#t:Policy_EntryType"},{"display_html":"data Policy_Entry = Policy_Entry {}","name":"Policy_Entry Policy_Entry policy_EntryKey policy_EntryType","module":"Data.Sawtooth.Identity","link":"Data-Sawtooth-Identity.html#t:Policy_Entry"},{"display_html":"newtype PolicyList = PolicyList {}","name":"PolicyList PolicyList policyListPolicies","module":"Data.Sawtooth.Identity","link":"Data-Sawtooth-Identity.html#t:PolicyList"},{"display_html":"data Role = Role {}","name":"Role Role rolePolicyName roleName","module":"Data.Sawtooth.Identity","link":"Data-Sawtooth-Identity.html#t:Role"},{"display_html":"newtype RoleList = RoleList {}","name":"RoleList RoleList roleListRoles","module":"Data.Sawtooth.Identity","link":"Data-Sawtooth-Identity.html#t:RoleList"},{"display_html":"data ChangeLogEntry = ChangeLogEntry {}","name":"ChangeLogEntry ChangeLogEntry changeLogEntrySuccessors changeLogEntryAdditions changeLogEntryParent","module":"Data.Sawtooth.Merkle","link":"Data-Sawtooth-Merkle.html#t:ChangeLogEntry"},{"display_html":"data ChangeLogEntry_Successor = ChangeLogEntry_Successor {}","name":"ChangeLogEntry_Successor ChangeLogEntry_Successor changeLogEntry_SuccessorDeletions changeLogEntry_SuccessorSuccessor","module":"Data.Sawtooth.Merkle","link":"Data-Sawtooth-Merkle.html#t:ChangeLogEntry_Successor"},{"display_html":"data DisconnectMessage = DisconnectMessage {}","name":"DisconnectMessage DisconnectMessage","module":"Data.Sawtooth.Network","link":"Data-Sawtooth-Network.html#t:DisconnectMessage"},{"display_html":"data PeerRegisterRequest = PeerRegisterRequest {}","name":"PeerRegisterRequest PeerRegisterRequest peerRegisterRequestProtocolVersion peerRegisterRequestEndpoint","module":"Data.Sawtooth.Network","link":"Data-Sawtooth-Network.html#t:PeerRegisterRequest"},{"display_html":"data PeerUnregisterRequest = PeerUnregisterRequest {}","name":"PeerUnregisterRequest PeerUnregisterRequest","module":"Data.Sawtooth.Network","link":"Data-Sawtooth-Network.html#t:PeerUnregisterRequest"},{"display_html":"data GetPeersRequest = GetPeersRequest {}","name":"GetPeersRequest GetPeersRequest","module":"Data.Sawtooth.Network","link":"Data-Sawtooth-Network.html#t:GetPeersRequest"},{"display_html":"newtype GetPeersResponse = GetPeersResponse {}","name":"GetPeersResponse GetPeersResponse getPeersResponsePeerEndpoints","module":"Data.Sawtooth.Network","link":"Data-Sawtooth-Network.html#t:GetPeersResponse"},{"display_html":"data PingRequest = PingRequest {}","name":"PingRequest PingRequest","module":"Data.Sawtooth.Network","link":"Data-Sawtooth-Network.html#t:PingRequest"},{"display_html":"data PingResponse = PingResponse {}","name":"PingResponse PingResponse","module":"Data.Sawtooth.Network","link":"Data-Sawtooth-Network.html#t:PingResponse"},{"display_html":"data GossipMessage = GossipMessage {}","name":"GossipMessage GossipMessage gossipMessageTimeToLive gossipMessageContentType gossipMessageContent","module":"Data.Sawtooth.Network","link":"Data-Sawtooth-Network.html#t:GossipMessage"},{"display_html":"data GossipMessage_ContentType","name":"GossipMessage_ContentType GossipMessage_ContentTypeCONSENSUS GossipMessage_ContentTypeBATCH GossipMessage_ContentTypeBLOCK GossipMessage_ContentTypeCONTENT_TYPE_UNSET","module":"Data.Sawtooth.Network","link":"Data-Sawtooth-Network.html#t:GossipMessage_ContentType"},{"display_html":"newtype NetworkAcknowledgement = NetworkAcknowledgement {}","name":"NetworkAcknowledgement NetworkAcknowledgement networkAcknowledgementStatus","module":"Data.Sawtooth.Network","link":"Data-Sawtooth-Network.html#t:NetworkAcknowledgement"},{"display_html":"data NetworkAcknowledgement_Status","name":"NetworkAcknowledgement_Status NetworkAcknowledgement_StatusERROR NetworkAcknowledgement_StatusOK NetworkAcknowledgement_StatusSTATUS_UNSET","module":"Data.Sawtooth.Network","link":"Data-Sawtooth-Network.html#t:NetworkAcknowledgement_Status"},{"display_html":"data GossipBlockRequest = GossipBlockRequest {}","name":"GossipBlockRequest GossipBlockRequest gossipBlockRequestTimeToLive gossipBlockRequestNonce gossipBlockRequestBlockId","module":"Data.Sawtooth.Network","link":"Data-Sawtooth-Network.html#t:GossipBlockRequest"},{"display_html":"newtype GossipBlockResponse = GossipBlockResponse {}","name":"GossipBlockResponse GossipBlockResponse gossipBlockResponseContent","module":"Data.Sawtooth.Network","link":"Data-Sawtooth-Network.html#t:GossipBlockResponse"},{"display_html":"newtype GossipBatchResponse = GossipBatchResponse {}","name":"GossipBatchResponse GossipBatchResponse gossipBatchResponseContent","module":"Data.Sawtooth.Network","link":"Data-Sawtooth-Network.html#t:GossipBatchResponse"},{"display_html":"data GossipBatchByBatchIdRequest = GossipBatchByBatchIdRequest {}","name":"GossipBatchByBatchIdRequest GossipBatchByBatchIdRequest gossipBatchByBatchIdRequestTimeToLive gossipBatchByBatchIdRequestNonce gossipBatchByBatchIdRequestId","module":"Data.Sawtooth.Network","link":"Data-Sawtooth-Network.html#t:GossipBatchByBatchIdRequest"},{"display_html":"data GossipBatchByTransactionIdRequest = GossipBatchByTransactionIdRequest {}","name":"GossipBatchByTransactionIdRequest GossipBatchByTransactionIdRequest gossipBatchByTransactionIdRequestTimeToLive gossipBatchByTransactionIdRequestNonce gossipBatchByTransactionIdRequestIds","module":"Data.Sawtooth.Network","link":"Data-Sawtooth-Network.html#t:GossipBatchByTransactionIdRequest"},{"display_html":"newtype Setting = Setting {}","name":"Setting Setting settingEntries","module":"Data.Sawtooth.Setting","link":"Data-Sawtooth-Setting.html#t:Setting"},{"display_html":"data Setting_Entry = Setting_Entry {}","name":"Setting_Entry Setting_Entry setting_EntryValue setting_EntryKey","module":"Data.Sawtooth.Setting","link":"Data-Sawtooth-Setting.html#t:Setting_Entry"},{"display_html":"data TpStateEntry = TpStateEntry {}","name":"TpStateEntry TpStateEntry tpStateEntryData tpStateEntryAddress","module":"Data.Sawtooth.StateContext","link":"Data-Sawtooth-StateContext.html#t:TpStateEntry"},{"display_html":"data TpStateGetRequest = TpStateGetRequest {}","name":"TpStateGetRequest TpStateGetRequest tpStateGetRequestAddresses tpStateGetRequestContextId","module":"Data.Sawtooth.StateContext","link":"Data-Sawtooth-StateContext.html#t:TpStateGetRequest"},{"display_html":"data TpStateGetResponse = TpStateGetResponse {}","name":"TpStateGetResponse TpStateGetResponse tpStateGetResponseStatus tpStateGetResponseEntries","module":"Data.Sawtooth.StateContext","link":"Data-Sawtooth-StateContext.html#t:TpStateGetResponse"},{"display_html":"data TpStateGetResponse_Status","name":"TpStateGetResponse_Status TpStateGetResponse_StatusAUTHORIZATION_ERROR TpStateGetResponse_StatusOK TpStateGetResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.StateContext","link":"Data-Sawtooth-StateContext.html#t:TpStateGetResponse_Status"},{"display_html":"data TpStateSetRequest = TpStateSetRequest {}","name":"TpStateSetRequest TpStateSetRequest tpStateSetRequestEntries tpStateSetRequestContextId","module":"Data.Sawtooth.StateContext","link":"Data-Sawtooth-StateContext.html#t:TpStateSetRequest"},{"display_html":"data TpStateSetResponse = TpStateSetResponse {}","name":"TpStateSetResponse TpStateSetResponse tpStateSetResponseStatus tpStateSetResponseAddresses","module":"Data.Sawtooth.StateContext","link":"Data-Sawtooth-StateContext.html#t:TpStateSetResponse"},{"display_html":"data TpStateSetResponse_Status","name":"TpStateSetResponse_Status TpStateSetResponse_StatusAUTHORIZATION_ERROR TpStateSetResponse_StatusOK TpStateSetResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.StateContext","link":"Data-Sawtooth-StateContext.html#t:TpStateSetResponse_Status"},{"display_html":"data TpStateDeleteRequest = TpStateDeleteRequest {}","name":"TpStateDeleteRequest TpStateDeleteRequest tpStateDeleteRequestAddresses tpStateDeleteRequestContextId","module":"Data.Sawtooth.StateContext","link":"Data-Sawtooth-StateContext.html#t:TpStateDeleteRequest"},{"display_html":"data TpStateDeleteResponse = TpStateDeleteResponse {}","name":"TpStateDeleteResponse TpStateDeleteResponse tpStateDeleteResponseStatus tpStateDeleteResponseAddresses","module":"Data.Sawtooth.StateContext","link":"Data-Sawtooth-StateContext.html#t:TpStateDeleteResponse"},{"display_html":"data TpStateDeleteResponse_Status","name":"TpStateDeleteResponse_Status TpStateDeleteResponse_StatusAUTHORIZATION_ERROR TpStateDeleteResponse_StatusOK TpStateDeleteResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.StateContext","link":"Data-Sawtooth-StateContext.html#t:TpStateDeleteResponse_Status"},{"display_html":"data TpReceiptAddDataRequest = TpReceiptAddDataRequest {}","name":"TpReceiptAddDataRequest TpReceiptAddDataRequest tpReceiptAddDataRequestData tpReceiptAddDataRequestContextId","module":"Data.Sawtooth.StateContext","link":"Data-Sawtooth-StateContext.html#t:TpReceiptAddDataRequest"},{"display_html":"newtype TpReceiptAddDataResponse = TpReceiptAddDataResponse {}","name":"TpReceiptAddDataResponse TpReceiptAddDataResponse tpReceiptAddDataResponseStatus","module":"Data.Sawtooth.StateContext","link":"Data-Sawtooth-StateContext.html#t:TpReceiptAddDataResponse"},{"display_html":"data TpReceiptAddDataResponse_Status","name":"TpReceiptAddDataResponse_Status TpReceiptAddDataResponse_StatusERROR TpReceiptAddDataResponse_StatusOK TpReceiptAddDataResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.StateContext","link":"Data-Sawtooth-StateContext.html#t:TpReceiptAddDataResponse_Status"},{"display_html":"data TpEventAddRequest = TpEventAddRequest {}","name":"TpEventAddRequest TpEventAddRequest tpEventAddRequestEvent tpEventAddRequestContextId","module":"Data.Sawtooth.StateContext","link":"Data-Sawtooth-StateContext.html#t:TpEventAddRequest"},{"display_html":"newtype TpEventAddResponse = TpEventAddResponse {}","name":"TpEventAddResponse TpEventAddResponse tpEventAddResponseStatus","module":"Data.Sawtooth.StateContext","link":"Data-Sawtooth-StateContext.html#t:TpEventAddResponse"},{"display_html":"data TpEventAddResponse_Status","name":"TpEventAddResponse_Status TpEventAddResponse_StatusERROR TpEventAddResponse_StatusOK TpEventAddResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.StateContext","link":"Data-Sawtooth-StateContext.html#t:TpEventAddResponse_Status"},{"display_html":"data TransactionHeader = TransactionHeader {}","name":"TransactionHeader TransactionHeader transactionHeaderSignerPublicKey transactionHeaderPayloadSha512 transactionHeaderOutputs transactionHeaderNonce transactionHeaderInputs transactionHeaderFamilyVersion transactionHeaderFamilyName transactionHeaderDependencies transactionHeaderBatcherPublicKey","module":"Data.Sawtooth.Transaction","link":"Data-Sawtooth-Transaction.html#t:TransactionHeader"},{"display_html":"data Transaction = Transaction {}","name":"Transaction Transaction transactionPayload transactionHeaderSignature transactionHeader","module":"Data.Sawtooth.Transaction","link":"Data-Sawtooth-Transaction.html#t:Transaction"},{"display_html":"newtype TransactionList = TransactionList {}","name":"TransactionList TransactionList transactionListTransactions","module":"Data.Sawtooth.Transaction","link":"Data-Sawtooth-Transaction.html#t:TransactionList"},{"display_html":"data TpRegisterRequest = TpRegisterRequest {}","name":"TpRegisterRequest TpRegisterRequest tpRegisterRequestRequestHeaderStyle tpRegisterRequestProtocolVersion tpRegisterRequestMaxOccupancy tpRegisterRequestNamespaces tpRegisterRequestVersion tpRegisterRequestFamily","module":"Data.Sawtooth.Processor","link":"Data-Sawtooth-Processor.html#t:TpRegisterRequest"},{"display_html":"data TpRegisterRequest_TpProcessRequestHeaderStyle","name":"TpRegisterRequest_TpProcessRequestHeaderStyle TpRegisterRequest_TpProcessRequestHeaderStyleRAW TpRegisterRequest_TpProcessRequestHeaderStyleEXPANDED TpRegisterRequest_TpProcessRequestHeaderStyleHEADER_STYLE_UNSET","module":"Data.Sawtooth.Processor","link":"Data-Sawtooth-Processor.html#t:TpRegisterRequest_TpProcessRequestHeaderStyle"},{"display_html":"data TpRegisterResponse = TpRegisterResponse {}","name":"TpRegisterResponse TpRegisterResponse tpRegisterResponseProtocolVersion tpRegisterResponseStatus","module":"Data.Sawtooth.Processor","link":"Data-Sawtooth-Processor.html#t:TpRegisterResponse"},{"display_html":"data TpRegisterResponse_Status","name":"TpRegisterResponse_Status TpRegisterResponse_StatusERROR TpRegisterResponse_StatusOK TpRegisterResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.Processor","link":"Data-Sawtooth-Processor.html#t:TpRegisterResponse_Status"},{"display_html":"data TpUnregisterRequest = TpUnregisterRequest {}","name":"TpUnregisterRequest TpUnregisterRequest","module":"Data.Sawtooth.Processor","link":"Data-Sawtooth-Processor.html#t:TpUnregisterRequest"},{"display_html":"newtype TpUnregisterResponse = TpUnregisterResponse {}","name":"TpUnregisterResponse TpUnregisterResponse tpUnregisterResponseStatus","module":"Data.Sawtooth.Processor","link":"Data-Sawtooth-Processor.html#t:TpUnregisterResponse"},{"display_html":"data TpUnregisterResponse_Status","name":"TpUnregisterResponse_Status TpUnregisterResponse_StatusERROR TpUnregisterResponse_StatusOK TpUnregisterResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.Processor","link":"Data-Sawtooth-Processor.html#t:TpUnregisterResponse_Status"},{"display_html":"data TpProcessRequest = TpProcessRequest {}","name":"TpProcessRequest TpProcessRequest tpProcessRequestHeaderBytes tpProcessRequestContextId tpProcessRequestSignature tpProcessRequestPayload tpProcessRequestHeader","module":"Data.Sawtooth.Processor","link":"Data-Sawtooth-Processor.html#t:TpProcessRequest"},{"display_html":"data TpProcessResponse = TpProcessResponse {}","name":"TpProcessResponse TpProcessResponse tpProcessResponseExtendedData tpProcessResponseMessage tpProcessResponseStatus","module":"Data.Sawtooth.Processor","link":"Data-Sawtooth-Processor.html#t:TpProcessResponse"},{"display_html":"data TpProcessResponse_Status","name":"TpProcessResponse_Status TpProcessResponse_StatusINTERNAL_ERROR TpProcessResponse_StatusINVALID_TRANSACTION TpProcessResponse_StatusOK TpProcessResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.Processor","link":"Data-Sawtooth-Processor.html#t:TpProcessResponse_Status"},{"display_html":"data ClientTransactionListRequest = ClientTransactionListRequest {}","name":"ClientTransactionListRequest ClientTransactionListRequest clientTransactionListRequestSorting clientTransactionListRequestPaging clientTransactionListRequestTransactionIds clientTransactionListRequestHeadId","module":"Data.Sawtooth.ClientTransaction","link":"Data-Sawtooth-ClientTransaction.html#t:ClientTransactionListRequest"},{"display_html":"data ClientTransactionListResponse = ClientTransactionListResponse {}","name":"ClientTransactionListResponse ClientTransactionListResponse clientTransactionListResponsePaging clientTransactionListResponseHeadId clientTransactionListResponseTransactions clientTransactionListResponseStatus","module":"Data.Sawtooth.ClientTransaction","link":"Data-Sawtooth-ClientTransaction.html#t:ClientTransactionListResponse"},{"display_html":"data ClientTransactionListResponse_Status","name":"ClientTransactionListResponse_Status ClientTransactionListResponse_StatusINVALID_ID ClientTransactionListResponse_StatusINVALID_SORT ClientTransactionListResponse_StatusINVALID_PAGING ClientTransactionListResponse_StatusNO_RESOURCE ClientTransactionListResponse_StatusNO_ROOT ClientTransactionListResponse_StatusNOT_READY ClientTransactionListResponse_StatusINTERNAL_ERROR ClientTransactionListResponse_StatusOK ClientTransactionListResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.ClientTransaction","link":"Data-Sawtooth-ClientTransaction.html#t:ClientTransactionListResponse_Status"},{"display_html":"newtype ClientTransactionGetRequest = ClientTransactionGetRequest {}","name":"ClientTransactionGetRequest ClientTransactionGetRequest clientTransactionGetRequestTransactionId","module":"Data.Sawtooth.ClientTransaction","link":"Data-Sawtooth-ClientTransaction.html#t:ClientTransactionGetRequest"},{"display_html":"data ClientTransactionGetResponse = ClientTransactionGetResponse {}","name":"ClientTransactionGetResponse ClientTransactionGetResponse clientTransactionGetResponseTransaction clientTransactionGetResponseStatus","module":"Data.Sawtooth.ClientTransaction","link":"Data-Sawtooth-ClientTransaction.html#t:ClientTransactionGetResponse"},{"display_html":"data ClientTransactionGetResponse_Status","name":"ClientTransactionGetResponse_Status ClientTransactionGetResponse_StatusINVALID_ID ClientTransactionGetResponse_StatusNO_RESOURCE ClientTransactionGetResponse_StatusINTERNAL_ERROR ClientTransactionGetResponse_StatusOK ClientTransactionGetResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.ClientTransaction","link":"Data-Sawtooth-ClientTransaction.html#t:ClientTransactionGetResponse_Status"},{"display_html":"data BatchHeader = BatchHeader {}","name":"BatchHeader BatchHeader batchHeaderTransactionIds batchHeaderSignerPublicKey","module":"Data.Sawtooth.Batch","link":"Data-Sawtooth-Batch.html#t:BatchHeader"},{"display_html":"data Batch = Batch {}","name":"Batch Batch batchTrace batchTransactions batchHeaderSignature batchHeader","module":"Data.Sawtooth.Batch","link":"Data-Sawtooth-Batch.html#t:Batch"},{"display_html":"newtype BatchList = BatchList {}","name":"BatchList BatchList batchListBatches","module":"Data.Sawtooth.Batch","link":"Data-Sawtooth-Batch.html#t:BatchList"},{"display_html":"newtype GenesisData = GenesisData {}","name":"GenesisData GenesisData genesisDataBatches","module":"Data.Sawtooth.Genesis","link":"Data-Sawtooth-Genesis.html#t:GenesisData"},{"display_html":"data ClientBatchStatus = ClientBatchStatus {}","name":"ClientBatchStatus ClientBatchStatus clientBatchStatusInvalidTransactions clientBatchStatusStatus clientBatchStatusBatchId","module":"Data.Sawtooth.ClientBatchSubmit","link":"Data-Sawtooth-ClientBatchSubmit.html#t:ClientBatchStatus"},{"display_html":"data ClientBatchStatus_Status","name":"ClientBatchStatus_Status ClientBatchStatus_StatusUNKNOWN ClientBatchStatus_StatusPENDING ClientBatchStatus_StatusINVALID ClientBatchStatus_StatusCOMMITTED ClientBatchStatus_StatusSTATUS_UNSET","module":"Data.Sawtooth.ClientBatchSubmit","link":"Data-Sawtooth-ClientBatchSubmit.html#t:ClientBatchStatus_Status"},{"display_html":"data ClientBatchStatus_InvalidTransaction = ClientBatchStatus_InvalidTransaction {}","name":"ClientBatchStatus_InvalidTransaction ClientBatchStatus_InvalidTransaction clientBatchStatus_InvalidTransactionExtendedData clientBatchStatus_InvalidTransactionMessage clientBatchStatus_InvalidTransactionTransactionId","module":"Data.Sawtooth.ClientBatchSubmit","link":"Data-Sawtooth-ClientBatchSubmit.html#t:ClientBatchStatus_InvalidTransaction"},{"display_html":"newtype ClientBatchSubmitRequest = ClientBatchSubmitRequest {}","name":"ClientBatchSubmitRequest ClientBatchSubmitRequest clientBatchSubmitRequestBatches","module":"Data.Sawtooth.ClientBatchSubmit","link":"Data-Sawtooth-ClientBatchSubmit.html#t:ClientBatchSubmitRequest"},{"display_html":"newtype ClientBatchSubmitResponse = ClientBatchSubmitResponse {}","name":"ClientBatchSubmitResponse ClientBatchSubmitResponse clientBatchSubmitResponseStatus","module":"Data.Sawtooth.ClientBatchSubmit","link":"Data-Sawtooth-ClientBatchSubmit.html#t:ClientBatchSubmitResponse"},{"display_html":"data ClientBatchSubmitResponse_Status","name":"ClientBatchSubmitResponse_Status ClientBatchSubmitResponse_StatusQUEUE_FULL ClientBatchSubmitResponse_StatusINVALID_BATCH ClientBatchSubmitResponse_StatusINTERNAL_ERROR ClientBatchSubmitResponse_StatusOK ClientBatchSubmitResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.ClientBatchSubmit","link":"Data-Sawtooth-ClientBatchSubmit.html#t:ClientBatchSubmitResponse_Status"},{"display_html":"data ClientBatchStatusRequest = ClientBatchStatusRequest {}","name":"ClientBatchStatusRequest ClientBatchStatusRequest clientBatchStatusRequestTimeout clientBatchStatusRequestWait clientBatchStatusRequestBatchIds","module":"Data.Sawtooth.ClientBatchSubmit","link":"Data-Sawtooth-ClientBatchSubmit.html#t:ClientBatchStatusRequest"},{"display_html":"data ClientBatchStatusResponse = ClientBatchStatusResponse {}","name":"ClientBatchStatusResponse ClientBatchStatusResponse clientBatchStatusResponseBatchStatuses clientBatchStatusResponseStatus","module":"Data.Sawtooth.ClientBatchSubmit","link":"Data-Sawtooth-ClientBatchSubmit.html#t:ClientBatchStatusResponse"},{"display_html":"data ClientBatchStatusResponse_Status","name":"ClientBatchStatusResponse_Status ClientBatchStatusResponse_StatusINVALID_ID ClientBatchStatusResponse_StatusNO_RESOURCE ClientBatchStatusResponse_StatusINTERNAL_ERROR ClientBatchStatusResponse_StatusOK ClientBatchStatusResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.ClientBatchSubmit","link":"Data-Sawtooth-ClientBatchSubmit.html#t:ClientBatchStatusResponse_Status"},{"display_html":"data ClientBatchListRequest = ClientBatchListRequest {}","name":"ClientBatchListRequest ClientBatchListRequest clientBatchListRequestSorting clientBatchListRequestPaging clientBatchListRequestBatchIds clientBatchListRequestHeadId","module":"Data.Sawtooth.ClientBatch","link":"Data-Sawtooth-ClientBatch.html#t:ClientBatchListRequest"},{"display_html":"data ClientBatchListResponse = ClientBatchListResponse {}","name":"ClientBatchListResponse ClientBatchListResponse clientBatchListResponsePaging clientBatchListResponseHeadId clientBatchListResponseBatches clientBatchListResponseStatus","module":"Data.Sawtooth.ClientBatch","link":"Data-Sawtooth-ClientBatch.html#t:ClientBatchListResponse"},{"display_html":"data ClientBatchListResponse_Status","name":"ClientBatchListResponse_Status ClientBatchListResponse_StatusINVALID_ID ClientBatchListResponse_StatusINVALID_SORT ClientBatchListResponse_StatusINVALID_PAGING ClientBatchListResponse_StatusNO_RESOURCE ClientBatchListResponse_StatusNO_ROOT ClientBatchListResponse_StatusNOT_READY ClientBatchListResponse_StatusINTERNAL_ERROR ClientBatchListResponse_StatusOK ClientBatchListResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.ClientBatch","link":"Data-Sawtooth-ClientBatch.html#t:ClientBatchListResponse_Status"},{"display_html":"newtype ClientBatchGetRequest = ClientBatchGetRequest {}","name":"ClientBatchGetRequest ClientBatchGetRequest clientBatchGetRequestBatchId","module":"Data.Sawtooth.ClientBatch","link":"Data-Sawtooth-ClientBatch.html#t:ClientBatchGetRequest"},{"display_html":"data ClientBatchGetResponse = ClientBatchGetResponse {}","name":"ClientBatchGetResponse ClientBatchGetResponse clientBatchGetResponseBatch clientBatchGetResponseStatus","module":"Data.Sawtooth.ClientBatch","link":"Data-Sawtooth-ClientBatch.html#t:ClientBatchGetResponse"},{"display_html":"data ClientBatchGetResponse_Status","name":"ClientBatchGetResponse_Status ClientBatchGetResponse_StatusINVALID_ID ClientBatchGetResponse_StatusNO_RESOURCE ClientBatchGetResponse_StatusINTERNAL_ERROR ClientBatchGetResponse_StatusOK ClientBatchGetResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.ClientBatch","link":"Data-Sawtooth-ClientBatch.html#t:ClientBatchGetResponse_Status"},{"display_html":"data BlockHeader = BlockHeader {}","name":"BlockHeader BlockHeader blockHeaderStateRootHash blockHeaderConsensus blockHeaderBatchIds blockHeaderSignerPublicKey blockHeaderPreviousBlockId blockHeaderBlockNum","module":"Data.Sawtooth.Block","link":"Data-Sawtooth-Block.html#t:BlockHeader"},{"display_html":"data Block = Block {}","name":"Block Block blockBatches blockHeaderSignature blockHeader","module":"Data.Sawtooth.Block","link":"Data-Sawtooth-Block.html#t:Block"},{"display_html":"data ClientBlockListRequest = ClientBlockListRequest {}","name":"ClientBlockListRequest ClientBlockListRequest clientBlockListRequestSorting clientBlockListRequestPaging clientBlockListRequestBlockIds clientBlockListRequestHeadId","module":"Data.Sawtooth.ClientBlock","link":"Data-Sawtooth-ClientBlock.html#t:ClientBlockListRequest"},{"display_html":"data ClientBlockListResponse = ClientBlockListResponse {}","name":"ClientBlockListResponse ClientBlockListResponse clientBlockListResponsePaging clientBlockListResponseHeadId clientBlockListResponseBlocks clientBlockListResponseStatus","module":"Data.Sawtooth.ClientBlock","link":"Data-Sawtooth-ClientBlock.html#t:ClientBlockListResponse"},{"display_html":"data ClientBlockListResponse_Status","name":"ClientBlockListResponse_Status ClientBlockListResponse_StatusINVALID_ID ClientBlockListResponse_StatusINVALID_SORT ClientBlockListResponse_StatusINVALID_PAGING ClientBlockListResponse_StatusNO_RESOURCE ClientBlockListResponse_StatusNO_ROOT ClientBlockListResponse_StatusNOT_READY ClientBlockListResponse_StatusINTERNAL_ERROR ClientBlockListResponse_StatusOK ClientBlockListResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.ClientBlock","link":"Data-Sawtooth-ClientBlock.html#t:ClientBlockListResponse_Status"},{"display_html":"newtype ClientBlockGetByIdRequest = ClientBlockGetByIdRequest {}","name":"ClientBlockGetByIdRequest ClientBlockGetByIdRequest clientBlockGetByIdRequestBlockId","module":"Data.Sawtooth.ClientBlock","link":"Data-Sawtooth-ClientBlock.html#t:ClientBlockGetByIdRequest"},{"display_html":"newtype ClientBlockGetByNumRequest = ClientBlockGetByNumRequest {}","name":"ClientBlockGetByNumRequest ClientBlockGetByNumRequest clientBlockGetByNumRequestBlockNum","module":"Data.Sawtooth.ClientBlock","link":"Data-Sawtooth-ClientBlock.html#t:ClientBlockGetByNumRequest"},{"display_html":"newtype ClientBlockGetByTransactionIdRequest = ClientBlockGetByTransactionIdRequest {}","name":"ClientBlockGetByTransactionIdRequest ClientBlockGetByTransactionIdRequest clientBlockGetByTransactionIdRequestTransactionId","module":"Data.Sawtooth.ClientBlock","link":"Data-Sawtooth-ClientBlock.html#t:ClientBlockGetByTransactionIdRequest"},{"display_html":"newtype ClientBlockGetByBatchIdRequest = ClientBlockGetByBatchIdRequest {}","name":"ClientBlockGetByBatchIdRequest ClientBlockGetByBatchIdRequest clientBlockGetByBatchIdRequestBatchId","module":"Data.Sawtooth.ClientBlock","link":"Data-Sawtooth-ClientBlock.html#t:ClientBlockGetByBatchIdRequest"},{"display_html":"data ClientBlockGetResponse = ClientBlockGetResponse {}","name":"ClientBlockGetResponse ClientBlockGetResponse clientBlockGetResponseBlock clientBlockGetResponseStatus","module":"Data.Sawtooth.ClientBlock","link":"Data-Sawtooth-ClientBlock.html#t:ClientBlockGetResponse"},{"display_html":"data ClientBlockGetResponse_Status","name":"ClientBlockGetResponse_Status ClientBlockGetResponse_StatusINVALID_ID ClientBlockGetResponse_StatusNO_RESOURCE ClientBlockGetResponse_StatusINTERNAL_ERROR ClientBlockGetResponse_StatusOK ClientBlockGetResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.ClientBlock","link":"Data-Sawtooth-ClientBlock.html#t:ClientBlockGetResponse_Status"},{"display_html":"data TransactionReceipt = TransactionReceipt {}","name":"TransactionReceipt TransactionReceipt transactionReceiptTransactionId transactionReceiptData transactionReceiptEvents transactionReceiptStateChanges","module":"Data.Sawtooth.TransactionReceipt","link":"Data-Sawtooth-TransactionReceipt.html#t:TransactionReceipt"},{"display_html":"data StateChange = StateChange {}","name":"StateChange StateChange stateChangeType stateChangeValue stateChangeAddress","module":"Data.Sawtooth.TransactionReceipt","link":"Data-Sawtooth-TransactionReceipt.html#t:StateChange"},{"display_html":"data StateChange_Type","name":"StateChange_Type StateChange_TypeDELETE StateChange_TypeSET StateChange_TypeTYPE_UNSET","module":"Data.Sawtooth.TransactionReceipt","link":"Data-Sawtooth-TransactionReceipt.html#t:StateChange_Type"},{"display_html":"newtype StateChangeList = StateChangeList {}","name":"StateChangeList StateChangeList stateChangeListStateChanges","module":"Data.Sawtooth.TransactionReceipt","link":"Data-Sawtooth-TransactionReceipt.html#t:StateChangeList"},{"display_html":"newtype ClientReceiptGetRequest = ClientReceiptGetRequest {}","name":"ClientReceiptGetRequest ClientReceiptGetRequest clientReceiptGetRequestTransactionIds","module":"Data.Sawtooth.ClientReceipt","link":"Data-Sawtooth-ClientReceipt.html#t:ClientReceiptGetRequest"},{"display_html":"data ClientReceiptGetResponse = ClientReceiptGetResponse {}","name":"ClientReceiptGetResponse ClientReceiptGetResponse clientReceiptGetResponseReceipts clientReceiptGetResponseStatus","module":"Data.Sawtooth.ClientReceipt","link":"Data-Sawtooth-ClientReceipt.html#t:ClientReceiptGetResponse"},{"display_html":"data ClientReceiptGetResponse_Status","name":"ClientReceiptGetResponse_Status ClientReceiptGetResponse_StatusINVALID_ID ClientReceiptGetResponse_StatusNO_RESOURCE ClientReceiptGetResponse_StatusINTERNAL_ERROR ClientReceiptGetResponse_StatusOK ClientReceiptGetResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.ClientReceipt","link":"Data-Sawtooth-ClientReceipt.html#t:ClientReceiptGetResponse_Status"},{"display_html":"newtype MessageList = MessageList {}","name":"MessageList MessageList messageListMessages","module":"Data.Sawtooth.Validator","link":"Data-Sawtooth-Validator.html#t:MessageList"},{"display_html":"data Message = Message {}","name":"Message Message messageContent messageCorrelationId messageMessageType","module":"Data.Sawtooth.Validator","link":"Data-Sawtooth-Validator.html#t:Message"},{"display_html":"data Message_MessageType","name":"Message_MessageType Message_MessageTypeCONSENSUS_NOTIFY_ACK Message_MessageTypeCONSENSUS_NOTIFY_ENGINE_DEACTIVATED Message_MessageTypeCONSENSUS_NOTIFY_ENGINE_ACTIVATED Message_MessageTypeCONSENSUS_NOTIFY_BLOCK_COMMIT Message_MessageTypeCONSENSUS_NOTIFY_BLOCK_INVALID Message_MessageTypeCONSENSUS_NOTIFY_BLOCK_VALID Message_MessageTypeCONSENSUS_NOTIFY_BLOCK_NEW Message_MessageTypeCONSENSUS_NOTIFY_PEER_MESSAGE Message_MessageTypeCONSENSUS_NOTIFY_PEER_DISCONNECTED Message_MessageTypeCONSENSUS_NOTIFY_PEER_CONNECTED Message_MessageTypeCONSENSUS_SUMMARIZE_BLOCK_RESPONSE Message_MessageTypeCONSENSUS_SUMMARIZE_BLOCK_REQUEST Message_MessageTypeCONSENSUS_CHAIN_HEAD_GET_RESPONSE Message_MessageTypeCONSENSUS_CHAIN_HEAD_GET_REQUEST Message_MessageTypeCONSENSUS_BLOCKS_GET_RESPONSE Message_MessageTypeCONSENSUS_BLOCKS_GET_REQUEST Message_MessageTypeCONSENSUS_STATE_GET_RESPONSE Message_MessageTypeCONSENSUS_STATE_GET_REQUEST Message_MessageTypeCONSENSUS_SETTINGS_GET_RESPONSE Message_MessageTypeCONSENSUS_SETTINGS_GET_REQUEST Message_MessageTypeCONSENSUS_FAIL_BLOCK_RESPONSE Message_MessageTypeCONSENSUS_FAIL_BLOCK_REQUEST Message_MessageTypeCONSENSUS_IGNORE_BLOCK_RESPONSE Message_MessageTypeCONSENSUS_IGNORE_BLOCK_REQUEST Message_MessageTypeCONSENSUS_COMMIT_BLOCK_RESPONSE Message_MessageTypeCONSENSUS_COMMIT_BLOCK_REQUEST Message_MessageTypeCONSENSUS_CHECK_BLOCKS_RESPONSE Message_MessageTypeCONSENSUS_CHECK_BLOCKS_REQUEST Message_MessageTypeCONSENSUS_CANCEL_BLOCK_RESPONSE Message_MessageTypeCONSENSUS_CANCEL_BLOCK_REQUEST Message_MessageTypeCONSENSUS_FINALIZE_BLOCK_RESPONSE Message_MessageTypeCONSENSUS_FINALIZE_BLOCK_REQUEST Message_MessageTypeCONSENSUS_INITIALIZE_BLOCK_RESPONSE Message_MessageTypeCONSENSUS_INITIALIZE_BLOCK_REQUEST Message_MessageTypeCONSENSUS_BROADCAST_RESPONSE Message_MessageTypeCONSENSUS_BROADCAST_REQUEST Message_MessageTypeCONSENSUS_SEND_TO_RESPONSE Message_MessageTypeCONSENSUS_SEND_TO_REQUEST Message_MessageTypeCONSENSUS_REGISTER_RESPONSE Message_MessageTypeCONSENSUS_REGISTER_REQUEST Message_MessageTypePING_RESPONSE Message_MessageTypePING_REQUEST Message_MessageTypeAUTHORIZATION_CHALLENGE_RESULT Message_MessageTypeAUTHORIZATION_CHALLENGE_SUBMIT Message_MessageTypeAUTHORIZATION_CHALLENGE_RESPONSE Message_MessageTypeAUTHORIZATION_CHALLENGE_REQUEST Message_MessageTypeAUTHORIZATION_TRUST_RESPONSE Message_MessageTypeAUTHORIZATION_TRUST_REQUEST Message_MessageTypeAUTHORIZATION_VIOLATION Message_MessageTypeAUTHORIZATION_CONNECTION_RESPONSE Message_MessageTypeCLIENT_EVENTS_GET_RESPONSE Message_MessageTypeCLIENT_EVENTS_GET_REQUEST Message_MessageTypeCLIENT_EVENTS Message_MessageTypeCLIENT_EVENTS_UNSUBSCRIBE_RESPONSE Message_MessageTypeCLIENT_EVENTS_UNSUBSCRIBE_REQUEST Message_MessageTypeCLIENT_EVENTS_SUBSCRIBE_RESPONSE Message_MessageTypeCLIENT_EVENTS_SUBSCRIBE_REQUEST Message_MessageTypeNETWORK_DISCONNECT Message_MessageTypeNETWORK_CONNECT Message_MessageTypeNETWORK_ACK Message_MessageTypeGOSSIP_CONSENSUS_MESSAGE Message_MessageTypeGOSSIP_GET_PEERS_RESPONSE Message_MessageTypeGOSSIP_GET_PEERS_REQUEST Message_MessageTypeGOSSIP_BATCH_RESPONSE Message_MessageTypeGOSSIP_BATCH_BY_TRANSACTION_ID_REQUEST Message_MessageTypeGOSSIP_BATCH_BY_BATCH_ID_REQUEST Message_MessageTypeGOSSIP_BLOCK_RESPONSE Message_MessageTypeGOSSIP_BLOCK_REQUEST Message_MessageTypeGOSSIP_UNREGISTER Message_MessageTypeGOSSIP_REGISTER Message_MessageTypeGOSSIP_MESSAGE Message_MessageTypeCLIENT_STATUS_GET_RESPONSE Message_MessageTypeCLIENT_STATUS_GET_REQUEST Message_MessageTypeCLIENT_BLOCK_GET_BY_BATCH_ID_REQUEST Message_MessageTypeCLIENT_BLOCK_GET_BY_TRANSACTION_ID_REQUEST Message_MessageTypeCLIENT_PEERS_GET_RESPONSE Message_MessageTypeCLIENT_PEERS_GET_REQUEST Message_MessageTypeCLIENT_BLOCK_GET_BY_NUM_REQUEST Message_MessageTypeCLIENT_RECEIPT_GET_RESPONSE Message_MessageTypeCLIENT_RECEIPT_GET_REQUEST Message_MessageTypeCLIENT_BATCH_STATUS_RESPONSE Message_MessageTypeCLIENT_BATCH_STATUS_REQUEST Message_MessageTypeCLIENT_STATE_GET_RESPONSE Message_MessageTypeCLIENT_STATE_GET_REQUEST Message_MessageTypeCLIENT_STATE_LIST_RESPONSE Message_MessageTypeCLIENT_STATE_LIST_REQUEST Message_MessageTypeCLIENT_STATE_CURRENT_RESPONSE Message_MessageTypeCLIENT_STATE_CURRENT_REQUEST Message_MessageTypeCLIENT_TRANSACTION_GET_RESPONSE Message_MessageTypeCLIENT_TRANSACTION_GET_REQUEST Message_MessageTypeCLIENT_TRANSACTION_LIST_RESPONSE Message_MessageTypeCLIENT_TRANSACTION_LIST_REQUEST Message_MessageTypeCLIENT_BATCH_GET_RESPONSE Message_MessageTypeCLIENT_BATCH_GET_REQUEST Message_MessageTypeCLIENT_BATCH_LIST_RESPONSE Message_MessageTypeCLIENT_BATCH_LIST_REQUEST Message_MessageTypeCLIENT_BLOCK_GET_RESPONSE Message_MessageTypeCLIENT_BLOCK_GET_BY_ID_REQUEST Message_MessageTypeCLIENT_BLOCK_LIST_RESPONSE Message_MessageTypeCLIENT_BLOCK_LIST_REQUEST Message_MessageTypeCLIENT_BATCH_SUBMIT_RESPONSE Message_MessageTypeCLIENT_BATCH_SUBMIT_REQUEST Message_MessageTypeTP_EVENT_ADD_RESPONSE Message_MessageTypeTP_EVENT_ADD_REQUEST Message_MessageTypeTP_RECEIPT_ADD_DATA_RESPONSE Message_MessageTypeTP_RECEIPT_ADD_DATA_REQUEST Message_MessageTypeTP_STATE_DELETE_RESPONSE Message_MessageTypeTP_STATE_DELETE_REQUEST Message_MessageTypeTP_STATE_SET_RESPONSE Message_MessageTypeTP_STATE_SET_REQUEST Message_MessageTypeTP_STATE_GET_RESPONSE Message_MessageTypeTP_STATE_GET_REQUEST Message_MessageTypeTP_PROCESS_RESPONSE Message_MessageTypeTP_PROCESS_REQUEST Message_MessageTypeTP_UNREGISTER_RESPONSE Message_MessageTypeTP_UNREGISTER_REQUEST Message_MessageTypeTP_REGISTER_RESPONSE Message_MessageTypeTP_REGISTER_REQUEST Message_MessageTypeDEFAULT","module":"Data.Sawtooth.Validator","link":"Data-Sawtooth-Validator.html#t:Message_MessageType"}] \ No newline at end of file +[{"display_html":"newtype ConnectionRequest = ConnectionRequest {}","name":"ConnectionRequest ConnectionRequest connectionRequestEndpoint","module":"Data.Sawtooth.Authorization","link":"Data-Sawtooth-Authorization.html#t:ConnectionRequest"},{"display_html":"data RoleType","name":"RoleType RoleTypeNETWORK RoleTypeALL RoleTypeROLE_TYPE_UNSET","module":"Data.Sawtooth.Authorization","link":"Data-Sawtooth-Authorization.html#t:RoleType"},{"display_html":"data ConnectionResponse = ConnectionResponse {}","name":"ConnectionResponse ConnectionResponse connectionResponseStatus connectionResponseRoles","module":"Data.Sawtooth.Authorization","link":"Data-Sawtooth-Authorization.html#t:ConnectionResponse"},{"display_html":"data ConnectionResponse_Status","name":"ConnectionResponse_Status ConnectionResponse_StatusERROR ConnectionResponse_StatusOK ConnectionResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.Authorization","link":"Data-Sawtooth-Authorization.html#t:ConnectionResponse_Status"},{"display_html":"data ConnectionResponse_AuthorizationType","name":"ConnectionResponse_AuthorizationType ConnectionResponse_AuthorizationTypeCHALLENGE ConnectionResponse_AuthorizationTypeTRUST ConnectionResponse_AuthorizationTypeAUTHORIZATION_TYPE_UNSET","module":"Data.Sawtooth.Authorization","link":"Data-Sawtooth-Authorization.html#t:ConnectionResponse_AuthorizationType"},{"display_html":"data ConnectionResponse_RoleEntry = ConnectionResponse_RoleEntry {}","name":"ConnectionResponse_RoleEntry ConnectionResponse_RoleEntry connectionResponse_RoleEntryAuthType connectionResponse_RoleEntryRole","module":"Data.Sawtooth.Authorization","link":"Data-Sawtooth-Authorization.html#t:ConnectionResponse_RoleEntry"},{"display_html":"data AuthorizationTrustRequest = AuthorizationTrustRequest {}","name":"AuthorizationTrustRequest AuthorizationTrustRequest authorizationTrustRequestPublicKey authorizationTrustRequestRoles","module":"Data.Sawtooth.Authorization","link":"Data-Sawtooth-Authorization.html#t:AuthorizationTrustRequest"},{"display_html":"newtype AuthorizationTrustResponse = AuthorizationTrustResponse {}","name":"AuthorizationTrustResponse AuthorizationTrustResponse authorizationTrustResponseRoles","module":"Data.Sawtooth.Authorization","link":"Data-Sawtooth-Authorization.html#t:AuthorizationTrustResponse"},{"display_html":"newtype AuthorizationViolation = AuthorizationViolation {}","name":"AuthorizationViolation AuthorizationViolation authorizationViolationViolation","module":"Data.Sawtooth.Authorization","link":"Data-Sawtooth-Authorization.html#t:AuthorizationViolation"},{"display_html":"data AuthorizationChallengeRequest = AuthorizationChallengeRequest {}","name":"AuthorizationChallengeRequest AuthorizationChallengeRequest","module":"Data.Sawtooth.Authorization","link":"Data-Sawtooth-Authorization.html#t:AuthorizationChallengeRequest"},{"display_html":"newtype AuthorizationChallengeResponse = AuthorizationChallengeResponse {}","name":"AuthorizationChallengeResponse AuthorizationChallengeResponse authorizationChallengeResponsePayload","module":"Data.Sawtooth.Authorization","link":"Data-Sawtooth-Authorization.html#t:AuthorizationChallengeResponse"},{"display_html":"data AuthorizationChallengeSubmit = AuthorizationChallengeSubmit {}","name":"AuthorizationChallengeSubmit AuthorizationChallengeSubmit authorizationChallengeSubmitRoles authorizationChallengeSubmitSignature authorizationChallengeSubmitPublicKey","module":"Data.Sawtooth.Authorization","link":"Data-Sawtooth-Authorization.html#t:AuthorizationChallengeSubmit"},{"display_html":"newtype AuthorizationChallengeResult = AuthorizationChallengeResult {}","name":"AuthorizationChallengeResult AuthorizationChallengeResult authorizationChallengeResultRoles","module":"Data.Sawtooth.Authorization","link":"Data-Sawtooth-Authorization.html#t:AuthorizationChallengeResult"},{"display_html":"data BlockInfoConfig = BlockInfoConfig {}","name":"BlockInfoConfig BlockInfoConfig blockInfoConfigSyncTolerance blockInfoConfigTargetCount blockInfoConfigOldestBlock blockInfoConfigLatestBlock","module":"Data.Sawtooth.BlockInfo","link":"Data-Sawtooth-BlockInfo.html#t:BlockInfoConfig"},{"display_html":"data BlockInfo = BlockInfo {}","name":"BlockInfo BlockInfo blockInfoTimestamp blockInfoHeaderSignature blockInfoSignerPublicKey blockInfoPreviousBlockId blockInfoBlockNum","module":"Data.Sawtooth.BlockInfo","link":"Data-Sawtooth-BlockInfo.html#t:BlockInfo"},{"display_html":"data BlockInfoTxn = BlockInfoTxn {}","name":"BlockInfoTxn BlockInfoTxn blockInfoTxnSyncTolerance blockInfoTxnTargetCount blockInfoTxnBlock","module":"Data.Sawtooth.BlockInfo","link":"Data-Sawtooth-BlockInfo.html#t:BlockInfoTxn"},{"display_html":"data ClientPagingControls = ClientPagingControls {}","name":"ClientPagingControls ClientPagingControls clientPagingControlsLimit clientPagingControlsStart","module":"Data.Sawtooth.ClientListControl","link":"Data-Sawtooth-ClientListControl.html#t:ClientPagingControls"},{"display_html":"data ClientPagingResponse = ClientPagingResponse {}","name":"ClientPagingResponse ClientPagingResponse clientPagingResponseLimit clientPagingResponseStart clientPagingResponseNext","module":"Data.Sawtooth.ClientListControl","link":"Data-Sawtooth-ClientListControl.html#t:ClientPagingResponse"},{"display_html":"data ClientSortControls = ClientSortControls {}","name":"ClientSortControls ClientSortControls clientSortControlsReverse clientSortControlsKeys","module":"Data.Sawtooth.ClientListControl","link":"Data-Sawtooth-ClientListControl.html#t:ClientSortControls"},{"display_html":"data ClientPeersGetRequest = ClientPeersGetRequest {}","name":"ClientPeersGetRequest ClientPeersGetRequest","module":"Data.Sawtooth.ClientPeers","link":"Data-Sawtooth-ClientPeers.html#t:ClientPeersGetRequest"},{"display_html":"data ClientPeersGetResponse = ClientPeersGetResponse {}","name":"ClientPeersGetResponse ClientPeersGetResponse clientPeersGetResponsePeers clientPeersGetResponseStatus","module":"Data.Sawtooth.ClientPeers","link":"Data-Sawtooth-ClientPeers.html#t:ClientPeersGetResponse"},{"display_html":"data ClientPeersGetResponse_Status","name":"ClientPeersGetResponse_Status ClientPeersGetResponse_StatusERROR ClientPeersGetResponse_StatusOK ClientPeersGetResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.ClientPeers","link":"Data-Sawtooth-ClientPeers.html#t:ClientPeersGetResponse_Status"},{"display_html":"data ClientStateListRequest = ClientStateListRequest {}","name":"ClientStateListRequest ClientStateListRequest clientStateListRequestSorting clientStateListRequestPaging clientStateListRequestAddress clientStateListRequestStateRoot","module":"Data.Sawtooth.ClientState","link":"Data-Sawtooth-ClientState.html#t:ClientStateListRequest"},{"display_html":"data ClientStateListResponse = ClientStateListResponse {}","name":"ClientStateListResponse ClientStateListResponse clientStateListResponsePaging clientStateListResponseStateRoot clientStateListResponseEntries clientStateListResponseStatus","module":"Data.Sawtooth.ClientState","link":"Data-Sawtooth-ClientState.html#t:ClientStateListResponse"},{"display_html":"data ClientStateListResponse_Status","name":"ClientStateListResponse_Status ClientStateListResponse_StatusINVALID_ROOT ClientStateListResponse_StatusINVALID_ADDRESS ClientStateListResponse_StatusINVALID_SORT ClientStateListResponse_StatusINVALID_PAGING ClientStateListResponse_StatusNO_RESOURCE ClientStateListResponse_StatusNO_ROOT ClientStateListResponse_StatusNOT_READY ClientStateListResponse_StatusINTERNAL_ERROR ClientStateListResponse_StatusOK ClientStateListResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.ClientState","link":"Data-Sawtooth-ClientState.html#t:ClientStateListResponse_Status"},{"display_html":"data ClientStateListResponse_Entry = ClientStateListResponse_Entry {}","name":"ClientStateListResponse_Entry ClientStateListResponse_Entry clientStateListResponse_EntryData clientStateListResponse_EntryAddress","module":"Data.Sawtooth.ClientState","link":"Data-Sawtooth-ClientState.html#t:ClientStateListResponse_Entry"},{"display_html":"data ClientStateGetRequest = ClientStateGetRequest {}","name":"ClientStateGetRequest ClientStateGetRequest clientStateGetRequestAddress clientStateGetRequestStateRoot","module":"Data.Sawtooth.ClientState","link":"Data-Sawtooth-ClientState.html#t:ClientStateGetRequest"},{"display_html":"data ClientStateGetResponse = ClientStateGetResponse {}","name":"ClientStateGetResponse ClientStateGetResponse clientStateGetResponseStateRoot clientStateGetResponseValue clientStateGetResponseStatus","module":"Data.Sawtooth.ClientState","link":"Data-Sawtooth-ClientState.html#t:ClientStateGetResponse"},{"display_html":"data ClientStateGetResponse_Status","name":"ClientStateGetResponse_Status ClientStateGetResponse_StatusINVALID_ROOT ClientStateGetResponse_StatusINVALID_ADDRESS ClientStateGetResponse_StatusNO_RESOURCE ClientStateGetResponse_StatusNO_ROOT ClientStateGetResponse_StatusNOT_READY ClientStateGetResponse_StatusINTERNAL_ERROR ClientStateGetResponse_StatusOK ClientStateGetResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.ClientState","link":"Data-Sawtooth-ClientState.html#t:ClientStateGetResponse_Status"},{"display_html":"data ClientStatusGetRequest = ClientStatusGetRequest {}","name":"ClientStatusGetRequest ClientStatusGetRequest","module":"Data.Sawtooth.ClientStatus","link":"Data-Sawtooth-ClientStatus.html#t:ClientStatusGetRequest"},{"display_html":"data ClientStatusGetResponse = ClientStatusGetResponse {}","name":"ClientStatusGetResponse ClientStatusGetResponse clientStatusGetResponseEndpoint clientStatusGetResponsePeers clientStatusGetResponseStatus","module":"Data.Sawtooth.ClientStatus","link":"Data-Sawtooth-ClientStatus.html#t:ClientStatusGetResponse"},{"display_html":"data ClientStatusGetResponse_Status","name":"ClientStatusGetResponse_Status ClientStatusGetResponse_StatusERROR ClientStatusGetResponse_StatusOK ClientStatusGetResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.ClientStatus","link":"Data-Sawtooth-ClientStatus.html#t:ClientStatusGetResponse_Status"},{"display_html":"newtype ClientStatusGetResponse_Peer = ClientStatusGetResponse_Peer {}","name":"ClientStatusGetResponse_Peer ClientStatusGetResponse_Peer clientStatusGetResponse_PeerEndpoint","module":"Data.Sawtooth.ClientStatus","link":"Data-Sawtooth-ClientStatus.html#t:ClientStatusGetResponse_Peer"},{"display_html":"data ConsensusPeerMessageHeader = ConsensusPeerMessageHeader {}","name":"ConsensusPeerMessageHeader ConsensusPeerMessageHeader consensusPeerMessageHeaderVersion consensusPeerMessageHeaderName consensusPeerMessageHeaderMessageType consensusPeerMessageHeaderContentSha512 consensusPeerMessageHeaderSignerId","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusPeerMessageHeader"},{"display_html":"data ConsensusPeerMessage = ConsensusPeerMessage {}","name":"ConsensusPeerMessage ConsensusPeerMessage consensusPeerMessageContent consensusPeerMessageHeaderSignature consensusPeerMessageHeader","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusPeerMessage"},{"display_html":"data ConsensusBlock = ConsensusBlock {}","name":"ConsensusBlock ConsensusBlock consensusBlockSummary consensusBlockPayload consensusBlockBlockNum consensusBlockSignerId consensusBlockPreviousId consensusBlockBlockId","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusBlock"},{"display_html":"newtype ConsensusPeerInfo = ConsensusPeerInfo {}","name":"ConsensusPeerInfo ConsensusPeerInfo consensusPeerInfoPeerId","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusPeerInfo"},{"display_html":"data ConsensusSettingsEntry = ConsensusSettingsEntry {}","name":"ConsensusSettingsEntry ConsensusSettingsEntry consensusSettingsEntryValue consensusSettingsEntryKey","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusSettingsEntry"},{"display_html":"data ConsensusStateEntry = ConsensusStateEntry {}","name":"ConsensusStateEntry ConsensusStateEntry consensusStateEntryData consensusStateEntryAddress","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusStateEntry"},{"display_html":"data ConsensusRegisterRequest = ConsensusRegisterRequest {}","name":"ConsensusRegisterRequest ConsensusRegisterRequest consensusRegisterRequestAdditionalProtocols consensusRegisterRequestVersion consensusRegisterRequestName","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusRegisterRequest"},{"display_html":"data ConsensusRegisterRequest_Protocol = ConsensusRegisterRequest_Protocol {}","name":"ConsensusRegisterRequest_Protocol ConsensusRegisterRequest_Protocol consensusRegisterRequest_ProtocolVersion consensusRegisterRequest_ProtocolName","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusRegisterRequest_Protocol"},{"display_html":"data ConsensusRegisterResponse = ConsensusRegisterResponse {}","name":"ConsensusRegisterResponse ConsensusRegisterResponse consensusRegisterResponseLocalPeerInfo consensusRegisterResponsePeers consensusRegisterResponseChainHead consensusRegisterResponseStatus","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusRegisterResponse"},{"display_html":"data ConsensusRegisterResponse_Status","name":"ConsensusRegisterResponse_Status ConsensusRegisterResponse_StatusNOT_READY ConsensusRegisterResponse_StatusSERVICE_ERROR ConsensusRegisterResponse_StatusBAD_REQUEST ConsensusRegisterResponse_StatusOK ConsensusRegisterResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusRegisterResponse_Status"},{"display_html":"newtype ConsensusNotifyPeerConnected = ConsensusNotifyPeerConnected {}","name":"ConsensusNotifyPeerConnected ConsensusNotifyPeerConnected consensusNotifyPeerConnectedPeerInfo","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusNotifyPeerConnected"},{"display_html":"newtype ConsensusNotifyPeerDisconnected = ConsensusNotifyPeerDisconnected {}","name":"ConsensusNotifyPeerDisconnected ConsensusNotifyPeerDisconnected consensusNotifyPeerDisconnectedPeerId","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusNotifyPeerDisconnected"},{"display_html":"data ConsensusNotifyPeerMessage = ConsensusNotifyPeerMessage {}","name":"ConsensusNotifyPeerMessage ConsensusNotifyPeerMessage consensusNotifyPeerMessageSenderId consensusNotifyPeerMessageMessage","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusNotifyPeerMessage"},{"display_html":"newtype ConsensusNotifyBlockNew = ConsensusNotifyBlockNew {}","name":"ConsensusNotifyBlockNew ConsensusNotifyBlockNew consensusNotifyBlockNewBlock","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusNotifyBlockNew"},{"display_html":"newtype ConsensusNotifyBlockValid = ConsensusNotifyBlockValid {}","name":"ConsensusNotifyBlockValid ConsensusNotifyBlockValid consensusNotifyBlockValidBlockId","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusNotifyBlockValid"},{"display_html":"newtype ConsensusNotifyBlockInvalid = ConsensusNotifyBlockInvalid {}","name":"ConsensusNotifyBlockInvalid ConsensusNotifyBlockInvalid consensusNotifyBlockInvalidBlockId","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusNotifyBlockInvalid"},{"display_html":"newtype ConsensusNotifyBlockCommit = ConsensusNotifyBlockCommit {}","name":"ConsensusNotifyBlockCommit ConsensusNotifyBlockCommit consensusNotifyBlockCommitBlockId","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusNotifyBlockCommit"},{"display_html":"data ConsensusNotifyEngineActivated = ConsensusNotifyEngineActivated {}","name":"ConsensusNotifyEngineActivated ConsensusNotifyEngineActivated consensusNotifyEngineActivatedLocalPeerInfo consensusNotifyEngineActivatedPeers consensusNotifyEngineActivatedChainHead","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusNotifyEngineActivated"},{"display_html":"data ConsensusNotifyEngineDeactivated = ConsensusNotifyEngineDeactivated {}","name":"ConsensusNotifyEngineDeactivated ConsensusNotifyEngineDeactivated","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusNotifyEngineDeactivated"},{"display_html":"data ConsensusNotifyAck = ConsensusNotifyAck {}","name":"ConsensusNotifyAck ConsensusNotifyAck","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusNotifyAck"},{"display_html":"data ConsensusSendToRequest = ConsensusSendToRequest {}","name":"ConsensusSendToRequest ConsensusSendToRequest consensusSendToRequestReceiverId consensusSendToRequestMessageType consensusSendToRequestContent","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusSendToRequest"},{"display_html":"newtype ConsensusSendToResponse = ConsensusSendToResponse {}","name":"ConsensusSendToResponse ConsensusSendToResponse consensusSendToResponseStatus","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusSendToResponse"},{"display_html":"data ConsensusSendToResponse_Status","name":"ConsensusSendToResponse_Status ConsensusSendToResponse_StatusNOT_ACTIVE_ENGINE ConsensusSendToResponse_StatusUNKNOWN_PEER ConsensusSendToResponse_StatusNOT_READY ConsensusSendToResponse_StatusSERVICE_ERROR ConsensusSendToResponse_StatusBAD_REQUEST ConsensusSendToResponse_StatusOK ConsensusSendToResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusSendToResponse_Status"},{"display_html":"data ConsensusBroadcastRequest = ConsensusBroadcastRequest {}","name":"ConsensusBroadcastRequest ConsensusBroadcastRequest consensusBroadcastRequestMessageType consensusBroadcastRequestContent","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusBroadcastRequest"},{"display_html":"newtype ConsensusBroadcastResponse = ConsensusBroadcastResponse {}","name":"ConsensusBroadcastResponse ConsensusBroadcastResponse consensusBroadcastResponseStatus","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusBroadcastResponse"},{"display_html":"data ConsensusBroadcastResponse_Status","name":"ConsensusBroadcastResponse_Status ConsensusBroadcastResponse_StatusNOT_ACTIVE_ENGINE ConsensusBroadcastResponse_StatusNOT_READY ConsensusBroadcastResponse_StatusSERVICE_ERROR ConsensusBroadcastResponse_StatusBAD_REQUEST ConsensusBroadcastResponse_StatusOK ConsensusBroadcastResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusBroadcastResponse_Status"},{"display_html":"newtype ConsensusInitializeBlockRequest = ConsensusInitializeBlockRequest {}","name":"ConsensusInitializeBlockRequest ConsensusInitializeBlockRequest consensusInitializeBlockRequestPreviousId","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusInitializeBlockRequest"},{"display_html":"newtype ConsensusInitializeBlockResponse = ConsensusInitializeBlockResponse {}","name":"ConsensusInitializeBlockResponse ConsensusInitializeBlockResponse consensusInitializeBlockResponseStatus","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusInitializeBlockResponse"},{"display_html":"data ConsensusInitializeBlockResponse_Status","name":"ConsensusInitializeBlockResponse_Status ConsensusInitializeBlockResponse_StatusNOT_ACTIVE_ENGINE ConsensusInitializeBlockResponse_StatusUNKNOWN_BLOCK ConsensusInitializeBlockResponse_StatusINVALID_STATE ConsensusInitializeBlockResponse_StatusNOT_READY ConsensusInitializeBlockResponse_StatusSERVICE_ERROR ConsensusInitializeBlockResponse_StatusBAD_REQUEST ConsensusInitializeBlockResponse_StatusOK ConsensusInitializeBlockResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusInitializeBlockResponse_Status"},{"display_html":"data ConsensusSummarizeBlockRequest = ConsensusSummarizeBlockRequest {}","name":"ConsensusSummarizeBlockRequest ConsensusSummarizeBlockRequest","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusSummarizeBlockRequest"},{"display_html":"data ConsensusSummarizeBlockResponse = ConsensusSummarizeBlockResponse {}","name":"ConsensusSummarizeBlockResponse ConsensusSummarizeBlockResponse consensusSummarizeBlockResponseSummary consensusSummarizeBlockResponseStatus","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusSummarizeBlockResponse"},{"display_html":"data ConsensusSummarizeBlockResponse_Status","name":"ConsensusSummarizeBlockResponse_Status ConsensusSummarizeBlockResponse_StatusNOT_ACTIVE_ENGINE ConsensusSummarizeBlockResponse_StatusBLOCK_NOT_READY ConsensusSummarizeBlockResponse_StatusINVALID_STATE ConsensusSummarizeBlockResponse_StatusNOT_READY ConsensusSummarizeBlockResponse_StatusSERVICE_ERROR ConsensusSummarizeBlockResponse_StatusBAD_REQUEST ConsensusSummarizeBlockResponse_StatusOK ConsensusSummarizeBlockResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusSummarizeBlockResponse_Status"},{"display_html":"newtype ConsensusFinalizeBlockRequest = ConsensusFinalizeBlockRequest {}","name":"ConsensusFinalizeBlockRequest ConsensusFinalizeBlockRequest consensusFinalizeBlockRequestData","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusFinalizeBlockRequest"},{"display_html":"data ConsensusFinalizeBlockResponse = ConsensusFinalizeBlockResponse {}","name":"ConsensusFinalizeBlockResponse ConsensusFinalizeBlockResponse consensusFinalizeBlockResponseBlockId consensusFinalizeBlockResponseStatus","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusFinalizeBlockResponse"},{"display_html":"data ConsensusFinalizeBlockResponse_Status","name":"ConsensusFinalizeBlockResponse_Status ConsensusFinalizeBlockResponse_StatusNOT_ACTIVE_ENGINE ConsensusFinalizeBlockResponse_StatusBLOCK_NOT_READY ConsensusFinalizeBlockResponse_StatusINVALID_STATE ConsensusFinalizeBlockResponse_StatusNOT_READY ConsensusFinalizeBlockResponse_StatusSERVICE_ERROR ConsensusFinalizeBlockResponse_StatusBAD_REQUEST ConsensusFinalizeBlockResponse_StatusOK ConsensusFinalizeBlockResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusFinalizeBlockResponse_Status"},{"display_html":"data ConsensusCancelBlockRequest = ConsensusCancelBlockRequest {}","name":"ConsensusCancelBlockRequest ConsensusCancelBlockRequest","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusCancelBlockRequest"},{"display_html":"newtype ConsensusCancelBlockResponse = ConsensusCancelBlockResponse {}","name":"ConsensusCancelBlockResponse ConsensusCancelBlockResponse consensusCancelBlockResponseStatus","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusCancelBlockResponse"},{"display_html":"data ConsensusCancelBlockResponse_Status","name":"ConsensusCancelBlockResponse_Status ConsensusCancelBlockResponse_StatusNOT_ACTIVE_ENGINE ConsensusCancelBlockResponse_StatusINVALID_STATE ConsensusCancelBlockResponse_StatusNOT_READY ConsensusCancelBlockResponse_StatusSERVICE_ERROR ConsensusCancelBlockResponse_StatusBAD_REQUEST ConsensusCancelBlockResponse_StatusOK ConsensusCancelBlockResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusCancelBlockResponse_Status"},{"display_html":"newtype ConsensusCheckBlocksRequest = ConsensusCheckBlocksRequest {}","name":"ConsensusCheckBlocksRequest ConsensusCheckBlocksRequest consensusCheckBlocksRequestBlockIds","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusCheckBlocksRequest"},{"display_html":"newtype ConsensusCheckBlocksResponse = ConsensusCheckBlocksResponse {}","name":"ConsensusCheckBlocksResponse ConsensusCheckBlocksResponse consensusCheckBlocksResponseStatus","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusCheckBlocksResponse"},{"display_html":"data ConsensusCheckBlocksResponse_Status","name":"ConsensusCheckBlocksResponse_Status ConsensusCheckBlocksResponse_StatusNOT_ACTIVE_ENGINE ConsensusCheckBlocksResponse_StatusUNKNOWN_BLOCK ConsensusCheckBlocksResponse_StatusNOT_READY ConsensusCheckBlocksResponse_StatusSERVICE_ERROR ConsensusCheckBlocksResponse_StatusBAD_REQUEST ConsensusCheckBlocksResponse_StatusOK ConsensusCheckBlocksResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusCheckBlocksResponse_Status"},{"display_html":"newtype ConsensusCommitBlockRequest = ConsensusCommitBlockRequest {}","name":"ConsensusCommitBlockRequest ConsensusCommitBlockRequest consensusCommitBlockRequestBlockId","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusCommitBlockRequest"},{"display_html":"newtype ConsensusCommitBlockResponse = ConsensusCommitBlockResponse {}","name":"ConsensusCommitBlockResponse ConsensusCommitBlockResponse consensusCommitBlockResponseStatus","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusCommitBlockResponse"},{"display_html":"data ConsensusCommitBlockResponse_Status","name":"ConsensusCommitBlockResponse_Status ConsensusCommitBlockResponse_StatusNOT_ACTIVE_ENGINE ConsensusCommitBlockResponse_StatusUNKNOWN_BLOCK ConsensusCommitBlockResponse_StatusNOT_READY ConsensusCommitBlockResponse_StatusSERVICE_ERROR ConsensusCommitBlockResponse_StatusBAD_REQUEST ConsensusCommitBlockResponse_StatusOK ConsensusCommitBlockResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusCommitBlockResponse_Status"},{"display_html":"newtype ConsensusIgnoreBlockRequest = ConsensusIgnoreBlockRequest {}","name":"ConsensusIgnoreBlockRequest ConsensusIgnoreBlockRequest consensusIgnoreBlockRequestBlockId","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusIgnoreBlockRequest"},{"display_html":"newtype ConsensusIgnoreBlockResponse = ConsensusIgnoreBlockResponse {}","name":"ConsensusIgnoreBlockResponse ConsensusIgnoreBlockResponse consensusIgnoreBlockResponseStatus","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusIgnoreBlockResponse"},{"display_html":"data ConsensusIgnoreBlockResponse_Status","name":"ConsensusIgnoreBlockResponse_Status ConsensusIgnoreBlockResponse_StatusNOT_ACTIVE_ENGINE ConsensusIgnoreBlockResponse_StatusUNKNOWN_BLOCK ConsensusIgnoreBlockResponse_StatusNOT_READY ConsensusIgnoreBlockResponse_StatusSERVICE_ERROR ConsensusIgnoreBlockResponse_StatusBAD_REQUEST ConsensusIgnoreBlockResponse_StatusOK ConsensusIgnoreBlockResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusIgnoreBlockResponse_Status"},{"display_html":"newtype ConsensusFailBlockRequest = ConsensusFailBlockRequest {}","name":"ConsensusFailBlockRequest ConsensusFailBlockRequest consensusFailBlockRequestBlockId","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusFailBlockRequest"},{"display_html":"newtype ConsensusFailBlockResponse = ConsensusFailBlockResponse {}","name":"ConsensusFailBlockResponse ConsensusFailBlockResponse consensusFailBlockResponseStatus","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusFailBlockResponse"},{"display_html":"data ConsensusFailBlockResponse_Status","name":"ConsensusFailBlockResponse_Status ConsensusFailBlockResponse_StatusNOT_ACTIVE_ENGINE ConsensusFailBlockResponse_StatusUNKNOWN_BLOCK ConsensusFailBlockResponse_StatusNOT_READY ConsensusFailBlockResponse_StatusSERVICE_ERROR ConsensusFailBlockResponse_StatusBAD_REQUEST ConsensusFailBlockResponse_StatusOK ConsensusFailBlockResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusFailBlockResponse_Status"},{"display_html":"newtype ConsensusBlocksGetRequest = ConsensusBlocksGetRequest {}","name":"ConsensusBlocksGetRequest ConsensusBlocksGetRequest consensusBlocksGetRequestBlockIds","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusBlocksGetRequest"},{"display_html":"data ConsensusBlocksGetResponse = ConsensusBlocksGetResponse {}","name":"ConsensusBlocksGetResponse ConsensusBlocksGetResponse consensusBlocksGetResponseBlocks consensusBlocksGetResponseStatus","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusBlocksGetResponse"},{"display_html":"data ConsensusBlocksGetResponse_Status","name":"ConsensusBlocksGetResponse_Status ConsensusBlocksGetResponse_StatusNOT_ACTIVE_ENGINE ConsensusBlocksGetResponse_StatusUNKNOWN_BLOCK ConsensusBlocksGetResponse_StatusNOT_READY ConsensusBlocksGetResponse_StatusSERVICE_ERROR ConsensusBlocksGetResponse_StatusBAD_REQUEST ConsensusBlocksGetResponse_StatusOK ConsensusBlocksGetResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusBlocksGetResponse_Status"},{"display_html":"data ConsensusChainHeadGetRequest = ConsensusChainHeadGetRequest {}","name":"ConsensusChainHeadGetRequest ConsensusChainHeadGetRequest","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusChainHeadGetRequest"},{"display_html":"data ConsensusChainHeadGetResponse = ConsensusChainHeadGetResponse {}","name":"ConsensusChainHeadGetResponse ConsensusChainHeadGetResponse consensusChainHeadGetResponseBlock consensusChainHeadGetResponseStatus","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusChainHeadGetResponse"},{"display_html":"data ConsensusChainHeadGetResponse_Status","name":"ConsensusChainHeadGetResponse_Status ConsensusChainHeadGetResponse_StatusNOT_ACTIVE_ENGINE ConsensusChainHeadGetResponse_StatusNO_CHAIN_HEAD ConsensusChainHeadGetResponse_StatusNOT_READY ConsensusChainHeadGetResponse_StatusSERVICE_ERROR ConsensusChainHeadGetResponse_StatusBAD_REQUEST ConsensusChainHeadGetResponse_StatusOK ConsensusChainHeadGetResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusChainHeadGetResponse_Status"},{"display_html":"data ConsensusSettingsGetRequest = ConsensusSettingsGetRequest {}","name":"ConsensusSettingsGetRequest ConsensusSettingsGetRequest consensusSettingsGetRequestKeys consensusSettingsGetRequestBlockId","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusSettingsGetRequest"},{"display_html":"data ConsensusSettingsGetResponse = ConsensusSettingsGetResponse {}","name":"ConsensusSettingsGetResponse ConsensusSettingsGetResponse consensusSettingsGetResponseEntries consensusSettingsGetResponseStatus","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusSettingsGetResponse"},{"display_html":"data ConsensusSettingsGetResponse_Status","name":"ConsensusSettingsGetResponse_Status ConsensusSettingsGetResponse_StatusNOT_ACTIVE_ENGINE ConsensusSettingsGetResponse_StatusUNKNOWN_BLOCK ConsensusSettingsGetResponse_StatusNOT_READY ConsensusSettingsGetResponse_StatusSERVICE_ERROR ConsensusSettingsGetResponse_StatusBAD_REQUEST ConsensusSettingsGetResponse_StatusOK ConsensusSettingsGetResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusSettingsGetResponse_Status"},{"display_html":"data ConsensusStateGetRequest = ConsensusStateGetRequest {}","name":"ConsensusStateGetRequest ConsensusStateGetRequest consensusStateGetRequestAddresses consensusStateGetRequestBlockId","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusStateGetRequest"},{"display_html":"data ConsensusStateGetResponse = ConsensusStateGetResponse {}","name":"ConsensusStateGetResponse ConsensusStateGetResponse consensusStateGetResponseEntries consensusStateGetResponseStatus","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusStateGetResponse"},{"display_html":"data ConsensusStateGetResponse_Status","name":"ConsensusStateGetResponse_Status ConsensusStateGetResponse_StatusNOT_ACTIVE_ENGINE ConsensusStateGetResponse_StatusUNKNOWN_BLOCK ConsensusStateGetResponse_StatusNOT_READY ConsensusStateGetResponse_StatusSERVICE_ERROR ConsensusStateGetResponse_StatusBAD_REQUEST ConsensusStateGetResponse_StatusOK ConsensusStateGetResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.Consensus","link":"Data-Sawtooth-Consensus.html#t:ConsensusStateGetResponse_Status"},{"display_html":"data Event = Event {}","name":"Event Event eventData eventAttributes eventEventType","module":"Data.Sawtooth.Events","link":"Data-Sawtooth-Events.html#t:Event"},{"display_html":"data Event_Attribute = Event_Attribute {}","name":"Event_Attribute Event_Attribute event_AttributeValue event_AttributeKey","module":"Data.Sawtooth.Events","link":"Data-Sawtooth-Events.html#t:Event_Attribute"},{"display_html":"newtype EventList = EventList {}","name":"EventList EventList eventListEvents","module":"Data.Sawtooth.Events","link":"Data-Sawtooth-Events.html#t:EventList"},{"display_html":"data EventFilter = EventFilter {}","name":"EventFilter EventFilter eventFilterFilterType eventFilterMatchString eventFilterKey","module":"Data.Sawtooth.Events","link":"Data-Sawtooth-Events.html#t:EventFilter"},{"display_html":"data EventFilter_FilterType","name":"EventFilter_FilterType EventFilter_FilterTypeREGEX_ALL EventFilter_FilterTypeREGEX_ANY EventFilter_FilterTypeSIMPLE_ALL EventFilter_FilterTypeSIMPLE_ANY EventFilter_FilterTypeFILTER_TYPE_UNSET","module":"Data.Sawtooth.Events","link":"Data-Sawtooth-Events.html#t:EventFilter_FilterType"},{"display_html":"data EventSubscription = EventSubscription {}","name":"EventSubscription EventSubscription eventSubscriptionFilters eventSubscriptionEventType","module":"Data.Sawtooth.Events","link":"Data-Sawtooth-Events.html#t:EventSubscription"},{"display_html":"data ClientEventsSubscribeRequest = ClientEventsSubscribeRequest {}","name":"ClientEventsSubscribeRequest ClientEventsSubscribeRequest clientEventsSubscribeRequestLastKnownBlockIds clientEventsSubscribeRequestSubscriptions","module":"Data.Sawtooth.ClientEvent","link":"Data-Sawtooth-ClientEvent.html#t:ClientEventsSubscribeRequest"},{"display_html":"data ClientEventsSubscribeResponse = ClientEventsSubscribeResponse {}","name":"ClientEventsSubscribeResponse ClientEventsSubscribeResponse clientEventsSubscribeResponseResponseMessage clientEventsSubscribeResponseStatus","module":"Data.Sawtooth.ClientEvent","link":"Data-Sawtooth-ClientEvent.html#t:ClientEventsSubscribeResponse"},{"display_html":"data ClientEventsSubscribeResponse_Status","name":"ClientEventsSubscribeResponse_Status ClientEventsSubscribeResponse_StatusUNKNOWN_BLOCK ClientEventsSubscribeResponse_StatusINVALID_FILTER ClientEventsSubscribeResponse_StatusOK ClientEventsSubscribeResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.ClientEvent","link":"Data-Sawtooth-ClientEvent.html#t:ClientEventsSubscribeResponse_Status"},{"display_html":"data ClientEventsUnsubscribeRequest = ClientEventsUnsubscribeRequest {}","name":"ClientEventsUnsubscribeRequest ClientEventsUnsubscribeRequest","module":"Data.Sawtooth.ClientEvent","link":"Data-Sawtooth-ClientEvent.html#t:ClientEventsUnsubscribeRequest"},{"display_html":"newtype ClientEventsUnsubscribeResponse = ClientEventsUnsubscribeResponse {}","name":"ClientEventsUnsubscribeResponse ClientEventsUnsubscribeResponse clientEventsUnsubscribeResponseStatus","module":"Data.Sawtooth.ClientEvent","link":"Data-Sawtooth-ClientEvent.html#t:ClientEventsUnsubscribeResponse"},{"display_html":"data ClientEventsUnsubscribeResponse_Status","name":"ClientEventsUnsubscribeResponse_Status ClientEventsUnsubscribeResponse_StatusINTERNAL_ERROR ClientEventsUnsubscribeResponse_StatusOK ClientEventsUnsubscribeResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.ClientEvent","link":"Data-Sawtooth-ClientEvent.html#t:ClientEventsUnsubscribeResponse_Status"},{"display_html":"data ClientEventsGetRequest = ClientEventsGetRequest {}","name":"ClientEventsGetRequest ClientEventsGetRequest clientEventsGetRequestBlockIds clientEventsGetRequestSubscriptions","module":"Data.Sawtooth.ClientEvent","link":"Data-Sawtooth-ClientEvent.html#t:ClientEventsGetRequest"},{"display_html":"data ClientEventsGetResponse = ClientEventsGetResponse {}","name":"ClientEventsGetResponse ClientEventsGetResponse clientEventsGetResponseEvents clientEventsGetResponseStatus","module":"Data.Sawtooth.ClientEvent","link":"Data-Sawtooth-ClientEvent.html#t:ClientEventsGetResponse"},{"display_html":"data ClientEventsGetResponse_Status","name":"ClientEventsGetResponse_Status ClientEventsGetResponse_StatusUNKNOWN_BLOCK ClientEventsGetResponse_StatusINVALID_FILTER ClientEventsGetResponse_StatusINTERNAL_ERROR ClientEventsGetResponse_StatusOK ClientEventsGetResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.ClientEvent","link":"Data-Sawtooth-ClientEvent.html#t:ClientEventsGetResponse_Status"},{"display_html":"data Policy = Policy {}","name":"Policy Policy policyEntries policyName","module":"Data.Sawtooth.Identity","link":"Data-Sawtooth-Identity.html#t:Policy"},{"display_html":"data Policy_EntryType","name":"Policy_EntryType Policy_EntryTypeDENY_KEY Policy_EntryTypePERMIT_KEY Policy_EntryTypeENTRY_TYPE_UNSET","module":"Data.Sawtooth.Identity","link":"Data-Sawtooth-Identity.html#t:Policy_EntryType"},{"display_html":"data Policy_Entry = Policy_Entry {}","name":"Policy_Entry Policy_Entry policy_EntryKey policy_EntryType","module":"Data.Sawtooth.Identity","link":"Data-Sawtooth-Identity.html#t:Policy_Entry"},{"display_html":"newtype PolicyList = PolicyList {}","name":"PolicyList PolicyList policyListPolicies","module":"Data.Sawtooth.Identity","link":"Data-Sawtooth-Identity.html#t:PolicyList"},{"display_html":"data Role = Role {}","name":"Role Role rolePolicyName roleName","module":"Data.Sawtooth.Identity","link":"Data-Sawtooth-Identity.html#t:Role"},{"display_html":"newtype RoleList = RoleList {}","name":"RoleList RoleList roleListRoles","module":"Data.Sawtooth.Identity","link":"Data-Sawtooth-Identity.html#t:RoleList"},{"display_html":"data ChangeLogEntry = ChangeLogEntry {}","name":"ChangeLogEntry ChangeLogEntry changeLogEntrySuccessors changeLogEntryAdditions changeLogEntryParent","module":"Data.Sawtooth.Merkle","link":"Data-Sawtooth-Merkle.html#t:ChangeLogEntry"},{"display_html":"data ChangeLogEntry_Successor = ChangeLogEntry_Successor {}","name":"ChangeLogEntry_Successor ChangeLogEntry_Successor changeLogEntry_SuccessorDeletions changeLogEntry_SuccessorSuccessor","module":"Data.Sawtooth.Merkle","link":"Data-Sawtooth-Merkle.html#t:ChangeLogEntry_Successor"},{"display_html":"data DisconnectMessage = DisconnectMessage {}","name":"DisconnectMessage DisconnectMessage","module":"Data.Sawtooth.Network","link":"Data-Sawtooth-Network.html#t:DisconnectMessage"},{"display_html":"data PeerRegisterRequest = PeerRegisterRequest {}","name":"PeerRegisterRequest PeerRegisterRequest peerRegisterRequestProtocolVersion peerRegisterRequestEndpoint","module":"Data.Sawtooth.Network","link":"Data-Sawtooth-Network.html#t:PeerRegisterRequest"},{"display_html":"data PeerUnregisterRequest = PeerUnregisterRequest {}","name":"PeerUnregisterRequest PeerUnregisterRequest","module":"Data.Sawtooth.Network","link":"Data-Sawtooth-Network.html#t:PeerUnregisterRequest"},{"display_html":"data GetPeersRequest = GetPeersRequest {}","name":"GetPeersRequest GetPeersRequest","module":"Data.Sawtooth.Network","link":"Data-Sawtooth-Network.html#t:GetPeersRequest"},{"display_html":"newtype GetPeersResponse = GetPeersResponse {}","name":"GetPeersResponse GetPeersResponse getPeersResponsePeerEndpoints","module":"Data.Sawtooth.Network","link":"Data-Sawtooth-Network.html#t:GetPeersResponse"},{"display_html":"data PingRequest = PingRequest {}","name":"PingRequest PingRequest","module":"Data.Sawtooth.Network","link":"Data-Sawtooth-Network.html#t:PingRequest"},{"display_html":"data PingResponse = PingResponse {}","name":"PingResponse PingResponse","module":"Data.Sawtooth.Network","link":"Data-Sawtooth-Network.html#t:PingResponse"},{"display_html":"data GossipMessage = GossipMessage {}","name":"GossipMessage GossipMessage gossipMessageTimeToLive gossipMessageContentType gossipMessageContent","module":"Data.Sawtooth.Network","link":"Data-Sawtooth-Network.html#t:GossipMessage"},{"display_html":"data GossipMessage_ContentType","name":"GossipMessage_ContentType GossipMessage_ContentTypeCONSENSUS GossipMessage_ContentTypeBATCH GossipMessage_ContentTypeBLOCK GossipMessage_ContentTypeCONTENT_TYPE_UNSET","module":"Data.Sawtooth.Network","link":"Data-Sawtooth-Network.html#t:GossipMessage_ContentType"},{"display_html":"newtype NetworkAcknowledgement = NetworkAcknowledgement {}","name":"NetworkAcknowledgement NetworkAcknowledgement networkAcknowledgementStatus","module":"Data.Sawtooth.Network","link":"Data-Sawtooth-Network.html#t:NetworkAcknowledgement"},{"display_html":"data NetworkAcknowledgement_Status","name":"NetworkAcknowledgement_Status NetworkAcknowledgement_StatusERROR NetworkAcknowledgement_StatusOK NetworkAcknowledgement_StatusSTATUS_UNSET","module":"Data.Sawtooth.Network","link":"Data-Sawtooth-Network.html#t:NetworkAcknowledgement_Status"},{"display_html":"data GossipBlockRequest = GossipBlockRequest {}","name":"GossipBlockRequest GossipBlockRequest gossipBlockRequestTimeToLive gossipBlockRequestNonce gossipBlockRequestBlockId","module":"Data.Sawtooth.Network","link":"Data-Sawtooth-Network.html#t:GossipBlockRequest"},{"display_html":"newtype GossipBlockResponse = GossipBlockResponse {}","name":"GossipBlockResponse GossipBlockResponse gossipBlockResponseContent","module":"Data.Sawtooth.Network","link":"Data-Sawtooth-Network.html#t:GossipBlockResponse"},{"display_html":"newtype GossipBatchResponse = GossipBatchResponse {}","name":"GossipBatchResponse GossipBatchResponse gossipBatchResponseContent","module":"Data.Sawtooth.Network","link":"Data-Sawtooth-Network.html#t:GossipBatchResponse"},{"display_html":"data GossipBatchByBatchIdRequest = GossipBatchByBatchIdRequest {}","name":"GossipBatchByBatchIdRequest GossipBatchByBatchIdRequest gossipBatchByBatchIdRequestTimeToLive gossipBatchByBatchIdRequestNonce gossipBatchByBatchIdRequestId","module":"Data.Sawtooth.Network","link":"Data-Sawtooth-Network.html#t:GossipBatchByBatchIdRequest"},{"display_html":"data GossipBatchByTransactionIdRequest = GossipBatchByTransactionIdRequest {}","name":"GossipBatchByTransactionIdRequest GossipBatchByTransactionIdRequest gossipBatchByTransactionIdRequestTimeToLive gossipBatchByTransactionIdRequestNonce gossipBatchByTransactionIdRequestIds","module":"Data.Sawtooth.Network","link":"Data-Sawtooth-Network.html#t:GossipBatchByTransactionIdRequest"},{"display_html":"newtype Setting = Setting {}","name":"Setting Setting settingEntries","module":"Data.Sawtooth.Setting","link":"Data-Sawtooth-Setting.html#t:Setting"},{"display_html":"data Setting_Entry = Setting_Entry {}","name":"Setting_Entry Setting_Entry setting_EntryValue setting_EntryKey","module":"Data.Sawtooth.Setting","link":"Data-Sawtooth-Setting.html#t:Setting_Entry"},{"display_html":"data TpStateEntry = TpStateEntry {}","name":"TpStateEntry TpStateEntry tpStateEntryData tpStateEntryAddress","module":"Data.Sawtooth.StateContext","link":"Data-Sawtooth-StateContext.html#t:TpStateEntry"},{"display_html":"data TpStateGetRequest = TpStateGetRequest {}","name":"TpStateGetRequest TpStateGetRequest tpStateGetRequestAddresses tpStateGetRequestContextId","module":"Data.Sawtooth.StateContext","link":"Data-Sawtooth-StateContext.html#t:TpStateGetRequest"},{"display_html":"data TpStateGetResponse = TpStateGetResponse {}","name":"TpStateGetResponse TpStateGetResponse tpStateGetResponseStatus tpStateGetResponseEntries","module":"Data.Sawtooth.StateContext","link":"Data-Sawtooth-StateContext.html#t:TpStateGetResponse"},{"display_html":"data TpStateGetResponse_Status","name":"TpStateGetResponse_Status TpStateGetResponse_StatusAUTHORIZATION_ERROR TpStateGetResponse_StatusOK TpStateGetResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.StateContext","link":"Data-Sawtooth-StateContext.html#t:TpStateGetResponse_Status"},{"display_html":"data TpStateSetRequest = TpStateSetRequest {}","name":"TpStateSetRequest TpStateSetRequest tpStateSetRequestEntries tpStateSetRequestContextId","module":"Data.Sawtooth.StateContext","link":"Data-Sawtooth-StateContext.html#t:TpStateSetRequest"},{"display_html":"data TpStateSetResponse = TpStateSetResponse {}","name":"TpStateSetResponse TpStateSetResponse tpStateSetResponseStatus tpStateSetResponseAddresses","module":"Data.Sawtooth.StateContext","link":"Data-Sawtooth-StateContext.html#t:TpStateSetResponse"},{"display_html":"data TpStateSetResponse_Status","name":"TpStateSetResponse_Status TpStateSetResponse_StatusAUTHORIZATION_ERROR TpStateSetResponse_StatusOK TpStateSetResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.StateContext","link":"Data-Sawtooth-StateContext.html#t:TpStateSetResponse_Status"},{"display_html":"data TpStateDeleteRequest = TpStateDeleteRequest {}","name":"TpStateDeleteRequest TpStateDeleteRequest tpStateDeleteRequestAddresses tpStateDeleteRequestContextId","module":"Data.Sawtooth.StateContext","link":"Data-Sawtooth-StateContext.html#t:TpStateDeleteRequest"},{"display_html":"data TpStateDeleteResponse = TpStateDeleteResponse {}","name":"TpStateDeleteResponse TpStateDeleteResponse tpStateDeleteResponseStatus tpStateDeleteResponseAddresses","module":"Data.Sawtooth.StateContext","link":"Data-Sawtooth-StateContext.html#t:TpStateDeleteResponse"},{"display_html":"data TpStateDeleteResponse_Status","name":"TpStateDeleteResponse_Status TpStateDeleteResponse_StatusAUTHORIZATION_ERROR TpStateDeleteResponse_StatusOK TpStateDeleteResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.StateContext","link":"Data-Sawtooth-StateContext.html#t:TpStateDeleteResponse_Status"},{"display_html":"data TpReceiptAddDataRequest = TpReceiptAddDataRequest {}","name":"TpReceiptAddDataRequest TpReceiptAddDataRequest tpReceiptAddDataRequestData tpReceiptAddDataRequestContextId","module":"Data.Sawtooth.StateContext","link":"Data-Sawtooth-StateContext.html#t:TpReceiptAddDataRequest"},{"display_html":"newtype TpReceiptAddDataResponse = TpReceiptAddDataResponse {}","name":"TpReceiptAddDataResponse TpReceiptAddDataResponse tpReceiptAddDataResponseStatus","module":"Data.Sawtooth.StateContext","link":"Data-Sawtooth-StateContext.html#t:TpReceiptAddDataResponse"},{"display_html":"data TpReceiptAddDataResponse_Status","name":"TpReceiptAddDataResponse_Status TpReceiptAddDataResponse_StatusERROR TpReceiptAddDataResponse_StatusOK TpReceiptAddDataResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.StateContext","link":"Data-Sawtooth-StateContext.html#t:TpReceiptAddDataResponse_Status"},{"display_html":"data TpEventAddRequest = TpEventAddRequest {}","name":"TpEventAddRequest TpEventAddRequest tpEventAddRequestEvent tpEventAddRequestContextId","module":"Data.Sawtooth.StateContext","link":"Data-Sawtooth-StateContext.html#t:TpEventAddRequest"},{"display_html":"newtype TpEventAddResponse = TpEventAddResponse {}","name":"TpEventAddResponse TpEventAddResponse tpEventAddResponseStatus","module":"Data.Sawtooth.StateContext","link":"Data-Sawtooth-StateContext.html#t:TpEventAddResponse"},{"display_html":"data TpEventAddResponse_Status","name":"TpEventAddResponse_Status TpEventAddResponse_StatusERROR TpEventAddResponse_StatusOK TpEventAddResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.StateContext","link":"Data-Sawtooth-StateContext.html#t:TpEventAddResponse_Status"},{"display_html":"data TransactionHeader = TransactionHeader {}","name":"TransactionHeader TransactionHeader transactionHeaderSignerPublicKey transactionHeaderPayloadSha512 transactionHeaderOutputs transactionHeaderNonce transactionHeaderInputs transactionHeaderFamilyVersion transactionHeaderFamilyName transactionHeaderDependencies transactionHeaderBatcherPublicKey","module":"Data.Sawtooth.Transaction","link":"Data-Sawtooth-Transaction.html#t:TransactionHeader"},{"display_html":"data Transaction = Transaction {}","name":"Transaction Transaction transactionPayload transactionHeaderSignature transactionHeader","module":"Data.Sawtooth.Transaction","link":"Data-Sawtooth-Transaction.html#t:Transaction"},{"display_html":"newtype TransactionList = TransactionList {}","name":"TransactionList TransactionList transactionListTransactions","module":"Data.Sawtooth.Transaction","link":"Data-Sawtooth-Transaction.html#t:TransactionList"},{"display_html":"data TpRegisterRequest = TpRegisterRequest {}","name":"TpRegisterRequest TpRegisterRequest tpRegisterRequestRequestHeaderStyle tpRegisterRequestProtocolVersion tpRegisterRequestMaxOccupancy tpRegisterRequestNamespaces tpRegisterRequestVersion tpRegisterRequestFamily","module":"Data.Sawtooth.Processor","link":"Data-Sawtooth-Processor.html#t:TpRegisterRequest"},{"display_html":"data TpRegisterRequest_TpProcessRequestHeaderStyle","name":"TpRegisterRequest_TpProcessRequestHeaderStyle TpRegisterRequest_TpProcessRequestHeaderStyleRAW TpRegisterRequest_TpProcessRequestHeaderStyleEXPANDED TpRegisterRequest_TpProcessRequestHeaderStyleHEADER_STYLE_UNSET","module":"Data.Sawtooth.Processor","link":"Data-Sawtooth-Processor.html#t:TpRegisterRequest_TpProcessRequestHeaderStyle"},{"display_html":"data TpRegisterResponse = TpRegisterResponse {}","name":"TpRegisterResponse TpRegisterResponse tpRegisterResponseProtocolVersion tpRegisterResponseStatus","module":"Data.Sawtooth.Processor","link":"Data-Sawtooth-Processor.html#t:TpRegisterResponse"},{"display_html":"data TpRegisterResponse_Status","name":"TpRegisterResponse_Status TpRegisterResponse_StatusERROR TpRegisterResponse_StatusOK TpRegisterResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.Processor","link":"Data-Sawtooth-Processor.html#t:TpRegisterResponse_Status"},{"display_html":"data TpUnregisterRequest = TpUnregisterRequest {}","name":"TpUnregisterRequest TpUnregisterRequest","module":"Data.Sawtooth.Processor","link":"Data-Sawtooth-Processor.html#t:TpUnregisterRequest"},{"display_html":"newtype TpUnregisterResponse = TpUnregisterResponse {}","name":"TpUnregisterResponse TpUnregisterResponse tpUnregisterResponseStatus","module":"Data.Sawtooth.Processor","link":"Data-Sawtooth-Processor.html#t:TpUnregisterResponse"},{"display_html":"data TpUnregisterResponse_Status","name":"TpUnregisterResponse_Status TpUnregisterResponse_StatusERROR TpUnregisterResponse_StatusOK TpUnregisterResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.Processor","link":"Data-Sawtooth-Processor.html#t:TpUnregisterResponse_Status"},{"display_html":"data TpProcessRequest = TpProcessRequest {}","name":"TpProcessRequest TpProcessRequest tpProcessRequestHeaderBytes tpProcessRequestContextId tpProcessRequestSignature tpProcessRequestPayload tpProcessRequestHeader","module":"Data.Sawtooth.Processor","link":"Data-Sawtooth-Processor.html#t:TpProcessRequest"},{"display_html":"data TpProcessResponse = TpProcessResponse {}","name":"TpProcessResponse TpProcessResponse tpProcessResponseExtendedData tpProcessResponseMessage tpProcessResponseStatus","module":"Data.Sawtooth.Processor","link":"Data-Sawtooth-Processor.html#t:TpProcessResponse"},{"display_html":"data TpProcessResponse_Status","name":"TpProcessResponse_Status TpProcessResponse_StatusINTERNAL_ERROR TpProcessResponse_StatusINVALID_TRANSACTION TpProcessResponse_StatusOK TpProcessResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.Processor","link":"Data-Sawtooth-Processor.html#t:TpProcessResponse_Status"},{"display_html":"data ClientTransactionListRequest = ClientTransactionListRequest {}","name":"ClientTransactionListRequest ClientTransactionListRequest clientTransactionListRequestSorting clientTransactionListRequestPaging clientTransactionListRequestTransactionIds clientTransactionListRequestHeadId","module":"Data.Sawtooth.ClientTransaction","link":"Data-Sawtooth-ClientTransaction.html#t:ClientTransactionListRequest"},{"display_html":"data ClientTransactionListResponse = ClientTransactionListResponse {}","name":"ClientTransactionListResponse ClientTransactionListResponse clientTransactionListResponsePaging clientTransactionListResponseHeadId clientTransactionListResponseTransactions clientTransactionListResponseStatus","module":"Data.Sawtooth.ClientTransaction","link":"Data-Sawtooth-ClientTransaction.html#t:ClientTransactionListResponse"},{"display_html":"data ClientTransactionListResponse_Status","name":"ClientTransactionListResponse_Status ClientTransactionListResponse_StatusINVALID_ID ClientTransactionListResponse_StatusINVALID_SORT ClientTransactionListResponse_StatusINVALID_PAGING ClientTransactionListResponse_StatusNO_RESOURCE ClientTransactionListResponse_StatusNO_ROOT ClientTransactionListResponse_StatusNOT_READY ClientTransactionListResponse_StatusINTERNAL_ERROR ClientTransactionListResponse_StatusOK ClientTransactionListResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.ClientTransaction","link":"Data-Sawtooth-ClientTransaction.html#t:ClientTransactionListResponse_Status"},{"display_html":"newtype ClientTransactionGetRequest = ClientTransactionGetRequest {}","name":"ClientTransactionGetRequest ClientTransactionGetRequest clientTransactionGetRequestTransactionId","module":"Data.Sawtooth.ClientTransaction","link":"Data-Sawtooth-ClientTransaction.html#t:ClientTransactionGetRequest"},{"display_html":"data ClientTransactionGetResponse = ClientTransactionGetResponse {}","name":"ClientTransactionGetResponse ClientTransactionGetResponse clientTransactionGetResponseTransaction clientTransactionGetResponseStatus","module":"Data.Sawtooth.ClientTransaction","link":"Data-Sawtooth-ClientTransaction.html#t:ClientTransactionGetResponse"},{"display_html":"data ClientTransactionGetResponse_Status","name":"ClientTransactionGetResponse_Status ClientTransactionGetResponse_StatusINVALID_ID ClientTransactionGetResponse_StatusNO_RESOURCE ClientTransactionGetResponse_StatusINTERNAL_ERROR ClientTransactionGetResponse_StatusOK ClientTransactionGetResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.ClientTransaction","link":"Data-Sawtooth-ClientTransaction.html#t:ClientTransactionGetResponse_Status"},{"display_html":"data BatchHeader = BatchHeader {}","name":"BatchHeader BatchHeader batchHeaderTransactionIds batchHeaderSignerPublicKey","module":"Data.Sawtooth.Batch","link":"Data-Sawtooth-Batch.html#t:BatchHeader"},{"display_html":"data Batch = Batch {}","name":"Batch Batch batchTrace batchTransactions batchHeaderSignature batchHeader","module":"Data.Sawtooth.Batch","link":"Data-Sawtooth-Batch.html#t:Batch"},{"display_html":"newtype BatchList = BatchList {}","name":"BatchList BatchList batchListBatches","module":"Data.Sawtooth.Batch","link":"Data-Sawtooth-Batch.html#t:BatchList"},{"display_html":"newtype GenesisData = GenesisData {}","name":"GenesisData GenesisData genesisDataBatches","module":"Data.Sawtooth.Genesis","link":"Data-Sawtooth-Genesis.html#t:GenesisData"},{"display_html":"data ClientBatchStatus = ClientBatchStatus {}","name":"ClientBatchStatus ClientBatchStatus clientBatchStatusInvalidTransactions clientBatchStatusStatus clientBatchStatusBatchId","module":"Data.Sawtooth.ClientBatchSubmit","link":"Data-Sawtooth-ClientBatchSubmit.html#t:ClientBatchStatus"},{"display_html":"data ClientBatchStatus_Status","name":"ClientBatchStatus_Status ClientBatchStatus_StatusUNKNOWN ClientBatchStatus_StatusPENDING ClientBatchStatus_StatusINVALID ClientBatchStatus_StatusCOMMITTED ClientBatchStatus_StatusSTATUS_UNSET","module":"Data.Sawtooth.ClientBatchSubmit","link":"Data-Sawtooth-ClientBatchSubmit.html#t:ClientBatchStatus_Status"},{"display_html":"data ClientBatchStatus_InvalidTransaction = ClientBatchStatus_InvalidTransaction {}","name":"ClientBatchStatus_InvalidTransaction ClientBatchStatus_InvalidTransaction clientBatchStatus_InvalidTransactionExtendedData clientBatchStatus_InvalidTransactionMessage clientBatchStatus_InvalidTransactionTransactionId","module":"Data.Sawtooth.ClientBatchSubmit","link":"Data-Sawtooth-ClientBatchSubmit.html#t:ClientBatchStatus_InvalidTransaction"},{"display_html":"newtype ClientBatchSubmitRequest = ClientBatchSubmitRequest {}","name":"ClientBatchSubmitRequest ClientBatchSubmitRequest clientBatchSubmitRequestBatches","module":"Data.Sawtooth.ClientBatchSubmit","link":"Data-Sawtooth-ClientBatchSubmit.html#t:ClientBatchSubmitRequest"},{"display_html":"newtype ClientBatchSubmitResponse = ClientBatchSubmitResponse {}","name":"ClientBatchSubmitResponse ClientBatchSubmitResponse clientBatchSubmitResponseStatus","module":"Data.Sawtooth.ClientBatchSubmit","link":"Data-Sawtooth-ClientBatchSubmit.html#t:ClientBatchSubmitResponse"},{"display_html":"data ClientBatchSubmitResponse_Status","name":"ClientBatchSubmitResponse_Status ClientBatchSubmitResponse_StatusQUEUE_FULL ClientBatchSubmitResponse_StatusINVALID_BATCH ClientBatchSubmitResponse_StatusINTERNAL_ERROR ClientBatchSubmitResponse_StatusOK ClientBatchSubmitResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.ClientBatchSubmit","link":"Data-Sawtooth-ClientBatchSubmit.html#t:ClientBatchSubmitResponse_Status"},{"display_html":"data ClientBatchStatusRequest = ClientBatchStatusRequest {}","name":"ClientBatchStatusRequest ClientBatchStatusRequest clientBatchStatusRequestTimeout clientBatchStatusRequestWait clientBatchStatusRequestBatchIds","module":"Data.Sawtooth.ClientBatchSubmit","link":"Data-Sawtooth-ClientBatchSubmit.html#t:ClientBatchStatusRequest"},{"display_html":"data ClientBatchStatusResponse = ClientBatchStatusResponse {}","name":"ClientBatchStatusResponse ClientBatchStatusResponse clientBatchStatusResponseBatchStatuses clientBatchStatusResponseStatus","module":"Data.Sawtooth.ClientBatchSubmit","link":"Data-Sawtooth-ClientBatchSubmit.html#t:ClientBatchStatusResponse"},{"display_html":"data ClientBatchStatusResponse_Status","name":"ClientBatchStatusResponse_Status ClientBatchStatusResponse_StatusINVALID_ID ClientBatchStatusResponse_StatusNO_RESOURCE ClientBatchStatusResponse_StatusINTERNAL_ERROR ClientBatchStatusResponse_StatusOK ClientBatchStatusResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.ClientBatchSubmit","link":"Data-Sawtooth-ClientBatchSubmit.html#t:ClientBatchStatusResponse_Status"},{"display_html":"data ClientBatchListRequest = ClientBatchListRequest {}","name":"ClientBatchListRequest ClientBatchListRequest clientBatchListRequestSorting clientBatchListRequestPaging clientBatchListRequestBatchIds clientBatchListRequestHeadId","module":"Data.Sawtooth.ClientBatch","link":"Data-Sawtooth-ClientBatch.html#t:ClientBatchListRequest"},{"display_html":"data ClientBatchListResponse = ClientBatchListResponse {}","name":"ClientBatchListResponse ClientBatchListResponse clientBatchListResponsePaging clientBatchListResponseHeadId clientBatchListResponseBatches clientBatchListResponseStatus","module":"Data.Sawtooth.ClientBatch","link":"Data-Sawtooth-ClientBatch.html#t:ClientBatchListResponse"},{"display_html":"data ClientBatchListResponse_Status","name":"ClientBatchListResponse_Status ClientBatchListResponse_StatusINVALID_ID ClientBatchListResponse_StatusINVALID_SORT ClientBatchListResponse_StatusINVALID_PAGING ClientBatchListResponse_StatusNO_RESOURCE ClientBatchListResponse_StatusNO_ROOT ClientBatchListResponse_StatusNOT_READY ClientBatchListResponse_StatusINTERNAL_ERROR ClientBatchListResponse_StatusOK ClientBatchListResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.ClientBatch","link":"Data-Sawtooth-ClientBatch.html#t:ClientBatchListResponse_Status"},{"display_html":"newtype ClientBatchGetRequest = ClientBatchGetRequest {}","name":"ClientBatchGetRequest ClientBatchGetRequest clientBatchGetRequestBatchId","module":"Data.Sawtooth.ClientBatch","link":"Data-Sawtooth-ClientBatch.html#t:ClientBatchGetRequest"},{"display_html":"data ClientBatchGetResponse = ClientBatchGetResponse {}","name":"ClientBatchGetResponse ClientBatchGetResponse clientBatchGetResponseBatch clientBatchGetResponseStatus","module":"Data.Sawtooth.ClientBatch","link":"Data-Sawtooth-ClientBatch.html#t:ClientBatchGetResponse"},{"display_html":"data ClientBatchGetResponse_Status","name":"ClientBatchGetResponse_Status ClientBatchGetResponse_StatusINVALID_ID ClientBatchGetResponse_StatusNO_RESOURCE ClientBatchGetResponse_StatusINTERNAL_ERROR ClientBatchGetResponse_StatusOK ClientBatchGetResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.ClientBatch","link":"Data-Sawtooth-ClientBatch.html#t:ClientBatchGetResponse_Status"},{"display_html":"data BlockHeader = BlockHeader {}","name":"BlockHeader BlockHeader blockHeaderStateRootHash blockHeaderConsensus blockHeaderBatchIds blockHeaderSignerPublicKey blockHeaderPreviousBlockId blockHeaderBlockNum","module":"Data.Sawtooth.Block","link":"Data-Sawtooth-Block.html#t:BlockHeader"},{"display_html":"data Block = Block {}","name":"Block Block blockBatches blockHeaderSignature blockHeader","module":"Data.Sawtooth.Block","link":"Data-Sawtooth-Block.html#t:Block"},{"display_html":"data ClientBlockListRequest = ClientBlockListRequest {}","name":"ClientBlockListRequest ClientBlockListRequest clientBlockListRequestSorting clientBlockListRequestPaging clientBlockListRequestBlockIds clientBlockListRequestHeadId","module":"Data.Sawtooth.ClientBlock","link":"Data-Sawtooth-ClientBlock.html#t:ClientBlockListRequest"},{"display_html":"data ClientBlockListResponse = ClientBlockListResponse {}","name":"ClientBlockListResponse ClientBlockListResponse clientBlockListResponsePaging clientBlockListResponseHeadId clientBlockListResponseBlocks clientBlockListResponseStatus","module":"Data.Sawtooth.ClientBlock","link":"Data-Sawtooth-ClientBlock.html#t:ClientBlockListResponse"},{"display_html":"data ClientBlockListResponse_Status","name":"ClientBlockListResponse_Status ClientBlockListResponse_StatusINVALID_ID ClientBlockListResponse_StatusINVALID_SORT ClientBlockListResponse_StatusINVALID_PAGING ClientBlockListResponse_StatusNO_RESOURCE ClientBlockListResponse_StatusNO_ROOT ClientBlockListResponse_StatusNOT_READY ClientBlockListResponse_StatusINTERNAL_ERROR ClientBlockListResponse_StatusOK ClientBlockListResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.ClientBlock","link":"Data-Sawtooth-ClientBlock.html#t:ClientBlockListResponse_Status"},{"display_html":"newtype ClientBlockGetByIdRequest = ClientBlockGetByIdRequest {}","name":"ClientBlockGetByIdRequest ClientBlockGetByIdRequest clientBlockGetByIdRequestBlockId","module":"Data.Sawtooth.ClientBlock","link":"Data-Sawtooth-ClientBlock.html#t:ClientBlockGetByIdRequest"},{"display_html":"newtype ClientBlockGetByNumRequest = ClientBlockGetByNumRequest {}","name":"ClientBlockGetByNumRequest ClientBlockGetByNumRequest clientBlockGetByNumRequestBlockNum","module":"Data.Sawtooth.ClientBlock","link":"Data-Sawtooth-ClientBlock.html#t:ClientBlockGetByNumRequest"},{"display_html":"newtype ClientBlockGetByTransactionIdRequest = ClientBlockGetByTransactionIdRequest {}","name":"ClientBlockGetByTransactionIdRequest ClientBlockGetByTransactionIdRequest clientBlockGetByTransactionIdRequestTransactionId","module":"Data.Sawtooth.ClientBlock","link":"Data-Sawtooth-ClientBlock.html#t:ClientBlockGetByTransactionIdRequest"},{"display_html":"newtype ClientBlockGetByBatchIdRequest = ClientBlockGetByBatchIdRequest {}","name":"ClientBlockGetByBatchIdRequest ClientBlockGetByBatchIdRequest clientBlockGetByBatchIdRequestBatchId","module":"Data.Sawtooth.ClientBlock","link":"Data-Sawtooth-ClientBlock.html#t:ClientBlockGetByBatchIdRequest"},{"display_html":"data ClientBlockGetResponse = ClientBlockGetResponse {}","name":"ClientBlockGetResponse ClientBlockGetResponse clientBlockGetResponseBlock clientBlockGetResponseStatus","module":"Data.Sawtooth.ClientBlock","link":"Data-Sawtooth-ClientBlock.html#t:ClientBlockGetResponse"},{"display_html":"data ClientBlockGetResponse_Status","name":"ClientBlockGetResponse_Status ClientBlockGetResponse_StatusINVALID_ID ClientBlockGetResponse_StatusNO_RESOURCE ClientBlockGetResponse_StatusINTERNAL_ERROR ClientBlockGetResponse_StatusOK ClientBlockGetResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.ClientBlock","link":"Data-Sawtooth-ClientBlock.html#t:ClientBlockGetResponse_Status"},{"display_html":"data TransactionReceipt = TransactionReceipt {}","name":"TransactionReceipt TransactionReceipt transactionReceiptTransactionId transactionReceiptData transactionReceiptEvents transactionReceiptStateChanges","module":"Data.Sawtooth.TransactionReceipt","link":"Data-Sawtooth-TransactionReceipt.html#t:TransactionReceipt"},{"display_html":"data StateChange = StateChange {}","name":"StateChange StateChange stateChangeType stateChangeValue stateChangeAddress","module":"Data.Sawtooth.TransactionReceipt","link":"Data-Sawtooth-TransactionReceipt.html#t:StateChange"},{"display_html":"data StateChange_Type","name":"StateChange_Type StateChange_TypeDELETE StateChange_TypeSET StateChange_TypeTYPE_UNSET","module":"Data.Sawtooth.TransactionReceipt","link":"Data-Sawtooth-TransactionReceipt.html#t:StateChange_Type"},{"display_html":"newtype StateChangeList = StateChangeList {}","name":"StateChangeList StateChangeList stateChangeListStateChanges","module":"Data.Sawtooth.TransactionReceipt","link":"Data-Sawtooth-TransactionReceipt.html#t:StateChangeList"},{"display_html":"newtype ClientReceiptGetRequest = ClientReceiptGetRequest {}","name":"ClientReceiptGetRequest ClientReceiptGetRequest clientReceiptGetRequestTransactionIds","module":"Data.Sawtooth.ClientReceipt","link":"Data-Sawtooth-ClientReceipt.html#t:ClientReceiptGetRequest"},{"display_html":"data ClientReceiptGetResponse = ClientReceiptGetResponse {}","name":"ClientReceiptGetResponse ClientReceiptGetResponse clientReceiptGetResponseReceipts clientReceiptGetResponseStatus","module":"Data.Sawtooth.ClientReceipt","link":"Data-Sawtooth-ClientReceipt.html#t:ClientReceiptGetResponse"},{"display_html":"data ClientReceiptGetResponse_Status","name":"ClientReceiptGetResponse_Status ClientReceiptGetResponse_StatusINVALID_ID ClientReceiptGetResponse_StatusNO_RESOURCE ClientReceiptGetResponse_StatusINTERNAL_ERROR ClientReceiptGetResponse_StatusOK ClientReceiptGetResponse_StatusSTATUS_UNSET","module":"Data.Sawtooth.ClientReceipt","link":"Data-Sawtooth-ClientReceipt.html#t:ClientReceiptGetResponse_Status"},{"display_html":"newtype MessageList = MessageList {}","name":"MessageList MessageList messageListMessages","module":"Data.Sawtooth.Validator","link":"Data-Sawtooth-Validator.html#t:MessageList"},{"display_html":"data Message = Message {}","name":"Message Message messageContent messageCorrelationId messageMessageType","module":"Data.Sawtooth.Validator","link":"Data-Sawtooth-Validator.html#t:Message"},{"display_html":"data Message_MessageType","name":"Message_MessageType Message_MessageTypeCONSENSUS_NOTIFY_ACK Message_MessageTypeCONSENSUS_NOTIFY_ENGINE_DEACTIVATED Message_MessageTypeCONSENSUS_NOTIFY_ENGINE_ACTIVATED Message_MessageTypeCONSENSUS_NOTIFY_BLOCK_COMMIT Message_MessageTypeCONSENSUS_NOTIFY_BLOCK_INVALID Message_MessageTypeCONSENSUS_NOTIFY_BLOCK_VALID Message_MessageTypeCONSENSUS_NOTIFY_BLOCK_NEW Message_MessageTypeCONSENSUS_NOTIFY_PEER_MESSAGE Message_MessageTypeCONSENSUS_NOTIFY_PEER_DISCONNECTED Message_MessageTypeCONSENSUS_NOTIFY_PEER_CONNECTED Message_MessageTypeCONSENSUS_SUMMARIZE_BLOCK_RESPONSE Message_MessageTypeCONSENSUS_SUMMARIZE_BLOCK_REQUEST Message_MessageTypeCONSENSUS_CHAIN_HEAD_GET_RESPONSE Message_MessageTypeCONSENSUS_CHAIN_HEAD_GET_REQUEST Message_MessageTypeCONSENSUS_BLOCKS_GET_RESPONSE Message_MessageTypeCONSENSUS_BLOCKS_GET_REQUEST Message_MessageTypeCONSENSUS_STATE_GET_RESPONSE Message_MessageTypeCONSENSUS_STATE_GET_REQUEST Message_MessageTypeCONSENSUS_SETTINGS_GET_RESPONSE Message_MessageTypeCONSENSUS_SETTINGS_GET_REQUEST Message_MessageTypeCONSENSUS_FAIL_BLOCK_RESPONSE Message_MessageTypeCONSENSUS_FAIL_BLOCK_REQUEST Message_MessageTypeCONSENSUS_IGNORE_BLOCK_RESPONSE Message_MessageTypeCONSENSUS_IGNORE_BLOCK_REQUEST Message_MessageTypeCONSENSUS_COMMIT_BLOCK_RESPONSE Message_MessageTypeCONSENSUS_COMMIT_BLOCK_REQUEST Message_MessageTypeCONSENSUS_CHECK_BLOCKS_RESPONSE Message_MessageTypeCONSENSUS_CHECK_BLOCKS_REQUEST Message_MessageTypeCONSENSUS_CANCEL_BLOCK_RESPONSE Message_MessageTypeCONSENSUS_CANCEL_BLOCK_REQUEST Message_MessageTypeCONSENSUS_FINALIZE_BLOCK_RESPONSE Message_MessageTypeCONSENSUS_FINALIZE_BLOCK_REQUEST Message_MessageTypeCONSENSUS_INITIALIZE_BLOCK_RESPONSE Message_MessageTypeCONSENSUS_INITIALIZE_BLOCK_REQUEST Message_MessageTypeCONSENSUS_BROADCAST_RESPONSE Message_MessageTypeCONSENSUS_BROADCAST_REQUEST Message_MessageTypeCONSENSUS_SEND_TO_RESPONSE Message_MessageTypeCONSENSUS_SEND_TO_REQUEST Message_MessageTypeCONSENSUS_REGISTER_RESPONSE Message_MessageTypeCONSENSUS_REGISTER_REQUEST Message_MessageTypePING_RESPONSE Message_MessageTypePING_REQUEST Message_MessageTypeAUTHORIZATION_CHALLENGE_RESULT Message_MessageTypeAUTHORIZATION_CHALLENGE_SUBMIT Message_MessageTypeAUTHORIZATION_CHALLENGE_RESPONSE Message_MessageTypeAUTHORIZATION_CHALLENGE_REQUEST Message_MessageTypeAUTHORIZATION_TRUST_RESPONSE Message_MessageTypeAUTHORIZATION_TRUST_REQUEST Message_MessageTypeAUTHORIZATION_VIOLATION Message_MessageTypeAUTHORIZATION_CONNECTION_RESPONSE Message_MessageTypeCLIENT_EVENTS_GET_RESPONSE Message_MessageTypeCLIENT_EVENTS_GET_REQUEST Message_MessageTypeCLIENT_EVENTS Message_MessageTypeCLIENT_EVENTS_UNSUBSCRIBE_RESPONSE Message_MessageTypeCLIENT_EVENTS_UNSUBSCRIBE_REQUEST Message_MessageTypeCLIENT_EVENTS_SUBSCRIBE_RESPONSE Message_MessageTypeCLIENT_EVENTS_SUBSCRIBE_REQUEST Message_MessageTypeNETWORK_DISCONNECT Message_MessageTypeNETWORK_CONNECT Message_MessageTypeNETWORK_ACK Message_MessageTypeGOSSIP_CONSENSUS_MESSAGE Message_MessageTypeGOSSIP_GET_PEERS_RESPONSE Message_MessageTypeGOSSIP_GET_PEERS_REQUEST Message_MessageTypeGOSSIP_BATCH_RESPONSE Message_MessageTypeGOSSIP_BATCH_BY_TRANSACTION_ID_REQUEST Message_MessageTypeGOSSIP_BATCH_BY_BATCH_ID_REQUEST Message_MessageTypeGOSSIP_BLOCK_RESPONSE Message_MessageTypeGOSSIP_BLOCK_REQUEST Message_MessageTypeGOSSIP_UNREGISTER Message_MessageTypeGOSSIP_REGISTER Message_MessageTypeGOSSIP_MESSAGE Message_MessageTypeCLIENT_STATUS_GET_RESPONSE Message_MessageTypeCLIENT_STATUS_GET_REQUEST Message_MessageTypeCLIENT_BLOCK_GET_BY_BATCH_ID_REQUEST Message_MessageTypeCLIENT_BLOCK_GET_BY_TRANSACTION_ID_REQUEST Message_MessageTypeCLIENT_PEERS_GET_RESPONSE Message_MessageTypeCLIENT_PEERS_GET_REQUEST Message_MessageTypeCLIENT_BLOCK_GET_BY_NUM_REQUEST Message_MessageTypeCLIENT_RECEIPT_GET_RESPONSE Message_MessageTypeCLIENT_RECEIPT_GET_REQUEST Message_MessageTypeCLIENT_BATCH_STATUS_RESPONSE Message_MessageTypeCLIENT_BATCH_STATUS_REQUEST Message_MessageTypeCLIENT_STATE_GET_RESPONSE Message_MessageTypeCLIENT_STATE_GET_REQUEST Message_MessageTypeCLIENT_STATE_LIST_RESPONSE Message_MessageTypeCLIENT_STATE_LIST_REQUEST Message_MessageTypeCLIENT_STATE_CURRENT_RESPONSE Message_MessageTypeCLIENT_STATE_CURRENT_REQUEST Message_MessageTypeCLIENT_TRANSACTION_GET_RESPONSE Message_MessageTypeCLIENT_TRANSACTION_GET_REQUEST Message_MessageTypeCLIENT_TRANSACTION_LIST_RESPONSE Message_MessageTypeCLIENT_TRANSACTION_LIST_REQUEST Message_MessageTypeCLIENT_BATCH_GET_RESPONSE Message_MessageTypeCLIENT_BATCH_GET_REQUEST Message_MessageTypeCLIENT_BATCH_LIST_RESPONSE Message_MessageTypeCLIENT_BATCH_LIST_REQUEST Message_MessageTypeCLIENT_BLOCK_GET_RESPONSE Message_MessageTypeCLIENT_BLOCK_GET_BY_ID_REQUEST Message_MessageTypeCLIENT_BLOCK_LIST_RESPONSE Message_MessageTypeCLIENT_BLOCK_LIST_REQUEST Message_MessageTypeCLIENT_BATCH_SUBMIT_RESPONSE Message_MessageTypeCLIENT_BATCH_SUBMIT_REQUEST Message_MessageTypeTP_EVENT_ADD_RESPONSE Message_MessageTypeTP_EVENT_ADD_REQUEST Message_MessageTypeTP_RECEIPT_ADD_DATA_RESPONSE Message_MessageTypeTP_RECEIPT_ADD_DATA_REQUEST Message_MessageTypeTP_STATE_DELETE_RESPONSE Message_MessageTypeTP_STATE_DELETE_REQUEST Message_MessageTypeTP_STATE_SET_RESPONSE Message_MessageTypeTP_STATE_SET_REQUEST Message_MessageTypeTP_STATE_GET_RESPONSE Message_MessageTypeTP_STATE_GET_REQUEST Message_MessageTypeTP_PROCESS_RESPONSE Message_MessageTypeTP_PROCESS_REQUEST Message_MessageTypeTP_UNREGISTER_RESPONSE Message_MessageTypeTP_UNREGISTER_REQUEST Message_MessageTypeTP_REGISTER_RESPONSE Message_MessageTypeTP_REGISTER_REQUEST Message_MessageTypeDEFAULT","module":"Data.Sawtooth.Validator","link":"Data-Sawtooth-Validator.html#t:Message_MessageType"}] \ No newline at end of file diff --git a/index.html b/index.html index 01829cc..0bab27e 100644 --- a/index.html +++ b/index.html @@ -1 +1 @@ -sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types

sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types

An autogenerated module with Hyperledger Sawtooth protobuf types

Signatures

Modules

\ No newline at end of file +sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types
sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types

sawtooth-haskell-protos-0.0.0: An autogenerated module with Hyperledger Sawtooth protobuf types

An autogenerated module with Hyperledger Sawtooth protobuf types

Signatures

Modules

\ No newline at end of file diff --git a/meta.json b/meta.json index b801ca4..31e7dc4 100644 --- a/meta.json +++ b/meta.json @@ -1 +1 @@ -{"haddock_version":"2.23.0","quickjump_version":1} \ No newline at end of file +{"haddock_version":"2.24.0","quickjump_version":1} \ No newline at end of file diff --git a/sawtooth-haskell-protos.haddock b/sawtooth-haskell-protos.haddock index f02d8d5..4849469 100644 Binary files a/sawtooth-haskell-protos.haddock and b/sawtooth-haskell-protos.haddock differ diff --git a/sawtooth-haskell-protos.txt b/sawtooth-haskell-protos.txt index bcf8418..7c55bb8 100644 --- a/sawtooth-haskell-protos.txt +++ b/sawtooth-haskell-protos.txt @@ -57,68 +57,68 @@ AuthorizationChallengeSubmit :: Text -> Text -> Vector (Enumerated RoleType) -> newtype AuthorizationChallengeResult AuthorizationChallengeResult :: Vector (Enumerated RoleType) -> AuthorizationChallengeResult [authorizationChallengeResultRoles] :: AuthorizationChallengeResult -> Vector (Enumerated RoleType) -instance Control.DeepSeq.NFData Data.Sawtooth.Authorization.AuthorizationChallengeResult -instance GHC.Generics.Generic Data.Sawtooth.Authorization.AuthorizationChallengeResult -instance GHC.Classes.Ord Data.Sawtooth.Authorization.AuthorizationChallengeResult -instance GHC.Classes.Eq Data.Sawtooth.Authorization.AuthorizationChallengeResult -instance GHC.Show.Show Data.Sawtooth.Authorization.AuthorizationChallengeResult -instance Control.DeepSeq.NFData Data.Sawtooth.Authorization.AuthorizationChallengeSubmit -instance GHC.Generics.Generic Data.Sawtooth.Authorization.AuthorizationChallengeSubmit -instance GHC.Classes.Ord Data.Sawtooth.Authorization.AuthorizationChallengeSubmit -instance GHC.Classes.Eq Data.Sawtooth.Authorization.AuthorizationChallengeSubmit -instance GHC.Show.Show Data.Sawtooth.Authorization.AuthorizationChallengeSubmit -instance Control.DeepSeq.NFData Data.Sawtooth.Authorization.AuthorizationChallengeResponse -instance GHC.Generics.Generic Data.Sawtooth.Authorization.AuthorizationChallengeResponse -instance GHC.Classes.Ord Data.Sawtooth.Authorization.AuthorizationChallengeResponse -instance GHC.Classes.Eq Data.Sawtooth.Authorization.AuthorizationChallengeResponse -instance GHC.Show.Show Data.Sawtooth.Authorization.AuthorizationChallengeResponse -instance Control.DeepSeq.NFData Data.Sawtooth.Authorization.AuthorizationChallengeRequest -instance GHC.Generics.Generic Data.Sawtooth.Authorization.AuthorizationChallengeRequest -instance GHC.Classes.Ord Data.Sawtooth.Authorization.AuthorizationChallengeRequest -instance GHC.Classes.Eq Data.Sawtooth.Authorization.AuthorizationChallengeRequest -instance GHC.Show.Show Data.Sawtooth.Authorization.AuthorizationChallengeRequest -instance Control.DeepSeq.NFData Data.Sawtooth.Authorization.AuthorizationViolation -instance GHC.Generics.Generic Data.Sawtooth.Authorization.AuthorizationViolation -instance GHC.Classes.Ord Data.Sawtooth.Authorization.AuthorizationViolation -instance GHC.Classes.Eq Data.Sawtooth.Authorization.AuthorizationViolation -instance GHC.Show.Show Data.Sawtooth.Authorization.AuthorizationViolation -instance Control.DeepSeq.NFData Data.Sawtooth.Authorization.AuthorizationTrustResponse -instance GHC.Generics.Generic Data.Sawtooth.Authorization.AuthorizationTrustResponse -instance GHC.Classes.Ord Data.Sawtooth.Authorization.AuthorizationTrustResponse -instance GHC.Classes.Eq Data.Sawtooth.Authorization.AuthorizationTrustResponse -instance GHC.Show.Show Data.Sawtooth.Authorization.AuthorizationTrustResponse -instance Control.DeepSeq.NFData Data.Sawtooth.Authorization.AuthorizationTrustRequest -instance GHC.Generics.Generic Data.Sawtooth.Authorization.AuthorizationTrustRequest -instance GHC.Classes.Ord Data.Sawtooth.Authorization.AuthorizationTrustRequest -instance GHC.Classes.Eq Data.Sawtooth.Authorization.AuthorizationTrustRequest -instance GHC.Show.Show Data.Sawtooth.Authorization.AuthorizationTrustRequest -instance Control.DeepSeq.NFData Data.Sawtooth.Authorization.ConnectionResponse -instance GHC.Generics.Generic Data.Sawtooth.Authorization.ConnectionResponse -instance GHC.Classes.Ord Data.Sawtooth.Authorization.ConnectionResponse -instance GHC.Classes.Eq Data.Sawtooth.Authorization.ConnectionResponse -instance GHC.Show.Show Data.Sawtooth.Authorization.ConnectionResponse -instance Control.DeepSeq.NFData Data.Sawtooth.Authorization.ConnectionResponse_RoleEntry -instance GHC.Generics.Generic Data.Sawtooth.Authorization.ConnectionResponse_RoleEntry -instance GHC.Classes.Ord Data.Sawtooth.Authorization.ConnectionResponse_RoleEntry -instance GHC.Classes.Eq Data.Sawtooth.Authorization.ConnectionResponse_RoleEntry -instance GHC.Show.Show Data.Sawtooth.Authorization.ConnectionResponse_RoleEntry -instance Control.DeepSeq.NFData Data.Sawtooth.Authorization.ConnectionResponse_AuthorizationType -instance GHC.Generics.Generic Data.Sawtooth.Authorization.ConnectionResponse_AuthorizationType -instance GHC.Classes.Eq Data.Sawtooth.Authorization.ConnectionResponse_AuthorizationType -instance GHC.Show.Show Data.Sawtooth.Authorization.ConnectionResponse_AuthorizationType -instance Control.DeepSeq.NFData Data.Sawtooth.Authorization.ConnectionResponse_Status -instance GHC.Generics.Generic Data.Sawtooth.Authorization.ConnectionResponse_Status -instance GHC.Classes.Eq Data.Sawtooth.Authorization.ConnectionResponse_Status -instance GHC.Show.Show Data.Sawtooth.Authorization.ConnectionResponse_Status -instance Control.DeepSeq.NFData Data.Sawtooth.Authorization.RoleType -instance GHC.Generics.Generic Data.Sawtooth.Authorization.RoleType -instance GHC.Classes.Eq Data.Sawtooth.Authorization.RoleType -instance GHC.Show.Show Data.Sawtooth.Authorization.RoleType instance Control.DeepSeq.NFData Data.Sawtooth.Authorization.ConnectionRequest instance GHC.Generics.Generic Data.Sawtooth.Authorization.ConnectionRequest instance GHC.Classes.Ord Data.Sawtooth.Authorization.ConnectionRequest instance GHC.Classes.Eq Data.Sawtooth.Authorization.ConnectionRequest instance GHC.Show.Show Data.Sawtooth.Authorization.ConnectionRequest +instance Control.DeepSeq.NFData Data.Sawtooth.Authorization.RoleType +instance GHC.Generics.Generic Data.Sawtooth.Authorization.RoleType +instance GHC.Classes.Eq Data.Sawtooth.Authorization.RoleType +instance GHC.Show.Show Data.Sawtooth.Authorization.RoleType +instance Control.DeepSeq.NFData Data.Sawtooth.Authorization.ConnectionResponse_Status +instance GHC.Generics.Generic Data.Sawtooth.Authorization.ConnectionResponse_Status +instance GHC.Classes.Eq Data.Sawtooth.Authorization.ConnectionResponse_Status +instance GHC.Show.Show Data.Sawtooth.Authorization.ConnectionResponse_Status +instance Control.DeepSeq.NFData Data.Sawtooth.Authorization.ConnectionResponse_AuthorizationType +instance GHC.Generics.Generic Data.Sawtooth.Authorization.ConnectionResponse_AuthorizationType +instance GHC.Classes.Eq Data.Sawtooth.Authorization.ConnectionResponse_AuthorizationType +instance GHC.Show.Show Data.Sawtooth.Authorization.ConnectionResponse_AuthorizationType +instance Control.DeepSeq.NFData Data.Sawtooth.Authorization.ConnectionResponse_RoleEntry +instance GHC.Generics.Generic Data.Sawtooth.Authorization.ConnectionResponse_RoleEntry +instance GHC.Classes.Ord Data.Sawtooth.Authorization.ConnectionResponse_RoleEntry +instance GHC.Classes.Eq Data.Sawtooth.Authorization.ConnectionResponse_RoleEntry +instance GHC.Show.Show Data.Sawtooth.Authorization.ConnectionResponse_RoleEntry +instance Control.DeepSeq.NFData Data.Sawtooth.Authorization.ConnectionResponse +instance GHC.Generics.Generic Data.Sawtooth.Authorization.ConnectionResponse +instance GHC.Classes.Ord Data.Sawtooth.Authorization.ConnectionResponse +instance GHC.Classes.Eq Data.Sawtooth.Authorization.ConnectionResponse +instance GHC.Show.Show Data.Sawtooth.Authorization.ConnectionResponse +instance Control.DeepSeq.NFData Data.Sawtooth.Authorization.AuthorizationTrustRequest +instance GHC.Generics.Generic Data.Sawtooth.Authorization.AuthorizationTrustRequest +instance GHC.Classes.Ord Data.Sawtooth.Authorization.AuthorizationTrustRequest +instance GHC.Classes.Eq Data.Sawtooth.Authorization.AuthorizationTrustRequest +instance GHC.Show.Show Data.Sawtooth.Authorization.AuthorizationTrustRequest +instance Control.DeepSeq.NFData Data.Sawtooth.Authorization.AuthorizationTrustResponse +instance GHC.Generics.Generic Data.Sawtooth.Authorization.AuthorizationTrustResponse +instance GHC.Classes.Ord Data.Sawtooth.Authorization.AuthorizationTrustResponse +instance GHC.Classes.Eq Data.Sawtooth.Authorization.AuthorizationTrustResponse +instance GHC.Show.Show Data.Sawtooth.Authorization.AuthorizationTrustResponse +instance Control.DeepSeq.NFData Data.Sawtooth.Authorization.AuthorizationViolation +instance GHC.Generics.Generic Data.Sawtooth.Authorization.AuthorizationViolation +instance GHC.Classes.Ord Data.Sawtooth.Authorization.AuthorizationViolation +instance GHC.Classes.Eq Data.Sawtooth.Authorization.AuthorizationViolation +instance GHC.Show.Show Data.Sawtooth.Authorization.AuthorizationViolation +instance Control.DeepSeq.NFData Data.Sawtooth.Authorization.AuthorizationChallengeRequest +instance GHC.Generics.Generic Data.Sawtooth.Authorization.AuthorizationChallengeRequest +instance GHC.Classes.Ord Data.Sawtooth.Authorization.AuthorizationChallengeRequest +instance GHC.Classes.Eq Data.Sawtooth.Authorization.AuthorizationChallengeRequest +instance GHC.Show.Show Data.Sawtooth.Authorization.AuthorizationChallengeRequest +instance Control.DeepSeq.NFData Data.Sawtooth.Authorization.AuthorizationChallengeResponse +instance GHC.Generics.Generic Data.Sawtooth.Authorization.AuthorizationChallengeResponse +instance GHC.Classes.Ord Data.Sawtooth.Authorization.AuthorizationChallengeResponse +instance GHC.Classes.Eq Data.Sawtooth.Authorization.AuthorizationChallengeResponse +instance GHC.Show.Show Data.Sawtooth.Authorization.AuthorizationChallengeResponse +instance Control.DeepSeq.NFData Data.Sawtooth.Authorization.AuthorizationChallengeSubmit +instance GHC.Generics.Generic Data.Sawtooth.Authorization.AuthorizationChallengeSubmit +instance GHC.Classes.Ord Data.Sawtooth.Authorization.AuthorizationChallengeSubmit +instance GHC.Classes.Eq Data.Sawtooth.Authorization.AuthorizationChallengeSubmit +instance GHC.Show.Show Data.Sawtooth.Authorization.AuthorizationChallengeSubmit +instance Control.DeepSeq.NFData Data.Sawtooth.Authorization.AuthorizationChallengeResult +instance GHC.Generics.Generic Data.Sawtooth.Authorization.AuthorizationChallengeResult +instance GHC.Classes.Ord Data.Sawtooth.Authorization.AuthorizationChallengeResult +instance GHC.Classes.Eq Data.Sawtooth.Authorization.AuthorizationChallengeResult +instance GHC.Show.Show Data.Sawtooth.Authorization.AuthorizationChallengeResult instance Proto3.Suite.Class.Named Data.Sawtooth.Authorization.AuthorizationChallengeResult instance Proto3.Suite.Class.HasDefault Data.Sawtooth.Authorization.AuthorizationChallengeResult instance Proto3.Suite.Class.Message Data.Sawtooth.Authorization.AuthorizationChallengeResult @@ -251,21 +251,21 @@ BlockInfoTxn :: Maybe BlockInfo -> Word64 -> Word64 -> BlockInfoTxn [blockInfoTxnBlock] :: BlockInfoTxn -> Maybe BlockInfo [blockInfoTxnTargetCount] :: BlockInfoTxn -> Word64 [blockInfoTxnSyncTolerance] :: BlockInfoTxn -> Word64 -instance Control.DeepSeq.NFData Data.Sawtooth.BlockInfo.BlockInfoTxn -instance GHC.Generics.Generic Data.Sawtooth.BlockInfo.BlockInfoTxn -instance GHC.Classes.Ord Data.Sawtooth.BlockInfo.BlockInfoTxn -instance GHC.Classes.Eq Data.Sawtooth.BlockInfo.BlockInfoTxn -instance GHC.Show.Show Data.Sawtooth.BlockInfo.BlockInfoTxn -instance Control.DeepSeq.NFData Data.Sawtooth.BlockInfo.BlockInfo -instance GHC.Generics.Generic Data.Sawtooth.BlockInfo.BlockInfo -instance GHC.Classes.Ord Data.Sawtooth.BlockInfo.BlockInfo -instance GHC.Classes.Eq Data.Sawtooth.BlockInfo.BlockInfo -instance GHC.Show.Show Data.Sawtooth.BlockInfo.BlockInfo instance Control.DeepSeq.NFData Data.Sawtooth.BlockInfo.BlockInfoConfig instance GHC.Generics.Generic Data.Sawtooth.BlockInfo.BlockInfoConfig instance GHC.Classes.Ord Data.Sawtooth.BlockInfo.BlockInfoConfig instance GHC.Classes.Eq Data.Sawtooth.BlockInfo.BlockInfoConfig instance GHC.Show.Show Data.Sawtooth.BlockInfo.BlockInfoConfig +instance Control.DeepSeq.NFData Data.Sawtooth.BlockInfo.BlockInfo +instance GHC.Generics.Generic Data.Sawtooth.BlockInfo.BlockInfo +instance GHC.Classes.Ord Data.Sawtooth.BlockInfo.BlockInfo +instance GHC.Classes.Eq Data.Sawtooth.BlockInfo.BlockInfo +instance GHC.Show.Show Data.Sawtooth.BlockInfo.BlockInfo +instance Control.DeepSeq.NFData Data.Sawtooth.BlockInfo.BlockInfoTxn +instance GHC.Generics.Generic Data.Sawtooth.BlockInfo.BlockInfoTxn +instance GHC.Classes.Ord Data.Sawtooth.BlockInfo.BlockInfoTxn +instance GHC.Classes.Eq Data.Sawtooth.BlockInfo.BlockInfoTxn +instance GHC.Show.Show Data.Sawtooth.BlockInfo.BlockInfoTxn instance Proto3.Suite.Class.Named Data.Sawtooth.BlockInfo.BlockInfoTxn instance Proto3.Suite.Class.HasDefault Data.Sawtooth.BlockInfo.BlockInfoTxn instance Proto3.Suite.Class.Message Data.Sawtooth.BlockInfo.BlockInfoTxn @@ -307,21 +307,21 @@ data ClientSortControls ClientSortControls :: Vector Text -> Bool -> ClientSortControls [clientSortControlsKeys] :: ClientSortControls -> Vector Text [clientSortControlsReverse] :: ClientSortControls -> Bool -instance Control.DeepSeq.NFData Data.Sawtooth.ClientListControl.ClientSortControls -instance GHC.Generics.Generic Data.Sawtooth.ClientListControl.ClientSortControls -instance GHC.Classes.Ord Data.Sawtooth.ClientListControl.ClientSortControls -instance GHC.Classes.Eq Data.Sawtooth.ClientListControl.ClientSortControls -instance GHC.Show.Show Data.Sawtooth.ClientListControl.ClientSortControls -instance Control.DeepSeq.NFData Data.Sawtooth.ClientListControl.ClientPagingResponse -instance GHC.Generics.Generic Data.Sawtooth.ClientListControl.ClientPagingResponse -instance GHC.Classes.Ord Data.Sawtooth.ClientListControl.ClientPagingResponse -instance GHC.Classes.Eq Data.Sawtooth.ClientListControl.ClientPagingResponse -instance GHC.Show.Show Data.Sawtooth.ClientListControl.ClientPagingResponse instance Control.DeepSeq.NFData Data.Sawtooth.ClientListControl.ClientPagingControls instance GHC.Generics.Generic Data.Sawtooth.ClientListControl.ClientPagingControls instance GHC.Classes.Ord Data.Sawtooth.ClientListControl.ClientPagingControls instance GHC.Classes.Eq Data.Sawtooth.ClientListControl.ClientPagingControls instance GHC.Show.Show Data.Sawtooth.ClientListControl.ClientPagingControls +instance Control.DeepSeq.NFData Data.Sawtooth.ClientListControl.ClientPagingResponse +instance GHC.Generics.Generic Data.Sawtooth.ClientListControl.ClientPagingResponse +instance GHC.Classes.Ord Data.Sawtooth.ClientListControl.ClientPagingResponse +instance GHC.Classes.Eq Data.Sawtooth.ClientListControl.ClientPagingResponse +instance GHC.Show.Show Data.Sawtooth.ClientListControl.ClientPagingResponse +instance Control.DeepSeq.NFData Data.Sawtooth.ClientListControl.ClientSortControls +instance GHC.Generics.Generic Data.Sawtooth.ClientListControl.ClientSortControls +instance GHC.Classes.Ord Data.Sawtooth.ClientListControl.ClientSortControls +instance GHC.Classes.Eq Data.Sawtooth.ClientListControl.ClientSortControls +instance GHC.Show.Show Data.Sawtooth.ClientListControl.ClientSortControls instance Proto3.Suite.Class.Named Data.Sawtooth.ClientListControl.ClientSortControls instance Proto3.Suite.Class.HasDefault Data.Sawtooth.ClientListControl.ClientSortControls instance Proto3.Suite.Class.Message Data.Sawtooth.ClientListControl.ClientSortControls @@ -360,20 +360,20 @@ data ClientPeersGetResponse_Status ClientPeersGetResponse_StatusSTATUS_UNSET :: ClientPeersGetResponse_Status ClientPeersGetResponse_StatusOK :: ClientPeersGetResponse_Status ClientPeersGetResponse_StatusERROR :: ClientPeersGetResponse_Status -instance Control.DeepSeq.NFData Data.Sawtooth.ClientPeers.ClientPeersGetResponse -instance GHC.Generics.Generic Data.Sawtooth.ClientPeers.ClientPeersGetResponse -instance GHC.Classes.Ord Data.Sawtooth.ClientPeers.ClientPeersGetResponse -instance GHC.Classes.Eq Data.Sawtooth.ClientPeers.ClientPeersGetResponse -instance GHC.Show.Show Data.Sawtooth.ClientPeers.ClientPeersGetResponse -instance Control.DeepSeq.NFData Data.Sawtooth.ClientPeers.ClientPeersGetResponse_Status -instance GHC.Generics.Generic Data.Sawtooth.ClientPeers.ClientPeersGetResponse_Status -instance GHC.Classes.Eq Data.Sawtooth.ClientPeers.ClientPeersGetResponse_Status -instance GHC.Show.Show Data.Sawtooth.ClientPeers.ClientPeersGetResponse_Status instance Control.DeepSeq.NFData Data.Sawtooth.ClientPeers.ClientPeersGetRequest instance GHC.Generics.Generic Data.Sawtooth.ClientPeers.ClientPeersGetRequest instance GHC.Classes.Ord Data.Sawtooth.ClientPeers.ClientPeersGetRequest instance GHC.Classes.Eq Data.Sawtooth.ClientPeers.ClientPeersGetRequest instance GHC.Show.Show Data.Sawtooth.ClientPeers.ClientPeersGetRequest +instance Control.DeepSeq.NFData Data.Sawtooth.ClientPeers.ClientPeersGetResponse_Status +instance GHC.Generics.Generic Data.Sawtooth.ClientPeers.ClientPeersGetResponse_Status +instance GHC.Classes.Eq Data.Sawtooth.ClientPeers.ClientPeersGetResponse_Status +instance GHC.Show.Show Data.Sawtooth.ClientPeers.ClientPeersGetResponse_Status +instance Control.DeepSeq.NFData Data.Sawtooth.ClientPeers.ClientPeersGetResponse +instance GHC.Generics.Generic Data.Sawtooth.ClientPeers.ClientPeersGetResponse +instance GHC.Classes.Ord Data.Sawtooth.ClientPeers.ClientPeersGetResponse +instance GHC.Classes.Eq Data.Sawtooth.ClientPeers.ClientPeersGetResponse +instance GHC.Show.Show Data.Sawtooth.ClientPeers.ClientPeersGetResponse instance Proto3.Suite.Class.Named Data.Sawtooth.ClientPeers.ClientPeersGetResponse instance Proto3.Suite.Class.HasDefault Data.Sawtooth.ClientPeers.ClientPeersGetResponse instance Proto3.Suite.Class.Message Data.Sawtooth.ClientPeers.ClientPeersGetResponse @@ -449,39 +449,39 @@ ClientStateGetResponse_StatusNO_ROOT :: ClientStateGetResponse_Status ClientStateGetResponse_StatusNO_RESOURCE :: ClientStateGetResponse_Status ClientStateGetResponse_StatusINVALID_ADDRESS :: ClientStateGetResponse_Status ClientStateGetResponse_StatusINVALID_ROOT :: ClientStateGetResponse_Status -instance Control.DeepSeq.NFData Data.Sawtooth.ClientState.ClientStateGetResponse -instance GHC.Generics.Generic Data.Sawtooth.ClientState.ClientStateGetResponse -instance GHC.Classes.Ord Data.Sawtooth.ClientState.ClientStateGetResponse -instance GHC.Classes.Eq Data.Sawtooth.ClientState.ClientStateGetResponse -instance GHC.Show.Show Data.Sawtooth.ClientState.ClientStateGetResponse -instance Control.DeepSeq.NFData Data.Sawtooth.ClientState.ClientStateGetResponse_Status -instance GHC.Generics.Generic Data.Sawtooth.ClientState.ClientStateGetResponse_Status -instance GHC.Classes.Eq Data.Sawtooth.ClientState.ClientStateGetResponse_Status -instance GHC.Show.Show Data.Sawtooth.ClientState.ClientStateGetResponse_Status -instance Control.DeepSeq.NFData Data.Sawtooth.ClientState.ClientStateGetRequest -instance GHC.Generics.Generic Data.Sawtooth.ClientState.ClientStateGetRequest -instance GHC.Classes.Ord Data.Sawtooth.ClientState.ClientStateGetRequest -instance GHC.Classes.Eq Data.Sawtooth.ClientState.ClientStateGetRequest -instance GHC.Show.Show Data.Sawtooth.ClientState.ClientStateGetRequest -instance Control.DeepSeq.NFData Data.Sawtooth.ClientState.ClientStateListResponse -instance GHC.Generics.Generic Data.Sawtooth.ClientState.ClientStateListResponse -instance GHC.Classes.Ord Data.Sawtooth.ClientState.ClientStateListResponse -instance GHC.Classes.Eq Data.Sawtooth.ClientState.ClientStateListResponse -instance GHC.Show.Show Data.Sawtooth.ClientState.ClientStateListResponse -instance Control.DeepSeq.NFData Data.Sawtooth.ClientState.ClientStateListResponse_Entry -instance GHC.Generics.Generic Data.Sawtooth.ClientState.ClientStateListResponse_Entry -instance GHC.Classes.Ord Data.Sawtooth.ClientState.ClientStateListResponse_Entry -instance GHC.Classes.Eq Data.Sawtooth.ClientState.ClientStateListResponse_Entry -instance GHC.Show.Show Data.Sawtooth.ClientState.ClientStateListResponse_Entry -instance Control.DeepSeq.NFData Data.Sawtooth.ClientState.ClientStateListResponse_Status -instance GHC.Generics.Generic Data.Sawtooth.ClientState.ClientStateListResponse_Status -instance GHC.Classes.Eq Data.Sawtooth.ClientState.ClientStateListResponse_Status -instance GHC.Show.Show Data.Sawtooth.ClientState.ClientStateListResponse_Status instance Control.DeepSeq.NFData Data.Sawtooth.ClientState.ClientStateListRequest instance GHC.Generics.Generic Data.Sawtooth.ClientState.ClientStateListRequest instance GHC.Classes.Ord Data.Sawtooth.ClientState.ClientStateListRequest instance GHC.Classes.Eq Data.Sawtooth.ClientState.ClientStateListRequest instance GHC.Show.Show Data.Sawtooth.ClientState.ClientStateListRequest +instance Control.DeepSeq.NFData Data.Sawtooth.ClientState.ClientStateListResponse_Status +instance GHC.Generics.Generic Data.Sawtooth.ClientState.ClientStateListResponse_Status +instance GHC.Classes.Eq Data.Sawtooth.ClientState.ClientStateListResponse_Status +instance GHC.Show.Show Data.Sawtooth.ClientState.ClientStateListResponse_Status +instance Control.DeepSeq.NFData Data.Sawtooth.ClientState.ClientStateListResponse_Entry +instance GHC.Generics.Generic Data.Sawtooth.ClientState.ClientStateListResponse_Entry +instance GHC.Classes.Ord Data.Sawtooth.ClientState.ClientStateListResponse_Entry +instance GHC.Classes.Eq Data.Sawtooth.ClientState.ClientStateListResponse_Entry +instance GHC.Show.Show Data.Sawtooth.ClientState.ClientStateListResponse_Entry +instance Control.DeepSeq.NFData Data.Sawtooth.ClientState.ClientStateListResponse +instance GHC.Generics.Generic Data.Sawtooth.ClientState.ClientStateListResponse +instance GHC.Classes.Ord Data.Sawtooth.ClientState.ClientStateListResponse +instance GHC.Classes.Eq Data.Sawtooth.ClientState.ClientStateListResponse +instance GHC.Show.Show Data.Sawtooth.ClientState.ClientStateListResponse +instance Control.DeepSeq.NFData Data.Sawtooth.ClientState.ClientStateGetRequest +instance GHC.Generics.Generic Data.Sawtooth.ClientState.ClientStateGetRequest +instance GHC.Classes.Ord Data.Sawtooth.ClientState.ClientStateGetRequest +instance GHC.Classes.Eq Data.Sawtooth.ClientState.ClientStateGetRequest +instance GHC.Show.Show Data.Sawtooth.ClientState.ClientStateGetRequest +instance Control.DeepSeq.NFData Data.Sawtooth.ClientState.ClientStateGetResponse_Status +instance GHC.Generics.Generic Data.Sawtooth.ClientState.ClientStateGetResponse_Status +instance GHC.Classes.Eq Data.Sawtooth.ClientState.ClientStateGetResponse_Status +instance GHC.Show.Show Data.Sawtooth.ClientState.ClientStateGetResponse_Status +instance Control.DeepSeq.NFData Data.Sawtooth.ClientState.ClientStateGetResponse +instance GHC.Generics.Generic Data.Sawtooth.ClientState.ClientStateGetResponse +instance GHC.Classes.Ord Data.Sawtooth.ClientState.ClientStateGetResponse +instance GHC.Classes.Eq Data.Sawtooth.ClientState.ClientStateGetResponse +instance GHC.Show.Show Data.Sawtooth.ClientState.ClientStateGetResponse instance Proto3.Suite.Class.Named Data.Sawtooth.ClientState.ClientStateGetResponse instance Proto3.Suite.Class.HasDefault Data.Sawtooth.ClientState.ClientStateGetResponse instance Proto3.Suite.Class.Message Data.Sawtooth.ClientState.ClientStateGetResponse @@ -560,25 +560,25 @@ ClientStatusGetResponse_StatusERROR :: ClientStatusGetResponse_Status newtype ClientStatusGetResponse_Peer ClientStatusGetResponse_Peer :: Text -> ClientStatusGetResponse_Peer [clientStatusGetResponse_PeerEndpoint] :: ClientStatusGetResponse_Peer -> Text -instance Control.DeepSeq.NFData Data.Sawtooth.ClientStatus.ClientStatusGetResponse -instance GHC.Generics.Generic Data.Sawtooth.ClientStatus.ClientStatusGetResponse -instance GHC.Classes.Ord Data.Sawtooth.ClientStatus.ClientStatusGetResponse -instance GHC.Classes.Eq Data.Sawtooth.ClientStatus.ClientStatusGetResponse -instance GHC.Show.Show Data.Sawtooth.ClientStatus.ClientStatusGetResponse -instance Control.DeepSeq.NFData Data.Sawtooth.ClientStatus.ClientStatusGetResponse_Peer -instance GHC.Generics.Generic Data.Sawtooth.ClientStatus.ClientStatusGetResponse_Peer -instance GHC.Classes.Ord Data.Sawtooth.ClientStatus.ClientStatusGetResponse_Peer -instance GHC.Classes.Eq Data.Sawtooth.ClientStatus.ClientStatusGetResponse_Peer -instance GHC.Show.Show Data.Sawtooth.ClientStatus.ClientStatusGetResponse_Peer -instance Control.DeepSeq.NFData Data.Sawtooth.ClientStatus.ClientStatusGetResponse_Status -instance GHC.Generics.Generic Data.Sawtooth.ClientStatus.ClientStatusGetResponse_Status -instance GHC.Classes.Eq Data.Sawtooth.ClientStatus.ClientStatusGetResponse_Status -instance GHC.Show.Show Data.Sawtooth.ClientStatus.ClientStatusGetResponse_Status instance Control.DeepSeq.NFData Data.Sawtooth.ClientStatus.ClientStatusGetRequest instance GHC.Generics.Generic Data.Sawtooth.ClientStatus.ClientStatusGetRequest instance GHC.Classes.Ord Data.Sawtooth.ClientStatus.ClientStatusGetRequest instance GHC.Classes.Eq Data.Sawtooth.ClientStatus.ClientStatusGetRequest instance GHC.Show.Show Data.Sawtooth.ClientStatus.ClientStatusGetRequest +instance Control.DeepSeq.NFData Data.Sawtooth.ClientStatus.ClientStatusGetResponse_Status +instance GHC.Generics.Generic Data.Sawtooth.ClientStatus.ClientStatusGetResponse_Status +instance GHC.Classes.Eq Data.Sawtooth.ClientStatus.ClientStatusGetResponse_Status +instance GHC.Show.Show Data.Sawtooth.ClientStatus.ClientStatusGetResponse_Status +instance Control.DeepSeq.NFData Data.Sawtooth.ClientStatus.ClientStatusGetResponse_Peer +instance GHC.Generics.Generic Data.Sawtooth.ClientStatus.ClientStatusGetResponse_Peer +instance GHC.Classes.Ord Data.Sawtooth.ClientStatus.ClientStatusGetResponse_Peer +instance GHC.Classes.Eq Data.Sawtooth.ClientStatus.ClientStatusGetResponse_Peer +instance GHC.Show.Show Data.Sawtooth.ClientStatus.ClientStatusGetResponse_Peer +instance Control.DeepSeq.NFData Data.Sawtooth.ClientStatus.ClientStatusGetResponse +instance GHC.Generics.Generic Data.Sawtooth.ClientStatus.ClientStatusGetResponse +instance GHC.Classes.Ord Data.Sawtooth.ClientStatus.ClientStatusGetResponse +instance GHC.Classes.Eq Data.Sawtooth.ClientStatus.ClientStatusGetResponse +instance GHC.Show.Show Data.Sawtooth.ClientStatus.ClientStatusGetResponse instance Proto3.Suite.Class.Named Data.Sawtooth.ClientStatus.ClientStatusGetResponse instance Proto3.Suite.Class.HasDefault Data.Sawtooth.ClientStatus.ClientStatusGetResponse instance Proto3.Suite.Class.Message Data.Sawtooth.ClientStatus.ClientStatusGetResponse @@ -906,301 +906,301 @@ ConsensusStateGetResponse_StatusSERVICE_ERROR :: ConsensusStateGetResponse_Statu ConsensusStateGetResponse_StatusNOT_READY :: ConsensusStateGetResponse_Status ConsensusStateGetResponse_StatusUNKNOWN_BLOCK :: ConsensusStateGetResponse_Status ConsensusStateGetResponse_StatusNOT_ACTIVE_ENGINE :: ConsensusStateGetResponse_Status -instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusStateGetResponse -instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusStateGetResponse -instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusStateGetResponse -instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusStateGetResponse -instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusStateGetResponse -instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusStateGetResponse_Status -instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusStateGetResponse_Status -instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusStateGetResponse_Status -instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusStateGetResponse_Status -instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusStateGetRequest -instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusStateGetRequest -instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusStateGetRequest -instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusStateGetRequest -instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusStateGetRequest -instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusSettingsGetResponse -instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusSettingsGetResponse -instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusSettingsGetResponse -instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusSettingsGetResponse -instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusSettingsGetResponse -instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusSettingsGetResponse_Status -instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusSettingsGetResponse_Status -instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusSettingsGetResponse_Status -instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusSettingsGetResponse_Status -instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusSettingsGetRequest -instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusSettingsGetRequest -instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusSettingsGetRequest -instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusSettingsGetRequest -instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusSettingsGetRequest -instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusChainHeadGetResponse -instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusChainHeadGetResponse -instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusChainHeadGetResponse -instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusChainHeadGetResponse -instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusChainHeadGetResponse -instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusChainHeadGetResponse_Status -instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusChainHeadGetResponse_Status -instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusChainHeadGetResponse_Status -instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusChainHeadGetResponse_Status -instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusChainHeadGetRequest -instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusChainHeadGetRequest -instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusChainHeadGetRequest -instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusChainHeadGetRequest -instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusChainHeadGetRequest -instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusBlocksGetResponse -instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusBlocksGetResponse -instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusBlocksGetResponse -instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusBlocksGetResponse -instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusBlocksGetResponse -instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusBlocksGetResponse_Status -instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusBlocksGetResponse_Status -instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusBlocksGetResponse_Status -instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusBlocksGetResponse_Status -instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusBlocksGetRequest -instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusBlocksGetRequest -instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusBlocksGetRequest -instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusBlocksGetRequest -instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusBlocksGetRequest -instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusFailBlockResponse -instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusFailBlockResponse -instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusFailBlockResponse -instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusFailBlockResponse -instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusFailBlockResponse -instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusFailBlockResponse_Status -instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusFailBlockResponse_Status -instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusFailBlockResponse_Status -instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusFailBlockResponse_Status -instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusFailBlockRequest -instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusFailBlockRequest -instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusFailBlockRequest -instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusFailBlockRequest -instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusFailBlockRequest -instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusIgnoreBlockResponse -instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusIgnoreBlockResponse -instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusIgnoreBlockResponse -instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusIgnoreBlockResponse -instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusIgnoreBlockResponse -instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusIgnoreBlockResponse_Status -instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusIgnoreBlockResponse_Status -instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusIgnoreBlockResponse_Status -instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusIgnoreBlockResponse_Status -instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusIgnoreBlockRequest -instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusIgnoreBlockRequest -instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusIgnoreBlockRequest -instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusIgnoreBlockRequest -instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusIgnoreBlockRequest -instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusCommitBlockResponse -instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusCommitBlockResponse -instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusCommitBlockResponse -instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusCommitBlockResponse -instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusCommitBlockResponse -instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusCommitBlockResponse_Status -instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusCommitBlockResponse_Status -instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusCommitBlockResponse_Status -instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusCommitBlockResponse_Status -instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusCommitBlockRequest -instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusCommitBlockRequest -instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusCommitBlockRequest -instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusCommitBlockRequest -instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusCommitBlockRequest -instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusCheckBlocksResponse -instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusCheckBlocksResponse -instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusCheckBlocksResponse -instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusCheckBlocksResponse -instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusCheckBlocksResponse -instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusCheckBlocksResponse_Status -instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusCheckBlocksResponse_Status -instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusCheckBlocksResponse_Status -instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusCheckBlocksResponse_Status -instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusCheckBlocksRequest -instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusCheckBlocksRequest -instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusCheckBlocksRequest -instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusCheckBlocksRequest -instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusCheckBlocksRequest -instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusCancelBlockResponse -instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusCancelBlockResponse -instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusCancelBlockResponse -instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusCancelBlockResponse -instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusCancelBlockResponse -instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusCancelBlockResponse_Status -instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusCancelBlockResponse_Status -instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusCancelBlockResponse_Status -instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusCancelBlockResponse_Status -instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusCancelBlockRequest -instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusCancelBlockRequest -instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusCancelBlockRequest -instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusCancelBlockRequest -instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusCancelBlockRequest -instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusFinalizeBlockResponse -instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusFinalizeBlockResponse -instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusFinalizeBlockResponse -instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusFinalizeBlockResponse -instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusFinalizeBlockResponse -instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusFinalizeBlockResponse_Status -instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusFinalizeBlockResponse_Status -instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusFinalizeBlockResponse_Status -instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusFinalizeBlockResponse_Status -instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusFinalizeBlockRequest -instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusFinalizeBlockRequest -instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusFinalizeBlockRequest -instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusFinalizeBlockRequest -instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusFinalizeBlockRequest -instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusSummarizeBlockResponse -instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusSummarizeBlockResponse -instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusSummarizeBlockResponse -instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusSummarizeBlockResponse -instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusSummarizeBlockResponse -instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusSummarizeBlockResponse_Status -instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusSummarizeBlockResponse_Status -instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusSummarizeBlockResponse_Status -instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusSummarizeBlockResponse_Status -instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusSummarizeBlockRequest -instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusSummarizeBlockRequest -instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusSummarizeBlockRequest -instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusSummarizeBlockRequest -instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusSummarizeBlockRequest -instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusInitializeBlockResponse -instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusInitializeBlockResponse -instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusInitializeBlockResponse -instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusInitializeBlockResponse -instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusInitializeBlockResponse -instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusInitializeBlockResponse_Status -instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusInitializeBlockResponse_Status -instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusInitializeBlockResponse_Status -instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusInitializeBlockResponse_Status -instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusInitializeBlockRequest -instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusInitializeBlockRequest -instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusInitializeBlockRequest -instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusInitializeBlockRequest -instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusInitializeBlockRequest -instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusBroadcastResponse -instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusBroadcastResponse -instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusBroadcastResponse -instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusBroadcastResponse -instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusBroadcastResponse -instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusBroadcastResponse_Status -instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusBroadcastResponse_Status -instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusBroadcastResponse_Status -instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusBroadcastResponse_Status -instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusBroadcastRequest -instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusBroadcastRequest -instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusBroadcastRequest -instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusBroadcastRequest -instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusBroadcastRequest -instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusSendToResponse -instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusSendToResponse -instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusSendToResponse -instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusSendToResponse -instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusSendToResponse -instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusSendToResponse_Status -instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusSendToResponse_Status -instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusSendToResponse_Status -instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusSendToResponse_Status -instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusSendToRequest -instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusSendToRequest -instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusSendToRequest -instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusSendToRequest -instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusSendToRequest -instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusNotifyAck -instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusNotifyAck -instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusNotifyAck -instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusNotifyAck -instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusNotifyAck -instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusNotifyEngineDeactivated -instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusNotifyEngineDeactivated -instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusNotifyEngineDeactivated -instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusNotifyEngineDeactivated -instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusNotifyEngineDeactivated -instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusNotifyEngineActivated -instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusNotifyEngineActivated -instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusNotifyEngineActivated -instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusNotifyEngineActivated -instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusNotifyEngineActivated -instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusNotifyBlockCommit -instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusNotifyBlockCommit -instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusNotifyBlockCommit -instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusNotifyBlockCommit -instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusNotifyBlockCommit -instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusNotifyBlockInvalid -instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusNotifyBlockInvalid -instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusNotifyBlockInvalid -instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusNotifyBlockInvalid -instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusNotifyBlockInvalid -instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusNotifyBlockValid -instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusNotifyBlockValid -instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusNotifyBlockValid -instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusNotifyBlockValid -instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusNotifyBlockValid -instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusNotifyBlockNew -instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusNotifyBlockNew -instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusNotifyBlockNew -instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusNotifyBlockNew -instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusNotifyBlockNew -instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusNotifyPeerMessage -instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusNotifyPeerMessage -instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusNotifyPeerMessage -instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusNotifyPeerMessage -instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusNotifyPeerMessage -instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusNotifyPeerDisconnected -instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusNotifyPeerDisconnected -instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusNotifyPeerDisconnected -instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusNotifyPeerDisconnected -instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusNotifyPeerDisconnected -instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusNotifyPeerConnected -instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusNotifyPeerConnected -instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusNotifyPeerConnected -instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusNotifyPeerConnected -instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusNotifyPeerConnected -instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusRegisterResponse -instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusRegisterResponse -instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusRegisterResponse -instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusRegisterResponse -instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusRegisterResponse -instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusRegisterResponse_Status -instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusRegisterResponse_Status -instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusRegisterResponse_Status -instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusRegisterResponse_Status -instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusRegisterRequest -instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusRegisterRequest -instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusRegisterRequest -instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusRegisterRequest -instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusRegisterRequest -instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusRegisterRequest_Protocol -instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusRegisterRequest_Protocol -instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusRegisterRequest_Protocol -instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusRegisterRequest_Protocol -instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusRegisterRequest_Protocol -instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusStateEntry -instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusStateEntry -instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusStateEntry -instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusStateEntry -instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusStateEntry -instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusSettingsEntry -instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusSettingsEntry -instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusSettingsEntry -instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusSettingsEntry -instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusSettingsEntry -instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusPeerInfo -instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusPeerInfo -instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusPeerInfo -instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusPeerInfo -instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusPeerInfo -instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusBlock -instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusBlock -instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusBlock -instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusBlock -instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusBlock -instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusPeerMessage -instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusPeerMessage -instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusPeerMessage -instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusPeerMessage -instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusPeerMessage instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusPeerMessageHeader instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusPeerMessageHeader instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusPeerMessageHeader instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusPeerMessageHeader instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusPeerMessageHeader +instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusPeerMessage +instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusPeerMessage +instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusPeerMessage +instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusPeerMessage +instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusPeerMessage +instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusBlock +instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusBlock +instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusBlock +instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusBlock +instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusBlock +instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusPeerInfo +instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusPeerInfo +instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusPeerInfo +instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusPeerInfo +instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusPeerInfo +instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusSettingsEntry +instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusSettingsEntry +instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusSettingsEntry +instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusSettingsEntry +instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusSettingsEntry +instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusStateEntry +instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusStateEntry +instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusStateEntry +instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusStateEntry +instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusStateEntry +instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusRegisterRequest_Protocol +instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusRegisterRequest_Protocol +instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusRegisterRequest_Protocol +instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusRegisterRequest_Protocol +instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusRegisterRequest_Protocol +instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusRegisterRequest +instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusRegisterRequest +instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusRegisterRequest +instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusRegisterRequest +instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusRegisterRequest +instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusRegisterResponse_Status +instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusRegisterResponse_Status +instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusRegisterResponse_Status +instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusRegisterResponse_Status +instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusRegisterResponse +instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusRegisterResponse +instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusRegisterResponse +instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusRegisterResponse +instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusRegisterResponse +instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusNotifyPeerConnected +instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusNotifyPeerConnected +instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusNotifyPeerConnected +instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusNotifyPeerConnected +instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusNotifyPeerConnected +instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusNotifyPeerDisconnected +instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusNotifyPeerDisconnected +instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusNotifyPeerDisconnected +instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusNotifyPeerDisconnected +instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusNotifyPeerDisconnected +instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusNotifyPeerMessage +instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusNotifyPeerMessage +instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusNotifyPeerMessage +instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusNotifyPeerMessage +instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusNotifyPeerMessage +instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusNotifyBlockNew +instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusNotifyBlockNew +instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusNotifyBlockNew +instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusNotifyBlockNew +instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusNotifyBlockNew +instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusNotifyBlockValid +instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusNotifyBlockValid +instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusNotifyBlockValid +instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusNotifyBlockValid +instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusNotifyBlockValid +instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusNotifyBlockInvalid +instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusNotifyBlockInvalid +instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusNotifyBlockInvalid +instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusNotifyBlockInvalid +instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusNotifyBlockInvalid +instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusNotifyBlockCommit +instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusNotifyBlockCommit +instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusNotifyBlockCommit +instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusNotifyBlockCommit +instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusNotifyBlockCommit +instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusNotifyEngineActivated +instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusNotifyEngineActivated +instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusNotifyEngineActivated +instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusNotifyEngineActivated +instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusNotifyEngineActivated +instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusNotifyEngineDeactivated +instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusNotifyEngineDeactivated +instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusNotifyEngineDeactivated +instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusNotifyEngineDeactivated +instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusNotifyEngineDeactivated +instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusNotifyAck +instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusNotifyAck +instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusNotifyAck +instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusNotifyAck +instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusNotifyAck +instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusSendToRequest +instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusSendToRequest +instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusSendToRequest +instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusSendToRequest +instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusSendToRequest +instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusSendToResponse_Status +instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusSendToResponse_Status +instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusSendToResponse_Status +instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusSendToResponse_Status +instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusSendToResponse +instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusSendToResponse +instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusSendToResponse +instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusSendToResponse +instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusSendToResponse +instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusBroadcastRequest +instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusBroadcastRequest +instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusBroadcastRequest +instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusBroadcastRequest +instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusBroadcastRequest +instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusBroadcastResponse_Status +instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusBroadcastResponse_Status +instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusBroadcastResponse_Status +instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusBroadcastResponse_Status +instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusBroadcastResponse +instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusBroadcastResponse +instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusBroadcastResponse +instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusBroadcastResponse +instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusBroadcastResponse +instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusInitializeBlockRequest +instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusInitializeBlockRequest +instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusInitializeBlockRequest +instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusInitializeBlockRequest +instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusInitializeBlockRequest +instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusInitializeBlockResponse_Status +instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusInitializeBlockResponse_Status +instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusInitializeBlockResponse_Status +instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusInitializeBlockResponse_Status +instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusInitializeBlockResponse +instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusInitializeBlockResponse +instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusInitializeBlockResponse +instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusInitializeBlockResponse +instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusInitializeBlockResponse +instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusSummarizeBlockRequest +instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusSummarizeBlockRequest +instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusSummarizeBlockRequest +instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusSummarizeBlockRequest +instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusSummarizeBlockRequest +instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusSummarizeBlockResponse_Status +instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusSummarizeBlockResponse_Status +instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusSummarizeBlockResponse_Status +instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusSummarizeBlockResponse_Status +instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusSummarizeBlockResponse +instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusSummarizeBlockResponse +instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusSummarizeBlockResponse +instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusSummarizeBlockResponse +instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusSummarizeBlockResponse +instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusFinalizeBlockRequest +instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusFinalizeBlockRequest +instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusFinalizeBlockRequest +instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusFinalizeBlockRequest +instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusFinalizeBlockRequest +instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusFinalizeBlockResponse_Status +instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusFinalizeBlockResponse_Status +instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusFinalizeBlockResponse_Status +instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusFinalizeBlockResponse_Status +instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusFinalizeBlockResponse +instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusFinalizeBlockResponse +instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusFinalizeBlockResponse +instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusFinalizeBlockResponse +instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusFinalizeBlockResponse +instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusCancelBlockRequest +instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusCancelBlockRequest +instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusCancelBlockRequest +instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusCancelBlockRequest +instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusCancelBlockRequest +instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusCancelBlockResponse_Status +instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusCancelBlockResponse_Status +instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusCancelBlockResponse_Status +instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusCancelBlockResponse_Status +instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusCancelBlockResponse +instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusCancelBlockResponse +instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusCancelBlockResponse +instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusCancelBlockResponse +instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusCancelBlockResponse +instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusCheckBlocksRequest +instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusCheckBlocksRequest +instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusCheckBlocksRequest +instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusCheckBlocksRequest +instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusCheckBlocksRequest +instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusCheckBlocksResponse_Status +instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusCheckBlocksResponse_Status +instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusCheckBlocksResponse_Status +instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusCheckBlocksResponse_Status +instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusCheckBlocksResponse +instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusCheckBlocksResponse +instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusCheckBlocksResponse +instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusCheckBlocksResponse +instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusCheckBlocksResponse +instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusCommitBlockRequest +instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusCommitBlockRequest +instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusCommitBlockRequest +instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusCommitBlockRequest +instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusCommitBlockRequest +instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusCommitBlockResponse_Status +instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusCommitBlockResponse_Status +instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusCommitBlockResponse_Status +instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusCommitBlockResponse_Status +instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusCommitBlockResponse +instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusCommitBlockResponse +instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusCommitBlockResponse +instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusCommitBlockResponse +instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusCommitBlockResponse +instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusIgnoreBlockRequest +instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusIgnoreBlockRequest +instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusIgnoreBlockRequest +instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusIgnoreBlockRequest +instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusIgnoreBlockRequest +instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusIgnoreBlockResponse_Status +instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusIgnoreBlockResponse_Status +instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusIgnoreBlockResponse_Status +instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusIgnoreBlockResponse_Status +instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusIgnoreBlockResponse +instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusIgnoreBlockResponse +instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusIgnoreBlockResponse +instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusIgnoreBlockResponse +instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusIgnoreBlockResponse +instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusFailBlockRequest +instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusFailBlockRequest +instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusFailBlockRequest +instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusFailBlockRequest +instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusFailBlockRequest +instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusFailBlockResponse_Status +instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusFailBlockResponse_Status +instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusFailBlockResponse_Status +instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusFailBlockResponse_Status +instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusFailBlockResponse +instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusFailBlockResponse +instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusFailBlockResponse +instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusFailBlockResponse +instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusFailBlockResponse +instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusBlocksGetRequest +instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusBlocksGetRequest +instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusBlocksGetRequest +instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusBlocksGetRequest +instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusBlocksGetRequest +instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusBlocksGetResponse_Status +instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusBlocksGetResponse_Status +instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusBlocksGetResponse_Status +instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusBlocksGetResponse_Status +instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusBlocksGetResponse +instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusBlocksGetResponse +instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusBlocksGetResponse +instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusBlocksGetResponse +instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusBlocksGetResponse +instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusChainHeadGetRequest +instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusChainHeadGetRequest +instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusChainHeadGetRequest +instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusChainHeadGetRequest +instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusChainHeadGetRequest +instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusChainHeadGetResponse_Status +instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusChainHeadGetResponse_Status +instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusChainHeadGetResponse_Status +instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusChainHeadGetResponse_Status +instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusChainHeadGetResponse +instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusChainHeadGetResponse +instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusChainHeadGetResponse +instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusChainHeadGetResponse +instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusChainHeadGetResponse +instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusSettingsGetRequest +instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusSettingsGetRequest +instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusSettingsGetRequest +instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusSettingsGetRequest +instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusSettingsGetRequest +instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusSettingsGetResponse_Status +instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusSettingsGetResponse_Status +instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusSettingsGetResponse_Status +instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusSettingsGetResponse_Status +instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusSettingsGetResponse +instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusSettingsGetResponse +instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusSettingsGetResponse +instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusSettingsGetResponse +instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusSettingsGetResponse +instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusStateGetRequest +instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusStateGetRequest +instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusStateGetRequest +instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusStateGetRequest +instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusStateGetRequest +instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusStateGetResponse_Status +instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusStateGetResponse_Status +instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusStateGetResponse_Status +instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusStateGetResponse_Status +instance Control.DeepSeq.NFData Data.Sawtooth.Consensus.ConsensusStateGetResponse +instance GHC.Generics.Generic Data.Sawtooth.Consensus.ConsensusStateGetResponse +instance GHC.Classes.Ord Data.Sawtooth.Consensus.ConsensusStateGetResponse +instance GHC.Classes.Eq Data.Sawtooth.Consensus.ConsensusStateGetResponse +instance GHC.Show.Show Data.Sawtooth.Consensus.ConsensusStateGetResponse instance Proto3.Suite.Class.Named Data.Sawtooth.Consensus.ConsensusStateGetResponse instance Proto3.Suite.Class.HasDefault Data.Sawtooth.Consensus.ConsensusStateGetResponse instance Proto3.Suite.Class.Message Data.Sawtooth.Consensus.ConsensusStateGetResponse @@ -1758,35 +1758,35 @@ data EventSubscription EventSubscription :: Text -> Vector EventFilter -> EventSubscription [eventSubscriptionEventType] :: EventSubscription -> Text [eventSubscriptionFilters] :: EventSubscription -> Vector EventFilter -instance Control.DeepSeq.NFData Data.Sawtooth.Events.EventSubscription -instance GHC.Generics.Generic Data.Sawtooth.Events.EventSubscription -instance GHC.Classes.Ord Data.Sawtooth.Events.EventSubscription -instance GHC.Classes.Eq Data.Sawtooth.Events.EventSubscription -instance GHC.Show.Show Data.Sawtooth.Events.EventSubscription -instance Control.DeepSeq.NFData Data.Sawtooth.Events.EventFilter -instance GHC.Generics.Generic Data.Sawtooth.Events.EventFilter -instance GHC.Classes.Ord Data.Sawtooth.Events.EventFilter -instance GHC.Classes.Eq Data.Sawtooth.Events.EventFilter -instance GHC.Show.Show Data.Sawtooth.Events.EventFilter -instance Control.DeepSeq.NFData Data.Sawtooth.Events.EventFilter_FilterType -instance GHC.Generics.Generic Data.Sawtooth.Events.EventFilter_FilterType -instance GHC.Classes.Eq Data.Sawtooth.Events.EventFilter_FilterType -instance GHC.Show.Show Data.Sawtooth.Events.EventFilter_FilterType -instance Control.DeepSeq.NFData Data.Sawtooth.Events.EventList -instance GHC.Generics.Generic Data.Sawtooth.Events.EventList -instance GHC.Classes.Ord Data.Sawtooth.Events.EventList -instance GHC.Classes.Eq Data.Sawtooth.Events.EventList -instance GHC.Show.Show Data.Sawtooth.Events.EventList -instance Control.DeepSeq.NFData Data.Sawtooth.Events.Event -instance GHC.Generics.Generic Data.Sawtooth.Events.Event -instance GHC.Classes.Ord Data.Sawtooth.Events.Event -instance GHC.Classes.Eq Data.Sawtooth.Events.Event -instance GHC.Show.Show Data.Sawtooth.Events.Event instance Control.DeepSeq.NFData Data.Sawtooth.Events.Event_Attribute instance GHC.Generics.Generic Data.Sawtooth.Events.Event_Attribute instance GHC.Classes.Ord Data.Sawtooth.Events.Event_Attribute instance GHC.Classes.Eq Data.Sawtooth.Events.Event_Attribute instance GHC.Show.Show Data.Sawtooth.Events.Event_Attribute +instance Control.DeepSeq.NFData Data.Sawtooth.Events.Event +instance GHC.Generics.Generic Data.Sawtooth.Events.Event +instance GHC.Classes.Ord Data.Sawtooth.Events.Event +instance GHC.Classes.Eq Data.Sawtooth.Events.Event +instance GHC.Show.Show Data.Sawtooth.Events.Event +instance Control.DeepSeq.NFData Data.Sawtooth.Events.EventList +instance GHC.Generics.Generic Data.Sawtooth.Events.EventList +instance GHC.Classes.Ord Data.Sawtooth.Events.EventList +instance GHC.Classes.Eq Data.Sawtooth.Events.EventList +instance GHC.Show.Show Data.Sawtooth.Events.EventList +instance Control.DeepSeq.NFData Data.Sawtooth.Events.EventFilter_FilterType +instance GHC.Generics.Generic Data.Sawtooth.Events.EventFilter_FilterType +instance GHC.Classes.Eq Data.Sawtooth.Events.EventFilter_FilterType +instance GHC.Show.Show Data.Sawtooth.Events.EventFilter_FilterType +instance Control.DeepSeq.NFData Data.Sawtooth.Events.EventFilter +instance GHC.Generics.Generic Data.Sawtooth.Events.EventFilter +instance GHC.Classes.Ord Data.Sawtooth.Events.EventFilter +instance GHC.Classes.Eq Data.Sawtooth.Events.EventFilter +instance GHC.Show.Show Data.Sawtooth.Events.EventFilter +instance Control.DeepSeq.NFData Data.Sawtooth.Events.EventSubscription +instance GHC.Generics.Generic Data.Sawtooth.Events.EventSubscription +instance GHC.Classes.Ord Data.Sawtooth.Events.EventSubscription +instance GHC.Classes.Eq Data.Sawtooth.Events.EventSubscription +instance GHC.Show.Show Data.Sawtooth.Events.EventSubscription instance Proto3.Suite.Class.Named Data.Sawtooth.Events.EventSubscription instance Proto3.Suite.Class.HasDefault Data.Sawtooth.Events.EventSubscription instance Proto3.Suite.Class.Message Data.Sawtooth.Events.EventSubscription @@ -1877,48 +1877,48 @@ ClientEventsGetResponse_StatusOK :: ClientEventsGetResponse_Status ClientEventsGetResponse_StatusINTERNAL_ERROR :: ClientEventsGetResponse_Status ClientEventsGetResponse_StatusINVALID_FILTER :: ClientEventsGetResponse_Status ClientEventsGetResponse_StatusUNKNOWN_BLOCK :: ClientEventsGetResponse_Status -instance Control.DeepSeq.NFData Data.Sawtooth.ClientEvent.ClientEventsGetResponse -instance GHC.Generics.Generic Data.Sawtooth.ClientEvent.ClientEventsGetResponse -instance GHC.Classes.Ord Data.Sawtooth.ClientEvent.ClientEventsGetResponse -instance GHC.Classes.Eq Data.Sawtooth.ClientEvent.ClientEventsGetResponse -instance GHC.Show.Show Data.Sawtooth.ClientEvent.ClientEventsGetResponse -instance Control.DeepSeq.NFData Data.Sawtooth.ClientEvent.ClientEventsGetResponse_Status -instance GHC.Generics.Generic Data.Sawtooth.ClientEvent.ClientEventsGetResponse_Status -instance GHC.Classes.Eq Data.Sawtooth.ClientEvent.ClientEventsGetResponse_Status -instance GHC.Show.Show Data.Sawtooth.ClientEvent.ClientEventsGetResponse_Status -instance Control.DeepSeq.NFData Data.Sawtooth.ClientEvent.ClientEventsGetRequest -instance GHC.Generics.Generic Data.Sawtooth.ClientEvent.ClientEventsGetRequest -instance GHC.Classes.Ord Data.Sawtooth.ClientEvent.ClientEventsGetRequest -instance GHC.Classes.Eq Data.Sawtooth.ClientEvent.ClientEventsGetRequest -instance GHC.Show.Show Data.Sawtooth.ClientEvent.ClientEventsGetRequest -instance Control.DeepSeq.NFData Data.Sawtooth.ClientEvent.ClientEventsUnsubscribeResponse -instance GHC.Generics.Generic Data.Sawtooth.ClientEvent.ClientEventsUnsubscribeResponse -instance GHC.Classes.Ord Data.Sawtooth.ClientEvent.ClientEventsUnsubscribeResponse -instance GHC.Classes.Eq Data.Sawtooth.ClientEvent.ClientEventsUnsubscribeResponse -instance GHC.Show.Show Data.Sawtooth.ClientEvent.ClientEventsUnsubscribeResponse -instance Control.DeepSeq.NFData Data.Sawtooth.ClientEvent.ClientEventsUnsubscribeResponse_Status -instance GHC.Generics.Generic Data.Sawtooth.ClientEvent.ClientEventsUnsubscribeResponse_Status -instance GHC.Classes.Eq Data.Sawtooth.ClientEvent.ClientEventsUnsubscribeResponse_Status -instance GHC.Show.Show Data.Sawtooth.ClientEvent.ClientEventsUnsubscribeResponse_Status -instance Control.DeepSeq.NFData Data.Sawtooth.ClientEvent.ClientEventsUnsubscribeRequest -instance GHC.Generics.Generic Data.Sawtooth.ClientEvent.ClientEventsUnsubscribeRequest -instance GHC.Classes.Ord Data.Sawtooth.ClientEvent.ClientEventsUnsubscribeRequest -instance GHC.Classes.Eq Data.Sawtooth.ClientEvent.ClientEventsUnsubscribeRequest -instance GHC.Show.Show Data.Sawtooth.ClientEvent.ClientEventsUnsubscribeRequest -instance Control.DeepSeq.NFData Data.Sawtooth.ClientEvent.ClientEventsSubscribeResponse -instance GHC.Generics.Generic Data.Sawtooth.ClientEvent.ClientEventsSubscribeResponse -instance GHC.Classes.Ord Data.Sawtooth.ClientEvent.ClientEventsSubscribeResponse -instance GHC.Classes.Eq Data.Sawtooth.ClientEvent.ClientEventsSubscribeResponse -instance GHC.Show.Show Data.Sawtooth.ClientEvent.ClientEventsSubscribeResponse -instance Control.DeepSeq.NFData Data.Sawtooth.ClientEvent.ClientEventsSubscribeResponse_Status -instance GHC.Generics.Generic Data.Sawtooth.ClientEvent.ClientEventsSubscribeResponse_Status -instance GHC.Classes.Eq Data.Sawtooth.ClientEvent.ClientEventsSubscribeResponse_Status -instance GHC.Show.Show Data.Sawtooth.ClientEvent.ClientEventsSubscribeResponse_Status instance Control.DeepSeq.NFData Data.Sawtooth.ClientEvent.ClientEventsSubscribeRequest instance GHC.Generics.Generic Data.Sawtooth.ClientEvent.ClientEventsSubscribeRequest instance GHC.Classes.Ord Data.Sawtooth.ClientEvent.ClientEventsSubscribeRequest instance GHC.Classes.Eq Data.Sawtooth.ClientEvent.ClientEventsSubscribeRequest instance GHC.Show.Show Data.Sawtooth.ClientEvent.ClientEventsSubscribeRequest +instance Control.DeepSeq.NFData Data.Sawtooth.ClientEvent.ClientEventsSubscribeResponse_Status +instance GHC.Generics.Generic Data.Sawtooth.ClientEvent.ClientEventsSubscribeResponse_Status +instance GHC.Classes.Eq Data.Sawtooth.ClientEvent.ClientEventsSubscribeResponse_Status +instance GHC.Show.Show Data.Sawtooth.ClientEvent.ClientEventsSubscribeResponse_Status +instance Control.DeepSeq.NFData Data.Sawtooth.ClientEvent.ClientEventsSubscribeResponse +instance GHC.Generics.Generic Data.Sawtooth.ClientEvent.ClientEventsSubscribeResponse +instance GHC.Classes.Ord Data.Sawtooth.ClientEvent.ClientEventsSubscribeResponse +instance GHC.Classes.Eq Data.Sawtooth.ClientEvent.ClientEventsSubscribeResponse +instance GHC.Show.Show Data.Sawtooth.ClientEvent.ClientEventsSubscribeResponse +instance Control.DeepSeq.NFData Data.Sawtooth.ClientEvent.ClientEventsUnsubscribeRequest +instance GHC.Generics.Generic Data.Sawtooth.ClientEvent.ClientEventsUnsubscribeRequest +instance GHC.Classes.Ord Data.Sawtooth.ClientEvent.ClientEventsUnsubscribeRequest +instance GHC.Classes.Eq Data.Sawtooth.ClientEvent.ClientEventsUnsubscribeRequest +instance GHC.Show.Show Data.Sawtooth.ClientEvent.ClientEventsUnsubscribeRequest +instance Control.DeepSeq.NFData Data.Sawtooth.ClientEvent.ClientEventsUnsubscribeResponse_Status +instance GHC.Generics.Generic Data.Sawtooth.ClientEvent.ClientEventsUnsubscribeResponse_Status +instance GHC.Classes.Eq Data.Sawtooth.ClientEvent.ClientEventsUnsubscribeResponse_Status +instance GHC.Show.Show Data.Sawtooth.ClientEvent.ClientEventsUnsubscribeResponse_Status +instance Control.DeepSeq.NFData Data.Sawtooth.ClientEvent.ClientEventsUnsubscribeResponse +instance GHC.Generics.Generic Data.Sawtooth.ClientEvent.ClientEventsUnsubscribeResponse +instance GHC.Classes.Ord Data.Sawtooth.ClientEvent.ClientEventsUnsubscribeResponse +instance GHC.Classes.Eq Data.Sawtooth.ClientEvent.ClientEventsUnsubscribeResponse +instance GHC.Show.Show Data.Sawtooth.ClientEvent.ClientEventsUnsubscribeResponse +instance Control.DeepSeq.NFData Data.Sawtooth.ClientEvent.ClientEventsGetRequest +instance GHC.Generics.Generic Data.Sawtooth.ClientEvent.ClientEventsGetRequest +instance GHC.Classes.Ord Data.Sawtooth.ClientEvent.ClientEventsGetRequest +instance GHC.Classes.Eq Data.Sawtooth.ClientEvent.ClientEventsGetRequest +instance GHC.Show.Show Data.Sawtooth.ClientEvent.ClientEventsGetRequest +instance Control.DeepSeq.NFData Data.Sawtooth.ClientEvent.ClientEventsGetResponse_Status +instance GHC.Generics.Generic Data.Sawtooth.ClientEvent.ClientEventsGetResponse_Status +instance GHC.Classes.Eq Data.Sawtooth.ClientEvent.ClientEventsGetResponse_Status +instance GHC.Show.Show Data.Sawtooth.ClientEvent.ClientEventsGetResponse_Status +instance Control.DeepSeq.NFData Data.Sawtooth.ClientEvent.ClientEventsGetResponse +instance GHC.Generics.Generic Data.Sawtooth.ClientEvent.ClientEventsGetResponse +instance GHC.Classes.Ord Data.Sawtooth.ClientEvent.ClientEventsGetResponse +instance GHC.Classes.Eq Data.Sawtooth.ClientEvent.ClientEventsGetResponse +instance GHC.Show.Show Data.Sawtooth.ClientEvent.ClientEventsGetResponse instance Proto3.Suite.Class.Named Data.Sawtooth.ClientEvent.ClientEventsGetResponse instance Proto3.Suite.Class.HasDefault Data.Sawtooth.ClientEvent.ClientEventsGetResponse instance Proto3.Suite.Class.Message Data.Sawtooth.ClientEvent.ClientEventsGetResponse @@ -2023,35 +2023,35 @@ Role :: Text -> Text -> Role newtype RoleList RoleList :: Vector Role -> RoleList [roleListRoles] :: RoleList -> Vector Role -instance Control.DeepSeq.NFData Data.Sawtooth.Identity.RoleList -instance GHC.Generics.Generic Data.Sawtooth.Identity.RoleList -instance GHC.Classes.Ord Data.Sawtooth.Identity.RoleList -instance GHC.Classes.Eq Data.Sawtooth.Identity.RoleList -instance GHC.Show.Show Data.Sawtooth.Identity.RoleList -instance Control.DeepSeq.NFData Data.Sawtooth.Identity.Role -instance GHC.Generics.Generic Data.Sawtooth.Identity.Role -instance GHC.Classes.Ord Data.Sawtooth.Identity.Role -instance GHC.Classes.Eq Data.Sawtooth.Identity.Role -instance GHC.Show.Show Data.Sawtooth.Identity.Role -instance Control.DeepSeq.NFData Data.Sawtooth.Identity.PolicyList -instance GHC.Generics.Generic Data.Sawtooth.Identity.PolicyList -instance GHC.Classes.Ord Data.Sawtooth.Identity.PolicyList -instance GHC.Classes.Eq Data.Sawtooth.Identity.PolicyList -instance GHC.Show.Show Data.Sawtooth.Identity.PolicyList -instance Control.DeepSeq.NFData Data.Sawtooth.Identity.Policy -instance GHC.Generics.Generic Data.Sawtooth.Identity.Policy -instance GHC.Classes.Ord Data.Sawtooth.Identity.Policy -instance GHC.Classes.Eq Data.Sawtooth.Identity.Policy -instance GHC.Show.Show Data.Sawtooth.Identity.Policy +instance Control.DeepSeq.NFData Data.Sawtooth.Identity.Policy_EntryType +instance GHC.Generics.Generic Data.Sawtooth.Identity.Policy_EntryType +instance GHC.Classes.Eq Data.Sawtooth.Identity.Policy_EntryType +instance GHC.Show.Show Data.Sawtooth.Identity.Policy_EntryType instance Control.DeepSeq.NFData Data.Sawtooth.Identity.Policy_Entry instance GHC.Generics.Generic Data.Sawtooth.Identity.Policy_Entry instance GHC.Classes.Ord Data.Sawtooth.Identity.Policy_Entry instance GHC.Classes.Eq Data.Sawtooth.Identity.Policy_Entry instance GHC.Show.Show Data.Sawtooth.Identity.Policy_Entry -instance Control.DeepSeq.NFData Data.Sawtooth.Identity.Policy_EntryType -instance GHC.Generics.Generic Data.Sawtooth.Identity.Policy_EntryType -instance GHC.Classes.Eq Data.Sawtooth.Identity.Policy_EntryType -instance GHC.Show.Show Data.Sawtooth.Identity.Policy_EntryType +instance Control.DeepSeq.NFData Data.Sawtooth.Identity.Policy +instance GHC.Generics.Generic Data.Sawtooth.Identity.Policy +instance GHC.Classes.Ord Data.Sawtooth.Identity.Policy +instance GHC.Classes.Eq Data.Sawtooth.Identity.Policy +instance GHC.Show.Show Data.Sawtooth.Identity.Policy +instance Control.DeepSeq.NFData Data.Sawtooth.Identity.PolicyList +instance GHC.Generics.Generic Data.Sawtooth.Identity.PolicyList +instance GHC.Classes.Ord Data.Sawtooth.Identity.PolicyList +instance GHC.Classes.Eq Data.Sawtooth.Identity.PolicyList +instance GHC.Show.Show Data.Sawtooth.Identity.PolicyList +instance Control.DeepSeq.NFData Data.Sawtooth.Identity.Role +instance GHC.Generics.Generic Data.Sawtooth.Identity.Role +instance GHC.Classes.Ord Data.Sawtooth.Identity.Role +instance GHC.Classes.Eq Data.Sawtooth.Identity.Role +instance GHC.Show.Show Data.Sawtooth.Identity.Role +instance Control.DeepSeq.NFData Data.Sawtooth.Identity.RoleList +instance GHC.Generics.Generic Data.Sawtooth.Identity.RoleList +instance GHC.Classes.Ord Data.Sawtooth.Identity.RoleList +instance GHC.Classes.Eq Data.Sawtooth.Identity.RoleList +instance GHC.Show.Show Data.Sawtooth.Identity.RoleList instance Proto3.Suite.Class.Named Data.Sawtooth.Identity.RoleList instance Proto3.Suite.Class.HasDefault Data.Sawtooth.Identity.RoleList instance Proto3.Suite.Class.Message Data.Sawtooth.Identity.RoleList @@ -2115,16 +2115,16 @@ data ChangeLogEntry_Successor ChangeLogEntry_Successor :: ByteString -> Vector ByteString -> ChangeLogEntry_Successor [changeLogEntry_SuccessorSuccessor] :: ChangeLogEntry_Successor -> ByteString [changeLogEntry_SuccessorDeletions] :: ChangeLogEntry_Successor -> Vector ByteString -instance Control.DeepSeq.NFData Data.Sawtooth.Merkle.ChangeLogEntry -instance GHC.Generics.Generic Data.Sawtooth.Merkle.ChangeLogEntry -instance GHC.Classes.Ord Data.Sawtooth.Merkle.ChangeLogEntry -instance GHC.Classes.Eq Data.Sawtooth.Merkle.ChangeLogEntry -instance GHC.Show.Show Data.Sawtooth.Merkle.ChangeLogEntry instance Control.DeepSeq.NFData Data.Sawtooth.Merkle.ChangeLogEntry_Successor instance GHC.Generics.Generic Data.Sawtooth.Merkle.ChangeLogEntry_Successor instance GHC.Classes.Ord Data.Sawtooth.Merkle.ChangeLogEntry_Successor instance GHC.Classes.Eq Data.Sawtooth.Merkle.ChangeLogEntry_Successor instance GHC.Show.Show Data.Sawtooth.Merkle.ChangeLogEntry_Successor +instance Control.DeepSeq.NFData Data.Sawtooth.Merkle.ChangeLogEntry +instance GHC.Generics.Generic Data.Sawtooth.Merkle.ChangeLogEntry +instance GHC.Classes.Ord Data.Sawtooth.Merkle.ChangeLogEntry +instance GHC.Classes.Eq Data.Sawtooth.Merkle.ChangeLogEntry +instance GHC.Show.Show Data.Sawtooth.Merkle.ChangeLogEntry instance Proto3.Suite.Class.Named Data.Sawtooth.Merkle.ChangeLogEntry instance Proto3.Suite.Class.HasDefault Data.Sawtooth.Merkle.ChangeLogEntry instance Proto3.Suite.Class.Message Data.Sawtooth.Merkle.ChangeLogEntry @@ -2200,84 +2200,84 @@ GossipBatchByTransactionIdRequest :: Vector Text -> Text -> Word32 -> GossipBatc [gossipBatchByTransactionIdRequestIds] :: GossipBatchByTransactionIdRequest -> Vector Text [gossipBatchByTransactionIdRequestNonce] :: GossipBatchByTransactionIdRequest -> Text [gossipBatchByTransactionIdRequestTimeToLive] :: GossipBatchByTransactionIdRequest -> Word32 -instance Control.DeepSeq.NFData Data.Sawtooth.Network.GossipBatchByTransactionIdRequest -instance GHC.Generics.Generic Data.Sawtooth.Network.GossipBatchByTransactionIdRequest -instance GHC.Classes.Ord Data.Sawtooth.Network.GossipBatchByTransactionIdRequest -instance GHC.Classes.Eq Data.Sawtooth.Network.GossipBatchByTransactionIdRequest -instance GHC.Show.Show Data.Sawtooth.Network.GossipBatchByTransactionIdRequest -instance Control.DeepSeq.NFData Data.Sawtooth.Network.GossipBatchByBatchIdRequest -instance GHC.Generics.Generic Data.Sawtooth.Network.GossipBatchByBatchIdRequest -instance GHC.Classes.Ord Data.Sawtooth.Network.GossipBatchByBatchIdRequest -instance GHC.Classes.Eq Data.Sawtooth.Network.GossipBatchByBatchIdRequest -instance GHC.Show.Show Data.Sawtooth.Network.GossipBatchByBatchIdRequest -instance Control.DeepSeq.NFData Data.Sawtooth.Network.GossipBatchResponse -instance GHC.Generics.Generic Data.Sawtooth.Network.GossipBatchResponse -instance GHC.Classes.Ord Data.Sawtooth.Network.GossipBatchResponse -instance GHC.Classes.Eq Data.Sawtooth.Network.GossipBatchResponse -instance GHC.Show.Show Data.Sawtooth.Network.GossipBatchResponse -instance Control.DeepSeq.NFData Data.Sawtooth.Network.GossipBlockResponse -instance GHC.Generics.Generic Data.Sawtooth.Network.GossipBlockResponse -instance GHC.Classes.Ord Data.Sawtooth.Network.GossipBlockResponse -instance GHC.Classes.Eq Data.Sawtooth.Network.GossipBlockResponse -instance GHC.Show.Show Data.Sawtooth.Network.GossipBlockResponse -instance Control.DeepSeq.NFData Data.Sawtooth.Network.GossipBlockRequest -instance GHC.Generics.Generic Data.Sawtooth.Network.GossipBlockRequest -instance GHC.Classes.Ord Data.Sawtooth.Network.GossipBlockRequest -instance GHC.Classes.Eq Data.Sawtooth.Network.GossipBlockRequest -instance GHC.Show.Show Data.Sawtooth.Network.GossipBlockRequest -instance Control.DeepSeq.NFData Data.Sawtooth.Network.NetworkAcknowledgement -instance GHC.Generics.Generic Data.Sawtooth.Network.NetworkAcknowledgement -instance GHC.Classes.Ord Data.Sawtooth.Network.NetworkAcknowledgement -instance GHC.Classes.Eq Data.Sawtooth.Network.NetworkAcknowledgement -instance GHC.Show.Show Data.Sawtooth.Network.NetworkAcknowledgement -instance Control.DeepSeq.NFData Data.Sawtooth.Network.NetworkAcknowledgement_Status -instance GHC.Generics.Generic Data.Sawtooth.Network.NetworkAcknowledgement_Status -instance GHC.Classes.Eq Data.Sawtooth.Network.NetworkAcknowledgement_Status -instance GHC.Show.Show Data.Sawtooth.Network.NetworkAcknowledgement_Status -instance Control.DeepSeq.NFData Data.Sawtooth.Network.GossipMessage -instance GHC.Generics.Generic Data.Sawtooth.Network.GossipMessage -instance GHC.Classes.Ord Data.Sawtooth.Network.GossipMessage -instance GHC.Classes.Eq Data.Sawtooth.Network.GossipMessage -instance GHC.Show.Show Data.Sawtooth.Network.GossipMessage -instance Control.DeepSeq.NFData Data.Sawtooth.Network.GossipMessage_ContentType -instance GHC.Generics.Generic Data.Sawtooth.Network.GossipMessage_ContentType -instance GHC.Classes.Eq Data.Sawtooth.Network.GossipMessage_ContentType -instance GHC.Show.Show Data.Sawtooth.Network.GossipMessage_ContentType -instance Control.DeepSeq.NFData Data.Sawtooth.Network.PingResponse -instance GHC.Generics.Generic Data.Sawtooth.Network.PingResponse -instance GHC.Classes.Ord Data.Sawtooth.Network.PingResponse -instance GHC.Classes.Eq Data.Sawtooth.Network.PingResponse -instance GHC.Show.Show Data.Sawtooth.Network.PingResponse -instance Control.DeepSeq.NFData Data.Sawtooth.Network.PingRequest -instance GHC.Generics.Generic Data.Sawtooth.Network.PingRequest -instance GHC.Classes.Ord Data.Sawtooth.Network.PingRequest -instance GHC.Classes.Eq Data.Sawtooth.Network.PingRequest -instance GHC.Show.Show Data.Sawtooth.Network.PingRequest -instance Control.DeepSeq.NFData Data.Sawtooth.Network.GetPeersResponse -instance GHC.Generics.Generic Data.Sawtooth.Network.GetPeersResponse -instance GHC.Classes.Ord Data.Sawtooth.Network.GetPeersResponse -instance GHC.Classes.Eq Data.Sawtooth.Network.GetPeersResponse -instance GHC.Show.Show Data.Sawtooth.Network.GetPeersResponse -instance Control.DeepSeq.NFData Data.Sawtooth.Network.GetPeersRequest -instance GHC.Generics.Generic Data.Sawtooth.Network.GetPeersRequest -instance GHC.Classes.Ord Data.Sawtooth.Network.GetPeersRequest -instance GHC.Classes.Eq Data.Sawtooth.Network.GetPeersRequest -instance GHC.Show.Show Data.Sawtooth.Network.GetPeersRequest -instance Control.DeepSeq.NFData Data.Sawtooth.Network.PeerUnregisterRequest -instance GHC.Generics.Generic Data.Sawtooth.Network.PeerUnregisterRequest -instance GHC.Classes.Ord Data.Sawtooth.Network.PeerUnregisterRequest -instance GHC.Classes.Eq Data.Sawtooth.Network.PeerUnregisterRequest -instance GHC.Show.Show Data.Sawtooth.Network.PeerUnregisterRequest -instance Control.DeepSeq.NFData Data.Sawtooth.Network.PeerRegisterRequest -instance GHC.Generics.Generic Data.Sawtooth.Network.PeerRegisterRequest -instance GHC.Classes.Ord Data.Sawtooth.Network.PeerRegisterRequest -instance GHC.Classes.Eq Data.Sawtooth.Network.PeerRegisterRequest -instance GHC.Show.Show Data.Sawtooth.Network.PeerRegisterRequest instance Control.DeepSeq.NFData Data.Sawtooth.Network.DisconnectMessage instance GHC.Generics.Generic Data.Sawtooth.Network.DisconnectMessage instance GHC.Classes.Ord Data.Sawtooth.Network.DisconnectMessage instance GHC.Classes.Eq Data.Sawtooth.Network.DisconnectMessage instance GHC.Show.Show Data.Sawtooth.Network.DisconnectMessage +instance Control.DeepSeq.NFData Data.Sawtooth.Network.PeerRegisterRequest +instance GHC.Generics.Generic Data.Sawtooth.Network.PeerRegisterRequest +instance GHC.Classes.Ord Data.Sawtooth.Network.PeerRegisterRequest +instance GHC.Classes.Eq Data.Sawtooth.Network.PeerRegisterRequest +instance GHC.Show.Show Data.Sawtooth.Network.PeerRegisterRequest +instance Control.DeepSeq.NFData Data.Sawtooth.Network.PeerUnregisterRequest +instance GHC.Generics.Generic Data.Sawtooth.Network.PeerUnregisterRequest +instance GHC.Classes.Ord Data.Sawtooth.Network.PeerUnregisterRequest +instance GHC.Classes.Eq Data.Sawtooth.Network.PeerUnregisterRequest +instance GHC.Show.Show Data.Sawtooth.Network.PeerUnregisterRequest +instance Control.DeepSeq.NFData Data.Sawtooth.Network.GetPeersRequest +instance GHC.Generics.Generic Data.Sawtooth.Network.GetPeersRequest +instance GHC.Classes.Ord Data.Sawtooth.Network.GetPeersRequest +instance GHC.Classes.Eq Data.Sawtooth.Network.GetPeersRequest +instance GHC.Show.Show Data.Sawtooth.Network.GetPeersRequest +instance Control.DeepSeq.NFData Data.Sawtooth.Network.GetPeersResponse +instance GHC.Generics.Generic Data.Sawtooth.Network.GetPeersResponse +instance GHC.Classes.Ord Data.Sawtooth.Network.GetPeersResponse +instance GHC.Classes.Eq Data.Sawtooth.Network.GetPeersResponse +instance GHC.Show.Show Data.Sawtooth.Network.GetPeersResponse +instance Control.DeepSeq.NFData Data.Sawtooth.Network.PingRequest +instance GHC.Generics.Generic Data.Sawtooth.Network.PingRequest +instance GHC.Classes.Ord Data.Sawtooth.Network.PingRequest +instance GHC.Classes.Eq Data.Sawtooth.Network.PingRequest +instance GHC.Show.Show Data.Sawtooth.Network.PingRequest +instance Control.DeepSeq.NFData Data.Sawtooth.Network.PingResponse +instance GHC.Generics.Generic Data.Sawtooth.Network.PingResponse +instance GHC.Classes.Ord Data.Sawtooth.Network.PingResponse +instance GHC.Classes.Eq Data.Sawtooth.Network.PingResponse +instance GHC.Show.Show Data.Sawtooth.Network.PingResponse +instance Control.DeepSeq.NFData Data.Sawtooth.Network.GossipMessage_ContentType +instance GHC.Generics.Generic Data.Sawtooth.Network.GossipMessage_ContentType +instance GHC.Classes.Eq Data.Sawtooth.Network.GossipMessage_ContentType +instance GHC.Show.Show Data.Sawtooth.Network.GossipMessage_ContentType +instance Control.DeepSeq.NFData Data.Sawtooth.Network.GossipMessage +instance GHC.Generics.Generic Data.Sawtooth.Network.GossipMessage +instance GHC.Classes.Ord Data.Sawtooth.Network.GossipMessage +instance GHC.Classes.Eq Data.Sawtooth.Network.GossipMessage +instance GHC.Show.Show Data.Sawtooth.Network.GossipMessage +instance Control.DeepSeq.NFData Data.Sawtooth.Network.NetworkAcknowledgement_Status +instance GHC.Generics.Generic Data.Sawtooth.Network.NetworkAcknowledgement_Status +instance GHC.Classes.Eq Data.Sawtooth.Network.NetworkAcknowledgement_Status +instance GHC.Show.Show Data.Sawtooth.Network.NetworkAcknowledgement_Status +instance Control.DeepSeq.NFData Data.Sawtooth.Network.NetworkAcknowledgement +instance GHC.Generics.Generic Data.Sawtooth.Network.NetworkAcknowledgement +instance GHC.Classes.Ord Data.Sawtooth.Network.NetworkAcknowledgement +instance GHC.Classes.Eq Data.Sawtooth.Network.NetworkAcknowledgement +instance GHC.Show.Show Data.Sawtooth.Network.NetworkAcknowledgement +instance Control.DeepSeq.NFData Data.Sawtooth.Network.GossipBlockRequest +instance GHC.Generics.Generic Data.Sawtooth.Network.GossipBlockRequest +instance GHC.Classes.Ord Data.Sawtooth.Network.GossipBlockRequest +instance GHC.Classes.Eq Data.Sawtooth.Network.GossipBlockRequest +instance GHC.Show.Show Data.Sawtooth.Network.GossipBlockRequest +instance Control.DeepSeq.NFData Data.Sawtooth.Network.GossipBlockResponse +instance GHC.Generics.Generic Data.Sawtooth.Network.GossipBlockResponse +instance GHC.Classes.Ord Data.Sawtooth.Network.GossipBlockResponse +instance GHC.Classes.Eq Data.Sawtooth.Network.GossipBlockResponse +instance GHC.Show.Show Data.Sawtooth.Network.GossipBlockResponse +instance Control.DeepSeq.NFData Data.Sawtooth.Network.GossipBatchResponse +instance GHC.Generics.Generic Data.Sawtooth.Network.GossipBatchResponse +instance GHC.Classes.Ord Data.Sawtooth.Network.GossipBatchResponse +instance GHC.Classes.Eq Data.Sawtooth.Network.GossipBatchResponse +instance GHC.Show.Show Data.Sawtooth.Network.GossipBatchResponse +instance Control.DeepSeq.NFData Data.Sawtooth.Network.GossipBatchByBatchIdRequest +instance GHC.Generics.Generic Data.Sawtooth.Network.GossipBatchByBatchIdRequest +instance GHC.Classes.Ord Data.Sawtooth.Network.GossipBatchByBatchIdRequest +instance GHC.Classes.Eq Data.Sawtooth.Network.GossipBatchByBatchIdRequest +instance GHC.Show.Show Data.Sawtooth.Network.GossipBatchByBatchIdRequest +instance Control.DeepSeq.NFData Data.Sawtooth.Network.GossipBatchByTransactionIdRequest +instance GHC.Generics.Generic Data.Sawtooth.Network.GossipBatchByTransactionIdRequest +instance GHC.Classes.Ord Data.Sawtooth.Network.GossipBatchByTransactionIdRequest +instance GHC.Classes.Eq Data.Sawtooth.Network.GossipBatchByTransactionIdRequest +instance GHC.Show.Show Data.Sawtooth.Network.GossipBatchByTransactionIdRequest instance Proto3.Suite.Class.Named Data.Sawtooth.Network.GossipBatchByTransactionIdRequest instance Proto3.Suite.Class.HasDefault Data.Sawtooth.Network.GossipBatchByTransactionIdRequest instance Proto3.Suite.Class.Message Data.Sawtooth.Network.GossipBatchByTransactionIdRequest @@ -2421,16 +2421,16 @@ data Setting_Entry Setting_Entry :: Text -> Text -> Setting_Entry [setting_EntryKey] :: Setting_Entry -> Text [setting_EntryValue] :: Setting_Entry -> Text -instance Control.DeepSeq.NFData Data.Sawtooth.Setting.Setting -instance GHC.Generics.Generic Data.Sawtooth.Setting.Setting -instance GHC.Classes.Ord Data.Sawtooth.Setting.Setting -instance GHC.Classes.Eq Data.Sawtooth.Setting.Setting -instance GHC.Show.Show Data.Sawtooth.Setting.Setting instance Control.DeepSeq.NFData Data.Sawtooth.Setting.Setting_Entry instance GHC.Generics.Generic Data.Sawtooth.Setting.Setting_Entry instance GHC.Classes.Ord Data.Sawtooth.Setting.Setting_Entry instance GHC.Classes.Eq Data.Sawtooth.Setting.Setting_Entry instance GHC.Show.Show Data.Sawtooth.Setting.Setting_Entry +instance Control.DeepSeq.NFData Data.Sawtooth.Setting.Setting +instance GHC.Generics.Generic Data.Sawtooth.Setting.Setting +instance GHC.Classes.Ord Data.Sawtooth.Setting.Setting +instance GHC.Classes.Eq Data.Sawtooth.Setting.Setting +instance GHC.Show.Show Data.Sawtooth.Setting.Setting instance Proto3.Suite.Class.Named Data.Sawtooth.Setting.Setting instance Proto3.Suite.Class.HasDefault Data.Sawtooth.Setting.Setting instance Proto3.Suite.Class.Message Data.Sawtooth.Setting.Setting @@ -2513,81 +2513,81 @@ data TpEventAddResponse_Status TpEventAddResponse_StatusSTATUS_UNSET :: TpEventAddResponse_Status TpEventAddResponse_StatusOK :: TpEventAddResponse_Status TpEventAddResponse_StatusERROR :: TpEventAddResponse_Status -instance Control.DeepSeq.NFData Data.Sawtooth.StateContext.TpEventAddResponse -instance GHC.Generics.Generic Data.Sawtooth.StateContext.TpEventAddResponse -instance GHC.Classes.Ord Data.Sawtooth.StateContext.TpEventAddResponse -instance GHC.Classes.Eq Data.Sawtooth.StateContext.TpEventAddResponse -instance GHC.Show.Show Data.Sawtooth.StateContext.TpEventAddResponse -instance Control.DeepSeq.NFData Data.Sawtooth.StateContext.TpEventAddResponse_Status -instance GHC.Generics.Generic Data.Sawtooth.StateContext.TpEventAddResponse_Status -instance GHC.Classes.Eq Data.Sawtooth.StateContext.TpEventAddResponse_Status -instance GHC.Show.Show Data.Sawtooth.StateContext.TpEventAddResponse_Status -instance Control.DeepSeq.NFData Data.Sawtooth.StateContext.TpEventAddRequest -instance GHC.Generics.Generic Data.Sawtooth.StateContext.TpEventAddRequest -instance GHC.Classes.Ord Data.Sawtooth.StateContext.TpEventAddRequest -instance GHC.Classes.Eq Data.Sawtooth.StateContext.TpEventAddRequest -instance GHC.Show.Show Data.Sawtooth.StateContext.TpEventAddRequest -instance Control.DeepSeq.NFData Data.Sawtooth.StateContext.TpReceiptAddDataResponse -instance GHC.Generics.Generic Data.Sawtooth.StateContext.TpReceiptAddDataResponse -instance GHC.Classes.Ord Data.Sawtooth.StateContext.TpReceiptAddDataResponse -instance GHC.Classes.Eq Data.Sawtooth.StateContext.TpReceiptAddDataResponse -instance GHC.Show.Show Data.Sawtooth.StateContext.TpReceiptAddDataResponse -instance Control.DeepSeq.NFData Data.Sawtooth.StateContext.TpReceiptAddDataResponse_Status -instance GHC.Generics.Generic Data.Sawtooth.StateContext.TpReceiptAddDataResponse_Status -instance GHC.Classes.Eq Data.Sawtooth.StateContext.TpReceiptAddDataResponse_Status -instance GHC.Show.Show Data.Sawtooth.StateContext.TpReceiptAddDataResponse_Status -instance Control.DeepSeq.NFData Data.Sawtooth.StateContext.TpReceiptAddDataRequest -instance GHC.Generics.Generic Data.Sawtooth.StateContext.TpReceiptAddDataRequest -instance GHC.Classes.Ord Data.Sawtooth.StateContext.TpReceiptAddDataRequest -instance GHC.Classes.Eq Data.Sawtooth.StateContext.TpReceiptAddDataRequest -instance GHC.Show.Show Data.Sawtooth.StateContext.TpReceiptAddDataRequest -instance Control.DeepSeq.NFData Data.Sawtooth.StateContext.TpStateDeleteResponse -instance GHC.Generics.Generic Data.Sawtooth.StateContext.TpStateDeleteResponse -instance GHC.Classes.Ord Data.Sawtooth.StateContext.TpStateDeleteResponse -instance GHC.Classes.Eq Data.Sawtooth.StateContext.TpStateDeleteResponse -instance GHC.Show.Show Data.Sawtooth.StateContext.TpStateDeleteResponse -instance Control.DeepSeq.NFData Data.Sawtooth.StateContext.TpStateDeleteResponse_Status -instance GHC.Generics.Generic Data.Sawtooth.StateContext.TpStateDeleteResponse_Status -instance GHC.Classes.Eq Data.Sawtooth.StateContext.TpStateDeleteResponse_Status -instance GHC.Show.Show Data.Sawtooth.StateContext.TpStateDeleteResponse_Status -instance Control.DeepSeq.NFData Data.Sawtooth.StateContext.TpStateDeleteRequest -instance GHC.Generics.Generic Data.Sawtooth.StateContext.TpStateDeleteRequest -instance GHC.Classes.Ord Data.Sawtooth.StateContext.TpStateDeleteRequest -instance GHC.Classes.Eq Data.Sawtooth.StateContext.TpStateDeleteRequest -instance GHC.Show.Show Data.Sawtooth.StateContext.TpStateDeleteRequest -instance Control.DeepSeq.NFData Data.Sawtooth.StateContext.TpStateSetResponse -instance GHC.Generics.Generic Data.Sawtooth.StateContext.TpStateSetResponse -instance GHC.Classes.Ord Data.Sawtooth.StateContext.TpStateSetResponse -instance GHC.Classes.Eq Data.Sawtooth.StateContext.TpStateSetResponse -instance GHC.Show.Show Data.Sawtooth.StateContext.TpStateSetResponse -instance Control.DeepSeq.NFData Data.Sawtooth.StateContext.TpStateSetResponse_Status -instance GHC.Generics.Generic Data.Sawtooth.StateContext.TpStateSetResponse_Status -instance GHC.Classes.Eq Data.Sawtooth.StateContext.TpStateSetResponse_Status -instance GHC.Show.Show Data.Sawtooth.StateContext.TpStateSetResponse_Status -instance Control.DeepSeq.NFData Data.Sawtooth.StateContext.TpStateSetRequest -instance GHC.Generics.Generic Data.Sawtooth.StateContext.TpStateSetRequest -instance GHC.Classes.Ord Data.Sawtooth.StateContext.TpStateSetRequest -instance GHC.Classes.Eq Data.Sawtooth.StateContext.TpStateSetRequest -instance GHC.Show.Show Data.Sawtooth.StateContext.TpStateSetRequest -instance Control.DeepSeq.NFData Data.Sawtooth.StateContext.TpStateGetResponse -instance GHC.Generics.Generic Data.Sawtooth.StateContext.TpStateGetResponse -instance GHC.Classes.Ord Data.Sawtooth.StateContext.TpStateGetResponse -instance GHC.Classes.Eq Data.Sawtooth.StateContext.TpStateGetResponse -instance GHC.Show.Show Data.Sawtooth.StateContext.TpStateGetResponse -instance Control.DeepSeq.NFData Data.Sawtooth.StateContext.TpStateGetResponse_Status -instance GHC.Generics.Generic Data.Sawtooth.StateContext.TpStateGetResponse_Status -instance GHC.Classes.Eq Data.Sawtooth.StateContext.TpStateGetResponse_Status -instance GHC.Show.Show Data.Sawtooth.StateContext.TpStateGetResponse_Status -instance Control.DeepSeq.NFData Data.Sawtooth.StateContext.TpStateGetRequest -instance GHC.Generics.Generic Data.Sawtooth.StateContext.TpStateGetRequest -instance GHC.Classes.Ord Data.Sawtooth.StateContext.TpStateGetRequest -instance GHC.Classes.Eq Data.Sawtooth.StateContext.TpStateGetRequest -instance GHC.Show.Show Data.Sawtooth.StateContext.TpStateGetRequest instance Control.DeepSeq.NFData Data.Sawtooth.StateContext.TpStateEntry instance GHC.Generics.Generic Data.Sawtooth.StateContext.TpStateEntry instance GHC.Classes.Ord Data.Sawtooth.StateContext.TpStateEntry instance GHC.Classes.Eq Data.Sawtooth.StateContext.TpStateEntry instance GHC.Show.Show Data.Sawtooth.StateContext.TpStateEntry +instance Control.DeepSeq.NFData Data.Sawtooth.StateContext.TpStateGetRequest +instance GHC.Generics.Generic Data.Sawtooth.StateContext.TpStateGetRequest +instance GHC.Classes.Ord Data.Sawtooth.StateContext.TpStateGetRequest +instance GHC.Classes.Eq Data.Sawtooth.StateContext.TpStateGetRequest +instance GHC.Show.Show Data.Sawtooth.StateContext.TpStateGetRequest +instance Control.DeepSeq.NFData Data.Sawtooth.StateContext.TpStateGetResponse_Status +instance GHC.Generics.Generic Data.Sawtooth.StateContext.TpStateGetResponse_Status +instance GHC.Classes.Eq Data.Sawtooth.StateContext.TpStateGetResponse_Status +instance GHC.Show.Show Data.Sawtooth.StateContext.TpStateGetResponse_Status +instance Control.DeepSeq.NFData Data.Sawtooth.StateContext.TpStateGetResponse +instance GHC.Generics.Generic Data.Sawtooth.StateContext.TpStateGetResponse +instance GHC.Classes.Ord Data.Sawtooth.StateContext.TpStateGetResponse +instance GHC.Classes.Eq Data.Sawtooth.StateContext.TpStateGetResponse +instance GHC.Show.Show Data.Sawtooth.StateContext.TpStateGetResponse +instance Control.DeepSeq.NFData Data.Sawtooth.StateContext.TpStateSetRequest +instance GHC.Generics.Generic Data.Sawtooth.StateContext.TpStateSetRequest +instance GHC.Classes.Ord Data.Sawtooth.StateContext.TpStateSetRequest +instance GHC.Classes.Eq Data.Sawtooth.StateContext.TpStateSetRequest +instance GHC.Show.Show Data.Sawtooth.StateContext.TpStateSetRequest +instance Control.DeepSeq.NFData Data.Sawtooth.StateContext.TpStateSetResponse_Status +instance GHC.Generics.Generic Data.Sawtooth.StateContext.TpStateSetResponse_Status +instance GHC.Classes.Eq Data.Sawtooth.StateContext.TpStateSetResponse_Status +instance GHC.Show.Show Data.Sawtooth.StateContext.TpStateSetResponse_Status +instance Control.DeepSeq.NFData Data.Sawtooth.StateContext.TpStateSetResponse +instance GHC.Generics.Generic Data.Sawtooth.StateContext.TpStateSetResponse +instance GHC.Classes.Ord Data.Sawtooth.StateContext.TpStateSetResponse +instance GHC.Classes.Eq Data.Sawtooth.StateContext.TpStateSetResponse +instance GHC.Show.Show Data.Sawtooth.StateContext.TpStateSetResponse +instance Control.DeepSeq.NFData Data.Sawtooth.StateContext.TpStateDeleteRequest +instance GHC.Generics.Generic Data.Sawtooth.StateContext.TpStateDeleteRequest +instance GHC.Classes.Ord Data.Sawtooth.StateContext.TpStateDeleteRequest +instance GHC.Classes.Eq Data.Sawtooth.StateContext.TpStateDeleteRequest +instance GHC.Show.Show Data.Sawtooth.StateContext.TpStateDeleteRequest +instance Control.DeepSeq.NFData Data.Sawtooth.StateContext.TpStateDeleteResponse_Status +instance GHC.Generics.Generic Data.Sawtooth.StateContext.TpStateDeleteResponse_Status +instance GHC.Classes.Eq Data.Sawtooth.StateContext.TpStateDeleteResponse_Status +instance GHC.Show.Show Data.Sawtooth.StateContext.TpStateDeleteResponse_Status +instance Control.DeepSeq.NFData Data.Sawtooth.StateContext.TpStateDeleteResponse +instance GHC.Generics.Generic Data.Sawtooth.StateContext.TpStateDeleteResponse +instance GHC.Classes.Ord Data.Sawtooth.StateContext.TpStateDeleteResponse +instance GHC.Classes.Eq Data.Sawtooth.StateContext.TpStateDeleteResponse +instance GHC.Show.Show Data.Sawtooth.StateContext.TpStateDeleteResponse +instance Control.DeepSeq.NFData Data.Sawtooth.StateContext.TpReceiptAddDataRequest +instance GHC.Generics.Generic Data.Sawtooth.StateContext.TpReceiptAddDataRequest +instance GHC.Classes.Ord Data.Sawtooth.StateContext.TpReceiptAddDataRequest +instance GHC.Classes.Eq Data.Sawtooth.StateContext.TpReceiptAddDataRequest +instance GHC.Show.Show Data.Sawtooth.StateContext.TpReceiptAddDataRequest +instance Control.DeepSeq.NFData Data.Sawtooth.StateContext.TpReceiptAddDataResponse_Status +instance GHC.Generics.Generic Data.Sawtooth.StateContext.TpReceiptAddDataResponse_Status +instance GHC.Classes.Eq Data.Sawtooth.StateContext.TpReceiptAddDataResponse_Status +instance GHC.Show.Show Data.Sawtooth.StateContext.TpReceiptAddDataResponse_Status +instance Control.DeepSeq.NFData Data.Sawtooth.StateContext.TpReceiptAddDataResponse +instance GHC.Generics.Generic Data.Sawtooth.StateContext.TpReceiptAddDataResponse +instance GHC.Classes.Ord Data.Sawtooth.StateContext.TpReceiptAddDataResponse +instance GHC.Classes.Eq Data.Sawtooth.StateContext.TpReceiptAddDataResponse +instance GHC.Show.Show Data.Sawtooth.StateContext.TpReceiptAddDataResponse +instance Control.DeepSeq.NFData Data.Sawtooth.StateContext.TpEventAddRequest +instance GHC.Generics.Generic Data.Sawtooth.StateContext.TpEventAddRequest +instance GHC.Classes.Ord Data.Sawtooth.StateContext.TpEventAddRequest +instance GHC.Classes.Eq Data.Sawtooth.StateContext.TpEventAddRequest +instance GHC.Show.Show Data.Sawtooth.StateContext.TpEventAddRequest +instance Control.DeepSeq.NFData Data.Sawtooth.StateContext.TpEventAddResponse_Status +instance GHC.Generics.Generic Data.Sawtooth.StateContext.TpEventAddResponse_Status +instance GHC.Classes.Eq Data.Sawtooth.StateContext.TpEventAddResponse_Status +instance GHC.Show.Show Data.Sawtooth.StateContext.TpEventAddResponse_Status +instance Control.DeepSeq.NFData Data.Sawtooth.StateContext.TpEventAddResponse +instance GHC.Generics.Generic Data.Sawtooth.StateContext.TpEventAddResponse +instance GHC.Classes.Ord Data.Sawtooth.StateContext.TpEventAddResponse +instance GHC.Classes.Eq Data.Sawtooth.StateContext.TpEventAddResponse +instance GHC.Show.Show Data.Sawtooth.StateContext.TpEventAddResponse instance Proto3.Suite.Class.Named Data.Sawtooth.StateContext.TpEventAddResponse instance Proto3.Suite.Class.HasDefault Data.Sawtooth.StateContext.TpEventAddResponse instance Proto3.Suite.Class.Message Data.Sawtooth.StateContext.TpEventAddResponse @@ -2749,21 +2749,21 @@ Transaction :: ByteString -> Text -> ByteString -> Transaction newtype TransactionList TransactionList :: Vector Transaction -> TransactionList [transactionListTransactions] :: TransactionList -> Vector Transaction -instance Control.DeepSeq.NFData Data.Sawtooth.Transaction.TransactionList -instance GHC.Generics.Generic Data.Sawtooth.Transaction.TransactionList -instance GHC.Classes.Ord Data.Sawtooth.Transaction.TransactionList -instance GHC.Classes.Eq Data.Sawtooth.Transaction.TransactionList -instance GHC.Show.Show Data.Sawtooth.Transaction.TransactionList -instance Control.DeepSeq.NFData Data.Sawtooth.Transaction.Transaction -instance GHC.Generics.Generic Data.Sawtooth.Transaction.Transaction -instance GHC.Classes.Ord Data.Sawtooth.Transaction.Transaction -instance GHC.Classes.Eq Data.Sawtooth.Transaction.Transaction -instance GHC.Show.Show Data.Sawtooth.Transaction.Transaction instance Control.DeepSeq.NFData Data.Sawtooth.Transaction.TransactionHeader instance GHC.Generics.Generic Data.Sawtooth.Transaction.TransactionHeader instance GHC.Classes.Ord Data.Sawtooth.Transaction.TransactionHeader instance GHC.Classes.Eq Data.Sawtooth.Transaction.TransactionHeader instance GHC.Show.Show Data.Sawtooth.Transaction.TransactionHeader +instance Control.DeepSeq.NFData Data.Sawtooth.Transaction.Transaction +instance GHC.Generics.Generic Data.Sawtooth.Transaction.Transaction +instance GHC.Classes.Ord Data.Sawtooth.Transaction.Transaction +instance GHC.Classes.Eq Data.Sawtooth.Transaction.Transaction +instance GHC.Show.Show Data.Sawtooth.Transaction.Transaction +instance Control.DeepSeq.NFData Data.Sawtooth.Transaction.TransactionList +instance GHC.Generics.Generic Data.Sawtooth.Transaction.TransactionList +instance GHC.Classes.Ord Data.Sawtooth.Transaction.TransactionList +instance GHC.Classes.Eq Data.Sawtooth.Transaction.TransactionList +instance GHC.Show.Show Data.Sawtooth.Transaction.TransactionList instance Proto3.Suite.Class.Named Data.Sawtooth.Transaction.TransactionList instance Proto3.Suite.Class.HasDefault Data.Sawtooth.Transaction.TransactionList instance Proto3.Suite.Class.Message Data.Sawtooth.Transaction.TransactionList @@ -2838,52 +2838,52 @@ TpProcessResponse_StatusSTATUS_UNSET :: TpProcessResponse_Status TpProcessResponse_StatusOK :: TpProcessResponse_Status TpProcessResponse_StatusINVALID_TRANSACTION :: TpProcessResponse_Status TpProcessResponse_StatusINTERNAL_ERROR :: TpProcessResponse_Status -instance Control.DeepSeq.NFData Data.Sawtooth.Processor.TpProcessResponse -instance GHC.Generics.Generic Data.Sawtooth.Processor.TpProcessResponse -instance GHC.Classes.Ord Data.Sawtooth.Processor.TpProcessResponse -instance GHC.Classes.Eq Data.Sawtooth.Processor.TpProcessResponse -instance GHC.Show.Show Data.Sawtooth.Processor.TpProcessResponse -instance Control.DeepSeq.NFData Data.Sawtooth.Processor.TpProcessResponse_Status -instance GHC.Generics.Generic Data.Sawtooth.Processor.TpProcessResponse_Status -instance GHC.Classes.Eq Data.Sawtooth.Processor.TpProcessResponse_Status -instance GHC.Show.Show Data.Sawtooth.Processor.TpProcessResponse_Status -instance Control.DeepSeq.NFData Data.Sawtooth.Processor.TpProcessRequest -instance GHC.Generics.Generic Data.Sawtooth.Processor.TpProcessRequest -instance GHC.Classes.Ord Data.Sawtooth.Processor.TpProcessRequest -instance GHC.Classes.Eq Data.Sawtooth.Processor.TpProcessRequest -instance GHC.Show.Show Data.Sawtooth.Processor.TpProcessRequest -instance Control.DeepSeq.NFData Data.Sawtooth.Processor.TpUnregisterResponse -instance GHC.Generics.Generic Data.Sawtooth.Processor.TpUnregisterResponse -instance GHC.Classes.Ord Data.Sawtooth.Processor.TpUnregisterResponse -instance GHC.Classes.Eq Data.Sawtooth.Processor.TpUnregisterResponse -instance GHC.Show.Show Data.Sawtooth.Processor.TpUnregisterResponse -instance Control.DeepSeq.NFData Data.Sawtooth.Processor.TpUnregisterResponse_Status -instance GHC.Generics.Generic Data.Sawtooth.Processor.TpUnregisterResponse_Status -instance GHC.Classes.Eq Data.Sawtooth.Processor.TpUnregisterResponse_Status -instance GHC.Show.Show Data.Sawtooth.Processor.TpUnregisterResponse_Status -instance Control.DeepSeq.NFData Data.Sawtooth.Processor.TpUnregisterRequest -instance GHC.Generics.Generic Data.Sawtooth.Processor.TpUnregisterRequest -instance GHC.Classes.Ord Data.Sawtooth.Processor.TpUnregisterRequest -instance GHC.Classes.Eq Data.Sawtooth.Processor.TpUnregisterRequest -instance GHC.Show.Show Data.Sawtooth.Processor.TpUnregisterRequest -instance Control.DeepSeq.NFData Data.Sawtooth.Processor.TpRegisterResponse -instance GHC.Generics.Generic Data.Sawtooth.Processor.TpRegisterResponse -instance GHC.Classes.Ord Data.Sawtooth.Processor.TpRegisterResponse -instance GHC.Classes.Eq Data.Sawtooth.Processor.TpRegisterResponse -instance GHC.Show.Show Data.Sawtooth.Processor.TpRegisterResponse -instance Control.DeepSeq.NFData Data.Sawtooth.Processor.TpRegisterResponse_Status -instance GHC.Generics.Generic Data.Sawtooth.Processor.TpRegisterResponse_Status -instance GHC.Classes.Eq Data.Sawtooth.Processor.TpRegisterResponse_Status -instance GHC.Show.Show Data.Sawtooth.Processor.TpRegisterResponse_Status +instance Control.DeepSeq.NFData Data.Sawtooth.Processor.TpRegisterRequest_TpProcessRequestHeaderStyle +instance GHC.Generics.Generic Data.Sawtooth.Processor.TpRegisterRequest_TpProcessRequestHeaderStyle +instance GHC.Classes.Eq Data.Sawtooth.Processor.TpRegisterRequest_TpProcessRequestHeaderStyle +instance GHC.Show.Show Data.Sawtooth.Processor.TpRegisterRequest_TpProcessRequestHeaderStyle instance Control.DeepSeq.NFData Data.Sawtooth.Processor.TpRegisterRequest instance GHC.Generics.Generic Data.Sawtooth.Processor.TpRegisterRequest instance GHC.Classes.Ord Data.Sawtooth.Processor.TpRegisterRequest instance GHC.Classes.Eq Data.Sawtooth.Processor.TpRegisterRequest instance GHC.Show.Show Data.Sawtooth.Processor.TpRegisterRequest -instance Control.DeepSeq.NFData Data.Sawtooth.Processor.TpRegisterRequest_TpProcessRequestHeaderStyle -instance GHC.Generics.Generic Data.Sawtooth.Processor.TpRegisterRequest_TpProcessRequestHeaderStyle -instance GHC.Classes.Eq Data.Sawtooth.Processor.TpRegisterRequest_TpProcessRequestHeaderStyle -instance GHC.Show.Show Data.Sawtooth.Processor.TpRegisterRequest_TpProcessRequestHeaderStyle +instance Control.DeepSeq.NFData Data.Sawtooth.Processor.TpRegisterResponse_Status +instance GHC.Generics.Generic Data.Sawtooth.Processor.TpRegisterResponse_Status +instance GHC.Classes.Eq Data.Sawtooth.Processor.TpRegisterResponse_Status +instance GHC.Show.Show Data.Sawtooth.Processor.TpRegisterResponse_Status +instance Control.DeepSeq.NFData Data.Sawtooth.Processor.TpRegisterResponse +instance GHC.Generics.Generic Data.Sawtooth.Processor.TpRegisterResponse +instance GHC.Classes.Ord Data.Sawtooth.Processor.TpRegisterResponse +instance GHC.Classes.Eq Data.Sawtooth.Processor.TpRegisterResponse +instance GHC.Show.Show Data.Sawtooth.Processor.TpRegisterResponse +instance Control.DeepSeq.NFData Data.Sawtooth.Processor.TpUnregisterRequest +instance GHC.Generics.Generic Data.Sawtooth.Processor.TpUnregisterRequest +instance GHC.Classes.Ord Data.Sawtooth.Processor.TpUnregisterRequest +instance GHC.Classes.Eq Data.Sawtooth.Processor.TpUnregisterRequest +instance GHC.Show.Show Data.Sawtooth.Processor.TpUnregisterRequest +instance Control.DeepSeq.NFData Data.Sawtooth.Processor.TpUnregisterResponse_Status +instance GHC.Generics.Generic Data.Sawtooth.Processor.TpUnregisterResponse_Status +instance GHC.Classes.Eq Data.Sawtooth.Processor.TpUnregisterResponse_Status +instance GHC.Show.Show Data.Sawtooth.Processor.TpUnregisterResponse_Status +instance Control.DeepSeq.NFData Data.Sawtooth.Processor.TpUnregisterResponse +instance GHC.Generics.Generic Data.Sawtooth.Processor.TpUnregisterResponse +instance GHC.Classes.Ord Data.Sawtooth.Processor.TpUnregisterResponse +instance GHC.Classes.Eq Data.Sawtooth.Processor.TpUnregisterResponse +instance GHC.Show.Show Data.Sawtooth.Processor.TpUnregisterResponse +instance Control.DeepSeq.NFData Data.Sawtooth.Processor.TpProcessRequest +instance GHC.Generics.Generic Data.Sawtooth.Processor.TpProcessRequest +instance GHC.Classes.Ord Data.Sawtooth.Processor.TpProcessRequest +instance GHC.Classes.Eq Data.Sawtooth.Processor.TpProcessRequest +instance GHC.Show.Show Data.Sawtooth.Processor.TpProcessRequest +instance Control.DeepSeq.NFData Data.Sawtooth.Processor.TpProcessResponse_Status +instance GHC.Generics.Generic Data.Sawtooth.Processor.TpProcessResponse_Status +instance GHC.Classes.Eq Data.Sawtooth.Processor.TpProcessResponse_Status +instance GHC.Show.Show Data.Sawtooth.Processor.TpProcessResponse_Status +instance Control.DeepSeq.NFData Data.Sawtooth.Processor.TpProcessResponse +instance GHC.Generics.Generic Data.Sawtooth.Processor.TpProcessResponse +instance GHC.Classes.Ord Data.Sawtooth.Processor.TpProcessResponse +instance GHC.Classes.Eq Data.Sawtooth.Processor.TpProcessResponse +instance GHC.Show.Show Data.Sawtooth.Processor.TpProcessResponse instance Proto3.Suite.Class.Named Data.Sawtooth.Processor.TpProcessResponse instance Proto3.Suite.Class.HasDefault Data.Sawtooth.Processor.TpProcessResponse instance Proto3.Suite.Class.Message Data.Sawtooth.Processor.TpProcessResponse @@ -3011,34 +3011,34 @@ ClientTransactionGetResponse_StatusOK :: ClientTransactionGetResponse_Status ClientTransactionGetResponse_StatusINTERNAL_ERROR :: ClientTransactionGetResponse_Status ClientTransactionGetResponse_StatusNO_RESOURCE :: ClientTransactionGetResponse_Status ClientTransactionGetResponse_StatusINVALID_ID :: ClientTransactionGetResponse_Status -instance Control.DeepSeq.NFData Data.Sawtooth.ClientTransaction.ClientTransactionGetResponse -instance GHC.Generics.Generic Data.Sawtooth.ClientTransaction.ClientTransactionGetResponse -instance GHC.Classes.Ord Data.Sawtooth.ClientTransaction.ClientTransactionGetResponse -instance GHC.Classes.Eq Data.Sawtooth.ClientTransaction.ClientTransactionGetResponse -instance GHC.Show.Show Data.Sawtooth.ClientTransaction.ClientTransactionGetResponse -instance Control.DeepSeq.NFData Data.Sawtooth.ClientTransaction.ClientTransactionGetResponse_Status -instance GHC.Generics.Generic Data.Sawtooth.ClientTransaction.ClientTransactionGetResponse_Status -instance GHC.Classes.Eq Data.Sawtooth.ClientTransaction.ClientTransactionGetResponse_Status -instance GHC.Show.Show Data.Sawtooth.ClientTransaction.ClientTransactionGetResponse_Status -instance Control.DeepSeq.NFData Data.Sawtooth.ClientTransaction.ClientTransactionGetRequest -instance GHC.Generics.Generic Data.Sawtooth.ClientTransaction.ClientTransactionGetRequest -instance GHC.Classes.Ord Data.Sawtooth.ClientTransaction.ClientTransactionGetRequest -instance GHC.Classes.Eq Data.Sawtooth.ClientTransaction.ClientTransactionGetRequest -instance GHC.Show.Show Data.Sawtooth.ClientTransaction.ClientTransactionGetRequest -instance Control.DeepSeq.NFData Data.Sawtooth.ClientTransaction.ClientTransactionListResponse -instance GHC.Generics.Generic Data.Sawtooth.ClientTransaction.ClientTransactionListResponse -instance GHC.Classes.Ord Data.Sawtooth.ClientTransaction.ClientTransactionListResponse -instance GHC.Classes.Eq Data.Sawtooth.ClientTransaction.ClientTransactionListResponse -instance GHC.Show.Show Data.Sawtooth.ClientTransaction.ClientTransactionListResponse -instance Control.DeepSeq.NFData Data.Sawtooth.ClientTransaction.ClientTransactionListResponse_Status -instance GHC.Generics.Generic Data.Sawtooth.ClientTransaction.ClientTransactionListResponse_Status -instance GHC.Classes.Eq Data.Sawtooth.ClientTransaction.ClientTransactionListResponse_Status -instance GHC.Show.Show Data.Sawtooth.ClientTransaction.ClientTransactionListResponse_Status instance Control.DeepSeq.NFData Data.Sawtooth.ClientTransaction.ClientTransactionListRequest instance GHC.Generics.Generic Data.Sawtooth.ClientTransaction.ClientTransactionListRequest instance GHC.Classes.Ord Data.Sawtooth.ClientTransaction.ClientTransactionListRequest instance GHC.Classes.Eq Data.Sawtooth.ClientTransaction.ClientTransactionListRequest instance GHC.Show.Show Data.Sawtooth.ClientTransaction.ClientTransactionListRequest +instance Control.DeepSeq.NFData Data.Sawtooth.ClientTransaction.ClientTransactionListResponse_Status +instance GHC.Generics.Generic Data.Sawtooth.ClientTransaction.ClientTransactionListResponse_Status +instance GHC.Classes.Eq Data.Sawtooth.ClientTransaction.ClientTransactionListResponse_Status +instance GHC.Show.Show Data.Sawtooth.ClientTransaction.ClientTransactionListResponse_Status +instance Control.DeepSeq.NFData Data.Sawtooth.ClientTransaction.ClientTransactionListResponse +instance GHC.Generics.Generic Data.Sawtooth.ClientTransaction.ClientTransactionListResponse +instance GHC.Classes.Ord Data.Sawtooth.ClientTransaction.ClientTransactionListResponse +instance GHC.Classes.Eq Data.Sawtooth.ClientTransaction.ClientTransactionListResponse +instance GHC.Show.Show Data.Sawtooth.ClientTransaction.ClientTransactionListResponse +instance Control.DeepSeq.NFData Data.Sawtooth.ClientTransaction.ClientTransactionGetRequest +instance GHC.Generics.Generic Data.Sawtooth.ClientTransaction.ClientTransactionGetRequest +instance GHC.Classes.Ord Data.Sawtooth.ClientTransaction.ClientTransactionGetRequest +instance GHC.Classes.Eq Data.Sawtooth.ClientTransaction.ClientTransactionGetRequest +instance GHC.Show.Show Data.Sawtooth.ClientTransaction.ClientTransactionGetRequest +instance Control.DeepSeq.NFData Data.Sawtooth.ClientTransaction.ClientTransactionGetResponse_Status +instance GHC.Generics.Generic Data.Sawtooth.ClientTransaction.ClientTransactionGetResponse_Status +instance GHC.Classes.Eq Data.Sawtooth.ClientTransaction.ClientTransactionGetResponse_Status +instance GHC.Show.Show Data.Sawtooth.ClientTransaction.ClientTransactionGetResponse_Status +instance Control.DeepSeq.NFData Data.Sawtooth.ClientTransaction.ClientTransactionGetResponse +instance GHC.Generics.Generic Data.Sawtooth.ClientTransaction.ClientTransactionGetResponse +instance GHC.Classes.Ord Data.Sawtooth.ClientTransaction.ClientTransactionGetResponse +instance GHC.Classes.Eq Data.Sawtooth.ClientTransaction.ClientTransactionGetResponse +instance GHC.Show.Show Data.Sawtooth.ClientTransaction.ClientTransactionGetResponse instance Proto3.Suite.Class.Named Data.Sawtooth.ClientTransaction.ClientTransactionGetResponse instance Proto3.Suite.Class.HasDefault Data.Sawtooth.ClientTransaction.ClientTransactionGetResponse instance Proto3.Suite.Class.Message Data.Sawtooth.ClientTransaction.ClientTransactionGetResponse @@ -3108,21 +3108,21 @@ Batch :: ByteString -> Text -> Vector Transaction -> Bool -> Batch newtype BatchList BatchList :: Vector Batch -> BatchList [batchListBatches] :: BatchList -> Vector Batch -instance Control.DeepSeq.NFData Data.Sawtooth.Batch.BatchList -instance GHC.Generics.Generic Data.Sawtooth.Batch.BatchList -instance GHC.Classes.Ord Data.Sawtooth.Batch.BatchList -instance GHC.Classes.Eq Data.Sawtooth.Batch.BatchList -instance GHC.Show.Show Data.Sawtooth.Batch.BatchList -instance Control.DeepSeq.NFData Data.Sawtooth.Batch.Batch -instance GHC.Generics.Generic Data.Sawtooth.Batch.Batch -instance GHC.Classes.Ord Data.Sawtooth.Batch.Batch -instance GHC.Classes.Eq Data.Sawtooth.Batch.Batch -instance GHC.Show.Show Data.Sawtooth.Batch.Batch instance Control.DeepSeq.NFData Data.Sawtooth.Batch.BatchHeader instance GHC.Generics.Generic Data.Sawtooth.Batch.BatchHeader instance GHC.Classes.Ord Data.Sawtooth.Batch.BatchHeader instance GHC.Classes.Eq Data.Sawtooth.Batch.BatchHeader instance GHC.Show.Show Data.Sawtooth.Batch.BatchHeader +instance Control.DeepSeq.NFData Data.Sawtooth.Batch.Batch +instance GHC.Generics.Generic Data.Sawtooth.Batch.Batch +instance GHC.Classes.Ord Data.Sawtooth.Batch.Batch +instance GHC.Classes.Eq Data.Sawtooth.Batch.Batch +instance GHC.Show.Show Data.Sawtooth.Batch.Batch +instance Control.DeepSeq.NFData Data.Sawtooth.Batch.BatchList +instance GHC.Generics.Generic Data.Sawtooth.Batch.BatchList +instance GHC.Classes.Ord Data.Sawtooth.Batch.BatchList +instance GHC.Classes.Eq Data.Sawtooth.Batch.BatchList +instance GHC.Show.Show Data.Sawtooth.Batch.BatchList instance Proto3.Suite.Class.Named Data.Sawtooth.Batch.BatchList instance Proto3.Suite.Class.HasDefault Data.Sawtooth.Batch.BatchList instance Proto3.Suite.Class.Message Data.Sawtooth.Batch.BatchList @@ -3214,48 +3214,48 @@ ClientBatchStatusResponse_StatusOK :: ClientBatchStatusResponse_Status ClientBatchStatusResponse_StatusINTERNAL_ERROR :: ClientBatchStatusResponse_Status ClientBatchStatusResponse_StatusNO_RESOURCE :: ClientBatchStatusResponse_Status ClientBatchStatusResponse_StatusINVALID_ID :: ClientBatchStatusResponse_Status -instance Control.DeepSeq.NFData Data.Sawtooth.ClientBatchSubmit.ClientBatchStatusResponse -instance GHC.Generics.Generic Data.Sawtooth.ClientBatchSubmit.ClientBatchStatusResponse -instance GHC.Classes.Ord Data.Sawtooth.ClientBatchSubmit.ClientBatchStatusResponse -instance GHC.Classes.Eq Data.Sawtooth.ClientBatchSubmit.ClientBatchStatusResponse -instance GHC.Show.Show Data.Sawtooth.ClientBatchSubmit.ClientBatchStatusResponse -instance Control.DeepSeq.NFData Data.Sawtooth.ClientBatchSubmit.ClientBatchStatusResponse_Status -instance GHC.Generics.Generic Data.Sawtooth.ClientBatchSubmit.ClientBatchStatusResponse_Status -instance GHC.Classes.Eq Data.Sawtooth.ClientBatchSubmit.ClientBatchStatusResponse_Status -instance GHC.Show.Show Data.Sawtooth.ClientBatchSubmit.ClientBatchStatusResponse_Status -instance Control.DeepSeq.NFData Data.Sawtooth.ClientBatchSubmit.ClientBatchStatusRequest -instance GHC.Generics.Generic Data.Sawtooth.ClientBatchSubmit.ClientBatchStatusRequest -instance GHC.Classes.Ord Data.Sawtooth.ClientBatchSubmit.ClientBatchStatusRequest -instance GHC.Classes.Eq Data.Sawtooth.ClientBatchSubmit.ClientBatchStatusRequest -instance GHC.Show.Show Data.Sawtooth.ClientBatchSubmit.ClientBatchStatusRequest -instance Control.DeepSeq.NFData Data.Sawtooth.ClientBatchSubmit.ClientBatchSubmitResponse -instance GHC.Generics.Generic Data.Sawtooth.ClientBatchSubmit.ClientBatchSubmitResponse -instance GHC.Classes.Ord Data.Sawtooth.ClientBatchSubmit.ClientBatchSubmitResponse -instance GHC.Classes.Eq Data.Sawtooth.ClientBatchSubmit.ClientBatchSubmitResponse -instance GHC.Show.Show Data.Sawtooth.ClientBatchSubmit.ClientBatchSubmitResponse -instance Control.DeepSeq.NFData Data.Sawtooth.ClientBatchSubmit.ClientBatchSubmitResponse_Status -instance GHC.Generics.Generic Data.Sawtooth.ClientBatchSubmit.ClientBatchSubmitResponse_Status -instance GHC.Classes.Eq Data.Sawtooth.ClientBatchSubmit.ClientBatchSubmitResponse_Status -instance GHC.Show.Show Data.Sawtooth.ClientBatchSubmit.ClientBatchSubmitResponse_Status -instance Control.DeepSeq.NFData Data.Sawtooth.ClientBatchSubmit.ClientBatchSubmitRequest -instance GHC.Generics.Generic Data.Sawtooth.ClientBatchSubmit.ClientBatchSubmitRequest -instance GHC.Classes.Ord Data.Sawtooth.ClientBatchSubmit.ClientBatchSubmitRequest -instance GHC.Classes.Eq Data.Sawtooth.ClientBatchSubmit.ClientBatchSubmitRequest -instance GHC.Show.Show Data.Sawtooth.ClientBatchSubmit.ClientBatchSubmitRequest -instance Control.DeepSeq.NFData Data.Sawtooth.ClientBatchSubmit.ClientBatchStatus -instance GHC.Generics.Generic Data.Sawtooth.ClientBatchSubmit.ClientBatchStatus -instance GHC.Classes.Ord Data.Sawtooth.ClientBatchSubmit.ClientBatchStatus -instance GHC.Classes.Eq Data.Sawtooth.ClientBatchSubmit.ClientBatchStatus -instance GHC.Show.Show Data.Sawtooth.ClientBatchSubmit.ClientBatchStatus +instance Control.DeepSeq.NFData Data.Sawtooth.ClientBatchSubmit.ClientBatchStatus_Status +instance GHC.Generics.Generic Data.Sawtooth.ClientBatchSubmit.ClientBatchStatus_Status +instance GHC.Classes.Eq Data.Sawtooth.ClientBatchSubmit.ClientBatchStatus_Status +instance GHC.Show.Show Data.Sawtooth.ClientBatchSubmit.ClientBatchStatus_Status instance Control.DeepSeq.NFData Data.Sawtooth.ClientBatchSubmit.ClientBatchStatus_InvalidTransaction instance GHC.Generics.Generic Data.Sawtooth.ClientBatchSubmit.ClientBatchStatus_InvalidTransaction instance GHC.Classes.Ord Data.Sawtooth.ClientBatchSubmit.ClientBatchStatus_InvalidTransaction instance GHC.Classes.Eq Data.Sawtooth.ClientBatchSubmit.ClientBatchStatus_InvalidTransaction instance GHC.Show.Show Data.Sawtooth.ClientBatchSubmit.ClientBatchStatus_InvalidTransaction -instance Control.DeepSeq.NFData Data.Sawtooth.ClientBatchSubmit.ClientBatchStatus_Status -instance GHC.Generics.Generic Data.Sawtooth.ClientBatchSubmit.ClientBatchStatus_Status -instance GHC.Classes.Eq Data.Sawtooth.ClientBatchSubmit.ClientBatchStatus_Status -instance GHC.Show.Show Data.Sawtooth.ClientBatchSubmit.ClientBatchStatus_Status +instance Control.DeepSeq.NFData Data.Sawtooth.ClientBatchSubmit.ClientBatchStatus +instance GHC.Generics.Generic Data.Sawtooth.ClientBatchSubmit.ClientBatchStatus +instance GHC.Classes.Ord Data.Sawtooth.ClientBatchSubmit.ClientBatchStatus +instance GHC.Classes.Eq Data.Sawtooth.ClientBatchSubmit.ClientBatchStatus +instance GHC.Show.Show Data.Sawtooth.ClientBatchSubmit.ClientBatchStatus +instance Control.DeepSeq.NFData Data.Sawtooth.ClientBatchSubmit.ClientBatchSubmitRequest +instance GHC.Generics.Generic Data.Sawtooth.ClientBatchSubmit.ClientBatchSubmitRequest +instance GHC.Classes.Ord Data.Sawtooth.ClientBatchSubmit.ClientBatchSubmitRequest +instance GHC.Classes.Eq Data.Sawtooth.ClientBatchSubmit.ClientBatchSubmitRequest +instance GHC.Show.Show Data.Sawtooth.ClientBatchSubmit.ClientBatchSubmitRequest +instance Control.DeepSeq.NFData Data.Sawtooth.ClientBatchSubmit.ClientBatchSubmitResponse_Status +instance GHC.Generics.Generic Data.Sawtooth.ClientBatchSubmit.ClientBatchSubmitResponse_Status +instance GHC.Classes.Eq Data.Sawtooth.ClientBatchSubmit.ClientBatchSubmitResponse_Status +instance GHC.Show.Show Data.Sawtooth.ClientBatchSubmit.ClientBatchSubmitResponse_Status +instance Control.DeepSeq.NFData Data.Sawtooth.ClientBatchSubmit.ClientBatchSubmitResponse +instance GHC.Generics.Generic Data.Sawtooth.ClientBatchSubmit.ClientBatchSubmitResponse +instance GHC.Classes.Ord Data.Sawtooth.ClientBatchSubmit.ClientBatchSubmitResponse +instance GHC.Classes.Eq Data.Sawtooth.ClientBatchSubmit.ClientBatchSubmitResponse +instance GHC.Show.Show Data.Sawtooth.ClientBatchSubmit.ClientBatchSubmitResponse +instance Control.DeepSeq.NFData Data.Sawtooth.ClientBatchSubmit.ClientBatchStatusRequest +instance GHC.Generics.Generic Data.Sawtooth.ClientBatchSubmit.ClientBatchStatusRequest +instance GHC.Classes.Ord Data.Sawtooth.ClientBatchSubmit.ClientBatchStatusRequest +instance GHC.Classes.Eq Data.Sawtooth.ClientBatchSubmit.ClientBatchStatusRequest +instance GHC.Show.Show Data.Sawtooth.ClientBatchSubmit.ClientBatchStatusRequest +instance Control.DeepSeq.NFData Data.Sawtooth.ClientBatchSubmit.ClientBatchStatusResponse_Status +instance GHC.Generics.Generic Data.Sawtooth.ClientBatchSubmit.ClientBatchStatusResponse_Status +instance GHC.Classes.Eq Data.Sawtooth.ClientBatchSubmit.ClientBatchStatusResponse_Status +instance GHC.Show.Show Data.Sawtooth.ClientBatchSubmit.ClientBatchStatusResponse_Status +instance Control.DeepSeq.NFData Data.Sawtooth.ClientBatchSubmit.ClientBatchStatusResponse +instance GHC.Generics.Generic Data.Sawtooth.ClientBatchSubmit.ClientBatchStatusResponse +instance GHC.Classes.Ord Data.Sawtooth.ClientBatchSubmit.ClientBatchStatusResponse +instance GHC.Classes.Eq Data.Sawtooth.ClientBatchSubmit.ClientBatchStatusResponse +instance GHC.Show.Show Data.Sawtooth.ClientBatchSubmit.ClientBatchStatusResponse instance Proto3.Suite.Class.Named Data.Sawtooth.ClientBatchSubmit.ClientBatchStatusResponse instance Proto3.Suite.Class.HasDefault Data.Sawtooth.ClientBatchSubmit.ClientBatchStatusResponse instance Proto3.Suite.Class.Message Data.Sawtooth.ClientBatchSubmit.ClientBatchStatusResponse @@ -3373,34 +3373,34 @@ ClientBatchGetResponse_StatusOK :: ClientBatchGetResponse_Status ClientBatchGetResponse_StatusINTERNAL_ERROR :: ClientBatchGetResponse_Status ClientBatchGetResponse_StatusNO_RESOURCE :: ClientBatchGetResponse_Status ClientBatchGetResponse_StatusINVALID_ID :: ClientBatchGetResponse_Status -instance Control.DeepSeq.NFData Data.Sawtooth.ClientBatch.ClientBatchGetResponse -instance GHC.Generics.Generic Data.Sawtooth.ClientBatch.ClientBatchGetResponse -instance GHC.Classes.Ord Data.Sawtooth.ClientBatch.ClientBatchGetResponse -instance GHC.Classes.Eq Data.Sawtooth.ClientBatch.ClientBatchGetResponse -instance GHC.Show.Show Data.Sawtooth.ClientBatch.ClientBatchGetResponse -instance Control.DeepSeq.NFData Data.Sawtooth.ClientBatch.ClientBatchGetResponse_Status -instance GHC.Generics.Generic Data.Sawtooth.ClientBatch.ClientBatchGetResponse_Status -instance GHC.Classes.Eq Data.Sawtooth.ClientBatch.ClientBatchGetResponse_Status -instance GHC.Show.Show Data.Sawtooth.ClientBatch.ClientBatchGetResponse_Status -instance Control.DeepSeq.NFData Data.Sawtooth.ClientBatch.ClientBatchGetRequest -instance GHC.Generics.Generic Data.Sawtooth.ClientBatch.ClientBatchGetRequest -instance GHC.Classes.Ord Data.Sawtooth.ClientBatch.ClientBatchGetRequest -instance GHC.Classes.Eq Data.Sawtooth.ClientBatch.ClientBatchGetRequest -instance GHC.Show.Show Data.Sawtooth.ClientBatch.ClientBatchGetRequest -instance Control.DeepSeq.NFData Data.Sawtooth.ClientBatch.ClientBatchListResponse -instance GHC.Generics.Generic Data.Sawtooth.ClientBatch.ClientBatchListResponse -instance GHC.Classes.Ord Data.Sawtooth.ClientBatch.ClientBatchListResponse -instance GHC.Classes.Eq Data.Sawtooth.ClientBatch.ClientBatchListResponse -instance GHC.Show.Show Data.Sawtooth.ClientBatch.ClientBatchListResponse -instance Control.DeepSeq.NFData Data.Sawtooth.ClientBatch.ClientBatchListResponse_Status -instance GHC.Generics.Generic Data.Sawtooth.ClientBatch.ClientBatchListResponse_Status -instance GHC.Classes.Eq Data.Sawtooth.ClientBatch.ClientBatchListResponse_Status -instance GHC.Show.Show Data.Sawtooth.ClientBatch.ClientBatchListResponse_Status instance Control.DeepSeq.NFData Data.Sawtooth.ClientBatch.ClientBatchListRequest instance GHC.Generics.Generic Data.Sawtooth.ClientBatch.ClientBatchListRequest instance GHC.Classes.Ord Data.Sawtooth.ClientBatch.ClientBatchListRequest instance GHC.Classes.Eq Data.Sawtooth.ClientBatch.ClientBatchListRequest instance GHC.Show.Show Data.Sawtooth.ClientBatch.ClientBatchListRequest +instance Control.DeepSeq.NFData Data.Sawtooth.ClientBatch.ClientBatchListResponse_Status +instance GHC.Generics.Generic Data.Sawtooth.ClientBatch.ClientBatchListResponse_Status +instance GHC.Classes.Eq Data.Sawtooth.ClientBatch.ClientBatchListResponse_Status +instance GHC.Show.Show Data.Sawtooth.ClientBatch.ClientBatchListResponse_Status +instance Control.DeepSeq.NFData Data.Sawtooth.ClientBatch.ClientBatchListResponse +instance GHC.Generics.Generic Data.Sawtooth.ClientBatch.ClientBatchListResponse +instance GHC.Classes.Ord Data.Sawtooth.ClientBatch.ClientBatchListResponse +instance GHC.Classes.Eq Data.Sawtooth.ClientBatch.ClientBatchListResponse +instance GHC.Show.Show Data.Sawtooth.ClientBatch.ClientBatchListResponse +instance Control.DeepSeq.NFData Data.Sawtooth.ClientBatch.ClientBatchGetRequest +instance GHC.Generics.Generic Data.Sawtooth.ClientBatch.ClientBatchGetRequest +instance GHC.Classes.Ord Data.Sawtooth.ClientBatch.ClientBatchGetRequest +instance GHC.Classes.Eq Data.Sawtooth.ClientBatch.ClientBatchGetRequest +instance GHC.Show.Show Data.Sawtooth.ClientBatch.ClientBatchGetRequest +instance Control.DeepSeq.NFData Data.Sawtooth.ClientBatch.ClientBatchGetResponse_Status +instance GHC.Generics.Generic Data.Sawtooth.ClientBatch.ClientBatchGetResponse_Status +instance GHC.Classes.Eq Data.Sawtooth.ClientBatch.ClientBatchGetResponse_Status +instance GHC.Show.Show Data.Sawtooth.ClientBatch.ClientBatchGetResponse_Status +instance Control.DeepSeq.NFData Data.Sawtooth.ClientBatch.ClientBatchGetResponse +instance GHC.Generics.Generic Data.Sawtooth.ClientBatch.ClientBatchGetResponse +instance GHC.Classes.Ord Data.Sawtooth.ClientBatch.ClientBatchGetResponse +instance GHC.Classes.Eq Data.Sawtooth.ClientBatch.ClientBatchGetResponse +instance GHC.Show.Show Data.Sawtooth.ClientBatch.ClientBatchGetResponse instance Proto3.Suite.Class.Named Data.Sawtooth.ClientBatch.ClientBatchGetResponse instance Proto3.Suite.Class.HasDefault Data.Sawtooth.ClientBatch.ClientBatchGetResponse instance Proto3.Suite.Class.Message Data.Sawtooth.ClientBatch.ClientBatchGetResponse @@ -3470,16 +3470,16 @@ Block :: ByteString -> Text -> Vector Batch -> Block [blockHeader] :: Block -> ByteString [blockHeaderSignature] :: Block -> Text [blockBatches] :: Block -> Vector Batch -instance Control.DeepSeq.NFData Data.Sawtooth.Block.Block -instance GHC.Generics.Generic Data.Sawtooth.Block.Block -instance GHC.Classes.Ord Data.Sawtooth.Block.Block -instance GHC.Classes.Eq Data.Sawtooth.Block.Block -instance GHC.Show.Show Data.Sawtooth.Block.Block instance Control.DeepSeq.NFData Data.Sawtooth.Block.BlockHeader instance GHC.Generics.Generic Data.Sawtooth.Block.BlockHeader instance GHC.Classes.Ord Data.Sawtooth.Block.BlockHeader instance GHC.Classes.Eq Data.Sawtooth.Block.BlockHeader instance GHC.Show.Show Data.Sawtooth.Block.BlockHeader +instance Control.DeepSeq.NFData Data.Sawtooth.Block.Block +instance GHC.Generics.Generic Data.Sawtooth.Block.Block +instance GHC.Classes.Ord Data.Sawtooth.Block.Block +instance GHC.Classes.Eq Data.Sawtooth.Block.Block +instance GHC.Show.Show Data.Sawtooth.Block.Block instance Proto3.Suite.Class.Named Data.Sawtooth.Block.Block instance Proto3.Suite.Class.HasDefault Data.Sawtooth.Block.Block instance Proto3.Suite.Class.Message Data.Sawtooth.Block.Block @@ -3544,49 +3544,49 @@ ClientBlockGetResponse_StatusOK :: ClientBlockGetResponse_Status ClientBlockGetResponse_StatusINTERNAL_ERROR :: ClientBlockGetResponse_Status ClientBlockGetResponse_StatusNO_RESOURCE :: ClientBlockGetResponse_Status ClientBlockGetResponse_StatusINVALID_ID :: ClientBlockGetResponse_Status -instance Control.DeepSeq.NFData Data.Sawtooth.ClientBlock.ClientBlockGetResponse -instance GHC.Generics.Generic Data.Sawtooth.ClientBlock.ClientBlockGetResponse -instance GHC.Classes.Ord Data.Sawtooth.ClientBlock.ClientBlockGetResponse -instance GHC.Classes.Eq Data.Sawtooth.ClientBlock.ClientBlockGetResponse -instance GHC.Show.Show Data.Sawtooth.ClientBlock.ClientBlockGetResponse -instance Control.DeepSeq.NFData Data.Sawtooth.ClientBlock.ClientBlockGetResponse_Status -instance GHC.Generics.Generic Data.Sawtooth.ClientBlock.ClientBlockGetResponse_Status -instance GHC.Classes.Eq Data.Sawtooth.ClientBlock.ClientBlockGetResponse_Status -instance GHC.Show.Show Data.Sawtooth.ClientBlock.ClientBlockGetResponse_Status -instance Control.DeepSeq.NFData Data.Sawtooth.ClientBlock.ClientBlockGetByBatchIdRequest -instance GHC.Generics.Generic Data.Sawtooth.ClientBlock.ClientBlockGetByBatchIdRequest -instance GHC.Classes.Ord Data.Sawtooth.ClientBlock.ClientBlockGetByBatchIdRequest -instance GHC.Classes.Eq Data.Sawtooth.ClientBlock.ClientBlockGetByBatchIdRequest -instance GHC.Show.Show Data.Sawtooth.ClientBlock.ClientBlockGetByBatchIdRequest -instance Control.DeepSeq.NFData Data.Sawtooth.ClientBlock.ClientBlockGetByTransactionIdRequest -instance GHC.Generics.Generic Data.Sawtooth.ClientBlock.ClientBlockGetByTransactionIdRequest -instance GHC.Classes.Ord Data.Sawtooth.ClientBlock.ClientBlockGetByTransactionIdRequest -instance GHC.Classes.Eq Data.Sawtooth.ClientBlock.ClientBlockGetByTransactionIdRequest -instance GHC.Show.Show Data.Sawtooth.ClientBlock.ClientBlockGetByTransactionIdRequest -instance Control.DeepSeq.NFData Data.Sawtooth.ClientBlock.ClientBlockGetByNumRequest -instance GHC.Generics.Generic Data.Sawtooth.ClientBlock.ClientBlockGetByNumRequest -instance GHC.Classes.Ord Data.Sawtooth.ClientBlock.ClientBlockGetByNumRequest -instance GHC.Classes.Eq Data.Sawtooth.ClientBlock.ClientBlockGetByNumRequest -instance GHC.Show.Show Data.Sawtooth.ClientBlock.ClientBlockGetByNumRequest -instance Control.DeepSeq.NFData Data.Sawtooth.ClientBlock.ClientBlockGetByIdRequest -instance GHC.Generics.Generic Data.Sawtooth.ClientBlock.ClientBlockGetByIdRequest -instance GHC.Classes.Ord Data.Sawtooth.ClientBlock.ClientBlockGetByIdRequest -instance GHC.Classes.Eq Data.Sawtooth.ClientBlock.ClientBlockGetByIdRequest -instance GHC.Show.Show Data.Sawtooth.ClientBlock.ClientBlockGetByIdRequest -instance Control.DeepSeq.NFData Data.Sawtooth.ClientBlock.ClientBlockListResponse -instance GHC.Generics.Generic Data.Sawtooth.ClientBlock.ClientBlockListResponse -instance GHC.Classes.Ord Data.Sawtooth.ClientBlock.ClientBlockListResponse -instance GHC.Classes.Eq Data.Sawtooth.ClientBlock.ClientBlockListResponse -instance GHC.Show.Show Data.Sawtooth.ClientBlock.ClientBlockListResponse -instance Control.DeepSeq.NFData Data.Sawtooth.ClientBlock.ClientBlockListResponse_Status -instance GHC.Generics.Generic Data.Sawtooth.ClientBlock.ClientBlockListResponse_Status -instance GHC.Classes.Eq Data.Sawtooth.ClientBlock.ClientBlockListResponse_Status -instance GHC.Show.Show Data.Sawtooth.ClientBlock.ClientBlockListResponse_Status instance Control.DeepSeq.NFData Data.Sawtooth.ClientBlock.ClientBlockListRequest instance GHC.Generics.Generic Data.Sawtooth.ClientBlock.ClientBlockListRequest instance GHC.Classes.Ord Data.Sawtooth.ClientBlock.ClientBlockListRequest instance GHC.Classes.Eq Data.Sawtooth.ClientBlock.ClientBlockListRequest instance GHC.Show.Show Data.Sawtooth.ClientBlock.ClientBlockListRequest +instance Control.DeepSeq.NFData Data.Sawtooth.ClientBlock.ClientBlockListResponse_Status +instance GHC.Generics.Generic Data.Sawtooth.ClientBlock.ClientBlockListResponse_Status +instance GHC.Classes.Eq Data.Sawtooth.ClientBlock.ClientBlockListResponse_Status +instance GHC.Show.Show Data.Sawtooth.ClientBlock.ClientBlockListResponse_Status +instance Control.DeepSeq.NFData Data.Sawtooth.ClientBlock.ClientBlockListResponse +instance GHC.Generics.Generic Data.Sawtooth.ClientBlock.ClientBlockListResponse +instance GHC.Classes.Ord Data.Sawtooth.ClientBlock.ClientBlockListResponse +instance GHC.Classes.Eq Data.Sawtooth.ClientBlock.ClientBlockListResponse +instance GHC.Show.Show Data.Sawtooth.ClientBlock.ClientBlockListResponse +instance Control.DeepSeq.NFData Data.Sawtooth.ClientBlock.ClientBlockGetByIdRequest +instance GHC.Generics.Generic Data.Sawtooth.ClientBlock.ClientBlockGetByIdRequest +instance GHC.Classes.Ord Data.Sawtooth.ClientBlock.ClientBlockGetByIdRequest +instance GHC.Classes.Eq Data.Sawtooth.ClientBlock.ClientBlockGetByIdRequest +instance GHC.Show.Show Data.Sawtooth.ClientBlock.ClientBlockGetByIdRequest +instance Control.DeepSeq.NFData Data.Sawtooth.ClientBlock.ClientBlockGetByNumRequest +instance GHC.Generics.Generic Data.Sawtooth.ClientBlock.ClientBlockGetByNumRequest +instance GHC.Classes.Ord Data.Sawtooth.ClientBlock.ClientBlockGetByNumRequest +instance GHC.Classes.Eq Data.Sawtooth.ClientBlock.ClientBlockGetByNumRequest +instance GHC.Show.Show Data.Sawtooth.ClientBlock.ClientBlockGetByNumRequest +instance Control.DeepSeq.NFData Data.Sawtooth.ClientBlock.ClientBlockGetByTransactionIdRequest +instance GHC.Generics.Generic Data.Sawtooth.ClientBlock.ClientBlockGetByTransactionIdRequest +instance GHC.Classes.Ord Data.Sawtooth.ClientBlock.ClientBlockGetByTransactionIdRequest +instance GHC.Classes.Eq Data.Sawtooth.ClientBlock.ClientBlockGetByTransactionIdRequest +instance GHC.Show.Show Data.Sawtooth.ClientBlock.ClientBlockGetByTransactionIdRequest +instance Control.DeepSeq.NFData Data.Sawtooth.ClientBlock.ClientBlockGetByBatchIdRequest +instance GHC.Generics.Generic Data.Sawtooth.ClientBlock.ClientBlockGetByBatchIdRequest +instance GHC.Classes.Ord Data.Sawtooth.ClientBlock.ClientBlockGetByBatchIdRequest +instance GHC.Classes.Eq Data.Sawtooth.ClientBlock.ClientBlockGetByBatchIdRequest +instance GHC.Show.Show Data.Sawtooth.ClientBlock.ClientBlockGetByBatchIdRequest +instance Control.DeepSeq.NFData Data.Sawtooth.ClientBlock.ClientBlockGetResponse_Status +instance GHC.Generics.Generic Data.Sawtooth.ClientBlock.ClientBlockGetResponse_Status +instance GHC.Classes.Eq Data.Sawtooth.ClientBlock.ClientBlockGetResponse_Status +instance GHC.Show.Show Data.Sawtooth.ClientBlock.ClientBlockGetResponse_Status +instance Control.DeepSeq.NFData Data.Sawtooth.ClientBlock.ClientBlockGetResponse +instance GHC.Generics.Generic Data.Sawtooth.ClientBlock.ClientBlockGetResponse +instance GHC.Classes.Ord Data.Sawtooth.ClientBlock.ClientBlockGetResponse +instance GHC.Classes.Eq Data.Sawtooth.ClientBlock.ClientBlockGetResponse +instance GHC.Show.Show Data.Sawtooth.ClientBlock.ClientBlockGetResponse instance Proto3.Suite.Class.Named Data.Sawtooth.ClientBlock.ClientBlockGetResponse instance Proto3.Suite.Class.HasDefault Data.Sawtooth.ClientBlock.ClientBlockGetResponse instance Proto3.Suite.Class.Message Data.Sawtooth.ClientBlock.ClientBlockGetResponse @@ -3685,25 +3685,25 @@ StateChange_TypeDELETE :: StateChange_Type newtype StateChangeList StateChangeList :: Vector StateChange -> StateChangeList [stateChangeListStateChanges] :: StateChangeList -> Vector StateChange -instance Control.DeepSeq.NFData Data.Sawtooth.TransactionReceipt.StateChangeList -instance GHC.Generics.Generic Data.Sawtooth.TransactionReceipt.StateChangeList -instance GHC.Classes.Ord Data.Sawtooth.TransactionReceipt.StateChangeList -instance GHC.Classes.Eq Data.Sawtooth.TransactionReceipt.StateChangeList -instance GHC.Show.Show Data.Sawtooth.TransactionReceipt.StateChangeList -instance Control.DeepSeq.NFData Data.Sawtooth.TransactionReceipt.TransactionReceipt -instance GHC.Generics.Generic Data.Sawtooth.TransactionReceipt.TransactionReceipt -instance GHC.Classes.Ord Data.Sawtooth.TransactionReceipt.TransactionReceipt -instance GHC.Classes.Eq Data.Sawtooth.TransactionReceipt.TransactionReceipt -instance GHC.Show.Show Data.Sawtooth.TransactionReceipt.TransactionReceipt +instance Control.DeepSeq.NFData Data.Sawtooth.TransactionReceipt.StateChange_Type +instance GHC.Generics.Generic Data.Sawtooth.TransactionReceipt.StateChange_Type +instance GHC.Classes.Eq Data.Sawtooth.TransactionReceipt.StateChange_Type +instance GHC.Show.Show Data.Sawtooth.TransactionReceipt.StateChange_Type instance Control.DeepSeq.NFData Data.Sawtooth.TransactionReceipt.StateChange instance GHC.Generics.Generic Data.Sawtooth.TransactionReceipt.StateChange instance GHC.Classes.Ord Data.Sawtooth.TransactionReceipt.StateChange instance GHC.Classes.Eq Data.Sawtooth.TransactionReceipt.StateChange instance GHC.Show.Show Data.Sawtooth.TransactionReceipt.StateChange -instance Control.DeepSeq.NFData Data.Sawtooth.TransactionReceipt.StateChange_Type -instance GHC.Generics.Generic Data.Sawtooth.TransactionReceipt.StateChange_Type -instance GHC.Classes.Eq Data.Sawtooth.TransactionReceipt.StateChange_Type -instance GHC.Show.Show Data.Sawtooth.TransactionReceipt.StateChange_Type +instance Control.DeepSeq.NFData Data.Sawtooth.TransactionReceipt.TransactionReceipt +instance GHC.Generics.Generic Data.Sawtooth.TransactionReceipt.TransactionReceipt +instance GHC.Classes.Ord Data.Sawtooth.TransactionReceipt.TransactionReceipt +instance GHC.Classes.Eq Data.Sawtooth.TransactionReceipt.TransactionReceipt +instance GHC.Show.Show Data.Sawtooth.TransactionReceipt.TransactionReceipt +instance Control.DeepSeq.NFData Data.Sawtooth.TransactionReceipt.StateChangeList +instance GHC.Generics.Generic Data.Sawtooth.TransactionReceipt.StateChangeList +instance GHC.Classes.Ord Data.Sawtooth.TransactionReceipt.StateChangeList +instance GHC.Classes.Eq Data.Sawtooth.TransactionReceipt.StateChangeList +instance GHC.Show.Show Data.Sawtooth.TransactionReceipt.StateChangeList instance Proto3.Suite.Class.Named Data.Sawtooth.TransactionReceipt.StateChangeList instance Proto3.Suite.Class.HasDefault Data.Sawtooth.TransactionReceipt.StateChangeList instance Proto3.Suite.Class.Message Data.Sawtooth.TransactionReceipt.StateChangeList @@ -3755,20 +3755,20 @@ ClientReceiptGetResponse_StatusOK :: ClientReceiptGetResponse_Status ClientReceiptGetResponse_StatusINTERNAL_ERROR :: ClientReceiptGetResponse_Status ClientReceiptGetResponse_StatusNO_RESOURCE :: ClientReceiptGetResponse_Status ClientReceiptGetResponse_StatusINVALID_ID :: ClientReceiptGetResponse_Status -instance Control.DeepSeq.NFData Data.Sawtooth.ClientReceipt.ClientReceiptGetResponse -instance GHC.Generics.Generic Data.Sawtooth.ClientReceipt.ClientReceiptGetResponse -instance GHC.Classes.Ord Data.Sawtooth.ClientReceipt.ClientReceiptGetResponse -instance GHC.Classes.Eq Data.Sawtooth.ClientReceipt.ClientReceiptGetResponse -instance GHC.Show.Show Data.Sawtooth.ClientReceipt.ClientReceiptGetResponse -instance Control.DeepSeq.NFData Data.Sawtooth.ClientReceipt.ClientReceiptGetResponse_Status -instance GHC.Generics.Generic Data.Sawtooth.ClientReceipt.ClientReceiptGetResponse_Status -instance GHC.Classes.Eq Data.Sawtooth.ClientReceipt.ClientReceiptGetResponse_Status -instance GHC.Show.Show Data.Sawtooth.ClientReceipt.ClientReceiptGetResponse_Status instance Control.DeepSeq.NFData Data.Sawtooth.ClientReceipt.ClientReceiptGetRequest instance GHC.Generics.Generic Data.Sawtooth.ClientReceipt.ClientReceiptGetRequest instance GHC.Classes.Ord Data.Sawtooth.ClientReceipt.ClientReceiptGetRequest instance GHC.Classes.Eq Data.Sawtooth.ClientReceipt.ClientReceiptGetRequest instance GHC.Show.Show Data.Sawtooth.ClientReceipt.ClientReceiptGetRequest +instance Control.DeepSeq.NFData Data.Sawtooth.ClientReceipt.ClientReceiptGetResponse_Status +instance GHC.Generics.Generic Data.Sawtooth.ClientReceipt.ClientReceiptGetResponse_Status +instance GHC.Classes.Eq Data.Sawtooth.ClientReceipt.ClientReceiptGetResponse_Status +instance GHC.Show.Show Data.Sawtooth.ClientReceipt.ClientReceiptGetResponse_Status +instance Control.DeepSeq.NFData Data.Sawtooth.ClientReceipt.ClientReceiptGetResponse +instance GHC.Generics.Generic Data.Sawtooth.ClientReceipt.ClientReceiptGetResponse +instance GHC.Classes.Ord Data.Sawtooth.ClientReceipt.ClientReceiptGetResponse +instance GHC.Classes.Eq Data.Sawtooth.ClientReceipt.ClientReceiptGetResponse +instance GHC.Show.Show Data.Sawtooth.ClientReceipt.ClientReceiptGetResponse instance Proto3.Suite.Class.Named Data.Sawtooth.ClientReceipt.ClientReceiptGetResponse instance Proto3.Suite.Class.HasDefault Data.Sawtooth.ClientReceipt.ClientReceiptGetResponse instance Proto3.Suite.Class.Message Data.Sawtooth.ClientReceipt.ClientReceiptGetResponse @@ -3927,20 +3927,20 @@ Message_MessageTypeCONSENSUS_NOTIFY_BLOCK_COMMIT :: Message_MessageType Message_MessageTypeCONSENSUS_NOTIFY_ENGINE_ACTIVATED :: Message_MessageType Message_MessageTypeCONSENSUS_NOTIFY_ENGINE_DEACTIVATED :: Message_MessageType Message_MessageTypeCONSENSUS_NOTIFY_ACK :: Message_MessageType -instance Control.DeepSeq.NFData Data.Sawtooth.Validator.MessageList -instance GHC.Generics.Generic Data.Sawtooth.Validator.MessageList -instance GHC.Classes.Ord Data.Sawtooth.Validator.MessageList -instance GHC.Classes.Eq Data.Sawtooth.Validator.MessageList -instance GHC.Show.Show Data.Sawtooth.Validator.MessageList +instance Control.DeepSeq.NFData Data.Sawtooth.Validator.Message_MessageType +instance GHC.Generics.Generic Data.Sawtooth.Validator.Message_MessageType +instance GHC.Classes.Eq Data.Sawtooth.Validator.Message_MessageType +instance GHC.Show.Show Data.Sawtooth.Validator.Message_MessageType instance Control.DeepSeq.NFData Data.Sawtooth.Validator.Message instance GHC.Generics.Generic Data.Sawtooth.Validator.Message instance GHC.Classes.Ord Data.Sawtooth.Validator.Message instance GHC.Classes.Eq Data.Sawtooth.Validator.Message instance GHC.Show.Show Data.Sawtooth.Validator.Message -instance Control.DeepSeq.NFData Data.Sawtooth.Validator.Message_MessageType -instance GHC.Generics.Generic Data.Sawtooth.Validator.Message_MessageType -instance GHC.Classes.Eq Data.Sawtooth.Validator.Message_MessageType -instance GHC.Show.Show Data.Sawtooth.Validator.Message_MessageType +instance Control.DeepSeq.NFData Data.Sawtooth.Validator.MessageList +instance GHC.Generics.Generic Data.Sawtooth.Validator.MessageList +instance GHC.Classes.Ord Data.Sawtooth.Validator.MessageList +instance GHC.Classes.Eq Data.Sawtooth.Validator.MessageList +instance GHC.Show.Show Data.Sawtooth.Validator.MessageList instance Proto3.Suite.Class.Named Data.Sawtooth.Validator.MessageList instance Proto3.Suite.Class.HasDefault Data.Sawtooth.Validator.MessageList instance Proto3.Suite.Class.Message Data.Sawtooth.Validator.MessageList diff --git a/src/Data.Sawtooth.Authorization.html b/src/Data.Sawtooth.Authorization.html index f49edaf..85e35f1 100644 --- a/src/Data.Sawtooth.Authorization.html +++ b/src/Data.Sawtooth.Authorization.html @@ -9,37 +9,36 @@ {-# OPTIONS_GHC -fno-warn-unused-matches #-} -- | Generated by Haskell protocol buffer compiler. DO NOT EDIT! - -module Data.Sawtooth.Authorization where -import qualified Prelude as Hs -import qualified Proto3.Suite.Class as HsProtobuf -import qualified Proto3.Suite.DotProto as HsProtobuf -import qualified Proto3.Suite.JSONPB as HsJSONPB -import Proto3.Suite.JSONPB ((.=), (.:)) -import qualified Proto3.Suite.Types as HsProtobuf -import qualified Proto3.Wire as HsProtobuf -import qualified Control.Applicative as Hs -import Control.Applicative ((<*>), (<|>), (<$>)) -import qualified Control.DeepSeq as Hs -import qualified Control.Monad as Hs -import qualified Data.ByteString as Hs -import qualified Data.Coerce as Hs -import qualified Data.Int as Hs (Int16, Int32, Int64) -import qualified Data.List.NonEmpty as Hs (NonEmpty(..)) -import qualified Data.Map as Hs (Map, mapKeysMonotonic) -import qualified Data.Proxy as Proxy -import qualified Data.String as Hs (fromString) -import qualified Data.Text.Lazy as Hs (Text) -import qualified Data.Vector as Hs (Vector) -import qualified Data.Word as Hs (Word16, Word32, Word64) -import qualified GHC.Enum as Hs -import qualified GHC.Generics as Hs -import qualified Unsafe.Coerce as Hs - -newtype ConnectionRequest = ConnectionRequest{ConnectionRequest -> Text +module Data.Sawtooth.Authorization where +import qualified Prelude as Hs +import qualified Proto3.Suite.Class as HsProtobuf +import qualified Proto3.Suite.DotProto as HsProtobuf +import qualified Proto3.Suite.JSONPB as HsJSONPB +import Proto3.Suite.JSONPB ((.=), (.:)) +import qualified Proto3.Suite.Types as HsProtobuf +import qualified Proto3.Wire as HsProtobuf +import qualified Control.Applicative as Hs +import Control.Applicative ((<*>), (<|>), (<$>)) +import qualified Control.DeepSeq as Hs +import qualified Control.Monad as Hs +import qualified Data.ByteString as Hs +import qualified Data.Coerce as Hs +import qualified Data.Int as Hs (Int16, Int32, Int64) +import qualified Data.List.NonEmpty as Hs (NonEmpty(..)) +import qualified Data.Map as Hs (Map, mapKeysMonotonic) +import qualified Data.Proxy as Proxy +import qualified Data.String as Hs (fromString) +import qualified Data.Text.Lazy as Hs (Text) +import qualified Data.Vector as Hs (Vector) +import qualified Data.Word as Hs (Word16, Word32, Word64) +import qualified GHC.Enum as Hs +import qualified GHC.Generics as Hs +import qualified Unsafe.Coerce as Hs + +newtype ConnectionRequest = ConnectionRequest{ConnectionRequest -> Text connectionRequestEndpoint - :: Hs.Text} - deriving (Int -> ConnectionRequest -> ShowS + :: Hs.Text} + deriving (Int -> ConnectionRequest -> ShowS [ConnectionRequest] -> ShowS ConnectionRequest -> String (Int -> ConnectionRequest -> ShowS) @@ -54,7 +53,7 @@ show :: ConnectionRequest -> String $cshow :: ConnectionRequest -> String showsPrec :: Int -> ConnectionRequest -> ShowS $cshowsPrec :: Int -> ConnectionRequest -> ShowS -Hs.Show, ConnectionRequest -> ConnectionRequest -> Bool +Hs.Show, ConnectionRequest -> ConnectionRequest -> Bool (ConnectionRequest -> ConnectionRequest -> Bool) -> (ConnectionRequest -> ConnectionRequest -> Bool) -> Eq ConnectionRequest @@ -63,9 +62,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: ConnectionRequest -> ConnectionRequest -> Bool == :: ConnectionRequest -> ConnectionRequest -> Bool $c== :: ConnectionRequest -> ConnectionRequest -> Bool -Hs.Eq, Eq ConnectionRequest -Eq ConnectionRequest => -(ConnectionRequest -> ConnectionRequest -> Ordering) +Hs.Eq, Eq ConnectionRequest +Eq ConnectionRequest +-> (ConnectionRequest -> ConnectionRequest -> Ordering) -> (ConnectionRequest -> ConnectionRequest -> Bool) -> (ConnectionRequest -> ConnectionRequest -> Bool) -> (ConnectionRequest -> ConnectionRequest -> Bool) @@ -77,8 +76,8 @@ ConnectionRequest -> ConnectionRequest -> Bool ConnectionRequest -> ConnectionRequest -> Ordering ConnectionRequest -> ConnectionRequest -> ConnectionRequest forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -101,7 +100,7 @@ $c< :: ConnectionRequest -> ConnectionRequest -> Bool compare :: ConnectionRequest -> ConnectionRequest -> Ordering $ccompare :: ConnectionRequest -> ConnectionRequest -> Ordering $cp1Ord :: Eq ConnectionRequest -Hs.Ord, (forall x. ConnectionRequest -> Rep ConnectionRequest x) +Hs.Ord, (forall x. ConnectionRequest -> Rep ConnectionRequest x) -> (forall x. Rep ConnectionRequest x -> ConnectionRequest) -> Generic ConnectionRequest forall x. Rep ConnectionRequest x -> ConnectionRequest @@ -110,202 +109,219 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep ConnectionRequest x -> ConnectionRequest $cfrom :: forall x. ConnectionRequest -> Rep ConnectionRequest x -Hs.Generic, ConnectionRequest -> () +Hs.Generic, ConnectionRequest -> () (ConnectionRequest -> ()) -> NFData ConnectionRequest forall a. (a -> ()) -> NFData a rnf :: ConnectionRequest -> () $crnf :: ConnectionRequest -> () -Hs.NFData) - -instance HsProtobuf.Named ConnectionRequest where - nameOf :: Proxy# ConnectionRequest -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ConnectionRequest where + nameOf :: Proxy# ConnectionRequest -> string +nameOf Proxy# ConnectionRequest +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ConnectionRequest") - -instance HsProtobuf.HasDefault ConnectionRequest - -instance HsProtobuf.Message ConnectionRequest where - encodeMessage :: FieldNumber -> ConnectionRequest -> MessageBuilder -encodeMessage _ - ConnectionRequest{connectionRequestEndpoint :: ConnectionRequest -> Text +Hs.fromString String +"ConnectionRequest") + +instance HsProtobuf.HasDefault ConnectionRequest + +instance HsProtobuf.Message ConnectionRequest where + encodeMessage :: FieldNumber -> ConnectionRequest -> MessageBuilder +encodeMessage FieldNumber +_ + ConnectionRequest{connectionRequestEndpoint :: ConnectionRequest -> Text connectionRequestEndpoint = - Text -connectionRequestEndpoint} - = ([MessageBuilder] -> MessageBuilder + Text +connectionRequestEndpoint} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> Text -> MessageBuilder +Hs.mconcat + [(FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Text -connectionRequestEndpoint)]) - decodeMessage :: FieldNumber -> Parser RawMessage ConnectionRequest -decodeMessage _ - = ((Text -> ConnectionRequest) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Text +connectionRequestEndpoint)]) + decodeMessage :: FieldNumber -> Parser RawMessage ConnectionRequest +decodeMessage FieldNumber +_ + = ((Text -> ConnectionRequest) -> Parser RawMessage (Text -> ConnectionRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> ConnectionRequest +Hs.pure Text -> ConnectionRequest ConnectionRequest) Parser RawMessage (Text -> ConnectionRequest) -> Parser RawMessage Text -> Parser RawMessage ConnectionRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - dotProto :: Proxy# ConnectionRequest -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + dotProto :: Proxy# ConnectionRequest -> [DotProtoField] +dotProto Proxy# ConnectionRequest +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "endpoint") - [] - "")] - -instance HsJSONPB.ToJSONPB ConnectionRequest where - toJSONPB :: ConnectionRequest -> Options -> Value -toJSONPB (ConnectionRequest f1 :: Text -f1) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["endpoint" Text -> Text -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"endpoint") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ConnectionRequest where + toJSONPB :: ConnectionRequest -> Options -> Value +toJSONPB (ConnectionRequest Text +f1) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"endpoint" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1]) - toEncodingPB :: ConnectionRequest -> Options -> Encoding -toEncodingPB (ConnectionRequest f1 :: Text -f1) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["endpoint" Text -> Text -> Options -> Series +.= Text +f1]) + toEncodingPB :: ConnectionRequest -> Options -> Encoding +toEncodingPB (ConnectionRequest Text +f1) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"endpoint" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1]) - -instance HsJSONPB.FromJSONPB ConnectionRequest where - parseJSONPB :: Value -> Parser ConnectionRequest -parseJSONPB - = (String +.= Text +f1]) + +instance HsJSONPB.FromJSONPB ConnectionRequest where + parseJSONPB :: Value -> Parser ConnectionRequest +parseJSONPB + = (String -> (Object -> Parser ConnectionRequest) -> Value -> Parser ConnectionRequest forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ConnectionRequest" - (\ obj :: Object -obj -> ((Text -> ConnectionRequest) -> Parser (Text -> ConnectionRequest) +HsJSONPB.withObject String +"ConnectionRequest" + (\ Object +obj -> ((Text -> ConnectionRequest) -> Parser (Text -> ConnectionRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> ConnectionRequest +Hs.pure Text -> ConnectionRequest ConnectionRequest) Parser (Text -> ConnectionRequest) -> Parser Text -> Parser ConnectionRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Text +<*> Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "endpoint")) - -instance HsJSONPB.ToJSON ConnectionRequest where - toJSON :: ConnectionRequest -> Value -toJSON = ConnectionRequest -> Value +.: Text +"endpoint")) + +instance HsJSONPB.ToJSON ConnectionRequest where + toJSON :: ConnectionRequest -> Value +toJSON = ConnectionRequest -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ConnectionRequest -> Encoding -toEncoding = ConnectionRequest -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ConnectionRequest -> Encoding +toEncoding = ConnectionRequest -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ConnectionRequest where - parseJSON :: Value -> Parser ConnectionRequest -parseJSON = Value -> Parser ConnectionRequest +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ConnectionRequest where + parseJSON :: Value -> Parser ConnectionRequest +parseJSON = Value -> Parser ConnectionRequest forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ConnectionRequest where - declareNamedSchema :: Proxy ConnectionRequest -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_endpoint :: Proxy (OverrideToSchema Text) +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ConnectionRequest where + declareNamedSchema :: Proxy ConnectionRequest -> Declare (Definitions Schema) NamedSchema +declareNamedSchema Proxy ConnectionRequest +_ + = do let declare_endpoint :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_endpoint = Proxy (OverrideToSchema Text) +declare_endpoint = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -connectionRequestEndpoint <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +connectionRequestEndpoint <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_endpoint Proxy (OverrideToSchema Text) +declare_endpoint Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ConnectionRequest +Proxy.Proxy + let Proxy ConnectionRequest _ = (Text -> ConnectionRequest) -> Proxy (Text -> ConnectionRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> ConnectionRequest +Hs.pure Text -> ConnectionRequest ConnectionRequest Proxy (Text -> ConnectionRequest) -> Proxy Text -> Proxy ConnectionRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema Text) +<*> + (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_endpoint - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_endpoint + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ConnectionRequest", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ConnectionRequest", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("endpoint", Referenced Schema -connectionRequestEndpoint)]}}) - -data RoleType = RoleTypeROLE_TYPE_UNSET - | RoleTypeALL - | RoleTypeNETWORK - deriving (Int -> RoleType -> ShowS +HsJSONPB.insOrdFromList + [(Text +"endpoint", Referenced Schema +connectionRequestEndpoint)]}}) + +data RoleType = RoleTypeROLE_TYPE_UNSET + | RoleTypeALL + | RoleTypeNETWORK + deriving (Int -> RoleType -> ShowS [RoleType] -> ShowS RoleType -> String (Int -> RoleType -> ShowS) @@ -318,7 +334,7 @@ show :: RoleType -> String $cshow :: RoleType -> String showsPrec :: Int -> RoleType -> ShowS $cshowsPrec :: Int -> RoleType -> ShowS -Hs.Show, RoleType -> RoleType -> Bool +Hs.Show, RoleType -> RoleType -> Bool (RoleType -> RoleType -> Bool) -> (RoleType -> RoleType -> Bool) -> Eq RoleType forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a @@ -326,7 +342,7 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: RoleType -> RoleType -> Bool == :: RoleType -> RoleType -> Bool $c== :: RoleType -> RoleType -> Bool -Hs.Eq, (forall x. RoleType -> Rep RoleType x) +Hs.Eq, (forall x. RoleType -> Rep RoleType x) -> (forall x. Rep RoleType x -> RoleType) -> Generic RoleType forall x. Rep RoleType x -> RoleType forall x. RoleType -> Rep RoleType x @@ -334,133 +350,148 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep RoleType x -> RoleType $cfrom :: forall x. RoleType -> Rep RoleType x -Hs.Generic, RoleType -> () +Hs.Generic, RoleType -> () (RoleType -> ()) -> NFData RoleType forall a. (a -> ()) -> NFData a rnf :: RoleType -> () $crnf :: RoleType -> () -Hs.NFData) - -instance HsProtobuf.Named RoleType where - nameOf :: Proxy# RoleType -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named RoleType where + nameOf :: Proxy# RoleType -> string +nameOf Proxy# RoleType +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "RoleType") - -instance HsProtobuf.HasDefault RoleType - -instance Hs.Bounded RoleType where - minBound :: RoleType -minBound = RoleType +Hs.fromString String +"RoleType") + +instance HsProtobuf.HasDefault RoleType + +instance Hs.Bounded RoleType where + minBound :: RoleType +minBound = RoleType RoleTypeROLE_TYPE_UNSET - maxBound :: RoleType -maxBound = RoleType + maxBound :: RoleType +maxBound = RoleType RoleTypeNETWORK - -instance Hs.Ord RoleType where - compare :: RoleType -> RoleType -> Ordering -compare x :: RoleType -x y :: RoleType -y - = Int32 -> Int32 -> Ordering + +instance Hs.Ord RoleType where + compare :: RoleType -> RoleType -> Ordering +compare RoleType +x RoleType +y + = Int32 -> Int32 -> Ordering forall a. Ord a => a -> a -> Ordering -Hs.compare (RoleType -> Int32 +Hs.compare (RoleType -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum RoleType -x) - (RoleType -> Int32 +HsProtobuf.fromProtoEnum RoleType +x) + (RoleType -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum RoleType -y) - -instance HsProtobuf.ProtoEnum RoleType where - toProtoEnumMay :: Int32 -> Maybe RoleType -toProtoEnumMay 0 = RoleType -> Maybe RoleType +HsProtobuf.fromProtoEnum RoleType +y) + +instance HsProtobuf.ProtoEnum RoleType where + toProtoEnumMay :: Int32 -> Maybe RoleType +toProtoEnumMay Int32 +0 = RoleType -> Maybe RoleType forall a. a -> Maybe a -Hs.Just RoleType +Hs.Just RoleType RoleTypeROLE_TYPE_UNSET - toProtoEnumMay 1 = RoleType -> Maybe RoleType + toProtoEnumMay Int32 +1 = RoleType -> Maybe RoleType forall a. a -> Maybe a -Hs.Just RoleType +Hs.Just RoleType RoleTypeALL - toProtoEnumMay 2 = RoleType -> Maybe RoleType + toProtoEnumMay Int32 +2 = RoleType -> Maybe RoleType forall a. a -> Maybe a -Hs.Just RoleType +Hs.Just RoleType RoleTypeNETWORK - toProtoEnumMay _ = Maybe RoleType + toProtoEnumMay Int32 +_ = Maybe RoleType forall a. Maybe a -Hs.Nothing - fromProtoEnum :: RoleType -> Int32 -fromProtoEnum (RoleType -RoleTypeROLE_TYPE_UNSET) = 0 - fromProtoEnum (RoleType -RoleTypeALL) = 1 - fromProtoEnum (RoleType -RoleTypeNETWORK) = 2 - -instance HsJSONPB.ToJSONPB RoleType where - toJSONPB :: RoleType -> Options -> Value -toJSONPB x :: RoleType -x _ = RoleType -> Value +Hs.Nothing + fromProtoEnum :: RoleType -> Int32 +fromProtoEnum (RoleType +RoleTypeROLE_TYPE_UNSET) = Int32 +0 + fromProtoEnum (RoleType +RoleTypeALL) = Int32 +1 + fromProtoEnum (RoleType +RoleTypeNETWORK) = Int32 +2 + +instance HsJSONPB.ToJSONPB RoleType where + toJSONPB :: RoleType -> Options -> Value +toJSONPB RoleType +x Options +_ = RoleType -> Value forall a. (Named a, Show a) => a -> Value -HsJSONPB.enumFieldString RoleType -x - toEncodingPB :: RoleType -> Options -> Encoding -toEncodingPB x :: RoleType -x _ = RoleType -> Encoding +HsJSONPB.enumFieldString RoleType +x + toEncodingPB :: RoleType -> Options -> Encoding +toEncodingPB RoleType +x Options +_ = RoleType -> Encoding forall a. (Named a, Show a) => a -> Encoding -HsJSONPB.enumFieldEncoding RoleType -x - -instance HsJSONPB.FromJSONPB RoleType where - parseJSONPB :: Value -> Parser RoleType -parseJSONPB (HsJSONPB.String "ROLE_TYPE_UNSET") - = RoleType -> Parser RoleType +HsJSONPB.enumFieldEncoding RoleType +x + +instance HsJSONPB.FromJSONPB RoleType where + parseJSONPB :: Value -> Parser RoleType +parseJSONPB (HsJSONPB.String Text +"ROLE_TYPE_UNSET") + = RoleType -> Parser RoleType forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure RoleType +Hs.pure RoleType RoleTypeROLE_TYPE_UNSET - parseJSONPB (HsJSONPB.String "ALL") = RoleType -> Parser RoleType + parseJSONPB (HsJSONPB.String Text +"ALL") = RoleType -> Parser RoleType forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure RoleType +Hs.pure RoleType RoleTypeALL - parseJSONPB (HsJSONPB.String "NETWORK") = RoleType -> Parser RoleType + parseJSONPB (HsJSONPB.String Text +"NETWORK") = RoleType -> Parser RoleType forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure RoleType +Hs.pure RoleType RoleTypeNETWORK - parseJSONPB v :: Value -v = (String -> Value -> Parser RoleType + parseJSONPB Value +v = (String -> Value -> Parser RoleType forall a. String -> Value -> Parser a -HsJSONPB.typeMismatch "RoleType" Value -v) - -instance HsJSONPB.ToJSON RoleType where - toJSON :: RoleType -> Value -toJSON = RoleType -> Value +HsJSONPB.typeMismatch String +"RoleType" Value +v) + +instance HsJSONPB.ToJSON RoleType where + toJSON :: RoleType -> Value +toJSON = RoleType -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: RoleType -> Encoding -toEncoding = RoleType -> Encoding +HsJSONPB.toAesonValue + toEncoding :: RoleType -> Encoding +toEncoding = RoleType -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON RoleType where - parseJSON :: Value -> Parser RoleType -parseJSON = Value -> Parser RoleType +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON RoleType where + parseJSON :: Value -> Parser RoleType +parseJSON = Value -> Parser RoleType forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsProtobuf.Finite RoleType - -data ConnectionResponse = ConnectionResponse{ConnectionResponse -> Vector ConnectionResponse_RoleEntry +HsJSONPB.parseJSONPB + +instance HsProtobuf.Finite RoleType + +data ConnectionResponse = ConnectionResponse{ConnectionResponse -> Vector ConnectionResponse_RoleEntry connectionResponseRoles - :: - Hs.Vector - Data.Sawtooth.Authorization.ConnectionResponse_RoleEntry, - ConnectionResponse -> Enumerated ConnectionResponse_Status + :: + Hs.Vector + Data.Sawtooth.Authorization.ConnectionResponse_RoleEntry, + ConnectionResponse -> Enumerated ConnectionResponse_Status connectionResponseStatus :: - HsProtobuf.Enumerated - Data.Sawtooth.Authorization.ConnectionResponse_Status} - deriving (Int -> ConnectionResponse -> ShowS + HsProtobuf.Enumerated + Data.Sawtooth.Authorization.ConnectionResponse_Status} + deriving (Int -> ConnectionResponse -> ShowS [ConnectionResponse] -> ShowS ConnectionResponse -> String (Int -> ConnectionResponse -> ShowS) @@ -475,7 +506,7 @@ show :: ConnectionResponse -> String $cshow :: ConnectionResponse -> String showsPrec :: Int -> ConnectionResponse -> ShowS $cshowsPrec :: Int -> ConnectionResponse -> ShowS -Hs.Show, ConnectionResponse -> ConnectionResponse -> Bool +Hs.Show, ConnectionResponse -> ConnectionResponse -> Bool (ConnectionResponse -> ConnectionResponse -> Bool) -> (ConnectionResponse -> ConnectionResponse -> Bool) -> Eq ConnectionResponse @@ -484,9 +515,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: ConnectionResponse -> ConnectionResponse -> Bool == :: ConnectionResponse -> ConnectionResponse -> Bool $c== :: ConnectionResponse -> ConnectionResponse -> Bool -Hs.Eq, Eq ConnectionResponse -Eq ConnectionResponse => -(ConnectionResponse -> ConnectionResponse -> Ordering) +Hs.Eq, Eq ConnectionResponse +Eq ConnectionResponse +-> (ConnectionResponse -> ConnectionResponse -> Ordering) -> (ConnectionResponse -> ConnectionResponse -> Bool) -> (ConnectionResponse -> ConnectionResponse -> Bool) -> (ConnectionResponse -> ConnectionResponse -> Bool) @@ -498,8 +529,8 @@ ConnectionResponse -> ConnectionResponse -> Bool ConnectionResponse -> ConnectionResponse -> Ordering ConnectionResponse -> ConnectionResponse -> ConnectionResponse forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -522,7 +553,7 @@ $c< :: ConnectionResponse -> ConnectionResponse -> Bool compare :: ConnectionResponse -> ConnectionResponse -> Ordering $ccompare :: ConnectionResponse -> ConnectionResponse -> Ordering $cp1Ord :: Eq ConnectionResponse -Hs.Ord, (forall x. ConnectionResponse -> Rep ConnectionResponse x) +Hs.Ord, (forall x. ConnectionResponse -> Rep ConnectionResponse x) -> (forall x. Rep ConnectionResponse x -> ConnectionResponse) -> Generic ConnectionResponse forall x. Rep ConnectionResponse x -> ConnectionResponse @@ -531,64 +562,69 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep ConnectionResponse x -> ConnectionResponse $cfrom :: forall x. ConnectionResponse -> Rep ConnectionResponse x -Hs.Generic, ConnectionResponse -> () +Hs.Generic, ConnectionResponse -> () (ConnectionResponse -> ()) -> NFData ConnectionResponse forall a. (a -> ()) -> NFData a rnf :: ConnectionResponse -> () $crnf :: ConnectionResponse -> () -Hs.NFData) - -instance HsProtobuf.Named ConnectionResponse where - nameOf :: Proxy# ConnectionResponse -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ConnectionResponse where + nameOf :: Proxy# ConnectionResponse -> string +nameOf Proxy# ConnectionResponse +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ConnectionResponse") - -instance HsProtobuf.HasDefault ConnectionResponse - -instance HsProtobuf.Message ConnectionResponse where - encodeMessage :: FieldNumber -> ConnectionResponse -> MessageBuilder -encodeMessage _ - ConnectionResponse{connectionResponseRoles :: ConnectionResponse -> Vector ConnectionResponse_RoleEntry +Hs.fromString String +"ConnectionResponse") + +instance HsProtobuf.HasDefault ConnectionResponse + +instance HsProtobuf.Message ConnectionResponse where + encodeMessage :: FieldNumber -> ConnectionResponse -> MessageBuilder +encodeMessage FieldNumber +_ + ConnectionResponse{connectionResponseRoles :: ConnectionResponse -> Vector ConnectionResponse_RoleEntry connectionResponseRoles = - Vector ConnectionResponse_RoleEntry -connectionResponseRoles, - connectionResponseStatus :: ConnectionResponse -> Enumerated ConnectionResponse_Status -connectionResponseStatus = Enumerated ConnectionResponse_Status -connectionResponseStatus} - = ([MessageBuilder] -> MessageBuilder + Vector ConnectionResponse_RoleEntry +connectionResponseRoles, + connectionResponseStatus :: ConnectionResponse -> Enumerated ConnectionResponse_Status +connectionResponseStatus = Enumerated ConnectionResponse_Status +connectionResponseStatus} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber +Hs.mconcat + [(FieldNumber -> NestedVec ConnectionResponse_RoleEntry -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (Vector ConnectionResponse_RoleEntry +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (Vector ConnectionResponse_RoleEntry -> NestedVec ConnectionResponse_RoleEntry -forall a b. Coercible a b => a -> b -Hs.coerce - @(Hs.Vector Data.Sawtooth.Authorization.ConnectionResponse_RoleEntry) - @(HsProtobuf.NestedVec Data.Sawtooth.Authorization.ConnectionResponse_RoleEntry) - Vector ConnectionResponse_RoleEntry -connectionResponseRoles)), - (FieldNumber +Hs.coerce + @(Hs.Vector Data.Sawtooth.Authorization.ConnectionResponse_RoleEntry) + @(HsProtobuf.NestedVec Data.Sawtooth.Authorization.ConnectionResponse_RoleEntry) + Vector ConnectionResponse_RoleEntry +connectionResponseRoles)), + (FieldNumber -> Enumerated ConnectionResponse_Status -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - Enumerated ConnectionResponse_Status -connectionResponseStatus)]) - decodeMessage :: FieldNumber -> Parser RawMessage ConnectionResponse -decodeMessage _ - = ((Vector ConnectionResponse_RoleEntry +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + Enumerated ConnectionResponse_Status +connectionResponseStatus)]) + decodeMessage :: FieldNumber -> Parser RawMessage ConnectionResponse +decodeMessage FieldNumber +_ + = ((Vector ConnectionResponse_RoleEntry -> Enumerated ConnectionResponse_Status -> ConnectionResponse) -> Parser RawMessage (Vector ConnectionResponse_RoleEntry -> Enumerated ConnectionResponse_Status -> ConnectionResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector ConnectionResponse_RoleEntry +Hs.pure Vector ConnectionResponse_RoleEntry -> Enumerated ConnectionResponse_Status -> ConnectionResponse ConnectionResponse) Parser RawMessage @@ -599,126 +635,141 @@ forall (f :: * -> *) a. Applicative f => a -> f a RawMessage (Enumerated ConnectionResponse_Status -> ConnectionResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (NestedVec ConnectionResponse_RoleEntry) +<*> + (Parser RawMessage (NestedVec ConnectionResponse_RoleEntry) -> Parser RawMessage (Vector ConnectionResponse_RoleEntry) -forall a b. Coercible a b => a -> b -Hs.coerce - @(_ (HsProtobuf.NestedVec Data.Sawtooth.Authorization.ConnectionResponse_RoleEntry)) - @(_ (Hs.Vector Data.Sawtooth.Authorization.ConnectionResponse_RoleEntry)) - (Parser RawField (NestedVec ConnectionResponse_RoleEntry) +Hs.coerce + @(_ (HsProtobuf.NestedVec Data.Sawtooth.Authorization.ConnectionResponse_RoleEntry)) + @(_ (Hs.Vector Data.Sawtooth.Authorization.ConnectionResponse_RoleEntry)) + (Parser RawField (NestedVec ConnectionResponse_RoleEntry) -> FieldNumber -> Parser RawMessage (NestedVec ConnectionResponse_RoleEntry) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (NestedVec ConnectionResponse_RoleEntry) +HsProtobuf.at Parser RawField (NestedVec ConnectionResponse_RoleEntry) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1))) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1))) + Parser RawMessage (Enumerated ConnectionResponse_Status -> ConnectionResponse) -> Parser RawMessage (Enumerated ConnectionResponse_Status) -> Parser RawMessage ConnectionResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField (Enumerated ConnectionResponse_Status) +<*> + (Parser RawField (Enumerated ConnectionResponse_Status) -> FieldNumber -> Parser RawMessage (Enumerated ConnectionResponse_Status) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (Enumerated ConnectionResponse_Status) +HsProtobuf.at Parser RawField (Enumerated ConnectionResponse_Status) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2)) - dotProto :: Proxy# ConnectionResponse -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2)) + dotProto :: Proxy# ConnectionResponse -> [DotProtoField] +dotProto Proxy# ConnectionResponse +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Repeated - (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "RoleEntry"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "roles") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Repeated + (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"RoleEntry"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"roles") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "Status"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "status") - [] - "")] - -instance HsJSONPB.ToJSONPB ConnectionResponse where - toJSONPB :: ConnectionResponse -> Options -> Value -toJSONPB (ConnectionResponse f1 :: Vector ConnectionResponse_RoleEntry -f1 f2 :: Enumerated ConnectionResponse_Status -f2) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["roles" Text -> Vector ConnectionResponse_RoleEntry -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"Status"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"status") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ConnectionResponse where + toJSONPB :: ConnectionResponse -> Options -> Value +toJSONPB (ConnectionResponse Vector ConnectionResponse_RoleEntry +f1 Enumerated ConnectionResponse_Status +f2) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"roles" Text -> Vector ConnectionResponse_RoleEntry -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector ConnectionResponse_RoleEntry -f1, "status" Text -> Enumerated ConnectionResponse_Status -> Options -> [Pair] +.= Vector ConnectionResponse_RoleEntry +f1, Text +"status" Text -> Enumerated ConnectionResponse_Status -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated ConnectionResponse_Status -f2]) - toEncodingPB :: ConnectionResponse -> Options -> Encoding -toEncodingPB (ConnectionResponse f1 :: Vector ConnectionResponse_RoleEntry -f1 f2 :: Enumerated ConnectionResponse_Status -f2) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["roles" Text -> Vector ConnectionResponse_RoleEntry -> Options -> Series +.= Enumerated ConnectionResponse_Status +f2]) + toEncodingPB :: ConnectionResponse -> Options -> Encoding +toEncodingPB (ConnectionResponse Vector ConnectionResponse_RoleEntry +f1 Enumerated ConnectionResponse_Status +f2) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"roles" Text -> Vector ConnectionResponse_RoleEntry -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector ConnectionResponse_RoleEntry -f1, "status" Text -> Enumerated ConnectionResponse_Status -> Options -> Series +.= Vector ConnectionResponse_RoleEntry +f1, Text +"status" Text -> Enumerated ConnectionResponse_Status -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated ConnectionResponse_Status -f2]) - -instance HsJSONPB.FromJSONPB ConnectionResponse where - parseJSONPB :: Value -> Parser ConnectionResponse -parseJSONPB - = (String +.= Enumerated ConnectionResponse_Status +f2]) + +instance HsJSONPB.FromJSONPB ConnectionResponse where + parseJSONPB :: Value -> Parser ConnectionResponse +parseJSONPB + = (String -> (Object -> Parser ConnectionResponse) -> Value -> Parser ConnectionResponse forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ConnectionResponse" - (\ obj :: Object -obj -> - ((Vector ConnectionResponse_RoleEntry +HsJSONPB.withObject String +"ConnectionResponse" + (\ Object +obj -> + ((Vector ConnectionResponse_RoleEntry -> Enumerated ConnectionResponse_Status -> ConnectionResponse) -> Parser (Vector ConnectionResponse_RoleEntry -> Enumerated ConnectionResponse_Status -> ConnectionResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector ConnectionResponse_RoleEntry +Hs.pure Vector ConnectionResponse_RoleEntry -> Enumerated ConnectionResponse_Status -> ConnectionResponse ConnectionResponse) Parser (Vector ConnectionResponse_RoleEntry @@ -727,79 +778,82 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Parser (Enumerated ConnectionResponse_Status -> ConnectionResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser (Vector ConnectionResponse_RoleEntry) +<*> Object +obj Object -> Text -> Parser (Vector ConnectionResponse_RoleEntry) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "roles" Parser (Enumerated ConnectionResponse_Status -> ConnectionResponse) +.: Text +"roles" Parser (Enumerated ConnectionResponse_Status -> ConnectionResponse) -> Parser (Enumerated ConnectionResponse_Status) -> Parser ConnectionResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser (Enumerated ConnectionResponse_Status) +<*> + Object +obj Object -> Text -> Parser (Enumerated ConnectionResponse_Status) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "status")) - -instance HsJSONPB.ToJSON ConnectionResponse where - toJSON :: ConnectionResponse -> Value -toJSON = ConnectionResponse -> Value +.: Text +"status")) + +instance HsJSONPB.ToJSON ConnectionResponse where + toJSON :: ConnectionResponse -> Value +toJSON = ConnectionResponse -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ConnectionResponse -> Encoding -toEncoding = ConnectionResponse -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ConnectionResponse -> Encoding +toEncoding = ConnectionResponse -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ConnectionResponse where - parseJSON :: Value -> Parser ConnectionResponse -parseJSON = Value -> Parser ConnectionResponse +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ConnectionResponse where + parseJSON :: Value -> Parser ConnectionResponse +parseJSON = Value -> Parser ConnectionResponse forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ConnectionResponse where - declareNamedSchema :: Proxy ConnectionResponse +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ConnectionResponse where + declareNamedSchema :: Proxy ConnectionResponse -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_roles :: Proxy (OverrideToSchema (Vector ConnectionResponse_RoleEntry)) +declareNamedSchema Proxy ConnectionResponse +_ + = do let declare_roles :: Proxy (OverrideToSchema (Vector ConnectionResponse_RoleEntry)) -> Declare (Definitions Schema) (Referenced Schema) -declare_roles = Proxy (OverrideToSchema (Vector ConnectionResponse_RoleEntry)) +declare_roles = Proxy (OverrideToSchema (Vector ConnectionResponse_RoleEntry)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -connectionResponseRoles <- Proxy (OverrideToSchema (Vector ConnectionResponse_RoleEntry)) +HsJSONPB.declareSchemaRef + Referenced Schema +connectionResponseRoles <- Proxy (OverrideToSchema (Vector ConnectionResponse_RoleEntry)) -> Declare (Definitions Schema) (Referenced Schema) -declare_roles Proxy (OverrideToSchema (Vector ConnectionResponse_RoleEntry)) +declare_roles Proxy (OverrideToSchema (Vector ConnectionResponse_RoleEntry)) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_status :: Proxy (OverrideToSchema (Enumerated ConnectionResponse_Status)) +Proxy.Proxy + let declare_status :: Proxy (OverrideToSchema (Enumerated ConnectionResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status = Proxy (OverrideToSchema (Enumerated ConnectionResponse_Status)) +declare_status = Proxy (OverrideToSchema (Enumerated ConnectionResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -connectionResponseStatus <- Proxy (OverrideToSchema (Enumerated ConnectionResponse_Status)) +HsJSONPB.declareSchemaRef + Referenced Schema +connectionResponseStatus <- Proxy (OverrideToSchema (Enumerated ConnectionResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status Proxy (OverrideToSchema (Enumerated ConnectionResponse_Status)) +declare_status Proxy (OverrideToSchema (Enumerated ConnectionResponse_Status)) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ConnectionResponse +Proxy.Proxy + let Proxy ConnectionResponse _ = (Vector ConnectionResponse_RoleEntry -> Enumerated ConnectionResponse_Status -> ConnectionResponse) -> Proxy (Vector ConnectionResponse_RoleEntry -> Enumerated ConnectionResponse_Status -> ConnectionResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector ConnectionResponse_RoleEntry +Hs.pure Vector ConnectionResponse_RoleEntry -> Enumerated ConnectionResponse_Status -> ConnectionResponse ConnectionResponse Proxy (Vector ConnectionResponse_RoleEntry @@ -808,64 +862,67 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Proxy (Enumerated ConnectionResponse_Status -> ConnectionResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema (Vector ConnectionResponse_RoleEntry)) +<*> + (Proxy (OverrideToSchema (Vector ConnectionResponse_RoleEntry)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Vector ConnectionResponse_RoleEntry) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Vector ConnectionResponse_RoleEntry)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Vector ConnectionResponse_RoleEntry)) -> Declare (Definitions Schema) (Referenced Schema) -declare_roles - Proxy (Enumerated ConnectionResponse_Status -> ConnectionResponse) +declare_roles + Proxy (Enumerated ConnectionResponse_Status -> ConnectionResponse) -> Proxy (Enumerated ConnectionResponse_Status) -> Proxy ConnectionResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema (Enumerated ConnectionResponse_Status)) +<*> (Proxy (OverrideToSchema (Enumerated ConnectionResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Enumerated ConnectionResponse_Status) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Enumerated ConnectionResponse_Status)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Enumerated ConnectionResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_status + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ConnectionResponse", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ConnectionResponse", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("roles", Referenced Schema -connectionResponseRoles), - ("status", Referenced Schema -connectionResponseStatus)]}}) - -data ConnectionResponse_Status = ConnectionResponse_StatusSTATUS_UNSET - | ConnectionResponse_StatusOK - | ConnectionResponse_StatusERROR - deriving (Int -> ConnectionResponse_Status -> ShowS +HsJSONPB.insOrdFromList + [(Text +"roles", Referenced Schema +connectionResponseRoles), + (Text +"status", Referenced Schema +connectionResponseStatus)]}}) + +data ConnectionResponse_Status = ConnectionResponse_StatusSTATUS_UNSET + | ConnectionResponse_StatusOK + | ConnectionResponse_StatusERROR + deriving (Int -> ConnectionResponse_Status -> ShowS [ConnectionResponse_Status] -> ShowS ConnectionResponse_Status -> String (Int -> ConnectionResponse_Status -> ShowS) @@ -880,7 +937,7 @@ show :: ConnectionResponse_Status -> String $cshow :: ConnectionResponse_Status -> String showsPrec :: Int -> ConnectionResponse_Status -> ShowS $cshowsPrec :: Int -> ConnectionResponse_Status -> ShowS -Hs.Show, ConnectionResponse_Status -> ConnectionResponse_Status -> Bool +Hs.Show, ConnectionResponse_Status -> ConnectionResponse_Status -> Bool (ConnectionResponse_Status -> ConnectionResponse_Status -> Bool) -> (ConnectionResponse_Status -> ConnectionResponse_Status -> Bool) -> Eq ConnectionResponse_Status @@ -889,7 +946,7 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: ConnectionResponse_Status -> ConnectionResponse_Status -> Bool == :: ConnectionResponse_Status -> ConnectionResponse_Status -> Bool $c== :: ConnectionResponse_Status -> ConnectionResponse_Status -> Bool -Hs.Eq, (forall x. +Hs.Eq, (forall x. ConnectionResponse_Status -> Rep ConnectionResponse_Status x) -> (forall x. Rep ConnectionResponse_Status x -> ConnectionResponse_Status) @@ -904,131 +961,146 @@ $cto :: forall x. Rep ConnectionResponse_Status x -> ConnectionResponse_Status $cfrom :: forall x. ConnectionResponse_Status -> Rep ConnectionResponse_Status x -Hs.Generic, ConnectionResponse_Status -> () +Hs.Generic, ConnectionResponse_Status -> () (ConnectionResponse_Status -> ()) -> NFData ConnectionResponse_Status forall a. (a -> ()) -> NFData a rnf :: ConnectionResponse_Status -> () $crnf :: ConnectionResponse_Status -> () -Hs.NFData) - -instance HsProtobuf.Named ConnectionResponse_Status where - nameOf :: Proxy# ConnectionResponse_Status -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ConnectionResponse_Status where + nameOf :: Proxy# ConnectionResponse_Status -> string +nameOf Proxy# ConnectionResponse_Status +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ConnectionResponse_Status") - -instance HsProtobuf.HasDefault ConnectionResponse_Status - -instance Hs.Bounded ConnectionResponse_Status where - minBound :: ConnectionResponse_Status -minBound = ConnectionResponse_Status +Hs.fromString String +"ConnectionResponse_Status") + +instance HsProtobuf.HasDefault ConnectionResponse_Status + +instance Hs.Bounded ConnectionResponse_Status where + minBound :: ConnectionResponse_Status +minBound = ConnectionResponse_Status ConnectionResponse_StatusSTATUS_UNSET - maxBound :: ConnectionResponse_Status -maxBound = ConnectionResponse_Status + maxBound :: ConnectionResponse_Status +maxBound = ConnectionResponse_Status ConnectionResponse_StatusERROR - -instance Hs.Ord ConnectionResponse_Status where - compare :: ConnectionResponse_Status -> ConnectionResponse_Status -> Ordering -compare x :: ConnectionResponse_Status -x y :: ConnectionResponse_Status -y - = Int32 -> Int32 -> Ordering + +instance Hs.Ord ConnectionResponse_Status where + compare :: ConnectionResponse_Status -> ConnectionResponse_Status -> Ordering +compare ConnectionResponse_Status +x ConnectionResponse_Status +y + = Int32 -> Int32 -> Ordering forall a. Ord a => a -> a -> Ordering -Hs.compare (ConnectionResponse_Status -> Int32 +Hs.compare (ConnectionResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum ConnectionResponse_Status -x) - (ConnectionResponse_Status -> Int32 +HsProtobuf.fromProtoEnum ConnectionResponse_Status +x) + (ConnectionResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum ConnectionResponse_Status -y) - -instance HsProtobuf.ProtoEnum ConnectionResponse_Status where - toProtoEnumMay :: Int32 -> Maybe ConnectionResponse_Status -toProtoEnumMay 0 = ConnectionResponse_Status -> Maybe ConnectionResponse_Status +HsProtobuf.fromProtoEnum ConnectionResponse_Status +y) + +instance HsProtobuf.ProtoEnum ConnectionResponse_Status where + toProtoEnumMay :: Int32 -> Maybe ConnectionResponse_Status +toProtoEnumMay Int32 +0 = ConnectionResponse_Status -> Maybe ConnectionResponse_Status forall a. a -> Maybe a -Hs.Just ConnectionResponse_Status +Hs.Just ConnectionResponse_Status ConnectionResponse_StatusSTATUS_UNSET - toProtoEnumMay 1 = ConnectionResponse_Status -> Maybe ConnectionResponse_Status + toProtoEnumMay Int32 +1 = ConnectionResponse_Status -> Maybe ConnectionResponse_Status forall a. a -> Maybe a -Hs.Just ConnectionResponse_Status +Hs.Just ConnectionResponse_Status ConnectionResponse_StatusOK - toProtoEnumMay 2 = ConnectionResponse_Status -> Maybe ConnectionResponse_Status + toProtoEnumMay Int32 +2 = ConnectionResponse_Status -> Maybe ConnectionResponse_Status forall a. a -> Maybe a -Hs.Just ConnectionResponse_Status +Hs.Just ConnectionResponse_Status ConnectionResponse_StatusERROR - toProtoEnumMay _ = Maybe ConnectionResponse_Status + toProtoEnumMay Int32 +_ = Maybe ConnectionResponse_Status forall a. Maybe a -Hs.Nothing - fromProtoEnum :: ConnectionResponse_Status -> Int32 -fromProtoEnum (ConnectionResponse_Status -ConnectionResponse_StatusSTATUS_UNSET) = 0 - fromProtoEnum (ConnectionResponse_Status -ConnectionResponse_StatusOK) = 1 - fromProtoEnum (ConnectionResponse_Status -ConnectionResponse_StatusERROR) = 2 - -instance HsJSONPB.ToJSONPB ConnectionResponse_Status where - toJSONPB :: ConnectionResponse_Status -> Options -> Value -toJSONPB x :: ConnectionResponse_Status -x _ = ConnectionResponse_Status -> Value +Hs.Nothing + fromProtoEnum :: ConnectionResponse_Status -> Int32 +fromProtoEnum (ConnectionResponse_Status +ConnectionResponse_StatusSTATUS_UNSET) = Int32 +0 + fromProtoEnum (ConnectionResponse_Status +ConnectionResponse_StatusOK) = Int32 +1 + fromProtoEnum (ConnectionResponse_Status +ConnectionResponse_StatusERROR) = Int32 +2 + +instance HsJSONPB.ToJSONPB ConnectionResponse_Status where + toJSONPB :: ConnectionResponse_Status -> Options -> Value +toJSONPB ConnectionResponse_Status +x Options +_ = ConnectionResponse_Status -> Value forall a. (Named a, Show a) => a -> Value -HsJSONPB.enumFieldString ConnectionResponse_Status -x - toEncodingPB :: ConnectionResponse_Status -> Options -> Encoding -toEncodingPB x :: ConnectionResponse_Status -x _ = ConnectionResponse_Status -> Encoding +HsJSONPB.enumFieldString ConnectionResponse_Status +x + toEncodingPB :: ConnectionResponse_Status -> Options -> Encoding +toEncodingPB ConnectionResponse_Status +x Options +_ = ConnectionResponse_Status -> Encoding forall a. (Named a, Show a) => a -> Encoding -HsJSONPB.enumFieldEncoding ConnectionResponse_Status -x - -instance HsJSONPB.FromJSONPB ConnectionResponse_Status where - parseJSONPB :: Value -> Parser ConnectionResponse_Status -parseJSONPB (HsJSONPB.String "STATUS_UNSET") - = ConnectionResponse_Status -> Parser ConnectionResponse_Status +HsJSONPB.enumFieldEncoding ConnectionResponse_Status +x + +instance HsJSONPB.FromJSONPB ConnectionResponse_Status where + parseJSONPB :: Value -> Parser ConnectionResponse_Status +parseJSONPB (HsJSONPB.String Text +"STATUS_UNSET") + = ConnectionResponse_Status -> Parser ConnectionResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConnectionResponse_Status +Hs.pure ConnectionResponse_Status ConnectionResponse_StatusSTATUS_UNSET - parseJSONPB (HsJSONPB.String "OK") - = ConnectionResponse_Status -> Parser ConnectionResponse_Status + parseJSONPB (HsJSONPB.String Text +"OK") + = ConnectionResponse_Status -> Parser ConnectionResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConnectionResponse_Status +Hs.pure ConnectionResponse_Status ConnectionResponse_StatusOK - parseJSONPB (HsJSONPB.String "ERROR") - = ConnectionResponse_Status -> Parser ConnectionResponse_Status + parseJSONPB (HsJSONPB.String Text +"ERROR") + = ConnectionResponse_Status -> Parser ConnectionResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConnectionResponse_Status +Hs.pure ConnectionResponse_Status ConnectionResponse_StatusERROR - parseJSONPB v :: Value -v - = (String -> Value -> Parser ConnectionResponse_Status + parseJSONPB Value +v + = (String -> Value -> Parser ConnectionResponse_Status forall a. String -> Value -> Parser a -HsJSONPB.typeMismatch "ConnectionResponse_Status" Value -v) - -instance HsJSONPB.ToJSON ConnectionResponse_Status where - toJSON :: ConnectionResponse_Status -> Value -toJSON = ConnectionResponse_Status -> Value +HsJSONPB.typeMismatch String +"ConnectionResponse_Status" Value +v) + +instance HsJSONPB.ToJSON ConnectionResponse_Status where + toJSON :: ConnectionResponse_Status -> Value +toJSON = ConnectionResponse_Status -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ConnectionResponse_Status -> Encoding -toEncoding = ConnectionResponse_Status -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ConnectionResponse_Status -> Encoding +toEncoding = ConnectionResponse_Status -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ConnectionResponse_Status where - parseJSON :: Value -> Parser ConnectionResponse_Status -parseJSON = Value -> Parser ConnectionResponse_Status +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ConnectionResponse_Status where + parseJSON :: Value -> Parser ConnectionResponse_Status +parseJSON = Value -> Parser ConnectionResponse_Status forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsProtobuf.Finite ConnectionResponse_Status - -data ConnectionResponse_AuthorizationType = ConnectionResponse_AuthorizationTypeAUTHORIZATION_TYPE_UNSET - | ConnectionResponse_AuthorizationTypeTRUST - | ConnectionResponse_AuthorizationTypeCHALLENGE - deriving (Int -> ConnectionResponse_AuthorizationType -> ShowS +HsJSONPB.parseJSONPB + +instance HsProtobuf.Finite ConnectionResponse_Status + +data ConnectionResponse_AuthorizationType = ConnectionResponse_AuthorizationTypeAUTHORIZATION_TYPE_UNSET + | ConnectionResponse_AuthorizationTypeTRUST + | ConnectionResponse_AuthorizationTypeCHALLENGE + deriving (Int -> ConnectionResponse_AuthorizationType -> ShowS [ConnectionResponse_AuthorizationType] -> ShowS ConnectionResponse_AuthorizationType -> String (Int -> ConnectionResponse_AuthorizationType -> ShowS) @@ -1043,7 +1115,7 @@ show :: ConnectionResponse_AuthorizationType -> String $cshow :: ConnectionResponse_AuthorizationType -> String showsPrec :: Int -> ConnectionResponse_AuthorizationType -> ShowS $cshowsPrec :: Int -> ConnectionResponse_AuthorizationType -> ShowS -Hs.Show, ConnectionResponse_AuthorizationType +Hs.Show, ConnectionResponse_AuthorizationType -> ConnectionResponse_AuthorizationType -> Bool (ConnectionResponse_AuthorizationType -> ConnectionResponse_AuthorizationType -> Bool) @@ -1059,7 +1131,7 @@ $c/= :: ConnectionResponse_AuthorizationType -> ConnectionResponse_AuthorizationType -> Bool $c== :: ConnectionResponse_AuthorizationType -> ConnectionResponse_AuthorizationType -> Bool -Hs.Eq, (forall x. +Hs.Eq, (forall x. ConnectionResponse_AuthorizationType -> Rep ConnectionResponse_AuthorizationType x) -> (forall x. @@ -1080,158 +1152,173 @@ Rep ConnectionResponse_AuthorizationType x $cfrom :: forall x. ConnectionResponse_AuthorizationType -> Rep ConnectionResponse_AuthorizationType x -Hs.Generic, ConnectionResponse_AuthorizationType -> () +Hs.Generic, ConnectionResponse_AuthorizationType -> () (ConnectionResponse_AuthorizationType -> ()) -> NFData ConnectionResponse_AuthorizationType forall a. (a -> ()) -> NFData a rnf :: ConnectionResponse_AuthorizationType -> () $crnf :: ConnectionResponse_AuthorizationType -> () -Hs.NFData) - -instance HsProtobuf.Named ConnectionResponse_AuthorizationType - where - nameOf :: Proxy# ConnectionResponse_AuthorizationType -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ConnectionResponse_AuthorizationType + where + nameOf :: Proxy# ConnectionResponse_AuthorizationType -> string +nameOf Proxy# ConnectionResponse_AuthorizationType +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ConnectionResponse_AuthorizationType") - -instance HsProtobuf.HasDefault ConnectionResponse_AuthorizationType - -instance Hs.Bounded ConnectionResponse_AuthorizationType where - minBound :: ConnectionResponse_AuthorizationType -minBound - = ConnectionResponse_AuthorizationType +Hs.fromString String +"ConnectionResponse_AuthorizationType") + +instance HsProtobuf.HasDefault ConnectionResponse_AuthorizationType + +instance Hs.Bounded ConnectionResponse_AuthorizationType where + minBound :: ConnectionResponse_AuthorizationType +minBound + = ConnectionResponse_AuthorizationType ConnectionResponse_AuthorizationTypeAUTHORIZATION_TYPE_UNSET - maxBound :: ConnectionResponse_AuthorizationType -maxBound = ConnectionResponse_AuthorizationType + maxBound :: ConnectionResponse_AuthorizationType +maxBound = ConnectionResponse_AuthorizationType ConnectionResponse_AuthorizationTypeCHALLENGE - -instance Hs.Ord ConnectionResponse_AuthorizationType where - compare :: ConnectionResponse_AuthorizationType + +instance Hs.Ord ConnectionResponse_AuthorizationType where + compare :: ConnectionResponse_AuthorizationType -> ConnectionResponse_AuthorizationType -> Ordering -compare x :: ConnectionResponse_AuthorizationType -x y :: ConnectionResponse_AuthorizationType -y - = Int32 -> Int32 -> Ordering +compare ConnectionResponse_AuthorizationType +x ConnectionResponse_AuthorizationType +y + = Int32 -> Int32 -> Ordering forall a. Ord a => a -> a -> Ordering -Hs.compare (ConnectionResponse_AuthorizationType -> Int32 +Hs.compare (ConnectionResponse_AuthorizationType -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum ConnectionResponse_AuthorizationType -x) - (ConnectionResponse_AuthorizationType -> Int32 +HsProtobuf.fromProtoEnum ConnectionResponse_AuthorizationType +x) + (ConnectionResponse_AuthorizationType -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum ConnectionResponse_AuthorizationType -y) - -instance HsProtobuf.ProtoEnum ConnectionResponse_AuthorizationType - where - toProtoEnumMay :: Int32 -> Maybe ConnectionResponse_AuthorizationType -toProtoEnumMay 0 - = ConnectionResponse_AuthorizationType +HsProtobuf.fromProtoEnum ConnectionResponse_AuthorizationType +y) + +instance HsProtobuf.ProtoEnum ConnectionResponse_AuthorizationType + where + toProtoEnumMay :: Int32 -> Maybe ConnectionResponse_AuthorizationType +toProtoEnumMay Int32 +0 + = ConnectionResponse_AuthorizationType -> Maybe ConnectionResponse_AuthorizationType forall a. a -> Maybe a -Hs.Just - ConnectionResponse_AuthorizationType +Hs.Just + ConnectionResponse_AuthorizationType ConnectionResponse_AuthorizationTypeAUTHORIZATION_TYPE_UNSET - toProtoEnumMay 1 - = ConnectionResponse_AuthorizationType + toProtoEnumMay Int32 +1 + = ConnectionResponse_AuthorizationType -> Maybe ConnectionResponse_AuthorizationType forall a. a -> Maybe a -Hs.Just ConnectionResponse_AuthorizationType +Hs.Just ConnectionResponse_AuthorizationType ConnectionResponse_AuthorizationTypeTRUST - toProtoEnumMay 2 - = ConnectionResponse_AuthorizationType + toProtoEnumMay Int32 +2 + = ConnectionResponse_AuthorizationType -> Maybe ConnectionResponse_AuthorizationType forall a. a -> Maybe a -Hs.Just ConnectionResponse_AuthorizationType +Hs.Just ConnectionResponse_AuthorizationType ConnectionResponse_AuthorizationTypeCHALLENGE - toProtoEnumMay _ = Maybe ConnectionResponse_AuthorizationType + toProtoEnumMay Int32 +_ = Maybe ConnectionResponse_AuthorizationType forall a. Maybe a -Hs.Nothing - fromProtoEnum :: ConnectionResponse_AuthorizationType -> Int32 -fromProtoEnum - (ConnectionResponse_AuthorizationType -ConnectionResponse_AuthorizationTypeAUTHORIZATION_TYPE_UNSET) = 0 - fromProtoEnum (ConnectionResponse_AuthorizationType -ConnectionResponse_AuthorizationTypeTRUST) = 1 - fromProtoEnum (ConnectionResponse_AuthorizationType -ConnectionResponse_AuthorizationTypeCHALLENGE) = 2 - -instance HsJSONPB.ToJSONPB ConnectionResponse_AuthorizationType - where - toJSONPB :: ConnectionResponse_AuthorizationType -> Options -> Value -toJSONPB x :: ConnectionResponse_AuthorizationType -x _ = ConnectionResponse_AuthorizationType -> Value +Hs.Nothing + fromProtoEnum :: ConnectionResponse_AuthorizationType -> Int32 +fromProtoEnum + (ConnectionResponse_AuthorizationType +ConnectionResponse_AuthorizationTypeAUTHORIZATION_TYPE_UNSET) = Int32 +0 + fromProtoEnum (ConnectionResponse_AuthorizationType +ConnectionResponse_AuthorizationTypeTRUST) = Int32 +1 + fromProtoEnum (ConnectionResponse_AuthorizationType +ConnectionResponse_AuthorizationTypeCHALLENGE) = Int32 +2 + +instance HsJSONPB.ToJSONPB ConnectionResponse_AuthorizationType + where + toJSONPB :: ConnectionResponse_AuthorizationType -> Options -> Value +toJSONPB ConnectionResponse_AuthorizationType +x Options +_ = ConnectionResponse_AuthorizationType -> Value forall a. (Named a, Show a) => a -> Value -HsJSONPB.enumFieldString ConnectionResponse_AuthorizationType -x - toEncodingPB :: ConnectionResponse_AuthorizationType -> Options -> Encoding -toEncodingPB x :: ConnectionResponse_AuthorizationType -x _ = ConnectionResponse_AuthorizationType -> Encoding +HsJSONPB.enumFieldString ConnectionResponse_AuthorizationType +x + toEncodingPB :: ConnectionResponse_AuthorizationType -> Options -> Encoding +toEncodingPB ConnectionResponse_AuthorizationType +x Options +_ = ConnectionResponse_AuthorizationType -> Encoding forall a. (Named a, Show a) => a -> Encoding -HsJSONPB.enumFieldEncoding ConnectionResponse_AuthorizationType -x - -instance HsJSONPB.FromJSONPB ConnectionResponse_AuthorizationType - where - parseJSONPB :: Value -> Parser ConnectionResponse_AuthorizationType -parseJSONPB (HsJSONPB.String "AUTHORIZATION_TYPE_UNSET") - = ConnectionResponse_AuthorizationType +HsJSONPB.enumFieldEncoding ConnectionResponse_AuthorizationType +x + +instance HsJSONPB.FromJSONPB ConnectionResponse_AuthorizationType + where + parseJSONPB :: Value -> Parser ConnectionResponse_AuthorizationType +parseJSONPB (HsJSONPB.String Text +"AUTHORIZATION_TYPE_UNSET") + = ConnectionResponse_AuthorizationType -> Parser ConnectionResponse_AuthorizationType forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure - ConnectionResponse_AuthorizationType +Hs.pure + ConnectionResponse_AuthorizationType ConnectionResponse_AuthorizationTypeAUTHORIZATION_TYPE_UNSET - parseJSONPB (HsJSONPB.String "TRUST") - = ConnectionResponse_AuthorizationType + parseJSONPB (HsJSONPB.String Text +"TRUST") + = ConnectionResponse_AuthorizationType -> Parser ConnectionResponse_AuthorizationType forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConnectionResponse_AuthorizationType +Hs.pure ConnectionResponse_AuthorizationType ConnectionResponse_AuthorizationTypeTRUST - parseJSONPB (HsJSONPB.String "CHALLENGE") - = ConnectionResponse_AuthorizationType + parseJSONPB (HsJSONPB.String Text +"CHALLENGE") + = ConnectionResponse_AuthorizationType -> Parser ConnectionResponse_AuthorizationType forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConnectionResponse_AuthorizationType +Hs.pure ConnectionResponse_AuthorizationType ConnectionResponse_AuthorizationTypeCHALLENGE - parseJSONPB v :: Value -v - = (String -> Value -> Parser ConnectionResponse_AuthorizationType + parseJSONPB Value +v + = (String -> Value -> Parser ConnectionResponse_AuthorizationType forall a. String -> Value -> Parser a -HsJSONPB.typeMismatch "ConnectionResponse_AuthorizationType" Value -v) - -instance HsJSONPB.ToJSON ConnectionResponse_AuthorizationType where - toJSON :: ConnectionResponse_AuthorizationType -> Value -toJSON = ConnectionResponse_AuthorizationType -> Value +HsJSONPB.typeMismatch String +"ConnectionResponse_AuthorizationType" Value +v) + +instance HsJSONPB.ToJSON ConnectionResponse_AuthorizationType where + toJSON :: ConnectionResponse_AuthorizationType -> Value +toJSON = ConnectionResponse_AuthorizationType -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ConnectionResponse_AuthorizationType -> Encoding -toEncoding = ConnectionResponse_AuthorizationType -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ConnectionResponse_AuthorizationType -> Encoding +toEncoding = ConnectionResponse_AuthorizationType -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ConnectionResponse_AuthorizationType - where - parseJSON :: Value -> Parser ConnectionResponse_AuthorizationType -parseJSON = Value -> Parser ConnectionResponse_AuthorizationType +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ConnectionResponse_AuthorizationType + where + parseJSON :: Value -> Parser ConnectionResponse_AuthorizationType +parseJSON = Value -> Parser ConnectionResponse_AuthorizationType forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsProtobuf.Finite ConnectionResponse_AuthorizationType - -data ConnectionResponse_RoleEntry = ConnectionResponse_RoleEntry{ConnectionResponse_RoleEntry -> Enumerated RoleType +HsJSONPB.parseJSONPB + +instance HsProtobuf.Finite ConnectionResponse_AuthorizationType + +data ConnectionResponse_RoleEntry = ConnectionResponse_RoleEntry{ConnectionResponse_RoleEntry -> Enumerated RoleType connectionResponse_RoleEntryRole - :: - HsProtobuf.Enumerated - Data.Sawtooth.Authorization.RoleType, - ConnectionResponse_RoleEntry + :: + HsProtobuf.Enumerated + Data.Sawtooth.Authorization.RoleType, + ConnectionResponse_RoleEntry -> Enumerated ConnectionResponse_AuthorizationType connectionResponse_RoleEntryAuthType - :: - HsProtobuf.Enumerated - Data.Sawtooth.Authorization.ConnectionResponse_AuthorizationType} - deriving (Int -> ConnectionResponse_RoleEntry -> ShowS + :: + HsProtobuf.Enumerated + Data.Sawtooth.Authorization.ConnectionResponse_AuthorizationType} + deriving (Int -> ConnectionResponse_RoleEntry -> ShowS [ConnectionResponse_RoleEntry] -> ShowS ConnectionResponse_RoleEntry -> String (Int -> ConnectionResponse_RoleEntry -> ShowS) @@ -1246,7 +1333,7 @@ show :: ConnectionResponse_RoleEntry -> String $cshow :: ConnectionResponse_RoleEntry -> String showsPrec :: Int -> ConnectionResponse_RoleEntry -> ShowS $cshowsPrec :: Int -> ConnectionResponse_RoleEntry -> ShowS -Hs.Show, ConnectionResponse_RoleEntry +Hs.Show, ConnectionResponse_RoleEntry -> ConnectionResponse_RoleEntry -> Bool (ConnectionResponse_RoleEntry -> ConnectionResponse_RoleEntry -> Bool) @@ -1262,10 +1349,10 @@ $c/= :: ConnectionResponse_RoleEntry -> ConnectionResponse_RoleEntry -> Bool $c== :: ConnectionResponse_RoleEntry -> ConnectionResponse_RoleEntry -> Bool -Hs.Eq, Eq ConnectionResponse_RoleEntry -Eq ConnectionResponse_RoleEntry => -(ConnectionResponse_RoleEntry - -> ConnectionResponse_RoleEntry -> Ordering) +Hs.Eq, Eq ConnectionResponse_RoleEntry +Eq ConnectionResponse_RoleEntry +-> (ConnectionResponse_RoleEntry + -> ConnectionResponse_RoleEntry -> Ordering) -> (ConnectionResponse_RoleEntry -> ConnectionResponse_RoleEntry -> Bool) -> (ConnectionResponse_RoleEntry @@ -1286,8 +1373,8 @@ ConnectionResponse_RoleEntry ConnectionResponse_RoleEntry -> ConnectionResponse_RoleEntry -> ConnectionResponse_RoleEntry forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -1324,7 +1411,7 @@ compare :: ConnectionResponse_RoleEntry $ccompare :: ConnectionResponse_RoleEntry -> ConnectionResponse_RoleEntry -> Ordering $cp1Ord :: Eq ConnectionResponse_RoleEntry -Hs.Ord, (forall x. +Hs.Ord, (forall x. ConnectionResponse_RoleEntry -> Rep ConnectionResponse_RoleEntry x) -> (forall x. Rep ConnectionResponse_RoleEntry x -> ConnectionResponse_RoleEntry) @@ -1339,54 +1426,60 @@ $cto :: forall x. Rep ConnectionResponse_RoleEntry x -> ConnectionResponse_RoleEntry $cfrom :: forall x. ConnectionResponse_RoleEntry -> Rep ConnectionResponse_RoleEntry x -Hs.Generic, ConnectionResponse_RoleEntry -> () +Hs.Generic, ConnectionResponse_RoleEntry -> () (ConnectionResponse_RoleEntry -> ()) -> NFData ConnectionResponse_RoleEntry forall a. (a -> ()) -> NFData a rnf :: ConnectionResponse_RoleEntry -> () $crnf :: ConnectionResponse_RoleEntry -> () -Hs.NFData) - -instance HsProtobuf.Named ConnectionResponse_RoleEntry where - nameOf :: Proxy# ConnectionResponse_RoleEntry -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ConnectionResponse_RoleEntry where + nameOf :: Proxy# ConnectionResponse_RoleEntry -> string +nameOf Proxy# ConnectionResponse_RoleEntry +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ConnectionResponse_RoleEntry") - -instance HsProtobuf.HasDefault ConnectionResponse_RoleEntry - -instance HsProtobuf.Message ConnectionResponse_RoleEntry where - encodeMessage :: FieldNumber -> ConnectionResponse_RoleEntry -> MessageBuilder -encodeMessage _ - ConnectionResponse_RoleEntry{connectionResponse_RoleEntryRole :: ConnectionResponse_RoleEntry -> Enumerated RoleType +Hs.fromString String +"ConnectionResponse_RoleEntry") + +instance HsProtobuf.HasDefault ConnectionResponse_RoleEntry + +instance HsProtobuf.Message ConnectionResponse_RoleEntry where + encodeMessage :: FieldNumber -> ConnectionResponse_RoleEntry -> MessageBuilder +encodeMessage FieldNumber +_ + ConnectionResponse_RoleEntry{connectionResponse_RoleEntryRole :: ConnectionResponse_RoleEntry -> Enumerated RoleType connectionResponse_RoleEntryRole = - Enumerated RoleType -connectionResponse_RoleEntryRole, - connectionResponse_RoleEntryAuthType :: ConnectionResponse_RoleEntry + Enumerated RoleType +connectionResponse_RoleEntryRole, + connectionResponse_RoleEntryAuthType :: ConnectionResponse_RoleEntry -> Enumerated ConnectionResponse_AuthorizationType connectionResponse_RoleEntryAuthType = - Enumerated ConnectionResponse_AuthorizationType -connectionResponse_RoleEntryAuthType} - = ([MessageBuilder] -> MessageBuilder + Enumerated ConnectionResponse_AuthorizationType +connectionResponse_RoleEntryAuthType} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> Enumerated RoleType -> MessageBuilder +Hs.mconcat + [(FieldNumber -> Enumerated RoleType -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Enumerated RoleType -connectionResponse_RoleEntryRole), - (FieldNumber +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Enumerated RoleType +connectionResponse_RoleEntryRole), + (FieldNumber -> Enumerated ConnectionResponse_AuthorizationType -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - Enumerated ConnectionResponse_AuthorizationType -connectionResponse_RoleEntryAuthType)]) - decodeMessage :: FieldNumber -> Parser RawMessage ConnectionResponse_RoleEntry -decodeMessage _ - = ((Enumerated RoleType +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + Enumerated ConnectionResponse_AuthorizationType +connectionResponse_RoleEntryAuthType)]) + decodeMessage :: FieldNumber -> Parser RawMessage ConnectionResponse_RoleEntry +decodeMessage FieldNumber +_ + = ((Enumerated RoleType -> Enumerated ConnectionResponse_AuthorizationType -> ConnectionResponse_RoleEntry) -> Parser @@ -1395,7 +1488,7 @@ forall a. MessageField a => FieldNumber -> a -> MessageBuilder -> Enumerated ConnectionResponse_AuthorizationType -> ConnectionResponse_RoleEntry) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated RoleType +Hs.pure Enumerated RoleType -> Enumerated ConnectionResponse_AuthorizationType -> ConnectionResponse_RoleEntry ConnectionResponse_RoleEntry) Parser @@ -1409,16 +1502,17 @@ forall (f :: * -> *) a. Applicative f => a -> f a (Enumerated ConnectionResponse_AuthorizationType -> ConnectionResponse_RoleEntry) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField (Enumerated RoleType) +<*> + (Parser RawField (Enumerated RoleType) -> FieldNumber -> Parser RawMessage (Enumerated RoleType) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (Enumerated RoleType) +HsProtobuf.at Parser RawField (Enumerated RoleType) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (Enumerated ConnectionResponse_AuthorizationType -> ConnectionResponse_RoleEntry) @@ -1426,105 +1520,120 @@ forall a. MessageField a => Parser RawField a RawMessage (Enumerated ConnectionResponse_AuthorizationType) -> Parser RawMessage ConnectionResponse_RoleEntry forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField (Enumerated ConnectionResponse_AuthorizationType) +<*> + (Parser RawField (Enumerated ConnectionResponse_AuthorizationType) -> FieldNumber -> Parser RawMessage (Enumerated ConnectionResponse_AuthorizationType) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (Enumerated ConnectionResponse_AuthorizationType) +HsProtobuf.at Parser RawField (Enumerated ConnectionResponse_AuthorizationType) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2)) - dotProto :: Proxy# ConnectionResponse_RoleEntry -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2)) + dotProto :: Proxy# ConnectionResponse_RoleEntry -> [DotProtoField] +dotProto Proxy# ConnectionResponse_RoleEntry +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "RoleType"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "role") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"RoleType"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"role") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim - (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "AuthorizationType"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "auth_type") - [] - "")] - -instance HsJSONPB.ToJSONPB ConnectionResponse_RoleEntry where - toJSONPB :: ConnectionResponse_RoleEntry -> Options -> Value -toJSONPB (ConnectionResponse_RoleEntry f1 :: Enumerated RoleType -f1 f2 :: Enumerated ConnectionResponse_AuthorizationType -f2) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["role" Text -> Enumerated RoleType -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim + (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"AuthorizationType"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"auth_type") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ConnectionResponse_RoleEntry where + toJSONPB :: ConnectionResponse_RoleEntry -> Options -> Value +toJSONPB (ConnectionResponse_RoleEntry Enumerated RoleType +f1 Enumerated ConnectionResponse_AuthorizationType +f2) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"role" Text -> Enumerated RoleType -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated RoleType -f1, "auth_type" Text +.= Enumerated RoleType +f1, Text +"auth_type" Text -> Enumerated ConnectionResponse_AuthorizationType -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated ConnectionResponse_AuthorizationType -f2]) - toEncodingPB :: ConnectionResponse_RoleEntry -> Options -> Encoding -toEncodingPB (ConnectionResponse_RoleEntry f1 :: Enumerated RoleType -f1 f2 :: Enumerated ConnectionResponse_AuthorizationType -f2) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["role" Text -> Enumerated RoleType -> Options -> Series +.= Enumerated ConnectionResponse_AuthorizationType +f2]) + toEncodingPB :: ConnectionResponse_RoleEntry -> Options -> Encoding +toEncodingPB (ConnectionResponse_RoleEntry Enumerated RoleType +f1 Enumerated ConnectionResponse_AuthorizationType +f2) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"role" Text -> Enumerated RoleType -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated RoleType -f1, "auth_type" Text +.= Enumerated RoleType +f1, Text +"auth_type" Text -> Enumerated ConnectionResponse_AuthorizationType -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated ConnectionResponse_AuthorizationType -f2]) - -instance HsJSONPB.FromJSONPB ConnectionResponse_RoleEntry where - parseJSONPB :: Value -> Parser ConnectionResponse_RoleEntry -parseJSONPB - = (String +.= Enumerated ConnectionResponse_AuthorizationType +f2]) + +instance HsJSONPB.FromJSONPB ConnectionResponse_RoleEntry where + parseJSONPB :: Value -> Parser ConnectionResponse_RoleEntry +parseJSONPB + = (String -> (Object -> Parser ConnectionResponse_RoleEntry) -> Value -> Parser ConnectionResponse_RoleEntry forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ConnectionResponse_RoleEntry" - (\ obj :: Object -obj -> - ((Enumerated RoleType +HsJSONPB.withObject String +"ConnectionResponse_RoleEntry" + (\ Object +obj -> + ((Enumerated RoleType -> Enumerated ConnectionResponse_AuthorizationType -> ConnectionResponse_RoleEntry) -> Parser @@ -1532,7 +1641,7 @@ forall a. String -> (Object -> Parser a) -> Value -> Parser a -> Enumerated ConnectionResponse_AuthorizationType -> ConnectionResponse_RoleEntry) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated RoleType +Hs.pure Enumerated RoleType -> Enumerated ConnectionResponse_AuthorizationType -> ConnectionResponse_RoleEntry ConnectionResponse_RoleEntry) Parser @@ -1544,84 +1653,87 @@ forall (f :: * -> *) a. Applicative f => a -> f a (Enumerated ConnectionResponse_AuthorizationType -> ConnectionResponse_RoleEntry) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser (Enumerated RoleType) +<*> Object +obj Object -> Text -> Parser (Enumerated RoleType) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "role" Parser +.: Text +"role" Parser (Enumerated ConnectionResponse_AuthorizationType -> ConnectionResponse_RoleEntry) -> Parser (Enumerated ConnectionResponse_AuthorizationType) -> Parser ConnectionResponse_RoleEntry forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object +<*> + Object +obj Object -> Text -> Parser (Enumerated ConnectionResponse_AuthorizationType) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "auth_type")) - -instance HsJSONPB.ToJSON ConnectionResponse_RoleEntry where - toJSON :: ConnectionResponse_RoleEntry -> Value -toJSON = ConnectionResponse_RoleEntry -> Value +.: Text +"auth_type")) + +instance HsJSONPB.ToJSON ConnectionResponse_RoleEntry where + toJSON :: ConnectionResponse_RoleEntry -> Value +toJSON = ConnectionResponse_RoleEntry -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ConnectionResponse_RoleEntry -> Encoding -toEncoding = ConnectionResponse_RoleEntry -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ConnectionResponse_RoleEntry -> Encoding +toEncoding = ConnectionResponse_RoleEntry -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ConnectionResponse_RoleEntry where - parseJSON :: Value -> Parser ConnectionResponse_RoleEntry -parseJSON = Value -> Parser ConnectionResponse_RoleEntry +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ConnectionResponse_RoleEntry where + parseJSON :: Value -> Parser ConnectionResponse_RoleEntry +parseJSON = Value -> Parser ConnectionResponse_RoleEntry forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ConnectionResponse_RoleEntry where - declareNamedSchema :: Proxy ConnectionResponse_RoleEntry +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ConnectionResponse_RoleEntry where + declareNamedSchema :: Proxy ConnectionResponse_RoleEntry -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_role :: Proxy (OverrideToSchema (Enumerated RoleType)) +declareNamedSchema Proxy ConnectionResponse_RoleEntry +_ + = do let declare_role :: Proxy (OverrideToSchema (Enumerated RoleType)) -> Declare (Definitions Schema) (Referenced Schema) -declare_role = Proxy (OverrideToSchema (Enumerated RoleType)) +declare_role = Proxy (OverrideToSchema (Enumerated RoleType)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -connectionResponse_RoleEntryRole <- Proxy (OverrideToSchema (Enumerated RoleType)) +HsJSONPB.declareSchemaRef + Referenced Schema +connectionResponse_RoleEntryRole <- Proxy (OverrideToSchema (Enumerated RoleType)) -> Declare (Definitions Schema) (Referenced Schema) -declare_role Proxy (OverrideToSchema (Enumerated RoleType)) +declare_role Proxy (OverrideToSchema (Enumerated RoleType)) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_auth_type :: Proxy +Proxy.Proxy + let declare_auth_type :: Proxy (OverrideToSchema (Enumerated ConnectionResponse_AuthorizationType)) -> Declare (Definitions Schema) (Referenced Schema) -declare_auth_type = Proxy +declare_auth_type = Proxy (OverrideToSchema (Enumerated ConnectionResponse_AuthorizationType)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -connectionResponse_RoleEntryAuthType <- Proxy +HsJSONPB.declareSchemaRef + Referenced Schema +connectionResponse_RoleEntryAuthType <- Proxy (OverrideToSchema (Enumerated ConnectionResponse_AuthorizationType)) -> Declare (Definitions Schema) (Referenced Schema) -declare_auth_type - Proxy +declare_auth_type + Proxy (OverrideToSchema (Enumerated ConnectionResponse_AuthorizationType)) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ConnectionResponse_RoleEntry +Proxy.Proxy + let Proxy ConnectionResponse_RoleEntry _ = (Enumerated RoleType -> Enumerated ConnectionResponse_AuthorizationType -> ConnectionResponse_RoleEntry) @@ -1630,7 +1742,7 @@ forall k (t :: k). Proxy t -> Enumerated ConnectionResponse_AuthorizationType -> ConnectionResponse_RoleEntry) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated RoleType +Hs.pure Enumerated RoleType -> Enumerated ConnectionResponse_AuthorizationType -> ConnectionResponse_RoleEntry ConnectionResponse_RoleEntry Proxy @@ -1642,77 +1754,80 @@ forall (f :: * -> *) a. Applicative f => a -> f a (Enumerated ConnectionResponse_AuthorizationType -> ConnectionResponse_RoleEntry) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema (Enumerated RoleType)) +<*> + (Proxy (OverrideToSchema (Enumerated RoleType)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Enumerated RoleType) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Enumerated RoleType)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Enumerated RoleType)) -> Declare (Definitions Schema) (Referenced Schema) -declare_role - Proxy +declare_role + Proxy (Enumerated ConnectionResponse_AuthorizationType -> ConnectionResponse_RoleEntry) -> Proxy (Enumerated ConnectionResponse_AuthorizationType) -> Proxy ConnectionResponse_RoleEntry forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy +<*> (Proxy (OverrideToSchema (Enumerated ConnectionResponse_AuthorizationType)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Enumerated ConnectionResponse_AuthorizationType) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy +HsJSONPB.asProxy Proxy (OverrideToSchema (Enumerated ConnectionResponse_AuthorizationType)) -> Declare (Definitions Schema) (Referenced Schema) -declare_auth_type - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_auth_type + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ConnectionResponse_RoleEntry", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ConnectionResponse_RoleEntry", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("role", Referenced Schema -connectionResponse_RoleEntryRole), - ("auth_type", - Referenced Schema -connectionResponse_RoleEntryAuthType)]}}) - -data AuthorizationTrustRequest = AuthorizationTrustRequest{AuthorizationTrustRequest -> Vector (Enumerated RoleType) +HsJSONPB.insOrdFromList + [(Text +"role", Referenced Schema +connectionResponse_RoleEntryRole), + (Text +"auth_type", + Referenced Schema +connectionResponse_RoleEntryAuthType)]}}) + +data AuthorizationTrustRequest = AuthorizationTrustRequest{AuthorizationTrustRequest -> Vector (Enumerated RoleType) authorizationTrustRequestRoles - :: - Hs.Vector - (HsProtobuf.Enumerated - Data.Sawtooth.Authorization.RoleType), - AuthorizationTrustRequest -> Text + :: + Hs.Vector + (HsProtobuf.Enumerated + Data.Sawtooth.Authorization.RoleType), + AuthorizationTrustRequest -> Text authorizationTrustRequestPublicKey :: - Hs.Text} - deriving (Int -> AuthorizationTrustRequest -> ShowS + Hs.Text} + deriving (Int -> AuthorizationTrustRequest -> ShowS [AuthorizationTrustRequest] -> ShowS AuthorizationTrustRequest -> String (Int -> AuthorizationTrustRequest -> ShowS) @@ -1727,7 +1842,7 @@ show :: AuthorizationTrustRequest -> String $cshow :: AuthorizationTrustRequest -> String showsPrec :: Int -> AuthorizationTrustRequest -> ShowS $cshowsPrec :: Int -> AuthorizationTrustRequest -> ShowS -Hs.Show, AuthorizationTrustRequest -> AuthorizationTrustRequest -> Bool +Hs.Show, AuthorizationTrustRequest -> AuthorizationTrustRequest -> Bool (AuthorizationTrustRequest -> AuthorizationTrustRequest -> Bool) -> (AuthorizationTrustRequest -> AuthorizationTrustRequest -> Bool) -> Eq AuthorizationTrustRequest @@ -1736,10 +1851,10 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: AuthorizationTrustRequest -> AuthorizationTrustRequest -> Bool == :: AuthorizationTrustRequest -> AuthorizationTrustRequest -> Bool $c== :: AuthorizationTrustRequest -> AuthorizationTrustRequest -> Bool -Hs.Eq, Eq AuthorizationTrustRequest -Eq AuthorizationTrustRequest => -(AuthorizationTrustRequest - -> AuthorizationTrustRequest -> Ordering) +Hs.Eq, Eq AuthorizationTrustRequest +Eq AuthorizationTrustRequest +-> (AuthorizationTrustRequest + -> AuthorizationTrustRequest -> Ordering) -> (AuthorizationTrustRequest -> AuthorizationTrustRequest -> Bool) -> (AuthorizationTrustRequest -> AuthorizationTrustRequest -> Bool) -> (AuthorizationTrustRequest -> AuthorizationTrustRequest -> Bool) @@ -1754,8 +1869,8 @@ AuthorizationTrustRequest -> AuthorizationTrustRequest -> Ordering AuthorizationTrustRequest -> AuthorizationTrustRequest -> AuthorizationTrustRequest forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -1782,7 +1897,7 @@ $c< :: AuthorizationTrustRequest -> AuthorizationTrustRequest -> Bool compare :: AuthorizationTrustRequest -> AuthorizationTrustRequest -> Ordering $ccompare :: AuthorizationTrustRequest -> AuthorizationTrustRequest -> Ordering $cp1Ord :: Eq AuthorizationTrustRequest -Hs.Ord, (forall x. +Hs.Ord, (forall x. AuthorizationTrustRequest -> Rep AuthorizationTrustRequest x) -> (forall x. Rep AuthorizationTrustRequest x -> AuthorizationTrustRequest) @@ -1797,322 +1912,347 @@ $cto :: forall x. Rep AuthorizationTrustRequest x -> AuthorizationTrustRequest $cfrom :: forall x. AuthorizationTrustRequest -> Rep AuthorizationTrustRequest x -Hs.Generic, AuthorizationTrustRequest -> () +Hs.Generic, AuthorizationTrustRequest -> () (AuthorizationTrustRequest -> ()) -> NFData AuthorizationTrustRequest forall a. (a -> ()) -> NFData a rnf :: AuthorizationTrustRequest -> () $crnf :: AuthorizationTrustRequest -> () -Hs.NFData) - -instance HsProtobuf.Named AuthorizationTrustRequest where - nameOf :: Proxy# AuthorizationTrustRequest -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named AuthorizationTrustRequest where + nameOf :: Proxy# AuthorizationTrustRequest -> string +nameOf Proxy# AuthorizationTrustRequest +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "AuthorizationTrustRequest") - -instance HsProtobuf.HasDefault AuthorizationTrustRequest - -instance HsProtobuf.Message AuthorizationTrustRequest where - encodeMessage :: FieldNumber -> AuthorizationTrustRequest -> MessageBuilder -encodeMessage _ - AuthorizationTrustRequest{authorizationTrustRequestRoles :: AuthorizationTrustRequest -> Vector (Enumerated RoleType) +Hs.fromString String +"AuthorizationTrustRequest") + +instance HsProtobuf.HasDefault AuthorizationTrustRequest + +instance HsProtobuf.Message AuthorizationTrustRequest where + encodeMessage :: FieldNumber -> AuthorizationTrustRequest -> MessageBuilder +encodeMessage FieldNumber +_ + AuthorizationTrustRequest{authorizationTrustRequestRoles :: AuthorizationTrustRequest -> Vector (Enumerated RoleType) authorizationTrustRequestRoles = - Vector (Enumerated RoleType) -authorizationTrustRequestRoles, - authorizationTrustRequestPublicKey :: AuthorizationTrustRequest -> Text + Vector (Enumerated RoleType) +authorizationTrustRequestRoles, + authorizationTrustRequestPublicKey :: AuthorizationTrustRequest -> Text authorizationTrustRequestPublicKey = - Text -authorizationTrustRequestPublicKey} - = ([MessageBuilder] -> MessageBuilder + Text +authorizationTrustRequestPublicKey} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> PackedVec (Enumerated RoleType) -> MessageBuilder +Hs.mconcat + [(FieldNumber -> PackedVec (Enumerated RoleType) -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (Vector (Enumerated RoleType) -> PackedVec (Enumerated RoleType) -forall a b. Coercible a b => a -> b -Hs.coerce - @(Hs.Vector (HsProtobuf.Enumerated Data.Sawtooth.Authorization.RoleType)) - @(HsProtobuf.PackedVec (HsProtobuf.Enumerated Data.Sawtooth.Authorization.RoleType)) - Vector (Enumerated RoleType) -authorizationTrustRequestRoles)), - (FieldNumber -> Text -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (Vector (Enumerated RoleType) -> PackedVec (Enumerated RoleType) +Hs.coerce + @(Hs.Vector (HsProtobuf.Enumerated Data.Sawtooth.Authorization.RoleType)) + @(HsProtobuf.PackedVec (HsProtobuf.Enumerated Data.Sawtooth.Authorization.RoleType)) + Vector (Enumerated RoleType) +authorizationTrustRequestRoles)), + (FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - Text -authorizationTrustRequestPublicKey)]) - decodeMessage :: FieldNumber -> Parser RawMessage AuthorizationTrustRequest -decodeMessage _ - = ((Vector (Enumerated RoleType) -> Text -> AuthorizationTrustRequest) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + Text +authorizationTrustRequestPublicKey)]) + decodeMessage :: FieldNumber -> Parser RawMessage AuthorizationTrustRequest +decodeMessage FieldNumber +_ + = ((Vector (Enumerated RoleType) -> Text -> AuthorizationTrustRequest) -> Parser RawMessage (Vector (Enumerated RoleType) -> Text -> AuthorizationTrustRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector (Enumerated RoleType) -> Text -> AuthorizationTrustRequest +Hs.pure Vector (Enumerated RoleType) -> Text -> AuthorizationTrustRequest AuthorizationTrustRequest) Parser RawMessage (Vector (Enumerated RoleType) -> Text -> AuthorizationTrustRequest) -> Parser RawMessage (Vector (Enumerated RoleType)) -> Parser RawMessage (Text -> AuthorizationTrustRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (PackedVec (Enumerated RoleType)) +<*> + (Parser RawMessage (PackedVec (Enumerated RoleType)) -> Parser RawMessage (Vector (Enumerated RoleType)) -forall a b. Coercible a b => a -> b -Hs.coerce - @(_ (HsProtobuf.PackedVec (HsProtobuf.Enumerated Data.Sawtooth.Authorization.RoleType))) - @(_ (Hs.Vector (HsProtobuf.Enumerated Data.Sawtooth.Authorization.RoleType))) - (Parser RawField (PackedVec (Enumerated RoleType)) +Hs.coerce + @(_ (HsProtobuf.PackedVec (HsProtobuf.Enumerated Data.Sawtooth.Authorization.RoleType))) + @(_ (Hs.Vector (HsProtobuf.Enumerated Data.Sawtooth.Authorization.RoleType))) + (Parser RawField (PackedVec (Enumerated RoleType)) -> FieldNumber -> Parser RawMessage (PackedVec (Enumerated RoleType)) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (PackedVec (Enumerated RoleType)) +HsProtobuf.at Parser RawField (PackedVec (Enumerated RoleType)) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1))) - Parser RawMessage (Text -> AuthorizationTrustRequest) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1))) + Parser RawMessage (Text -> AuthorizationTrustRequest) -> Parser RawMessage Text -> Parser RawMessage AuthorizationTrustRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2)) - dotProto :: Proxy# AuthorizationTrustRequest -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2)) + dotProto :: Proxy# AuthorizationTrustRequest -> [DotProtoField] +dotProto Proxy# AuthorizationTrustRequest +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Repeated - (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "RoleType"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "roles") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Repeated + (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"RoleType"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"roles") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "public_key") - [] - "")] - -instance HsJSONPB.ToJSONPB AuthorizationTrustRequest where - toJSONPB :: AuthorizationTrustRequest -> Options -> Value -toJSONPB (AuthorizationTrustRequest f1 :: Vector (Enumerated RoleType) -f1 f2 :: Text -f2) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["roles" Text -> Vector (Enumerated RoleType) -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"public_key") + [] + String +"")] + +instance HsJSONPB.ToJSONPB AuthorizationTrustRequest where + toJSONPB :: AuthorizationTrustRequest -> Options -> Value +toJSONPB (AuthorizationTrustRequest Vector (Enumerated RoleType) +f1 Text +f2) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"roles" Text -> Vector (Enumerated RoleType) -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector (Enumerated RoleType) -f1, "public_key" Text -> Text -> Options -> [Pair] +.= Vector (Enumerated RoleType) +f1, Text +"public_key" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f2]) - toEncodingPB :: AuthorizationTrustRequest -> Options -> Encoding -toEncodingPB (AuthorizationTrustRequest f1 :: Vector (Enumerated RoleType) -f1 f2 :: Text -f2) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["roles" Text -> Vector (Enumerated RoleType) -> Options -> Series +.= Text +f2]) + toEncodingPB :: AuthorizationTrustRequest -> Options -> Encoding +toEncodingPB (AuthorizationTrustRequest Vector (Enumerated RoleType) +f1 Text +f2) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"roles" Text -> Vector (Enumerated RoleType) -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector (Enumerated RoleType) -f1, "public_key" Text -> Text -> Options -> Series +.= Vector (Enumerated RoleType) +f1, Text +"public_key" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f2]) - -instance HsJSONPB.FromJSONPB AuthorizationTrustRequest where - parseJSONPB :: Value -> Parser AuthorizationTrustRequest -parseJSONPB - = (String +.= Text +f2]) + +instance HsJSONPB.FromJSONPB AuthorizationTrustRequest where + parseJSONPB :: Value -> Parser AuthorizationTrustRequest +parseJSONPB + = (String -> (Object -> Parser AuthorizationTrustRequest) -> Value -> Parser AuthorizationTrustRequest forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "AuthorizationTrustRequest" - (\ obj :: Object -obj -> - ((Vector (Enumerated RoleType) -> Text -> AuthorizationTrustRequest) +HsJSONPB.withObject String +"AuthorizationTrustRequest" + (\ Object +obj -> + ((Vector (Enumerated RoleType) -> Text -> AuthorizationTrustRequest) -> Parser (Vector (Enumerated RoleType) -> Text -> AuthorizationTrustRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector (Enumerated RoleType) -> Text -> AuthorizationTrustRequest +Hs.pure Vector (Enumerated RoleType) -> Text -> AuthorizationTrustRequest AuthorizationTrustRequest) Parser (Vector (Enumerated RoleType) -> Text -> AuthorizationTrustRequest) -> Parser (Vector (Enumerated RoleType)) -> Parser (Text -> AuthorizationTrustRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser (Vector (Enumerated RoleType)) +<*> Object +obj Object -> Text -> Parser (Vector (Enumerated RoleType)) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "roles" Parser (Text -> AuthorizationTrustRequest) +.: Text +"roles" Parser (Text -> AuthorizationTrustRequest) -> Parser Text -> Parser AuthorizationTrustRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser Text +<*> + Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "public_key")) - -instance HsJSONPB.ToJSON AuthorizationTrustRequest where - toJSON :: AuthorizationTrustRequest -> Value -toJSON = AuthorizationTrustRequest -> Value +.: Text +"public_key")) + +instance HsJSONPB.ToJSON AuthorizationTrustRequest where + toJSON :: AuthorizationTrustRequest -> Value +toJSON = AuthorizationTrustRequest -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: AuthorizationTrustRequest -> Encoding -toEncoding = AuthorizationTrustRequest -> Encoding +HsJSONPB.toAesonValue + toEncoding :: AuthorizationTrustRequest -> Encoding +toEncoding = AuthorizationTrustRequest -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON AuthorizationTrustRequest where - parseJSON :: Value -> Parser AuthorizationTrustRequest -parseJSON = Value -> Parser AuthorizationTrustRequest +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON AuthorizationTrustRequest where + parseJSON :: Value -> Parser AuthorizationTrustRequest +parseJSON = Value -> Parser AuthorizationTrustRequest forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema AuthorizationTrustRequest where - declareNamedSchema :: Proxy AuthorizationTrustRequest +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema AuthorizationTrustRequest where + declareNamedSchema :: Proxy AuthorizationTrustRequest -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_roles :: Proxy (OverrideToSchema (Vector (Enumerated RoleType))) +declareNamedSchema Proxy AuthorizationTrustRequest +_ + = do let declare_roles :: Proxy (OverrideToSchema (Vector (Enumerated RoleType))) -> Declare (Definitions Schema) (Referenced Schema) -declare_roles = Proxy (OverrideToSchema (Vector (Enumerated RoleType))) +declare_roles = Proxy (OverrideToSchema (Vector (Enumerated RoleType))) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -authorizationTrustRequestRoles <- Proxy (OverrideToSchema (Vector (Enumerated RoleType))) +HsJSONPB.declareSchemaRef + Referenced Schema +authorizationTrustRequestRoles <- Proxy (OverrideToSchema (Vector (Enumerated RoleType))) -> Declare (Definitions Schema) (Referenced Schema) -declare_roles Proxy (OverrideToSchema (Vector (Enumerated RoleType))) +declare_roles Proxy (OverrideToSchema (Vector (Enumerated RoleType))) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_public_key :: Proxy (OverrideToSchema Text) +Proxy.Proxy + let declare_public_key :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_public_key = Proxy (OverrideToSchema Text) +declare_public_key = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -authorizationTrustRequestPublicKey <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +authorizationTrustRequestPublicKey <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_public_key - Proxy (OverrideToSchema Text) +declare_public_key + Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy AuthorizationTrustRequest +Proxy.Proxy + let Proxy AuthorizationTrustRequest _ = (Vector (Enumerated RoleType) -> Text -> AuthorizationTrustRequest) -> Proxy (Vector (Enumerated RoleType) -> Text -> AuthorizationTrustRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector (Enumerated RoleType) -> Text -> AuthorizationTrustRequest +Hs.pure Vector (Enumerated RoleType) -> Text -> AuthorizationTrustRequest AuthorizationTrustRequest Proxy (Vector (Enumerated RoleType) -> Text -> AuthorizationTrustRequest) -> Proxy (Vector (Enumerated RoleType)) -> Proxy (Text -> AuthorizationTrustRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema (Vector (Enumerated RoleType))) +<*> + (Proxy (OverrideToSchema (Vector (Enumerated RoleType))) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Vector (Enumerated RoleType)) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Vector (Enumerated RoleType))) +HsJSONPB.asProxy Proxy (OverrideToSchema (Vector (Enumerated RoleType))) -> Declare (Definitions Schema) (Referenced Schema) -declare_roles - Proxy (Text -> AuthorizationTrustRequest) +declare_roles + Proxy (Text -> AuthorizationTrustRequest) -> Proxy Text -> Proxy AuthorizationTrustRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema Text) +<*> (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_public_key - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_public_key + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "AuthorizationTrustRequest", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"AuthorizationTrustRequest", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("roles", Referenced Schema -authorizationTrustRequestRoles), - ("public_key", - Referenced Schema -authorizationTrustRequestPublicKey)]}}) - -newtype AuthorizationTrustResponse = AuthorizationTrustResponse{AuthorizationTrustResponse -> Vector (Enumerated RoleType) +HsJSONPB.insOrdFromList + [(Text +"roles", Referenced Schema +authorizationTrustRequestRoles), + (Text +"public_key", + Referenced Schema +authorizationTrustRequestPublicKey)]}}) + +newtype AuthorizationTrustResponse = AuthorizationTrustResponse{AuthorizationTrustResponse -> Vector (Enumerated RoleType) authorizationTrustResponseRoles - :: - Hs.Vector - (HsProtobuf.Enumerated - Data.Sawtooth.Authorization.RoleType)} - deriving (Int -> AuthorizationTrustResponse -> ShowS + :: + Hs.Vector + (HsProtobuf.Enumerated + Data.Sawtooth.Authorization.RoleType)} + deriving (Int -> AuthorizationTrustResponse -> ShowS [AuthorizationTrustResponse] -> ShowS AuthorizationTrustResponse -> String (Int -> AuthorizationTrustResponse -> ShowS) @@ -2127,7 +2267,7 @@ show :: AuthorizationTrustResponse -> String $cshow :: AuthorizationTrustResponse -> String showsPrec :: Int -> AuthorizationTrustResponse -> ShowS $cshowsPrec :: Int -> AuthorizationTrustResponse -> ShowS -Hs.Show, AuthorizationTrustResponse -> AuthorizationTrustResponse -> Bool +Hs.Show, AuthorizationTrustResponse -> AuthorizationTrustResponse -> Bool (AuthorizationTrustResponse -> AuthorizationTrustResponse -> Bool) -> (AuthorizationTrustResponse -> AuthorizationTrustResponse -> Bool) @@ -2137,10 +2277,10 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: AuthorizationTrustResponse -> AuthorizationTrustResponse -> Bool == :: AuthorizationTrustResponse -> AuthorizationTrustResponse -> Bool $c== :: AuthorizationTrustResponse -> AuthorizationTrustResponse -> Bool -Hs.Eq, Eq AuthorizationTrustResponse -Eq AuthorizationTrustResponse => -(AuthorizationTrustResponse - -> AuthorizationTrustResponse -> Ordering) +Hs.Eq, Eq AuthorizationTrustResponse +Eq AuthorizationTrustResponse +-> (AuthorizationTrustResponse + -> AuthorizationTrustResponse -> Ordering) -> (AuthorizationTrustResponse -> AuthorizationTrustResponse -> Bool) -> (AuthorizationTrustResponse @@ -2160,8 +2300,8 @@ AuthorizationTrustResponse AuthorizationTrustResponse -> AuthorizationTrustResponse -> AuthorizationTrustResponse forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -2190,7 +2330,7 @@ compare :: AuthorizationTrustResponse $ccompare :: AuthorizationTrustResponse -> AuthorizationTrustResponse -> Ordering $cp1Ord :: Eq AuthorizationTrustResponse -Hs.Ord, (forall x. +Hs.Ord, (forall x. AuthorizationTrustResponse -> Rep AuthorizationTrustResponse x) -> (forall x. Rep AuthorizationTrustResponse x -> AuthorizationTrustResponse) @@ -2205,233 +2345,249 @@ $cto :: forall x. Rep AuthorizationTrustResponse x -> AuthorizationTrustResponse $cfrom :: forall x. AuthorizationTrustResponse -> Rep AuthorizationTrustResponse x -Hs.Generic, AuthorizationTrustResponse -> () +Hs.Generic, AuthorizationTrustResponse -> () (AuthorizationTrustResponse -> ()) -> NFData AuthorizationTrustResponse forall a. (a -> ()) -> NFData a rnf :: AuthorizationTrustResponse -> () $crnf :: AuthorizationTrustResponse -> () -Hs.NFData) - -instance HsProtobuf.Named AuthorizationTrustResponse where - nameOf :: Proxy# AuthorizationTrustResponse -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named AuthorizationTrustResponse where + nameOf :: Proxy# AuthorizationTrustResponse -> string +nameOf Proxy# AuthorizationTrustResponse +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "AuthorizationTrustResponse") - -instance HsProtobuf.HasDefault AuthorizationTrustResponse - -instance HsProtobuf.Message AuthorizationTrustResponse where - encodeMessage :: FieldNumber -> AuthorizationTrustResponse -> MessageBuilder -encodeMessage _ - AuthorizationTrustResponse{authorizationTrustResponseRoles :: AuthorizationTrustResponse -> Vector (Enumerated RoleType) +Hs.fromString String +"AuthorizationTrustResponse") + +instance HsProtobuf.HasDefault AuthorizationTrustResponse + +instance HsProtobuf.Message AuthorizationTrustResponse where + encodeMessage :: FieldNumber -> AuthorizationTrustResponse -> MessageBuilder +encodeMessage FieldNumber +_ + AuthorizationTrustResponse{authorizationTrustResponseRoles :: AuthorizationTrustResponse -> Vector (Enumerated RoleType) authorizationTrustResponseRoles = - Vector (Enumerated RoleType) -authorizationTrustResponseRoles} - = ([MessageBuilder] -> MessageBuilder + Vector (Enumerated RoleType) +authorizationTrustResponseRoles} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> PackedVec (Enumerated RoleType) -> MessageBuilder +Hs.mconcat + [(FieldNumber -> PackedVec (Enumerated RoleType) -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (Vector (Enumerated RoleType) -> PackedVec (Enumerated RoleType) -forall a b. Coercible a b => a -> b -Hs.coerce - @(Hs.Vector (HsProtobuf.Enumerated Data.Sawtooth.Authorization.RoleType)) - @(HsProtobuf.PackedVec (HsProtobuf.Enumerated Data.Sawtooth.Authorization.RoleType)) - Vector (Enumerated RoleType) -authorizationTrustResponseRoles))]) - decodeMessage :: FieldNumber -> Parser RawMessage AuthorizationTrustResponse -decodeMessage _ - = ((Vector (Enumerated RoleType) -> AuthorizationTrustResponse) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (Vector (Enumerated RoleType) -> PackedVec (Enumerated RoleType) +Hs.coerce + @(Hs.Vector (HsProtobuf.Enumerated Data.Sawtooth.Authorization.RoleType)) + @(HsProtobuf.PackedVec (HsProtobuf.Enumerated Data.Sawtooth.Authorization.RoleType)) + Vector (Enumerated RoleType) +authorizationTrustResponseRoles))]) + decodeMessage :: FieldNumber -> Parser RawMessage AuthorizationTrustResponse +decodeMessage FieldNumber +_ + = ((Vector (Enumerated RoleType) -> AuthorizationTrustResponse) -> Parser RawMessage (Vector (Enumerated RoleType) -> AuthorizationTrustResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector (Enumerated RoleType) -> AuthorizationTrustResponse +Hs.pure Vector (Enumerated RoleType) -> AuthorizationTrustResponse AuthorizationTrustResponse) Parser RawMessage (Vector (Enumerated RoleType) -> AuthorizationTrustResponse) -> Parser RawMessage (Vector (Enumerated RoleType)) -> Parser RawMessage AuthorizationTrustResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (PackedVec (Enumerated RoleType)) +<*> + (Parser RawMessage (PackedVec (Enumerated RoleType)) -> Parser RawMessage (Vector (Enumerated RoleType)) -forall a b. Coercible a b => a -> b -Hs.coerce - @(_ (HsProtobuf.PackedVec (HsProtobuf.Enumerated Data.Sawtooth.Authorization.RoleType))) - @(_ (Hs.Vector (HsProtobuf.Enumerated Data.Sawtooth.Authorization.RoleType))) - (Parser RawField (PackedVec (Enumerated RoleType)) +Hs.coerce + @(_ (HsProtobuf.PackedVec (HsProtobuf.Enumerated Data.Sawtooth.Authorization.RoleType))) + @(_ (Hs.Vector (HsProtobuf.Enumerated Data.Sawtooth.Authorization.RoleType))) + (Parser RawField (PackedVec (Enumerated RoleType)) -> FieldNumber -> Parser RawMessage (PackedVec (Enumerated RoleType)) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (PackedVec (Enumerated RoleType)) +HsProtobuf.at Parser RawField (PackedVec (Enumerated RoleType)) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1))) - dotProto :: Proxy# AuthorizationTrustResponse -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1))) + dotProto :: Proxy# AuthorizationTrustResponse -> [DotProtoField] +dotProto Proxy# AuthorizationTrustResponse +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Repeated - (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "RoleType"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "roles") - [] - "")] - -instance HsJSONPB.ToJSONPB AuthorizationTrustResponse where - toJSONPB :: AuthorizationTrustResponse -> Options -> Value -toJSONPB (AuthorizationTrustResponse f1 :: Vector (Enumerated RoleType) -f1) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["roles" Text -> Vector (Enumerated RoleType) -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Repeated + (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"RoleType"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"roles") + [] + String +"")] + +instance HsJSONPB.ToJSONPB AuthorizationTrustResponse where + toJSONPB :: AuthorizationTrustResponse -> Options -> Value +toJSONPB (AuthorizationTrustResponse Vector (Enumerated RoleType) +f1) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"roles" Text -> Vector (Enumerated RoleType) -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector (Enumerated RoleType) -f1]) - toEncodingPB :: AuthorizationTrustResponse -> Options -> Encoding -toEncodingPB (AuthorizationTrustResponse f1 :: Vector (Enumerated RoleType) -f1) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["roles" Text -> Vector (Enumerated RoleType) -> Options -> Series +.= Vector (Enumerated RoleType) +f1]) + toEncodingPB :: AuthorizationTrustResponse -> Options -> Encoding +toEncodingPB (AuthorizationTrustResponse Vector (Enumerated RoleType) +f1) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"roles" Text -> Vector (Enumerated RoleType) -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector (Enumerated RoleType) -f1]) - -instance HsJSONPB.FromJSONPB AuthorizationTrustResponse where - parseJSONPB :: Value -> Parser AuthorizationTrustResponse -parseJSONPB - = (String +.= Vector (Enumerated RoleType) +f1]) + +instance HsJSONPB.FromJSONPB AuthorizationTrustResponse where + parseJSONPB :: Value -> Parser AuthorizationTrustResponse +parseJSONPB + = (String -> (Object -> Parser AuthorizationTrustResponse) -> Value -> Parser AuthorizationTrustResponse forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "AuthorizationTrustResponse" - (\ obj :: Object -obj -> ((Vector (Enumerated RoleType) -> AuthorizationTrustResponse) +HsJSONPB.withObject String +"AuthorizationTrustResponse" + (\ Object +obj -> ((Vector (Enumerated RoleType) -> AuthorizationTrustResponse) -> Parser (Vector (Enumerated RoleType) -> AuthorizationTrustResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector (Enumerated RoleType) -> AuthorizationTrustResponse +Hs.pure Vector (Enumerated RoleType) -> AuthorizationTrustResponse AuthorizationTrustResponse) Parser (Vector (Enumerated RoleType) -> AuthorizationTrustResponse) -> Parser (Vector (Enumerated RoleType)) -> Parser AuthorizationTrustResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser (Vector (Enumerated RoleType)) +<*> Object +obj Object -> Text -> Parser (Vector (Enumerated RoleType)) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "roles")) - -instance HsJSONPB.ToJSON AuthorizationTrustResponse where - toJSON :: AuthorizationTrustResponse -> Value -toJSON = AuthorizationTrustResponse -> Value +.: Text +"roles")) + +instance HsJSONPB.ToJSON AuthorizationTrustResponse where + toJSON :: AuthorizationTrustResponse -> Value +toJSON = AuthorizationTrustResponse -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: AuthorizationTrustResponse -> Encoding -toEncoding = AuthorizationTrustResponse -> Encoding +HsJSONPB.toAesonValue + toEncoding :: AuthorizationTrustResponse -> Encoding +toEncoding = AuthorizationTrustResponse -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON AuthorizationTrustResponse where - parseJSON :: Value -> Parser AuthorizationTrustResponse -parseJSON = Value -> Parser AuthorizationTrustResponse +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON AuthorizationTrustResponse where + parseJSON :: Value -> Parser AuthorizationTrustResponse +parseJSON = Value -> Parser AuthorizationTrustResponse forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema AuthorizationTrustResponse where - declareNamedSchema :: Proxy AuthorizationTrustResponse +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema AuthorizationTrustResponse where + declareNamedSchema :: Proxy AuthorizationTrustResponse -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_roles :: Proxy (OverrideToSchema (Vector (Enumerated RoleType))) +declareNamedSchema Proxy AuthorizationTrustResponse +_ + = do let declare_roles :: Proxy (OverrideToSchema (Vector (Enumerated RoleType))) -> Declare (Definitions Schema) (Referenced Schema) -declare_roles = Proxy (OverrideToSchema (Vector (Enumerated RoleType))) +declare_roles = Proxy (OverrideToSchema (Vector (Enumerated RoleType))) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -authorizationTrustResponseRoles <- Proxy (OverrideToSchema (Vector (Enumerated RoleType))) +HsJSONPB.declareSchemaRef + Referenced Schema +authorizationTrustResponseRoles <- Proxy (OverrideToSchema (Vector (Enumerated RoleType))) -> Declare (Definitions Schema) (Referenced Schema) -declare_roles Proxy (OverrideToSchema (Vector (Enumerated RoleType))) +declare_roles Proxy (OverrideToSchema (Vector (Enumerated RoleType))) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy AuthorizationTrustResponse +Proxy.Proxy + let Proxy AuthorizationTrustResponse _ = (Vector (Enumerated RoleType) -> AuthorizationTrustResponse) -> Proxy (Vector (Enumerated RoleType) -> AuthorizationTrustResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector (Enumerated RoleType) -> AuthorizationTrustResponse +Hs.pure Vector (Enumerated RoleType) -> AuthorizationTrustResponse AuthorizationTrustResponse Proxy (Vector (Enumerated RoleType) -> AuthorizationTrustResponse) -> Proxy (Vector (Enumerated RoleType)) -> Proxy AuthorizationTrustResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema (Vector (Enumerated RoleType))) +<*> + (Proxy (OverrideToSchema (Vector (Enumerated RoleType))) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Vector (Enumerated RoleType)) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Vector (Enumerated RoleType))) +HsJSONPB.asProxy Proxy (OverrideToSchema (Vector (Enumerated RoleType))) -> Declare (Definitions Schema) (Referenced Schema) -declare_roles - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_roles + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "AuthorizationTrustResponse", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"AuthorizationTrustResponse", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("roles", - Referenced Schema -authorizationTrustResponseRoles)]}}) - -newtype AuthorizationViolation = AuthorizationViolation{AuthorizationViolation -> Enumerated RoleType +HsJSONPB.insOrdFromList + [(Text +"roles", + Referenced Schema +authorizationTrustResponseRoles)]}}) + +newtype AuthorizationViolation = AuthorizationViolation{AuthorizationViolation -> Enumerated RoleType authorizationViolationViolation - :: - HsProtobuf.Enumerated - Data.Sawtooth.Authorization.RoleType} - deriving (Int -> AuthorizationViolation -> ShowS + :: + HsProtobuf.Enumerated + Data.Sawtooth.Authorization.RoleType} + deriving (Int -> AuthorizationViolation -> ShowS [AuthorizationViolation] -> ShowS AuthorizationViolation -> String (Int -> AuthorizationViolation -> ShowS) @@ -2446,7 +2602,7 @@ show :: AuthorizationViolation -> String $cshow :: AuthorizationViolation -> String showsPrec :: Int -> AuthorizationViolation -> ShowS $cshowsPrec :: Int -> AuthorizationViolation -> ShowS -Hs.Show, AuthorizationViolation -> AuthorizationViolation -> Bool +Hs.Show, AuthorizationViolation -> AuthorizationViolation -> Bool (AuthorizationViolation -> AuthorizationViolation -> Bool) -> (AuthorizationViolation -> AuthorizationViolation -> Bool) -> Eq AuthorizationViolation @@ -2455,9 +2611,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: AuthorizationViolation -> AuthorizationViolation -> Bool == :: AuthorizationViolation -> AuthorizationViolation -> Bool $c== :: AuthorizationViolation -> AuthorizationViolation -> Bool -Hs.Eq, Eq AuthorizationViolation -Eq AuthorizationViolation => -(AuthorizationViolation -> AuthorizationViolation -> Ordering) +Hs.Eq, Eq AuthorizationViolation +Eq AuthorizationViolation +-> (AuthorizationViolation -> AuthorizationViolation -> Ordering) -> (AuthorizationViolation -> AuthorizationViolation -> Bool) -> (AuthorizationViolation -> AuthorizationViolation -> Bool) -> (AuthorizationViolation -> AuthorizationViolation -> Bool) @@ -2472,8 +2628,8 @@ AuthorizationViolation -> AuthorizationViolation -> Ordering AuthorizationViolation -> AuthorizationViolation -> AuthorizationViolation forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -2500,7 +2656,7 @@ $c< :: AuthorizationViolation -> AuthorizationViolation -> Bool compare :: AuthorizationViolation -> AuthorizationViolation -> Ordering $ccompare :: AuthorizationViolation -> AuthorizationViolation -> Ordering $cp1Ord :: Eq AuthorizationViolation -Hs.Ord, (forall x. AuthorizationViolation -> Rep AuthorizationViolation x) +Hs.Ord, (forall x. AuthorizationViolation -> Rep AuthorizationViolation x) -> (forall x. Rep AuthorizationViolation x -> AuthorizationViolation) -> Generic AuthorizationViolation @@ -2510,208 +2666,226 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep AuthorizationViolation x -> AuthorizationViolation $cfrom :: forall x. AuthorizationViolation -> Rep AuthorizationViolation x -Hs.Generic, AuthorizationViolation -> () +Hs.Generic, AuthorizationViolation -> () (AuthorizationViolation -> ()) -> NFData AuthorizationViolation forall a. (a -> ()) -> NFData a rnf :: AuthorizationViolation -> () $crnf :: AuthorizationViolation -> () -Hs.NFData) - -instance HsProtobuf.Named AuthorizationViolation where - nameOf :: Proxy# AuthorizationViolation -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named AuthorizationViolation where + nameOf :: Proxy# AuthorizationViolation -> string +nameOf Proxy# AuthorizationViolation +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "AuthorizationViolation") - -instance HsProtobuf.HasDefault AuthorizationViolation - -instance HsProtobuf.Message AuthorizationViolation where - encodeMessage :: FieldNumber -> AuthorizationViolation -> MessageBuilder -encodeMessage _ - AuthorizationViolation{authorizationViolationViolation :: AuthorizationViolation -> Enumerated RoleType +Hs.fromString String +"AuthorizationViolation") + +instance HsProtobuf.HasDefault AuthorizationViolation + +instance HsProtobuf.Message AuthorizationViolation where + encodeMessage :: FieldNumber -> AuthorizationViolation -> MessageBuilder +encodeMessage FieldNumber +_ + AuthorizationViolation{authorizationViolationViolation :: AuthorizationViolation -> Enumerated RoleType authorizationViolationViolation = - Enumerated RoleType -authorizationViolationViolation} - = ([MessageBuilder] -> MessageBuilder + Enumerated RoleType +authorizationViolationViolation} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> Enumerated RoleType -> MessageBuilder +Hs.mconcat + [(FieldNumber -> Enumerated RoleType -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Enumerated RoleType -authorizationViolationViolation)]) - decodeMessage :: FieldNumber -> Parser RawMessage AuthorizationViolation -decodeMessage _ - = ((Enumerated RoleType -> AuthorizationViolation) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Enumerated RoleType +authorizationViolationViolation)]) + decodeMessage :: FieldNumber -> Parser RawMessage AuthorizationViolation +decodeMessage FieldNumber +_ + = ((Enumerated RoleType -> AuthorizationViolation) -> Parser RawMessage (Enumerated RoleType -> AuthorizationViolation) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated RoleType -> AuthorizationViolation +Hs.pure Enumerated RoleType -> AuthorizationViolation AuthorizationViolation) Parser RawMessage (Enumerated RoleType -> AuthorizationViolation) -> Parser RawMessage (Enumerated RoleType) -> Parser RawMessage AuthorizationViolation forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField (Enumerated RoleType) +<*> + (Parser RawField (Enumerated RoleType) -> FieldNumber -> Parser RawMessage (Enumerated RoleType) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (Enumerated RoleType) +HsProtobuf.at Parser RawField (Enumerated RoleType) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - dotProto :: Proxy# AuthorizationViolation -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + dotProto :: Proxy# AuthorizationViolation -> [DotProtoField] +dotProto Proxy# AuthorizationViolation +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "RoleType"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "violation") - [] - "")] - -instance HsJSONPB.ToJSONPB AuthorizationViolation where - toJSONPB :: AuthorizationViolation -> Options -> Value -toJSONPB (AuthorizationViolation f1 :: Enumerated RoleType -f1) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["violation" Text -> Enumerated RoleType -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"RoleType"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"violation") + [] + String +"")] + +instance HsJSONPB.ToJSONPB AuthorizationViolation where + toJSONPB :: AuthorizationViolation -> Options -> Value +toJSONPB (AuthorizationViolation Enumerated RoleType +f1) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"violation" Text -> Enumerated RoleType -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated RoleType -f1]) - toEncodingPB :: AuthorizationViolation -> Options -> Encoding -toEncodingPB (AuthorizationViolation f1 :: Enumerated RoleType -f1) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["violation" Text -> Enumerated RoleType -> Options -> Series +.= Enumerated RoleType +f1]) + toEncodingPB :: AuthorizationViolation -> Options -> Encoding +toEncodingPB (AuthorizationViolation Enumerated RoleType +f1) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"violation" Text -> Enumerated RoleType -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated RoleType -f1]) - -instance HsJSONPB.FromJSONPB AuthorizationViolation where - parseJSONPB :: Value -> Parser AuthorizationViolation -parseJSONPB - = (String +.= Enumerated RoleType +f1]) + +instance HsJSONPB.FromJSONPB AuthorizationViolation where + parseJSONPB :: Value -> Parser AuthorizationViolation +parseJSONPB + = (String -> (Object -> Parser AuthorizationViolation) -> Value -> Parser AuthorizationViolation forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "AuthorizationViolation" - (\ obj :: Object -obj -> ((Enumerated RoleType -> AuthorizationViolation) +HsJSONPB.withObject String +"AuthorizationViolation" + (\ Object +obj -> ((Enumerated RoleType -> AuthorizationViolation) -> Parser (Enumerated RoleType -> AuthorizationViolation) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated RoleType -> AuthorizationViolation +Hs.pure Enumerated RoleType -> AuthorizationViolation AuthorizationViolation) Parser (Enumerated RoleType -> AuthorizationViolation) -> Parser (Enumerated RoleType) -> Parser AuthorizationViolation forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser (Enumerated RoleType) +<*> Object +obj Object -> Text -> Parser (Enumerated RoleType) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "violation")) - -instance HsJSONPB.ToJSON AuthorizationViolation where - toJSON :: AuthorizationViolation -> Value -toJSON = AuthorizationViolation -> Value +.: Text +"violation")) + +instance HsJSONPB.ToJSON AuthorizationViolation where + toJSON :: AuthorizationViolation -> Value +toJSON = AuthorizationViolation -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: AuthorizationViolation -> Encoding -toEncoding = AuthorizationViolation -> Encoding +HsJSONPB.toAesonValue + toEncoding :: AuthorizationViolation -> Encoding +toEncoding = AuthorizationViolation -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON AuthorizationViolation where - parseJSON :: Value -> Parser AuthorizationViolation -parseJSON = Value -> Parser AuthorizationViolation +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON AuthorizationViolation where + parseJSON :: Value -> Parser AuthorizationViolation +parseJSON = Value -> Parser AuthorizationViolation forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema AuthorizationViolation where - declareNamedSchema :: Proxy AuthorizationViolation +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema AuthorizationViolation where + declareNamedSchema :: Proxy AuthorizationViolation -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_violation :: Proxy (OverrideToSchema (Enumerated RoleType)) +declareNamedSchema Proxy AuthorizationViolation +_ + = do let declare_violation :: Proxy (OverrideToSchema (Enumerated RoleType)) -> Declare (Definitions Schema) (Referenced Schema) -declare_violation = Proxy (OverrideToSchema (Enumerated RoleType)) +declare_violation = Proxy (OverrideToSchema (Enumerated RoleType)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -authorizationViolationViolation <- Proxy (OverrideToSchema (Enumerated RoleType)) +HsJSONPB.declareSchemaRef + Referenced Schema +authorizationViolationViolation <- Proxy (OverrideToSchema (Enumerated RoleType)) -> Declare (Definitions Schema) (Referenced Schema) -declare_violation Proxy (OverrideToSchema (Enumerated RoleType)) +declare_violation Proxy (OverrideToSchema (Enumerated RoleType)) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy AuthorizationViolation +Proxy.Proxy + let Proxy AuthorizationViolation _ = (Enumerated RoleType -> AuthorizationViolation) -> Proxy (Enumerated RoleType -> AuthorizationViolation) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated RoleType -> AuthorizationViolation +Hs.pure Enumerated RoleType -> AuthorizationViolation AuthorizationViolation Proxy (Enumerated RoleType -> AuthorizationViolation) -> Proxy (Enumerated RoleType) -> Proxy AuthorizationViolation forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema (Enumerated RoleType)) +<*> + (Proxy (OverrideToSchema (Enumerated RoleType)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Enumerated RoleType) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Enumerated RoleType)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Enumerated RoleType)) -> Declare (Definitions Schema) (Referenced Schema) -declare_violation - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_violation + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "AuthorizationViolation", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"AuthorizationViolation", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("violation", - Referenced Schema -authorizationViolationViolation)]}}) - -data AuthorizationChallengeRequest = AuthorizationChallengeRequest{} - deriving (Int -> AuthorizationChallengeRequest -> ShowS +HsJSONPB.insOrdFromList + [(Text +"violation", + Referenced Schema +authorizationViolationViolation)]}}) + +data AuthorizationChallengeRequest = AuthorizationChallengeRequest{} + deriving (Int -> AuthorizationChallengeRequest -> ShowS [AuthorizationChallengeRequest] -> ShowS AuthorizationChallengeRequest -> String (Int -> AuthorizationChallengeRequest -> ShowS) @@ -2726,7 +2900,7 @@ show :: AuthorizationChallengeRequest -> String $cshow :: AuthorizationChallengeRequest -> String showsPrec :: Int -> AuthorizationChallengeRequest -> ShowS $cshowsPrec :: Int -> AuthorizationChallengeRequest -> ShowS -Hs.Show, AuthorizationChallengeRequest +Hs.Show, AuthorizationChallengeRequest -> AuthorizationChallengeRequest -> Bool (AuthorizationChallengeRequest -> AuthorizationChallengeRequest -> Bool) @@ -2742,10 +2916,10 @@ $c/= :: AuthorizationChallengeRequest -> AuthorizationChallengeRequest -> Bool $c== :: AuthorizationChallengeRequest -> AuthorizationChallengeRequest -> Bool -Hs.Eq, Eq AuthorizationChallengeRequest -Eq AuthorizationChallengeRequest => -(AuthorizationChallengeRequest - -> AuthorizationChallengeRequest -> Ordering) +Hs.Eq, Eq AuthorizationChallengeRequest +Eq AuthorizationChallengeRequest +-> (AuthorizationChallengeRequest + -> AuthorizationChallengeRequest -> Ordering) -> (AuthorizationChallengeRequest -> AuthorizationChallengeRequest -> Bool) -> (AuthorizationChallengeRequest @@ -2766,8 +2940,8 @@ AuthorizationChallengeRequest AuthorizationChallengeRequest -> AuthorizationChallengeRequest -> AuthorizationChallengeRequest forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -2804,7 +2978,7 @@ compare :: AuthorizationChallengeRequest $ccompare :: AuthorizationChallengeRequest -> AuthorizationChallengeRequest -> Ordering $cp1Ord :: Eq AuthorizationChallengeRequest -Hs.Ord, (forall x. +Hs.Ord, (forall x. AuthorizationChallengeRequest -> Rep AuthorizationChallengeRequest x) -> (forall x. @@ -2825,117 +2999,125 @@ Rep AuthorizationChallengeRequest x $cfrom :: forall x. AuthorizationChallengeRequest -> Rep AuthorizationChallengeRequest x -Hs.Generic, AuthorizationChallengeRequest -> () +Hs.Generic, AuthorizationChallengeRequest -> () (AuthorizationChallengeRequest -> ()) -> NFData AuthorizationChallengeRequest forall a. (a -> ()) -> NFData a rnf :: AuthorizationChallengeRequest -> () $crnf :: AuthorizationChallengeRequest -> () -Hs.NFData) - -instance HsProtobuf.Named AuthorizationChallengeRequest where - nameOf :: Proxy# AuthorizationChallengeRequest -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named AuthorizationChallengeRequest where + nameOf :: Proxy# AuthorizationChallengeRequest -> string +nameOf Proxy# AuthorizationChallengeRequest +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "AuthorizationChallengeRequest") - -instance HsProtobuf.HasDefault AuthorizationChallengeRequest - -instance HsProtobuf.Message AuthorizationChallengeRequest where - encodeMessage :: FieldNumber -> AuthorizationChallengeRequest -> MessageBuilder -encodeMessage _ AuthorizationChallengeRequest{} = ([MessageBuilder] -> MessageBuilder +Hs.fromString String +"AuthorizationChallengeRequest") + +instance HsProtobuf.HasDefault AuthorizationChallengeRequest + +instance HsProtobuf.Message AuthorizationChallengeRequest where + encodeMessage :: FieldNumber -> AuthorizationChallengeRequest -> MessageBuilder +encodeMessage FieldNumber +_ AuthorizationChallengeRequest{} = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat []) - decodeMessage :: FieldNumber -> Parser RawMessage AuthorizationChallengeRequest -decodeMessage _ = (AuthorizationChallengeRequest +Hs.mconcat []) + decodeMessage :: FieldNumber -> Parser RawMessage AuthorizationChallengeRequest +decodeMessage FieldNumber +_ = (AuthorizationChallengeRequest -> Parser RawMessage AuthorizationChallengeRequest forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure AuthorizationChallengeRequest +Hs.pure AuthorizationChallengeRequest AuthorizationChallengeRequest) - dotProto :: Proxy# AuthorizationChallengeRequest -> [DotProtoField] -dotProto _ = [] - -instance HsJSONPB.ToJSONPB AuthorizationChallengeRequest where - toJSONPB :: AuthorizationChallengeRequest -> Options -> Value -toJSONPB (AuthorizationChallengeRequest + dotProto :: Proxy# AuthorizationChallengeRequest -> [DotProtoField] +dotProto Proxy# AuthorizationChallengeRequest +_ = [] + +instance HsJSONPB.ToJSONPB AuthorizationChallengeRequest where + toJSONPB :: AuthorizationChallengeRequest -> Options -> Value +toJSONPB (AuthorizationChallengeRequest AuthorizationChallengeRequest) = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object []) - toEncodingPB :: AuthorizationChallengeRequest -> Options -> Encoding -toEncodingPB (AuthorizationChallengeRequest +HsJSONPB.object []) + toEncodingPB :: AuthorizationChallengeRequest -> Options -> Encoding +toEncodingPB (AuthorizationChallengeRequest AuthorizationChallengeRequest) = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs []) - -instance HsJSONPB.FromJSONPB AuthorizationChallengeRequest where - parseJSONPB :: Value -> Parser AuthorizationChallengeRequest -parseJSONPB - = (String +HsJSONPB.pairs []) + +instance HsJSONPB.FromJSONPB AuthorizationChallengeRequest where + parseJSONPB :: Value -> Parser AuthorizationChallengeRequest +parseJSONPB + = (String -> (Object -> Parser AuthorizationChallengeRequest) -> Value -> Parser AuthorizationChallengeRequest forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "AuthorizationChallengeRequest" - (\ obj :: Object -obj -> (AuthorizationChallengeRequest +HsJSONPB.withObject String +"AuthorizationChallengeRequest" + (\ Object +obj -> (AuthorizationChallengeRequest -> Parser AuthorizationChallengeRequest forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure AuthorizationChallengeRequest +Hs.pure AuthorizationChallengeRequest AuthorizationChallengeRequest))) - -instance HsJSONPB.ToJSON AuthorizationChallengeRequest where - toJSON :: AuthorizationChallengeRequest -> Value -toJSON = AuthorizationChallengeRequest -> Value + +instance HsJSONPB.ToJSON AuthorizationChallengeRequest where + toJSON :: AuthorizationChallengeRequest -> Value +toJSON = AuthorizationChallengeRequest -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: AuthorizationChallengeRequest -> Encoding -toEncoding = AuthorizationChallengeRequest -> Encoding +HsJSONPB.toAesonValue + toEncoding :: AuthorizationChallengeRequest -> Encoding +toEncoding = AuthorizationChallengeRequest -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON AuthorizationChallengeRequest where - parseJSON :: Value -> Parser AuthorizationChallengeRequest -parseJSON = Value -> Parser AuthorizationChallengeRequest +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON AuthorizationChallengeRequest where + parseJSON :: Value -> Parser AuthorizationChallengeRequest +parseJSON = Value -> Parser AuthorizationChallengeRequest forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema AuthorizationChallengeRequest where - declareNamedSchema :: Proxy AuthorizationChallengeRequest +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema AuthorizationChallengeRequest where + declareNamedSchema :: Proxy AuthorizationChallengeRequest -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do NamedSchema -> Declare (Definitions Schema) NamedSchema +declareNamedSchema Proxy AuthorizationChallengeRequest +_ + = do NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "AuthorizationChallengeRequest", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"AuthorizationChallengeRequest", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList []}}) - -newtype AuthorizationChallengeResponse = AuthorizationChallengeResponse{AuthorizationChallengeResponse -> ByteString +HsJSONPB.insOrdFromList []}}) + +newtype AuthorizationChallengeResponse = AuthorizationChallengeResponse{AuthorizationChallengeResponse -> ByteString authorizationChallengeResponsePayload - :: Hs.ByteString} - deriving (Int -> AuthorizationChallengeResponse -> ShowS + :: Hs.ByteString} + deriving (Int -> AuthorizationChallengeResponse -> ShowS [AuthorizationChallengeResponse] -> ShowS AuthorizationChallengeResponse -> String (Int -> AuthorizationChallengeResponse -> ShowS) @@ -2950,7 +3132,7 @@ show :: AuthorizationChallengeResponse -> String $cshow :: AuthorizationChallengeResponse -> String showsPrec :: Int -> AuthorizationChallengeResponse -> ShowS $cshowsPrec :: Int -> AuthorizationChallengeResponse -> ShowS -Hs.Show, AuthorizationChallengeResponse +Hs.Show, AuthorizationChallengeResponse -> AuthorizationChallengeResponse -> Bool (AuthorizationChallengeResponse -> AuthorizationChallengeResponse -> Bool) @@ -2966,10 +3148,10 @@ $c/= :: AuthorizationChallengeResponse -> AuthorizationChallengeResponse -> Bool $c== :: AuthorizationChallengeResponse -> AuthorizationChallengeResponse -> Bool -Hs.Eq, Eq AuthorizationChallengeResponse -Eq AuthorizationChallengeResponse => -(AuthorizationChallengeResponse - -> AuthorizationChallengeResponse -> Ordering) +Hs.Eq, Eq AuthorizationChallengeResponse +Eq AuthorizationChallengeResponse +-> (AuthorizationChallengeResponse + -> AuthorizationChallengeResponse -> Ordering) -> (AuthorizationChallengeResponse -> AuthorizationChallengeResponse -> Bool) -> (AuthorizationChallengeResponse @@ -2992,8 +3174,8 @@ AuthorizationChallengeResponse AuthorizationChallengeResponse -> AuthorizationChallengeResponse -> AuthorizationChallengeResponse forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -3030,7 +3212,7 @@ compare :: AuthorizationChallengeResponse $ccompare :: AuthorizationChallengeResponse -> AuthorizationChallengeResponse -> Ordering $cp1Ord :: Eq AuthorizationChallengeResponse -Hs.Ord, (forall x. +Hs.Ord, (forall x. AuthorizationChallengeResponse -> Rep AuthorizationChallengeResponse x) -> (forall x. @@ -3051,220 +3233,237 @@ Rep AuthorizationChallengeResponse x $cfrom :: forall x. AuthorizationChallengeResponse -> Rep AuthorizationChallengeResponse x -Hs.Generic, AuthorizationChallengeResponse -> () +Hs.Generic, AuthorizationChallengeResponse -> () (AuthorizationChallengeResponse -> ()) -> NFData AuthorizationChallengeResponse forall a. (a -> ()) -> NFData a rnf :: AuthorizationChallengeResponse -> () $crnf :: AuthorizationChallengeResponse -> () -Hs.NFData) - -instance HsProtobuf.Named AuthorizationChallengeResponse where - nameOf :: Proxy# AuthorizationChallengeResponse -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named AuthorizationChallengeResponse where + nameOf :: Proxy# AuthorizationChallengeResponse -> string +nameOf Proxy# AuthorizationChallengeResponse +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "AuthorizationChallengeResponse") - -instance HsProtobuf.HasDefault AuthorizationChallengeResponse - -instance HsProtobuf.Message AuthorizationChallengeResponse where - encodeMessage :: FieldNumber -> AuthorizationChallengeResponse -> MessageBuilder -encodeMessage _ - AuthorizationChallengeResponse{authorizationChallengeResponsePayload :: AuthorizationChallengeResponse -> ByteString +Hs.fromString String +"AuthorizationChallengeResponse") + +instance HsProtobuf.HasDefault AuthorizationChallengeResponse + +instance HsProtobuf.Message AuthorizationChallengeResponse where + encodeMessage :: FieldNumber -> AuthorizationChallengeResponse -> MessageBuilder +encodeMessage FieldNumber +_ + AuthorizationChallengeResponse{authorizationChallengeResponsePayload :: AuthorizationChallengeResponse -> ByteString authorizationChallengeResponsePayload - = ByteString -authorizationChallengeResponsePayload} - = ([MessageBuilder] -> MessageBuilder + = ByteString +authorizationChallengeResponsePayload} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> ByteString -> MessageBuilder +Hs.mconcat + [(FieldNumber -> ByteString -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - ByteString -authorizationChallengeResponsePayload)]) - decodeMessage :: FieldNumber -> Parser RawMessage AuthorizationChallengeResponse -decodeMessage _ - = ((ByteString -> AuthorizationChallengeResponse) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + ByteString +authorizationChallengeResponsePayload)]) + decodeMessage :: FieldNumber -> Parser RawMessage AuthorizationChallengeResponse +decodeMessage FieldNumber +_ + = ((ByteString -> AuthorizationChallengeResponse) -> Parser RawMessage (ByteString -> AuthorizationChallengeResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString -> AuthorizationChallengeResponse +Hs.pure ByteString -> AuthorizationChallengeResponse AuthorizationChallengeResponse) Parser RawMessage (ByteString -> AuthorizationChallengeResponse) -> Parser RawMessage ByteString -> Parser RawMessage AuthorizationChallengeResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField ByteString +<*> + (Parser RawField ByteString -> FieldNumber -> Parser RawMessage ByteString forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField ByteString +HsProtobuf.at Parser RawField ByteString forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - dotProto :: Proxy# AuthorizationChallengeResponse -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + dotProto :: Proxy# AuthorizationChallengeResponse -> [DotProtoField] +dotProto Proxy# AuthorizationChallengeResponse +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.Bytes) - (String -> DotProtoIdentifier -HsProtobuf.Single "payload") - [] - "")] - -instance HsJSONPB.ToJSONPB AuthorizationChallengeResponse where - toJSONPB :: AuthorizationChallengeResponse -> Options -> Value -toJSONPB (AuthorizationChallengeResponse f1 :: ByteString -f1) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["payload" Text -> ByteString -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.Bytes) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"payload") + [] + String +"")] + +instance HsJSONPB.ToJSONPB AuthorizationChallengeResponse where + toJSONPB :: AuthorizationChallengeResponse -> Options -> Value +toJSONPB (AuthorizationChallengeResponse ByteString +f1) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"payload" Text -> ByteString -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f1]) - toEncodingPB :: AuthorizationChallengeResponse -> Options -> Encoding -toEncodingPB (AuthorizationChallengeResponse f1 :: ByteString -f1) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["payload" Text -> ByteString -> Options -> Series +.= ByteString +f1]) + toEncodingPB :: AuthorizationChallengeResponse -> Options -> Encoding +toEncodingPB (AuthorizationChallengeResponse ByteString +f1) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"payload" Text -> ByteString -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f1]) - -instance HsJSONPB.FromJSONPB AuthorizationChallengeResponse where - parseJSONPB :: Value -> Parser AuthorizationChallengeResponse -parseJSONPB - = (String +.= ByteString +f1]) + +instance HsJSONPB.FromJSONPB AuthorizationChallengeResponse where + parseJSONPB :: Value -> Parser AuthorizationChallengeResponse +parseJSONPB + = (String -> (Object -> Parser AuthorizationChallengeResponse) -> Value -> Parser AuthorizationChallengeResponse forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "AuthorizationChallengeResponse" - (\ obj :: Object -obj -> - ((ByteString -> AuthorizationChallengeResponse) +HsJSONPB.withObject String +"AuthorizationChallengeResponse" + (\ Object +obj -> + ((ByteString -> AuthorizationChallengeResponse) -> Parser (ByteString -> AuthorizationChallengeResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString -> AuthorizationChallengeResponse +Hs.pure ByteString -> AuthorizationChallengeResponse AuthorizationChallengeResponse) Parser (ByteString -> AuthorizationChallengeResponse) -> Parser ByteString -> Parser AuthorizationChallengeResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser ByteString +<*> Object +obj Object -> Text -> Parser ByteString forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "payload")) - -instance HsJSONPB.ToJSON AuthorizationChallengeResponse where - toJSON :: AuthorizationChallengeResponse -> Value -toJSON = AuthorizationChallengeResponse -> Value +.: Text +"payload")) + +instance HsJSONPB.ToJSON AuthorizationChallengeResponse where + toJSON :: AuthorizationChallengeResponse -> Value +toJSON = AuthorizationChallengeResponse -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: AuthorizationChallengeResponse -> Encoding -toEncoding = AuthorizationChallengeResponse -> Encoding +HsJSONPB.toAesonValue + toEncoding :: AuthorizationChallengeResponse -> Encoding +toEncoding = AuthorizationChallengeResponse -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON AuthorizationChallengeResponse where - parseJSON :: Value -> Parser AuthorizationChallengeResponse -parseJSON = Value -> Parser AuthorizationChallengeResponse +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON AuthorizationChallengeResponse where + parseJSON :: Value -> Parser AuthorizationChallengeResponse +parseJSON = Value -> Parser AuthorizationChallengeResponse forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema AuthorizationChallengeResponse where - declareNamedSchema :: Proxy AuthorizationChallengeResponse +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema AuthorizationChallengeResponse where + declareNamedSchema :: Proxy AuthorizationChallengeResponse -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_payload :: Proxy (OverrideToSchema ByteString) +declareNamedSchema Proxy AuthorizationChallengeResponse +_ + = do let declare_payload :: Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_payload = Proxy (OverrideToSchema ByteString) +declare_payload = Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -authorizationChallengeResponsePayload <- Proxy (OverrideToSchema ByteString) +HsJSONPB.declareSchemaRef + Referenced Schema +authorizationChallengeResponsePayload <- Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_payload - Proxy (OverrideToSchema ByteString) +declare_payload + Proxy (OverrideToSchema ByteString) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy AuthorizationChallengeResponse +Proxy.Proxy + let Proxy AuthorizationChallengeResponse _ = (ByteString -> AuthorizationChallengeResponse) -> Proxy (ByteString -> AuthorizationChallengeResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString -> AuthorizationChallengeResponse +Hs.pure ByteString -> AuthorizationChallengeResponse AuthorizationChallengeResponse Proxy (ByteString -> AuthorizationChallengeResponse) -> Proxy ByteString -> Proxy AuthorizationChallengeResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema ByteString) +<*> + (Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy ByteString forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) +HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_payload - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_payload + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "AuthorizationChallengeResponse", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"AuthorizationChallengeResponse", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("payload", - Referenced Schema -authorizationChallengeResponsePayload)]}}) - -data AuthorizationChallengeSubmit = AuthorizationChallengeSubmit{AuthorizationChallengeSubmit -> Text +HsJSONPB.insOrdFromList + [(Text +"payload", + Referenced Schema +authorizationChallengeResponsePayload)]}}) + +data AuthorizationChallengeSubmit = AuthorizationChallengeSubmit{AuthorizationChallengeSubmit -> Text authorizationChallengeSubmitPublicKey - :: Hs.Text, - AuthorizationChallengeSubmit -> Text + :: Hs.Text, + AuthorizationChallengeSubmit -> Text authorizationChallengeSubmitSignature - :: Hs.Text, - AuthorizationChallengeSubmit -> Vector (Enumerated RoleType) + :: Hs.Text, + AuthorizationChallengeSubmit -> Vector (Enumerated RoleType) authorizationChallengeSubmitRoles - :: - Hs.Vector - (HsProtobuf.Enumerated - Data.Sawtooth.Authorization.RoleType)} - deriving (Int -> AuthorizationChallengeSubmit -> ShowS + :: + Hs.Vector + (HsProtobuf.Enumerated + Data.Sawtooth.Authorization.RoleType)} + deriving (Int -> AuthorizationChallengeSubmit -> ShowS [AuthorizationChallengeSubmit] -> ShowS AuthorizationChallengeSubmit -> String (Int -> AuthorizationChallengeSubmit -> ShowS) @@ -3279,7 +3478,7 @@ show :: AuthorizationChallengeSubmit -> String $cshow :: AuthorizationChallengeSubmit -> String showsPrec :: Int -> AuthorizationChallengeSubmit -> ShowS $cshowsPrec :: Int -> AuthorizationChallengeSubmit -> ShowS -Hs.Show, AuthorizationChallengeSubmit +Hs.Show, AuthorizationChallengeSubmit -> AuthorizationChallengeSubmit -> Bool (AuthorizationChallengeSubmit -> AuthorizationChallengeSubmit -> Bool) @@ -3295,10 +3494,10 @@ $c/= :: AuthorizationChallengeSubmit -> AuthorizationChallengeSubmit -> Bool $c== :: AuthorizationChallengeSubmit -> AuthorizationChallengeSubmit -> Bool -Hs.Eq, Eq AuthorizationChallengeSubmit -Eq AuthorizationChallengeSubmit => -(AuthorizationChallengeSubmit - -> AuthorizationChallengeSubmit -> Ordering) +Hs.Eq, Eq AuthorizationChallengeSubmit +Eq AuthorizationChallengeSubmit +-> (AuthorizationChallengeSubmit + -> AuthorizationChallengeSubmit -> Ordering) -> (AuthorizationChallengeSubmit -> AuthorizationChallengeSubmit -> Bool) -> (AuthorizationChallengeSubmit @@ -3319,8 +3518,8 @@ AuthorizationChallengeSubmit AuthorizationChallengeSubmit -> AuthorizationChallengeSubmit -> AuthorizationChallengeSubmit forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -3357,7 +3556,7 @@ compare :: AuthorizationChallengeSubmit $ccompare :: AuthorizationChallengeSubmit -> AuthorizationChallengeSubmit -> Ordering $cp1Ord :: Eq AuthorizationChallengeSubmit -Hs.Ord, (forall x. +Hs.Ord, (forall x. AuthorizationChallengeSubmit -> Rep AuthorizationChallengeSubmit x) -> (forall x. Rep AuthorizationChallengeSubmit x -> AuthorizationChallengeSubmit) @@ -3372,66 +3571,72 @@ $cto :: forall x. Rep AuthorizationChallengeSubmit x -> AuthorizationChallengeSubmit $cfrom :: forall x. AuthorizationChallengeSubmit -> Rep AuthorizationChallengeSubmit x -Hs.Generic, AuthorizationChallengeSubmit -> () +Hs.Generic, AuthorizationChallengeSubmit -> () (AuthorizationChallengeSubmit -> ()) -> NFData AuthorizationChallengeSubmit forall a. (a -> ()) -> NFData a rnf :: AuthorizationChallengeSubmit -> () $crnf :: AuthorizationChallengeSubmit -> () -Hs.NFData) - -instance HsProtobuf.Named AuthorizationChallengeSubmit where - nameOf :: Proxy# AuthorizationChallengeSubmit -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named AuthorizationChallengeSubmit where + nameOf :: Proxy# AuthorizationChallengeSubmit -> string +nameOf Proxy# AuthorizationChallengeSubmit +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "AuthorizationChallengeSubmit") - -instance HsProtobuf.HasDefault AuthorizationChallengeSubmit - -instance HsProtobuf.Message AuthorizationChallengeSubmit where - encodeMessage :: FieldNumber -> AuthorizationChallengeSubmit -> MessageBuilder -encodeMessage _ - AuthorizationChallengeSubmit{authorizationChallengeSubmitPublicKey :: AuthorizationChallengeSubmit -> Text +Hs.fromString String +"AuthorizationChallengeSubmit") + +instance HsProtobuf.HasDefault AuthorizationChallengeSubmit + +instance HsProtobuf.Message AuthorizationChallengeSubmit where + encodeMessage :: FieldNumber -> AuthorizationChallengeSubmit -> MessageBuilder +encodeMessage FieldNumber +_ + AuthorizationChallengeSubmit{authorizationChallengeSubmitPublicKey :: AuthorizationChallengeSubmit -> Text authorizationChallengeSubmitPublicKey - = Text -authorizationChallengeSubmitPublicKey, - authorizationChallengeSubmitSignature :: AuthorizationChallengeSubmit -> Text + = Text +authorizationChallengeSubmitPublicKey, + authorizationChallengeSubmitSignature :: AuthorizationChallengeSubmit -> Text authorizationChallengeSubmitSignature = - Text -authorizationChallengeSubmitSignature, - authorizationChallengeSubmitRoles :: AuthorizationChallengeSubmit -> Vector (Enumerated RoleType) + Text +authorizationChallengeSubmitSignature, + authorizationChallengeSubmitRoles :: AuthorizationChallengeSubmit -> Vector (Enumerated RoleType) authorizationChallengeSubmitRoles = - Vector (Enumerated RoleType) -authorizationChallengeSubmitRoles} - = ([MessageBuilder] -> MessageBuilder + Vector (Enumerated RoleType) +authorizationChallengeSubmitRoles} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> Text -> MessageBuilder +Hs.mconcat + [(FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Text -authorizationChallengeSubmitPublicKey), - (FieldNumber -> Text -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Text +authorizationChallengeSubmitPublicKey), + (FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - Text -authorizationChallengeSubmitSignature), - (FieldNumber -> PackedVec (Enumerated RoleType) -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + Text +authorizationChallengeSubmitSignature), + (FieldNumber -> PackedVec (Enumerated RoleType) -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 4) - (Vector (Enumerated RoleType) -> PackedVec (Enumerated RoleType) -forall a b. Coercible a b => a -> b -Hs.coerce - @(Hs.Vector (HsProtobuf.Enumerated Data.Sawtooth.Authorization.RoleType)) - @(HsProtobuf.PackedVec (HsProtobuf.Enumerated Data.Sawtooth.Authorization.RoleType)) - Vector (Enumerated RoleType) -authorizationChallengeSubmitRoles))]) - decodeMessage :: FieldNumber -> Parser RawMessage AuthorizationChallengeSubmit -decodeMessage _ - = ((Text +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +4) + (Vector (Enumerated RoleType) -> PackedVec (Enumerated RoleType) +Hs.coerce + @(Hs.Vector (HsProtobuf.Enumerated Data.Sawtooth.Authorization.RoleType)) + @(HsProtobuf.PackedVec (HsProtobuf.Enumerated Data.Sawtooth.Authorization.RoleType)) + Vector (Enumerated RoleType) +authorizationChallengeSubmitRoles))]) + decodeMessage :: FieldNumber -> Parser RawMessage AuthorizationChallengeSubmit +decodeMessage FieldNumber +_ + = ((Text -> Text -> Vector (Enumerated RoleType) -> AuthorizationChallengeSubmit) @@ -3442,7 +3647,7 @@ forall a b. Coercible a b => a -> b -> Vector (Enumerated RoleType) -> AuthorizationChallengeSubmit) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text +Hs.pure Text -> Text -> Vector (Enumerated RoleType) -> AuthorizationChallengeSubmit @@ -3458,15 +3663,16 @@ forall (f :: * -> *) a. Applicative f => a -> f a (Text -> Vector (Enumerated RoleType) -> AuthorizationChallengeSubmit) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (Text -> Vector (Enumerated RoleType) -> AuthorizationChallengeSubmit) @@ -3475,146 +3681,165 @@ forall a. MessageField a => Parser RawField a RawMessage (Vector (Enumerated RoleType) -> AuthorizationChallengeSubmit) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3)) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3)) + Parser RawMessage (Vector (Enumerated RoleType) -> AuthorizationChallengeSubmit) -> Parser RawMessage (Vector (Enumerated RoleType)) -> Parser RawMessage AuthorizationChallengeSubmit forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (PackedVec (Enumerated RoleType)) +<*> + (Parser RawMessage (PackedVec (Enumerated RoleType)) -> Parser RawMessage (Vector (Enumerated RoleType)) -forall a b. Coercible a b => a -> b -Hs.coerce - @(_ (HsProtobuf.PackedVec (HsProtobuf.Enumerated Data.Sawtooth.Authorization.RoleType))) - @(_ (Hs.Vector (HsProtobuf.Enumerated Data.Sawtooth.Authorization.RoleType))) - (Parser RawField (PackedVec (Enumerated RoleType)) +Hs.coerce + @(_ (HsProtobuf.PackedVec (HsProtobuf.Enumerated Data.Sawtooth.Authorization.RoleType))) + @(_ (Hs.Vector (HsProtobuf.Enumerated Data.Sawtooth.Authorization.RoleType))) + (Parser RawField (PackedVec (Enumerated RoleType)) -> FieldNumber -> Parser RawMessage (PackedVec (Enumerated RoleType)) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (PackedVec (Enumerated RoleType)) +HsProtobuf.at Parser RawField (PackedVec (Enumerated RoleType)) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 4))) - dotProto :: Proxy# AuthorizationChallengeSubmit -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +4))) + dotProto :: Proxy# AuthorizationChallengeSubmit -> [DotProtoField] +dotProto Proxy# AuthorizationChallengeSubmit +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "public_key") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"public_key") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "signature") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"signature") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 4) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Repeated - (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "RoleType"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "roles") - [] - "")] - -instance HsJSONPB.ToJSONPB AuthorizationChallengeSubmit where - toJSONPB :: AuthorizationChallengeSubmit -> Options -> Value -toJSONPB (AuthorizationChallengeSubmit f1 :: Text -f1 f3 :: Text -f3 f4 :: Vector (Enumerated RoleType) -f4) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object - ["public_key" Text -> Text -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +4) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Repeated + (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"RoleType"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"roles") + [] + String +"")] + +instance HsJSONPB.ToJSONPB AuthorizationChallengeSubmit where + toJSONPB :: AuthorizationChallengeSubmit -> Options -> Value +toJSONPB (AuthorizationChallengeSubmit Text +f1 Text +f3 Vector (Enumerated RoleType) +f4) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object + [Text +"public_key" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1, "signature" Text -> Text -> Options -> [Pair] +.= Text +f1, Text +"signature" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f3, "roles" Text -> Vector (Enumerated RoleType) -> Options -> [Pair] +.= Text +f3, Text +"roles" Text -> Vector (Enumerated RoleType) -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector (Enumerated RoleType) -f4]) - toEncodingPB :: AuthorizationChallengeSubmit -> Options -> Encoding -toEncodingPB (AuthorizationChallengeSubmit f1 :: Text -f1 f3 :: Text -f3 f4 :: Vector (Enumerated RoleType) -f4) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs - ["public_key" Text -> Text -> Options -> Series +.= Vector (Enumerated RoleType) +f4]) + toEncodingPB :: AuthorizationChallengeSubmit -> Options -> Encoding +toEncodingPB (AuthorizationChallengeSubmit Text +f1 Text +f3 Vector (Enumerated RoleType) +f4) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs + [Text +"public_key" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1, "signature" Text -> Text -> Options -> Series +.= Text +f1, Text +"signature" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f3, "roles" Text -> Vector (Enumerated RoleType) -> Options -> Series +.= Text +f3, Text +"roles" Text -> Vector (Enumerated RoleType) -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector (Enumerated RoleType) -f4]) - -instance HsJSONPB.FromJSONPB AuthorizationChallengeSubmit where - parseJSONPB :: Value -> Parser AuthorizationChallengeSubmit -parseJSONPB - = (String +.= Vector (Enumerated RoleType) +f4]) + +instance HsJSONPB.FromJSONPB AuthorizationChallengeSubmit where + parseJSONPB :: Value -> Parser AuthorizationChallengeSubmit +parseJSONPB + = (String -> (Object -> Parser AuthorizationChallengeSubmit) -> Value -> Parser AuthorizationChallengeSubmit forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "AuthorizationChallengeSubmit" - (\ obj :: Object -obj -> - ((Text +HsJSONPB.withObject String +"AuthorizationChallengeSubmit" + (\ Object +obj -> + ((Text -> Text -> Vector (Enumerated RoleType) -> AuthorizationChallengeSubmit) @@ -3624,7 +3849,7 @@ forall a. String -> (Object -> Parser a) -> Value -> Parser a -> Vector (Enumerated RoleType) -> AuthorizationChallengeSubmit) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text +Hs.pure Text -> Text -> Vector (Enumerated RoleType) -> AuthorizationChallengeSubmit @@ -3638,102 +3863,106 @@ forall (f :: * -> *) a. Applicative f => a -> f a (Text -> Vector (Enumerated RoleType) -> AuthorizationChallengeSubmit) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Text +<*> Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "public_key" Parser +.: Text +"public_key" Parser (Text -> Vector (Enumerated RoleType) -> AuthorizationChallengeSubmit) -> Parser Text -> Parser (Vector (Enumerated RoleType) -> AuthorizationChallengeSubmit) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser Text +<*> + Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "signature" - Parser +.: Text +"signature" + Parser (Vector (Enumerated RoleType) -> AuthorizationChallengeSubmit) -> Parser (Vector (Enumerated RoleType)) -> Parser AuthorizationChallengeSubmit forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser (Vector (Enumerated RoleType)) +<*> Object +obj Object -> Text -> Parser (Vector (Enumerated RoleType)) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "roles")) - -instance HsJSONPB.ToJSON AuthorizationChallengeSubmit where - toJSON :: AuthorizationChallengeSubmit -> Value -toJSON = AuthorizationChallengeSubmit -> Value +.: Text +"roles")) + +instance HsJSONPB.ToJSON AuthorizationChallengeSubmit where + toJSON :: AuthorizationChallengeSubmit -> Value +toJSON = AuthorizationChallengeSubmit -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: AuthorizationChallengeSubmit -> Encoding -toEncoding = AuthorizationChallengeSubmit -> Encoding +HsJSONPB.toAesonValue + toEncoding :: AuthorizationChallengeSubmit -> Encoding +toEncoding = AuthorizationChallengeSubmit -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON AuthorizationChallengeSubmit where - parseJSON :: Value -> Parser AuthorizationChallengeSubmit -parseJSON = Value -> Parser AuthorizationChallengeSubmit +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON AuthorizationChallengeSubmit where + parseJSON :: Value -> Parser AuthorizationChallengeSubmit +parseJSON = Value -> Parser AuthorizationChallengeSubmit forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema AuthorizationChallengeSubmit where - declareNamedSchema :: Proxy AuthorizationChallengeSubmit +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema AuthorizationChallengeSubmit where + declareNamedSchema :: Proxy AuthorizationChallengeSubmit -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_public_key :: Proxy (OverrideToSchema Text) +declareNamedSchema Proxy AuthorizationChallengeSubmit +_ + = do let declare_public_key :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_public_key = Proxy (OverrideToSchema Text) +declare_public_key = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -authorizationChallengeSubmitPublicKey <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +authorizationChallengeSubmitPublicKey <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_public_key - Proxy (OverrideToSchema Text) +declare_public_key + Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_signature :: Proxy (OverrideToSchema Text) +Proxy.Proxy + let declare_signature :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_signature = Proxy (OverrideToSchema Text) +declare_signature = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -authorizationChallengeSubmitSignature <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +authorizationChallengeSubmitSignature <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_signature - Proxy (OverrideToSchema Text) +declare_signature + Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_roles :: Proxy (OverrideToSchema (Vector (Enumerated RoleType))) +Proxy.Proxy + let declare_roles :: Proxy (OverrideToSchema (Vector (Enumerated RoleType))) -> Declare (Definitions Schema) (Referenced Schema) -declare_roles = Proxy (OverrideToSchema (Vector (Enumerated RoleType))) +declare_roles = Proxy (OverrideToSchema (Vector (Enumerated RoleType))) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -authorizationChallengeSubmitRoles <- Proxy (OverrideToSchema (Vector (Enumerated RoleType))) +HsJSONPB.declareSchemaRef + Referenced Schema +authorizationChallengeSubmitRoles <- Proxy (OverrideToSchema (Vector (Enumerated RoleType))) -> Declare (Definitions Schema) (Referenced Schema) -declare_roles Proxy (OverrideToSchema (Vector (Enumerated RoleType))) +declare_roles Proxy (OverrideToSchema (Vector (Enumerated RoleType))) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy AuthorizationChallengeSubmit +Proxy.Proxy + let Proxy AuthorizationChallengeSubmit _ = (Text -> Text -> Vector (Enumerated RoleType) @@ -3744,7 +3973,7 @@ forall k (t :: k). Proxy t -> Vector (Enumerated RoleType) -> AuthorizationChallengeSubmit) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text +Hs.pure Text -> Text -> Vector (Enumerated RoleType) -> AuthorizationChallengeSubmit @@ -3758,87 +3987,91 @@ forall (f :: * -> *) a. Applicative f => a -> f a (Text -> Vector (Enumerated RoleType) -> AuthorizationChallengeSubmit) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema Text) +<*> + (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_public_key - Proxy +declare_public_key + Proxy (Text -> Vector (Enumerated RoleType) -> AuthorizationChallengeSubmit) -> Proxy Text -> Proxy (Vector (Enumerated RoleType) -> AuthorizationChallengeSubmit) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema Text) +<*> (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_signature - Proxy +declare_signature + Proxy (Vector (Enumerated RoleType) -> AuthorizationChallengeSubmit) -> Proxy (Vector (Enumerated RoleType)) -> Proxy AuthorizationChallengeSubmit forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema (Vector (Enumerated RoleType))) +<*> (Proxy (OverrideToSchema (Vector (Enumerated RoleType))) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Vector (Enumerated RoleType)) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Vector (Enumerated RoleType))) +HsJSONPB.asProxy Proxy (OverrideToSchema (Vector (Enumerated RoleType))) -> Declare (Definitions Schema) (Referenced Schema) -declare_roles - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_roles + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "AuthorizationChallengeSubmit", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"AuthorizationChallengeSubmit", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("public_key", - Referenced Schema -authorizationChallengeSubmitPublicKey), - ("signature", - Referenced Schema -authorizationChallengeSubmitSignature), - ("roles", - Referenced Schema -authorizationChallengeSubmitRoles)]}}) - -newtype AuthorizationChallengeResult = AuthorizationChallengeResult{AuthorizationChallengeResult -> Vector (Enumerated RoleType) +HsJSONPB.insOrdFromList + [(Text +"public_key", + Referenced Schema +authorizationChallengeSubmitPublicKey), + (Text +"signature", + Referenced Schema +authorizationChallengeSubmitSignature), + (Text +"roles", + Referenced Schema +authorizationChallengeSubmitRoles)]}}) + +newtype AuthorizationChallengeResult = AuthorizationChallengeResult{AuthorizationChallengeResult -> Vector (Enumerated RoleType) authorizationChallengeResultRoles - :: - Hs.Vector - (HsProtobuf.Enumerated - Data.Sawtooth.Authorization.RoleType)} - deriving (Int -> AuthorizationChallengeResult -> ShowS + :: + Hs.Vector + (HsProtobuf.Enumerated + Data.Sawtooth.Authorization.RoleType)} + deriving (Int -> AuthorizationChallengeResult -> ShowS [AuthorizationChallengeResult] -> ShowS AuthorizationChallengeResult -> String (Int -> AuthorizationChallengeResult -> ShowS) @@ -3853,7 +4086,7 @@ show :: AuthorizationChallengeResult -> String $cshow :: AuthorizationChallengeResult -> String showsPrec :: Int -> AuthorizationChallengeResult -> ShowS $cshowsPrec :: Int -> AuthorizationChallengeResult -> ShowS -Hs.Show, AuthorizationChallengeResult +Hs.Show, AuthorizationChallengeResult -> AuthorizationChallengeResult -> Bool (AuthorizationChallengeResult -> AuthorizationChallengeResult -> Bool) @@ -3869,10 +4102,10 @@ $c/= :: AuthorizationChallengeResult -> AuthorizationChallengeResult -> Bool $c== :: AuthorizationChallengeResult -> AuthorizationChallengeResult -> Bool -Hs.Eq, Eq AuthorizationChallengeResult -Eq AuthorizationChallengeResult => -(AuthorizationChallengeResult - -> AuthorizationChallengeResult -> Ordering) +Hs.Eq, Eq AuthorizationChallengeResult +Eq AuthorizationChallengeResult +-> (AuthorizationChallengeResult + -> AuthorizationChallengeResult -> Ordering) -> (AuthorizationChallengeResult -> AuthorizationChallengeResult -> Bool) -> (AuthorizationChallengeResult @@ -3893,8 +4126,8 @@ AuthorizationChallengeResult AuthorizationChallengeResult -> AuthorizationChallengeResult -> AuthorizationChallengeResult forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -3931,7 +4164,7 @@ compare :: AuthorizationChallengeResult $ccompare :: AuthorizationChallengeResult -> AuthorizationChallengeResult -> Ordering $cp1Ord :: Eq AuthorizationChallengeResult -Hs.Ord, (forall x. +Hs.Ord, (forall x. AuthorizationChallengeResult -> Rep AuthorizationChallengeResult x) -> (forall x. Rep AuthorizationChallengeResult x -> AuthorizationChallengeResult) @@ -3946,226 +4179,242 @@ $cto :: forall x. Rep AuthorizationChallengeResult x -> AuthorizationChallengeResult $cfrom :: forall x. AuthorizationChallengeResult -> Rep AuthorizationChallengeResult x -Hs.Generic, AuthorizationChallengeResult -> () +Hs.Generic, AuthorizationChallengeResult -> () (AuthorizationChallengeResult -> ()) -> NFData AuthorizationChallengeResult forall a. (a -> ()) -> NFData a rnf :: AuthorizationChallengeResult -> () $crnf :: AuthorizationChallengeResult -> () -Hs.NFData) - -instance HsProtobuf.Named AuthorizationChallengeResult where - nameOf :: Proxy# AuthorizationChallengeResult -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named AuthorizationChallengeResult where + nameOf :: Proxy# AuthorizationChallengeResult -> string +nameOf Proxy# AuthorizationChallengeResult +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "AuthorizationChallengeResult") - -instance HsProtobuf.HasDefault AuthorizationChallengeResult - -instance HsProtobuf.Message AuthorizationChallengeResult where - encodeMessage :: FieldNumber -> AuthorizationChallengeResult -> MessageBuilder -encodeMessage _ - AuthorizationChallengeResult{authorizationChallengeResultRoles :: AuthorizationChallengeResult -> Vector (Enumerated RoleType) +Hs.fromString String +"AuthorizationChallengeResult") + +instance HsProtobuf.HasDefault AuthorizationChallengeResult + +instance HsProtobuf.Message AuthorizationChallengeResult where + encodeMessage :: FieldNumber -> AuthorizationChallengeResult -> MessageBuilder +encodeMessage FieldNumber +_ + AuthorizationChallengeResult{authorizationChallengeResultRoles :: AuthorizationChallengeResult -> Vector (Enumerated RoleType) authorizationChallengeResultRoles = - Vector (Enumerated RoleType) -authorizationChallengeResultRoles} - = ([MessageBuilder] -> MessageBuilder + Vector (Enumerated RoleType) +authorizationChallengeResultRoles} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> PackedVec (Enumerated RoleType) -> MessageBuilder +Hs.mconcat + [(FieldNumber -> PackedVec (Enumerated RoleType) -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (Vector (Enumerated RoleType) -> PackedVec (Enumerated RoleType) -forall a b. Coercible a b => a -> b -Hs.coerce - @(Hs.Vector (HsProtobuf.Enumerated Data.Sawtooth.Authorization.RoleType)) - @(HsProtobuf.PackedVec (HsProtobuf.Enumerated Data.Sawtooth.Authorization.RoleType)) - Vector (Enumerated RoleType) -authorizationChallengeResultRoles))]) - decodeMessage :: FieldNumber -> Parser RawMessage AuthorizationChallengeResult -decodeMessage _ - = ((Vector (Enumerated RoleType) -> AuthorizationChallengeResult) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (Vector (Enumerated RoleType) -> PackedVec (Enumerated RoleType) +Hs.coerce + @(Hs.Vector (HsProtobuf.Enumerated Data.Sawtooth.Authorization.RoleType)) + @(HsProtobuf.PackedVec (HsProtobuf.Enumerated Data.Sawtooth.Authorization.RoleType)) + Vector (Enumerated RoleType) +authorizationChallengeResultRoles))]) + decodeMessage :: FieldNumber -> Parser RawMessage AuthorizationChallengeResult +decodeMessage FieldNumber +_ + = ((Vector (Enumerated RoleType) -> AuthorizationChallengeResult) -> Parser RawMessage (Vector (Enumerated RoleType) -> AuthorizationChallengeResult) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector (Enumerated RoleType) -> AuthorizationChallengeResult +Hs.pure Vector (Enumerated RoleType) -> AuthorizationChallengeResult AuthorizationChallengeResult) Parser RawMessage (Vector (Enumerated RoleType) -> AuthorizationChallengeResult) -> Parser RawMessage (Vector (Enumerated RoleType)) -> Parser RawMessage AuthorizationChallengeResult forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (PackedVec (Enumerated RoleType)) +<*> + (Parser RawMessage (PackedVec (Enumerated RoleType)) -> Parser RawMessage (Vector (Enumerated RoleType)) -forall a b. Coercible a b => a -> b -Hs.coerce - @(_ (HsProtobuf.PackedVec (HsProtobuf.Enumerated Data.Sawtooth.Authorization.RoleType))) - @(_ (Hs.Vector (HsProtobuf.Enumerated Data.Sawtooth.Authorization.RoleType))) - (Parser RawField (PackedVec (Enumerated RoleType)) +Hs.coerce + @(_ (HsProtobuf.PackedVec (HsProtobuf.Enumerated Data.Sawtooth.Authorization.RoleType))) + @(_ (Hs.Vector (HsProtobuf.Enumerated Data.Sawtooth.Authorization.RoleType))) + (Parser RawField (PackedVec (Enumerated RoleType)) -> FieldNumber -> Parser RawMessage (PackedVec (Enumerated RoleType)) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (PackedVec (Enumerated RoleType)) +HsProtobuf.at Parser RawField (PackedVec (Enumerated RoleType)) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1))) - dotProto :: Proxy# AuthorizationChallengeResult -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1))) + dotProto :: Proxy# AuthorizationChallengeResult -> [DotProtoField] +dotProto Proxy# AuthorizationChallengeResult +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Repeated - (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "RoleType"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "roles") - [] - "")] - -instance HsJSONPB.ToJSONPB AuthorizationChallengeResult where - toJSONPB :: AuthorizationChallengeResult -> Options -> Value -toJSONPB (AuthorizationChallengeResult f1 :: Vector (Enumerated RoleType) -f1) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["roles" Text -> Vector (Enumerated RoleType) -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Repeated + (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"RoleType"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"roles") + [] + String +"")] + +instance HsJSONPB.ToJSONPB AuthorizationChallengeResult where + toJSONPB :: AuthorizationChallengeResult -> Options -> Value +toJSONPB (AuthorizationChallengeResult Vector (Enumerated RoleType) +f1) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"roles" Text -> Vector (Enumerated RoleType) -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector (Enumerated RoleType) -f1]) - toEncodingPB :: AuthorizationChallengeResult -> Options -> Encoding -toEncodingPB (AuthorizationChallengeResult f1 :: Vector (Enumerated RoleType) -f1) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["roles" Text -> Vector (Enumerated RoleType) -> Options -> Series +.= Vector (Enumerated RoleType) +f1]) + toEncodingPB :: AuthorizationChallengeResult -> Options -> Encoding +toEncodingPB (AuthorizationChallengeResult Vector (Enumerated RoleType) +f1) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"roles" Text -> Vector (Enumerated RoleType) -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector (Enumerated RoleType) -f1]) - -instance HsJSONPB.FromJSONPB AuthorizationChallengeResult where - parseJSONPB :: Value -> Parser AuthorizationChallengeResult -parseJSONPB - = (String +.= Vector (Enumerated RoleType) +f1]) + +instance HsJSONPB.FromJSONPB AuthorizationChallengeResult where + parseJSONPB :: Value -> Parser AuthorizationChallengeResult +parseJSONPB + = (String -> (Object -> Parser AuthorizationChallengeResult) -> Value -> Parser AuthorizationChallengeResult forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "AuthorizationChallengeResult" - (\ obj :: Object -obj -> - ((Vector (Enumerated RoleType) -> AuthorizationChallengeResult) +HsJSONPB.withObject String +"AuthorizationChallengeResult" + (\ Object +obj -> + ((Vector (Enumerated RoleType) -> AuthorizationChallengeResult) -> Parser (Vector (Enumerated RoleType) -> AuthorizationChallengeResult) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector (Enumerated RoleType) -> AuthorizationChallengeResult +Hs.pure Vector (Enumerated RoleType) -> AuthorizationChallengeResult AuthorizationChallengeResult) Parser (Vector (Enumerated RoleType) -> AuthorizationChallengeResult) -> Parser (Vector (Enumerated RoleType)) -> Parser AuthorizationChallengeResult forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser (Vector (Enumerated RoleType)) +<*> Object +obj Object -> Text -> Parser (Vector (Enumerated RoleType)) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "roles")) - -instance HsJSONPB.ToJSON AuthorizationChallengeResult where - toJSON :: AuthorizationChallengeResult -> Value -toJSON = AuthorizationChallengeResult -> Value +.: Text +"roles")) + +instance HsJSONPB.ToJSON AuthorizationChallengeResult where + toJSON :: AuthorizationChallengeResult -> Value +toJSON = AuthorizationChallengeResult -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: AuthorizationChallengeResult -> Encoding -toEncoding = AuthorizationChallengeResult -> Encoding +HsJSONPB.toAesonValue + toEncoding :: AuthorizationChallengeResult -> Encoding +toEncoding = AuthorizationChallengeResult -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON AuthorizationChallengeResult where - parseJSON :: Value -> Parser AuthorizationChallengeResult -parseJSON = Value -> Parser AuthorizationChallengeResult +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON AuthorizationChallengeResult where + parseJSON :: Value -> Parser AuthorizationChallengeResult +parseJSON = Value -> Parser AuthorizationChallengeResult forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema AuthorizationChallengeResult where - declareNamedSchema :: Proxy AuthorizationChallengeResult +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema AuthorizationChallengeResult where + declareNamedSchema :: Proxy AuthorizationChallengeResult -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_roles :: Proxy (OverrideToSchema (Vector (Enumerated RoleType))) +declareNamedSchema Proxy AuthorizationChallengeResult +_ + = do let declare_roles :: Proxy (OverrideToSchema (Vector (Enumerated RoleType))) -> Declare (Definitions Schema) (Referenced Schema) -declare_roles = Proxy (OverrideToSchema (Vector (Enumerated RoleType))) +declare_roles = Proxy (OverrideToSchema (Vector (Enumerated RoleType))) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -authorizationChallengeResultRoles <- Proxy (OverrideToSchema (Vector (Enumerated RoleType))) +HsJSONPB.declareSchemaRef + Referenced Schema +authorizationChallengeResultRoles <- Proxy (OverrideToSchema (Vector (Enumerated RoleType))) -> Declare (Definitions Schema) (Referenced Schema) -declare_roles Proxy (OverrideToSchema (Vector (Enumerated RoleType))) +declare_roles Proxy (OverrideToSchema (Vector (Enumerated RoleType))) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy AuthorizationChallengeResult +Proxy.Proxy + let Proxy AuthorizationChallengeResult _ = (Vector (Enumerated RoleType) -> AuthorizationChallengeResult) -> Proxy (Vector (Enumerated RoleType) -> AuthorizationChallengeResult) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector (Enumerated RoleType) -> AuthorizationChallengeResult +Hs.pure Vector (Enumerated RoleType) -> AuthorizationChallengeResult AuthorizationChallengeResult Proxy (Vector (Enumerated RoleType) -> AuthorizationChallengeResult) -> Proxy (Vector (Enumerated RoleType)) -> Proxy AuthorizationChallengeResult forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema (Vector (Enumerated RoleType))) +<*> + (Proxy (OverrideToSchema (Vector (Enumerated RoleType))) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Vector (Enumerated RoleType)) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Vector (Enumerated RoleType))) +HsJSONPB.asProxy Proxy (OverrideToSchema (Vector (Enumerated RoleType))) -> Declare (Definitions Schema) (Referenced Schema) -declare_roles - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_roles + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "AuthorizationChallengeResult", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"AuthorizationChallengeResult", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("roles", - Referenced Schema -authorizationChallengeResultRoles)]}}) \ No newline at end of file +HsJSONPB.insOrdFromList + [(Text +"roles", + Referenced Schema +authorizationChallengeResultRoles)]}}) \ No newline at end of file diff --git a/src/Data.Sawtooth.Batch.html b/src/Data.Sawtooth.Batch.html index cb6ec90..84fdfa3 100644 --- a/src/Data.Sawtooth.Batch.html +++ b/src/Data.Sawtooth.Batch.html @@ -9,40 +9,39 @@ {-# OPTIONS_GHC -fno-warn-unused-matches #-} -- | Generated by Haskell protocol buffer compiler. DO NOT EDIT! - -module Data.Sawtooth.Batch where -import qualified Prelude as Hs -import qualified Proto3.Suite.Class as HsProtobuf -import qualified Proto3.Suite.DotProto as HsProtobuf -import qualified Proto3.Suite.JSONPB as HsJSONPB -import Proto3.Suite.JSONPB ((.=), (.:)) -import qualified Proto3.Suite.Types as HsProtobuf -import qualified Proto3.Wire as HsProtobuf -import qualified Control.Applicative as Hs -import Control.Applicative ((<*>), (<|>), (<$>)) -import qualified Control.DeepSeq as Hs -import qualified Control.Monad as Hs -import qualified Data.ByteString as Hs -import qualified Data.Coerce as Hs -import qualified Data.Int as Hs (Int16, Int32, Int64) -import qualified Data.List.NonEmpty as Hs (NonEmpty(..)) -import qualified Data.Map as Hs (Map, mapKeysMonotonic) -import qualified Data.Proxy as Proxy -import qualified Data.String as Hs (fromString) -import qualified Data.Text.Lazy as Hs (Text) -import qualified Data.Vector as Hs (Vector) -import qualified Data.Word as Hs (Word16, Word32, Word64) -import qualified GHC.Enum as Hs -import qualified GHC.Generics as Hs -import qualified Unsafe.Coerce as Hs -import qualified Data.Sawtooth.Transaction - -data BatchHeader = BatchHeader{BatchHeader -> Text +module Data.Sawtooth.Batch where +import qualified Prelude as Hs +import qualified Proto3.Suite.Class as HsProtobuf +import qualified Proto3.Suite.DotProto as HsProtobuf +import qualified Proto3.Suite.JSONPB as HsJSONPB +import Proto3.Suite.JSONPB ((.=), (.:)) +import qualified Proto3.Suite.Types as HsProtobuf +import qualified Proto3.Wire as HsProtobuf +import qualified Control.Applicative as Hs +import Control.Applicative ((<*>), (<|>), (<$>)) +import qualified Control.DeepSeq as Hs +import qualified Control.Monad as Hs +import qualified Data.ByteString as Hs +import qualified Data.Coerce as Hs +import qualified Data.Int as Hs (Int16, Int32, Int64) +import qualified Data.List.NonEmpty as Hs (NonEmpty(..)) +import qualified Data.Map as Hs (Map, mapKeysMonotonic) +import qualified Data.Proxy as Proxy +import qualified Data.String as Hs (fromString) +import qualified Data.Text.Lazy as Hs (Text) +import qualified Data.Vector as Hs (Vector) +import qualified Data.Word as Hs (Word16, Word32, Word64) +import qualified GHC.Enum as Hs +import qualified GHC.Generics as Hs +import qualified Unsafe.Coerce as Hs +import qualified Data.Sawtooth.Transaction + +data BatchHeader = BatchHeader{BatchHeader -> Text batchHeaderSignerPublicKey :: - Hs.Text, - BatchHeader -> Vector Text -batchHeaderTransactionIds :: Hs.Vector Hs.Text} - deriving (Int -> BatchHeader -> ShowS + Hs.Text, + BatchHeader -> Vector Text +batchHeaderTransactionIds :: Hs.Vector Hs.Text} + deriving (Int -> BatchHeader -> ShowS [BatchHeader] -> ShowS BatchHeader -> String (Int -> BatchHeader -> ShowS) @@ -57,7 +56,7 @@ show :: BatchHeader -> String $cshow :: BatchHeader -> String showsPrec :: Int -> BatchHeader -> ShowS $cshowsPrec :: Int -> BatchHeader -> ShowS -Hs.Show, BatchHeader -> BatchHeader -> Bool +Hs.Show, BatchHeader -> BatchHeader -> Bool (BatchHeader -> BatchHeader -> Bool) -> (BatchHeader -> BatchHeader -> Bool) -> Eq BatchHeader forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a @@ -65,9 +64,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: BatchHeader -> BatchHeader -> Bool == :: BatchHeader -> BatchHeader -> Bool $c== :: BatchHeader -> BatchHeader -> Bool -Hs.Eq, Eq BatchHeader -Eq BatchHeader => -(BatchHeader -> BatchHeader -> Ordering) +Hs.Eq, Eq BatchHeader +Eq BatchHeader +-> (BatchHeader -> BatchHeader -> Ordering) -> (BatchHeader -> BatchHeader -> Bool) -> (BatchHeader -> BatchHeader -> Bool) -> (BatchHeader -> BatchHeader -> Bool) @@ -79,8 +78,8 @@ BatchHeader -> BatchHeader -> Bool BatchHeader -> BatchHeader -> Ordering BatchHeader -> BatchHeader -> BatchHeader forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -103,7 +102,7 @@ $c< :: BatchHeader -> BatchHeader -> Bool compare :: BatchHeader -> BatchHeader -> Ordering $ccompare :: BatchHeader -> BatchHeader -> Ordering $cp1Ord :: Eq BatchHeader -Hs.Ord, (forall x. BatchHeader -> Rep BatchHeader x) +Hs.Ord, (forall x. BatchHeader -> Rep BatchHeader x) -> (forall x. Rep BatchHeader x -> BatchHeader) -> Generic BatchHeader forall x. Rep BatchHeader x -> BatchHeader @@ -112,305 +111,329 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep BatchHeader x -> BatchHeader $cfrom :: forall x. BatchHeader -> Rep BatchHeader x -Hs.Generic, BatchHeader -> () +Hs.Generic, BatchHeader -> () (BatchHeader -> ()) -> NFData BatchHeader forall a. (a -> ()) -> NFData a rnf :: BatchHeader -> () $crnf :: BatchHeader -> () -Hs.NFData) - -instance HsProtobuf.Named BatchHeader where - nameOf :: Proxy# BatchHeader -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named BatchHeader where + nameOf :: Proxy# BatchHeader -> string +nameOf Proxy# BatchHeader +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "BatchHeader") - -instance HsProtobuf.HasDefault BatchHeader - -instance HsProtobuf.Message BatchHeader where - encodeMessage :: FieldNumber -> BatchHeader -> MessageBuilder -encodeMessage _ - BatchHeader{batchHeaderSignerPublicKey :: BatchHeader -> Text +Hs.fromString String +"BatchHeader") + +instance HsProtobuf.HasDefault BatchHeader + +instance HsProtobuf.Message BatchHeader where + encodeMessage :: FieldNumber -> BatchHeader -> MessageBuilder +encodeMessage FieldNumber +_ + BatchHeader{batchHeaderSignerPublicKey :: BatchHeader -> Text batchHeaderSignerPublicKey = - Text -batchHeaderSignerPublicKey, - batchHeaderTransactionIds :: BatchHeader -> Vector Text -batchHeaderTransactionIds = Vector Text -batchHeaderTransactionIds} - = ([MessageBuilder] -> MessageBuilder + Text +batchHeaderSignerPublicKey, + batchHeaderTransactionIds :: BatchHeader -> Vector Text +batchHeaderTransactionIds = Vector Text +batchHeaderTransactionIds} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> Text -> MessageBuilder +Hs.mconcat + [(FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Text -batchHeaderSignerPublicKey), - (FieldNumber -> UnpackedVec Text -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Text +batchHeaderSignerPublicKey), + (FieldNumber -> UnpackedVec Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (Vector Text -> UnpackedVec Text -forall a b. Coercible a b => a -> b -Hs.coerce @(Hs.Vector Hs.Text) @(HsProtobuf.UnpackedVec Hs.Text) - Vector Text -batchHeaderTransactionIds))]) - decodeMessage :: FieldNumber -> Parser RawMessage BatchHeader -decodeMessage _ - = ((Text -> Vector Text -> BatchHeader) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (Vector Text -> UnpackedVec Text +Hs.coerce @(Hs.Vector Hs.Text) @(HsProtobuf.UnpackedVec Hs.Text) + Vector Text +batchHeaderTransactionIds))]) + decodeMessage :: FieldNumber -> Parser RawMessage BatchHeader +decodeMessage FieldNumber +_ + = ((Text -> Vector Text -> BatchHeader) -> Parser RawMessage (Text -> Vector Text -> BatchHeader) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> Vector Text -> BatchHeader +Hs.pure Text -> Vector Text -> BatchHeader BatchHeader) Parser RawMessage (Text -> Vector Text -> BatchHeader) -> Parser RawMessage Text -> Parser RawMessage (Vector Text -> BatchHeader) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser RawMessage (Vector Text -> BatchHeader) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (Vector Text -> BatchHeader) -> Parser RawMessage (Vector Text) -> Parser RawMessage BatchHeader forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (UnpackedVec Text) +<*> + (Parser RawMessage (UnpackedVec Text) -> Parser RawMessage (Vector Text) -forall a b. Coercible a b => a -> b -Hs.coerce @(_ (HsProtobuf.UnpackedVec Hs.Text)) - @(_ (Hs.Vector Hs.Text)) - (Parser RawField (UnpackedVec Text) +Hs.coerce @(_ (HsProtobuf.UnpackedVec Hs.Text)) + @(_ (Hs.Vector Hs.Text)) + (Parser RawField (UnpackedVec Text) -> FieldNumber -> Parser RawMessage (UnpackedVec Text) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (UnpackedVec Text) +HsProtobuf.at Parser RawField (UnpackedVec Text) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2))) - dotProto :: Proxy# BatchHeader -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2))) + dotProto :: Proxy# BatchHeader -> [DotProtoField] +dotProto Proxy# BatchHeader +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "signer_public_key") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"signer_public_key") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Repeated DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "transaction_ids") - [] - "")] - -instance HsJSONPB.ToJSONPB BatchHeader where - toJSONPB :: BatchHeader -> Options -> Value -toJSONPB (BatchHeader f1 :: Text -f1 f2 :: Vector Text -f2) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object - ["signer_public_key" Text -> Text -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Repeated DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"transaction_ids") + [] + String +"")] + +instance HsJSONPB.ToJSONPB BatchHeader where + toJSONPB :: BatchHeader -> Options -> Value +toJSONPB (BatchHeader Text +f1 Vector Text +f2) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object + [Text +"signer_public_key" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1, "transaction_ids" Text -> Vector Text -> Options -> [Pair] +.= Text +f1, Text +"transaction_ids" Text -> Vector Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Text -f2]) - toEncodingPB :: BatchHeader -> Options -> Encoding -toEncodingPB (BatchHeader f1 :: Text -f1 f2 :: Vector Text -f2) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs - ["signer_public_key" Text -> Text -> Options -> Series +.= Vector Text +f2]) + toEncodingPB :: BatchHeader -> Options -> Encoding +toEncodingPB (BatchHeader Text +f1 Vector Text +f2) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs + [Text +"signer_public_key" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1, "transaction_ids" Text -> Vector Text -> Options -> Series +.= Text +f1, Text +"transaction_ids" Text -> Vector Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Text -f2]) - -instance HsJSONPB.FromJSONPB BatchHeader where - parseJSONPB :: Value -> Parser BatchHeader -parseJSONPB - = (String +.= Vector Text +f2]) + +instance HsJSONPB.FromJSONPB BatchHeader where + parseJSONPB :: Value -> Parser BatchHeader +parseJSONPB + = (String -> (Object -> Parser BatchHeader) -> Value -> Parser BatchHeader forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "BatchHeader" - (\ obj :: Object -obj -> - ((Text -> Vector Text -> BatchHeader) +HsJSONPB.withObject String +"BatchHeader" + (\ Object +obj -> + ((Text -> Vector Text -> BatchHeader) -> Parser (Text -> Vector Text -> BatchHeader) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> Vector Text -> BatchHeader +Hs.pure Text -> Vector Text -> BatchHeader BatchHeader) Parser (Text -> Vector Text -> BatchHeader) -> Parser Text -> Parser (Vector Text -> BatchHeader) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Text +<*> Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "signer_public_key" Parser (Vector Text -> BatchHeader) +.: Text +"signer_public_key" Parser (Vector Text -> BatchHeader) -> Parser (Vector Text) -> Parser BatchHeader forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser (Vector Text) +<*> + Object +obj Object -> Text -> Parser (Vector Text) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "transaction_ids")) - -instance HsJSONPB.ToJSON BatchHeader where - toJSON :: BatchHeader -> Value -toJSON = BatchHeader -> Value +.: Text +"transaction_ids")) + +instance HsJSONPB.ToJSON BatchHeader where + toJSON :: BatchHeader -> Value +toJSON = BatchHeader -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: BatchHeader -> Encoding -toEncoding = BatchHeader -> Encoding +HsJSONPB.toAesonValue + toEncoding :: BatchHeader -> Encoding +toEncoding = BatchHeader -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON BatchHeader where - parseJSON :: Value -> Parser BatchHeader -parseJSON = Value -> Parser BatchHeader +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON BatchHeader where + parseJSON :: Value -> Parser BatchHeader +parseJSON = Value -> Parser BatchHeader forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema BatchHeader where - declareNamedSchema :: Proxy BatchHeader -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_signer_public_key :: Proxy (OverrideToSchema Text) +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema BatchHeader where + declareNamedSchema :: Proxy BatchHeader -> Declare (Definitions Schema) NamedSchema +declareNamedSchema Proxy BatchHeader +_ + = do let declare_signer_public_key :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_signer_public_key = Proxy (OverrideToSchema Text) +declare_signer_public_key = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -batchHeaderSignerPublicKey <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +batchHeaderSignerPublicKey <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_signer_public_key Proxy (OverrideToSchema Text) +declare_signer_public_key Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_transaction_ids :: Proxy (OverrideToSchema (Vector Text)) +Proxy.Proxy + let declare_transaction_ids :: Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) -declare_transaction_ids = Proxy (OverrideToSchema (Vector Text)) +declare_transaction_ids = Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -batchHeaderTransactionIds <- Proxy (OverrideToSchema (Vector Text)) +HsJSONPB.declareSchemaRef + Referenced Schema +batchHeaderTransactionIds <- Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) -declare_transaction_ids Proxy (OverrideToSchema (Vector Text)) +declare_transaction_ids Proxy (OverrideToSchema (Vector Text)) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy BatchHeader +Proxy.Proxy + let Proxy BatchHeader _ = (Text -> Vector Text -> BatchHeader) -> Proxy (Text -> Vector Text -> BatchHeader) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> Vector Text -> BatchHeader +Hs.pure Text -> Vector Text -> BatchHeader BatchHeader Proxy (Text -> Vector Text -> BatchHeader) -> Proxy Text -> Proxy (Vector Text -> BatchHeader) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema Text) +<*> + (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_signer_public_key - Proxy (Vector Text -> BatchHeader) +declare_signer_public_key + Proxy (Vector Text -> BatchHeader) -> Proxy (Vector Text) -> Proxy BatchHeader forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema (Vector Text)) +<*> (Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Vector Text) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Text)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) -declare_transaction_ids - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_transaction_ids + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "BatchHeader", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"BatchHeader", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("signer_public_key", - Referenced Schema -batchHeaderSignerPublicKey), - ("transaction_ids", - Referenced Schema -batchHeaderTransactionIds)]}}) - -data Batch = Batch{Batch -> ByteString -batchHeader :: Hs.ByteString, - Batch -> Text -batchHeaderSignature :: Hs.Text, - Batch -> Vector Transaction +HsJSONPB.insOrdFromList + [(Text +"signer_public_key", + Referenced Schema +batchHeaderSignerPublicKey), + (Text +"transaction_ids", + Referenced Schema +batchHeaderTransactionIds)]}}) + +data Batch = Batch{Batch -> ByteString +batchHeader :: Hs.ByteString, + Batch -> Text +batchHeaderSignature :: Hs.Text, + Batch -> Vector Transaction batchTransactions :: - Hs.Vector Data.Sawtooth.Transaction.Transaction, - Batch -> Bool -batchTrace :: Hs.Bool} - deriving (Int -> Batch -> ShowS + Hs.Vector Data.Sawtooth.Transaction.Transaction, + Batch -> Bool +batchTrace :: Hs.Bool} + deriving (Int -> Batch -> ShowS [Batch] -> ShowS Batch -> String (Int -> Batch -> ShowS) @@ -423,16 +446,16 @@ show :: Batch -> String $cshow :: Batch -> String showsPrec :: Int -> Batch -> ShowS $cshowsPrec :: Int -> Batch -> ShowS -Hs.Show, Batch -> Batch -> Bool +Hs.Show, Batch -> Batch -> Bool (Batch -> Batch -> Bool) -> (Batch -> Batch -> Bool) -> Eq Batch forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a /= :: Batch -> Batch -> Bool $c/= :: Batch -> Batch -> Bool == :: Batch -> Batch -> Bool $c== :: Batch -> Batch -> Bool -Hs.Eq, Eq Batch -Eq Batch => -(Batch -> Batch -> Ordering) +Hs.Eq, Eq Batch +Eq Batch +-> (Batch -> Batch -> Ordering) -> (Batch -> Batch -> Bool) -> (Batch -> Batch -> Bool) -> (Batch -> Batch -> Bool) @@ -444,8 +467,8 @@ Batch -> Batch -> Bool Batch -> Batch -> Ordering Batch -> Batch -> Batch forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -468,7 +491,7 @@ $c< :: Batch -> Batch -> Bool compare :: Batch -> Batch -> Ordering $ccompare :: Batch -> Batch -> Ordering $cp1Ord :: Eq Batch -Hs.Ord, (forall x. Batch -> Rep Batch x) +Hs.Ord, (forall x. Batch -> Rep Batch x) -> (forall x. Rep Batch x -> Batch) -> Generic Batch forall x. Rep Batch x -> Batch forall x. Batch -> Rep Batch x @@ -476,470 +499,513 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep Batch x -> Batch $cfrom :: forall x. Batch -> Rep Batch x -Hs.Generic, Batch -> () +Hs.Generic, Batch -> () (Batch -> ()) -> NFData Batch forall a. (a -> ()) -> NFData a rnf :: Batch -> () $crnf :: Batch -> () -Hs.NFData) - -instance HsProtobuf.Named Batch where - nameOf :: Proxy# Batch -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named Batch where + nameOf :: Proxy# Batch -> string +nameOf Proxy# Batch +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "Batch") - -instance HsProtobuf.HasDefault Batch - -instance HsProtobuf.Message Batch where - encodeMessage :: FieldNumber -> Batch -> MessageBuilder -encodeMessage _ - Batch{batchHeader :: Batch -> ByteString -batchHeader = ByteString -batchHeader, - batchHeaderSignature :: Batch -> Text -batchHeaderSignature = Text -batchHeaderSignature, - batchTransactions :: Batch -> Vector Transaction -batchTransactions = Vector Transaction -batchTransactions, batchTrace :: Batch -> Bool -batchTrace = Bool -batchTrace} - = ([MessageBuilder] -> MessageBuilder +Hs.fromString String +"Batch") + +instance HsProtobuf.HasDefault Batch + +instance HsProtobuf.Message Batch where + encodeMessage :: FieldNumber -> Batch -> MessageBuilder +encodeMessage FieldNumber +_ + Batch{batchHeader :: Batch -> ByteString +batchHeader = ByteString +batchHeader, + batchHeaderSignature :: Batch -> Text +batchHeaderSignature = Text +batchHeaderSignature, + batchTransactions :: Batch -> Vector Transaction +batchTransactions = Vector Transaction +batchTransactions, batchTrace :: Batch -> Bool +batchTrace = Bool +batchTrace} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> ByteString -> MessageBuilder +Hs.mconcat + [(FieldNumber -> ByteString -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - ByteString -batchHeader), - (FieldNumber -> Text -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + ByteString +batchHeader), + (FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - Text -batchHeaderSignature), - (FieldNumber -> NestedVec Transaction -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + Text +batchHeaderSignature), + (FieldNumber -> NestedVec Transaction -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - (Vector Transaction -> NestedVec Transaction -forall a b. Coercible a b => a -> b -Hs.coerce @(Hs.Vector Data.Sawtooth.Transaction.Transaction) - @(HsProtobuf.NestedVec Data.Sawtooth.Transaction.Transaction) - Vector Transaction -batchTransactions)), - (FieldNumber -> Bool -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + (Vector Transaction -> NestedVec Transaction +Hs.coerce @(Hs.Vector Data.Sawtooth.Transaction.Transaction) + @(HsProtobuf.NestedVec Data.Sawtooth.Transaction.Transaction) + Vector Transaction +batchTransactions)), + (FieldNumber -> Bool -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 4) - Bool -batchTrace)]) - decodeMessage :: FieldNumber -> Parser RawMessage Batch -decodeMessage _ - = ((ByteString -> Text -> Vector Transaction -> Bool -> Batch) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +4) + Bool +batchTrace)]) + decodeMessage :: FieldNumber -> Parser RawMessage Batch +decodeMessage FieldNumber +_ + = ((ByteString -> Text -> Vector Transaction -> Bool -> Batch) -> Parser RawMessage (ByteString -> Text -> Vector Transaction -> Bool -> Batch) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString -> Text -> Vector Transaction -> Bool -> Batch +Hs.pure ByteString -> Text -> Vector Transaction -> Bool -> Batch Batch) Parser RawMessage (ByteString -> Text -> Vector Transaction -> Bool -> Batch) -> Parser RawMessage ByteString -> Parser RawMessage (Text -> Vector Transaction -> Bool -> Batch) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField ByteString +<*> + (Parser RawField ByteString -> FieldNumber -> Parser RawMessage ByteString forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField ByteString +HsProtobuf.at Parser RawField ByteString forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser RawMessage (Text -> Vector Transaction -> Bool -> Batch) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (Text -> Vector Transaction -> Bool -> Batch) -> Parser RawMessage Text -> Parser RawMessage (Vector Transaction -> Bool -> Batch) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2)) - Parser RawMessage (Vector Transaction -> Bool -> Batch) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2)) + Parser RawMessage (Vector Transaction -> Bool -> Batch) -> Parser RawMessage (Vector Transaction) -> Parser RawMessage (Bool -> Batch) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (NestedVec Transaction) +<*> + (Parser RawMessage (NestedVec Transaction) -> Parser RawMessage (Vector Transaction) -forall a b. Coercible a b => a -> b -Hs.coerce - @(_ (HsProtobuf.NestedVec Data.Sawtooth.Transaction.Transaction)) - @(_ (Hs.Vector Data.Sawtooth.Transaction.Transaction)) - (Parser RawField (NestedVec Transaction) +Hs.coerce + @(_ (HsProtobuf.NestedVec Data.Sawtooth.Transaction.Transaction)) + @(_ (Hs.Vector Data.Sawtooth.Transaction.Transaction)) + (Parser RawField (NestedVec Transaction) -> FieldNumber -> Parser RawMessage (NestedVec Transaction) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (NestedVec Transaction) +HsProtobuf.at Parser RawField (NestedVec Transaction) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3))) - Parser RawMessage (Bool -> Batch) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3))) + Parser RawMessage (Bool -> Batch) -> Parser RawMessage Bool -> Parser RawMessage Batch forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Bool -> FieldNumber -> Parser RawMessage Bool +<*> + (Parser RawField Bool -> FieldNumber -> Parser RawMessage Bool forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Bool +HsProtobuf.at Parser RawField Bool forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 4)) - dotProto :: Proxy# Batch -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +4)) + dotProto :: Proxy# Batch -> [DotProtoField] +dotProto Proxy# Batch +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.Bytes) - (String -> DotProtoIdentifier -HsProtobuf.Single "header") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.Bytes) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"header") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "header_signature") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"header_signature") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Repeated - (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "Transaction"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "transactions") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Repeated + (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"Transaction"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"transactions") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 4) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.Bool) - (String -> DotProtoIdentifier -HsProtobuf.Single "trace") - [] - "")] - -instance HsJSONPB.ToJSONPB Batch where - toJSONPB :: Batch -> Options -> Value -toJSONPB (Batch f1 :: ByteString -f1 f2 :: Text -f2 f3 :: Vector Transaction -f3 f4 :: Bool -f4) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object - ["header" Text -> ByteString -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +4) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.Bool) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"trace") + [] + String +"")] + +instance HsJSONPB.ToJSONPB Batch where + toJSONPB :: Batch -> Options -> Value +toJSONPB (Batch ByteString +f1 Text +f2 Vector Transaction +f3 Bool +f4) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object + [Text +"header" Text -> ByteString -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f1, "header_signature" Text -> Text -> Options -> [Pair] +.= ByteString +f1, Text +"header_signature" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f2, "transactions" Text -> Vector Transaction -> Options -> [Pair] +.= Text +f2, Text +"transactions" Text -> Vector Transaction -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Transaction -f3, - "trace" Text -> Bool -> Options -> [Pair] +.= Vector Transaction +f3, + Text +"trace" Text -> Bool -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Bool -f4]) - toEncodingPB :: Batch -> Options -> Encoding -toEncodingPB (Batch f1 :: ByteString -f1 f2 :: Text -f2 f3 :: Vector Transaction -f3 f4 :: Bool -f4) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs - ["header" Text -> ByteString -> Options -> Series +.= Bool +f4]) + toEncodingPB :: Batch -> Options -> Encoding +toEncodingPB (Batch ByteString +f1 Text +f2 Vector Transaction +f3 Bool +f4) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs + [Text +"header" Text -> ByteString -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f1, "header_signature" Text -> Text -> Options -> Series +.= ByteString +f1, Text +"header_signature" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f2, "transactions" Text -> Vector Transaction -> Options -> Series +.= Text +f2, Text +"transactions" Text -> Vector Transaction -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Transaction -f3, - "trace" Text -> Bool -> Options -> Series +.= Vector Transaction +f3, + Text +"trace" Text -> Bool -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Bool -f4]) - -instance HsJSONPB.FromJSONPB Batch where - parseJSONPB :: Value -> Parser Batch -parseJSONPB - = (String -> (Object -> Parser Batch) -> Value -> Parser Batch +.= Bool +f4]) + +instance HsJSONPB.FromJSONPB Batch where + parseJSONPB :: Value -> Parser Batch +parseJSONPB + = (String -> (Object -> Parser Batch) -> Value -> Parser Batch forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "Batch" - (\ obj :: Object -obj -> - ((ByteString -> Text -> Vector Transaction -> Bool -> Batch) +HsJSONPB.withObject String +"Batch" + (\ Object +obj -> + ((ByteString -> Text -> Vector Transaction -> Bool -> Batch) -> Parser (ByteString -> Text -> Vector Transaction -> Bool -> Batch) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString -> Text -> Vector Transaction -> Bool -> Batch +Hs.pure ByteString -> Text -> Vector Transaction -> Bool -> Batch Batch) Parser (ByteString -> Text -> Vector Transaction -> Bool -> Batch) -> Parser ByteString -> Parser (Text -> Vector Transaction -> Bool -> Batch) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser ByteString +<*> Object +obj Object -> Text -> Parser ByteString forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "header" Parser (Text -> Vector Transaction -> Bool -> Batch) +.: Text +"header" Parser (Text -> Vector Transaction -> Bool -> Batch) -> Parser Text -> Parser (Vector Transaction -> Bool -> Batch) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Text +<*> Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "header_signature" - Parser (Vector Transaction -> Bool -> Batch) +.: Text +"header_signature" + Parser (Vector Transaction -> Bool -> Batch) -> Parser (Vector Transaction) -> Parser (Bool -> Batch) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser (Vector Transaction) +<*> Object +obj Object -> Text -> Parser (Vector Transaction) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "transactions" - Parser (Bool -> Batch) -> Parser Bool -> Parser Batch +.: Text +"transactions" + Parser (Bool -> Batch) -> Parser Bool -> Parser Batch forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Bool +<*> Object +obj Object -> Text -> Parser Bool forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "trace")) - -instance HsJSONPB.ToJSON Batch where - toJSON :: Batch -> Value -toJSON = Batch -> Value +.: Text +"trace")) + +instance HsJSONPB.ToJSON Batch where + toJSON :: Batch -> Value +toJSON = Batch -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: Batch -> Encoding -toEncoding = Batch -> Encoding +HsJSONPB.toAesonValue + toEncoding :: Batch -> Encoding +toEncoding = Batch -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON Batch where - parseJSON :: Value -> Parser Batch -parseJSON = Value -> Parser Batch +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON Batch where + parseJSON :: Value -> Parser Batch +parseJSON = Value -> Parser Batch forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema Batch where - declareNamedSchema :: Proxy Batch -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_header :: Proxy (OverrideToSchema ByteString) +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema Batch where + declareNamedSchema :: Proxy Batch -> Declare (Definitions Schema) NamedSchema +declareNamedSchema Proxy Batch +_ + = do let declare_header :: Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_header = Proxy (OverrideToSchema ByteString) +declare_header = Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -batchHeader <- Proxy (OverrideToSchema ByteString) +HsJSONPB.declareSchemaRef + Referenced Schema +batchHeader <- Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_header Proxy (OverrideToSchema ByteString) +declare_header Proxy (OverrideToSchema ByteString) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_header_signature :: Proxy (OverrideToSchema Text) +Proxy.Proxy + let declare_header_signature :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_header_signature = Proxy (OverrideToSchema Text) +declare_header_signature = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -batchHeaderSignature <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +batchHeaderSignature <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_header_signature Proxy (OverrideToSchema Text) +declare_header_signature Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_transactions :: Proxy (OverrideToSchema (Vector Transaction)) +Proxy.Proxy + let declare_transactions :: Proxy (OverrideToSchema (Vector Transaction)) -> Declare (Definitions Schema) (Referenced Schema) -declare_transactions = Proxy (OverrideToSchema (Vector Transaction)) +declare_transactions = Proxy (OverrideToSchema (Vector Transaction)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -batchTransactions <- Proxy (OverrideToSchema (Vector Transaction)) +HsJSONPB.declareSchemaRef + Referenced Schema +batchTransactions <- Proxy (OverrideToSchema (Vector Transaction)) -> Declare (Definitions Schema) (Referenced Schema) -declare_transactions Proxy (OverrideToSchema (Vector Transaction)) +declare_transactions Proxy (OverrideToSchema (Vector Transaction)) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_trace :: Proxy (OverrideToSchema Bool) +Proxy.Proxy + let declare_trace :: Proxy (OverrideToSchema Bool) -> Declare (Definitions Schema) (Referenced Schema) -declare_trace = Proxy (OverrideToSchema Bool) +declare_trace = Proxy (OverrideToSchema Bool) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -batchTrace <- Proxy (OverrideToSchema Bool) +HsJSONPB.declareSchemaRef + Referenced Schema +batchTrace <- Proxy (OverrideToSchema Bool) -> Declare (Definitions Schema) (Referenced Schema) -declare_trace Proxy (OverrideToSchema Bool) +declare_trace Proxy (OverrideToSchema Bool) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy Batch +Proxy.Proxy + let Proxy Batch _ = (ByteString -> Text -> Vector Transaction -> Bool -> Batch) -> Proxy (ByteString -> Text -> Vector Transaction -> Bool -> Batch) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString -> Text -> Vector Transaction -> Bool -> Batch +Hs.pure ByteString -> Text -> Vector Transaction -> Bool -> Batch Batch Proxy (ByteString -> Text -> Vector Transaction -> Bool -> Batch) -> Proxy ByteString -> Proxy (Text -> Vector Transaction -> Bool -> Batch) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema ByteString) +<*> (Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy ByteString forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) +HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_header Proxy (Text -> Vector Transaction -> Bool -> Batch) +declare_header Proxy (Text -> Vector Transaction -> Bool -> Batch) -> Proxy Text -> Proxy (Vector Transaction -> Bool -> Batch) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema Text) +<*> + (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_header_signature - Proxy (Vector Transaction -> Bool -> Batch) +declare_header_signature + Proxy (Vector Transaction -> Bool -> Batch) -> Proxy (Vector Transaction) -> Proxy (Bool -> Batch) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema (Vector Transaction)) +<*> (Proxy (OverrideToSchema (Vector Transaction)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Vector Transaction) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Transaction)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Transaction)) -> Declare (Definitions Schema) (Referenced Schema) -declare_transactions - Proxy (Bool -> Batch) -> Proxy Bool -> Proxy Batch +declare_transactions + Proxy (Bool -> Batch) -> Proxy Bool -> Proxy Batch forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema Bool) +<*> (Proxy (OverrideToSchema Bool) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Bool forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Bool) +HsJSONPB.asProxy Proxy (OverrideToSchema Bool) -> Declare (Definitions Schema) (Referenced Schema) -declare_trace - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_trace + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "Batch", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"Batch", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("header", Referenced Schema -batchHeader), - ("header_signature", Referenced Schema -batchHeaderSignature), - ("transactions", Referenced Schema -batchTransactions), - ("trace", Referenced Schema -batchTrace)]}}) - -newtype BatchList = BatchList{BatchList -> Vector Batch +HsJSONPB.insOrdFromList + [(Text +"header", Referenced Schema +batchHeader), + (Text +"header_signature", Referenced Schema +batchHeaderSignature), + (Text +"transactions", Referenced Schema +batchTransactions), + (Text +"trace", Referenced Schema +batchTrace)]}}) + +newtype BatchList = BatchList{BatchList -> Vector Batch batchListBatches :: - Hs.Vector Data.Sawtooth.Batch.Batch} - deriving (Int -> BatchList -> ShowS + Hs.Vector Data.Sawtooth.Batch.Batch} + deriving (Int -> BatchList -> ShowS [BatchList] -> ShowS BatchList -> String (Int -> BatchList -> ShowS) @@ -954,7 +1020,7 @@ show :: BatchList -> String $cshow :: BatchList -> String showsPrec :: Int -> BatchList -> ShowS $cshowsPrec :: Int -> BatchList -> ShowS -Hs.Show, BatchList -> BatchList -> Bool +Hs.Show, BatchList -> BatchList -> Bool (BatchList -> BatchList -> Bool) -> (BatchList -> BatchList -> Bool) -> Eq BatchList forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a @@ -962,9 +1028,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: BatchList -> BatchList -> Bool == :: BatchList -> BatchList -> Bool $c== :: BatchList -> BatchList -> Bool -Hs.Eq, Eq BatchList -Eq BatchList => -(BatchList -> BatchList -> Ordering) +Hs.Eq, Eq BatchList +Eq BatchList +-> (BatchList -> BatchList -> Ordering) -> (BatchList -> BatchList -> Bool) -> (BatchList -> BatchList -> Bool) -> (BatchList -> BatchList -> Bool) @@ -976,8 +1042,8 @@ BatchList -> BatchList -> Bool BatchList -> BatchList -> Ordering BatchList -> BatchList -> BatchList forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -1000,7 +1066,7 @@ $c< :: BatchList -> BatchList -> Bool compare :: BatchList -> BatchList -> Ordering $ccompare :: BatchList -> BatchList -> Ordering $cp1Ord :: Eq BatchList -Hs.Ord, (forall x. BatchList -> Rep BatchList x) +Hs.Ord, (forall x. BatchList -> Rep BatchList x) -> (forall x. Rep BatchList x -> BatchList) -> Generic BatchList forall x. Rep BatchList x -> BatchList forall x. BatchList -> Rep BatchList x @@ -1008,198 +1074,214 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep BatchList x -> BatchList $cfrom :: forall x. BatchList -> Rep BatchList x -Hs.Generic, BatchList -> () +Hs.Generic, BatchList -> () (BatchList -> ()) -> NFData BatchList forall a. (a -> ()) -> NFData a rnf :: BatchList -> () $crnf :: BatchList -> () -Hs.NFData) - -instance HsProtobuf.Named BatchList where - nameOf :: Proxy# BatchList -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named BatchList where + nameOf :: Proxy# BatchList -> string +nameOf Proxy# BatchList +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "BatchList") - -instance HsProtobuf.HasDefault BatchList - -instance HsProtobuf.Message BatchList where - encodeMessage :: FieldNumber -> BatchList -> MessageBuilder -encodeMessage _ BatchList{batchListBatches :: BatchList -> Vector Batch -batchListBatches = Vector Batch -batchListBatches} - = ([MessageBuilder] -> MessageBuilder +Hs.fromString String +"BatchList") + +instance HsProtobuf.HasDefault BatchList + +instance HsProtobuf.Message BatchList where + encodeMessage :: FieldNumber -> BatchList -> MessageBuilder +encodeMessage FieldNumber +_ BatchList{batchListBatches :: BatchList -> Vector Batch +batchListBatches = Vector Batch +batchListBatches} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> NestedVec Batch -> MessageBuilder +Hs.mconcat + [(FieldNumber -> NestedVec Batch -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (Vector Batch -> NestedVec Batch -forall a b. Coercible a b => a -> b -Hs.coerce @(Hs.Vector Data.Sawtooth.Batch.Batch) - @(HsProtobuf.NestedVec Data.Sawtooth.Batch.Batch) - Vector Batch -batchListBatches))]) - decodeMessage :: FieldNumber -> Parser RawMessage BatchList -decodeMessage _ - = ((Vector Batch -> BatchList) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (Vector Batch -> NestedVec Batch +Hs.coerce @(Hs.Vector Data.Sawtooth.Batch.Batch) + @(HsProtobuf.NestedVec Data.Sawtooth.Batch.Batch) + Vector Batch +batchListBatches))]) + decodeMessage :: FieldNumber -> Parser RawMessage BatchList +decodeMessage FieldNumber +_ + = ((Vector Batch -> BatchList) -> Parser RawMessage (Vector Batch -> BatchList) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector Batch -> BatchList +Hs.pure Vector Batch -> BatchList BatchList) Parser RawMessage (Vector Batch -> BatchList) -> Parser RawMessage (Vector Batch) -> Parser RawMessage BatchList forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (NestedVec Batch) +<*> + (Parser RawMessage (NestedVec Batch) -> Parser RawMessage (Vector Batch) -forall a b. Coercible a b => a -> b -Hs.coerce @(_ (HsProtobuf.NestedVec Data.Sawtooth.Batch.Batch)) - @(_ (Hs.Vector Data.Sawtooth.Batch.Batch)) - (Parser RawField (NestedVec Batch) +Hs.coerce @(_ (HsProtobuf.NestedVec Data.Sawtooth.Batch.Batch)) + @(_ (Hs.Vector Data.Sawtooth.Batch.Batch)) + (Parser RawField (NestedVec Batch) -> FieldNumber -> Parser RawMessage (NestedVec Batch) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (NestedVec Batch) +HsProtobuf.at Parser RawField (NestedVec Batch) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1))) - dotProto :: Proxy# BatchList -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1))) + dotProto :: Proxy# BatchList -> [DotProtoField] +dotProto Proxy# BatchList +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Repeated - (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "Batch"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "batches") - [] - "")] - -instance HsJSONPB.ToJSONPB BatchList where - toJSONPB :: BatchList -> Options -> Value -toJSONPB (BatchList f1 :: Vector Batch -f1) = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["batches" Text -> Vector Batch -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Repeated + (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"Batch"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"batches") + [] + String +"")] + +instance HsJSONPB.ToJSONPB BatchList where + toJSONPB :: BatchList -> Options -> Value +toJSONPB (BatchList Vector Batch +f1) = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"batches" Text -> Vector Batch -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Batch -f1]) - toEncodingPB :: BatchList -> Options -> Encoding -toEncodingPB (BatchList f1 :: Vector Batch -f1) = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["batches" Text -> Vector Batch -> Options -> Series +.= Vector Batch +f1]) + toEncodingPB :: BatchList -> Options -> Encoding +toEncodingPB (BatchList Vector Batch +f1) = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"batches" Text -> Vector Batch -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Batch -f1]) - -instance HsJSONPB.FromJSONPB BatchList where - parseJSONPB :: Value -> Parser BatchList -parseJSONPB - = (String -> (Object -> Parser BatchList) -> Value -> Parser BatchList +.= Vector Batch +f1]) + +instance HsJSONPB.FromJSONPB BatchList where + parseJSONPB :: Value -> Parser BatchList +parseJSONPB + = (String -> (Object -> Parser BatchList) -> Value -> Parser BatchList forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "BatchList" - (\ obj :: Object -obj -> ((Vector Batch -> BatchList) -> Parser (Vector Batch -> BatchList) +HsJSONPB.withObject String +"BatchList" + (\ Object +obj -> ((Vector Batch -> BatchList) -> Parser (Vector Batch -> BatchList) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector Batch -> BatchList +Hs.pure Vector Batch -> BatchList BatchList) Parser (Vector Batch -> BatchList) -> Parser (Vector Batch) -> Parser BatchList forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser (Vector Batch) +<*> Object +obj Object -> Text -> Parser (Vector Batch) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "batches")) - -instance HsJSONPB.ToJSON BatchList where - toJSON :: BatchList -> Value -toJSON = BatchList -> Value +.: Text +"batches")) + +instance HsJSONPB.ToJSON BatchList where + toJSON :: BatchList -> Value +toJSON = BatchList -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: BatchList -> Encoding -toEncoding = BatchList -> Encoding +HsJSONPB.toAesonValue + toEncoding :: BatchList -> Encoding +toEncoding = BatchList -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON BatchList where - parseJSON :: Value -> Parser BatchList -parseJSON = Value -> Parser BatchList +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON BatchList where + parseJSON :: Value -> Parser BatchList +parseJSON = Value -> Parser BatchList forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema BatchList where - declareNamedSchema :: Proxy BatchList -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_batches :: Proxy (OverrideToSchema (Vector Batch)) +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema BatchList where + declareNamedSchema :: Proxy BatchList -> Declare (Definitions Schema) NamedSchema +declareNamedSchema Proxy BatchList +_ + = do let declare_batches :: Proxy (OverrideToSchema (Vector Batch)) -> Declare (Definitions Schema) (Referenced Schema) -declare_batches = Proxy (OverrideToSchema (Vector Batch)) +declare_batches = Proxy (OverrideToSchema (Vector Batch)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -batchListBatches <- Proxy (OverrideToSchema (Vector Batch)) +HsJSONPB.declareSchemaRef + Referenced Schema +batchListBatches <- Proxy (OverrideToSchema (Vector Batch)) -> Declare (Definitions Schema) (Referenced Schema) -declare_batches Proxy (OverrideToSchema (Vector Batch)) +declare_batches Proxy (OverrideToSchema (Vector Batch)) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy BatchList +Proxy.Proxy + let Proxy BatchList _ = (Vector Batch -> BatchList) -> Proxy (Vector Batch -> BatchList) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector Batch -> BatchList +Hs.pure Vector Batch -> BatchList BatchList Proxy (Vector Batch -> BatchList) -> Proxy (Vector Batch) -> Proxy BatchList forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema (Vector Batch)) +<*> (Proxy (OverrideToSchema (Vector Batch)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Vector Batch) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Batch)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Batch)) -> Declare (Definitions Schema) (Referenced Schema) -declare_batches - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_batches + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "BatchList", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"BatchList", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("batches", Referenced Schema -batchListBatches)]}}) \ No newline at end of file +HsJSONPB.insOrdFromList + [(Text +"batches", Referenced Schema +batchListBatches)]}}) \ No newline at end of file diff --git a/src/Data.Sawtooth.Block.html b/src/Data.Sawtooth.Block.html index 711f3ff..fe07e7b 100644 --- a/src/Data.Sawtooth.Block.html +++ b/src/Data.Sawtooth.Block.html @@ -9,47 +9,46 @@ {-# OPTIONS_GHC -fno-warn-unused-matches #-} -- | Generated by Haskell protocol buffer compiler. DO NOT EDIT! - -module Data.Sawtooth.Block where -import qualified Prelude as Hs -import qualified Proto3.Suite.Class as HsProtobuf -import qualified Proto3.Suite.DotProto as HsProtobuf -import qualified Proto3.Suite.JSONPB as HsJSONPB -import Proto3.Suite.JSONPB ((.=), (.:)) -import qualified Proto3.Suite.Types as HsProtobuf -import qualified Proto3.Wire as HsProtobuf -import qualified Control.Applicative as Hs -import Control.Applicative ((<*>), (<|>), (<$>)) -import qualified Control.DeepSeq as Hs -import qualified Control.Monad as Hs -import qualified Data.ByteString as Hs -import qualified Data.Coerce as Hs -import qualified Data.Int as Hs (Int16, Int32, Int64) -import qualified Data.List.NonEmpty as Hs (NonEmpty(..)) -import qualified Data.Map as Hs (Map, mapKeysMonotonic) -import qualified Data.Proxy as Proxy -import qualified Data.String as Hs (fromString) -import qualified Data.Text.Lazy as Hs (Text) -import qualified Data.Vector as Hs (Vector) -import qualified Data.Word as Hs (Word16, Word32, Word64) -import qualified GHC.Enum as Hs -import qualified GHC.Generics as Hs -import qualified Unsafe.Coerce as Hs -import qualified Data.Sawtooth.Batch - -data BlockHeader = BlockHeader{BlockHeader -> Word64 -blockHeaderBlockNum :: Hs.Word64, - BlockHeader -> Text -blockHeaderPreviousBlockId :: Hs.Text, - BlockHeader -> Text -blockHeaderSignerPublicKey :: Hs.Text, - BlockHeader -> Vector Text -blockHeaderBatchIds :: Hs.Vector Hs.Text, - BlockHeader -> ByteString -blockHeaderConsensus :: Hs.ByteString, - BlockHeader -> Text -blockHeaderStateRootHash :: Hs.Text} - deriving (Int -> BlockHeader -> ShowS +module Data.Sawtooth.Block where +import qualified Prelude as Hs +import qualified Proto3.Suite.Class as HsProtobuf +import qualified Proto3.Suite.DotProto as HsProtobuf +import qualified Proto3.Suite.JSONPB as HsJSONPB +import Proto3.Suite.JSONPB ((.=), (.:)) +import qualified Proto3.Suite.Types as HsProtobuf +import qualified Proto3.Wire as HsProtobuf +import qualified Control.Applicative as Hs +import Control.Applicative ((<*>), (<|>), (<$>)) +import qualified Control.DeepSeq as Hs +import qualified Control.Monad as Hs +import qualified Data.ByteString as Hs +import qualified Data.Coerce as Hs +import qualified Data.Int as Hs (Int16, Int32, Int64) +import qualified Data.List.NonEmpty as Hs (NonEmpty(..)) +import qualified Data.Map as Hs (Map, mapKeysMonotonic) +import qualified Data.Proxy as Proxy +import qualified Data.String as Hs (fromString) +import qualified Data.Text.Lazy as Hs (Text) +import qualified Data.Vector as Hs (Vector) +import qualified Data.Word as Hs (Word16, Word32, Word64) +import qualified GHC.Enum as Hs +import qualified GHC.Generics as Hs +import qualified Unsafe.Coerce as Hs +import qualified Data.Sawtooth.Batch + +data BlockHeader = BlockHeader{BlockHeader -> Word64 +blockHeaderBlockNum :: Hs.Word64, + BlockHeader -> Text +blockHeaderPreviousBlockId :: Hs.Text, + BlockHeader -> Text +blockHeaderSignerPublicKey :: Hs.Text, + BlockHeader -> Vector Text +blockHeaderBatchIds :: Hs.Vector Hs.Text, + BlockHeader -> ByteString +blockHeaderConsensus :: Hs.ByteString, + BlockHeader -> Text +blockHeaderStateRootHash :: Hs.Text} + deriving (Int -> BlockHeader -> ShowS [BlockHeader] -> ShowS BlockHeader -> String (Int -> BlockHeader -> ShowS) @@ -64,7 +63,7 @@ show :: BlockHeader -> String $cshow :: BlockHeader -> String showsPrec :: Int -> BlockHeader -> ShowS $cshowsPrec :: Int -> BlockHeader -> ShowS -Hs.Show, BlockHeader -> BlockHeader -> Bool +Hs.Show, BlockHeader -> BlockHeader -> Bool (BlockHeader -> BlockHeader -> Bool) -> (BlockHeader -> BlockHeader -> Bool) -> Eq BlockHeader forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a @@ -72,9 +71,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: BlockHeader -> BlockHeader -> Bool == :: BlockHeader -> BlockHeader -> Bool $c== :: BlockHeader -> BlockHeader -> Bool -Hs.Eq, Eq BlockHeader -Eq BlockHeader => -(BlockHeader -> BlockHeader -> Ordering) +Hs.Eq, Eq BlockHeader +Eq BlockHeader +-> (BlockHeader -> BlockHeader -> Ordering) -> (BlockHeader -> BlockHeader -> Bool) -> (BlockHeader -> BlockHeader -> Bool) -> (BlockHeader -> BlockHeader -> Bool) @@ -86,8 +85,8 @@ BlockHeader -> BlockHeader -> Bool BlockHeader -> BlockHeader -> Ordering BlockHeader -> BlockHeader -> BlockHeader forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -110,7 +109,7 @@ $c< :: BlockHeader -> BlockHeader -> Bool compare :: BlockHeader -> BlockHeader -> Ordering $ccompare :: BlockHeader -> BlockHeader -> Ordering $cp1Ord :: Eq BlockHeader -Hs.Ord, (forall x. BlockHeader -> Rep BlockHeader x) +Hs.Ord, (forall x. BlockHeader -> Rep BlockHeader x) -> (forall x. Rep BlockHeader x -> BlockHeader) -> Generic BlockHeader forall x. Rep BlockHeader x -> BlockHeader @@ -119,87 +118,96 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep BlockHeader x -> BlockHeader $cfrom :: forall x. BlockHeader -> Rep BlockHeader x -Hs.Generic, BlockHeader -> () +Hs.Generic, BlockHeader -> () (BlockHeader -> ()) -> NFData BlockHeader forall a. (a -> ()) -> NFData a rnf :: BlockHeader -> () $crnf :: BlockHeader -> () -Hs.NFData) - -instance HsProtobuf.Named BlockHeader where - nameOf :: Proxy# BlockHeader -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named BlockHeader where + nameOf :: Proxy# BlockHeader -> string +nameOf Proxy# BlockHeader +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "BlockHeader") - -instance HsProtobuf.HasDefault BlockHeader - -instance HsProtobuf.Message BlockHeader where - encodeMessage :: FieldNumber -> BlockHeader -> MessageBuilder -encodeMessage _ - BlockHeader{blockHeaderBlockNum :: BlockHeader -> Word64 -blockHeaderBlockNum = Word64 -blockHeaderBlockNum, - blockHeaderPreviousBlockId :: BlockHeader -> Text -blockHeaderPreviousBlockId = Text -blockHeaderPreviousBlockId, - blockHeaderSignerPublicKey :: BlockHeader -> Text -blockHeaderSignerPublicKey = Text -blockHeaderSignerPublicKey, - blockHeaderBatchIds :: BlockHeader -> Vector Text -blockHeaderBatchIds = Vector Text -blockHeaderBatchIds, - blockHeaderConsensus :: BlockHeader -> ByteString -blockHeaderConsensus = ByteString -blockHeaderConsensus, - blockHeaderStateRootHash :: BlockHeader -> Text -blockHeaderStateRootHash = Text -blockHeaderStateRootHash} - = ([MessageBuilder] -> MessageBuilder +Hs.fromString String +"BlockHeader") + +instance HsProtobuf.HasDefault BlockHeader + +instance HsProtobuf.Message BlockHeader where + encodeMessage :: FieldNumber -> BlockHeader -> MessageBuilder +encodeMessage FieldNumber +_ + BlockHeader{blockHeaderBlockNum :: BlockHeader -> Word64 +blockHeaderBlockNum = Word64 +blockHeaderBlockNum, + blockHeaderPreviousBlockId :: BlockHeader -> Text +blockHeaderPreviousBlockId = Text +blockHeaderPreviousBlockId, + blockHeaderSignerPublicKey :: BlockHeader -> Text +blockHeaderSignerPublicKey = Text +blockHeaderSignerPublicKey, + blockHeaderBatchIds :: BlockHeader -> Vector Text +blockHeaderBatchIds = Vector Text +blockHeaderBatchIds, + blockHeaderConsensus :: BlockHeader -> ByteString +blockHeaderConsensus = ByteString +blockHeaderConsensus, + blockHeaderStateRootHash :: BlockHeader -> Text +blockHeaderStateRootHash = Text +blockHeaderStateRootHash} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> Word64 -> MessageBuilder +Hs.mconcat + [(FieldNumber -> Word64 -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Word64 -blockHeaderBlockNum), - (FieldNumber -> Text -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Word64 +blockHeaderBlockNum), + (FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - Text -blockHeaderPreviousBlockId), - (FieldNumber -> Text -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + Text +blockHeaderPreviousBlockId), + (FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - Text -blockHeaderSignerPublicKey), - (FieldNumber -> UnpackedVec Text -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + Text +blockHeaderSignerPublicKey), + (FieldNumber -> UnpackedVec Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 4) - (Vector Text -> UnpackedVec Text -forall a b. Coercible a b => a -> b -Hs.coerce @(Hs.Vector Hs.Text) @(HsProtobuf.UnpackedVec Hs.Text) - Vector Text -blockHeaderBatchIds)), - (FieldNumber -> ByteString -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +4) + (Vector Text -> UnpackedVec Text +Hs.coerce @(Hs.Vector Hs.Text) @(HsProtobuf.UnpackedVec Hs.Text) + Vector Text +blockHeaderBatchIds)), + (FieldNumber -> ByteString -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 5) - ByteString -blockHeaderConsensus), - (FieldNumber -> Text -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +5) + ByteString +blockHeaderConsensus), + (FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 6) - Text -blockHeaderStateRootHash)]) - decodeMessage :: FieldNumber -> Parser RawMessage BlockHeader -decodeMessage _ - = ((Word64 +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +6) + Text +blockHeaderStateRootHash)]) + decodeMessage :: FieldNumber -> Parser RawMessage BlockHeader +decodeMessage FieldNumber +_ + = ((Word64 -> Text -> Text -> Vector Text @@ -216,7 +224,7 @@ forall a. MessageField a => FieldNumber -> a -> MessageBuilder -> Text -> BlockHeader) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Word64 +Hs.pure Word64 -> Text -> Text -> Vector Text -> ByteString -> Text -> BlockHeader BlockHeader) Parser RawMessage @@ -232,15 +240,16 @@ forall (f :: * -> *) a. Applicative f => a -> f a RawMessage (Text -> Text -> Vector Text -> ByteString -> Text -> BlockHeader) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Word64 -> FieldNumber -> Parser RawMessage Word64 +<*> + (Parser RawField Word64 -> FieldNumber -> Parser RawMessage Word64 forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Word64 +HsProtobuf.at Parser RawField Word64 forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (Text -> Text -> Vector Text -> ByteString -> Text -> BlockHeader) -> Parser RawMessage Text @@ -248,263 +257,299 @@ forall a. MessageField a => Parser RawField a RawMessage (Text -> Vector Text -> ByteString -> Text -> BlockHeader) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2)) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2)) + Parser RawMessage (Text -> Vector Text -> ByteString -> Text -> BlockHeader) -> Parser RawMessage Text -> Parser RawMessage (Vector Text -> ByteString -> Text -> BlockHeader) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3)) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3)) + Parser RawMessage (Vector Text -> ByteString -> Text -> BlockHeader) -> Parser RawMessage (Vector Text) -> Parser RawMessage (ByteString -> Text -> BlockHeader) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (UnpackedVec Text) +<*> + (Parser RawMessage (UnpackedVec Text) -> Parser RawMessage (Vector Text) -forall a b. Coercible a b => a -> b -Hs.coerce @(_ (HsProtobuf.UnpackedVec Hs.Text)) - @(_ (Hs.Vector Hs.Text)) - (Parser RawField (UnpackedVec Text) +Hs.coerce @(_ (HsProtobuf.UnpackedVec Hs.Text)) + @(_ (Hs.Vector Hs.Text)) + (Parser RawField (UnpackedVec Text) -> FieldNumber -> Parser RawMessage (UnpackedVec Text) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (UnpackedVec Text) +HsProtobuf.at Parser RawField (UnpackedVec Text) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 4))) - Parser RawMessage (ByteString -> Text -> BlockHeader) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +4))) + Parser RawMessage (ByteString -> Text -> BlockHeader) -> Parser RawMessage ByteString -> Parser RawMessage (Text -> BlockHeader) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField ByteString +<*> + (Parser RawField ByteString -> FieldNumber -> Parser RawMessage ByteString forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField ByteString +HsProtobuf.at Parser RawField ByteString forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 5)) - Parser RawMessage (Text -> BlockHeader) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +5)) + Parser RawMessage (Text -> BlockHeader) -> Parser RawMessage Text -> Parser RawMessage BlockHeader forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 6)) - dotProto :: Proxy# BlockHeader -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +6)) + dotProto :: Proxy# BlockHeader -> [DotProtoField] +dotProto Proxy# BlockHeader +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.UInt64) - (String -> DotProtoIdentifier -HsProtobuf.Single "block_num") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.UInt64) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"block_num") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "previous_block_id") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"previous_block_id") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "signer_public_key") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"signer_public_key") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 4) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Repeated DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "batch_ids") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +4) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Repeated DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"batch_ids") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 5) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.Bytes) - (String -> DotProtoIdentifier -HsProtobuf.Single "consensus") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +5) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.Bytes) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"consensus") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 6) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "state_root_hash") - [] - "")] - -instance HsJSONPB.ToJSONPB BlockHeader where - toJSONPB :: BlockHeader -> Options -> Value -toJSONPB (BlockHeader f1 :: Word64 -f1 f2 :: Text -f2 f3 :: Text -f3 f4 :: Vector Text -f4 f5 :: ByteString -f5 f6 :: Text -f6) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object - ["block_num" Text -> Word64 -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +6) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"state_root_hash") + [] + String +"")] + +instance HsJSONPB.ToJSONPB BlockHeader where + toJSONPB :: BlockHeader -> Options -> Value +toJSONPB (BlockHeader Word64 +f1 Text +f2 Text +f3 Vector Text +f4 ByteString +f5 Text +f6) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object + [Text +"block_num" Text -> Word64 -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Word64 -f1, "previous_block_id" Text -> Text -> Options -> [Pair] +.= Word64 +f1, Text +"previous_block_id" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f2, - "signer_public_key" Text -> Text -> Options -> [Pair] +.= Text +f2, + Text +"signer_public_key" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f3, "batch_ids" Text -> Vector Text -> Options -> [Pair] +.= Text +f3, Text +"batch_ids" Text -> Vector Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Text -f4, "consensus" Text -> ByteString -> Options -> [Pair] +.= Vector Text +f4, Text +"consensus" Text -> ByteString -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f5, - "state_root_hash" Text -> Text -> Options -> [Pair] +.= ByteString +f5, + Text +"state_root_hash" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f6]) - toEncodingPB :: BlockHeader -> Options -> Encoding -toEncodingPB (BlockHeader f1 :: Word64 -f1 f2 :: Text -f2 f3 :: Text -f3 f4 :: Vector Text -f4 f5 :: ByteString -f5 f6 :: Text -f6) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs - ["block_num" Text -> Word64 -> Options -> Series +.= Text +f6]) + toEncodingPB :: BlockHeader -> Options -> Encoding +toEncodingPB (BlockHeader Word64 +f1 Text +f2 Text +f3 Vector Text +f4 ByteString +f5 Text +f6) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs + [Text +"block_num" Text -> Word64 -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Word64 -f1, "previous_block_id" Text -> Text -> Options -> Series +.= Word64 +f1, Text +"previous_block_id" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f2, - "signer_public_key" Text -> Text -> Options -> Series +.= Text +f2, + Text +"signer_public_key" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f3, "batch_ids" Text -> Vector Text -> Options -> Series +.= Text +f3, Text +"batch_ids" Text -> Vector Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Text -f4, "consensus" Text -> ByteString -> Options -> Series +.= Vector Text +f4, Text +"consensus" Text -> ByteString -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f5, - "state_root_hash" Text -> Text -> Options -> Series +.= ByteString +f5, + Text +"state_root_hash" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f6]) - -instance HsJSONPB.FromJSONPB BlockHeader where - parseJSONPB :: Value -> Parser BlockHeader -parseJSONPB - = (String +.= Text +f6]) + +instance HsJSONPB.FromJSONPB BlockHeader where + parseJSONPB :: Value -> Parser BlockHeader +parseJSONPB + = (String -> (Object -> Parser BlockHeader) -> Value -> Parser BlockHeader forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "BlockHeader" - (\ obj :: Object -obj -> - ((Word64 +HsJSONPB.withObject String +"BlockHeader" + (\ Object +obj -> + ((Word64 -> Text -> Text -> Vector Text @@ -520,7 +565,7 @@ forall a. String -> (Object -> Parser a) -> Value -> Parser a -> Text -> BlockHeader) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Word64 +Hs.pure Word64 -> Text -> Text -> Vector Text -> ByteString -> Text -> BlockHeader BlockHeader) Parser (Word64 @@ -534,166 +579,173 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Parser (Text -> Text -> Vector Text -> ByteString -> Text -> BlockHeader) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Word64 +<*> Object +obj Object -> Text -> Parser Word64 forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "block_num" Parser +.: Text +"block_num" Parser (Text -> Text -> Vector Text -> ByteString -> Text -> BlockHeader) -> Parser Text -> Parser (Text -> Vector Text -> ByteString -> Text -> BlockHeader) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser Text +<*> + Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "previous_block_id" - Parser (Text -> Vector Text -> ByteString -> Text -> BlockHeader) +.: Text +"previous_block_id" + Parser (Text -> Vector Text -> ByteString -> Text -> BlockHeader) -> Parser Text -> Parser (Vector Text -> ByteString -> Text -> BlockHeader) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Text +<*> Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "signer_public_key" - Parser (Vector Text -> ByteString -> Text -> BlockHeader) +.: Text +"signer_public_key" + Parser (Vector Text -> ByteString -> Text -> BlockHeader) -> Parser (Vector Text) -> Parser (ByteString -> Text -> BlockHeader) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser (Vector Text) +<*> Object +obj Object -> Text -> Parser (Vector Text) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "batch_ids" - Parser (ByteString -> Text -> BlockHeader) +.: Text +"batch_ids" + Parser (ByteString -> Text -> BlockHeader) -> Parser ByteString -> Parser (Text -> BlockHeader) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser ByteString +<*> Object +obj Object -> Text -> Parser ByteString forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "consensus" - Parser (Text -> BlockHeader) -> Parser Text -> Parser BlockHeader +.: Text +"consensus" + Parser (Text -> BlockHeader) -> Parser Text -> Parser BlockHeader forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Text +<*> Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "state_root_hash")) - -instance HsJSONPB.ToJSON BlockHeader where - toJSON :: BlockHeader -> Value -toJSON = BlockHeader -> Value +.: Text +"state_root_hash")) + +instance HsJSONPB.ToJSON BlockHeader where + toJSON :: BlockHeader -> Value +toJSON = BlockHeader -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: BlockHeader -> Encoding -toEncoding = BlockHeader -> Encoding +HsJSONPB.toAesonValue + toEncoding :: BlockHeader -> Encoding +toEncoding = BlockHeader -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON BlockHeader where - parseJSON :: Value -> Parser BlockHeader -parseJSON = Value -> Parser BlockHeader +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON BlockHeader where + parseJSON :: Value -> Parser BlockHeader +parseJSON = Value -> Parser BlockHeader forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema BlockHeader where - declareNamedSchema :: Proxy BlockHeader -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_block_num :: Proxy (OverrideToSchema Word64) +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema BlockHeader where + declareNamedSchema :: Proxy BlockHeader -> Declare (Definitions Schema) NamedSchema +declareNamedSchema Proxy BlockHeader +_ + = do let declare_block_num :: Proxy (OverrideToSchema Word64) -> Declare (Definitions Schema) (Referenced Schema) -declare_block_num = Proxy (OverrideToSchema Word64) +declare_block_num = Proxy (OverrideToSchema Word64) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -blockHeaderBlockNum <- Proxy (OverrideToSchema Word64) +HsJSONPB.declareSchemaRef + Referenced Schema +blockHeaderBlockNum <- Proxy (OverrideToSchema Word64) -> Declare (Definitions Schema) (Referenced Schema) -declare_block_num Proxy (OverrideToSchema Word64) +declare_block_num Proxy (OverrideToSchema Word64) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_previous_block_id :: Proxy (OverrideToSchema Text) +Proxy.Proxy + let declare_previous_block_id :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_previous_block_id = Proxy (OverrideToSchema Text) +declare_previous_block_id = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -blockHeaderPreviousBlockId <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +blockHeaderPreviousBlockId <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_previous_block_id Proxy (OverrideToSchema Text) +declare_previous_block_id Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_signer_public_key :: Proxy (OverrideToSchema Text) +Proxy.Proxy + let declare_signer_public_key :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_signer_public_key = Proxy (OverrideToSchema Text) +declare_signer_public_key = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -blockHeaderSignerPublicKey <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +blockHeaderSignerPublicKey <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_signer_public_key Proxy (OverrideToSchema Text) +declare_signer_public_key Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_batch_ids :: Proxy (OverrideToSchema (Vector Text)) +Proxy.Proxy + let declare_batch_ids :: Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) -declare_batch_ids = Proxy (OverrideToSchema (Vector Text)) +declare_batch_ids = Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -blockHeaderBatchIds <- Proxy (OverrideToSchema (Vector Text)) +HsJSONPB.declareSchemaRef + Referenced Schema +blockHeaderBatchIds <- Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) -declare_batch_ids Proxy (OverrideToSchema (Vector Text)) +declare_batch_ids Proxy (OverrideToSchema (Vector Text)) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_consensus :: Proxy (OverrideToSchema ByteString) +Proxy.Proxy + let declare_consensus :: Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_consensus = Proxy (OverrideToSchema ByteString) +declare_consensus = Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -blockHeaderConsensus <- Proxy (OverrideToSchema ByteString) +HsJSONPB.declareSchemaRef + Referenced Schema +blockHeaderConsensus <- Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_consensus Proxy (OverrideToSchema ByteString) +declare_consensus Proxy (OverrideToSchema ByteString) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_state_root_hash :: Proxy (OverrideToSchema Text) +Proxy.Proxy + let declare_state_root_hash :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_state_root_hash = Proxy (OverrideToSchema Text) +declare_state_root_hash = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -blockHeaderStateRootHash <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +blockHeaderStateRootHash <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_state_root_hash Proxy (OverrideToSchema Text) +declare_state_root_hash Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy BlockHeader +Proxy.Proxy + let Proxy BlockHeader _ = (Word64 -> Text -> Text @@ -710,7 +762,7 @@ forall k (t :: k). Proxy t -> Text -> BlockHeader) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Word64 +Hs.pure Word64 -> Text -> Text -> Vector Text -> ByteString -> Text -> BlockHeader BlockHeader Proxy (Word64 @@ -724,118 +776,125 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Proxy (Text -> Text -> Vector Text -> ByteString -> Text -> BlockHeader) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema Word64) +<*> (Proxy (OverrideToSchema Word64) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Word64 forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Word64) +HsJSONPB.asProxy Proxy (OverrideToSchema Word64) -> Declare (Definitions Schema) (Referenced Schema) -declare_block_num - Proxy +declare_block_num + Proxy (Text -> Text -> Vector Text -> ByteString -> Text -> BlockHeader) -> Proxy Text -> Proxy (Text -> Vector Text -> ByteString -> Text -> BlockHeader) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema Text) +<*> (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_previous_block_id - Proxy (Text -> Vector Text -> ByteString -> Text -> BlockHeader) +declare_previous_block_id + Proxy (Text -> Vector Text -> ByteString -> Text -> BlockHeader) -> Proxy Text -> Proxy (Vector Text -> ByteString -> Text -> BlockHeader) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema Text) +<*> (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_signer_public_key - Proxy (Vector Text -> ByteString -> Text -> BlockHeader) +declare_signer_public_key + Proxy (Vector Text -> ByteString -> Text -> BlockHeader) -> Proxy (Vector Text) -> Proxy (ByteString -> Text -> BlockHeader) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema (Vector Text)) +<*> (Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Vector Text) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Text)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) -declare_batch_ids - Proxy (ByteString -> Text -> BlockHeader) +declare_batch_ids + Proxy (ByteString -> Text -> BlockHeader) -> Proxy ByteString -> Proxy (Text -> BlockHeader) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema ByteString) +<*> (Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy ByteString forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) +HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_consensus - Proxy (Text -> BlockHeader) -> Proxy Text -> Proxy BlockHeader +declare_consensus + Proxy (Text -> BlockHeader) -> Proxy Text -> Proxy BlockHeader forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema Text) +<*> (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_state_root_hash - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_state_root_hash + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "BlockHeader", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"BlockHeader", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("block_num", Referenced Schema -blockHeaderBlockNum), - ("previous_block_id", - Referenced Schema -blockHeaderPreviousBlockId), - ("signer_public_key", - Referenced Schema -blockHeaderSignerPublicKey), - ("batch_ids", Referenced Schema -blockHeaderBatchIds), - ("consensus", Referenced Schema -blockHeaderConsensus), - ("state_root_hash", - Referenced Schema -blockHeaderStateRootHash)]}}) - -data Block = Block{Block -> ByteString -blockHeader :: Hs.ByteString, - Block -> Text -blockHeaderSignature :: Hs.Text, - Block -> Vector Batch -blockBatches :: Hs.Vector Data.Sawtooth.Batch.Batch} - deriving (Int -> Block -> ShowS +HsJSONPB.insOrdFromList + [(Text +"block_num", Referenced Schema +blockHeaderBlockNum), + (Text +"previous_block_id", + Referenced Schema +blockHeaderPreviousBlockId), + (Text +"signer_public_key", + Referenced Schema +blockHeaderSignerPublicKey), + (Text +"batch_ids", Referenced Schema +blockHeaderBatchIds), + (Text +"consensus", Referenced Schema +blockHeaderConsensus), + (Text +"state_root_hash", + Referenced Schema +blockHeaderStateRootHash)]}}) + +data Block = Block{Block -> ByteString +blockHeader :: Hs.ByteString, + Block -> Text +blockHeaderSignature :: Hs.Text, + Block -> Vector Batch +blockBatches :: Hs.Vector Data.Sawtooth.Batch.Batch} + deriving (Int -> Block -> ShowS [Block] -> ShowS Block -> String (Int -> Block -> ShowS) @@ -848,16 +907,16 @@ show :: Block -> String $cshow :: Block -> String showsPrec :: Int -> Block -> ShowS $cshowsPrec :: Int -> Block -> ShowS -Hs.Show, Block -> Block -> Bool +Hs.Show, Block -> Block -> Bool (Block -> Block -> Bool) -> (Block -> Block -> Bool) -> Eq Block forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a /= :: Block -> Block -> Bool $c/= :: Block -> Block -> Bool == :: Block -> Block -> Bool $c== :: Block -> Block -> Bool -Hs.Eq, Eq Block -Eq Block => -(Block -> Block -> Ordering) +Hs.Eq, Eq Block +Eq Block +-> (Block -> Block -> Ordering) -> (Block -> Block -> Bool) -> (Block -> Block -> Bool) -> (Block -> Block -> Bool) @@ -869,8 +928,8 @@ Block -> Block -> Bool Block -> Block -> Ordering Block -> Block -> Block forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -893,7 +952,7 @@ $c< :: Block -> Block -> Bool compare :: Block -> Block -> Ordering $ccompare :: Block -> Block -> Ordering $cp1Ord :: Eq Block -Hs.Ord, (forall x. Block -> Rep Block x) +Hs.Ord, (forall x. Block -> Rep Block x) -> (forall x. Rep Block x -> Block) -> Generic Block forall x. Rep Block x -> Block forall x. Block -> Rep Block x @@ -901,371 +960,405 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep Block x -> Block $cfrom :: forall x. Block -> Rep Block x -Hs.Generic, Block -> () +Hs.Generic, Block -> () (Block -> ()) -> NFData Block forall a. (a -> ()) -> NFData a rnf :: Block -> () $crnf :: Block -> () -Hs.NFData) - -instance HsProtobuf.Named Block where - nameOf :: Proxy# Block -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named Block where + nameOf :: Proxy# Block -> string +nameOf Proxy# Block +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "Block") - -instance HsProtobuf.HasDefault Block - -instance HsProtobuf.Message Block where - encodeMessage :: FieldNumber -> Block -> MessageBuilder -encodeMessage _ - Block{blockHeader :: Block -> ByteString -blockHeader = ByteString -blockHeader, - blockHeaderSignature :: Block -> Text -blockHeaderSignature = Text -blockHeaderSignature, - blockBatches :: Block -> Vector Batch -blockBatches = Vector Batch -blockBatches} - = ([MessageBuilder] -> MessageBuilder +Hs.fromString String +"Block") + +instance HsProtobuf.HasDefault Block + +instance HsProtobuf.Message Block where + encodeMessage :: FieldNumber -> Block -> MessageBuilder +encodeMessage FieldNumber +_ + Block{blockHeader :: Block -> ByteString +blockHeader = ByteString +blockHeader, + blockHeaderSignature :: Block -> Text +blockHeaderSignature = Text +blockHeaderSignature, + blockBatches :: Block -> Vector Batch +blockBatches = Vector Batch +blockBatches} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> ByteString -> MessageBuilder +Hs.mconcat + [(FieldNumber -> ByteString -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - ByteString -blockHeader), - (FieldNumber -> Text -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + ByteString +blockHeader), + (FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - Text -blockHeaderSignature), - (FieldNumber -> NestedVec Batch -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + Text +blockHeaderSignature), + (FieldNumber -> NestedVec Batch -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - (Vector Batch -> NestedVec Batch -forall a b. Coercible a b => a -> b -Hs.coerce @(Hs.Vector Data.Sawtooth.Batch.Batch) - @(HsProtobuf.NestedVec Data.Sawtooth.Batch.Batch) - Vector Batch -blockBatches))]) - decodeMessage :: FieldNumber -> Parser RawMessage Block -decodeMessage _ - = ((ByteString -> Text -> Vector Batch -> Block) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + (Vector Batch -> NestedVec Batch +Hs.coerce @(Hs.Vector Data.Sawtooth.Batch.Batch) + @(HsProtobuf.NestedVec Data.Sawtooth.Batch.Batch) + Vector Batch +blockBatches))]) + decodeMessage :: FieldNumber -> Parser RawMessage Block +decodeMessage FieldNumber +_ + = ((ByteString -> Text -> Vector Batch -> Block) -> Parser RawMessage (ByteString -> Text -> Vector Batch -> Block) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString -> Text -> Vector Batch -> Block +Hs.pure ByteString -> Text -> Vector Batch -> Block Block) Parser RawMessage (ByteString -> Text -> Vector Batch -> Block) -> Parser RawMessage ByteString -> Parser RawMessage (Text -> Vector Batch -> Block) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField ByteString +<*> + (Parser RawField ByteString -> FieldNumber -> Parser RawMessage ByteString forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField ByteString +HsProtobuf.at Parser RawField ByteString forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser RawMessage (Text -> Vector Batch -> Block) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (Text -> Vector Batch -> Block) -> Parser RawMessage Text -> Parser RawMessage (Vector Batch -> Block) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2)) - Parser RawMessage (Vector Batch -> Block) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2)) + Parser RawMessage (Vector Batch -> Block) -> Parser RawMessage (Vector Batch) -> Parser RawMessage Block forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (NestedVec Batch) +<*> + (Parser RawMessage (NestedVec Batch) -> Parser RawMessage (Vector Batch) -forall a b. Coercible a b => a -> b -Hs.coerce @(_ (HsProtobuf.NestedVec Data.Sawtooth.Batch.Batch)) - @(_ (Hs.Vector Data.Sawtooth.Batch.Batch)) - (Parser RawField (NestedVec Batch) +Hs.coerce @(_ (HsProtobuf.NestedVec Data.Sawtooth.Batch.Batch)) + @(_ (Hs.Vector Data.Sawtooth.Batch.Batch)) + (Parser RawField (NestedVec Batch) -> FieldNumber -> Parser RawMessage (NestedVec Batch) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (NestedVec Batch) +HsProtobuf.at Parser RawField (NestedVec Batch) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3))) - dotProto :: Proxy# Block -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3))) + dotProto :: Proxy# Block -> [DotProtoField] +dotProto Proxy# Block +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.Bytes) - (String -> DotProtoIdentifier -HsProtobuf.Single "header") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.Bytes) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"header") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "header_signature") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"header_signature") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Repeated - (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "Batch"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "batches") - [] - "")] - -instance HsJSONPB.ToJSONPB Block where - toJSONPB :: Block -> Options -> Value -toJSONPB (Block f1 :: ByteString -f1 f2 :: Text -f2 f3 :: Vector Batch -f3) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object - ["header" Text -> ByteString -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Repeated + (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"Batch"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"batches") + [] + String +"")] + +instance HsJSONPB.ToJSONPB Block where + toJSONPB :: Block -> Options -> Value +toJSONPB (Block ByteString +f1 Text +f2 Vector Batch +f3) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object + [Text +"header" Text -> ByteString -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f1, "header_signature" Text -> Text -> Options -> [Pair] +.= ByteString +f1, Text +"header_signature" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f2, "batches" Text -> Vector Batch -> Options -> [Pair] +.= Text +f2, Text +"batches" Text -> Vector Batch -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Batch -f3]) - toEncodingPB :: Block -> Options -> Encoding -toEncodingPB (Block f1 :: ByteString -f1 f2 :: Text -f2 f3 :: Vector Batch -f3) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs - ["header" Text -> ByteString -> Options -> Series +.= Vector Batch +f3]) + toEncodingPB :: Block -> Options -> Encoding +toEncodingPB (Block ByteString +f1 Text +f2 Vector Batch +f3) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs + [Text +"header" Text -> ByteString -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f1, "header_signature" Text -> Text -> Options -> Series +.= ByteString +f1, Text +"header_signature" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f2, "batches" Text -> Vector Batch -> Options -> Series +.= Text +f2, Text +"batches" Text -> Vector Batch -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Batch -f3]) - -instance HsJSONPB.FromJSONPB Block where - parseJSONPB :: Value -> Parser Block -parseJSONPB - = (String -> (Object -> Parser Block) -> Value -> Parser Block +.= Vector Batch +f3]) + +instance HsJSONPB.FromJSONPB Block where + parseJSONPB :: Value -> Parser Block +parseJSONPB + = (String -> (Object -> Parser Block) -> Value -> Parser Block forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "Block" - (\ obj :: Object -obj -> - ((ByteString -> Text -> Vector Batch -> Block) +HsJSONPB.withObject String +"Block" + (\ Object +obj -> + ((ByteString -> Text -> Vector Batch -> Block) -> Parser (ByteString -> Text -> Vector Batch -> Block) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString -> Text -> Vector Batch -> Block +Hs.pure ByteString -> Text -> Vector Batch -> Block Block) Parser (ByteString -> Text -> Vector Batch -> Block) -> Parser ByteString -> Parser (Text -> Vector Batch -> Block) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser ByteString +<*> Object +obj Object -> Text -> Parser ByteString forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "header" Parser (Text -> Vector Batch -> Block) +.: Text +"header" Parser (Text -> Vector Batch -> Block) -> Parser Text -> Parser (Vector Batch -> Block) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Text +<*> Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "header_signature" - Parser (Vector Batch -> Block) +.: Text +"header_signature" + Parser (Vector Batch -> Block) -> Parser (Vector Batch) -> Parser Block forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser (Vector Batch) +<*> Object +obj Object -> Text -> Parser (Vector Batch) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "batches")) - -instance HsJSONPB.ToJSON Block where - toJSON :: Block -> Value -toJSON = Block -> Value +.: Text +"batches")) + +instance HsJSONPB.ToJSON Block where + toJSON :: Block -> Value +toJSON = Block -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: Block -> Encoding -toEncoding = Block -> Encoding +HsJSONPB.toAesonValue + toEncoding :: Block -> Encoding +toEncoding = Block -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON Block where - parseJSON :: Value -> Parser Block -parseJSON = Value -> Parser Block +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON Block where + parseJSON :: Value -> Parser Block +parseJSON = Value -> Parser Block forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema Block where - declareNamedSchema :: Proxy Block -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_header :: Proxy (OverrideToSchema ByteString) +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema Block where + declareNamedSchema :: Proxy Block -> Declare (Definitions Schema) NamedSchema +declareNamedSchema Proxy Block +_ + = do let declare_header :: Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_header = Proxy (OverrideToSchema ByteString) +declare_header = Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -blockHeader <- Proxy (OverrideToSchema ByteString) +HsJSONPB.declareSchemaRef + Referenced Schema +blockHeader <- Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_header Proxy (OverrideToSchema ByteString) +declare_header Proxy (OverrideToSchema ByteString) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_header_signature :: Proxy (OverrideToSchema Text) +Proxy.Proxy + let declare_header_signature :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_header_signature = Proxy (OverrideToSchema Text) +declare_header_signature = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -blockHeaderSignature <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +blockHeaderSignature <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_header_signature Proxy (OverrideToSchema Text) +declare_header_signature Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_batches :: Proxy (OverrideToSchema (Vector Batch)) +Proxy.Proxy + let declare_batches :: Proxy (OverrideToSchema (Vector Batch)) -> Declare (Definitions Schema) (Referenced Schema) -declare_batches = Proxy (OverrideToSchema (Vector Batch)) +declare_batches = Proxy (OverrideToSchema (Vector Batch)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -blockBatches <- Proxy (OverrideToSchema (Vector Batch)) +HsJSONPB.declareSchemaRef + Referenced Schema +blockBatches <- Proxy (OverrideToSchema (Vector Batch)) -> Declare (Definitions Schema) (Referenced Schema) -declare_batches Proxy (OverrideToSchema (Vector Batch)) +declare_batches Proxy (OverrideToSchema (Vector Batch)) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy Block +Proxy.Proxy + let Proxy Block _ = (ByteString -> Text -> Vector Batch -> Block) -> Proxy (ByteString -> Text -> Vector Batch -> Block) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString -> Text -> Vector Batch -> Block +Hs.pure ByteString -> Text -> Vector Batch -> Block Block Proxy (ByteString -> Text -> Vector Batch -> Block) -> Proxy ByteString -> Proxy (Text -> Vector Batch -> Block) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema ByteString) +<*> (Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy ByteString forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) +HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_header Proxy (Text -> Vector Batch -> Block) +declare_header Proxy (Text -> Vector Batch -> Block) -> Proxy Text -> Proxy (Vector Batch -> Block) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema Text) +<*> + (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_header_signature - Proxy (Vector Batch -> Block) +declare_header_signature + Proxy (Vector Batch -> Block) -> Proxy (Vector Batch) -> Proxy Block forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema (Vector Batch)) +<*> (Proxy (OverrideToSchema (Vector Batch)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Vector Batch) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Batch)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Batch)) -> Declare (Definitions Schema) (Referenced Schema) -declare_batches - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_batches + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "Block", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"Block", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("header", Referenced Schema -blockHeader), - ("header_signature", Referenced Schema -blockHeaderSignature), - ("batches", Referenced Schema -blockBatches)]}}) \ No newline at end of file +HsJSONPB.insOrdFromList + [(Text +"header", Referenced Schema +blockHeader), + (Text +"header_signature", Referenced Schema +blockHeaderSignature), + (Text +"batches", Referenced Schema +blockBatches)]}}) \ No newline at end of file diff --git a/src/Data.Sawtooth.BlockInfo.html b/src/Data.Sawtooth.BlockInfo.html index a401ecc..0474778 100644 --- a/src/Data.Sawtooth.BlockInfo.html +++ b/src/Data.Sawtooth.BlockInfo.html @@ -9,43 +9,42 @@ {-# OPTIONS_GHC -fno-warn-unused-matches #-} -- | Generated by Haskell protocol buffer compiler. DO NOT EDIT! - -module Data.Sawtooth.BlockInfo where -import qualified Prelude as Hs -import qualified Proto3.Suite.Class as HsProtobuf -import qualified Proto3.Suite.DotProto as HsProtobuf -import qualified Proto3.Suite.JSONPB as HsJSONPB -import Proto3.Suite.JSONPB ((.=), (.:)) -import qualified Proto3.Suite.Types as HsProtobuf -import qualified Proto3.Wire as HsProtobuf -import qualified Control.Applicative as Hs -import Control.Applicative ((<*>), (<|>), (<$>)) -import qualified Control.DeepSeq as Hs -import qualified Control.Monad as Hs -import qualified Data.ByteString as Hs -import qualified Data.Coerce as Hs -import qualified Data.Int as Hs (Int16, Int32, Int64) -import qualified Data.List.NonEmpty as Hs (NonEmpty(..)) -import qualified Data.Map as Hs (Map, mapKeysMonotonic) -import qualified Data.Proxy as Proxy -import qualified Data.String as Hs (fromString) -import qualified Data.Text.Lazy as Hs (Text) -import qualified Data.Vector as Hs (Vector) -import qualified Data.Word as Hs (Word16, Word32, Word64) -import qualified GHC.Enum as Hs -import qualified GHC.Generics as Hs -import qualified Unsafe.Coerce as Hs - -data BlockInfoConfig = BlockInfoConfig{BlockInfoConfig -> Word64 +module Data.Sawtooth.BlockInfo where +import qualified Prelude as Hs +import qualified Proto3.Suite.Class as HsProtobuf +import qualified Proto3.Suite.DotProto as HsProtobuf +import qualified Proto3.Suite.JSONPB as HsJSONPB +import Proto3.Suite.JSONPB ((.=), (.:)) +import qualified Proto3.Suite.Types as HsProtobuf +import qualified Proto3.Wire as HsProtobuf +import qualified Control.Applicative as Hs +import Control.Applicative ((<*>), (<|>), (<$>)) +import qualified Control.DeepSeq as Hs +import qualified Control.Monad as Hs +import qualified Data.ByteString as Hs +import qualified Data.Coerce as Hs +import qualified Data.Int as Hs (Int16, Int32, Int64) +import qualified Data.List.NonEmpty as Hs (NonEmpty(..)) +import qualified Data.Map as Hs (Map, mapKeysMonotonic) +import qualified Data.Proxy as Proxy +import qualified Data.String as Hs (fromString) +import qualified Data.Text.Lazy as Hs (Text) +import qualified Data.Vector as Hs (Vector) +import qualified Data.Word as Hs (Word16, Word32, Word64) +import qualified GHC.Enum as Hs +import qualified GHC.Generics as Hs +import qualified Unsafe.Coerce as Hs + +data BlockInfoConfig = BlockInfoConfig{BlockInfoConfig -> Word64 blockInfoConfigLatestBlock - :: Hs.Word64, - BlockInfoConfig -> Word64 -blockInfoConfigOldestBlock :: Hs.Word64, - BlockInfoConfig -> Word64 -blockInfoConfigTargetCount :: Hs.Word64, - BlockInfoConfig -> Word64 -blockInfoConfigSyncTolerance :: Hs.Word64} - deriving (Int -> BlockInfoConfig -> ShowS + :: Hs.Word64, + BlockInfoConfig -> Word64 +blockInfoConfigOldestBlock :: Hs.Word64, + BlockInfoConfig -> Word64 +blockInfoConfigTargetCount :: Hs.Word64, + BlockInfoConfig -> Word64 +blockInfoConfigSyncTolerance :: Hs.Word64} + deriving (Int -> BlockInfoConfig -> ShowS [BlockInfoConfig] -> ShowS BlockInfoConfig -> String (Int -> BlockInfoConfig -> ShowS) @@ -60,7 +59,7 @@ show :: BlockInfoConfig -> String $cshow :: BlockInfoConfig -> String showsPrec :: Int -> BlockInfoConfig -> ShowS $cshowsPrec :: Int -> BlockInfoConfig -> ShowS -Hs.Show, BlockInfoConfig -> BlockInfoConfig -> Bool +Hs.Show, BlockInfoConfig -> BlockInfoConfig -> Bool (BlockInfoConfig -> BlockInfoConfig -> Bool) -> (BlockInfoConfig -> BlockInfoConfig -> Bool) -> Eq BlockInfoConfig @@ -69,9 +68,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: BlockInfoConfig -> BlockInfoConfig -> Bool == :: BlockInfoConfig -> BlockInfoConfig -> Bool $c== :: BlockInfoConfig -> BlockInfoConfig -> Bool -Hs.Eq, Eq BlockInfoConfig -Eq BlockInfoConfig => -(BlockInfoConfig -> BlockInfoConfig -> Ordering) +Hs.Eq, Eq BlockInfoConfig +Eq BlockInfoConfig +-> (BlockInfoConfig -> BlockInfoConfig -> Ordering) -> (BlockInfoConfig -> BlockInfoConfig -> Bool) -> (BlockInfoConfig -> BlockInfoConfig -> Bool) -> (BlockInfoConfig -> BlockInfoConfig -> Bool) @@ -83,8 +82,8 @@ BlockInfoConfig -> BlockInfoConfig -> Bool BlockInfoConfig -> BlockInfoConfig -> Ordering BlockInfoConfig -> BlockInfoConfig -> BlockInfoConfig forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -107,7 +106,7 @@ $c< :: BlockInfoConfig -> BlockInfoConfig -> Bool compare :: BlockInfoConfig -> BlockInfoConfig -> Ordering $ccompare :: BlockInfoConfig -> BlockInfoConfig -> Ordering $cp1Ord :: Eq BlockInfoConfig -Hs.Ord, (forall x. BlockInfoConfig -> Rep BlockInfoConfig x) +Hs.Ord, (forall x. BlockInfoConfig -> Rep BlockInfoConfig x) -> (forall x. Rep BlockInfoConfig x -> BlockInfoConfig) -> Generic BlockInfoConfig forall x. Rep BlockInfoConfig x -> BlockInfoConfig @@ -116,72 +115,80 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep BlockInfoConfig x -> BlockInfoConfig $cfrom :: forall x. BlockInfoConfig -> Rep BlockInfoConfig x -Hs.Generic, BlockInfoConfig -> () +Hs.Generic, BlockInfoConfig -> () (BlockInfoConfig -> ()) -> NFData BlockInfoConfig forall a. (a -> ()) -> NFData a rnf :: BlockInfoConfig -> () $crnf :: BlockInfoConfig -> () -Hs.NFData) - -instance HsProtobuf.Named BlockInfoConfig where - nameOf :: Proxy# BlockInfoConfig -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named BlockInfoConfig where + nameOf :: Proxy# BlockInfoConfig -> string +nameOf Proxy# BlockInfoConfig +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "BlockInfoConfig") - -instance HsProtobuf.HasDefault BlockInfoConfig - -instance HsProtobuf.Message BlockInfoConfig where - encodeMessage :: FieldNumber -> BlockInfoConfig -> MessageBuilder -encodeMessage _ - BlockInfoConfig{blockInfoConfigLatestBlock :: BlockInfoConfig -> Word64 +Hs.fromString String +"BlockInfoConfig") + +instance HsProtobuf.HasDefault BlockInfoConfig + +instance HsProtobuf.Message BlockInfoConfig where + encodeMessage :: FieldNumber -> BlockInfoConfig -> MessageBuilder +encodeMessage FieldNumber +_ + BlockInfoConfig{blockInfoConfigLatestBlock :: BlockInfoConfig -> Word64 blockInfoConfigLatestBlock = - Word64 -blockInfoConfigLatestBlock, - blockInfoConfigOldestBlock :: BlockInfoConfig -> Word64 -blockInfoConfigOldestBlock = Word64 -blockInfoConfigOldestBlock, - blockInfoConfigTargetCount :: BlockInfoConfig -> Word64 -blockInfoConfigTargetCount = Word64 -blockInfoConfigTargetCount, - blockInfoConfigSyncTolerance :: BlockInfoConfig -> Word64 -blockInfoConfigSyncTolerance = Word64 -blockInfoConfigSyncTolerance} - = ([MessageBuilder] -> MessageBuilder + Word64 +blockInfoConfigLatestBlock, + blockInfoConfigOldestBlock :: BlockInfoConfig -> Word64 +blockInfoConfigOldestBlock = Word64 +blockInfoConfigOldestBlock, + blockInfoConfigTargetCount :: BlockInfoConfig -> Word64 +blockInfoConfigTargetCount = Word64 +blockInfoConfigTargetCount, + blockInfoConfigSyncTolerance :: BlockInfoConfig -> Word64 +blockInfoConfigSyncTolerance = Word64 +blockInfoConfigSyncTolerance} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> Word64 -> MessageBuilder +Hs.mconcat + [(FieldNumber -> Word64 -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Word64 -blockInfoConfigLatestBlock), - (FieldNumber -> Word64 -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Word64 +blockInfoConfigLatestBlock), + (FieldNumber -> Word64 -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - Word64 -blockInfoConfigOldestBlock), - (FieldNumber -> Word64 -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + Word64 +blockInfoConfigOldestBlock), + (FieldNumber -> Word64 -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - Word64 -blockInfoConfigTargetCount), - (FieldNumber -> Word64 -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + Word64 +blockInfoConfigTargetCount), + (FieldNumber -> Word64 -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 4) - Word64 -blockInfoConfigSyncTolerance)]) - decodeMessage :: FieldNumber -> Parser RawMessage BlockInfoConfig -decodeMessage _ - = ((Word64 -> Word64 -> Word64 -> Word64 -> BlockInfoConfig) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +4) + Word64 +blockInfoConfigSyncTolerance)]) + decodeMessage :: FieldNumber -> Parser RawMessage BlockInfoConfig +decodeMessage FieldNumber +_ + = ((Word64 -> Word64 -> Word64 -> Word64 -> BlockInfoConfig) -> Parser RawMessage (Word64 -> Word64 -> Word64 -> Word64 -> BlockInfoConfig) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Word64 -> Word64 -> Word64 -> Word64 -> BlockInfoConfig +Hs.pure Word64 -> Word64 -> Word64 -> Word64 -> BlockInfoConfig BlockInfoConfig) Parser RawMessage (Word64 -> Word64 -> Word64 -> Word64 -> BlockInfoConfig) @@ -189,403 +196,439 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Parser RawMessage (Word64 -> Word64 -> Word64 -> BlockInfoConfig) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Word64 -> FieldNumber -> Parser RawMessage Word64 +<*> + (Parser RawField Word64 -> FieldNumber -> Parser RawMessage Word64 forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Word64 +HsProtobuf.at Parser RawField Word64 forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser RawMessage (Word64 -> Word64 -> Word64 -> BlockInfoConfig) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (Word64 -> Word64 -> Word64 -> BlockInfoConfig) -> Parser RawMessage Word64 -> Parser RawMessage (Word64 -> Word64 -> BlockInfoConfig) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Word64 -> FieldNumber -> Parser RawMessage Word64 +<*> + (Parser RawField Word64 -> FieldNumber -> Parser RawMessage Word64 forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Word64 +HsProtobuf.at Parser RawField Word64 forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2)) - Parser RawMessage (Word64 -> Word64 -> BlockInfoConfig) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2)) + Parser RawMessage (Word64 -> Word64 -> BlockInfoConfig) -> Parser RawMessage Word64 -> Parser RawMessage (Word64 -> BlockInfoConfig) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Word64 -> FieldNumber -> Parser RawMessage Word64 +<*> + (Parser RawField Word64 -> FieldNumber -> Parser RawMessage Word64 forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Word64 +HsProtobuf.at Parser RawField Word64 forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3)) - Parser RawMessage (Word64 -> BlockInfoConfig) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3)) + Parser RawMessage (Word64 -> BlockInfoConfig) -> Parser RawMessage Word64 -> Parser RawMessage BlockInfoConfig forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Word64 -> FieldNumber -> Parser RawMessage Word64 +<*> + (Parser RawField Word64 -> FieldNumber -> Parser RawMessage Word64 forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Word64 +HsProtobuf.at Parser RawField Word64 forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 4)) - dotProto :: Proxy# BlockInfoConfig -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +4)) + dotProto :: Proxy# BlockInfoConfig -> [DotProtoField] +dotProto Proxy# BlockInfoConfig +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.UInt64) - (String -> DotProtoIdentifier -HsProtobuf.Single "latest_block") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.UInt64) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"latest_block") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.UInt64) - (String -> DotProtoIdentifier -HsProtobuf.Single "oldest_block") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.UInt64) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"oldest_block") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.UInt64) - (String -> DotProtoIdentifier -HsProtobuf.Single "target_count") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.UInt64) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"target_count") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 4) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.UInt64) - (String -> DotProtoIdentifier -HsProtobuf.Single "sync_tolerance") - [] - "")] - -instance HsJSONPB.ToJSONPB BlockInfoConfig where - toJSONPB :: BlockInfoConfig -> Options -> Value -toJSONPB (BlockInfoConfig f1 :: Word64 -f1 f2 :: Word64 -f2 f3 :: Word64 -f3 f4 :: Word64 -f4) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object - ["latest_block" Text -> Word64 -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +4) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.UInt64) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"sync_tolerance") + [] + String +"")] + +instance HsJSONPB.ToJSONPB BlockInfoConfig where + toJSONPB :: BlockInfoConfig -> Options -> Value +toJSONPB (BlockInfoConfig Word64 +f1 Word64 +f2 Word64 +f3 Word64 +f4) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object + [Text +"latest_block" Text -> Word64 -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Word64 -f1, "oldest_block" Text -> Word64 -> Options -> [Pair] +.= Word64 +f1, Text +"oldest_block" Text -> Word64 -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Word64 -f2, "target_count" Text -> Word64 -> Options -> [Pair] +.= Word64 +f2, Text +"target_count" Text -> Word64 -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Word64 -f3, - "sync_tolerance" Text -> Word64 -> Options -> [Pair] +.= Word64 +f3, + Text +"sync_tolerance" Text -> Word64 -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Word64 -f4]) - toEncodingPB :: BlockInfoConfig -> Options -> Encoding -toEncodingPB (BlockInfoConfig f1 :: Word64 -f1 f2 :: Word64 -f2 f3 :: Word64 -f3 f4 :: Word64 -f4) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs - ["latest_block" Text -> Word64 -> Options -> Series +.= Word64 +f4]) + toEncodingPB :: BlockInfoConfig -> Options -> Encoding +toEncodingPB (BlockInfoConfig Word64 +f1 Word64 +f2 Word64 +f3 Word64 +f4) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs + [Text +"latest_block" Text -> Word64 -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Word64 -f1, "oldest_block" Text -> Word64 -> Options -> Series +.= Word64 +f1, Text +"oldest_block" Text -> Word64 -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Word64 -f2, "target_count" Text -> Word64 -> Options -> Series +.= Word64 +f2, Text +"target_count" Text -> Word64 -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Word64 -f3, - "sync_tolerance" Text -> Word64 -> Options -> Series +.= Word64 +f3, + Text +"sync_tolerance" Text -> Word64 -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Word64 -f4]) - -instance HsJSONPB.FromJSONPB BlockInfoConfig where - parseJSONPB :: Value -> Parser BlockInfoConfig -parseJSONPB - = (String +.= Word64 +f4]) + +instance HsJSONPB.FromJSONPB BlockInfoConfig where + parseJSONPB :: Value -> Parser BlockInfoConfig +parseJSONPB + = (String -> (Object -> Parser BlockInfoConfig) -> Value -> Parser BlockInfoConfig forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "BlockInfoConfig" - (\ obj :: Object -obj -> - ((Word64 -> Word64 -> Word64 -> Word64 -> BlockInfoConfig) +HsJSONPB.withObject String +"BlockInfoConfig" + (\ Object +obj -> + ((Word64 -> Word64 -> Word64 -> Word64 -> BlockInfoConfig) -> Parser (Word64 -> Word64 -> Word64 -> Word64 -> BlockInfoConfig) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Word64 -> Word64 -> Word64 -> Word64 -> BlockInfoConfig +Hs.pure Word64 -> Word64 -> Word64 -> Word64 -> BlockInfoConfig BlockInfoConfig) Parser (Word64 -> Word64 -> Word64 -> Word64 -> BlockInfoConfig) -> Parser Word64 -> Parser (Word64 -> Word64 -> Word64 -> BlockInfoConfig) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Word64 +<*> Object +obj Object -> Text -> Parser Word64 forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "latest_block" Parser (Word64 -> Word64 -> Word64 -> BlockInfoConfig) +.: Text +"latest_block" Parser (Word64 -> Word64 -> Word64 -> BlockInfoConfig) -> Parser Word64 -> Parser (Word64 -> Word64 -> BlockInfoConfig) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser Word64 +<*> + Object +obj Object -> Text -> Parser Word64 forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "oldest_block" - Parser (Word64 -> Word64 -> BlockInfoConfig) +.: Text +"oldest_block" + Parser (Word64 -> Word64 -> BlockInfoConfig) -> Parser Word64 -> Parser (Word64 -> BlockInfoConfig) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Word64 +<*> Object +obj Object -> Text -> Parser Word64 forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "target_count" - Parser (Word64 -> BlockInfoConfig) +.: Text +"target_count" + Parser (Word64 -> BlockInfoConfig) -> Parser Word64 -> Parser BlockInfoConfig forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Word64 +<*> Object +obj Object -> Text -> Parser Word64 forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "sync_tolerance")) - -instance HsJSONPB.ToJSON BlockInfoConfig where - toJSON :: BlockInfoConfig -> Value -toJSON = BlockInfoConfig -> Value +.: Text +"sync_tolerance")) + +instance HsJSONPB.ToJSON BlockInfoConfig where + toJSON :: BlockInfoConfig -> Value +toJSON = BlockInfoConfig -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: BlockInfoConfig -> Encoding -toEncoding = BlockInfoConfig -> Encoding +HsJSONPB.toAesonValue + toEncoding :: BlockInfoConfig -> Encoding +toEncoding = BlockInfoConfig -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON BlockInfoConfig where - parseJSON :: Value -> Parser BlockInfoConfig -parseJSON = Value -> Parser BlockInfoConfig +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON BlockInfoConfig where + parseJSON :: Value -> Parser BlockInfoConfig +parseJSON = Value -> Parser BlockInfoConfig forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema BlockInfoConfig where - declareNamedSchema :: Proxy BlockInfoConfig -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_latest_block :: Proxy (OverrideToSchema Word64) +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema BlockInfoConfig where + declareNamedSchema :: Proxy BlockInfoConfig -> Declare (Definitions Schema) NamedSchema +declareNamedSchema Proxy BlockInfoConfig +_ + = do let declare_latest_block :: Proxy (OverrideToSchema Word64) -> Declare (Definitions Schema) (Referenced Schema) -declare_latest_block = Proxy (OverrideToSchema Word64) +declare_latest_block = Proxy (OverrideToSchema Word64) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -blockInfoConfigLatestBlock <- Proxy (OverrideToSchema Word64) +HsJSONPB.declareSchemaRef + Referenced Schema +blockInfoConfigLatestBlock <- Proxy (OverrideToSchema Word64) -> Declare (Definitions Schema) (Referenced Schema) -declare_latest_block Proxy (OverrideToSchema Word64) +declare_latest_block Proxy (OverrideToSchema Word64) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_oldest_block :: Proxy (OverrideToSchema Word64) +Proxy.Proxy + let declare_oldest_block :: Proxy (OverrideToSchema Word64) -> Declare (Definitions Schema) (Referenced Schema) -declare_oldest_block = Proxy (OverrideToSchema Word64) +declare_oldest_block = Proxy (OverrideToSchema Word64) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -blockInfoConfigOldestBlock <- Proxy (OverrideToSchema Word64) +HsJSONPB.declareSchemaRef + Referenced Schema +blockInfoConfigOldestBlock <- Proxy (OverrideToSchema Word64) -> Declare (Definitions Schema) (Referenced Schema) -declare_oldest_block Proxy (OverrideToSchema Word64) +declare_oldest_block Proxy (OverrideToSchema Word64) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_target_count :: Proxy (OverrideToSchema Word64) +Proxy.Proxy + let declare_target_count :: Proxy (OverrideToSchema Word64) -> Declare (Definitions Schema) (Referenced Schema) -declare_target_count = Proxy (OverrideToSchema Word64) +declare_target_count = Proxy (OverrideToSchema Word64) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -blockInfoConfigTargetCount <- Proxy (OverrideToSchema Word64) +HsJSONPB.declareSchemaRef + Referenced Schema +blockInfoConfigTargetCount <- Proxy (OverrideToSchema Word64) -> Declare (Definitions Schema) (Referenced Schema) -declare_target_count Proxy (OverrideToSchema Word64) +declare_target_count Proxy (OverrideToSchema Word64) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_sync_tolerance :: Proxy (OverrideToSchema Word64) +Proxy.Proxy + let declare_sync_tolerance :: Proxy (OverrideToSchema Word64) -> Declare (Definitions Schema) (Referenced Schema) -declare_sync_tolerance = Proxy (OverrideToSchema Word64) +declare_sync_tolerance = Proxy (OverrideToSchema Word64) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -blockInfoConfigSyncTolerance <- Proxy (OverrideToSchema Word64) +HsJSONPB.declareSchemaRef + Referenced Schema +blockInfoConfigSyncTolerance <- Proxy (OverrideToSchema Word64) -> Declare (Definitions Schema) (Referenced Schema) -declare_sync_tolerance Proxy (OverrideToSchema Word64) +declare_sync_tolerance Proxy (OverrideToSchema Word64) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy BlockInfoConfig +Proxy.Proxy + let Proxy BlockInfoConfig _ = (Word64 -> Word64 -> Word64 -> Word64 -> BlockInfoConfig) -> Proxy (Word64 -> Word64 -> Word64 -> Word64 -> BlockInfoConfig) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Word64 -> Word64 -> Word64 -> Word64 -> BlockInfoConfig +Hs.pure Word64 -> Word64 -> Word64 -> Word64 -> BlockInfoConfig BlockInfoConfig Proxy (Word64 -> Word64 -> Word64 -> Word64 -> BlockInfoConfig) -> Proxy Word64 -> Proxy (Word64 -> Word64 -> Word64 -> BlockInfoConfig) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema Word64) +<*> + (Proxy (OverrideToSchema Word64) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Word64 forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Word64) +HsJSONPB.asProxy Proxy (OverrideToSchema Word64) -> Declare (Definitions Schema) (Referenced Schema) -declare_latest_block - Proxy (Word64 -> Word64 -> Word64 -> BlockInfoConfig) +declare_latest_block + Proxy (Word64 -> Word64 -> Word64 -> BlockInfoConfig) -> Proxy Word64 -> Proxy (Word64 -> Word64 -> BlockInfoConfig) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema Word64) +<*> (Proxy (OverrideToSchema Word64) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Word64 forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Word64) +HsJSONPB.asProxy Proxy (OverrideToSchema Word64) -> Declare (Definitions Schema) (Referenced Schema) -declare_oldest_block - Proxy (Word64 -> Word64 -> BlockInfoConfig) +declare_oldest_block + Proxy (Word64 -> Word64 -> BlockInfoConfig) -> Proxy Word64 -> Proxy (Word64 -> BlockInfoConfig) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema Word64) +<*> (Proxy (OverrideToSchema Word64) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Word64 forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Word64) +HsJSONPB.asProxy Proxy (OverrideToSchema Word64) -> Declare (Definitions Schema) (Referenced Schema) -declare_target_count - Proxy (Word64 -> BlockInfoConfig) +declare_target_count + Proxy (Word64 -> BlockInfoConfig) -> Proxy Word64 -> Proxy BlockInfoConfig forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema Word64) +<*> (Proxy (OverrideToSchema Word64) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Word64 forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Word64) +HsJSONPB.asProxy Proxy (OverrideToSchema Word64) -> Declare (Definitions Schema) (Referenced Schema) -declare_sync_tolerance - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_sync_tolerance + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "BlockInfoConfig", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"BlockInfoConfig", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("latest_block", - Referenced Schema -blockInfoConfigLatestBlock), - ("oldest_block", - Referenced Schema -blockInfoConfigOldestBlock), - ("target_count", - Referenced Schema -blockInfoConfigTargetCount), - ("sync_tolerance", - Referenced Schema -blockInfoConfigSyncTolerance)]}}) - -data BlockInfo = BlockInfo{BlockInfo -> Word64 -blockInfoBlockNum :: Hs.Word64, - BlockInfo -> Text -blockInfoPreviousBlockId :: Hs.Text, - BlockInfo -> Text -blockInfoSignerPublicKey :: Hs.Text, - BlockInfo -> Text -blockInfoHeaderSignature :: Hs.Text, - BlockInfo -> Word64 -blockInfoTimestamp :: Hs.Word64} - deriving (Int -> BlockInfo -> ShowS +HsJSONPB.insOrdFromList + [(Text +"latest_block", + Referenced Schema +blockInfoConfigLatestBlock), + (Text +"oldest_block", + Referenced Schema +blockInfoConfigOldestBlock), + (Text +"target_count", + Referenced Schema +blockInfoConfigTargetCount), + (Text +"sync_tolerance", + Referenced Schema +blockInfoConfigSyncTolerance)]}}) + +data BlockInfo = BlockInfo{BlockInfo -> Word64 +blockInfoBlockNum :: Hs.Word64, + BlockInfo -> Text +blockInfoPreviousBlockId :: Hs.Text, + BlockInfo -> Text +blockInfoSignerPublicKey :: Hs.Text, + BlockInfo -> Text +blockInfoHeaderSignature :: Hs.Text, + BlockInfo -> Word64 +blockInfoTimestamp :: Hs.Word64} + deriving (Int -> BlockInfo -> ShowS [BlockInfo] -> ShowS BlockInfo -> String (Int -> BlockInfo -> ShowS) @@ -600,7 +643,7 @@ show :: BlockInfo -> String $cshow :: BlockInfo -> String showsPrec :: Int -> BlockInfo -> ShowS $cshowsPrec :: Int -> BlockInfo -> ShowS -Hs.Show, BlockInfo -> BlockInfo -> Bool +Hs.Show, BlockInfo -> BlockInfo -> Bool (BlockInfo -> BlockInfo -> Bool) -> (BlockInfo -> BlockInfo -> Bool) -> Eq BlockInfo forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a @@ -608,9 +651,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: BlockInfo -> BlockInfo -> Bool == :: BlockInfo -> BlockInfo -> Bool $c== :: BlockInfo -> BlockInfo -> Bool -Hs.Eq, Eq BlockInfo -Eq BlockInfo => -(BlockInfo -> BlockInfo -> Ordering) +Hs.Eq, Eq BlockInfo +Eq BlockInfo +-> (BlockInfo -> BlockInfo -> Ordering) -> (BlockInfo -> BlockInfo -> Bool) -> (BlockInfo -> BlockInfo -> Bool) -> (BlockInfo -> BlockInfo -> Bool) @@ -622,8 +665,8 @@ BlockInfo -> BlockInfo -> Bool BlockInfo -> BlockInfo -> Ordering BlockInfo -> BlockInfo -> BlockInfo forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -646,7 +689,7 @@ $c< :: BlockInfo -> BlockInfo -> Bool compare :: BlockInfo -> BlockInfo -> Ordering $ccompare :: BlockInfo -> BlockInfo -> Ordering $cp1Ord :: Eq BlockInfo -Hs.Ord, (forall x. BlockInfo -> Rep BlockInfo x) +Hs.Ord, (forall x. BlockInfo -> Rep BlockInfo x) -> (forall x. Rep BlockInfo x -> BlockInfo) -> Generic BlockInfo forall x. Rep BlockInfo x -> BlockInfo forall x. BlockInfo -> Rep BlockInfo x @@ -654,547 +697,600 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep BlockInfo x -> BlockInfo $cfrom :: forall x. BlockInfo -> Rep BlockInfo x -Hs.Generic, BlockInfo -> () +Hs.Generic, BlockInfo -> () (BlockInfo -> ()) -> NFData BlockInfo forall a. (a -> ()) -> NFData a rnf :: BlockInfo -> () $crnf :: BlockInfo -> () -Hs.NFData) - -instance HsProtobuf.Named BlockInfo where - nameOf :: Proxy# BlockInfo -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named BlockInfo where + nameOf :: Proxy# BlockInfo -> string +nameOf Proxy# BlockInfo +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "BlockInfo") - -instance HsProtobuf.HasDefault BlockInfo - -instance HsProtobuf.Message BlockInfo where - encodeMessage :: FieldNumber -> BlockInfo -> MessageBuilder -encodeMessage _ - BlockInfo{blockInfoBlockNum :: BlockInfo -> Word64 -blockInfoBlockNum = Word64 -blockInfoBlockNum, - blockInfoPreviousBlockId :: BlockInfo -> Text -blockInfoPreviousBlockId = Text -blockInfoPreviousBlockId, - blockInfoSignerPublicKey :: BlockInfo -> Text -blockInfoSignerPublicKey = Text -blockInfoSignerPublicKey, - blockInfoHeaderSignature :: BlockInfo -> Text -blockInfoHeaderSignature = Text -blockInfoHeaderSignature, - blockInfoTimestamp :: BlockInfo -> Word64 -blockInfoTimestamp = Word64 -blockInfoTimestamp} - = ([MessageBuilder] -> MessageBuilder +Hs.fromString String +"BlockInfo") + +instance HsProtobuf.HasDefault BlockInfo + +instance HsProtobuf.Message BlockInfo where + encodeMessage :: FieldNumber -> BlockInfo -> MessageBuilder +encodeMessage FieldNumber +_ + BlockInfo{blockInfoBlockNum :: BlockInfo -> Word64 +blockInfoBlockNum = Word64 +blockInfoBlockNum, + blockInfoPreviousBlockId :: BlockInfo -> Text +blockInfoPreviousBlockId = Text +blockInfoPreviousBlockId, + blockInfoSignerPublicKey :: BlockInfo -> Text +blockInfoSignerPublicKey = Text +blockInfoSignerPublicKey, + blockInfoHeaderSignature :: BlockInfo -> Text +blockInfoHeaderSignature = Text +blockInfoHeaderSignature, + blockInfoTimestamp :: BlockInfo -> Word64 +blockInfoTimestamp = Word64 +blockInfoTimestamp} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> Word64 -> MessageBuilder +Hs.mconcat + [(FieldNumber -> Word64 -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Word64 -blockInfoBlockNum), - (FieldNumber -> Text -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Word64 +blockInfoBlockNum), + (FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - Text -blockInfoPreviousBlockId), - (FieldNumber -> Text -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + Text +blockInfoPreviousBlockId), + (FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - Text -blockInfoSignerPublicKey), - (FieldNumber -> Text -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + Text +blockInfoSignerPublicKey), + (FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 4) - Text -blockInfoHeaderSignature), - (FieldNumber -> Word64 -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +4) + Text +blockInfoHeaderSignature), + (FieldNumber -> Word64 -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 5) - Word64 -blockInfoTimestamp)]) - decodeMessage :: FieldNumber -> Parser RawMessage BlockInfo -decodeMessage _ - = ((Word64 -> Text -> Text -> Text -> Word64 -> BlockInfo) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +5) + Word64 +blockInfoTimestamp)]) + decodeMessage :: FieldNumber -> Parser RawMessage BlockInfo +decodeMessage FieldNumber +_ + = ((Word64 -> Text -> Text -> Text -> Word64 -> BlockInfo) -> Parser RawMessage (Word64 -> Text -> Text -> Text -> Word64 -> BlockInfo) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Word64 -> Text -> Text -> Text -> Word64 -> BlockInfo +Hs.pure Word64 -> Text -> Text -> Text -> Word64 -> BlockInfo BlockInfo) Parser RawMessage (Word64 -> Text -> Text -> Text -> Word64 -> BlockInfo) -> Parser RawMessage Word64 -> Parser RawMessage (Text -> Text -> Text -> Word64 -> BlockInfo) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Word64 -> FieldNumber -> Parser RawMessage Word64 +<*> + (Parser RawField Word64 -> FieldNumber -> Parser RawMessage Word64 forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Word64 +HsProtobuf.at Parser RawField Word64 forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser RawMessage (Text -> Text -> Text -> Word64 -> BlockInfo) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (Text -> Text -> Text -> Word64 -> BlockInfo) -> Parser RawMessage Text -> Parser RawMessage (Text -> Text -> Word64 -> BlockInfo) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2)) - Parser RawMessage (Text -> Text -> Word64 -> BlockInfo) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2)) + Parser RawMessage (Text -> Text -> Word64 -> BlockInfo) -> Parser RawMessage Text -> Parser RawMessage (Text -> Word64 -> BlockInfo) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3)) - Parser RawMessage (Text -> Word64 -> BlockInfo) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3)) + Parser RawMessage (Text -> Word64 -> BlockInfo) -> Parser RawMessage Text -> Parser RawMessage (Word64 -> BlockInfo) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 4)) - Parser RawMessage (Word64 -> BlockInfo) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +4)) + Parser RawMessage (Word64 -> BlockInfo) -> Parser RawMessage Word64 -> Parser RawMessage BlockInfo forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Word64 -> FieldNumber -> Parser RawMessage Word64 +<*> + (Parser RawField Word64 -> FieldNumber -> Parser RawMessage Word64 forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Word64 +HsProtobuf.at Parser RawField Word64 forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 5)) - dotProto :: Proxy# BlockInfo -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +5)) + dotProto :: Proxy# BlockInfo -> [DotProtoField] +dotProto Proxy# BlockInfo +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.UInt64) - (String -> DotProtoIdentifier -HsProtobuf.Single "block_num") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.UInt64) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"block_num") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "previous_block_id") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"previous_block_id") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "signer_public_key") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"signer_public_key") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 4) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "header_signature") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +4) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"header_signature") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 5) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.UInt64) - (String -> DotProtoIdentifier -HsProtobuf.Single "timestamp") - [] - "")] - -instance HsJSONPB.ToJSONPB BlockInfo where - toJSONPB :: BlockInfo -> Options -> Value -toJSONPB (BlockInfo f1 :: Word64 -f1 f2 :: Text -f2 f3 :: Text -f3 f4 :: Text -f4 f5 :: Word64 -f5) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object - ["block_num" Text -> Word64 -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +5) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.UInt64) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"timestamp") + [] + String +"")] + +instance HsJSONPB.ToJSONPB BlockInfo where + toJSONPB :: BlockInfo -> Options -> Value +toJSONPB (BlockInfo Word64 +f1 Text +f2 Text +f3 Text +f4 Word64 +f5) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object + [Text +"block_num" Text -> Word64 -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Word64 -f1, "previous_block_id" Text -> Text -> Options -> [Pair] +.= Word64 +f1, Text +"previous_block_id" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f2, - "signer_public_key" Text -> Text -> Options -> [Pair] +.= Text +f2, + Text +"signer_public_key" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f3, "header_signature" Text -> Text -> Options -> [Pair] +.= Text +f3, Text +"header_signature" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f4, - "timestamp" Text -> Word64 -> Options -> [Pair] +.= Text +f4, + Text +"timestamp" Text -> Word64 -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Word64 -f5]) - toEncodingPB :: BlockInfo -> Options -> Encoding -toEncodingPB (BlockInfo f1 :: Word64 -f1 f2 :: Text -f2 f3 :: Text -f3 f4 :: Text -f4 f5 :: Word64 -f5) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs - ["block_num" Text -> Word64 -> Options -> Series +.= Word64 +f5]) + toEncodingPB :: BlockInfo -> Options -> Encoding +toEncodingPB (BlockInfo Word64 +f1 Text +f2 Text +f3 Text +f4 Word64 +f5) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs + [Text +"block_num" Text -> Word64 -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Word64 -f1, "previous_block_id" Text -> Text -> Options -> Series +.= Word64 +f1, Text +"previous_block_id" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f2, - "signer_public_key" Text -> Text -> Options -> Series +.= Text +f2, + Text +"signer_public_key" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f3, "header_signature" Text -> Text -> Options -> Series +.= Text +f3, Text +"header_signature" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f4, - "timestamp" Text -> Word64 -> Options -> Series +.= Text +f4, + Text +"timestamp" Text -> Word64 -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Word64 -f5]) - -instance HsJSONPB.FromJSONPB BlockInfo where - parseJSONPB :: Value -> Parser BlockInfo -parseJSONPB - = (String -> (Object -> Parser BlockInfo) -> Value -> Parser BlockInfo +.= Word64 +f5]) + +instance HsJSONPB.FromJSONPB BlockInfo where + parseJSONPB :: Value -> Parser BlockInfo +parseJSONPB + = (String -> (Object -> Parser BlockInfo) -> Value -> Parser BlockInfo forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "BlockInfo" - (\ obj :: Object -obj -> - ((Word64 -> Text -> Text -> Text -> Word64 -> BlockInfo) +HsJSONPB.withObject String +"BlockInfo" + (\ Object +obj -> + ((Word64 -> Text -> Text -> Text -> Word64 -> BlockInfo) -> Parser (Word64 -> Text -> Text -> Text -> Word64 -> BlockInfo) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Word64 -> Text -> Text -> Text -> Word64 -> BlockInfo +Hs.pure Word64 -> Text -> Text -> Text -> Word64 -> BlockInfo BlockInfo) Parser (Word64 -> Text -> Text -> Text -> Word64 -> BlockInfo) -> Parser Word64 -> Parser (Text -> Text -> Text -> Word64 -> BlockInfo) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Word64 +<*> Object +obj Object -> Text -> Parser Word64 forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "block_num" Parser (Text -> Text -> Text -> Word64 -> BlockInfo) +.: Text +"block_num" Parser (Text -> Text -> Text -> Word64 -> BlockInfo) -> Parser Text -> Parser (Text -> Text -> Word64 -> BlockInfo) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser Text +<*> + Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "previous_block_id" - Parser (Text -> Text -> Word64 -> BlockInfo) +.: Text +"previous_block_id" + Parser (Text -> Text -> Word64 -> BlockInfo) -> Parser Text -> Parser (Text -> Word64 -> BlockInfo) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Text +<*> Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "signer_public_key" - Parser (Text -> Word64 -> BlockInfo) +.: Text +"signer_public_key" + Parser (Text -> Word64 -> BlockInfo) -> Parser Text -> Parser (Word64 -> BlockInfo) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Text +<*> Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "header_signature" - Parser (Word64 -> BlockInfo) -> Parser Word64 -> Parser BlockInfo +.: Text +"header_signature" + Parser (Word64 -> BlockInfo) -> Parser Word64 -> Parser BlockInfo forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Word64 +<*> Object +obj Object -> Text -> Parser Word64 forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "timestamp")) - -instance HsJSONPB.ToJSON BlockInfo where - toJSON :: BlockInfo -> Value -toJSON = BlockInfo -> Value +.: Text +"timestamp")) + +instance HsJSONPB.ToJSON BlockInfo where + toJSON :: BlockInfo -> Value +toJSON = BlockInfo -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: BlockInfo -> Encoding -toEncoding = BlockInfo -> Encoding +HsJSONPB.toAesonValue + toEncoding :: BlockInfo -> Encoding +toEncoding = BlockInfo -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON BlockInfo where - parseJSON :: Value -> Parser BlockInfo -parseJSON = Value -> Parser BlockInfo +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON BlockInfo where + parseJSON :: Value -> Parser BlockInfo +parseJSON = Value -> Parser BlockInfo forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema BlockInfo where - declareNamedSchema :: Proxy BlockInfo -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_block_num :: Proxy (OverrideToSchema Word64) +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema BlockInfo where + declareNamedSchema :: Proxy BlockInfo -> Declare (Definitions Schema) NamedSchema +declareNamedSchema Proxy BlockInfo +_ + = do let declare_block_num :: Proxy (OverrideToSchema Word64) -> Declare (Definitions Schema) (Referenced Schema) -declare_block_num = Proxy (OverrideToSchema Word64) +declare_block_num = Proxy (OverrideToSchema Word64) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -blockInfoBlockNum <- Proxy (OverrideToSchema Word64) +HsJSONPB.declareSchemaRef + Referenced Schema +blockInfoBlockNum <- Proxy (OverrideToSchema Word64) -> Declare (Definitions Schema) (Referenced Schema) -declare_block_num Proxy (OverrideToSchema Word64) +declare_block_num Proxy (OverrideToSchema Word64) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_previous_block_id :: Proxy (OverrideToSchema Text) +Proxy.Proxy + let declare_previous_block_id :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_previous_block_id = Proxy (OverrideToSchema Text) +declare_previous_block_id = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -blockInfoPreviousBlockId <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +blockInfoPreviousBlockId <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_previous_block_id Proxy (OverrideToSchema Text) +declare_previous_block_id Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_signer_public_key :: Proxy (OverrideToSchema Text) +Proxy.Proxy + let declare_signer_public_key :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_signer_public_key = Proxy (OverrideToSchema Text) +declare_signer_public_key = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -blockInfoSignerPublicKey <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +blockInfoSignerPublicKey <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_signer_public_key Proxy (OverrideToSchema Text) +declare_signer_public_key Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_header_signature :: Proxy (OverrideToSchema Text) +Proxy.Proxy + let declare_header_signature :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_header_signature = Proxy (OverrideToSchema Text) +declare_header_signature = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -blockInfoHeaderSignature <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +blockInfoHeaderSignature <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_header_signature Proxy (OverrideToSchema Text) +declare_header_signature Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_timestamp :: Proxy (OverrideToSchema Word64) +Proxy.Proxy + let declare_timestamp :: Proxy (OverrideToSchema Word64) -> Declare (Definitions Schema) (Referenced Schema) -declare_timestamp = Proxy (OverrideToSchema Word64) +declare_timestamp = Proxy (OverrideToSchema Word64) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -blockInfoTimestamp <- Proxy (OverrideToSchema Word64) +HsJSONPB.declareSchemaRef + Referenced Schema +blockInfoTimestamp <- Proxy (OverrideToSchema Word64) -> Declare (Definitions Schema) (Referenced Schema) -declare_timestamp Proxy (OverrideToSchema Word64) +declare_timestamp Proxy (OverrideToSchema Word64) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy BlockInfo +Proxy.Proxy + let Proxy BlockInfo _ = (Word64 -> Text -> Text -> Text -> Word64 -> BlockInfo) -> Proxy (Word64 -> Text -> Text -> Text -> Word64 -> BlockInfo) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Word64 -> Text -> Text -> Text -> Word64 -> BlockInfo +Hs.pure Word64 -> Text -> Text -> Text -> Word64 -> BlockInfo BlockInfo Proxy (Word64 -> Text -> Text -> Text -> Word64 -> BlockInfo) -> Proxy Word64 -> Proxy (Text -> Text -> Text -> Word64 -> BlockInfo) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema Word64) +<*> (Proxy (OverrideToSchema Word64) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Word64 forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Word64) +HsJSONPB.asProxy Proxy (OverrideToSchema Word64) -> Declare (Definitions Schema) (Referenced Schema) -declare_block_num - Proxy (Text -> Text -> Text -> Word64 -> BlockInfo) +declare_block_num + Proxy (Text -> Text -> Text -> Word64 -> BlockInfo) -> Proxy Text -> Proxy (Text -> Text -> Word64 -> BlockInfo) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema Text) +<*> (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_previous_block_id - Proxy (Text -> Text -> Word64 -> BlockInfo) +declare_previous_block_id + Proxy (Text -> Text -> Word64 -> BlockInfo) -> Proxy Text -> Proxy (Text -> Word64 -> BlockInfo) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema Text) +<*> (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_signer_public_key - Proxy (Text -> Word64 -> BlockInfo) +declare_signer_public_key + Proxy (Text -> Word64 -> BlockInfo) -> Proxy Text -> Proxy (Word64 -> BlockInfo) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema Text) +<*> (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_header_signature - Proxy (Word64 -> BlockInfo) -> Proxy Word64 -> Proxy BlockInfo +declare_header_signature + Proxy (Word64 -> BlockInfo) -> Proxy Word64 -> Proxy BlockInfo forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema Word64) +<*> (Proxy (OverrideToSchema Word64) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Word64 forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Word64) +HsJSONPB.asProxy Proxy (OverrideToSchema Word64) -> Declare (Definitions Schema) (Referenced Schema) -declare_timestamp - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_timestamp + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "BlockInfo", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"BlockInfo", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("block_num", Referenced Schema -blockInfoBlockNum), - ("previous_block_id", - Referenced Schema -blockInfoPreviousBlockId), - ("signer_public_key", - Referenced Schema -blockInfoSignerPublicKey), - ("header_signature", - Referenced Schema -blockInfoHeaderSignature), - ("timestamp", Referenced Schema -blockInfoTimestamp)]}}) - -data BlockInfoTxn = BlockInfoTxn{BlockInfoTxn -> Maybe BlockInfo +HsJSONPB.insOrdFromList + [(Text +"block_num", Referenced Schema +blockInfoBlockNum), + (Text +"previous_block_id", + Referenced Schema +blockInfoPreviousBlockId), + (Text +"signer_public_key", + Referenced Schema +blockInfoSignerPublicKey), + (Text +"header_signature", + Referenced Schema +blockInfoHeaderSignature), + (Text +"timestamp", Referenced Schema +blockInfoTimestamp)]}}) + +data BlockInfoTxn = BlockInfoTxn{BlockInfoTxn -> Maybe BlockInfo blockInfoTxnBlock :: - Hs.Maybe Data.Sawtooth.BlockInfo.BlockInfo, - BlockInfoTxn -> Word64 -blockInfoTxnTargetCount :: Hs.Word64, - BlockInfoTxn -> Word64 -blockInfoTxnSyncTolerance :: Hs.Word64} - deriving (Int -> BlockInfoTxn -> ShowS + Hs.Maybe Data.Sawtooth.BlockInfo.BlockInfo, + BlockInfoTxn -> Word64 +blockInfoTxnTargetCount :: Hs.Word64, + BlockInfoTxn -> Word64 +blockInfoTxnSyncTolerance :: Hs.Word64} + deriving (Int -> BlockInfoTxn -> ShowS [BlockInfoTxn] -> ShowS BlockInfoTxn -> String (Int -> BlockInfoTxn -> ShowS) @@ -1209,7 +1305,7 @@ show :: BlockInfoTxn -> String $cshow :: BlockInfoTxn -> String showsPrec :: Int -> BlockInfoTxn -> ShowS $cshowsPrec :: Int -> BlockInfoTxn -> ShowS -Hs.Show, BlockInfoTxn -> BlockInfoTxn -> Bool +Hs.Show, BlockInfoTxn -> BlockInfoTxn -> Bool (BlockInfoTxn -> BlockInfoTxn -> Bool) -> (BlockInfoTxn -> BlockInfoTxn -> Bool) -> Eq BlockInfoTxn forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a @@ -1217,9 +1313,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: BlockInfoTxn -> BlockInfoTxn -> Bool == :: BlockInfoTxn -> BlockInfoTxn -> Bool $c== :: BlockInfoTxn -> BlockInfoTxn -> Bool -Hs.Eq, Eq BlockInfoTxn -Eq BlockInfoTxn => -(BlockInfoTxn -> BlockInfoTxn -> Ordering) +Hs.Eq, Eq BlockInfoTxn +Eq BlockInfoTxn +-> (BlockInfoTxn -> BlockInfoTxn -> Ordering) -> (BlockInfoTxn -> BlockInfoTxn -> Bool) -> (BlockInfoTxn -> BlockInfoTxn -> Bool) -> (BlockInfoTxn -> BlockInfoTxn -> Bool) @@ -1231,8 +1327,8 @@ BlockInfoTxn -> BlockInfoTxn -> Bool BlockInfoTxn -> BlockInfoTxn -> Ordering BlockInfoTxn -> BlockInfoTxn -> BlockInfoTxn forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -1255,7 +1351,7 @@ $c< :: BlockInfoTxn -> BlockInfoTxn -> Bool compare :: BlockInfoTxn -> BlockInfoTxn -> Ordering $ccompare :: BlockInfoTxn -> BlockInfoTxn -> Ordering $cp1Ord :: Eq BlockInfoTxn -Hs.Ord, (forall x. BlockInfoTxn -> Rep BlockInfoTxn x) +Hs.Ord, (forall x. BlockInfoTxn -> Rep BlockInfoTxn x) -> (forall x. Rep BlockInfoTxn x -> BlockInfoTxn) -> Generic BlockInfoTxn forall x. Rep BlockInfoTxn x -> BlockInfoTxn @@ -1264,378 +1360,412 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep BlockInfoTxn x -> BlockInfoTxn $cfrom :: forall x. BlockInfoTxn -> Rep BlockInfoTxn x -Hs.Generic, BlockInfoTxn -> () +Hs.Generic, BlockInfoTxn -> () (BlockInfoTxn -> ()) -> NFData BlockInfoTxn forall a. (a -> ()) -> NFData a rnf :: BlockInfoTxn -> () $crnf :: BlockInfoTxn -> () -Hs.NFData) - -instance HsProtobuf.Named BlockInfoTxn where - nameOf :: Proxy# BlockInfoTxn -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named BlockInfoTxn where + nameOf :: Proxy# BlockInfoTxn -> string +nameOf Proxy# BlockInfoTxn +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "BlockInfoTxn") - -instance HsProtobuf.HasDefault BlockInfoTxn - -instance HsProtobuf.Message BlockInfoTxn where - encodeMessage :: FieldNumber -> BlockInfoTxn -> MessageBuilder -encodeMessage _ - BlockInfoTxn{blockInfoTxnBlock :: BlockInfoTxn -> Maybe BlockInfo -blockInfoTxnBlock = Maybe BlockInfo -blockInfoTxnBlock, - blockInfoTxnTargetCount :: BlockInfoTxn -> Word64 -blockInfoTxnTargetCount = Word64 -blockInfoTxnTargetCount, - blockInfoTxnSyncTolerance :: BlockInfoTxn -> Word64 -blockInfoTxnSyncTolerance = Word64 -blockInfoTxnSyncTolerance} - = ([MessageBuilder] -> MessageBuilder +Hs.fromString String +"BlockInfoTxn") + +instance HsProtobuf.HasDefault BlockInfoTxn + +instance HsProtobuf.Message BlockInfoTxn where + encodeMessage :: FieldNumber -> BlockInfoTxn -> MessageBuilder +encodeMessage FieldNumber +_ + BlockInfoTxn{blockInfoTxnBlock :: BlockInfoTxn -> Maybe BlockInfo +blockInfoTxnBlock = Maybe BlockInfo +blockInfoTxnBlock, + blockInfoTxnTargetCount :: BlockInfoTxn -> Word64 +blockInfoTxnTargetCount = Word64 +blockInfoTxnTargetCount, + blockInfoTxnSyncTolerance :: BlockInfoTxn -> Word64 +blockInfoTxnSyncTolerance = Word64 +blockInfoTxnSyncTolerance} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> Nested BlockInfo -> MessageBuilder +Hs.mconcat + [(FieldNumber -> Nested BlockInfo -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (Maybe BlockInfo -> Nested BlockInfo -forall a b. Coercible a b => a -> b -Hs.coerce @(Hs.Maybe Data.Sawtooth.BlockInfo.BlockInfo) - @(HsProtobuf.Nested Data.Sawtooth.BlockInfo.BlockInfo) - Maybe BlockInfo -blockInfoTxnBlock)), - (FieldNumber -> Word64 -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (Maybe BlockInfo -> Nested BlockInfo +Hs.coerce @(Hs.Maybe Data.Sawtooth.BlockInfo.BlockInfo) + @(HsProtobuf.Nested Data.Sawtooth.BlockInfo.BlockInfo) + Maybe BlockInfo +blockInfoTxnBlock)), + (FieldNumber -> Word64 -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - Word64 -blockInfoTxnTargetCount), - (FieldNumber -> Word64 -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + Word64 +blockInfoTxnTargetCount), + (FieldNumber -> Word64 -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - Word64 -blockInfoTxnSyncTolerance)]) - decodeMessage :: FieldNumber -> Parser RawMessage BlockInfoTxn -decodeMessage _ - = ((Maybe BlockInfo -> Word64 -> Word64 -> BlockInfoTxn) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + Word64 +blockInfoTxnSyncTolerance)]) + decodeMessage :: FieldNumber -> Parser RawMessage BlockInfoTxn +decodeMessage FieldNumber +_ + = ((Maybe BlockInfo -> Word64 -> Word64 -> BlockInfoTxn) -> Parser RawMessage (Maybe BlockInfo -> Word64 -> Word64 -> BlockInfoTxn) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Maybe BlockInfo -> Word64 -> Word64 -> BlockInfoTxn +Hs.pure Maybe BlockInfo -> Word64 -> Word64 -> BlockInfoTxn BlockInfoTxn) Parser RawMessage (Maybe BlockInfo -> Word64 -> Word64 -> BlockInfoTxn) -> Parser RawMessage (Maybe BlockInfo) -> Parser RawMessage (Word64 -> Word64 -> BlockInfoTxn) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (Nested BlockInfo) +<*> + (Parser RawMessage (Nested BlockInfo) -> Parser RawMessage (Maybe BlockInfo) -forall a b. Coercible a b => a -> b -Hs.coerce - @(_ (HsProtobuf.Nested Data.Sawtooth.BlockInfo.BlockInfo)) - @(_ (Hs.Maybe Data.Sawtooth.BlockInfo.BlockInfo)) - (Parser RawField (Nested BlockInfo) +Hs.coerce + @(_ (HsProtobuf.Nested Data.Sawtooth.BlockInfo.BlockInfo)) + @(_ (Hs.Maybe Data.Sawtooth.BlockInfo.BlockInfo)) + (Parser RawField (Nested BlockInfo) -> FieldNumber -> Parser RawMessage (Nested BlockInfo) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (Nested BlockInfo) +HsProtobuf.at Parser RawField (Nested BlockInfo) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1))) - Parser RawMessage (Word64 -> Word64 -> BlockInfoTxn) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1))) + Parser RawMessage (Word64 -> Word64 -> BlockInfoTxn) -> Parser RawMessage Word64 -> Parser RawMessage (Word64 -> BlockInfoTxn) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Word64 -> FieldNumber -> Parser RawMessage Word64 +<*> + (Parser RawField Word64 -> FieldNumber -> Parser RawMessage Word64 forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Word64 +HsProtobuf.at Parser RawField Word64 forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2)) - Parser RawMessage (Word64 -> BlockInfoTxn) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2)) + Parser RawMessage (Word64 -> BlockInfoTxn) -> Parser RawMessage Word64 -> Parser RawMessage BlockInfoTxn forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Word64 -> FieldNumber -> Parser RawMessage Word64 +<*> + (Parser RawField Word64 -> FieldNumber -> Parser RawMessage Word64 forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Word64 +HsProtobuf.at Parser RawField Word64 forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3)) - dotProto :: Proxy# BlockInfoTxn -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3)) + dotProto :: Proxy# BlockInfoTxn -> [DotProtoField] +dotProto Proxy# BlockInfoTxn +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim - (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "BlockInfo"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "block") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim + (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"BlockInfo"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"block") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.UInt64) - (String -> DotProtoIdentifier -HsProtobuf.Single "target_count") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.UInt64) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"target_count") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.UInt64) - (String -> DotProtoIdentifier -HsProtobuf.Single "sync_tolerance") - [] - "")] - -instance HsJSONPB.ToJSONPB BlockInfoTxn where - toJSONPB :: BlockInfoTxn -> Options -> Value -toJSONPB (BlockInfoTxn f1 :: Maybe BlockInfo -f1 f2 :: Word64 -f2 f3 :: Word64 -f3) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object - ["block" Text -> Maybe BlockInfo -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.UInt64) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"sync_tolerance") + [] + String +"")] + +instance HsJSONPB.ToJSONPB BlockInfoTxn where + toJSONPB :: BlockInfoTxn -> Options -> Value +toJSONPB (BlockInfoTxn Maybe BlockInfo +f1 Word64 +f2 Word64 +f3) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object + [Text +"block" Text -> Maybe BlockInfo -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Maybe BlockInfo -f1, "target_count" Text -> Word64 -> Options -> [Pair] +.= Maybe BlockInfo +f1, Text +"target_count" Text -> Word64 -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Word64 -f2, "sync_tolerance" Text -> Word64 -> Options -> [Pair] +.= Word64 +f2, Text +"sync_tolerance" Text -> Word64 -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Word64 -f3]) - toEncodingPB :: BlockInfoTxn -> Options -> Encoding -toEncodingPB (BlockInfoTxn f1 :: Maybe BlockInfo -f1 f2 :: Word64 -f2 f3 :: Word64 -f3) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs - ["block" Text -> Maybe BlockInfo -> Options -> Series +.= Word64 +f3]) + toEncodingPB :: BlockInfoTxn -> Options -> Encoding +toEncodingPB (BlockInfoTxn Maybe BlockInfo +f1 Word64 +f2 Word64 +f3) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs + [Text +"block" Text -> Maybe BlockInfo -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Maybe BlockInfo -f1, "target_count" Text -> Word64 -> Options -> Series +.= Maybe BlockInfo +f1, Text +"target_count" Text -> Word64 -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Word64 -f2, "sync_tolerance" Text -> Word64 -> Options -> Series +.= Word64 +f2, Text +"sync_tolerance" Text -> Word64 -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Word64 -f3]) - -instance HsJSONPB.FromJSONPB BlockInfoTxn where - parseJSONPB :: Value -> Parser BlockInfoTxn -parseJSONPB - = (String +.= Word64 +f3]) + +instance HsJSONPB.FromJSONPB BlockInfoTxn where + parseJSONPB :: Value -> Parser BlockInfoTxn +parseJSONPB + = (String -> (Object -> Parser BlockInfoTxn) -> Value -> Parser BlockInfoTxn forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "BlockInfoTxn" - (\ obj :: Object -obj -> - ((Maybe BlockInfo -> Word64 -> Word64 -> BlockInfoTxn) +HsJSONPB.withObject String +"BlockInfoTxn" + (\ Object +obj -> + ((Maybe BlockInfo -> Word64 -> Word64 -> BlockInfoTxn) -> Parser (Maybe BlockInfo -> Word64 -> Word64 -> BlockInfoTxn) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Maybe BlockInfo -> Word64 -> Word64 -> BlockInfoTxn +Hs.pure Maybe BlockInfo -> Word64 -> Word64 -> BlockInfoTxn BlockInfoTxn) Parser (Maybe BlockInfo -> Word64 -> Word64 -> BlockInfoTxn) -> Parser (Maybe BlockInfo) -> Parser (Word64 -> Word64 -> BlockInfoTxn) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser (Maybe BlockInfo) +<*> Object +obj Object -> Text -> Parser (Maybe BlockInfo) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "block" Parser (Word64 -> Word64 -> BlockInfoTxn) +.: Text +"block" Parser (Word64 -> Word64 -> BlockInfoTxn) -> Parser Word64 -> Parser (Word64 -> BlockInfoTxn) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Word64 +<*> Object +obj Object -> Text -> Parser Word64 forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "target_count" - Parser (Word64 -> BlockInfoTxn) +.: Text +"target_count" + Parser (Word64 -> BlockInfoTxn) -> Parser Word64 -> Parser BlockInfoTxn forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Word64 +<*> Object +obj Object -> Text -> Parser Word64 forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "sync_tolerance")) - -instance HsJSONPB.ToJSON BlockInfoTxn where - toJSON :: BlockInfoTxn -> Value -toJSON = BlockInfoTxn -> Value +.: Text +"sync_tolerance")) + +instance HsJSONPB.ToJSON BlockInfoTxn where + toJSON :: BlockInfoTxn -> Value +toJSON = BlockInfoTxn -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: BlockInfoTxn -> Encoding -toEncoding = BlockInfoTxn -> Encoding +HsJSONPB.toAesonValue + toEncoding :: BlockInfoTxn -> Encoding +toEncoding = BlockInfoTxn -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON BlockInfoTxn where - parseJSON :: Value -> Parser BlockInfoTxn -parseJSON = Value -> Parser BlockInfoTxn +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON BlockInfoTxn where + parseJSON :: Value -> Parser BlockInfoTxn +parseJSON = Value -> Parser BlockInfoTxn forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema BlockInfoTxn where - declareNamedSchema :: Proxy BlockInfoTxn -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_block :: Proxy (OverrideToSchema (Maybe BlockInfo)) +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema BlockInfoTxn where + declareNamedSchema :: Proxy BlockInfoTxn -> Declare (Definitions Schema) NamedSchema +declareNamedSchema Proxy BlockInfoTxn +_ + = do let declare_block :: Proxy (OverrideToSchema (Maybe BlockInfo)) -> Declare (Definitions Schema) (Referenced Schema) -declare_block = Proxy (OverrideToSchema (Maybe BlockInfo)) +declare_block = Proxy (OverrideToSchema (Maybe BlockInfo)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -blockInfoTxnBlock <- Proxy (OverrideToSchema (Maybe BlockInfo)) +HsJSONPB.declareSchemaRef + Referenced Schema +blockInfoTxnBlock <- Proxy (OverrideToSchema (Maybe BlockInfo)) -> Declare (Definitions Schema) (Referenced Schema) -declare_block Proxy (OverrideToSchema (Maybe BlockInfo)) +declare_block Proxy (OverrideToSchema (Maybe BlockInfo)) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_target_count :: Proxy (OverrideToSchema Word64) +Proxy.Proxy + let declare_target_count :: Proxy (OverrideToSchema Word64) -> Declare (Definitions Schema) (Referenced Schema) -declare_target_count = Proxy (OverrideToSchema Word64) +declare_target_count = Proxy (OverrideToSchema Word64) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -blockInfoTxnTargetCount <- Proxy (OverrideToSchema Word64) +HsJSONPB.declareSchemaRef + Referenced Schema +blockInfoTxnTargetCount <- Proxy (OverrideToSchema Word64) -> Declare (Definitions Schema) (Referenced Schema) -declare_target_count Proxy (OverrideToSchema Word64) +declare_target_count Proxy (OverrideToSchema Word64) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_sync_tolerance :: Proxy (OverrideToSchema Word64) +Proxy.Proxy + let declare_sync_tolerance :: Proxy (OverrideToSchema Word64) -> Declare (Definitions Schema) (Referenced Schema) -declare_sync_tolerance = Proxy (OverrideToSchema Word64) +declare_sync_tolerance = Proxy (OverrideToSchema Word64) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -blockInfoTxnSyncTolerance <- Proxy (OverrideToSchema Word64) +HsJSONPB.declareSchemaRef + Referenced Schema +blockInfoTxnSyncTolerance <- Proxy (OverrideToSchema Word64) -> Declare (Definitions Schema) (Referenced Schema) -declare_sync_tolerance Proxy (OverrideToSchema Word64) +declare_sync_tolerance Proxy (OverrideToSchema Word64) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy BlockInfoTxn +Proxy.Proxy + let Proxy BlockInfoTxn _ = (Maybe BlockInfo -> Word64 -> Word64 -> BlockInfoTxn) -> Proxy (Maybe BlockInfo -> Word64 -> Word64 -> BlockInfoTxn) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Maybe BlockInfo -> Word64 -> Word64 -> BlockInfoTxn +Hs.pure Maybe BlockInfo -> Word64 -> Word64 -> BlockInfoTxn BlockInfoTxn Proxy (Maybe BlockInfo -> Word64 -> Word64 -> BlockInfoTxn) -> Proxy (Maybe BlockInfo) -> Proxy (Word64 -> Word64 -> BlockInfoTxn) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema (Maybe BlockInfo)) +<*> (Proxy (OverrideToSchema (Maybe BlockInfo)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Maybe BlockInfo) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Maybe BlockInfo)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Maybe BlockInfo)) -> Declare (Definitions Schema) (Referenced Schema) -declare_block Proxy (Word64 -> Word64 -> BlockInfoTxn) +declare_block Proxy (Word64 -> Word64 -> BlockInfoTxn) -> Proxy Word64 -> Proxy (Word64 -> BlockInfoTxn) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema Word64) +<*> + (Proxy (OverrideToSchema Word64) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Word64 forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Word64) +HsJSONPB.asProxy Proxy (OverrideToSchema Word64) -> Declare (Definitions Schema) (Referenced Schema) -declare_target_count - Proxy (Word64 -> BlockInfoTxn) +declare_target_count + Proxy (Word64 -> BlockInfoTxn) -> Proxy Word64 -> Proxy BlockInfoTxn forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema Word64) +<*> (Proxy (OverrideToSchema Word64) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Word64 forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Word64) +HsJSONPB.asProxy Proxy (OverrideToSchema Word64) -> Declare (Definitions Schema) (Referenced Schema) -declare_sync_tolerance - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_sync_tolerance + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "BlockInfoTxn", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"BlockInfoTxn", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("block", Referenced Schema -blockInfoTxnBlock), - ("target_count", Referenced Schema -blockInfoTxnTargetCount), - ("sync_tolerance", - Referenced Schema -blockInfoTxnSyncTolerance)]}}) \ No newline at end of file +HsJSONPB.insOrdFromList + [(Text +"block", Referenced Schema +blockInfoTxnBlock), + (Text +"target_count", Referenced Schema +blockInfoTxnTargetCount), + (Text +"sync_tolerance", + Referenced Schema +blockInfoTxnSyncTolerance)]}}) \ No newline at end of file diff --git a/src/Data.Sawtooth.ClientBatch.html b/src/Data.Sawtooth.ClientBatch.html index 14dca99..96532fb 100644 --- a/src/Data.Sawtooth.ClientBatch.html +++ b/src/Data.Sawtooth.ClientBatch.html @@ -9,50 +9,49 @@ {-# OPTIONS_GHC -fno-warn-unused-matches #-} -- | Generated by Haskell protocol buffer compiler. DO NOT EDIT! - -module Data.Sawtooth.ClientBatch where -import qualified Prelude as Hs -import qualified Proto3.Suite.Class as HsProtobuf -import qualified Proto3.Suite.DotProto as HsProtobuf -import qualified Proto3.Suite.JSONPB as HsJSONPB -import Proto3.Suite.JSONPB ((.=), (.:)) -import qualified Proto3.Suite.Types as HsProtobuf -import qualified Proto3.Wire as HsProtobuf -import qualified Control.Applicative as Hs -import Control.Applicative ((<*>), (<|>), (<$>)) -import qualified Control.DeepSeq as Hs -import qualified Control.Monad as Hs -import qualified Data.ByteString as Hs -import qualified Data.Coerce as Hs -import qualified Data.Int as Hs (Int16, Int32, Int64) -import qualified Data.List.NonEmpty as Hs (NonEmpty(..)) -import qualified Data.Map as Hs (Map, mapKeysMonotonic) -import qualified Data.Proxy as Proxy -import qualified Data.String as Hs (fromString) -import qualified Data.Text.Lazy as Hs (Text) -import qualified Data.Vector as Hs (Vector) -import qualified Data.Word as Hs (Word16, Word32, Word64) -import qualified GHC.Enum as Hs -import qualified GHC.Generics as Hs -import qualified Unsafe.Coerce as Hs -import qualified Data.Sawtooth.Batch -import qualified Data.Sawtooth.ClientListControl - -data ClientBatchListRequest = ClientBatchListRequest{ClientBatchListRequest -> Text +module Data.Sawtooth.ClientBatch where +import qualified Prelude as Hs +import qualified Proto3.Suite.Class as HsProtobuf +import qualified Proto3.Suite.DotProto as HsProtobuf +import qualified Proto3.Suite.JSONPB as HsJSONPB +import Proto3.Suite.JSONPB ((.=), (.:)) +import qualified Proto3.Suite.Types as HsProtobuf +import qualified Proto3.Wire as HsProtobuf +import qualified Control.Applicative as Hs +import Control.Applicative ((<*>), (<|>), (<$>)) +import qualified Control.DeepSeq as Hs +import qualified Control.Monad as Hs +import qualified Data.ByteString as Hs +import qualified Data.Coerce as Hs +import qualified Data.Int as Hs (Int16, Int32, Int64) +import qualified Data.List.NonEmpty as Hs (NonEmpty(..)) +import qualified Data.Map as Hs (Map, mapKeysMonotonic) +import qualified Data.Proxy as Proxy +import qualified Data.String as Hs (fromString) +import qualified Data.Text.Lazy as Hs (Text) +import qualified Data.Vector as Hs (Vector) +import qualified Data.Word as Hs (Word16, Word32, Word64) +import qualified GHC.Enum as Hs +import qualified GHC.Generics as Hs +import qualified Unsafe.Coerce as Hs +import qualified Data.Sawtooth.Batch +import qualified Data.Sawtooth.ClientListControl + +data ClientBatchListRequest = ClientBatchListRequest{ClientBatchListRequest -> Text clientBatchListRequestHeadId - :: Hs.Text, - ClientBatchListRequest -> Vector Text + :: Hs.Text, + ClientBatchListRequest -> Vector Text clientBatchListRequestBatchIds :: - Hs.Vector Hs.Text, - ClientBatchListRequest -> Maybe ClientPagingControls + Hs.Vector Hs.Text, + ClientBatchListRequest -> Maybe ClientPagingControls clientBatchListRequestPaging :: - Hs.Maybe - Data.Sawtooth.ClientListControl.ClientPagingControls, - ClientBatchListRequest -> Vector ClientSortControls + Hs.Maybe + Data.Sawtooth.ClientListControl.ClientPagingControls, + ClientBatchListRequest -> Vector ClientSortControls clientBatchListRequestSorting :: - Hs.Vector - Data.Sawtooth.ClientListControl.ClientSortControls} - deriving (Int -> ClientBatchListRequest -> ShowS + Hs.Vector + Data.Sawtooth.ClientListControl.ClientSortControls} + deriving (Int -> ClientBatchListRequest -> ShowS [ClientBatchListRequest] -> ShowS ClientBatchListRequest -> String (Int -> ClientBatchListRequest -> ShowS) @@ -67,7 +66,7 @@ show :: ClientBatchListRequest -> String $cshow :: ClientBatchListRequest -> String showsPrec :: Int -> ClientBatchListRequest -> ShowS $cshowsPrec :: Int -> ClientBatchListRequest -> ShowS -Hs.Show, ClientBatchListRequest -> ClientBatchListRequest -> Bool +Hs.Show, ClientBatchListRequest -> ClientBatchListRequest -> Bool (ClientBatchListRequest -> ClientBatchListRequest -> Bool) -> (ClientBatchListRequest -> ClientBatchListRequest -> Bool) -> Eq ClientBatchListRequest @@ -76,9 +75,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: ClientBatchListRequest -> ClientBatchListRequest -> Bool == :: ClientBatchListRequest -> ClientBatchListRequest -> Bool $c== :: ClientBatchListRequest -> ClientBatchListRequest -> Bool -Hs.Eq, Eq ClientBatchListRequest -Eq ClientBatchListRequest => -(ClientBatchListRequest -> ClientBatchListRequest -> Ordering) +Hs.Eq, Eq ClientBatchListRequest +Eq ClientBatchListRequest +-> (ClientBatchListRequest -> ClientBatchListRequest -> Ordering) -> (ClientBatchListRequest -> ClientBatchListRequest -> Bool) -> (ClientBatchListRequest -> ClientBatchListRequest -> Bool) -> (ClientBatchListRequest -> ClientBatchListRequest -> Bool) @@ -93,8 +92,8 @@ ClientBatchListRequest -> ClientBatchListRequest -> Ordering ClientBatchListRequest -> ClientBatchListRequest -> ClientBatchListRequest forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -121,7 +120,7 @@ $c< :: ClientBatchListRequest -> ClientBatchListRequest -> Bool compare :: ClientBatchListRequest -> ClientBatchListRequest -> Ordering $ccompare :: ClientBatchListRequest -> ClientBatchListRequest -> Ordering $cp1Ord :: Eq ClientBatchListRequest -Hs.Ord, (forall x. ClientBatchListRequest -> Rep ClientBatchListRequest x) +Hs.Ord, (forall x. ClientBatchListRequest -> Rep ClientBatchListRequest x) -> (forall x. Rep ClientBatchListRequest x -> ClientBatchListRequest) -> Generic ClientBatchListRequest @@ -131,80 +130,85 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep ClientBatchListRequest x -> ClientBatchListRequest $cfrom :: forall x. ClientBatchListRequest -> Rep ClientBatchListRequest x -Hs.Generic, ClientBatchListRequest -> () +Hs.Generic, ClientBatchListRequest -> () (ClientBatchListRequest -> ()) -> NFData ClientBatchListRequest forall a. (a -> ()) -> NFData a rnf :: ClientBatchListRequest -> () $crnf :: ClientBatchListRequest -> () -Hs.NFData) - -instance HsProtobuf.Named ClientBatchListRequest where - nameOf :: Proxy# ClientBatchListRequest -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ClientBatchListRequest where + nameOf :: Proxy# ClientBatchListRequest -> string +nameOf Proxy# ClientBatchListRequest +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ClientBatchListRequest") - -instance HsProtobuf.HasDefault ClientBatchListRequest - -instance HsProtobuf.Message ClientBatchListRequest where - encodeMessage :: FieldNumber -> ClientBatchListRequest -> MessageBuilder -encodeMessage _ - ClientBatchListRequest{clientBatchListRequestHeadId :: ClientBatchListRequest -> Text +Hs.fromString String +"ClientBatchListRequest") + +instance HsProtobuf.HasDefault ClientBatchListRequest + +instance HsProtobuf.Message ClientBatchListRequest where + encodeMessage :: FieldNumber -> ClientBatchListRequest -> MessageBuilder +encodeMessage FieldNumber +_ + ClientBatchListRequest{clientBatchListRequestHeadId :: ClientBatchListRequest -> Text clientBatchListRequestHeadId = - Text -clientBatchListRequestHeadId, - clientBatchListRequestBatchIds :: ClientBatchListRequest -> Vector Text -clientBatchListRequestBatchIds = Vector Text -clientBatchListRequestBatchIds, - clientBatchListRequestPaging :: ClientBatchListRequest -> Maybe ClientPagingControls -clientBatchListRequestPaging = Maybe ClientPagingControls -clientBatchListRequestPaging, - clientBatchListRequestSorting :: ClientBatchListRequest -> Vector ClientSortControls -clientBatchListRequestSorting = Vector ClientSortControls -clientBatchListRequestSorting} - = ([MessageBuilder] -> MessageBuilder + Text +clientBatchListRequestHeadId, + clientBatchListRequestBatchIds :: ClientBatchListRequest -> Vector Text +clientBatchListRequestBatchIds = Vector Text +clientBatchListRequestBatchIds, + clientBatchListRequestPaging :: ClientBatchListRequest -> Maybe ClientPagingControls +clientBatchListRequestPaging = Maybe ClientPagingControls +clientBatchListRequestPaging, + clientBatchListRequestSorting :: ClientBatchListRequest -> Vector ClientSortControls +clientBatchListRequestSorting = Vector ClientSortControls +clientBatchListRequestSorting} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> Text -> MessageBuilder +Hs.mconcat + [(FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Text -clientBatchListRequestHeadId), - (FieldNumber -> UnpackedVec Text -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Text +clientBatchListRequestHeadId), + (FieldNumber -> UnpackedVec Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (Vector Text -> UnpackedVec Text -forall a b. Coercible a b => a -> b -Hs.coerce @(Hs.Vector Hs.Text) @(HsProtobuf.UnpackedVec Hs.Text) - Vector Text -clientBatchListRequestBatchIds)), - (FieldNumber -> Nested ClientPagingControls -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (Vector Text -> UnpackedVec Text +Hs.coerce @(Hs.Vector Hs.Text) @(HsProtobuf.UnpackedVec Hs.Text) + Vector Text +clientBatchListRequestBatchIds)), + (FieldNumber -> Nested ClientPagingControls -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - (Maybe ClientPagingControls -> Nested ClientPagingControls -forall a b. Coercible a b => a -> b -Hs.coerce - @(Hs.Maybe Data.Sawtooth.ClientListControl.ClientPagingControls) - @(HsProtobuf.Nested Data.Sawtooth.ClientListControl.ClientPagingControls) - Maybe ClientPagingControls -clientBatchListRequestPaging)), - (FieldNumber -> NestedVec ClientSortControls -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + (Maybe ClientPagingControls -> Nested ClientPagingControls +Hs.coerce + @(Hs.Maybe Data.Sawtooth.ClientListControl.ClientPagingControls) + @(HsProtobuf.Nested Data.Sawtooth.ClientListControl.ClientPagingControls) + Maybe ClientPagingControls +clientBatchListRequestPaging)), + (FieldNumber -> NestedVec ClientSortControls -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 4) - (Vector ClientSortControls -> NestedVec ClientSortControls -forall a b. Coercible a b => a -> b -Hs.coerce - @(Hs.Vector Data.Sawtooth.ClientListControl.ClientSortControls) - @(HsProtobuf.NestedVec Data.Sawtooth.ClientListControl.ClientSortControls) - Vector ClientSortControls -clientBatchListRequestSorting))]) - decodeMessage :: FieldNumber -> Parser RawMessage ClientBatchListRequest -decodeMessage _ - = ((Text +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +4) + (Vector ClientSortControls -> NestedVec ClientSortControls +Hs.coerce + @(Hs.Vector Data.Sawtooth.ClientListControl.ClientSortControls) + @(HsProtobuf.NestedVec Data.Sawtooth.ClientListControl.ClientSortControls) + Vector ClientSortControls +clientBatchListRequestSorting))]) + decodeMessage :: FieldNumber -> Parser RawMessage ClientBatchListRequest +decodeMessage FieldNumber +_ + = ((Text -> Vector Text -> Maybe ClientPagingControls -> Vector ClientSortControls @@ -217,7 +221,7 @@ forall a b. Coercible a b => a -> b -> Vector ClientSortControls -> ClientBatchListRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text +Hs.pure Text -> Vector Text -> Maybe ClientPagingControls -> Vector ClientSortControls @@ -237,15 +241,16 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Vector ClientSortControls -> ClientBatchListRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (Vector Text -> Maybe ClientPagingControls @@ -257,21 +262,21 @@ forall a. MessageField a => Parser RawField a (Maybe ClientPagingControls -> Vector ClientSortControls -> ClientBatchListRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (UnpackedVec Text) +<*> + (Parser RawMessage (UnpackedVec Text) -> Parser RawMessage (Vector Text) -forall a b. Coercible a b => a -> b -Hs.coerce @(_ (HsProtobuf.UnpackedVec Hs.Text)) - @(_ (Hs.Vector Hs.Text)) - (Parser RawField (UnpackedVec Text) +Hs.coerce @(_ (HsProtobuf.UnpackedVec Hs.Text)) + @(_ (Hs.Vector Hs.Text)) + (Parser RawField (UnpackedVec Text) -> FieldNumber -> Parser RawMessage (UnpackedVec Text) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (UnpackedVec Text) +HsProtobuf.at Parser RawField (UnpackedVec Text) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2))) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2))) + Parser RawMessage (Maybe ClientPagingControls -> Vector ClientSortControls -> ClientBatchListRequest) @@ -279,182 +284,206 @@ forall a. MessageField a => Parser RawField a -> Parser RawMessage (Vector ClientSortControls -> ClientBatchListRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (Nested ClientPagingControls) +<*> + (Parser RawMessage (Nested ClientPagingControls) -> Parser RawMessage (Maybe ClientPagingControls) -forall a b. Coercible a b => a -> b -Hs.coerce - @(_ (HsProtobuf.Nested Data.Sawtooth.ClientListControl.ClientPagingControls)) - @(_ (Hs.Maybe Data.Sawtooth.ClientListControl.ClientPagingControls)) - (Parser RawField (Nested ClientPagingControls) +Hs.coerce + @(_ (HsProtobuf.Nested Data.Sawtooth.ClientListControl.ClientPagingControls)) + @(_ (Hs.Maybe Data.Sawtooth.ClientListControl.ClientPagingControls)) + (Parser RawField (Nested ClientPagingControls) -> FieldNumber -> Parser RawMessage (Nested ClientPagingControls) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (Nested ClientPagingControls) +HsProtobuf.at Parser RawField (Nested ClientPagingControls) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3))) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3))) + Parser RawMessage (Vector ClientSortControls -> ClientBatchListRequest) -> Parser RawMessage (Vector ClientSortControls) -> Parser RawMessage ClientBatchListRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (NestedVec ClientSortControls) +<*> + (Parser RawMessage (NestedVec ClientSortControls) -> Parser RawMessage (Vector ClientSortControls) -forall a b. Coercible a b => a -> b -Hs.coerce - @(_ (HsProtobuf.NestedVec Data.Sawtooth.ClientListControl.ClientSortControls)) - @(_ (Hs.Vector Data.Sawtooth.ClientListControl.ClientSortControls)) - (Parser RawField (NestedVec ClientSortControls) +Hs.coerce + @(_ (HsProtobuf.NestedVec Data.Sawtooth.ClientListControl.ClientSortControls)) + @(_ (Hs.Vector Data.Sawtooth.ClientListControl.ClientSortControls)) + (Parser RawField (NestedVec ClientSortControls) -> FieldNumber -> Parser RawMessage (NestedVec ClientSortControls) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (NestedVec ClientSortControls) +HsProtobuf.at Parser RawField (NestedVec ClientSortControls) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 4))) - dotProto :: Proxy# ClientBatchListRequest -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +4))) + dotProto :: Proxy# ClientBatchListRequest -> [DotProtoField] +dotProto Proxy# ClientBatchListRequest +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "head_id") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"head_id") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Repeated DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "batch_ids") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Repeated DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"batch_ids") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim - (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "ClientPagingControls"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "paging") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim + (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"ClientPagingControls"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"paging") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 4) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Repeated - (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "ClientSortControls"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "sorting") - [] - "")] - -instance HsJSONPB.ToJSONPB ClientBatchListRequest where - toJSONPB :: ClientBatchListRequest -> Options -> Value -toJSONPB (ClientBatchListRequest f1 :: Text -f1 f2 :: Vector Text -f2 f3 :: Maybe ClientPagingControls -f3 f4 :: Vector ClientSortControls -f4) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object - ["head_id" Text -> Text -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +4) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Repeated + (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"ClientSortControls"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"sorting") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ClientBatchListRequest where + toJSONPB :: ClientBatchListRequest -> Options -> Value +toJSONPB (ClientBatchListRequest Text +f1 Vector Text +f2 Maybe ClientPagingControls +f3 Vector ClientSortControls +f4) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object + [Text +"head_id" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1, "batch_ids" Text -> Vector Text -> Options -> [Pair] +.= Text +f1, Text +"batch_ids" Text -> Vector Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Text -f2, "paging" Text -> Maybe ClientPagingControls -> Options -> [Pair] +.= Vector Text +f2, Text +"paging" Text -> Maybe ClientPagingControls -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Maybe ClientPagingControls -f3, - "sorting" Text -> Vector ClientSortControls -> Options -> [Pair] +.= Maybe ClientPagingControls +f3, + Text +"sorting" Text -> Vector ClientSortControls -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector ClientSortControls -f4]) - toEncodingPB :: ClientBatchListRequest -> Options -> Encoding -toEncodingPB (ClientBatchListRequest f1 :: Text -f1 f2 :: Vector Text -f2 f3 :: Maybe ClientPagingControls -f3 f4 :: Vector ClientSortControls -f4) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs - ["head_id" Text -> Text -> Options -> Series +.= Vector ClientSortControls +f4]) + toEncodingPB :: ClientBatchListRequest -> Options -> Encoding +toEncodingPB (ClientBatchListRequest Text +f1 Vector Text +f2 Maybe ClientPagingControls +f3 Vector ClientSortControls +f4) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs + [Text +"head_id" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1, "batch_ids" Text -> Vector Text -> Options -> Series +.= Text +f1, Text +"batch_ids" Text -> Vector Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Text -f2, "paging" Text -> Maybe ClientPagingControls -> Options -> Series +.= Vector Text +f2, Text +"paging" Text -> Maybe ClientPagingControls -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Maybe ClientPagingControls -f3, - "sorting" Text -> Vector ClientSortControls -> Options -> Series +.= Maybe ClientPagingControls +f3, + Text +"sorting" Text -> Vector ClientSortControls -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector ClientSortControls -f4]) - -instance HsJSONPB.FromJSONPB ClientBatchListRequest where - parseJSONPB :: Value -> Parser ClientBatchListRequest -parseJSONPB - = (String +.= Vector ClientSortControls +f4]) + +instance HsJSONPB.FromJSONPB ClientBatchListRequest where + parseJSONPB :: Value -> Parser ClientBatchListRequest +parseJSONPB + = (String -> (Object -> Parser ClientBatchListRequest) -> Value -> Parser ClientBatchListRequest forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ClientBatchListRequest" - (\ obj :: Object -obj -> - ((Text +HsJSONPB.withObject String +"ClientBatchListRequest" + (\ Object +obj -> + ((Text -> Vector Text -> Maybe ClientPagingControls -> Vector ClientSortControls @@ -466,7 +495,7 @@ forall a. String -> (Object -> Parser a) -> Value -> Parser a -> Vector ClientSortControls -> ClientBatchListRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text +Hs.pure Text -> Vector Text -> Maybe ClientPagingControls -> Vector ClientSortControls @@ -484,12 +513,13 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Vector ClientSortControls -> ClientBatchListRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Text +<*> Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "head_id" Parser +.: Text +"head_id" Parser (Vector Text -> Maybe ClientPagingControls -> Vector ClientSortControls @@ -499,113 +529,117 @@ Object -> Text -> Parser a (Maybe ClientPagingControls -> Vector ClientSortControls -> ClientBatchListRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser (Vector Text) +<*> + Object +obj Object -> Text -> Parser (Vector Text) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "batch_ids" - Parser +.: Text +"batch_ids" + Parser (Maybe ClientPagingControls -> Vector ClientSortControls -> ClientBatchListRequest) -> Parser (Maybe ClientPagingControls) -> Parser (Vector ClientSortControls -> ClientBatchListRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser (Maybe ClientPagingControls) +<*> Object +obj Object -> Text -> Parser (Maybe ClientPagingControls) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "paging" - Parser (Vector ClientSortControls -> ClientBatchListRequest) +.: Text +"paging" + Parser (Vector ClientSortControls -> ClientBatchListRequest) -> Parser (Vector ClientSortControls) -> Parser ClientBatchListRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser (Vector ClientSortControls) +<*> Object +obj Object -> Text -> Parser (Vector ClientSortControls) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "sorting")) - -instance HsJSONPB.ToJSON ClientBatchListRequest where - toJSON :: ClientBatchListRequest -> Value -toJSON = ClientBatchListRequest -> Value +.: Text +"sorting")) + +instance HsJSONPB.ToJSON ClientBatchListRequest where + toJSON :: ClientBatchListRequest -> Value +toJSON = ClientBatchListRequest -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ClientBatchListRequest -> Encoding -toEncoding = ClientBatchListRequest -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ClientBatchListRequest -> Encoding +toEncoding = ClientBatchListRequest -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ClientBatchListRequest where - parseJSON :: Value -> Parser ClientBatchListRequest -parseJSON = Value -> Parser ClientBatchListRequest +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ClientBatchListRequest where + parseJSON :: Value -> Parser ClientBatchListRequest +parseJSON = Value -> Parser ClientBatchListRequest forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ClientBatchListRequest where - declareNamedSchema :: Proxy ClientBatchListRequest +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ClientBatchListRequest where + declareNamedSchema :: Proxy ClientBatchListRequest -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_head_id :: Proxy (OverrideToSchema Text) +declareNamedSchema Proxy ClientBatchListRequest +_ + = do let declare_head_id :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_head_id = Proxy (OverrideToSchema Text) +declare_head_id = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientBatchListRequestHeadId <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +clientBatchListRequestHeadId <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_head_id Proxy (OverrideToSchema Text) +declare_head_id Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_batch_ids :: Proxy (OverrideToSchema (Vector Text)) +Proxy.Proxy + let declare_batch_ids :: Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) -declare_batch_ids = Proxy (OverrideToSchema (Vector Text)) +declare_batch_ids = Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientBatchListRequestBatchIds <- Proxy (OverrideToSchema (Vector Text)) +HsJSONPB.declareSchemaRef + Referenced Schema +clientBatchListRequestBatchIds <- Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) -declare_batch_ids Proxy (OverrideToSchema (Vector Text)) +declare_batch_ids Proxy (OverrideToSchema (Vector Text)) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_paging :: Proxy (OverrideToSchema (Maybe ClientPagingControls)) +Proxy.Proxy + let declare_paging :: Proxy (OverrideToSchema (Maybe ClientPagingControls)) -> Declare (Definitions Schema) (Referenced Schema) -declare_paging = Proxy (OverrideToSchema (Maybe ClientPagingControls)) +declare_paging = Proxy (OverrideToSchema (Maybe ClientPagingControls)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientBatchListRequestPaging <- Proxy (OverrideToSchema (Maybe ClientPagingControls)) +HsJSONPB.declareSchemaRef + Referenced Schema +clientBatchListRequestPaging <- Proxy (OverrideToSchema (Maybe ClientPagingControls)) -> Declare (Definitions Schema) (Referenced Schema) -declare_paging Proxy (OverrideToSchema (Maybe ClientPagingControls)) +declare_paging Proxy (OverrideToSchema (Maybe ClientPagingControls)) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_sorting :: Proxy (OverrideToSchema (Vector ClientSortControls)) +Proxy.Proxy + let declare_sorting :: Proxy (OverrideToSchema (Vector ClientSortControls)) -> Declare (Definitions Schema) (Referenced Schema) -declare_sorting = Proxy (OverrideToSchema (Vector ClientSortControls)) +declare_sorting = Proxy (OverrideToSchema (Vector ClientSortControls)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientBatchListRequestSorting <- Proxy (OverrideToSchema (Vector ClientSortControls)) +HsJSONPB.declareSchemaRef + Referenced Schema +clientBatchListRequestSorting <- Proxy (OverrideToSchema (Vector ClientSortControls)) -> Declare (Definitions Schema) (Referenced Schema) -declare_sorting Proxy (OverrideToSchema (Vector ClientSortControls)) +declare_sorting Proxy (OverrideToSchema (Vector ClientSortControls)) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ClientBatchListRequest +Proxy.Proxy + let Proxy ClientBatchListRequest _ = (Text -> Vector Text -> Maybe ClientPagingControls @@ -618,7 +652,7 @@ forall k (t :: k). Proxy t -> Vector ClientSortControls -> ClientBatchListRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text +Hs.pure Text -> Vector Text -> Maybe ClientPagingControls -> Vector ClientSortControls @@ -636,15 +670,15 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Vector ClientSortControls -> ClientBatchListRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema Text) +<*> + (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_head_id - Proxy +declare_head_id + Proxy (Vector Text -> Maybe ClientPagingControls -> Vector ClientSortControls @@ -654,94 +688,99 @@ forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a (Maybe ClientPagingControls -> Vector ClientSortControls -> ClientBatchListRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema (Vector Text)) +<*> (Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Vector Text) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Text)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) -declare_batch_ids - Proxy +declare_batch_ids + Proxy (Maybe ClientPagingControls -> Vector ClientSortControls -> ClientBatchListRequest) -> Proxy (Maybe ClientPagingControls) -> Proxy (Vector ClientSortControls -> ClientBatchListRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema (Maybe ClientPagingControls)) +<*> (Proxy (OverrideToSchema (Maybe ClientPagingControls)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Maybe ClientPagingControls) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Maybe ClientPagingControls)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Maybe ClientPagingControls)) -> Declare (Definitions Schema) (Referenced Schema) -declare_paging - Proxy (Vector ClientSortControls -> ClientBatchListRequest) +declare_paging + Proxy (Vector ClientSortControls -> ClientBatchListRequest) -> Proxy (Vector ClientSortControls) -> Proxy ClientBatchListRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema (Vector ClientSortControls)) +<*> (Proxy (OverrideToSchema (Vector ClientSortControls)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Vector ClientSortControls) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Vector ClientSortControls)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Vector ClientSortControls)) -> Declare (Definitions Schema) (Referenced Schema) -declare_sorting - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_sorting + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ClientBatchListRequest", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ClientBatchListRequest", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("head_id", Referenced Schema -clientBatchListRequestHeadId), - ("batch_ids", - Referenced Schema -clientBatchListRequestBatchIds), - ("paging", Referenced Schema -clientBatchListRequestPaging), - ("sorting", - Referenced Schema -clientBatchListRequestSorting)]}}) - -data ClientBatchListResponse = ClientBatchListResponse{ClientBatchListResponse +HsJSONPB.insOrdFromList + [(Text +"head_id", Referenced Schema +clientBatchListRequestHeadId), + (Text +"batch_ids", + Referenced Schema +clientBatchListRequestBatchIds), + (Text +"paging", Referenced Schema +clientBatchListRequestPaging), + (Text +"sorting", + Referenced Schema +clientBatchListRequestSorting)]}}) + +data ClientBatchListResponse = ClientBatchListResponse{ClientBatchListResponse -> Enumerated ClientBatchListResponse_Status clientBatchListResponseStatus - :: - HsProtobuf.Enumerated - Data.Sawtooth.ClientBatch.ClientBatchListResponse_Status, - ClientBatchListResponse -> Vector Batch + :: + HsProtobuf.Enumerated + Data.Sawtooth.ClientBatch.ClientBatchListResponse_Status, + ClientBatchListResponse -> Vector Batch clientBatchListResponseBatches :: - Hs.Vector Data.Sawtooth.Batch.Batch, - ClientBatchListResponse -> Text -clientBatchListResponseHeadId :: Hs.Text, - ClientBatchListResponse -> Maybe ClientPagingResponse + Hs.Vector Data.Sawtooth.Batch.Batch, + ClientBatchListResponse -> Text +clientBatchListResponseHeadId :: Hs.Text, + ClientBatchListResponse -> Maybe ClientPagingResponse clientBatchListResponsePaging :: - Hs.Maybe - Data.Sawtooth.ClientListControl.ClientPagingResponse} - deriving (Int -> ClientBatchListResponse -> ShowS + Hs.Maybe + Data.Sawtooth.ClientListControl.ClientPagingResponse} + deriving (Int -> ClientBatchListResponse -> ShowS [ClientBatchListResponse] -> ShowS ClientBatchListResponse -> String (Int -> ClientBatchListResponse -> ShowS) @@ -756,7 +795,7 @@ show :: ClientBatchListResponse -> String $cshow :: ClientBatchListResponse -> String showsPrec :: Int -> ClientBatchListResponse -> ShowS $cshowsPrec :: Int -> ClientBatchListResponse -> ShowS -Hs.Show, ClientBatchListResponse -> ClientBatchListResponse -> Bool +Hs.Show, ClientBatchListResponse -> ClientBatchListResponse -> Bool (ClientBatchListResponse -> ClientBatchListResponse -> Bool) -> (ClientBatchListResponse -> ClientBatchListResponse -> Bool) -> Eq ClientBatchListResponse @@ -765,9 +804,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: ClientBatchListResponse -> ClientBatchListResponse -> Bool == :: ClientBatchListResponse -> ClientBatchListResponse -> Bool $c== :: ClientBatchListResponse -> ClientBatchListResponse -> Bool -Hs.Eq, Eq ClientBatchListResponse -Eq ClientBatchListResponse => -(ClientBatchListResponse -> ClientBatchListResponse -> Ordering) +Hs.Eq, Eq ClientBatchListResponse +Eq ClientBatchListResponse +-> (ClientBatchListResponse -> ClientBatchListResponse -> Ordering) -> (ClientBatchListResponse -> ClientBatchListResponse -> Bool) -> (ClientBatchListResponse -> ClientBatchListResponse -> Bool) -> (ClientBatchListResponse -> ClientBatchListResponse -> Bool) @@ -782,8 +821,8 @@ ClientBatchListResponse -> ClientBatchListResponse -> Ordering ClientBatchListResponse -> ClientBatchListResponse -> ClientBatchListResponse forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -810,7 +849,7 @@ $c< :: ClientBatchListResponse -> ClientBatchListResponse -> Bool compare :: ClientBatchListResponse -> ClientBatchListResponse -> Ordering $ccompare :: ClientBatchListResponse -> ClientBatchListResponse -> Ordering $cp1Ord :: Eq ClientBatchListResponse -Hs.Ord, (forall x. +Hs.Ord, (forall x. ClientBatchListResponse -> Rep ClientBatchListResponse x) -> (forall x. Rep ClientBatchListResponse x -> ClientBatchListResponse) @@ -821,78 +860,84 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep ClientBatchListResponse x -> ClientBatchListResponse $cfrom :: forall x. ClientBatchListResponse -> Rep ClientBatchListResponse x -Hs.Generic, ClientBatchListResponse -> () +Hs.Generic, ClientBatchListResponse -> () (ClientBatchListResponse -> ()) -> NFData ClientBatchListResponse forall a. (a -> ()) -> NFData a rnf :: ClientBatchListResponse -> () $crnf :: ClientBatchListResponse -> () -Hs.NFData) - -instance HsProtobuf.Named ClientBatchListResponse where - nameOf :: Proxy# ClientBatchListResponse -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ClientBatchListResponse where + nameOf :: Proxy# ClientBatchListResponse -> string +nameOf Proxy# ClientBatchListResponse +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ClientBatchListResponse") - -instance HsProtobuf.HasDefault ClientBatchListResponse - -instance HsProtobuf.Message ClientBatchListResponse where - encodeMessage :: FieldNumber -> ClientBatchListResponse -> MessageBuilder -encodeMessage _ - ClientBatchListResponse{clientBatchListResponseStatus :: ClientBatchListResponse +Hs.fromString String +"ClientBatchListResponse") + +instance HsProtobuf.HasDefault ClientBatchListResponse + +instance HsProtobuf.Message ClientBatchListResponse where + encodeMessage :: FieldNumber -> ClientBatchListResponse -> MessageBuilder +encodeMessage FieldNumber +_ + ClientBatchListResponse{clientBatchListResponseStatus :: ClientBatchListResponse -> Enumerated ClientBatchListResponse_Status clientBatchListResponseStatus = - Enumerated ClientBatchListResponse_Status -clientBatchListResponseStatus, - clientBatchListResponseBatches :: ClientBatchListResponse -> Vector Batch -clientBatchListResponseBatches = Vector Batch -clientBatchListResponseBatches, - clientBatchListResponseHeadId :: ClientBatchListResponse -> Text -clientBatchListResponseHeadId = Text -clientBatchListResponseHeadId, - clientBatchListResponsePaging :: ClientBatchListResponse -> Maybe ClientPagingResponse -clientBatchListResponsePaging = Maybe ClientPagingResponse -clientBatchListResponsePaging} - = ([MessageBuilder] -> MessageBuilder + Enumerated ClientBatchListResponse_Status +clientBatchListResponseStatus, + clientBatchListResponseBatches :: ClientBatchListResponse -> Vector Batch +clientBatchListResponseBatches = Vector Batch +clientBatchListResponseBatches, + clientBatchListResponseHeadId :: ClientBatchListResponse -> Text +clientBatchListResponseHeadId = Text +clientBatchListResponseHeadId, + clientBatchListResponsePaging :: ClientBatchListResponse -> Maybe ClientPagingResponse +clientBatchListResponsePaging = Maybe ClientPagingResponse +clientBatchListResponsePaging} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber +Hs.mconcat + [(FieldNumber -> Enumerated ClientBatchListResponse_Status -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Enumerated ClientBatchListResponse_Status -clientBatchListResponseStatus), - (FieldNumber -> NestedVec Batch -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Enumerated ClientBatchListResponse_Status +clientBatchListResponseStatus), + (FieldNumber -> NestedVec Batch -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (Vector Batch -> NestedVec Batch -forall a b. Coercible a b => a -> b -Hs.coerce @(Hs.Vector Data.Sawtooth.Batch.Batch) - @(HsProtobuf.NestedVec Data.Sawtooth.Batch.Batch) - Vector Batch -clientBatchListResponseBatches)), - (FieldNumber -> Text -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (Vector Batch -> NestedVec Batch +Hs.coerce @(Hs.Vector Data.Sawtooth.Batch.Batch) + @(HsProtobuf.NestedVec Data.Sawtooth.Batch.Batch) + Vector Batch +clientBatchListResponseBatches)), + (FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - Text -clientBatchListResponseHeadId), - (FieldNumber -> Nested ClientPagingResponse -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + Text +clientBatchListResponseHeadId), + (FieldNumber -> Nested ClientPagingResponse -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 4) - (Maybe ClientPagingResponse -> Nested ClientPagingResponse -forall a b. Coercible a b => a -> b -Hs.coerce - @(Hs.Maybe Data.Sawtooth.ClientListControl.ClientPagingResponse) - @(HsProtobuf.Nested Data.Sawtooth.ClientListControl.ClientPagingResponse) - Maybe ClientPagingResponse -clientBatchListResponsePaging))]) - decodeMessage :: FieldNumber -> Parser RawMessage ClientBatchListResponse -decodeMessage _ - = ((Enumerated ClientBatchListResponse_Status +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +4) + (Maybe ClientPagingResponse -> Nested ClientPagingResponse +Hs.coerce + @(Hs.Maybe Data.Sawtooth.ClientListControl.ClientPagingResponse) + @(HsProtobuf.Nested Data.Sawtooth.ClientListControl.ClientPagingResponse) + Maybe ClientPagingResponse +clientBatchListResponsePaging))]) + decodeMessage :: FieldNumber -> Parser RawMessage ClientBatchListResponse +decodeMessage FieldNumber +_ + = ((Enumerated ClientBatchListResponse_Status -> Vector Batch -> Text -> Maybe ClientPagingResponse @@ -905,7 +950,7 @@ forall a b. Coercible a b => a -> b -> Maybe ClientPagingResponse -> ClientBatchListResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ClientBatchListResponse_Status +Hs.pure Enumerated ClientBatchListResponse_Status -> Vector Batch -> Text -> Maybe ClientPagingResponse @@ -923,17 +968,18 @@ forall (f :: * -> *) a. Applicative f => a -> f a (Vector Batch -> Text -> Maybe ClientPagingResponse -> ClientBatchListResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField (Enumerated ClientBatchListResponse_Status) +<*> + (Parser RawField (Enumerated ClientBatchListResponse_Status) -> FieldNumber -> Parser RawMessage (Enumerated ClientBatchListResponse_Status) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (Enumerated ClientBatchListResponse_Status) +HsProtobuf.at Parser RawField (Enumerated ClientBatchListResponse_Status) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (Vector Batch -> Text -> Maybe ClientPagingResponse -> ClientBatchListResponse) @@ -942,197 +988,223 @@ forall a. MessageField a => Parser RawField a RawMessage (Text -> Maybe ClientPagingResponse -> ClientBatchListResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (NestedVec Batch) +<*> + (Parser RawMessage (NestedVec Batch) -> Parser RawMessage (Vector Batch) -forall a b. Coercible a b => a -> b -Hs.coerce @(_ (HsProtobuf.NestedVec Data.Sawtooth.Batch.Batch)) - @(_ (Hs.Vector Data.Sawtooth.Batch.Batch)) - (Parser RawField (NestedVec Batch) +Hs.coerce @(_ (HsProtobuf.NestedVec Data.Sawtooth.Batch.Batch)) + @(_ (Hs.Vector Data.Sawtooth.Batch.Batch)) + (Parser RawField (NestedVec Batch) -> FieldNumber -> Parser RawMessage (NestedVec Batch) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (NestedVec Batch) +HsProtobuf.at Parser RawField (NestedVec Batch) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2))) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2))) + Parser RawMessage (Text -> Maybe ClientPagingResponse -> ClientBatchListResponse) -> Parser RawMessage Text -> Parser RawMessage (Maybe ClientPagingResponse -> ClientBatchListResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3)) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3)) + Parser RawMessage (Maybe ClientPagingResponse -> ClientBatchListResponse) -> Parser RawMessage (Maybe ClientPagingResponse) -> Parser RawMessage ClientBatchListResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (Nested ClientPagingResponse) +<*> + (Parser RawMessage (Nested ClientPagingResponse) -> Parser RawMessage (Maybe ClientPagingResponse) -forall a b. Coercible a b => a -> b -Hs.coerce - @(_ (HsProtobuf.Nested Data.Sawtooth.ClientListControl.ClientPagingResponse)) - @(_ (Hs.Maybe Data.Sawtooth.ClientListControl.ClientPagingResponse)) - (Parser RawField (Nested ClientPagingResponse) +Hs.coerce + @(_ (HsProtobuf.Nested Data.Sawtooth.ClientListControl.ClientPagingResponse)) + @(_ (Hs.Maybe Data.Sawtooth.ClientListControl.ClientPagingResponse)) + (Parser RawField (Nested ClientPagingResponse) -> FieldNumber -> Parser RawMessage (Nested ClientPagingResponse) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (Nested ClientPagingResponse) +HsProtobuf.at Parser RawField (Nested ClientPagingResponse) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 4))) - dotProto :: Proxy# ClientBatchListResponse -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +4))) + dotProto :: Proxy# ClientBatchListResponse -> [DotProtoField] +dotProto Proxy# ClientBatchListResponse +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "Status"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "status") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"Status"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"status") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Repeated - (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "Batch"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "batches") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Repeated + (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"Batch"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"batches") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "head_id") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"head_id") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 4) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim - (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "ClientPagingResponse"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "paging") - [] - "")] - -instance HsJSONPB.ToJSONPB ClientBatchListResponse where - toJSONPB :: ClientBatchListResponse -> Options -> Value -toJSONPB (ClientBatchListResponse f1 :: Enumerated ClientBatchListResponse_Status -f1 f2 :: Vector Batch -f2 f3 :: Text -f3 f4 :: Maybe ClientPagingResponse -f4) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object - ["status" Text +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +4) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim + (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"ClientPagingResponse"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"paging") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ClientBatchListResponse where + toJSONPB :: ClientBatchListResponse -> Options -> Value +toJSONPB (ClientBatchListResponse Enumerated ClientBatchListResponse_Status +f1 Vector Batch +f2 Text +f3 Maybe ClientPagingResponse +f4) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object + [Text +"status" Text -> Enumerated ClientBatchListResponse_Status -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated ClientBatchListResponse_Status -f1, "batches" Text -> Vector Batch -> Options -> [Pair] +.= Enumerated ClientBatchListResponse_Status +f1, Text +"batches" Text -> Vector Batch -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Batch -f2, "head_id" Text -> Text -> Options -> [Pair] +.= Vector Batch +f2, Text +"head_id" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f3, "paging" Text -> Maybe ClientPagingResponse -> Options -> [Pair] +.= Text +f3, Text +"paging" Text -> Maybe ClientPagingResponse -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Maybe ClientPagingResponse -f4]) - toEncodingPB :: ClientBatchListResponse -> Options -> Encoding -toEncodingPB (ClientBatchListResponse f1 :: Enumerated ClientBatchListResponse_Status -f1 f2 :: Vector Batch -f2 f3 :: Text -f3 f4 :: Maybe ClientPagingResponse -f4) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs - ["status" Text +.= Maybe ClientPagingResponse +f4]) + toEncodingPB :: ClientBatchListResponse -> Options -> Encoding +toEncodingPB (ClientBatchListResponse Enumerated ClientBatchListResponse_Status +f1 Vector Batch +f2 Text +f3 Maybe ClientPagingResponse +f4) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs + [Text +"status" Text -> Enumerated ClientBatchListResponse_Status -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated ClientBatchListResponse_Status -f1, "batches" Text -> Vector Batch -> Options -> Series +.= Enumerated ClientBatchListResponse_Status +f1, Text +"batches" Text -> Vector Batch -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Batch -f2, "head_id" Text -> Text -> Options -> Series +.= Vector Batch +f2, Text +"head_id" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f3, "paging" Text -> Maybe ClientPagingResponse -> Options -> Series +.= Text +f3, Text +"paging" Text -> Maybe ClientPagingResponse -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Maybe ClientPagingResponse -f4]) - -instance HsJSONPB.FromJSONPB ClientBatchListResponse where - parseJSONPB :: Value -> Parser ClientBatchListResponse -parseJSONPB - = (String +.= Maybe ClientPagingResponse +f4]) + +instance HsJSONPB.FromJSONPB ClientBatchListResponse where + parseJSONPB :: Value -> Parser ClientBatchListResponse +parseJSONPB + = (String -> (Object -> Parser ClientBatchListResponse) -> Value -> Parser ClientBatchListResponse forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ClientBatchListResponse" - (\ obj :: Object -obj -> - ((Enumerated ClientBatchListResponse_Status +HsJSONPB.withObject String +"ClientBatchListResponse" + (\ Object +obj -> + ((Enumerated ClientBatchListResponse_Status -> Vector Batch -> Text -> Maybe ClientPagingResponse @@ -1144,7 +1216,7 @@ forall a. String -> (Object -> Parser a) -> Value -> Parser a -> Maybe ClientPagingResponse -> ClientBatchListResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ClientBatchListResponse_Status +Hs.pure Enumerated ClientBatchListResponse_Status -> Vector Batch -> Text -> Maybe ClientPagingResponse @@ -1160,129 +1232,134 @@ forall (f :: * -> *) a. Applicative f => a -> f a (Vector Batch -> Text -> Maybe ClientPagingResponse -> ClientBatchListResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object +<*> Object +obj Object -> Text -> Parser (Enumerated ClientBatchListResponse_Status) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "status" Parser +.: Text +"status" Parser (Vector Batch -> Text -> Maybe ClientPagingResponse -> ClientBatchListResponse) -> Parser (Vector Batch) -> Parser (Text -> Maybe ClientPagingResponse -> ClientBatchListResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser (Vector Batch) +<*> + Object +obj Object -> Text -> Parser (Vector Batch) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "batches" - Parser +.: Text +"batches" + Parser (Text -> Maybe ClientPagingResponse -> ClientBatchListResponse) -> Parser Text -> Parser (Maybe ClientPagingResponse -> ClientBatchListResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Text +<*> Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "head_id" - Parser (Maybe ClientPagingResponse -> ClientBatchListResponse) +.: Text +"head_id" + Parser (Maybe ClientPagingResponse -> ClientBatchListResponse) -> Parser (Maybe ClientPagingResponse) -> Parser ClientBatchListResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser (Maybe ClientPagingResponse) +<*> Object +obj Object -> Text -> Parser (Maybe ClientPagingResponse) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "paging")) - -instance HsJSONPB.ToJSON ClientBatchListResponse where - toJSON :: ClientBatchListResponse -> Value -toJSON = ClientBatchListResponse -> Value +.: Text +"paging")) + +instance HsJSONPB.ToJSON ClientBatchListResponse where + toJSON :: ClientBatchListResponse -> Value +toJSON = ClientBatchListResponse -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ClientBatchListResponse -> Encoding -toEncoding = ClientBatchListResponse -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ClientBatchListResponse -> Encoding +toEncoding = ClientBatchListResponse -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ClientBatchListResponse where - parseJSON :: Value -> Parser ClientBatchListResponse -parseJSON = Value -> Parser ClientBatchListResponse +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ClientBatchListResponse where + parseJSON :: Value -> Parser ClientBatchListResponse +parseJSON = Value -> Parser ClientBatchListResponse forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ClientBatchListResponse where - declareNamedSchema :: Proxy ClientBatchListResponse +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ClientBatchListResponse where + declareNamedSchema :: Proxy ClientBatchListResponse -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_status :: Proxy +declareNamedSchema Proxy ClientBatchListResponse +_ + = do let declare_status :: Proxy (OverrideToSchema (Enumerated ClientBatchListResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status = Proxy +declare_status = Proxy (OverrideToSchema (Enumerated ClientBatchListResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientBatchListResponseStatus <- Proxy +HsJSONPB.declareSchemaRef + Referenced Schema +clientBatchListResponseStatus <- Proxy (OverrideToSchema (Enumerated ClientBatchListResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status Proxy +declare_status Proxy (OverrideToSchema (Enumerated ClientBatchListResponse_Status)) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_batches :: Proxy (OverrideToSchema (Vector Batch)) +Proxy.Proxy + let declare_batches :: Proxy (OverrideToSchema (Vector Batch)) -> Declare (Definitions Schema) (Referenced Schema) -declare_batches = Proxy (OverrideToSchema (Vector Batch)) +declare_batches = Proxy (OverrideToSchema (Vector Batch)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientBatchListResponseBatches <- Proxy (OverrideToSchema (Vector Batch)) +HsJSONPB.declareSchemaRef + Referenced Schema +clientBatchListResponseBatches <- Proxy (OverrideToSchema (Vector Batch)) -> Declare (Definitions Schema) (Referenced Schema) -declare_batches Proxy (OverrideToSchema (Vector Batch)) +declare_batches Proxy (OverrideToSchema (Vector Batch)) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_head_id :: Proxy (OverrideToSchema Text) +Proxy.Proxy + let declare_head_id :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_head_id = Proxy (OverrideToSchema Text) +declare_head_id = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientBatchListResponseHeadId <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +clientBatchListResponseHeadId <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_head_id Proxy (OverrideToSchema Text) +declare_head_id Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_paging :: Proxy (OverrideToSchema (Maybe ClientPagingResponse)) +Proxy.Proxy + let declare_paging :: Proxy (OverrideToSchema (Maybe ClientPagingResponse)) -> Declare (Definitions Schema) (Referenced Schema) -declare_paging = Proxy (OverrideToSchema (Maybe ClientPagingResponse)) +declare_paging = Proxy (OverrideToSchema (Maybe ClientPagingResponse)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientBatchListResponsePaging <- Proxy (OverrideToSchema (Maybe ClientPagingResponse)) +HsJSONPB.declareSchemaRef + Referenced Schema +clientBatchListResponsePaging <- Proxy (OverrideToSchema (Maybe ClientPagingResponse)) -> Declare (Definitions Schema) (Referenced Schema) -declare_paging Proxy (OverrideToSchema (Maybe ClientPagingResponse)) +declare_paging Proxy (OverrideToSchema (Maybe ClientPagingResponse)) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ClientBatchListResponse +Proxy.Proxy + let Proxy ClientBatchListResponse _ = (Enumerated ClientBatchListResponse_Status -> Vector Batch -> Text @@ -1295,7 +1372,7 @@ forall k (t :: k). Proxy t -> Maybe ClientPagingResponse -> ClientBatchListResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ClientBatchListResponse_Status +Hs.pure Enumerated ClientBatchListResponse_Status -> Vector Batch -> Text -> Maybe ClientPagingResponse @@ -1311,103 +1388,108 @@ forall (f :: * -> *) a. Applicative f => a -> f a (Vector Batch -> Text -> Maybe ClientPagingResponse -> ClientBatchListResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy +<*> + (Proxy (OverrideToSchema (Enumerated ClientBatchListResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Enumerated ClientBatchListResponse_Status) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy +HsJSONPB.asProxy Proxy (OverrideToSchema (Enumerated ClientBatchListResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status - Proxy +declare_status + Proxy (Vector Batch -> Text -> Maybe ClientPagingResponse -> ClientBatchListResponse) -> Proxy (Vector Batch) -> Proxy (Text -> Maybe ClientPagingResponse -> ClientBatchListResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema (Vector Batch)) +<*> (Proxy (OverrideToSchema (Vector Batch)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Vector Batch) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Batch)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Batch)) -> Declare (Definitions Schema) (Referenced Schema) -declare_batches - Proxy +declare_batches + Proxy (Text -> Maybe ClientPagingResponse -> ClientBatchListResponse) -> Proxy Text -> Proxy (Maybe ClientPagingResponse -> ClientBatchListResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema Text) +<*> (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_head_id - Proxy (Maybe ClientPagingResponse -> ClientBatchListResponse) +declare_head_id + Proxy (Maybe ClientPagingResponse -> ClientBatchListResponse) -> Proxy (Maybe ClientPagingResponse) -> Proxy ClientBatchListResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema (Maybe ClientPagingResponse)) +<*> (Proxy (OverrideToSchema (Maybe ClientPagingResponse)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Maybe ClientPagingResponse) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Maybe ClientPagingResponse)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Maybe ClientPagingResponse)) -> Declare (Definitions Schema) (Referenced Schema) -declare_paging - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_paging + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ClientBatchListResponse", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ClientBatchListResponse", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("status", Referenced Schema -clientBatchListResponseStatus), - ("batches", Referenced Schema -clientBatchListResponseBatches), - ("head_id", Referenced Schema -clientBatchListResponseHeadId), - ("paging", - Referenced Schema -clientBatchListResponsePaging)]}}) - -data ClientBatchListResponse_Status = ClientBatchListResponse_StatusSTATUS_UNSET - | ClientBatchListResponse_StatusOK - | ClientBatchListResponse_StatusINTERNAL_ERROR - | ClientBatchListResponse_StatusNOT_READY - | ClientBatchListResponse_StatusNO_ROOT - | ClientBatchListResponse_StatusNO_RESOURCE - | ClientBatchListResponse_StatusINVALID_PAGING - | ClientBatchListResponse_StatusINVALID_SORT - | ClientBatchListResponse_StatusINVALID_ID - deriving (Int -> ClientBatchListResponse_Status -> ShowS +HsJSONPB.insOrdFromList + [(Text +"status", Referenced Schema +clientBatchListResponseStatus), + (Text +"batches", Referenced Schema +clientBatchListResponseBatches), + (Text +"head_id", Referenced Schema +clientBatchListResponseHeadId), + (Text +"paging", + Referenced Schema +clientBatchListResponsePaging)]}}) + +data ClientBatchListResponse_Status = ClientBatchListResponse_StatusSTATUS_UNSET + | ClientBatchListResponse_StatusOK + | ClientBatchListResponse_StatusINTERNAL_ERROR + | ClientBatchListResponse_StatusNOT_READY + | ClientBatchListResponse_StatusNO_ROOT + | ClientBatchListResponse_StatusNO_RESOURCE + | ClientBatchListResponse_StatusINVALID_PAGING + | ClientBatchListResponse_StatusINVALID_SORT + | ClientBatchListResponse_StatusINVALID_ID + deriving (Int -> ClientBatchListResponse_Status -> ShowS [ClientBatchListResponse_Status] -> ShowS ClientBatchListResponse_Status -> String (Int -> ClientBatchListResponse_Status -> ShowS) @@ -1422,7 +1504,7 @@ show :: ClientBatchListResponse_Status -> String $cshow :: ClientBatchListResponse_Status -> String showsPrec :: Int -> ClientBatchListResponse_Status -> ShowS $cshowsPrec :: Int -> ClientBatchListResponse_Status -> ShowS -Hs.Show, ClientBatchListResponse_Status +Hs.Show, ClientBatchListResponse_Status -> ClientBatchListResponse_Status -> Bool (ClientBatchListResponse_Status -> ClientBatchListResponse_Status -> Bool) @@ -1438,7 +1520,7 @@ $c/= :: ClientBatchListResponse_Status -> ClientBatchListResponse_Status -> Bool $c== :: ClientBatchListResponse_Status -> ClientBatchListResponse_Status -> Bool -Hs.Eq, (forall x. +Hs.Eq, (forall x. ClientBatchListResponse_Status -> Rep ClientBatchListResponse_Status x) -> (forall x. @@ -1459,221 +1541,254 @@ Rep ClientBatchListResponse_Status x $cfrom :: forall x. ClientBatchListResponse_Status -> Rep ClientBatchListResponse_Status x -Hs.Generic, ClientBatchListResponse_Status -> () +Hs.Generic, ClientBatchListResponse_Status -> () (ClientBatchListResponse_Status -> ()) -> NFData ClientBatchListResponse_Status forall a. (a -> ()) -> NFData a rnf :: ClientBatchListResponse_Status -> () $crnf :: ClientBatchListResponse_Status -> () -Hs.NFData) - -instance HsProtobuf.Named ClientBatchListResponse_Status where - nameOf :: Proxy# ClientBatchListResponse_Status -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ClientBatchListResponse_Status where + nameOf :: Proxy# ClientBatchListResponse_Status -> string +nameOf Proxy# ClientBatchListResponse_Status +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ClientBatchListResponse_Status") - -instance HsProtobuf.HasDefault ClientBatchListResponse_Status - -instance Hs.Bounded ClientBatchListResponse_Status where - minBound :: ClientBatchListResponse_Status -minBound = ClientBatchListResponse_Status +Hs.fromString String +"ClientBatchListResponse_Status") + +instance HsProtobuf.HasDefault ClientBatchListResponse_Status + +instance Hs.Bounded ClientBatchListResponse_Status where + minBound :: ClientBatchListResponse_Status +minBound = ClientBatchListResponse_Status ClientBatchListResponse_StatusSTATUS_UNSET - maxBound :: ClientBatchListResponse_Status -maxBound = ClientBatchListResponse_Status + maxBound :: ClientBatchListResponse_Status +maxBound = ClientBatchListResponse_Status ClientBatchListResponse_StatusINVALID_ID - -instance Hs.Ord ClientBatchListResponse_Status where - compare :: ClientBatchListResponse_Status + +instance Hs.Ord ClientBatchListResponse_Status where + compare :: ClientBatchListResponse_Status -> ClientBatchListResponse_Status -> Ordering -compare x :: ClientBatchListResponse_Status -x y :: ClientBatchListResponse_Status -y - = Int32 -> Int32 -> Ordering +compare ClientBatchListResponse_Status +x ClientBatchListResponse_Status +y + = Int32 -> Int32 -> Ordering forall a. Ord a => a -> a -> Ordering -Hs.compare (ClientBatchListResponse_Status -> Int32 +Hs.compare (ClientBatchListResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum ClientBatchListResponse_Status -x) - (ClientBatchListResponse_Status -> Int32 +HsProtobuf.fromProtoEnum ClientBatchListResponse_Status +x) + (ClientBatchListResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum ClientBatchListResponse_Status -y) - -instance HsProtobuf.ProtoEnum ClientBatchListResponse_Status where - toProtoEnumMay :: Int32 -> Maybe ClientBatchListResponse_Status -toProtoEnumMay 0 - = ClientBatchListResponse_Status +HsProtobuf.fromProtoEnum ClientBatchListResponse_Status +y) + +instance HsProtobuf.ProtoEnum ClientBatchListResponse_Status where + toProtoEnumMay :: Int32 -> Maybe ClientBatchListResponse_Status +toProtoEnumMay Int32 +0 + = ClientBatchListResponse_Status -> Maybe ClientBatchListResponse_Status forall a. a -> Maybe a -Hs.Just ClientBatchListResponse_Status +Hs.Just ClientBatchListResponse_Status ClientBatchListResponse_StatusSTATUS_UNSET - toProtoEnumMay 1 = ClientBatchListResponse_Status + toProtoEnumMay Int32 +1 = ClientBatchListResponse_Status -> Maybe ClientBatchListResponse_Status forall a. a -> Maybe a -Hs.Just ClientBatchListResponse_Status +Hs.Just ClientBatchListResponse_Status ClientBatchListResponse_StatusOK - toProtoEnumMay 2 - = ClientBatchListResponse_Status + toProtoEnumMay Int32 +2 + = ClientBatchListResponse_Status -> Maybe ClientBatchListResponse_Status forall a. a -> Maybe a -Hs.Just ClientBatchListResponse_Status +Hs.Just ClientBatchListResponse_Status ClientBatchListResponse_StatusINTERNAL_ERROR - toProtoEnumMay 3 = ClientBatchListResponse_Status + toProtoEnumMay Int32 +3 = ClientBatchListResponse_Status -> Maybe ClientBatchListResponse_Status forall a. a -> Maybe a -Hs.Just ClientBatchListResponse_Status +Hs.Just ClientBatchListResponse_Status ClientBatchListResponse_StatusNOT_READY - toProtoEnumMay 4 = ClientBatchListResponse_Status + toProtoEnumMay Int32 +4 = ClientBatchListResponse_Status -> Maybe ClientBatchListResponse_Status forall a. a -> Maybe a -Hs.Just ClientBatchListResponse_Status +Hs.Just ClientBatchListResponse_Status ClientBatchListResponse_StatusNO_ROOT - toProtoEnumMay 5 - = ClientBatchListResponse_Status + toProtoEnumMay Int32 +5 + = ClientBatchListResponse_Status -> Maybe ClientBatchListResponse_Status forall a. a -> Maybe a -Hs.Just ClientBatchListResponse_Status +Hs.Just ClientBatchListResponse_Status ClientBatchListResponse_StatusNO_RESOURCE - toProtoEnumMay 6 - = ClientBatchListResponse_Status + toProtoEnumMay Int32 +6 + = ClientBatchListResponse_Status -> Maybe ClientBatchListResponse_Status forall a. a -> Maybe a -Hs.Just ClientBatchListResponse_Status +Hs.Just ClientBatchListResponse_Status ClientBatchListResponse_StatusINVALID_PAGING - toProtoEnumMay 7 - = ClientBatchListResponse_Status + toProtoEnumMay Int32 +7 + = ClientBatchListResponse_Status -> Maybe ClientBatchListResponse_Status forall a. a -> Maybe a -Hs.Just ClientBatchListResponse_Status +Hs.Just ClientBatchListResponse_Status ClientBatchListResponse_StatusINVALID_SORT - toProtoEnumMay 8 = ClientBatchListResponse_Status + toProtoEnumMay Int32 +8 = ClientBatchListResponse_Status -> Maybe ClientBatchListResponse_Status forall a. a -> Maybe a -Hs.Just ClientBatchListResponse_Status +Hs.Just ClientBatchListResponse_Status ClientBatchListResponse_StatusINVALID_ID - toProtoEnumMay _ = Maybe ClientBatchListResponse_Status + toProtoEnumMay Int32 +_ = Maybe ClientBatchListResponse_Status forall a. Maybe a -Hs.Nothing - fromProtoEnum :: ClientBatchListResponse_Status -> Int32 -fromProtoEnum (ClientBatchListResponse_Status -ClientBatchListResponse_StatusSTATUS_UNSET) = 0 - fromProtoEnum (ClientBatchListResponse_Status -ClientBatchListResponse_StatusOK) = 1 - fromProtoEnum (ClientBatchListResponse_Status -ClientBatchListResponse_StatusINTERNAL_ERROR) = 2 - fromProtoEnum (ClientBatchListResponse_Status -ClientBatchListResponse_StatusNOT_READY) = 3 - fromProtoEnum (ClientBatchListResponse_Status -ClientBatchListResponse_StatusNO_ROOT) = 4 - fromProtoEnum (ClientBatchListResponse_Status -ClientBatchListResponse_StatusNO_RESOURCE) = 5 - fromProtoEnum (ClientBatchListResponse_Status -ClientBatchListResponse_StatusINVALID_PAGING) = 6 - fromProtoEnum (ClientBatchListResponse_Status -ClientBatchListResponse_StatusINVALID_SORT) = 7 - fromProtoEnum (ClientBatchListResponse_Status -ClientBatchListResponse_StatusINVALID_ID) = 8 - -instance HsJSONPB.ToJSONPB ClientBatchListResponse_Status where - toJSONPB :: ClientBatchListResponse_Status -> Options -> Value -toJSONPB x :: ClientBatchListResponse_Status -x _ = ClientBatchListResponse_Status -> Value +Hs.Nothing + fromProtoEnum :: ClientBatchListResponse_Status -> Int32 +fromProtoEnum (ClientBatchListResponse_Status +ClientBatchListResponse_StatusSTATUS_UNSET) = Int32 +0 + fromProtoEnum (ClientBatchListResponse_Status +ClientBatchListResponse_StatusOK) = Int32 +1 + fromProtoEnum (ClientBatchListResponse_Status +ClientBatchListResponse_StatusINTERNAL_ERROR) = Int32 +2 + fromProtoEnum (ClientBatchListResponse_Status +ClientBatchListResponse_StatusNOT_READY) = Int32 +3 + fromProtoEnum (ClientBatchListResponse_Status +ClientBatchListResponse_StatusNO_ROOT) = Int32 +4 + fromProtoEnum (ClientBatchListResponse_Status +ClientBatchListResponse_StatusNO_RESOURCE) = Int32 +5 + fromProtoEnum (ClientBatchListResponse_Status +ClientBatchListResponse_StatusINVALID_PAGING) = Int32 +6 + fromProtoEnum (ClientBatchListResponse_Status +ClientBatchListResponse_StatusINVALID_SORT) = Int32 +7 + fromProtoEnum (ClientBatchListResponse_Status +ClientBatchListResponse_StatusINVALID_ID) = Int32 +8 + +instance HsJSONPB.ToJSONPB ClientBatchListResponse_Status where + toJSONPB :: ClientBatchListResponse_Status -> Options -> Value +toJSONPB ClientBatchListResponse_Status +x Options +_ = ClientBatchListResponse_Status -> Value forall a. (Named a, Show a) => a -> Value -HsJSONPB.enumFieldString ClientBatchListResponse_Status -x - toEncodingPB :: ClientBatchListResponse_Status -> Options -> Encoding -toEncodingPB x :: ClientBatchListResponse_Status -x _ = ClientBatchListResponse_Status -> Encoding +HsJSONPB.enumFieldString ClientBatchListResponse_Status +x + toEncodingPB :: ClientBatchListResponse_Status -> Options -> Encoding +toEncodingPB ClientBatchListResponse_Status +x Options +_ = ClientBatchListResponse_Status -> Encoding forall a. (Named a, Show a) => a -> Encoding -HsJSONPB.enumFieldEncoding ClientBatchListResponse_Status -x - -instance HsJSONPB.FromJSONPB ClientBatchListResponse_Status where - parseJSONPB :: Value -> Parser ClientBatchListResponse_Status -parseJSONPB (HsJSONPB.String "STATUS_UNSET") - = ClientBatchListResponse_Status +HsJSONPB.enumFieldEncoding ClientBatchListResponse_Status +x + +instance HsJSONPB.FromJSONPB ClientBatchListResponse_Status where + parseJSONPB :: Value -> Parser ClientBatchListResponse_Status +parseJSONPB (HsJSONPB.String Text +"STATUS_UNSET") + = ClientBatchListResponse_Status -> Parser ClientBatchListResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientBatchListResponse_Status +Hs.pure ClientBatchListResponse_Status ClientBatchListResponse_StatusSTATUS_UNSET - parseJSONPB (HsJSONPB.String "OK") - = ClientBatchListResponse_Status + parseJSONPB (HsJSONPB.String Text +"OK") + = ClientBatchListResponse_Status -> Parser ClientBatchListResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientBatchListResponse_Status +Hs.pure ClientBatchListResponse_Status ClientBatchListResponse_StatusOK - parseJSONPB (HsJSONPB.String "INTERNAL_ERROR") - = ClientBatchListResponse_Status + parseJSONPB (HsJSONPB.String Text +"INTERNAL_ERROR") + = ClientBatchListResponse_Status -> Parser ClientBatchListResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientBatchListResponse_Status +Hs.pure ClientBatchListResponse_Status ClientBatchListResponse_StatusINTERNAL_ERROR - parseJSONPB (HsJSONPB.String "NOT_READY") - = ClientBatchListResponse_Status + parseJSONPB (HsJSONPB.String Text +"NOT_READY") + = ClientBatchListResponse_Status -> Parser ClientBatchListResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientBatchListResponse_Status +Hs.pure ClientBatchListResponse_Status ClientBatchListResponse_StatusNOT_READY - parseJSONPB (HsJSONPB.String "NO_ROOT") - = ClientBatchListResponse_Status + parseJSONPB (HsJSONPB.String Text +"NO_ROOT") + = ClientBatchListResponse_Status -> Parser ClientBatchListResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientBatchListResponse_Status +Hs.pure ClientBatchListResponse_Status ClientBatchListResponse_StatusNO_ROOT - parseJSONPB (HsJSONPB.String "NO_RESOURCE") - = ClientBatchListResponse_Status + parseJSONPB (HsJSONPB.String Text +"NO_RESOURCE") + = ClientBatchListResponse_Status -> Parser ClientBatchListResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientBatchListResponse_Status +Hs.pure ClientBatchListResponse_Status ClientBatchListResponse_StatusNO_RESOURCE - parseJSONPB (HsJSONPB.String "INVALID_PAGING") - = ClientBatchListResponse_Status + parseJSONPB (HsJSONPB.String Text +"INVALID_PAGING") + = ClientBatchListResponse_Status -> Parser ClientBatchListResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientBatchListResponse_Status +Hs.pure ClientBatchListResponse_Status ClientBatchListResponse_StatusINVALID_PAGING - parseJSONPB (HsJSONPB.String "INVALID_SORT") - = ClientBatchListResponse_Status + parseJSONPB (HsJSONPB.String Text +"INVALID_SORT") + = ClientBatchListResponse_Status -> Parser ClientBatchListResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientBatchListResponse_Status +Hs.pure ClientBatchListResponse_Status ClientBatchListResponse_StatusINVALID_SORT - parseJSONPB (HsJSONPB.String "INVALID_ID") - = ClientBatchListResponse_Status + parseJSONPB (HsJSONPB.String Text +"INVALID_ID") + = ClientBatchListResponse_Status -> Parser ClientBatchListResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientBatchListResponse_Status +Hs.pure ClientBatchListResponse_Status ClientBatchListResponse_StatusINVALID_ID - parseJSONPB v :: Value -v - = (String -> Value -> Parser ClientBatchListResponse_Status + parseJSONPB Value +v + = (String -> Value -> Parser ClientBatchListResponse_Status forall a. String -> Value -> Parser a -HsJSONPB.typeMismatch "ClientBatchListResponse_Status" Value -v) - -instance HsJSONPB.ToJSON ClientBatchListResponse_Status where - toJSON :: ClientBatchListResponse_Status -> Value -toJSON = ClientBatchListResponse_Status -> Value +HsJSONPB.typeMismatch String +"ClientBatchListResponse_Status" Value +v) + +instance HsJSONPB.ToJSON ClientBatchListResponse_Status where + toJSON :: ClientBatchListResponse_Status -> Value +toJSON = ClientBatchListResponse_Status -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ClientBatchListResponse_Status -> Encoding -toEncoding = ClientBatchListResponse_Status -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ClientBatchListResponse_Status -> Encoding +toEncoding = ClientBatchListResponse_Status -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ClientBatchListResponse_Status where - parseJSON :: Value -> Parser ClientBatchListResponse_Status -parseJSON = Value -> Parser ClientBatchListResponse_Status +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ClientBatchListResponse_Status where + parseJSON :: Value -> Parser ClientBatchListResponse_Status +parseJSON = Value -> Parser ClientBatchListResponse_Status forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsProtobuf.Finite ClientBatchListResponse_Status - -newtype ClientBatchGetRequest = ClientBatchGetRequest{ClientBatchGetRequest -> Text +HsJSONPB.parseJSONPB + +instance HsProtobuf.Finite ClientBatchListResponse_Status + +newtype ClientBatchGetRequest = ClientBatchGetRequest{ClientBatchGetRequest -> Text clientBatchGetRequestBatchId - :: Hs.Text} - deriving (Int -> ClientBatchGetRequest -> ShowS + :: Hs.Text} + deriving (Int -> ClientBatchGetRequest -> ShowS [ClientBatchGetRequest] -> ShowS ClientBatchGetRequest -> String (Int -> ClientBatchGetRequest -> ShowS) @@ -1688,7 +1803,7 @@ show :: ClientBatchGetRequest -> String $cshow :: ClientBatchGetRequest -> String showsPrec :: Int -> ClientBatchGetRequest -> ShowS $cshowsPrec :: Int -> ClientBatchGetRequest -> ShowS -Hs.Show, ClientBatchGetRequest -> ClientBatchGetRequest -> Bool +Hs.Show, ClientBatchGetRequest -> ClientBatchGetRequest -> Bool (ClientBatchGetRequest -> ClientBatchGetRequest -> Bool) -> (ClientBatchGetRequest -> ClientBatchGetRequest -> Bool) -> Eq ClientBatchGetRequest @@ -1697,9 +1812,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: ClientBatchGetRequest -> ClientBatchGetRequest -> Bool == :: ClientBatchGetRequest -> ClientBatchGetRequest -> Bool $c== :: ClientBatchGetRequest -> ClientBatchGetRequest -> Bool -Hs.Eq, Eq ClientBatchGetRequest -Eq ClientBatchGetRequest => -(ClientBatchGetRequest -> ClientBatchGetRequest -> Ordering) +Hs.Eq, Eq ClientBatchGetRequest +Eq ClientBatchGetRequest +-> (ClientBatchGetRequest -> ClientBatchGetRequest -> Ordering) -> (ClientBatchGetRequest -> ClientBatchGetRequest -> Bool) -> (ClientBatchGetRequest -> ClientBatchGetRequest -> Bool) -> (ClientBatchGetRequest -> ClientBatchGetRequest -> Bool) @@ -1714,8 +1829,8 @@ ClientBatchGetRequest -> ClientBatchGetRequest -> Ordering ClientBatchGetRequest -> ClientBatchGetRequest -> ClientBatchGetRequest forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -1742,7 +1857,7 @@ $c< :: ClientBatchGetRequest -> ClientBatchGetRequest -> Bool compare :: ClientBatchGetRequest -> ClientBatchGetRequest -> Ordering $ccompare :: ClientBatchGetRequest -> ClientBatchGetRequest -> Ordering $cp1Ord :: Eq ClientBatchGetRequest -Hs.Ord, (forall x. ClientBatchGetRequest -> Rep ClientBatchGetRequest x) +Hs.Ord, (forall x. ClientBatchGetRequest -> Rep ClientBatchGetRequest x) -> (forall x. Rep ClientBatchGetRequest x -> ClientBatchGetRequest) -> Generic ClientBatchGetRequest forall x. Rep ClientBatchGetRequest x -> ClientBatchGetRequest @@ -1751,212 +1866,229 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep ClientBatchGetRequest x -> ClientBatchGetRequest $cfrom :: forall x. ClientBatchGetRequest -> Rep ClientBatchGetRequest x -Hs.Generic, ClientBatchGetRequest -> () +Hs.Generic, ClientBatchGetRequest -> () (ClientBatchGetRequest -> ()) -> NFData ClientBatchGetRequest forall a. (a -> ()) -> NFData a rnf :: ClientBatchGetRequest -> () $crnf :: ClientBatchGetRequest -> () -Hs.NFData) - -instance HsProtobuf.Named ClientBatchGetRequest where - nameOf :: Proxy# ClientBatchGetRequest -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ClientBatchGetRequest where + nameOf :: Proxy# ClientBatchGetRequest -> string +nameOf Proxy# ClientBatchGetRequest +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ClientBatchGetRequest") - -instance HsProtobuf.HasDefault ClientBatchGetRequest - -instance HsProtobuf.Message ClientBatchGetRequest where - encodeMessage :: FieldNumber -> ClientBatchGetRequest -> MessageBuilder -encodeMessage _ - ClientBatchGetRequest{clientBatchGetRequestBatchId :: ClientBatchGetRequest -> Text +Hs.fromString String +"ClientBatchGetRequest") + +instance HsProtobuf.HasDefault ClientBatchGetRequest + +instance HsProtobuf.Message ClientBatchGetRequest where + encodeMessage :: FieldNumber -> ClientBatchGetRequest -> MessageBuilder +encodeMessage FieldNumber +_ + ClientBatchGetRequest{clientBatchGetRequestBatchId :: ClientBatchGetRequest -> Text clientBatchGetRequestBatchId = - Text -clientBatchGetRequestBatchId} - = ([MessageBuilder] -> MessageBuilder + Text +clientBatchGetRequestBatchId} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> Text -> MessageBuilder +Hs.mconcat + [(FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Text -clientBatchGetRequestBatchId)]) - decodeMessage :: FieldNumber -> Parser RawMessage ClientBatchGetRequest -decodeMessage _ - = ((Text -> ClientBatchGetRequest) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Text +clientBatchGetRequestBatchId)]) + decodeMessage :: FieldNumber -> Parser RawMessage ClientBatchGetRequest +decodeMessage FieldNumber +_ + = ((Text -> ClientBatchGetRequest) -> Parser RawMessage (Text -> ClientBatchGetRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> ClientBatchGetRequest +Hs.pure Text -> ClientBatchGetRequest ClientBatchGetRequest) Parser RawMessage (Text -> ClientBatchGetRequest) -> Parser RawMessage Text -> Parser RawMessage ClientBatchGetRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - dotProto :: Proxy# ClientBatchGetRequest -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + dotProto :: Proxy# ClientBatchGetRequest -> [DotProtoField] +dotProto Proxy# ClientBatchGetRequest +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "batch_id") - [] - "")] - -instance HsJSONPB.ToJSONPB ClientBatchGetRequest where - toJSONPB :: ClientBatchGetRequest -> Options -> Value -toJSONPB (ClientBatchGetRequest f1 :: Text -f1) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["batch_id" Text -> Text -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"batch_id") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ClientBatchGetRequest where + toJSONPB :: ClientBatchGetRequest -> Options -> Value +toJSONPB (ClientBatchGetRequest Text +f1) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"batch_id" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1]) - toEncodingPB :: ClientBatchGetRequest -> Options -> Encoding -toEncodingPB (ClientBatchGetRequest f1 :: Text -f1) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["batch_id" Text -> Text -> Options -> Series +.= Text +f1]) + toEncodingPB :: ClientBatchGetRequest -> Options -> Encoding +toEncodingPB (ClientBatchGetRequest Text +f1) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"batch_id" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1]) - -instance HsJSONPB.FromJSONPB ClientBatchGetRequest where - parseJSONPB :: Value -> Parser ClientBatchGetRequest -parseJSONPB - = (String +.= Text +f1]) + +instance HsJSONPB.FromJSONPB ClientBatchGetRequest where + parseJSONPB :: Value -> Parser ClientBatchGetRequest +parseJSONPB + = (String -> (Object -> Parser ClientBatchGetRequest) -> Value -> Parser ClientBatchGetRequest forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ClientBatchGetRequest" - (\ obj :: Object -obj -> ((Text -> ClientBatchGetRequest) +HsJSONPB.withObject String +"ClientBatchGetRequest" + (\ Object +obj -> ((Text -> ClientBatchGetRequest) -> Parser (Text -> ClientBatchGetRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> ClientBatchGetRequest +Hs.pure Text -> ClientBatchGetRequest ClientBatchGetRequest) Parser (Text -> ClientBatchGetRequest) -> Parser Text -> Parser ClientBatchGetRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Text +<*> Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "batch_id")) - -instance HsJSONPB.ToJSON ClientBatchGetRequest where - toJSON :: ClientBatchGetRequest -> Value -toJSON = ClientBatchGetRequest -> Value +.: Text +"batch_id")) + +instance HsJSONPB.ToJSON ClientBatchGetRequest where + toJSON :: ClientBatchGetRequest -> Value +toJSON = ClientBatchGetRequest -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ClientBatchGetRequest -> Encoding -toEncoding = ClientBatchGetRequest -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ClientBatchGetRequest -> Encoding +toEncoding = ClientBatchGetRequest -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ClientBatchGetRequest where - parseJSON :: Value -> Parser ClientBatchGetRequest -parseJSON = Value -> Parser ClientBatchGetRequest +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ClientBatchGetRequest where + parseJSON :: Value -> Parser ClientBatchGetRequest +parseJSON = Value -> Parser ClientBatchGetRequest forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ClientBatchGetRequest where - declareNamedSchema :: Proxy ClientBatchGetRequest +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ClientBatchGetRequest where + declareNamedSchema :: Proxy ClientBatchGetRequest -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_batch_id :: Proxy (OverrideToSchema Text) +declareNamedSchema Proxy ClientBatchGetRequest +_ + = do let declare_batch_id :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_batch_id = Proxy (OverrideToSchema Text) +declare_batch_id = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientBatchGetRequestBatchId <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +clientBatchGetRequestBatchId <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_batch_id Proxy (OverrideToSchema Text) +declare_batch_id Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ClientBatchGetRequest +Proxy.Proxy + let Proxy ClientBatchGetRequest _ = (Text -> ClientBatchGetRequest) -> Proxy (Text -> ClientBatchGetRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> ClientBatchGetRequest +Hs.pure Text -> ClientBatchGetRequest ClientBatchGetRequest Proxy (Text -> ClientBatchGetRequest) -> Proxy Text -> Proxy ClientBatchGetRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema Text) +<*> + (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_batch_id - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_batch_id + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ClientBatchGetRequest", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ClientBatchGetRequest", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("batch_id", - Referenced Schema -clientBatchGetRequestBatchId)]}}) - -data ClientBatchGetResponse = ClientBatchGetResponse{ClientBatchGetResponse -> Enumerated ClientBatchGetResponse_Status +HsJSONPB.insOrdFromList + [(Text +"batch_id", + Referenced Schema +clientBatchGetRequestBatchId)]}}) + +data ClientBatchGetResponse = ClientBatchGetResponse{ClientBatchGetResponse -> Enumerated ClientBatchGetResponse_Status clientBatchGetResponseStatus - :: - HsProtobuf.Enumerated - Data.Sawtooth.ClientBatch.ClientBatchGetResponse_Status, - ClientBatchGetResponse -> Maybe Batch + :: + HsProtobuf.Enumerated + Data.Sawtooth.ClientBatch.ClientBatchGetResponse_Status, + ClientBatchGetResponse -> Maybe Batch clientBatchGetResponseBatch :: - Hs.Maybe Data.Sawtooth.Batch.Batch} - deriving (Int -> ClientBatchGetResponse -> ShowS + Hs.Maybe Data.Sawtooth.Batch.Batch} + deriving (Int -> ClientBatchGetResponse -> ShowS [ClientBatchGetResponse] -> ShowS ClientBatchGetResponse -> String (Int -> ClientBatchGetResponse -> ShowS) @@ -1971,7 +2103,7 @@ show :: ClientBatchGetResponse -> String $cshow :: ClientBatchGetResponse -> String showsPrec :: Int -> ClientBatchGetResponse -> ShowS $cshowsPrec :: Int -> ClientBatchGetResponse -> ShowS -Hs.Show, ClientBatchGetResponse -> ClientBatchGetResponse -> Bool +Hs.Show, ClientBatchGetResponse -> ClientBatchGetResponse -> Bool (ClientBatchGetResponse -> ClientBatchGetResponse -> Bool) -> (ClientBatchGetResponse -> ClientBatchGetResponse -> Bool) -> Eq ClientBatchGetResponse @@ -1980,9 +2112,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: ClientBatchGetResponse -> ClientBatchGetResponse -> Bool == :: ClientBatchGetResponse -> ClientBatchGetResponse -> Bool $c== :: ClientBatchGetResponse -> ClientBatchGetResponse -> Bool -Hs.Eq, Eq ClientBatchGetResponse -Eq ClientBatchGetResponse => -(ClientBatchGetResponse -> ClientBatchGetResponse -> Ordering) +Hs.Eq, Eq ClientBatchGetResponse +Eq ClientBatchGetResponse +-> (ClientBatchGetResponse -> ClientBatchGetResponse -> Ordering) -> (ClientBatchGetResponse -> ClientBatchGetResponse -> Bool) -> (ClientBatchGetResponse -> ClientBatchGetResponse -> Bool) -> (ClientBatchGetResponse -> ClientBatchGetResponse -> Bool) @@ -1997,8 +2129,8 @@ ClientBatchGetResponse -> ClientBatchGetResponse -> Ordering ClientBatchGetResponse -> ClientBatchGetResponse -> ClientBatchGetResponse forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -2025,7 +2157,7 @@ $c< :: ClientBatchGetResponse -> ClientBatchGetResponse -> Bool compare :: ClientBatchGetResponse -> ClientBatchGetResponse -> Ordering $ccompare :: ClientBatchGetResponse -> ClientBatchGetResponse -> Ordering $cp1Ord :: Eq ClientBatchGetResponse -Hs.Ord, (forall x. ClientBatchGetResponse -> Rep ClientBatchGetResponse x) +Hs.Ord, (forall x. ClientBatchGetResponse -> Rep ClientBatchGetResponse x) -> (forall x. Rep ClientBatchGetResponse x -> ClientBatchGetResponse) -> Generic ClientBatchGetResponse @@ -2035,61 +2167,66 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep ClientBatchGetResponse x -> ClientBatchGetResponse $cfrom :: forall x. ClientBatchGetResponse -> Rep ClientBatchGetResponse x -Hs.Generic, ClientBatchGetResponse -> () +Hs.Generic, ClientBatchGetResponse -> () (ClientBatchGetResponse -> ()) -> NFData ClientBatchGetResponse forall a. (a -> ()) -> NFData a rnf :: ClientBatchGetResponse -> () $crnf :: ClientBatchGetResponse -> () -Hs.NFData) - -instance HsProtobuf.Named ClientBatchGetResponse where - nameOf :: Proxy# ClientBatchGetResponse -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ClientBatchGetResponse where + nameOf :: Proxy# ClientBatchGetResponse -> string +nameOf Proxy# ClientBatchGetResponse +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ClientBatchGetResponse") - -instance HsProtobuf.HasDefault ClientBatchGetResponse - -instance HsProtobuf.Message ClientBatchGetResponse where - encodeMessage :: FieldNumber -> ClientBatchGetResponse -> MessageBuilder -encodeMessage _ - ClientBatchGetResponse{clientBatchGetResponseStatus :: ClientBatchGetResponse -> Enumerated ClientBatchGetResponse_Status +Hs.fromString String +"ClientBatchGetResponse") + +instance HsProtobuf.HasDefault ClientBatchGetResponse + +instance HsProtobuf.Message ClientBatchGetResponse where + encodeMessage :: FieldNumber -> ClientBatchGetResponse -> MessageBuilder +encodeMessage FieldNumber +_ + ClientBatchGetResponse{clientBatchGetResponseStatus :: ClientBatchGetResponse -> Enumerated ClientBatchGetResponse_Status clientBatchGetResponseStatus = - Enumerated ClientBatchGetResponse_Status -clientBatchGetResponseStatus, - clientBatchGetResponseBatch :: ClientBatchGetResponse -> Maybe Batch -clientBatchGetResponseBatch = Maybe Batch -clientBatchGetResponseBatch} - = ([MessageBuilder] -> MessageBuilder + Enumerated ClientBatchGetResponse_Status +clientBatchGetResponseStatus, + clientBatchGetResponseBatch :: ClientBatchGetResponse -> Maybe Batch +clientBatchGetResponseBatch = Maybe Batch +clientBatchGetResponseBatch} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber +Hs.mconcat + [(FieldNumber -> Enumerated ClientBatchGetResponse_Status -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Enumerated ClientBatchGetResponse_Status -clientBatchGetResponseStatus), - (FieldNumber -> Nested Batch -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Enumerated ClientBatchGetResponse_Status +clientBatchGetResponseStatus), + (FieldNumber -> Nested Batch -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (Maybe Batch -> Nested Batch -forall a b. Coercible a b => a -> b -Hs.coerce @(Hs.Maybe Data.Sawtooth.Batch.Batch) - @(HsProtobuf.Nested Data.Sawtooth.Batch.Batch) - Maybe Batch -clientBatchGetResponseBatch))]) - decodeMessage :: FieldNumber -> Parser RawMessage ClientBatchGetResponse -decodeMessage _ - = ((Enumerated ClientBatchGetResponse_Status +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (Maybe Batch -> Nested Batch +Hs.coerce @(Hs.Maybe Data.Sawtooth.Batch.Batch) + @(HsProtobuf.Nested Data.Sawtooth.Batch.Batch) + Maybe Batch +clientBatchGetResponseBatch))]) + decodeMessage :: FieldNumber -> Parser RawMessage ClientBatchGetResponse +decodeMessage FieldNumber +_ + = ((Enumerated ClientBatchGetResponse_Status -> Maybe Batch -> ClientBatchGetResponse) -> Parser RawMessage (Enumerated ClientBatchGetResponse_Status -> Maybe Batch -> ClientBatchGetResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ClientBatchGetResponse_Status +Hs.pure Enumerated ClientBatchGetResponse_Status -> Maybe Batch -> ClientBatchGetResponse ClientBatchGetResponse) Parser RawMessage @@ -2098,122 +2235,137 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Parser RawMessage (Enumerated ClientBatchGetResponse_Status) -> Parser RawMessage (Maybe Batch -> ClientBatchGetResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField (Enumerated ClientBatchGetResponse_Status) +<*> + (Parser RawField (Enumerated ClientBatchGetResponse_Status) -> FieldNumber -> Parser RawMessage (Enumerated ClientBatchGetResponse_Status) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (Enumerated ClientBatchGetResponse_Status) +HsProtobuf.at Parser RawField (Enumerated ClientBatchGetResponse_Status) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser RawMessage (Maybe Batch -> ClientBatchGetResponse) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (Maybe Batch -> ClientBatchGetResponse) -> Parser RawMessage (Maybe Batch) -> Parser RawMessage ClientBatchGetResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (Nested Batch) -> Parser RawMessage (Maybe Batch) -forall a b. Coercible a b => a -> b -Hs.coerce @(_ (HsProtobuf.Nested Data.Sawtooth.Batch.Batch)) - @(_ (Hs.Maybe Data.Sawtooth.Batch.Batch)) - (Parser RawField (Nested Batch) +<*> + (Parser RawMessage (Nested Batch) -> Parser RawMessage (Maybe Batch) +Hs.coerce @(_ (HsProtobuf.Nested Data.Sawtooth.Batch.Batch)) + @(_ (Hs.Maybe Data.Sawtooth.Batch.Batch)) + (Parser RawField (Nested Batch) -> FieldNumber -> Parser RawMessage (Nested Batch) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (Nested Batch) +HsProtobuf.at Parser RawField (Nested Batch) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2))) - dotProto :: Proxy# ClientBatchGetResponse -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2))) + dotProto :: Proxy# ClientBatchGetResponse -> [DotProtoField] +dotProto Proxy# ClientBatchGetResponse +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "Status"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "status") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"Status"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"status") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "Batch"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "batch") - [] - "")] - -instance HsJSONPB.ToJSONPB ClientBatchGetResponse where - toJSONPB :: ClientBatchGetResponse -> Options -> Value -toJSONPB (ClientBatchGetResponse f1 :: Enumerated ClientBatchGetResponse_Status -f1 f2 :: Maybe Batch -f2) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["status" Text +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"Batch"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"batch") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ClientBatchGetResponse where + toJSONPB :: ClientBatchGetResponse -> Options -> Value +toJSONPB (ClientBatchGetResponse Enumerated ClientBatchGetResponse_Status +f1 Maybe Batch +f2) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"status" Text -> Enumerated ClientBatchGetResponse_Status -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated ClientBatchGetResponse_Status -f1, "batch" Text -> Maybe Batch -> Options -> [Pair] +.= Enumerated ClientBatchGetResponse_Status +f1, Text +"batch" Text -> Maybe Batch -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Maybe Batch -f2]) - toEncodingPB :: ClientBatchGetResponse -> Options -> Encoding -toEncodingPB (ClientBatchGetResponse f1 :: Enumerated ClientBatchGetResponse_Status -f1 f2 :: Maybe Batch -f2) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["status" Text +.= Maybe Batch +f2]) + toEncodingPB :: ClientBatchGetResponse -> Options -> Encoding +toEncodingPB (ClientBatchGetResponse Enumerated ClientBatchGetResponse_Status +f1 Maybe Batch +f2) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"status" Text -> Enumerated ClientBatchGetResponse_Status -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated ClientBatchGetResponse_Status -f1, "batch" Text -> Maybe Batch -> Options -> Series +.= Enumerated ClientBatchGetResponse_Status +f1, Text +"batch" Text -> Maybe Batch -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Maybe Batch -f2]) - -instance HsJSONPB.FromJSONPB ClientBatchGetResponse where - parseJSONPB :: Value -> Parser ClientBatchGetResponse -parseJSONPB - = (String +.= Maybe Batch +f2]) + +instance HsJSONPB.FromJSONPB ClientBatchGetResponse where + parseJSONPB :: Value -> Parser ClientBatchGetResponse +parseJSONPB + = (String -> (Object -> Parser ClientBatchGetResponse) -> Value -> Parser ClientBatchGetResponse forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ClientBatchGetResponse" - (\ obj :: Object -obj -> - ((Enumerated ClientBatchGetResponse_Status +HsJSONPB.withObject String +"ClientBatchGetResponse" + (\ Object +obj -> + ((Enumerated ClientBatchGetResponse_Status -> Maybe Batch -> ClientBatchGetResponse) -> Parser (Enumerated ClientBatchGetResponse_Status -> Maybe Batch -> ClientBatchGetResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ClientBatchGetResponse_Status +Hs.pure Enumerated ClientBatchGetResponse_Status -> Maybe Batch -> ClientBatchGetResponse ClientBatchGetResponse) Parser (Enumerated ClientBatchGetResponse_Status @@ -2221,78 +2373,81 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Parser (Enumerated ClientBatchGetResponse_Status) -> Parser (Maybe Batch -> ClientBatchGetResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser (Enumerated ClientBatchGetResponse_Status) +<*> Object +obj Object -> Text -> Parser (Enumerated ClientBatchGetResponse_Status) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "status" Parser (Maybe Batch -> ClientBatchGetResponse) +.: Text +"status" Parser (Maybe Batch -> ClientBatchGetResponse) -> Parser (Maybe Batch) -> Parser ClientBatchGetResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser (Maybe Batch) +<*> + Object +obj Object -> Text -> Parser (Maybe Batch) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "batch")) - -instance HsJSONPB.ToJSON ClientBatchGetResponse where - toJSON :: ClientBatchGetResponse -> Value -toJSON = ClientBatchGetResponse -> Value +.: Text +"batch")) + +instance HsJSONPB.ToJSON ClientBatchGetResponse where + toJSON :: ClientBatchGetResponse -> Value +toJSON = ClientBatchGetResponse -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ClientBatchGetResponse -> Encoding -toEncoding = ClientBatchGetResponse -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ClientBatchGetResponse -> Encoding +toEncoding = ClientBatchGetResponse -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ClientBatchGetResponse where - parseJSON :: Value -> Parser ClientBatchGetResponse -parseJSON = Value -> Parser ClientBatchGetResponse +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ClientBatchGetResponse where + parseJSON :: Value -> Parser ClientBatchGetResponse +parseJSON = Value -> Parser ClientBatchGetResponse forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ClientBatchGetResponse where - declareNamedSchema :: Proxy ClientBatchGetResponse +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ClientBatchGetResponse where + declareNamedSchema :: Proxy ClientBatchGetResponse -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_status :: Proxy (OverrideToSchema (Enumerated ClientBatchGetResponse_Status)) +declareNamedSchema Proxy ClientBatchGetResponse +_ + = do let declare_status :: Proxy (OverrideToSchema (Enumerated ClientBatchGetResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status = Proxy (OverrideToSchema (Enumerated ClientBatchGetResponse_Status)) +declare_status = Proxy (OverrideToSchema (Enumerated ClientBatchGetResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientBatchGetResponseStatus <- Proxy (OverrideToSchema (Enumerated ClientBatchGetResponse_Status)) +HsJSONPB.declareSchemaRef + Referenced Schema +clientBatchGetResponseStatus <- Proxy (OverrideToSchema (Enumerated ClientBatchGetResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status Proxy (OverrideToSchema (Enumerated ClientBatchGetResponse_Status)) +declare_status Proxy (OverrideToSchema (Enumerated ClientBatchGetResponse_Status)) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_batch :: Proxy (OverrideToSchema (Maybe Batch)) +Proxy.Proxy + let declare_batch :: Proxy (OverrideToSchema (Maybe Batch)) -> Declare (Definitions Schema) (Referenced Schema) -declare_batch = Proxy (OverrideToSchema (Maybe Batch)) +declare_batch = Proxy (OverrideToSchema (Maybe Batch)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientBatchGetResponseBatch <- Proxy (OverrideToSchema (Maybe Batch)) +HsJSONPB.declareSchemaRef + Referenced Schema +clientBatchGetResponseBatch <- Proxy (OverrideToSchema (Maybe Batch)) -> Declare (Definitions Schema) (Referenced Schema) -declare_batch Proxy (OverrideToSchema (Maybe Batch)) +declare_batch Proxy (OverrideToSchema (Maybe Batch)) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ClientBatchGetResponse +Proxy.Proxy + let Proxy ClientBatchGetResponse _ = (Enumerated ClientBatchGetResponse_Status -> Maybe Batch -> ClientBatchGetResponse) -> Proxy (Enumerated ClientBatchGetResponse_Status -> Maybe Batch -> ClientBatchGetResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ClientBatchGetResponse_Status +Hs.pure Enumerated ClientBatchGetResponse_Status -> Maybe Batch -> ClientBatchGetResponse ClientBatchGetResponse Proxy (Enumerated ClientBatchGetResponse_Status @@ -2300,66 +2455,69 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Proxy (Enumerated ClientBatchGetResponse_Status) -> Proxy (Maybe Batch -> ClientBatchGetResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy +<*> + (Proxy (OverrideToSchema (Enumerated ClientBatchGetResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Enumerated ClientBatchGetResponse_Status) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Enumerated ClientBatchGetResponse_Status)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Enumerated ClientBatchGetResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status - Proxy (Maybe Batch -> ClientBatchGetResponse) +declare_status + Proxy (Maybe Batch -> ClientBatchGetResponse) -> Proxy (Maybe Batch) -> Proxy ClientBatchGetResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema (Maybe Batch)) +<*> (Proxy (OverrideToSchema (Maybe Batch)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Maybe Batch) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Maybe Batch)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Maybe Batch)) -> Declare (Definitions Schema) (Referenced Schema) -declare_batch - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_batch + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ClientBatchGetResponse", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ClientBatchGetResponse", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("status", Referenced Schema -clientBatchGetResponseStatus), - ("batch", Referenced Schema -clientBatchGetResponseBatch)]}}) - -data ClientBatchGetResponse_Status = ClientBatchGetResponse_StatusSTATUS_UNSET - | ClientBatchGetResponse_StatusOK - | ClientBatchGetResponse_StatusINTERNAL_ERROR - | ClientBatchGetResponse_StatusNO_RESOURCE - | ClientBatchGetResponse_StatusINVALID_ID - deriving (Int -> ClientBatchGetResponse_Status -> ShowS +HsJSONPB.insOrdFromList + [(Text +"status", Referenced Schema +clientBatchGetResponseStatus), + (Text +"batch", Referenced Schema +clientBatchGetResponseBatch)]}}) + +data ClientBatchGetResponse_Status = ClientBatchGetResponse_StatusSTATUS_UNSET + | ClientBatchGetResponse_StatusOK + | ClientBatchGetResponse_StatusINTERNAL_ERROR + | ClientBatchGetResponse_StatusNO_RESOURCE + | ClientBatchGetResponse_StatusINVALID_ID + deriving (Int -> ClientBatchGetResponse_Status -> ShowS [ClientBatchGetResponse_Status] -> ShowS ClientBatchGetResponse_Status -> String (Int -> ClientBatchGetResponse_Status -> ShowS) @@ -2374,7 +2532,7 @@ show :: ClientBatchGetResponse_Status -> String $cshow :: ClientBatchGetResponse_Status -> String showsPrec :: Int -> ClientBatchGetResponse_Status -> ShowS $cshowsPrec :: Int -> ClientBatchGetResponse_Status -> ShowS -Hs.Show, ClientBatchGetResponse_Status +Hs.Show, ClientBatchGetResponse_Status -> ClientBatchGetResponse_Status -> Bool (ClientBatchGetResponse_Status -> ClientBatchGetResponse_Status -> Bool) @@ -2390,7 +2548,7 @@ $c/= :: ClientBatchGetResponse_Status -> ClientBatchGetResponse_Status -> Bool $c== :: ClientBatchGetResponse_Status -> ClientBatchGetResponse_Status -> Bool -Hs.Eq, (forall x. +Hs.Eq, (forall x. ClientBatchGetResponse_Status -> Rep ClientBatchGetResponse_Status x) -> (forall x. @@ -2411,158 +2569,179 @@ Rep ClientBatchGetResponse_Status x $cfrom :: forall x. ClientBatchGetResponse_Status -> Rep ClientBatchGetResponse_Status x -Hs.Generic, ClientBatchGetResponse_Status -> () +Hs.Generic, ClientBatchGetResponse_Status -> () (ClientBatchGetResponse_Status -> ()) -> NFData ClientBatchGetResponse_Status forall a. (a -> ()) -> NFData a rnf :: ClientBatchGetResponse_Status -> () $crnf :: ClientBatchGetResponse_Status -> () -Hs.NFData) - -instance HsProtobuf.Named ClientBatchGetResponse_Status where - nameOf :: Proxy# ClientBatchGetResponse_Status -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ClientBatchGetResponse_Status where + nameOf :: Proxy# ClientBatchGetResponse_Status -> string +nameOf Proxy# ClientBatchGetResponse_Status +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ClientBatchGetResponse_Status") - -instance HsProtobuf.HasDefault ClientBatchGetResponse_Status - -instance Hs.Bounded ClientBatchGetResponse_Status where - minBound :: ClientBatchGetResponse_Status -minBound = ClientBatchGetResponse_Status +Hs.fromString String +"ClientBatchGetResponse_Status") + +instance HsProtobuf.HasDefault ClientBatchGetResponse_Status + +instance Hs.Bounded ClientBatchGetResponse_Status where + minBound :: ClientBatchGetResponse_Status +minBound = ClientBatchGetResponse_Status ClientBatchGetResponse_StatusSTATUS_UNSET - maxBound :: ClientBatchGetResponse_Status -maxBound = ClientBatchGetResponse_Status + maxBound :: ClientBatchGetResponse_Status +maxBound = ClientBatchGetResponse_Status ClientBatchGetResponse_StatusINVALID_ID - -instance Hs.Ord ClientBatchGetResponse_Status where - compare :: ClientBatchGetResponse_Status + +instance Hs.Ord ClientBatchGetResponse_Status where + compare :: ClientBatchGetResponse_Status -> ClientBatchGetResponse_Status -> Ordering -compare x :: ClientBatchGetResponse_Status -x y :: ClientBatchGetResponse_Status -y - = Int32 -> Int32 -> Ordering +compare ClientBatchGetResponse_Status +x ClientBatchGetResponse_Status +y + = Int32 -> Int32 -> Ordering forall a. Ord a => a -> a -> Ordering -Hs.compare (ClientBatchGetResponse_Status -> Int32 +Hs.compare (ClientBatchGetResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum ClientBatchGetResponse_Status -x) - (ClientBatchGetResponse_Status -> Int32 +HsProtobuf.fromProtoEnum ClientBatchGetResponse_Status +x) + (ClientBatchGetResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum ClientBatchGetResponse_Status -y) - -instance HsProtobuf.ProtoEnum ClientBatchGetResponse_Status where - toProtoEnumMay :: Int32 -> Maybe ClientBatchGetResponse_Status -toProtoEnumMay 0 - = ClientBatchGetResponse_Status +HsProtobuf.fromProtoEnum ClientBatchGetResponse_Status +y) + +instance HsProtobuf.ProtoEnum ClientBatchGetResponse_Status where + toProtoEnumMay :: Int32 -> Maybe ClientBatchGetResponse_Status +toProtoEnumMay Int32 +0 + = ClientBatchGetResponse_Status -> Maybe ClientBatchGetResponse_Status forall a. a -> Maybe a -Hs.Just ClientBatchGetResponse_Status +Hs.Just ClientBatchGetResponse_Status ClientBatchGetResponse_StatusSTATUS_UNSET - toProtoEnumMay 1 = ClientBatchGetResponse_Status + toProtoEnumMay Int32 +1 = ClientBatchGetResponse_Status -> Maybe ClientBatchGetResponse_Status forall a. a -> Maybe a -Hs.Just ClientBatchGetResponse_Status +Hs.Just ClientBatchGetResponse_Status ClientBatchGetResponse_StatusOK - toProtoEnumMay 2 - = ClientBatchGetResponse_Status + toProtoEnumMay Int32 +2 + = ClientBatchGetResponse_Status -> Maybe ClientBatchGetResponse_Status forall a. a -> Maybe a -Hs.Just ClientBatchGetResponse_Status +Hs.Just ClientBatchGetResponse_Status ClientBatchGetResponse_StatusINTERNAL_ERROR - toProtoEnumMay 5 = ClientBatchGetResponse_Status + toProtoEnumMay Int32 +5 = ClientBatchGetResponse_Status -> Maybe ClientBatchGetResponse_Status forall a. a -> Maybe a -Hs.Just ClientBatchGetResponse_Status +Hs.Just ClientBatchGetResponse_Status ClientBatchGetResponse_StatusNO_RESOURCE - toProtoEnumMay 8 = ClientBatchGetResponse_Status + toProtoEnumMay Int32 +8 = ClientBatchGetResponse_Status -> Maybe ClientBatchGetResponse_Status forall a. a -> Maybe a -Hs.Just ClientBatchGetResponse_Status +Hs.Just ClientBatchGetResponse_Status ClientBatchGetResponse_StatusINVALID_ID - toProtoEnumMay _ = Maybe ClientBatchGetResponse_Status + toProtoEnumMay Int32 +_ = Maybe ClientBatchGetResponse_Status forall a. Maybe a -Hs.Nothing - fromProtoEnum :: ClientBatchGetResponse_Status -> Int32 -fromProtoEnum (ClientBatchGetResponse_Status -ClientBatchGetResponse_StatusSTATUS_UNSET) = 0 - fromProtoEnum (ClientBatchGetResponse_Status -ClientBatchGetResponse_StatusOK) = 1 - fromProtoEnum (ClientBatchGetResponse_Status -ClientBatchGetResponse_StatusINTERNAL_ERROR) = 2 - fromProtoEnum (ClientBatchGetResponse_Status -ClientBatchGetResponse_StatusNO_RESOURCE) = 5 - fromProtoEnum (ClientBatchGetResponse_Status -ClientBatchGetResponse_StatusINVALID_ID) = 8 - -instance HsJSONPB.ToJSONPB ClientBatchGetResponse_Status where - toJSONPB :: ClientBatchGetResponse_Status -> Options -> Value -toJSONPB x :: ClientBatchGetResponse_Status -x _ = ClientBatchGetResponse_Status -> Value +Hs.Nothing + fromProtoEnum :: ClientBatchGetResponse_Status -> Int32 +fromProtoEnum (ClientBatchGetResponse_Status +ClientBatchGetResponse_StatusSTATUS_UNSET) = Int32 +0 + fromProtoEnum (ClientBatchGetResponse_Status +ClientBatchGetResponse_StatusOK) = Int32 +1 + fromProtoEnum (ClientBatchGetResponse_Status +ClientBatchGetResponse_StatusINTERNAL_ERROR) = Int32 +2 + fromProtoEnum (ClientBatchGetResponse_Status +ClientBatchGetResponse_StatusNO_RESOURCE) = Int32 +5 + fromProtoEnum (ClientBatchGetResponse_Status +ClientBatchGetResponse_StatusINVALID_ID) = Int32 +8 + +instance HsJSONPB.ToJSONPB ClientBatchGetResponse_Status where + toJSONPB :: ClientBatchGetResponse_Status -> Options -> Value +toJSONPB ClientBatchGetResponse_Status +x Options +_ = ClientBatchGetResponse_Status -> Value forall a. (Named a, Show a) => a -> Value -HsJSONPB.enumFieldString ClientBatchGetResponse_Status -x - toEncodingPB :: ClientBatchGetResponse_Status -> Options -> Encoding -toEncodingPB x :: ClientBatchGetResponse_Status -x _ = ClientBatchGetResponse_Status -> Encoding +HsJSONPB.enumFieldString ClientBatchGetResponse_Status +x + toEncodingPB :: ClientBatchGetResponse_Status -> Options -> Encoding +toEncodingPB ClientBatchGetResponse_Status +x Options +_ = ClientBatchGetResponse_Status -> Encoding forall a. (Named a, Show a) => a -> Encoding -HsJSONPB.enumFieldEncoding ClientBatchGetResponse_Status -x - -instance HsJSONPB.FromJSONPB ClientBatchGetResponse_Status where - parseJSONPB :: Value -> Parser ClientBatchGetResponse_Status -parseJSONPB (HsJSONPB.String "STATUS_UNSET") - = ClientBatchGetResponse_Status +HsJSONPB.enumFieldEncoding ClientBatchGetResponse_Status +x + +instance HsJSONPB.FromJSONPB ClientBatchGetResponse_Status where + parseJSONPB :: Value -> Parser ClientBatchGetResponse_Status +parseJSONPB (HsJSONPB.String Text +"STATUS_UNSET") + = ClientBatchGetResponse_Status -> Parser ClientBatchGetResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientBatchGetResponse_Status +Hs.pure ClientBatchGetResponse_Status ClientBatchGetResponse_StatusSTATUS_UNSET - parseJSONPB (HsJSONPB.String "OK") - = ClientBatchGetResponse_Status + parseJSONPB (HsJSONPB.String Text +"OK") + = ClientBatchGetResponse_Status -> Parser ClientBatchGetResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientBatchGetResponse_Status +Hs.pure ClientBatchGetResponse_Status ClientBatchGetResponse_StatusOK - parseJSONPB (HsJSONPB.String "INTERNAL_ERROR") - = ClientBatchGetResponse_Status + parseJSONPB (HsJSONPB.String Text +"INTERNAL_ERROR") + = ClientBatchGetResponse_Status -> Parser ClientBatchGetResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientBatchGetResponse_Status +Hs.pure ClientBatchGetResponse_Status ClientBatchGetResponse_StatusINTERNAL_ERROR - parseJSONPB (HsJSONPB.String "NO_RESOURCE") - = ClientBatchGetResponse_Status + parseJSONPB (HsJSONPB.String Text +"NO_RESOURCE") + = ClientBatchGetResponse_Status -> Parser ClientBatchGetResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientBatchGetResponse_Status +Hs.pure ClientBatchGetResponse_Status ClientBatchGetResponse_StatusNO_RESOURCE - parseJSONPB (HsJSONPB.String "INVALID_ID") - = ClientBatchGetResponse_Status + parseJSONPB (HsJSONPB.String Text +"INVALID_ID") + = ClientBatchGetResponse_Status -> Parser ClientBatchGetResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientBatchGetResponse_Status +Hs.pure ClientBatchGetResponse_Status ClientBatchGetResponse_StatusINVALID_ID - parseJSONPB v :: Value -v - = (String -> Value -> Parser ClientBatchGetResponse_Status + parseJSONPB Value +v + = (String -> Value -> Parser ClientBatchGetResponse_Status forall a. String -> Value -> Parser a -HsJSONPB.typeMismatch "ClientBatchGetResponse_Status" Value -v) - -instance HsJSONPB.ToJSON ClientBatchGetResponse_Status where - toJSON :: ClientBatchGetResponse_Status -> Value -toJSON = ClientBatchGetResponse_Status -> Value +HsJSONPB.typeMismatch String +"ClientBatchGetResponse_Status" Value +v) + +instance HsJSONPB.ToJSON ClientBatchGetResponse_Status where + toJSON :: ClientBatchGetResponse_Status -> Value +toJSON = ClientBatchGetResponse_Status -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ClientBatchGetResponse_Status -> Encoding -toEncoding = ClientBatchGetResponse_Status -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ClientBatchGetResponse_Status -> Encoding +toEncoding = ClientBatchGetResponse_Status -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ClientBatchGetResponse_Status where - parseJSON :: Value -> Parser ClientBatchGetResponse_Status -parseJSON = Value -> Parser ClientBatchGetResponse_Status +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ClientBatchGetResponse_Status where + parseJSON :: Value -> Parser ClientBatchGetResponse_Status +parseJSON = Value -> Parser ClientBatchGetResponse_Status forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsProtobuf.Finite ClientBatchGetResponse_Status \ No newline at end of file +HsJSONPB.parseJSONPB + +instance HsProtobuf.Finite ClientBatchGetResponse_Status \ No newline at end of file diff --git a/src/Data.Sawtooth.ClientBatchSubmit.html b/src/Data.Sawtooth.ClientBatchSubmit.html index 93095c3..cc3326f 100644 --- a/src/Data.Sawtooth.ClientBatchSubmit.html +++ b/src/Data.Sawtooth.ClientBatchSubmit.html @@ -9,46 +9,45 @@ {-# OPTIONS_GHC -fno-warn-unused-matches #-} -- | Generated by Haskell protocol buffer compiler. DO NOT EDIT! - -module Data.Sawtooth.ClientBatchSubmit where -import qualified Prelude as Hs -import qualified Proto3.Suite.Class as HsProtobuf -import qualified Proto3.Suite.DotProto as HsProtobuf -import qualified Proto3.Suite.JSONPB as HsJSONPB -import Proto3.Suite.JSONPB ((.=), (.:)) -import qualified Proto3.Suite.Types as HsProtobuf -import qualified Proto3.Wire as HsProtobuf -import qualified Control.Applicative as Hs -import Control.Applicative ((<*>), (<|>), (<$>)) -import qualified Control.DeepSeq as Hs -import qualified Control.Monad as Hs -import qualified Data.ByteString as Hs -import qualified Data.Coerce as Hs -import qualified Data.Int as Hs (Int16, Int32, Int64) -import qualified Data.List.NonEmpty as Hs (NonEmpty(..)) -import qualified Data.Map as Hs (Map, mapKeysMonotonic) -import qualified Data.Proxy as Proxy -import qualified Data.String as Hs (fromString) -import qualified Data.Text.Lazy as Hs (Text) -import qualified Data.Vector as Hs (Vector) -import qualified Data.Word as Hs (Word16, Word32, Word64) -import qualified GHC.Enum as Hs -import qualified GHC.Generics as Hs -import qualified Unsafe.Coerce as Hs -import qualified Data.Sawtooth.Batch - -data ClientBatchStatus = ClientBatchStatus{ClientBatchStatus -> Text +module Data.Sawtooth.ClientBatchSubmit where +import qualified Prelude as Hs +import qualified Proto3.Suite.Class as HsProtobuf +import qualified Proto3.Suite.DotProto as HsProtobuf +import qualified Proto3.Suite.JSONPB as HsJSONPB +import Proto3.Suite.JSONPB ((.=), (.:)) +import qualified Proto3.Suite.Types as HsProtobuf +import qualified Proto3.Wire as HsProtobuf +import qualified Control.Applicative as Hs +import Control.Applicative ((<*>), (<|>), (<$>)) +import qualified Control.DeepSeq as Hs +import qualified Control.Monad as Hs +import qualified Data.ByteString as Hs +import qualified Data.Coerce as Hs +import qualified Data.Int as Hs (Int16, Int32, Int64) +import qualified Data.List.NonEmpty as Hs (NonEmpty(..)) +import qualified Data.Map as Hs (Map, mapKeysMonotonic) +import qualified Data.Proxy as Proxy +import qualified Data.String as Hs (fromString) +import qualified Data.Text.Lazy as Hs (Text) +import qualified Data.Vector as Hs (Vector) +import qualified Data.Word as Hs (Word16, Word32, Word64) +import qualified GHC.Enum as Hs +import qualified GHC.Generics as Hs +import qualified Unsafe.Coerce as Hs +import qualified Data.Sawtooth.Batch + +data ClientBatchStatus = ClientBatchStatus{ClientBatchStatus -> Text clientBatchStatusBatchId - :: Hs.Text, - ClientBatchStatus -> Enumerated ClientBatchStatus_Status + :: Hs.Text, + ClientBatchStatus -> Enumerated ClientBatchStatus_Status clientBatchStatusStatus :: - HsProtobuf.Enumerated - Data.Sawtooth.ClientBatchSubmit.ClientBatchStatus_Status, - ClientBatchStatus -> Vector ClientBatchStatus_InvalidTransaction + HsProtobuf.Enumerated + Data.Sawtooth.ClientBatchSubmit.ClientBatchStatus_Status, + ClientBatchStatus -> Vector ClientBatchStatus_InvalidTransaction clientBatchStatusInvalidTransactions :: - Hs.Vector - Data.Sawtooth.ClientBatchSubmit.ClientBatchStatus_InvalidTransaction} - deriving (Int -> ClientBatchStatus -> ShowS + Hs.Vector + Data.Sawtooth.ClientBatchSubmit.ClientBatchStatus_InvalidTransaction} + deriving (Int -> ClientBatchStatus -> ShowS [ClientBatchStatus] -> ShowS ClientBatchStatus -> String (Int -> ClientBatchStatus -> ShowS) @@ -63,7 +62,7 @@ show :: ClientBatchStatus -> String $cshow :: ClientBatchStatus -> String showsPrec :: Int -> ClientBatchStatus -> ShowS $cshowsPrec :: Int -> ClientBatchStatus -> ShowS -Hs.Show, ClientBatchStatus -> ClientBatchStatus -> Bool +Hs.Show, ClientBatchStatus -> ClientBatchStatus -> Bool (ClientBatchStatus -> ClientBatchStatus -> Bool) -> (ClientBatchStatus -> ClientBatchStatus -> Bool) -> Eq ClientBatchStatus @@ -72,9 +71,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: ClientBatchStatus -> ClientBatchStatus -> Bool == :: ClientBatchStatus -> ClientBatchStatus -> Bool $c== :: ClientBatchStatus -> ClientBatchStatus -> Bool -Hs.Eq, Eq ClientBatchStatus -Eq ClientBatchStatus => -(ClientBatchStatus -> ClientBatchStatus -> Ordering) +Hs.Eq, Eq ClientBatchStatus +Eq ClientBatchStatus +-> (ClientBatchStatus -> ClientBatchStatus -> Ordering) -> (ClientBatchStatus -> ClientBatchStatus -> Bool) -> (ClientBatchStatus -> ClientBatchStatus -> Bool) -> (ClientBatchStatus -> ClientBatchStatus -> Bool) @@ -86,8 +85,8 @@ ClientBatchStatus -> ClientBatchStatus -> Bool ClientBatchStatus -> ClientBatchStatus -> Ordering ClientBatchStatus -> ClientBatchStatus -> ClientBatchStatus forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -110,7 +109,7 @@ $c< :: ClientBatchStatus -> ClientBatchStatus -> Bool compare :: ClientBatchStatus -> ClientBatchStatus -> Ordering $ccompare :: ClientBatchStatus -> ClientBatchStatus -> Ordering $cp1Ord :: Eq ClientBatchStatus -Hs.Ord, (forall x. ClientBatchStatus -> Rep ClientBatchStatus x) +Hs.Ord, (forall x. ClientBatchStatus -> Rep ClientBatchStatus x) -> (forall x. Rep ClientBatchStatus x -> ClientBatchStatus) -> Generic ClientBatchStatus forall x. Rep ClientBatchStatus x -> ClientBatchStatus @@ -119,67 +118,73 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep ClientBatchStatus x -> ClientBatchStatus $cfrom :: forall x. ClientBatchStatus -> Rep ClientBatchStatus x -Hs.Generic, ClientBatchStatus -> () +Hs.Generic, ClientBatchStatus -> () (ClientBatchStatus -> ()) -> NFData ClientBatchStatus forall a. (a -> ()) -> NFData a rnf :: ClientBatchStatus -> () $crnf :: ClientBatchStatus -> () -Hs.NFData) - -instance HsProtobuf.Named ClientBatchStatus where - nameOf :: Proxy# ClientBatchStatus -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ClientBatchStatus where + nameOf :: Proxy# ClientBatchStatus -> string +nameOf Proxy# ClientBatchStatus +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ClientBatchStatus") - -instance HsProtobuf.HasDefault ClientBatchStatus - -instance HsProtobuf.Message ClientBatchStatus where - encodeMessage :: FieldNumber -> ClientBatchStatus -> MessageBuilder -encodeMessage _ - ClientBatchStatus{clientBatchStatusBatchId :: ClientBatchStatus -> Text +Hs.fromString String +"ClientBatchStatus") + +instance HsProtobuf.HasDefault ClientBatchStatus + +instance HsProtobuf.Message ClientBatchStatus where + encodeMessage :: FieldNumber -> ClientBatchStatus -> MessageBuilder +encodeMessage FieldNumber +_ + ClientBatchStatus{clientBatchStatusBatchId :: ClientBatchStatus -> Text clientBatchStatusBatchId = - Text -clientBatchStatusBatchId, - clientBatchStatusStatus :: ClientBatchStatus -> Enumerated ClientBatchStatus_Status -clientBatchStatusStatus = Enumerated ClientBatchStatus_Status -clientBatchStatusStatus, - clientBatchStatusInvalidTransactions :: ClientBatchStatus -> Vector ClientBatchStatus_InvalidTransaction + Text +clientBatchStatusBatchId, + clientBatchStatusStatus :: ClientBatchStatus -> Enumerated ClientBatchStatus_Status +clientBatchStatusStatus = Enumerated ClientBatchStatus_Status +clientBatchStatusStatus, + clientBatchStatusInvalidTransactions :: ClientBatchStatus -> Vector ClientBatchStatus_InvalidTransaction clientBatchStatusInvalidTransactions = - Vector ClientBatchStatus_InvalidTransaction -clientBatchStatusInvalidTransactions} - = ([MessageBuilder] -> MessageBuilder + Vector ClientBatchStatus_InvalidTransaction +clientBatchStatusInvalidTransactions} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> Text -> MessageBuilder +Hs.mconcat + [(FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Text -clientBatchStatusBatchId), - (FieldNumber +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Text +clientBatchStatusBatchId), + (FieldNumber -> Enumerated ClientBatchStatus_Status -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - Enumerated ClientBatchStatus_Status -clientBatchStatusStatus), - (FieldNumber +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + Enumerated ClientBatchStatus_Status +clientBatchStatusStatus), + (FieldNumber -> NestedVec ClientBatchStatus_InvalidTransaction -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - (Vector ClientBatchStatus_InvalidTransaction +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + (Vector ClientBatchStatus_InvalidTransaction -> NestedVec ClientBatchStatus_InvalidTransaction -forall a b. Coercible a b => a -> b -Hs.coerce - @(Hs.Vector Data.Sawtooth.ClientBatchSubmit.ClientBatchStatus_InvalidTransaction) - @(HsProtobuf.NestedVec Data.Sawtooth.ClientBatchSubmit.ClientBatchStatus_InvalidTransaction) - Vector ClientBatchStatus_InvalidTransaction -clientBatchStatusInvalidTransactions))]) - decodeMessage :: FieldNumber -> Parser RawMessage ClientBatchStatus -decodeMessage _ - = ((Text +Hs.coerce + @(Hs.Vector Data.Sawtooth.ClientBatchSubmit.ClientBatchStatus_InvalidTransaction) + @(HsProtobuf.NestedVec Data.Sawtooth.ClientBatchSubmit.ClientBatchStatus_InvalidTransaction) + Vector ClientBatchStatus_InvalidTransaction +clientBatchStatusInvalidTransactions))]) + decodeMessage :: FieldNumber -> Parser RawMessage ClientBatchStatus +decodeMessage FieldNumber +_ + = ((Text -> Enumerated ClientBatchStatus_Status -> Vector ClientBatchStatus_InvalidTransaction -> ClientBatchStatus) @@ -190,7 +195,7 @@ forall a b. Coercible a b => a -> b -> Vector ClientBatchStatus_InvalidTransaction -> ClientBatchStatus) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text +Hs.pure Text -> Enumerated ClientBatchStatus_Status -> Vector ClientBatchStatus_InvalidTransaction -> ClientBatchStatus @@ -207,15 +212,16 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Vector ClientBatchStatus_InvalidTransaction -> ClientBatchStatus) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (Enumerated ClientBatchStatus_Status -> Vector ClientBatchStatus_InvalidTransaction @@ -225,152 +231,172 @@ forall a. MessageField a => Parser RawField a RawMessage (Vector ClientBatchStatus_InvalidTransaction -> ClientBatchStatus) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField (Enumerated ClientBatchStatus_Status) +<*> + (Parser RawField (Enumerated ClientBatchStatus_Status) -> FieldNumber -> Parser RawMessage (Enumerated ClientBatchStatus_Status) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (Enumerated ClientBatchStatus_Status) +HsProtobuf.at Parser RawField (Enumerated ClientBatchStatus_Status) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2)) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2)) + Parser RawMessage (Vector ClientBatchStatus_InvalidTransaction -> ClientBatchStatus) -> Parser RawMessage (Vector ClientBatchStatus_InvalidTransaction) -> Parser RawMessage ClientBatchStatus forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (NestedVec ClientBatchStatus_InvalidTransaction) +<*> + (Parser RawMessage (NestedVec ClientBatchStatus_InvalidTransaction) -> Parser RawMessage (Vector ClientBatchStatus_InvalidTransaction) -forall a b. Coercible a b => a -> b -Hs.coerce - @(_ (HsProtobuf.NestedVec Data.Sawtooth.ClientBatchSubmit.ClientBatchStatus_InvalidTransaction)) - @(_ (Hs.Vector Data.Sawtooth.ClientBatchSubmit.ClientBatchStatus_InvalidTransaction)) - (Parser RawField (NestedVec ClientBatchStatus_InvalidTransaction) +Hs.coerce + @(_ (HsProtobuf.NestedVec Data.Sawtooth.ClientBatchSubmit.ClientBatchStatus_InvalidTransaction)) + @(_ (Hs.Vector Data.Sawtooth.ClientBatchSubmit.ClientBatchStatus_InvalidTransaction)) + (Parser RawField (NestedVec ClientBatchStatus_InvalidTransaction) -> FieldNumber -> Parser RawMessage (NestedVec ClientBatchStatus_InvalidTransaction) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (NestedVec ClientBatchStatus_InvalidTransaction) +HsProtobuf.at Parser RawField (NestedVec ClientBatchStatus_InvalidTransaction) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3))) - dotProto :: Proxy# ClientBatchStatus -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3))) + dotProto :: Proxy# ClientBatchStatus -> [DotProtoField] +dotProto Proxy# ClientBatchStatus +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "batch_id") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"batch_id") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "Status"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "status") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"Status"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"status") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Repeated - (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "InvalidTransaction"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "invalid_transactions") - [] - "")] - -instance HsJSONPB.ToJSONPB ClientBatchStatus where - toJSONPB :: ClientBatchStatus -> Options -> Value -toJSONPB (ClientBatchStatus f1 :: Text -f1 f2 :: Enumerated ClientBatchStatus_Status -f2 f3 :: Vector ClientBatchStatus_InvalidTransaction -f3) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object - ["batch_id" Text -> Text -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Repeated + (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"InvalidTransaction"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"invalid_transactions") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ClientBatchStatus where + toJSONPB :: ClientBatchStatus -> Options -> Value +toJSONPB (ClientBatchStatus Text +f1 Enumerated ClientBatchStatus_Status +f2 Vector ClientBatchStatus_InvalidTransaction +f3) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object + [Text +"batch_id" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1, "status" Text -> Enumerated ClientBatchStatus_Status -> Options -> [Pair] +.= Text +f1, Text +"status" Text -> Enumerated ClientBatchStatus_Status -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated ClientBatchStatus_Status -f2, "invalid_transactions" Text +.= Enumerated ClientBatchStatus_Status +f2, Text +"invalid_transactions" Text -> Vector ClientBatchStatus_InvalidTransaction -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector ClientBatchStatus_InvalidTransaction -f3]) - toEncodingPB :: ClientBatchStatus -> Options -> Encoding -toEncodingPB (ClientBatchStatus f1 :: Text -f1 f2 :: Enumerated ClientBatchStatus_Status -f2 f3 :: Vector ClientBatchStatus_InvalidTransaction -f3) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs - ["batch_id" Text -> Text -> Options -> Series +.= Vector ClientBatchStatus_InvalidTransaction +f3]) + toEncodingPB :: ClientBatchStatus -> Options -> Encoding +toEncodingPB (ClientBatchStatus Text +f1 Enumerated ClientBatchStatus_Status +f2 Vector ClientBatchStatus_InvalidTransaction +f3) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs + [Text +"batch_id" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1, "status" Text -> Enumerated ClientBatchStatus_Status -> Options -> Series +.= Text +f1, Text +"status" Text -> Enumerated ClientBatchStatus_Status -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated ClientBatchStatus_Status -f2, "invalid_transactions" Text +.= Enumerated ClientBatchStatus_Status +f2, Text +"invalid_transactions" Text -> Vector ClientBatchStatus_InvalidTransaction -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector ClientBatchStatus_InvalidTransaction -f3]) - -instance HsJSONPB.FromJSONPB ClientBatchStatus where - parseJSONPB :: Value -> Parser ClientBatchStatus -parseJSONPB - = (String +.= Vector ClientBatchStatus_InvalidTransaction +f3]) + +instance HsJSONPB.FromJSONPB ClientBatchStatus where + parseJSONPB :: Value -> Parser ClientBatchStatus +parseJSONPB + = (String -> (Object -> Parser ClientBatchStatus) -> Value -> Parser ClientBatchStatus forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ClientBatchStatus" - (\ obj :: Object -obj -> - ((Text +HsJSONPB.withObject String +"ClientBatchStatus" + (\ Object +obj -> + ((Text -> Enumerated ClientBatchStatus_Status -> Vector ClientBatchStatus_InvalidTransaction -> ClientBatchStatus) @@ -380,7 +406,7 @@ forall a. String -> (Object -> Parser a) -> Value -> Parser a -> Vector ClientBatchStatus_InvalidTransaction -> ClientBatchStatus) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text +Hs.pure Text -> Enumerated ClientBatchStatus_Status -> Vector ClientBatchStatus_InvalidTransaction -> ClientBatchStatus @@ -395,12 +421,13 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Vector ClientBatchStatus_InvalidTransaction -> ClientBatchStatus) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Text +<*> Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "batch_id" Parser +.: Text +"batch_id" Parser (Enumerated ClientBatchStatus_Status -> Vector ClientBatchStatus_InvalidTransaction -> ClientBatchStatus) @@ -408,93 +435,96 @@ Object -> Text -> Parser a -> Parser (Vector ClientBatchStatus_InvalidTransaction -> ClientBatchStatus) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser (Enumerated ClientBatchStatus_Status) +<*> + Object +obj Object -> Text -> Parser (Enumerated ClientBatchStatus_Status) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "status" - Parser +.: Text +"status" + Parser (Vector ClientBatchStatus_InvalidTransaction -> ClientBatchStatus) -> Parser (Vector ClientBatchStatus_InvalidTransaction) -> Parser ClientBatchStatus forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object +<*> Object +obj Object -> Text -> Parser (Vector ClientBatchStatus_InvalidTransaction) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "invalid_transactions")) - -instance HsJSONPB.ToJSON ClientBatchStatus where - toJSON :: ClientBatchStatus -> Value -toJSON = ClientBatchStatus -> Value +.: Text +"invalid_transactions")) + +instance HsJSONPB.ToJSON ClientBatchStatus where + toJSON :: ClientBatchStatus -> Value +toJSON = ClientBatchStatus -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ClientBatchStatus -> Encoding -toEncoding = ClientBatchStatus -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ClientBatchStatus -> Encoding +toEncoding = ClientBatchStatus -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ClientBatchStatus where - parseJSON :: Value -> Parser ClientBatchStatus -parseJSON = Value -> Parser ClientBatchStatus +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ClientBatchStatus where + parseJSON :: Value -> Parser ClientBatchStatus +parseJSON = Value -> Parser ClientBatchStatus forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ClientBatchStatus where - declareNamedSchema :: Proxy ClientBatchStatus -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_batch_id :: Proxy (OverrideToSchema Text) +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ClientBatchStatus where + declareNamedSchema :: Proxy ClientBatchStatus -> Declare (Definitions Schema) NamedSchema +declareNamedSchema Proxy ClientBatchStatus +_ + = do let declare_batch_id :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_batch_id = Proxy (OverrideToSchema Text) +declare_batch_id = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientBatchStatusBatchId <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +clientBatchStatusBatchId <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_batch_id Proxy (OverrideToSchema Text) +declare_batch_id Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_status :: Proxy (OverrideToSchema (Enumerated ClientBatchStatus_Status)) +Proxy.Proxy + let declare_status :: Proxy (OverrideToSchema (Enumerated ClientBatchStatus_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status = Proxy (OverrideToSchema (Enumerated ClientBatchStatus_Status)) +declare_status = Proxy (OverrideToSchema (Enumerated ClientBatchStatus_Status)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientBatchStatusStatus <- Proxy (OverrideToSchema (Enumerated ClientBatchStatus_Status)) +HsJSONPB.declareSchemaRef + Referenced Schema +clientBatchStatusStatus <- Proxy (OverrideToSchema (Enumerated ClientBatchStatus_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status Proxy (OverrideToSchema (Enumerated ClientBatchStatus_Status)) +declare_status Proxy (OverrideToSchema (Enumerated ClientBatchStatus_Status)) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_invalid_transactions :: Proxy +Proxy.Proxy + let declare_invalid_transactions :: Proxy (OverrideToSchema (Vector ClientBatchStatus_InvalidTransaction)) -> Declare (Definitions Schema) (Referenced Schema) -declare_invalid_transactions = Proxy +declare_invalid_transactions = Proxy (OverrideToSchema (Vector ClientBatchStatus_InvalidTransaction)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientBatchStatusInvalidTransactions <- Proxy +HsJSONPB.declareSchemaRef + Referenced Schema +clientBatchStatusInvalidTransactions <- Proxy (OverrideToSchema (Vector ClientBatchStatus_InvalidTransaction)) -> Declare (Definitions Schema) (Referenced Schema) -declare_invalid_transactions - Proxy +declare_invalid_transactions + Proxy (OverrideToSchema (Vector ClientBatchStatus_InvalidTransaction)) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ClientBatchStatus +Proxy.Proxy + let Proxy ClientBatchStatus _ = (Text -> Enumerated ClientBatchStatus_Status -> Vector ClientBatchStatus_InvalidTransaction @@ -505,7 +535,7 @@ forall k (t :: k). Proxy t -> Vector ClientBatchStatus_InvalidTransaction -> ClientBatchStatus) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text +Hs.pure Text -> Enumerated ClientBatchStatus_Status -> Vector ClientBatchStatus_InvalidTransaction -> ClientBatchStatus @@ -520,15 +550,15 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Vector ClientBatchStatus_InvalidTransaction -> ClientBatchStatus) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema Text) +<*> + (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_batch_id - Proxy +declare_batch_id + Proxy (Enumerated ClientBatchStatus_Status -> Vector ClientBatchStatus_InvalidTransaction -> ClientBatchStatus) @@ -536,71 +566,75 @@ forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -> Proxy (Vector ClientBatchStatus_InvalidTransaction -> ClientBatchStatus) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema (Enumerated ClientBatchStatus_Status)) +<*> (Proxy (OverrideToSchema (Enumerated ClientBatchStatus_Status)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Enumerated ClientBatchStatus_Status) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Enumerated ClientBatchStatus_Status)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Enumerated ClientBatchStatus_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status - Proxy +declare_status + Proxy (Vector ClientBatchStatus_InvalidTransaction -> ClientBatchStatus) -> Proxy (Vector ClientBatchStatus_InvalidTransaction) -> Proxy ClientBatchStatus forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy +<*> (Proxy (OverrideToSchema (Vector ClientBatchStatus_InvalidTransaction)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Vector ClientBatchStatus_InvalidTransaction) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy +HsJSONPB.asProxy Proxy (OverrideToSchema (Vector ClientBatchStatus_InvalidTransaction)) -> Declare (Definitions Schema) (Referenced Schema) -declare_invalid_transactions - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_invalid_transactions + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ClientBatchStatus", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ClientBatchStatus", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("batch_id", Referenced Schema -clientBatchStatusBatchId), - ("status", Referenced Schema -clientBatchStatusStatus), - ("invalid_transactions", - Referenced Schema -clientBatchStatusInvalidTransactions)]}}) - -data ClientBatchStatus_Status = ClientBatchStatus_StatusSTATUS_UNSET - | ClientBatchStatus_StatusCOMMITTED - | ClientBatchStatus_StatusINVALID - | ClientBatchStatus_StatusPENDING - | ClientBatchStatus_StatusUNKNOWN - deriving (Int -> ClientBatchStatus_Status -> ShowS +HsJSONPB.insOrdFromList + [(Text +"batch_id", Referenced Schema +clientBatchStatusBatchId), + (Text +"status", Referenced Schema +clientBatchStatusStatus), + (Text +"invalid_transactions", + Referenced Schema +clientBatchStatusInvalidTransactions)]}}) + +data ClientBatchStatus_Status = ClientBatchStatus_StatusSTATUS_UNSET + | ClientBatchStatus_StatusCOMMITTED + | ClientBatchStatus_StatusINVALID + | ClientBatchStatus_StatusPENDING + | ClientBatchStatus_StatusUNKNOWN + deriving (Int -> ClientBatchStatus_Status -> ShowS [ClientBatchStatus_Status] -> ShowS ClientBatchStatus_Status -> String (Int -> ClientBatchStatus_Status -> ShowS) @@ -615,7 +649,7 @@ show :: ClientBatchStatus_Status -> String $cshow :: ClientBatchStatus_Status -> String showsPrec :: Int -> ClientBatchStatus_Status -> ShowS $cshowsPrec :: Int -> ClientBatchStatus_Status -> ShowS -Hs.Show, ClientBatchStatus_Status -> ClientBatchStatus_Status -> Bool +Hs.Show, ClientBatchStatus_Status -> ClientBatchStatus_Status -> Bool (ClientBatchStatus_Status -> ClientBatchStatus_Status -> Bool) -> (ClientBatchStatus_Status -> ClientBatchStatus_Status -> Bool) -> Eq ClientBatchStatus_Status @@ -624,7 +658,7 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: ClientBatchStatus_Status -> ClientBatchStatus_Status -> Bool == :: ClientBatchStatus_Status -> ClientBatchStatus_Status -> Bool $c== :: ClientBatchStatus_Status -> ClientBatchStatus_Status -> Bool -Hs.Eq, (forall x. +Hs.Eq, (forall x. ClientBatchStatus_Status -> Rep ClientBatchStatus_Status x) -> (forall x. Rep ClientBatchStatus_Status x -> ClientBatchStatus_Status) @@ -639,158 +673,179 @@ $cto :: forall x. Rep ClientBatchStatus_Status x -> ClientBatchStatus_Status $cfrom :: forall x. ClientBatchStatus_Status -> Rep ClientBatchStatus_Status x -Hs.Generic, ClientBatchStatus_Status -> () +Hs.Generic, ClientBatchStatus_Status -> () (ClientBatchStatus_Status -> ()) -> NFData ClientBatchStatus_Status forall a. (a -> ()) -> NFData a rnf :: ClientBatchStatus_Status -> () $crnf :: ClientBatchStatus_Status -> () -Hs.NFData) - -instance HsProtobuf.Named ClientBatchStatus_Status where - nameOf :: Proxy# ClientBatchStatus_Status -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ClientBatchStatus_Status where + nameOf :: Proxy# ClientBatchStatus_Status -> string +nameOf Proxy# ClientBatchStatus_Status +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ClientBatchStatus_Status") - -instance HsProtobuf.HasDefault ClientBatchStatus_Status - -instance Hs.Bounded ClientBatchStatus_Status where - minBound :: ClientBatchStatus_Status -minBound = ClientBatchStatus_Status +Hs.fromString String +"ClientBatchStatus_Status") + +instance HsProtobuf.HasDefault ClientBatchStatus_Status + +instance Hs.Bounded ClientBatchStatus_Status where + minBound :: ClientBatchStatus_Status +minBound = ClientBatchStatus_Status ClientBatchStatus_StatusSTATUS_UNSET - maxBound :: ClientBatchStatus_Status -maxBound = ClientBatchStatus_Status + maxBound :: ClientBatchStatus_Status +maxBound = ClientBatchStatus_Status ClientBatchStatus_StatusUNKNOWN - -instance Hs.Ord ClientBatchStatus_Status where - compare :: ClientBatchStatus_Status -> ClientBatchStatus_Status -> Ordering -compare x :: ClientBatchStatus_Status -x y :: ClientBatchStatus_Status -y - = Int32 -> Int32 -> Ordering + +instance Hs.Ord ClientBatchStatus_Status where + compare :: ClientBatchStatus_Status -> ClientBatchStatus_Status -> Ordering +compare ClientBatchStatus_Status +x ClientBatchStatus_Status +y + = Int32 -> Int32 -> Ordering forall a. Ord a => a -> a -> Ordering -Hs.compare (ClientBatchStatus_Status -> Int32 +Hs.compare (ClientBatchStatus_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum ClientBatchStatus_Status -x) - (ClientBatchStatus_Status -> Int32 +HsProtobuf.fromProtoEnum ClientBatchStatus_Status +x) + (ClientBatchStatus_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum ClientBatchStatus_Status -y) - -instance HsProtobuf.ProtoEnum ClientBatchStatus_Status where - toProtoEnumMay :: Int32 -> Maybe ClientBatchStatus_Status -toProtoEnumMay 0 = ClientBatchStatus_Status -> Maybe ClientBatchStatus_Status +HsProtobuf.fromProtoEnum ClientBatchStatus_Status +y) + +instance HsProtobuf.ProtoEnum ClientBatchStatus_Status where + toProtoEnumMay :: Int32 -> Maybe ClientBatchStatus_Status +toProtoEnumMay Int32 +0 = ClientBatchStatus_Status -> Maybe ClientBatchStatus_Status forall a. a -> Maybe a -Hs.Just ClientBatchStatus_Status +Hs.Just ClientBatchStatus_Status ClientBatchStatus_StatusSTATUS_UNSET - toProtoEnumMay 1 = ClientBatchStatus_Status -> Maybe ClientBatchStatus_Status + toProtoEnumMay Int32 +1 = ClientBatchStatus_Status -> Maybe ClientBatchStatus_Status forall a. a -> Maybe a -Hs.Just ClientBatchStatus_Status +Hs.Just ClientBatchStatus_Status ClientBatchStatus_StatusCOMMITTED - toProtoEnumMay 2 = ClientBatchStatus_Status -> Maybe ClientBatchStatus_Status + toProtoEnumMay Int32 +2 = ClientBatchStatus_Status -> Maybe ClientBatchStatus_Status forall a. a -> Maybe a -Hs.Just ClientBatchStatus_Status +Hs.Just ClientBatchStatus_Status ClientBatchStatus_StatusINVALID - toProtoEnumMay 3 = ClientBatchStatus_Status -> Maybe ClientBatchStatus_Status + toProtoEnumMay Int32 +3 = ClientBatchStatus_Status -> Maybe ClientBatchStatus_Status forall a. a -> Maybe a -Hs.Just ClientBatchStatus_Status +Hs.Just ClientBatchStatus_Status ClientBatchStatus_StatusPENDING - toProtoEnumMay 4 = ClientBatchStatus_Status -> Maybe ClientBatchStatus_Status + toProtoEnumMay Int32 +4 = ClientBatchStatus_Status -> Maybe ClientBatchStatus_Status forall a. a -> Maybe a -Hs.Just ClientBatchStatus_Status +Hs.Just ClientBatchStatus_Status ClientBatchStatus_StatusUNKNOWN - toProtoEnumMay _ = Maybe ClientBatchStatus_Status + toProtoEnumMay Int32 +_ = Maybe ClientBatchStatus_Status forall a. Maybe a -Hs.Nothing - fromProtoEnum :: ClientBatchStatus_Status -> Int32 -fromProtoEnum (ClientBatchStatus_Status -ClientBatchStatus_StatusSTATUS_UNSET) = 0 - fromProtoEnum (ClientBatchStatus_Status -ClientBatchStatus_StatusCOMMITTED) = 1 - fromProtoEnum (ClientBatchStatus_Status -ClientBatchStatus_StatusINVALID) = 2 - fromProtoEnum (ClientBatchStatus_Status -ClientBatchStatus_StatusPENDING) = 3 - fromProtoEnum (ClientBatchStatus_Status -ClientBatchStatus_StatusUNKNOWN) = 4 - -instance HsJSONPB.ToJSONPB ClientBatchStatus_Status where - toJSONPB :: ClientBatchStatus_Status -> Options -> Value -toJSONPB x :: ClientBatchStatus_Status -x _ = ClientBatchStatus_Status -> Value +Hs.Nothing + fromProtoEnum :: ClientBatchStatus_Status -> Int32 +fromProtoEnum (ClientBatchStatus_Status +ClientBatchStatus_StatusSTATUS_UNSET) = Int32 +0 + fromProtoEnum (ClientBatchStatus_Status +ClientBatchStatus_StatusCOMMITTED) = Int32 +1 + fromProtoEnum (ClientBatchStatus_Status +ClientBatchStatus_StatusINVALID) = Int32 +2 + fromProtoEnum (ClientBatchStatus_Status +ClientBatchStatus_StatusPENDING) = Int32 +3 + fromProtoEnum (ClientBatchStatus_Status +ClientBatchStatus_StatusUNKNOWN) = Int32 +4 + +instance HsJSONPB.ToJSONPB ClientBatchStatus_Status where + toJSONPB :: ClientBatchStatus_Status -> Options -> Value +toJSONPB ClientBatchStatus_Status +x Options +_ = ClientBatchStatus_Status -> Value forall a. (Named a, Show a) => a -> Value -HsJSONPB.enumFieldString ClientBatchStatus_Status -x - toEncodingPB :: ClientBatchStatus_Status -> Options -> Encoding -toEncodingPB x :: ClientBatchStatus_Status -x _ = ClientBatchStatus_Status -> Encoding +HsJSONPB.enumFieldString ClientBatchStatus_Status +x + toEncodingPB :: ClientBatchStatus_Status -> Options -> Encoding +toEncodingPB ClientBatchStatus_Status +x Options +_ = ClientBatchStatus_Status -> Encoding forall a. (Named a, Show a) => a -> Encoding -HsJSONPB.enumFieldEncoding ClientBatchStatus_Status -x - -instance HsJSONPB.FromJSONPB ClientBatchStatus_Status where - parseJSONPB :: Value -> Parser ClientBatchStatus_Status -parseJSONPB (HsJSONPB.String "STATUS_UNSET") - = ClientBatchStatus_Status -> Parser ClientBatchStatus_Status +HsJSONPB.enumFieldEncoding ClientBatchStatus_Status +x + +instance HsJSONPB.FromJSONPB ClientBatchStatus_Status where + parseJSONPB :: Value -> Parser ClientBatchStatus_Status +parseJSONPB (HsJSONPB.String Text +"STATUS_UNSET") + = ClientBatchStatus_Status -> Parser ClientBatchStatus_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientBatchStatus_Status +Hs.pure ClientBatchStatus_Status ClientBatchStatus_StatusSTATUS_UNSET - parseJSONPB (HsJSONPB.String "COMMITTED") - = ClientBatchStatus_Status -> Parser ClientBatchStatus_Status + parseJSONPB (HsJSONPB.String Text +"COMMITTED") + = ClientBatchStatus_Status -> Parser ClientBatchStatus_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientBatchStatus_Status +Hs.pure ClientBatchStatus_Status ClientBatchStatus_StatusCOMMITTED - parseJSONPB (HsJSONPB.String "INVALID") - = ClientBatchStatus_Status -> Parser ClientBatchStatus_Status + parseJSONPB (HsJSONPB.String Text +"INVALID") + = ClientBatchStatus_Status -> Parser ClientBatchStatus_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientBatchStatus_Status +Hs.pure ClientBatchStatus_Status ClientBatchStatus_StatusINVALID - parseJSONPB (HsJSONPB.String "PENDING") - = ClientBatchStatus_Status -> Parser ClientBatchStatus_Status + parseJSONPB (HsJSONPB.String Text +"PENDING") + = ClientBatchStatus_Status -> Parser ClientBatchStatus_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientBatchStatus_Status +Hs.pure ClientBatchStatus_Status ClientBatchStatus_StatusPENDING - parseJSONPB (HsJSONPB.String "UNKNOWN") - = ClientBatchStatus_Status -> Parser ClientBatchStatus_Status + parseJSONPB (HsJSONPB.String Text +"UNKNOWN") + = ClientBatchStatus_Status -> Parser ClientBatchStatus_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientBatchStatus_Status +Hs.pure ClientBatchStatus_Status ClientBatchStatus_StatusUNKNOWN - parseJSONPB v :: Value -v - = (String -> Value -> Parser ClientBatchStatus_Status + parseJSONPB Value +v + = (String -> Value -> Parser ClientBatchStatus_Status forall a. String -> Value -> Parser a -HsJSONPB.typeMismatch "ClientBatchStatus_Status" Value -v) - -instance HsJSONPB.ToJSON ClientBatchStatus_Status where - toJSON :: ClientBatchStatus_Status -> Value -toJSON = ClientBatchStatus_Status -> Value +HsJSONPB.typeMismatch String +"ClientBatchStatus_Status" Value +v) + +instance HsJSONPB.ToJSON ClientBatchStatus_Status where + toJSON :: ClientBatchStatus_Status -> Value +toJSON = ClientBatchStatus_Status -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ClientBatchStatus_Status -> Encoding -toEncoding = ClientBatchStatus_Status -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ClientBatchStatus_Status -> Encoding +toEncoding = ClientBatchStatus_Status -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ClientBatchStatus_Status where - parseJSON :: Value -> Parser ClientBatchStatus_Status -parseJSON = Value -> Parser ClientBatchStatus_Status +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ClientBatchStatus_Status where + parseJSON :: Value -> Parser ClientBatchStatus_Status +parseJSON = Value -> Parser ClientBatchStatus_Status forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsProtobuf.Finite ClientBatchStatus_Status - -data ClientBatchStatus_InvalidTransaction = ClientBatchStatus_InvalidTransaction{ClientBatchStatus_InvalidTransaction -> Text +HsJSONPB.parseJSONPB + +instance HsProtobuf.Finite ClientBatchStatus_Status + +data ClientBatchStatus_InvalidTransaction = ClientBatchStatus_InvalidTransaction{ClientBatchStatus_InvalidTransaction -> Text clientBatchStatus_InvalidTransactionTransactionId - :: Hs.Text, - ClientBatchStatus_InvalidTransaction -> Text + :: Hs.Text, + ClientBatchStatus_InvalidTransaction -> Text clientBatchStatus_InvalidTransactionMessage - :: Hs.Text, - ClientBatchStatus_InvalidTransaction -> ByteString + :: Hs.Text, + ClientBatchStatus_InvalidTransaction -> ByteString clientBatchStatus_InvalidTransactionExtendedData - :: Hs.ByteString} - deriving (Int -> ClientBatchStatus_InvalidTransaction -> ShowS + :: Hs.ByteString} + deriving (Int -> ClientBatchStatus_InvalidTransaction -> ShowS [ClientBatchStatus_InvalidTransaction] -> ShowS ClientBatchStatus_InvalidTransaction -> String (Int -> ClientBatchStatus_InvalidTransaction -> ShowS) @@ -805,7 +860,7 @@ show :: ClientBatchStatus_InvalidTransaction -> String $cshow :: ClientBatchStatus_InvalidTransaction -> String showsPrec :: Int -> ClientBatchStatus_InvalidTransaction -> ShowS $cshowsPrec :: Int -> ClientBatchStatus_InvalidTransaction -> ShowS -Hs.Show, ClientBatchStatus_InvalidTransaction +Hs.Show, ClientBatchStatus_InvalidTransaction -> ClientBatchStatus_InvalidTransaction -> Bool (ClientBatchStatus_InvalidTransaction -> ClientBatchStatus_InvalidTransaction -> Bool) @@ -821,10 +876,10 @@ $c/= :: ClientBatchStatus_InvalidTransaction -> ClientBatchStatus_InvalidTransaction -> Bool $c== :: ClientBatchStatus_InvalidTransaction -> ClientBatchStatus_InvalidTransaction -> Bool -Hs.Eq, Eq ClientBatchStatus_InvalidTransaction -Eq ClientBatchStatus_InvalidTransaction => -(ClientBatchStatus_InvalidTransaction - -> ClientBatchStatus_InvalidTransaction -> Ordering) +Hs.Eq, Eq ClientBatchStatus_InvalidTransaction +Eq ClientBatchStatus_InvalidTransaction +-> (ClientBatchStatus_InvalidTransaction + -> ClientBatchStatus_InvalidTransaction -> Ordering) -> (ClientBatchStatus_InvalidTransaction -> ClientBatchStatus_InvalidTransaction -> Bool) -> (ClientBatchStatus_InvalidTransaction @@ -848,8 +903,8 @@ ClientBatchStatus_InvalidTransaction -> ClientBatchStatus_InvalidTransaction -> ClientBatchStatus_InvalidTransaction forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -890,7 +945,7 @@ compare :: ClientBatchStatus_InvalidTransaction $ccompare :: ClientBatchStatus_InvalidTransaction -> ClientBatchStatus_InvalidTransaction -> Ordering $cp1Ord :: Eq ClientBatchStatus_InvalidTransaction -Hs.Ord, (forall x. +Hs.Ord, (forall x. ClientBatchStatus_InvalidTransaction -> Rep ClientBatchStatus_InvalidTransaction x) -> (forall x. @@ -911,73 +966,80 @@ Rep ClientBatchStatus_InvalidTransaction x $cfrom :: forall x. ClientBatchStatus_InvalidTransaction -> Rep ClientBatchStatus_InvalidTransaction x -Hs.Generic, ClientBatchStatus_InvalidTransaction -> () +Hs.Generic, ClientBatchStatus_InvalidTransaction -> () (ClientBatchStatus_InvalidTransaction -> ()) -> NFData ClientBatchStatus_InvalidTransaction forall a. (a -> ()) -> NFData a rnf :: ClientBatchStatus_InvalidTransaction -> () $crnf :: ClientBatchStatus_InvalidTransaction -> () -Hs.NFData) - -instance HsProtobuf.Named ClientBatchStatus_InvalidTransaction - where - nameOf :: Proxy# ClientBatchStatus_InvalidTransaction -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ClientBatchStatus_InvalidTransaction + where + nameOf :: Proxy# ClientBatchStatus_InvalidTransaction -> string +nameOf Proxy# ClientBatchStatus_InvalidTransaction +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ClientBatchStatus_InvalidTransaction") - -instance HsProtobuf.HasDefault ClientBatchStatus_InvalidTransaction - -instance HsProtobuf.Message ClientBatchStatus_InvalidTransaction - where - encodeMessage :: FieldNumber +Hs.fromString String +"ClientBatchStatus_InvalidTransaction") + +instance HsProtobuf.HasDefault ClientBatchStatus_InvalidTransaction + +instance HsProtobuf.Message ClientBatchStatus_InvalidTransaction + where + encodeMessage :: FieldNumber -> ClientBatchStatus_InvalidTransaction -> MessageBuilder -encodeMessage _ - ClientBatchStatus_InvalidTransaction{clientBatchStatus_InvalidTransactionTransactionId :: ClientBatchStatus_InvalidTransaction -> Text +encodeMessage FieldNumber +_ + ClientBatchStatus_InvalidTransaction{clientBatchStatus_InvalidTransactionTransactionId :: ClientBatchStatus_InvalidTransaction -> Text clientBatchStatus_InvalidTransactionTransactionId - = - Text -clientBatchStatus_InvalidTransactionTransactionId, - clientBatchStatus_InvalidTransactionMessage :: ClientBatchStatus_InvalidTransaction -> Text + = + Text +clientBatchStatus_InvalidTransactionTransactionId, + clientBatchStatus_InvalidTransactionMessage :: ClientBatchStatus_InvalidTransaction -> Text clientBatchStatus_InvalidTransactionMessage = - Text -clientBatchStatus_InvalidTransactionMessage, - clientBatchStatus_InvalidTransactionExtendedData :: ClientBatchStatus_InvalidTransaction -> ByteString + Text +clientBatchStatus_InvalidTransactionMessage, + clientBatchStatus_InvalidTransactionExtendedData :: ClientBatchStatus_InvalidTransaction -> ByteString clientBatchStatus_InvalidTransactionExtendedData = - ByteString -clientBatchStatus_InvalidTransactionExtendedData} - = ([MessageBuilder] -> MessageBuilder + ByteString +clientBatchStatus_InvalidTransactionExtendedData} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> Text -> MessageBuilder +Hs.mconcat + [(FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Text -clientBatchStatus_InvalidTransactionTransactionId), - (FieldNumber -> Text -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Text +clientBatchStatus_InvalidTransactionTransactionId), + (FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - Text -clientBatchStatus_InvalidTransactionMessage), - (FieldNumber -> ByteString -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + Text +clientBatchStatus_InvalidTransactionMessage), + (FieldNumber -> ByteString -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - ByteString -clientBatchStatus_InvalidTransactionExtendedData)]) - decodeMessage :: FieldNumber +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + ByteString +clientBatchStatus_InvalidTransactionExtendedData)]) + decodeMessage :: FieldNumber -> Parser RawMessage ClientBatchStatus_InvalidTransaction -decodeMessage _ - = ((Text +decodeMessage FieldNumber +_ + = ((Text -> Text -> ByteString -> ClientBatchStatus_InvalidTransaction) -> Parser RawMessage (Text -> Text -> ByteString -> ClientBatchStatus_InvalidTransaction) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> Text -> ByteString -> ClientBatchStatus_InvalidTransaction +Hs.pure Text -> Text -> ByteString -> ClientBatchStatus_InvalidTransaction ClientBatchStatus_InvalidTransaction) Parser RawMessage (Text @@ -987,159 +1049,179 @@ forall (f :: * -> *) a. Applicative f => a -> f a RawMessage (Text -> ByteString -> ClientBatchStatus_InvalidTransaction) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (Text -> ByteString -> ClientBatchStatus_InvalidTransaction) -> Parser RawMessage Text -> Parser RawMessage (ByteString -> ClientBatchStatus_InvalidTransaction) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2)) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2)) + Parser RawMessage (ByteString -> ClientBatchStatus_InvalidTransaction) -> Parser RawMessage ByteString -> Parser RawMessage ClientBatchStatus_InvalidTransaction forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField ByteString +<*> + (Parser RawField ByteString -> FieldNumber -> Parser RawMessage ByteString forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField ByteString +HsProtobuf.at Parser RawField ByteString forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3)) - dotProto :: Proxy# ClientBatchStatus_InvalidTransaction -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3)) + dotProto :: Proxy# ClientBatchStatus_InvalidTransaction -> [DotProtoField] +dotProto Proxy# ClientBatchStatus_InvalidTransaction +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "transaction_id") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"transaction_id") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "message") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"message") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.Bytes) - (String -> DotProtoIdentifier -HsProtobuf.Single "extended_data") - [] - "")] - -instance HsJSONPB.ToJSONPB ClientBatchStatus_InvalidTransaction - where - toJSONPB :: ClientBatchStatus_InvalidTransaction -> Options -> Value -toJSONPB (ClientBatchStatus_InvalidTransaction f1 :: Text -f1 f2 :: Text -f2 f3 :: ByteString -f3) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object - ["transaction_id" Text -> Text -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.Bytes) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"extended_data") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ClientBatchStatus_InvalidTransaction + where + toJSONPB :: ClientBatchStatus_InvalidTransaction -> Options -> Value +toJSONPB (ClientBatchStatus_InvalidTransaction Text +f1 Text +f2 ByteString +f3) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object + [Text +"transaction_id" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1, "message" Text -> Text -> Options -> [Pair] +.= Text +f1, Text +"message" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f2, "extended_data" Text -> ByteString -> Options -> [Pair] +.= Text +f2, Text +"extended_data" Text -> ByteString -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f3]) - toEncodingPB :: ClientBatchStatus_InvalidTransaction -> Options -> Encoding -toEncodingPB (ClientBatchStatus_InvalidTransaction f1 :: Text -f1 f2 :: Text -f2 f3 :: ByteString -f3) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs - ["transaction_id" Text -> Text -> Options -> Series +.= ByteString +f3]) + toEncodingPB :: ClientBatchStatus_InvalidTransaction -> Options -> Encoding +toEncodingPB (ClientBatchStatus_InvalidTransaction Text +f1 Text +f2 ByteString +f3) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs + [Text +"transaction_id" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1, "message" Text -> Text -> Options -> Series +.= Text +f1, Text +"message" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f2, "extended_data" Text -> ByteString -> Options -> Series +.= Text +f2, Text +"extended_data" Text -> ByteString -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f3]) - -instance HsJSONPB.FromJSONPB ClientBatchStatus_InvalidTransaction - where - parseJSONPB :: Value -> Parser ClientBatchStatus_InvalidTransaction -parseJSONPB - = (String +.= ByteString +f3]) + +instance HsJSONPB.FromJSONPB ClientBatchStatus_InvalidTransaction + where + parseJSONPB :: Value -> Parser ClientBatchStatus_InvalidTransaction +parseJSONPB + = (String -> (Object -> Parser ClientBatchStatus_InvalidTransaction) -> Value -> Parser ClientBatchStatus_InvalidTransaction forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ClientBatchStatus_InvalidTransaction" - (\ obj :: Object -obj -> - ((Text +HsJSONPB.withObject String +"ClientBatchStatus_InvalidTransaction" + (\ Object +obj -> + ((Text -> Text -> ByteString -> ClientBatchStatus_InvalidTransaction) -> Parser (Text -> Text -> ByteString -> ClientBatchStatus_InvalidTransaction) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> Text -> ByteString -> ClientBatchStatus_InvalidTransaction +Hs.pure Text -> Text -> ByteString -> ClientBatchStatus_InvalidTransaction ClientBatchStatus_InvalidTransaction) Parser (Text -> Text -> ByteString -> ClientBatchStatus_InvalidTransaction) @@ -1147,108 +1229,112 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Parser (Text -> ByteString -> ClientBatchStatus_InvalidTransaction) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser Text +<*> + Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "transaction_id" - Parser (Text -> ByteString -> ClientBatchStatus_InvalidTransaction) +.: Text +"transaction_id" + Parser (Text -> ByteString -> ClientBatchStatus_InvalidTransaction) -> Parser Text -> Parser (ByteString -> ClientBatchStatus_InvalidTransaction) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Text +<*> Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "message" - Parser (ByteString -> ClientBatchStatus_InvalidTransaction) +.: Text +"message" + Parser (ByteString -> ClientBatchStatus_InvalidTransaction) -> Parser ByteString -> Parser ClientBatchStatus_InvalidTransaction forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser ByteString +<*> Object +obj Object -> Text -> Parser ByteString forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "extended_data")) - -instance HsJSONPB.ToJSON ClientBatchStatus_InvalidTransaction where - toJSON :: ClientBatchStatus_InvalidTransaction -> Value -toJSON = ClientBatchStatus_InvalidTransaction -> Value +.: Text +"extended_data")) + +instance HsJSONPB.ToJSON ClientBatchStatus_InvalidTransaction where + toJSON :: ClientBatchStatus_InvalidTransaction -> Value +toJSON = ClientBatchStatus_InvalidTransaction -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ClientBatchStatus_InvalidTransaction -> Encoding -toEncoding = ClientBatchStatus_InvalidTransaction -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ClientBatchStatus_InvalidTransaction -> Encoding +toEncoding = ClientBatchStatus_InvalidTransaction -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ClientBatchStatus_InvalidTransaction - where - parseJSON :: Value -> Parser ClientBatchStatus_InvalidTransaction -parseJSON = Value -> Parser ClientBatchStatus_InvalidTransaction +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ClientBatchStatus_InvalidTransaction + where + parseJSON :: Value -> Parser ClientBatchStatus_InvalidTransaction +parseJSON = Value -> Parser ClientBatchStatus_InvalidTransaction forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ClientBatchStatus_InvalidTransaction - where - declareNamedSchema :: Proxy ClientBatchStatus_InvalidTransaction +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ClientBatchStatus_InvalidTransaction + where + declareNamedSchema :: Proxy ClientBatchStatus_InvalidTransaction -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_transaction_id :: Proxy (OverrideToSchema Text) +declareNamedSchema Proxy ClientBatchStatus_InvalidTransaction +_ + = do let declare_transaction_id :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_transaction_id = Proxy (OverrideToSchema Text) +declare_transaction_id = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientBatchStatus_InvalidTransactionTransactionId <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +clientBatchStatus_InvalidTransactionTransactionId <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_transaction_id - Proxy (OverrideToSchema Text) +declare_transaction_id + Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_message :: Proxy (OverrideToSchema Text) +Proxy.Proxy + let declare_message :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_message = Proxy (OverrideToSchema Text) +declare_message = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientBatchStatus_InvalidTransactionMessage <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +clientBatchStatus_InvalidTransactionMessage <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_message - Proxy (OverrideToSchema Text) +declare_message + Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_extended_data :: Proxy (OverrideToSchema ByteString) +Proxy.Proxy + let declare_extended_data :: Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_extended_data = Proxy (OverrideToSchema ByteString) +declare_extended_data = Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientBatchStatus_InvalidTransactionExtendedData <- Proxy (OverrideToSchema ByteString) +HsJSONPB.declareSchemaRef + Referenced Schema +clientBatchStatus_InvalidTransactionExtendedData <- Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_extended_data - Proxy (OverrideToSchema ByteString) +declare_extended_data + Proxy (OverrideToSchema ByteString) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ClientBatchStatus_InvalidTransaction +Proxy.Proxy + let Proxy ClientBatchStatus_InvalidTransaction _ = (Text -> Text -> ByteString -> ClientBatchStatus_InvalidTransaction) -> Proxy (Text -> Text -> ByteString -> ClientBatchStatus_InvalidTransaction) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> Text -> ByteString -> ClientBatchStatus_InvalidTransaction +Hs.pure Text -> Text -> ByteString -> ClientBatchStatus_InvalidTransaction ClientBatchStatus_InvalidTransaction Proxy (Text -> Text -> ByteString -> ClientBatchStatus_InvalidTransaction) @@ -1256,79 +1342,83 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Proxy (Text -> ByteString -> ClientBatchStatus_InvalidTransaction) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema Text) +<*> + (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_transaction_id - Proxy (Text -> ByteString -> ClientBatchStatus_InvalidTransaction) +declare_transaction_id + Proxy (Text -> ByteString -> ClientBatchStatus_InvalidTransaction) -> Proxy Text -> Proxy (ByteString -> ClientBatchStatus_InvalidTransaction) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema Text) +<*> (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_message - Proxy (ByteString -> ClientBatchStatus_InvalidTransaction) +declare_message + Proxy (ByteString -> ClientBatchStatus_InvalidTransaction) -> Proxy ByteString -> Proxy ClientBatchStatus_InvalidTransaction forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema ByteString) +<*> (Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy ByteString forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) +HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_extended_data - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_extended_data + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ClientBatchStatus_InvalidTransaction", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ClientBatchStatus_InvalidTransaction", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("transaction_id", - Referenced Schema -clientBatchStatus_InvalidTransactionTransactionId), - ("message", - Referenced Schema -clientBatchStatus_InvalidTransactionMessage), - ("extended_data", - Referenced Schema -clientBatchStatus_InvalidTransactionExtendedData)]}}) - -newtype ClientBatchSubmitRequest = ClientBatchSubmitRequest{ClientBatchSubmitRequest -> Vector Batch +HsJSONPB.insOrdFromList + [(Text +"transaction_id", + Referenced Schema +clientBatchStatus_InvalidTransactionTransactionId), + (Text +"message", + Referenced Schema +clientBatchStatus_InvalidTransactionMessage), + (Text +"extended_data", + Referenced Schema +clientBatchStatus_InvalidTransactionExtendedData)]}}) + +newtype ClientBatchSubmitRequest = ClientBatchSubmitRequest{ClientBatchSubmitRequest -> Vector Batch clientBatchSubmitRequestBatches - :: Hs.Vector Data.Sawtooth.Batch.Batch} - deriving (Int -> ClientBatchSubmitRequest -> ShowS + :: Hs.Vector Data.Sawtooth.Batch.Batch} + deriving (Int -> ClientBatchSubmitRequest -> ShowS [ClientBatchSubmitRequest] -> ShowS ClientBatchSubmitRequest -> String (Int -> ClientBatchSubmitRequest -> ShowS) @@ -1343,7 +1433,7 @@ show :: ClientBatchSubmitRequest -> String $cshow :: ClientBatchSubmitRequest -> String showsPrec :: Int -> ClientBatchSubmitRequest -> ShowS $cshowsPrec :: Int -> ClientBatchSubmitRequest -> ShowS -Hs.Show, ClientBatchSubmitRequest -> ClientBatchSubmitRequest -> Bool +Hs.Show, ClientBatchSubmitRequest -> ClientBatchSubmitRequest -> Bool (ClientBatchSubmitRequest -> ClientBatchSubmitRequest -> Bool) -> (ClientBatchSubmitRequest -> ClientBatchSubmitRequest -> Bool) -> Eq ClientBatchSubmitRequest @@ -1352,9 +1442,10 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: ClientBatchSubmitRequest -> ClientBatchSubmitRequest -> Bool == :: ClientBatchSubmitRequest -> ClientBatchSubmitRequest -> Bool $c== :: ClientBatchSubmitRequest -> ClientBatchSubmitRequest -> Bool -Hs.Eq, Eq ClientBatchSubmitRequest -Eq ClientBatchSubmitRequest => -(ClientBatchSubmitRequest -> ClientBatchSubmitRequest -> Ordering) +Hs.Eq, Eq ClientBatchSubmitRequest +Eq ClientBatchSubmitRequest +-> (ClientBatchSubmitRequest + -> ClientBatchSubmitRequest -> Ordering) -> (ClientBatchSubmitRequest -> ClientBatchSubmitRequest -> Bool) -> (ClientBatchSubmitRequest -> ClientBatchSubmitRequest -> Bool) -> (ClientBatchSubmitRequest -> ClientBatchSubmitRequest -> Bool) @@ -1369,8 +1460,8 @@ ClientBatchSubmitRequest -> ClientBatchSubmitRequest -> Ordering ClientBatchSubmitRequest -> ClientBatchSubmitRequest -> ClientBatchSubmitRequest forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -1397,7 +1488,7 @@ $c< :: ClientBatchSubmitRequest -> ClientBatchSubmitRequest -> Bool compare :: ClientBatchSubmitRequest -> ClientBatchSubmitRequest -> Ordering $ccompare :: ClientBatchSubmitRequest -> ClientBatchSubmitRequest -> Ordering $cp1Ord :: Eq ClientBatchSubmitRequest -Hs.Ord, (forall x. +Hs.Ord, (forall x. ClientBatchSubmitRequest -> Rep ClientBatchSubmitRequest x) -> (forall x. Rep ClientBatchSubmitRequest x -> ClientBatchSubmitRequest) @@ -1412,222 +1503,238 @@ $cto :: forall x. Rep ClientBatchSubmitRequest x -> ClientBatchSubmitRequest $cfrom :: forall x. ClientBatchSubmitRequest -> Rep ClientBatchSubmitRequest x -Hs.Generic, ClientBatchSubmitRequest -> () +Hs.Generic, ClientBatchSubmitRequest -> () (ClientBatchSubmitRequest -> ()) -> NFData ClientBatchSubmitRequest forall a. (a -> ()) -> NFData a rnf :: ClientBatchSubmitRequest -> () $crnf :: ClientBatchSubmitRequest -> () -Hs.NFData) - -instance HsProtobuf.Named ClientBatchSubmitRequest where - nameOf :: Proxy# ClientBatchSubmitRequest -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ClientBatchSubmitRequest where + nameOf :: Proxy# ClientBatchSubmitRequest -> string +nameOf Proxy# ClientBatchSubmitRequest +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ClientBatchSubmitRequest") - -instance HsProtobuf.HasDefault ClientBatchSubmitRequest - -instance HsProtobuf.Message ClientBatchSubmitRequest where - encodeMessage :: FieldNumber -> ClientBatchSubmitRequest -> MessageBuilder -encodeMessage _ - ClientBatchSubmitRequest{clientBatchSubmitRequestBatches :: ClientBatchSubmitRequest -> Vector Batch +Hs.fromString String +"ClientBatchSubmitRequest") + +instance HsProtobuf.HasDefault ClientBatchSubmitRequest + +instance HsProtobuf.Message ClientBatchSubmitRequest where + encodeMessage :: FieldNumber -> ClientBatchSubmitRequest -> MessageBuilder +encodeMessage FieldNumber +_ + ClientBatchSubmitRequest{clientBatchSubmitRequestBatches :: ClientBatchSubmitRequest -> Vector Batch clientBatchSubmitRequestBatches = - Vector Batch -clientBatchSubmitRequestBatches} - = ([MessageBuilder] -> MessageBuilder + Vector Batch +clientBatchSubmitRequestBatches} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> NestedVec Batch -> MessageBuilder +Hs.mconcat + [(FieldNumber -> NestedVec Batch -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (Vector Batch -> NestedVec Batch -forall a b. Coercible a b => a -> b -Hs.coerce @(Hs.Vector Data.Sawtooth.Batch.Batch) - @(HsProtobuf.NestedVec Data.Sawtooth.Batch.Batch) - Vector Batch -clientBatchSubmitRequestBatches))]) - decodeMessage :: FieldNumber -> Parser RawMessage ClientBatchSubmitRequest -decodeMessage _ - = ((Vector Batch -> ClientBatchSubmitRequest) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (Vector Batch -> NestedVec Batch +Hs.coerce @(Hs.Vector Data.Sawtooth.Batch.Batch) + @(HsProtobuf.NestedVec Data.Sawtooth.Batch.Batch) + Vector Batch +clientBatchSubmitRequestBatches))]) + decodeMessage :: FieldNumber -> Parser RawMessage ClientBatchSubmitRequest +decodeMessage FieldNumber +_ + = ((Vector Batch -> ClientBatchSubmitRequest) -> Parser RawMessage (Vector Batch -> ClientBatchSubmitRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector Batch -> ClientBatchSubmitRequest +Hs.pure Vector Batch -> ClientBatchSubmitRequest ClientBatchSubmitRequest) Parser RawMessage (Vector Batch -> ClientBatchSubmitRequest) -> Parser RawMessage (Vector Batch) -> Parser RawMessage ClientBatchSubmitRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (NestedVec Batch) +<*> + (Parser RawMessage (NestedVec Batch) -> Parser RawMessage (Vector Batch) -forall a b. Coercible a b => a -> b -Hs.coerce @(_ (HsProtobuf.NestedVec Data.Sawtooth.Batch.Batch)) - @(_ (Hs.Vector Data.Sawtooth.Batch.Batch)) - (Parser RawField (NestedVec Batch) +Hs.coerce @(_ (HsProtobuf.NestedVec Data.Sawtooth.Batch.Batch)) + @(_ (Hs.Vector Data.Sawtooth.Batch.Batch)) + (Parser RawField (NestedVec Batch) -> FieldNumber -> Parser RawMessage (NestedVec Batch) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (NestedVec Batch) +HsProtobuf.at Parser RawField (NestedVec Batch) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1))) - dotProto :: Proxy# ClientBatchSubmitRequest -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1))) + dotProto :: Proxy# ClientBatchSubmitRequest -> [DotProtoField] +dotProto Proxy# ClientBatchSubmitRequest +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Repeated - (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "Batch"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "batches") - [] - "")] - -instance HsJSONPB.ToJSONPB ClientBatchSubmitRequest where - toJSONPB :: ClientBatchSubmitRequest -> Options -> Value -toJSONPB (ClientBatchSubmitRequest f1 :: Vector Batch -f1) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["batches" Text -> Vector Batch -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Repeated + (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"Batch"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"batches") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ClientBatchSubmitRequest where + toJSONPB :: ClientBatchSubmitRequest -> Options -> Value +toJSONPB (ClientBatchSubmitRequest Vector Batch +f1) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"batches" Text -> Vector Batch -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Batch -f1]) - toEncodingPB :: ClientBatchSubmitRequest -> Options -> Encoding -toEncodingPB (ClientBatchSubmitRequest f1 :: Vector Batch -f1) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["batches" Text -> Vector Batch -> Options -> Series +.= Vector Batch +f1]) + toEncodingPB :: ClientBatchSubmitRequest -> Options -> Encoding +toEncodingPB (ClientBatchSubmitRequest Vector Batch +f1) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"batches" Text -> Vector Batch -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Batch -f1]) - -instance HsJSONPB.FromJSONPB ClientBatchSubmitRequest where - parseJSONPB :: Value -> Parser ClientBatchSubmitRequest -parseJSONPB - = (String +.= Vector Batch +f1]) + +instance HsJSONPB.FromJSONPB ClientBatchSubmitRequest where + parseJSONPB :: Value -> Parser ClientBatchSubmitRequest +parseJSONPB + = (String -> (Object -> Parser ClientBatchSubmitRequest) -> Value -> Parser ClientBatchSubmitRequest forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ClientBatchSubmitRequest" - (\ obj :: Object -obj -> ((Vector Batch -> ClientBatchSubmitRequest) +HsJSONPB.withObject String +"ClientBatchSubmitRequest" + (\ Object +obj -> ((Vector Batch -> ClientBatchSubmitRequest) -> Parser (Vector Batch -> ClientBatchSubmitRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector Batch -> ClientBatchSubmitRequest +Hs.pure Vector Batch -> ClientBatchSubmitRequest ClientBatchSubmitRequest) Parser (Vector Batch -> ClientBatchSubmitRequest) -> Parser (Vector Batch) -> Parser ClientBatchSubmitRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser (Vector Batch) +<*> Object +obj Object -> Text -> Parser (Vector Batch) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "batches")) - -instance HsJSONPB.ToJSON ClientBatchSubmitRequest where - toJSON :: ClientBatchSubmitRequest -> Value -toJSON = ClientBatchSubmitRequest -> Value +.: Text +"batches")) + +instance HsJSONPB.ToJSON ClientBatchSubmitRequest where + toJSON :: ClientBatchSubmitRequest -> Value +toJSON = ClientBatchSubmitRequest -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ClientBatchSubmitRequest -> Encoding -toEncoding = ClientBatchSubmitRequest -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ClientBatchSubmitRequest -> Encoding +toEncoding = ClientBatchSubmitRequest -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ClientBatchSubmitRequest where - parseJSON :: Value -> Parser ClientBatchSubmitRequest -parseJSON = Value -> Parser ClientBatchSubmitRequest +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ClientBatchSubmitRequest where + parseJSON :: Value -> Parser ClientBatchSubmitRequest +parseJSON = Value -> Parser ClientBatchSubmitRequest forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ClientBatchSubmitRequest where - declareNamedSchema :: Proxy ClientBatchSubmitRequest +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ClientBatchSubmitRequest where + declareNamedSchema :: Proxy ClientBatchSubmitRequest -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_batches :: Proxy (OverrideToSchema (Vector Batch)) +declareNamedSchema Proxy ClientBatchSubmitRequest +_ + = do let declare_batches :: Proxy (OverrideToSchema (Vector Batch)) -> Declare (Definitions Schema) (Referenced Schema) -declare_batches = Proxy (OverrideToSchema (Vector Batch)) +declare_batches = Proxy (OverrideToSchema (Vector Batch)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientBatchSubmitRequestBatches <- Proxy (OverrideToSchema (Vector Batch)) +HsJSONPB.declareSchemaRef + Referenced Schema +clientBatchSubmitRequestBatches <- Proxy (OverrideToSchema (Vector Batch)) -> Declare (Definitions Schema) (Referenced Schema) -declare_batches Proxy (OverrideToSchema (Vector Batch)) +declare_batches Proxy (OverrideToSchema (Vector Batch)) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ClientBatchSubmitRequest +Proxy.Proxy + let Proxy ClientBatchSubmitRequest _ = (Vector Batch -> ClientBatchSubmitRequest) -> Proxy (Vector Batch -> ClientBatchSubmitRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector Batch -> ClientBatchSubmitRequest +Hs.pure Vector Batch -> ClientBatchSubmitRequest ClientBatchSubmitRequest Proxy (Vector Batch -> ClientBatchSubmitRequest) -> Proxy (Vector Batch) -> Proxy ClientBatchSubmitRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema (Vector Batch)) +<*> + (Proxy (OverrideToSchema (Vector Batch)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Vector Batch) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Batch)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Batch)) -> Declare (Definitions Schema) (Referenced Schema) -declare_batches - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_batches + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ClientBatchSubmitRequest", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ClientBatchSubmitRequest", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("batches", - Referenced Schema -clientBatchSubmitRequestBatches)]}}) - -newtype ClientBatchSubmitResponse = ClientBatchSubmitResponse{ClientBatchSubmitResponse +HsJSONPB.insOrdFromList + [(Text +"batches", + Referenced Schema +clientBatchSubmitRequestBatches)]}}) + +newtype ClientBatchSubmitResponse = ClientBatchSubmitResponse{ClientBatchSubmitResponse -> Enumerated ClientBatchSubmitResponse_Status clientBatchSubmitResponseStatus - :: - HsProtobuf.Enumerated - Data.Sawtooth.ClientBatchSubmit.ClientBatchSubmitResponse_Status} - deriving (Int -> ClientBatchSubmitResponse -> ShowS + :: + HsProtobuf.Enumerated + Data.Sawtooth.ClientBatchSubmit.ClientBatchSubmitResponse_Status} + deriving (Int -> ClientBatchSubmitResponse -> ShowS [ClientBatchSubmitResponse] -> ShowS ClientBatchSubmitResponse -> String (Int -> ClientBatchSubmitResponse -> ShowS) @@ -1642,7 +1749,7 @@ show :: ClientBatchSubmitResponse -> String $cshow :: ClientBatchSubmitResponse -> String showsPrec :: Int -> ClientBatchSubmitResponse -> ShowS $cshowsPrec :: Int -> ClientBatchSubmitResponse -> ShowS -Hs.Show, ClientBatchSubmitResponse -> ClientBatchSubmitResponse -> Bool +Hs.Show, ClientBatchSubmitResponse -> ClientBatchSubmitResponse -> Bool (ClientBatchSubmitResponse -> ClientBatchSubmitResponse -> Bool) -> (ClientBatchSubmitResponse -> ClientBatchSubmitResponse -> Bool) -> Eq ClientBatchSubmitResponse @@ -1651,10 +1758,10 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: ClientBatchSubmitResponse -> ClientBatchSubmitResponse -> Bool == :: ClientBatchSubmitResponse -> ClientBatchSubmitResponse -> Bool $c== :: ClientBatchSubmitResponse -> ClientBatchSubmitResponse -> Bool -Hs.Eq, Eq ClientBatchSubmitResponse -Eq ClientBatchSubmitResponse => -(ClientBatchSubmitResponse - -> ClientBatchSubmitResponse -> Ordering) +Hs.Eq, Eq ClientBatchSubmitResponse +Eq ClientBatchSubmitResponse +-> (ClientBatchSubmitResponse + -> ClientBatchSubmitResponse -> Ordering) -> (ClientBatchSubmitResponse -> ClientBatchSubmitResponse -> Bool) -> (ClientBatchSubmitResponse -> ClientBatchSubmitResponse -> Bool) -> (ClientBatchSubmitResponse -> ClientBatchSubmitResponse -> Bool) @@ -1669,8 +1776,8 @@ ClientBatchSubmitResponse -> ClientBatchSubmitResponse -> Ordering ClientBatchSubmitResponse -> ClientBatchSubmitResponse -> ClientBatchSubmitResponse forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -1697,7 +1804,7 @@ $c< :: ClientBatchSubmitResponse -> ClientBatchSubmitResponse -> Bool compare :: ClientBatchSubmitResponse -> ClientBatchSubmitResponse -> Ordering $ccompare :: ClientBatchSubmitResponse -> ClientBatchSubmitResponse -> Ordering $cp1Ord :: Eq ClientBatchSubmitResponse -Hs.Ord, (forall x. +Hs.Ord, (forall x. ClientBatchSubmitResponse -> Rep ClientBatchSubmitResponse x) -> (forall x. Rep ClientBatchSubmitResponse x -> ClientBatchSubmitResponse) @@ -1712,50 +1819,55 @@ $cto :: forall x. Rep ClientBatchSubmitResponse x -> ClientBatchSubmitResponse $cfrom :: forall x. ClientBatchSubmitResponse -> Rep ClientBatchSubmitResponse x -Hs.Generic, ClientBatchSubmitResponse -> () +Hs.Generic, ClientBatchSubmitResponse -> () (ClientBatchSubmitResponse -> ()) -> NFData ClientBatchSubmitResponse forall a. (a -> ()) -> NFData a rnf :: ClientBatchSubmitResponse -> () $crnf :: ClientBatchSubmitResponse -> () -Hs.NFData) - -instance HsProtobuf.Named ClientBatchSubmitResponse where - nameOf :: Proxy# ClientBatchSubmitResponse -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ClientBatchSubmitResponse where + nameOf :: Proxy# ClientBatchSubmitResponse -> string +nameOf Proxy# ClientBatchSubmitResponse +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ClientBatchSubmitResponse") - -instance HsProtobuf.HasDefault ClientBatchSubmitResponse - -instance HsProtobuf.Message ClientBatchSubmitResponse where - encodeMessage :: FieldNumber -> ClientBatchSubmitResponse -> MessageBuilder -encodeMessage _ - ClientBatchSubmitResponse{clientBatchSubmitResponseStatus :: ClientBatchSubmitResponse +Hs.fromString String +"ClientBatchSubmitResponse") + +instance HsProtobuf.HasDefault ClientBatchSubmitResponse + +instance HsProtobuf.Message ClientBatchSubmitResponse where + encodeMessage :: FieldNumber -> ClientBatchSubmitResponse -> MessageBuilder +encodeMessage FieldNumber +_ + ClientBatchSubmitResponse{clientBatchSubmitResponseStatus :: ClientBatchSubmitResponse -> Enumerated ClientBatchSubmitResponse_Status clientBatchSubmitResponseStatus = - Enumerated ClientBatchSubmitResponse_Status -clientBatchSubmitResponseStatus} - = ([MessageBuilder] -> MessageBuilder + Enumerated ClientBatchSubmitResponse_Status +clientBatchSubmitResponseStatus} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber +Hs.mconcat + [(FieldNumber -> Enumerated ClientBatchSubmitResponse_Status -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Enumerated ClientBatchSubmitResponse_Status -clientBatchSubmitResponseStatus)]) - decodeMessage :: FieldNumber -> Parser RawMessage ClientBatchSubmitResponse -decodeMessage _ - = ((Enumerated ClientBatchSubmitResponse_Status +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Enumerated ClientBatchSubmitResponse_Status +clientBatchSubmitResponseStatus)]) + decodeMessage :: FieldNumber -> Parser RawMessage ClientBatchSubmitResponse +decodeMessage FieldNumber +_ + = ((Enumerated ClientBatchSubmitResponse_Status -> ClientBatchSubmitResponse) -> Parser RawMessage (Enumerated ClientBatchSubmitResponse_Status -> ClientBatchSubmitResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ClientBatchSubmitResponse_Status +Hs.pure Enumerated ClientBatchSubmitResponse_Status -> ClientBatchSubmitResponse ClientBatchSubmitResponse) Parser RawMessage @@ -1764,76 +1876,85 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Parser RawMessage (Enumerated ClientBatchSubmitResponse_Status) -> Parser RawMessage ClientBatchSubmitResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField (Enumerated ClientBatchSubmitResponse_Status) +<*> + (Parser RawField (Enumerated ClientBatchSubmitResponse_Status) -> FieldNumber -> Parser RawMessage (Enumerated ClientBatchSubmitResponse_Status) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (Enumerated ClientBatchSubmitResponse_Status) +HsProtobuf.at Parser RawField (Enumerated ClientBatchSubmitResponse_Status) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - dotProto :: Proxy# ClientBatchSubmitResponse -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + dotProto :: Proxy# ClientBatchSubmitResponse -> [DotProtoField] +dotProto Proxy# ClientBatchSubmitResponse +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "Status"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "status") - [] - "")] - -instance HsJSONPB.ToJSONPB ClientBatchSubmitResponse where - toJSONPB :: ClientBatchSubmitResponse -> Options -> Value -toJSONPB (ClientBatchSubmitResponse f1 :: Enumerated ClientBatchSubmitResponse_Status -f1) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["status" Text +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"Status"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"status") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ClientBatchSubmitResponse where + toJSONPB :: ClientBatchSubmitResponse -> Options -> Value +toJSONPB (ClientBatchSubmitResponse Enumerated ClientBatchSubmitResponse_Status +f1) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"status" Text -> Enumerated ClientBatchSubmitResponse_Status -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated ClientBatchSubmitResponse_Status -f1]) - toEncodingPB :: ClientBatchSubmitResponse -> Options -> Encoding -toEncodingPB (ClientBatchSubmitResponse f1 :: Enumerated ClientBatchSubmitResponse_Status -f1) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["status" Text +.= Enumerated ClientBatchSubmitResponse_Status +f1]) + toEncodingPB :: ClientBatchSubmitResponse -> Options -> Encoding +toEncodingPB (ClientBatchSubmitResponse Enumerated ClientBatchSubmitResponse_Status +f1) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"status" Text -> Enumerated ClientBatchSubmitResponse_Status -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated ClientBatchSubmitResponse_Status -f1]) - -instance HsJSONPB.FromJSONPB ClientBatchSubmitResponse where - parseJSONPB :: Value -> Parser ClientBatchSubmitResponse -parseJSONPB - = (String +.= Enumerated ClientBatchSubmitResponse_Status +f1]) + +instance HsJSONPB.FromJSONPB ClientBatchSubmitResponse where + parseJSONPB :: Value -> Parser ClientBatchSubmitResponse +parseJSONPB + = (String -> (Object -> Parser ClientBatchSubmitResponse) -> Value -> Parser ClientBatchSubmitResponse forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ClientBatchSubmitResponse" - (\ obj :: Object -obj -> ((Enumerated ClientBatchSubmitResponse_Status +HsJSONPB.withObject String +"ClientBatchSubmitResponse" + (\ Object +obj -> ((Enumerated ClientBatchSubmitResponse_Status -> ClientBatchSubmitResponse) -> Parser (Enumerated ClientBatchSubmitResponse_Status -> ClientBatchSubmitResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ClientBatchSubmitResponse_Status +Hs.pure Enumerated ClientBatchSubmitResponse_Status -> ClientBatchSubmitResponse ClientBatchSubmitResponse) Parser (Enumerated ClientBatchSubmitResponse_Status @@ -1841,60 +1962,62 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Parser (Enumerated ClientBatchSubmitResponse_Status) -> Parser ClientBatchSubmitResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object +<*> Object +obj Object -> Text -> Parser (Enumerated ClientBatchSubmitResponse_Status) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "status")) - -instance HsJSONPB.ToJSON ClientBatchSubmitResponse where - toJSON :: ClientBatchSubmitResponse -> Value -toJSON = ClientBatchSubmitResponse -> Value +.: Text +"status")) + +instance HsJSONPB.ToJSON ClientBatchSubmitResponse where + toJSON :: ClientBatchSubmitResponse -> Value +toJSON = ClientBatchSubmitResponse -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ClientBatchSubmitResponse -> Encoding -toEncoding = ClientBatchSubmitResponse -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ClientBatchSubmitResponse -> Encoding +toEncoding = ClientBatchSubmitResponse -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ClientBatchSubmitResponse where - parseJSON :: Value -> Parser ClientBatchSubmitResponse -parseJSON = Value -> Parser ClientBatchSubmitResponse +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ClientBatchSubmitResponse where + parseJSON :: Value -> Parser ClientBatchSubmitResponse +parseJSON = Value -> Parser ClientBatchSubmitResponse forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ClientBatchSubmitResponse where - declareNamedSchema :: Proxy ClientBatchSubmitResponse +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ClientBatchSubmitResponse where + declareNamedSchema :: Proxy ClientBatchSubmitResponse -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_status :: Proxy +declareNamedSchema Proxy ClientBatchSubmitResponse +_ + = do let declare_status :: Proxy (OverrideToSchema (Enumerated ClientBatchSubmitResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status = Proxy +declare_status = Proxy (OverrideToSchema (Enumerated ClientBatchSubmitResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientBatchSubmitResponseStatus <- Proxy +HsJSONPB.declareSchemaRef + Referenced Schema +clientBatchSubmitResponseStatus <- Proxy (OverrideToSchema (Enumerated ClientBatchSubmitResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status Proxy +declare_status Proxy (OverrideToSchema (Enumerated ClientBatchSubmitResponse_Status)) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ClientBatchSubmitResponse +Proxy.Proxy + let Proxy ClientBatchSubmitResponse _ = (Enumerated ClientBatchSubmitResponse_Status -> ClientBatchSubmitResponse) -> Proxy (Enumerated ClientBatchSubmitResponse_Status -> ClientBatchSubmitResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ClientBatchSubmitResponse_Status +Hs.pure Enumerated ClientBatchSubmitResponse_Status -> ClientBatchSubmitResponse ClientBatchSubmitResponse Proxy (Enumerated ClientBatchSubmitResponse_Status @@ -1902,56 +2025,58 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Proxy (Enumerated ClientBatchSubmitResponse_Status) -> Proxy ClientBatchSubmitResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy +<*> + (Proxy (OverrideToSchema (Enumerated ClientBatchSubmitResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Enumerated ClientBatchSubmitResponse_Status) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy +HsJSONPB.asProxy Proxy (OverrideToSchema (Enumerated ClientBatchSubmitResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_status + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ClientBatchSubmitResponse", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ClientBatchSubmitResponse", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("status", - Referenced Schema -clientBatchSubmitResponseStatus)]}}) - -data ClientBatchSubmitResponse_Status = ClientBatchSubmitResponse_StatusSTATUS_UNSET - | ClientBatchSubmitResponse_StatusOK - | ClientBatchSubmitResponse_StatusINTERNAL_ERROR - | ClientBatchSubmitResponse_StatusINVALID_BATCH - | ClientBatchSubmitResponse_StatusQUEUE_FULL - deriving (Int -> ClientBatchSubmitResponse_Status -> ShowS +HsJSONPB.insOrdFromList + [(Text +"status", + Referenced Schema +clientBatchSubmitResponseStatus)]}}) + +data ClientBatchSubmitResponse_Status = ClientBatchSubmitResponse_StatusSTATUS_UNSET + | ClientBatchSubmitResponse_StatusOK + | ClientBatchSubmitResponse_StatusINTERNAL_ERROR + | ClientBatchSubmitResponse_StatusINVALID_BATCH + | ClientBatchSubmitResponse_StatusQUEUE_FULL + deriving (Int -> ClientBatchSubmitResponse_Status -> ShowS [ClientBatchSubmitResponse_Status] -> ShowS ClientBatchSubmitResponse_Status -> String (Int -> ClientBatchSubmitResponse_Status -> ShowS) @@ -1966,7 +2091,7 @@ show :: ClientBatchSubmitResponse_Status -> String $cshow :: ClientBatchSubmitResponse_Status -> String showsPrec :: Int -> ClientBatchSubmitResponse_Status -> ShowS $cshowsPrec :: Int -> ClientBatchSubmitResponse_Status -> ShowS -Hs.Show, ClientBatchSubmitResponse_Status +Hs.Show, ClientBatchSubmitResponse_Status -> ClientBatchSubmitResponse_Status -> Bool (ClientBatchSubmitResponse_Status -> ClientBatchSubmitResponse_Status -> Bool) @@ -1982,7 +2107,7 @@ $c/= :: ClientBatchSubmitResponse_Status -> ClientBatchSubmitResponse_Status -> Bool $c== :: ClientBatchSubmitResponse_Status -> ClientBatchSubmitResponse_Status -> Bool -Hs.Eq, (forall x. +Hs.Eq, (forall x. ClientBatchSubmitResponse_Status -> Rep ClientBatchSubmitResponse_Status x) -> (forall x. @@ -2003,174 +2128,195 @@ Rep ClientBatchSubmitResponse_Status x $cfrom :: forall x. ClientBatchSubmitResponse_Status -> Rep ClientBatchSubmitResponse_Status x -Hs.Generic, ClientBatchSubmitResponse_Status -> () +Hs.Generic, ClientBatchSubmitResponse_Status -> () (ClientBatchSubmitResponse_Status -> ()) -> NFData ClientBatchSubmitResponse_Status forall a. (a -> ()) -> NFData a rnf :: ClientBatchSubmitResponse_Status -> () $crnf :: ClientBatchSubmitResponse_Status -> () -Hs.NFData) - -instance HsProtobuf.Named ClientBatchSubmitResponse_Status where - nameOf :: Proxy# ClientBatchSubmitResponse_Status -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ClientBatchSubmitResponse_Status where + nameOf :: Proxy# ClientBatchSubmitResponse_Status -> string +nameOf Proxy# ClientBatchSubmitResponse_Status +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ClientBatchSubmitResponse_Status") - -instance HsProtobuf.HasDefault ClientBatchSubmitResponse_Status - -instance Hs.Bounded ClientBatchSubmitResponse_Status where - minBound :: ClientBatchSubmitResponse_Status -minBound = ClientBatchSubmitResponse_Status +Hs.fromString String +"ClientBatchSubmitResponse_Status") + +instance HsProtobuf.HasDefault ClientBatchSubmitResponse_Status + +instance Hs.Bounded ClientBatchSubmitResponse_Status where + minBound :: ClientBatchSubmitResponse_Status +minBound = ClientBatchSubmitResponse_Status ClientBatchSubmitResponse_StatusSTATUS_UNSET - maxBound :: ClientBatchSubmitResponse_Status -maxBound = ClientBatchSubmitResponse_Status + maxBound :: ClientBatchSubmitResponse_Status +maxBound = ClientBatchSubmitResponse_Status ClientBatchSubmitResponse_StatusQUEUE_FULL - -instance Hs.Ord ClientBatchSubmitResponse_Status where - compare :: ClientBatchSubmitResponse_Status + +instance Hs.Ord ClientBatchSubmitResponse_Status where + compare :: ClientBatchSubmitResponse_Status -> ClientBatchSubmitResponse_Status -> Ordering -compare x :: ClientBatchSubmitResponse_Status -x y :: ClientBatchSubmitResponse_Status -y - = Int32 -> Int32 -> Ordering +compare ClientBatchSubmitResponse_Status +x ClientBatchSubmitResponse_Status +y + = Int32 -> Int32 -> Ordering forall a. Ord a => a -> a -> Ordering -Hs.compare (ClientBatchSubmitResponse_Status -> Int32 +Hs.compare (ClientBatchSubmitResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum ClientBatchSubmitResponse_Status -x) - (ClientBatchSubmitResponse_Status -> Int32 +HsProtobuf.fromProtoEnum ClientBatchSubmitResponse_Status +x) + (ClientBatchSubmitResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum ClientBatchSubmitResponse_Status -y) - -instance HsProtobuf.ProtoEnum ClientBatchSubmitResponse_Status - where - toProtoEnumMay :: Int32 -> Maybe ClientBatchSubmitResponse_Status -toProtoEnumMay 0 - = ClientBatchSubmitResponse_Status +HsProtobuf.fromProtoEnum ClientBatchSubmitResponse_Status +y) + +instance HsProtobuf.ProtoEnum ClientBatchSubmitResponse_Status + where + toProtoEnumMay :: Int32 -> Maybe ClientBatchSubmitResponse_Status +toProtoEnumMay Int32 +0 + = ClientBatchSubmitResponse_Status -> Maybe ClientBatchSubmitResponse_Status forall a. a -> Maybe a -Hs.Just ClientBatchSubmitResponse_Status +Hs.Just ClientBatchSubmitResponse_Status ClientBatchSubmitResponse_StatusSTATUS_UNSET - toProtoEnumMay 1 = ClientBatchSubmitResponse_Status + toProtoEnumMay Int32 +1 = ClientBatchSubmitResponse_Status -> Maybe ClientBatchSubmitResponse_Status forall a. a -> Maybe a -Hs.Just ClientBatchSubmitResponse_Status +Hs.Just ClientBatchSubmitResponse_Status ClientBatchSubmitResponse_StatusOK - toProtoEnumMay 2 - = ClientBatchSubmitResponse_Status + toProtoEnumMay Int32 +2 + = ClientBatchSubmitResponse_Status -> Maybe ClientBatchSubmitResponse_Status forall a. a -> Maybe a -Hs.Just ClientBatchSubmitResponse_Status +Hs.Just ClientBatchSubmitResponse_Status ClientBatchSubmitResponse_StatusINTERNAL_ERROR - toProtoEnumMay 3 - = ClientBatchSubmitResponse_Status + toProtoEnumMay Int32 +3 + = ClientBatchSubmitResponse_Status -> Maybe ClientBatchSubmitResponse_Status forall a. a -> Maybe a -Hs.Just ClientBatchSubmitResponse_Status +Hs.Just ClientBatchSubmitResponse_Status ClientBatchSubmitResponse_StatusINVALID_BATCH - toProtoEnumMay 4 - = ClientBatchSubmitResponse_Status + toProtoEnumMay Int32 +4 + = ClientBatchSubmitResponse_Status -> Maybe ClientBatchSubmitResponse_Status forall a. a -> Maybe a -Hs.Just ClientBatchSubmitResponse_Status +Hs.Just ClientBatchSubmitResponse_Status ClientBatchSubmitResponse_StatusQUEUE_FULL - toProtoEnumMay _ = Maybe ClientBatchSubmitResponse_Status + toProtoEnumMay Int32 +_ = Maybe ClientBatchSubmitResponse_Status forall a. Maybe a -Hs.Nothing - fromProtoEnum :: ClientBatchSubmitResponse_Status -> Int32 -fromProtoEnum (ClientBatchSubmitResponse_Status -ClientBatchSubmitResponse_StatusSTATUS_UNSET) = 0 - fromProtoEnum (ClientBatchSubmitResponse_Status -ClientBatchSubmitResponse_StatusOK) = 1 - fromProtoEnum (ClientBatchSubmitResponse_Status -ClientBatchSubmitResponse_StatusINTERNAL_ERROR) = 2 - fromProtoEnum (ClientBatchSubmitResponse_Status -ClientBatchSubmitResponse_StatusINVALID_BATCH) = 3 - fromProtoEnum (ClientBatchSubmitResponse_Status -ClientBatchSubmitResponse_StatusQUEUE_FULL) = 4 - -instance HsJSONPB.ToJSONPB ClientBatchSubmitResponse_Status where - toJSONPB :: ClientBatchSubmitResponse_Status -> Options -> Value -toJSONPB x :: ClientBatchSubmitResponse_Status -x _ = ClientBatchSubmitResponse_Status -> Value +Hs.Nothing + fromProtoEnum :: ClientBatchSubmitResponse_Status -> Int32 +fromProtoEnum (ClientBatchSubmitResponse_Status +ClientBatchSubmitResponse_StatusSTATUS_UNSET) = Int32 +0 + fromProtoEnum (ClientBatchSubmitResponse_Status +ClientBatchSubmitResponse_StatusOK) = Int32 +1 + fromProtoEnum (ClientBatchSubmitResponse_Status +ClientBatchSubmitResponse_StatusINTERNAL_ERROR) = Int32 +2 + fromProtoEnum (ClientBatchSubmitResponse_Status +ClientBatchSubmitResponse_StatusINVALID_BATCH) = Int32 +3 + fromProtoEnum (ClientBatchSubmitResponse_Status +ClientBatchSubmitResponse_StatusQUEUE_FULL) = Int32 +4 + +instance HsJSONPB.ToJSONPB ClientBatchSubmitResponse_Status where + toJSONPB :: ClientBatchSubmitResponse_Status -> Options -> Value +toJSONPB ClientBatchSubmitResponse_Status +x Options +_ = ClientBatchSubmitResponse_Status -> Value forall a. (Named a, Show a) => a -> Value -HsJSONPB.enumFieldString ClientBatchSubmitResponse_Status -x - toEncodingPB :: ClientBatchSubmitResponse_Status -> Options -> Encoding -toEncodingPB x :: ClientBatchSubmitResponse_Status -x _ = ClientBatchSubmitResponse_Status -> Encoding +HsJSONPB.enumFieldString ClientBatchSubmitResponse_Status +x + toEncodingPB :: ClientBatchSubmitResponse_Status -> Options -> Encoding +toEncodingPB ClientBatchSubmitResponse_Status +x Options +_ = ClientBatchSubmitResponse_Status -> Encoding forall a. (Named a, Show a) => a -> Encoding -HsJSONPB.enumFieldEncoding ClientBatchSubmitResponse_Status -x - -instance HsJSONPB.FromJSONPB ClientBatchSubmitResponse_Status where - parseJSONPB :: Value -> Parser ClientBatchSubmitResponse_Status -parseJSONPB (HsJSONPB.String "STATUS_UNSET") - = ClientBatchSubmitResponse_Status +HsJSONPB.enumFieldEncoding ClientBatchSubmitResponse_Status +x + +instance HsJSONPB.FromJSONPB ClientBatchSubmitResponse_Status where + parseJSONPB :: Value -> Parser ClientBatchSubmitResponse_Status +parseJSONPB (HsJSONPB.String Text +"STATUS_UNSET") + = ClientBatchSubmitResponse_Status -> Parser ClientBatchSubmitResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientBatchSubmitResponse_Status +Hs.pure ClientBatchSubmitResponse_Status ClientBatchSubmitResponse_StatusSTATUS_UNSET - parseJSONPB (HsJSONPB.String "OK") - = ClientBatchSubmitResponse_Status + parseJSONPB (HsJSONPB.String Text +"OK") + = ClientBatchSubmitResponse_Status -> Parser ClientBatchSubmitResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientBatchSubmitResponse_Status +Hs.pure ClientBatchSubmitResponse_Status ClientBatchSubmitResponse_StatusOK - parseJSONPB (HsJSONPB.String "INTERNAL_ERROR") - = ClientBatchSubmitResponse_Status + parseJSONPB (HsJSONPB.String Text +"INTERNAL_ERROR") + = ClientBatchSubmitResponse_Status -> Parser ClientBatchSubmitResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientBatchSubmitResponse_Status +Hs.pure ClientBatchSubmitResponse_Status ClientBatchSubmitResponse_StatusINTERNAL_ERROR - parseJSONPB (HsJSONPB.String "INVALID_BATCH") - = ClientBatchSubmitResponse_Status + parseJSONPB (HsJSONPB.String Text +"INVALID_BATCH") + = ClientBatchSubmitResponse_Status -> Parser ClientBatchSubmitResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientBatchSubmitResponse_Status +Hs.pure ClientBatchSubmitResponse_Status ClientBatchSubmitResponse_StatusINVALID_BATCH - parseJSONPB (HsJSONPB.String "QUEUE_FULL") - = ClientBatchSubmitResponse_Status + parseJSONPB (HsJSONPB.String Text +"QUEUE_FULL") + = ClientBatchSubmitResponse_Status -> Parser ClientBatchSubmitResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientBatchSubmitResponse_Status +Hs.pure ClientBatchSubmitResponse_Status ClientBatchSubmitResponse_StatusQUEUE_FULL - parseJSONPB v :: Value -v - = (String -> Value -> Parser ClientBatchSubmitResponse_Status + parseJSONPB Value +v + = (String -> Value -> Parser ClientBatchSubmitResponse_Status forall a. String -> Value -> Parser a -HsJSONPB.typeMismatch "ClientBatchSubmitResponse_Status" Value -v) - -instance HsJSONPB.ToJSON ClientBatchSubmitResponse_Status where - toJSON :: ClientBatchSubmitResponse_Status -> Value -toJSON = ClientBatchSubmitResponse_Status -> Value +HsJSONPB.typeMismatch String +"ClientBatchSubmitResponse_Status" Value +v) + +instance HsJSONPB.ToJSON ClientBatchSubmitResponse_Status where + toJSON :: ClientBatchSubmitResponse_Status -> Value +toJSON = ClientBatchSubmitResponse_Status -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ClientBatchSubmitResponse_Status -> Encoding -toEncoding = ClientBatchSubmitResponse_Status -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ClientBatchSubmitResponse_Status -> Encoding +toEncoding = ClientBatchSubmitResponse_Status -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ClientBatchSubmitResponse_Status where - parseJSON :: Value -> Parser ClientBatchSubmitResponse_Status -parseJSON = Value -> Parser ClientBatchSubmitResponse_Status +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ClientBatchSubmitResponse_Status where + parseJSON :: Value -> Parser ClientBatchSubmitResponse_Status +parseJSON = Value -> Parser ClientBatchSubmitResponse_Status forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsProtobuf.Finite ClientBatchSubmitResponse_Status - -data ClientBatchStatusRequest = ClientBatchStatusRequest{ClientBatchStatusRequest -> Vector Text +HsJSONPB.parseJSONPB + +instance HsProtobuf.Finite ClientBatchSubmitResponse_Status + +data ClientBatchStatusRequest = ClientBatchStatusRequest{ClientBatchStatusRequest -> Vector Text clientBatchStatusRequestBatchIds - :: Hs.Vector Hs.Text, - ClientBatchStatusRequest -> Bool -clientBatchStatusRequestWait :: Hs.Bool, - ClientBatchStatusRequest -> Word32 + :: Hs.Vector Hs.Text, + ClientBatchStatusRequest -> Bool +clientBatchStatusRequestWait :: Hs.Bool, + ClientBatchStatusRequest -> Word32 clientBatchStatusRequestTimeout :: - Hs.Word32} - deriving (Int -> ClientBatchStatusRequest -> ShowS + Hs.Word32} + deriving (Int -> ClientBatchStatusRequest -> ShowS [ClientBatchStatusRequest] -> ShowS ClientBatchStatusRequest -> String (Int -> ClientBatchStatusRequest -> ShowS) @@ -2185,7 +2331,7 @@ show :: ClientBatchStatusRequest -> String $cshow :: ClientBatchStatusRequest -> String showsPrec :: Int -> ClientBatchStatusRequest -> ShowS $cshowsPrec :: Int -> ClientBatchStatusRequest -> ShowS -Hs.Show, ClientBatchStatusRequest -> ClientBatchStatusRequest -> Bool +Hs.Show, ClientBatchStatusRequest -> ClientBatchStatusRequest -> Bool (ClientBatchStatusRequest -> ClientBatchStatusRequest -> Bool) -> (ClientBatchStatusRequest -> ClientBatchStatusRequest -> Bool) -> Eq ClientBatchStatusRequest @@ -2194,9 +2340,10 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: ClientBatchStatusRequest -> ClientBatchStatusRequest -> Bool == :: ClientBatchStatusRequest -> ClientBatchStatusRequest -> Bool $c== :: ClientBatchStatusRequest -> ClientBatchStatusRequest -> Bool -Hs.Eq, Eq ClientBatchStatusRequest -Eq ClientBatchStatusRequest => -(ClientBatchStatusRequest -> ClientBatchStatusRequest -> Ordering) +Hs.Eq, Eq ClientBatchStatusRequest +Eq ClientBatchStatusRequest +-> (ClientBatchStatusRequest + -> ClientBatchStatusRequest -> Ordering) -> (ClientBatchStatusRequest -> ClientBatchStatusRequest -> Bool) -> (ClientBatchStatusRequest -> ClientBatchStatusRequest -> Bool) -> (ClientBatchStatusRequest -> ClientBatchStatusRequest -> Bool) @@ -2211,8 +2358,8 @@ ClientBatchStatusRequest -> ClientBatchStatusRequest -> Ordering ClientBatchStatusRequest -> ClientBatchStatusRequest -> ClientBatchStatusRequest forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -2239,7 +2386,7 @@ $c< :: ClientBatchStatusRequest -> ClientBatchStatusRequest -> Bool compare :: ClientBatchStatusRequest -> ClientBatchStatusRequest -> Ordering $ccompare :: ClientBatchStatusRequest -> ClientBatchStatusRequest -> Ordering $cp1Ord :: Eq ClientBatchStatusRequest -Hs.Ord, (forall x. +Hs.Ord, (forall x. ClientBatchStatusRequest -> Rep ClientBatchStatusRequest x) -> (forall x. Rep ClientBatchStatusRequest x -> ClientBatchStatusRequest) @@ -2254,402 +2401,435 @@ $cto :: forall x. Rep ClientBatchStatusRequest x -> ClientBatchStatusRequest $cfrom :: forall x. ClientBatchStatusRequest -> Rep ClientBatchStatusRequest x -Hs.Generic, ClientBatchStatusRequest -> () +Hs.Generic, ClientBatchStatusRequest -> () (ClientBatchStatusRequest -> ()) -> NFData ClientBatchStatusRequest forall a. (a -> ()) -> NFData a rnf :: ClientBatchStatusRequest -> () $crnf :: ClientBatchStatusRequest -> () -Hs.NFData) - -instance HsProtobuf.Named ClientBatchStatusRequest where - nameOf :: Proxy# ClientBatchStatusRequest -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ClientBatchStatusRequest where + nameOf :: Proxy# ClientBatchStatusRequest -> string +nameOf Proxy# ClientBatchStatusRequest +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ClientBatchStatusRequest") - -instance HsProtobuf.HasDefault ClientBatchStatusRequest - -instance HsProtobuf.Message ClientBatchStatusRequest where - encodeMessage :: FieldNumber -> ClientBatchStatusRequest -> MessageBuilder -encodeMessage _ - ClientBatchStatusRequest{clientBatchStatusRequestBatchIds :: ClientBatchStatusRequest -> Vector Text +Hs.fromString String +"ClientBatchStatusRequest") + +instance HsProtobuf.HasDefault ClientBatchStatusRequest + +instance HsProtobuf.Message ClientBatchStatusRequest where + encodeMessage :: FieldNumber -> ClientBatchStatusRequest -> MessageBuilder +encodeMessage FieldNumber +_ + ClientBatchStatusRequest{clientBatchStatusRequestBatchIds :: ClientBatchStatusRequest -> Vector Text clientBatchStatusRequestBatchIds = - Vector Text -clientBatchStatusRequestBatchIds, - clientBatchStatusRequestWait :: ClientBatchStatusRequest -> Bool -clientBatchStatusRequestWait = Bool -clientBatchStatusRequestWait, - clientBatchStatusRequestTimeout :: ClientBatchStatusRequest -> Word32 + Vector Text +clientBatchStatusRequestBatchIds, + clientBatchStatusRequestWait :: ClientBatchStatusRequest -> Bool +clientBatchStatusRequestWait = Bool +clientBatchStatusRequestWait, + clientBatchStatusRequestTimeout :: ClientBatchStatusRequest -> Word32 clientBatchStatusRequestTimeout = - Word32 -clientBatchStatusRequestTimeout} - = ([MessageBuilder] -> MessageBuilder + Word32 +clientBatchStatusRequestTimeout} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> UnpackedVec Text -> MessageBuilder +Hs.mconcat + [(FieldNumber -> UnpackedVec Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (Vector Text -> UnpackedVec Text -forall a b. Coercible a b => a -> b -Hs.coerce @(Hs.Vector Hs.Text) @(HsProtobuf.UnpackedVec Hs.Text) - Vector Text -clientBatchStatusRequestBatchIds)), - (FieldNumber -> Bool -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (Vector Text -> UnpackedVec Text +Hs.coerce @(Hs.Vector Hs.Text) @(HsProtobuf.UnpackedVec Hs.Text) + Vector Text +clientBatchStatusRequestBatchIds)), + (FieldNumber -> Bool -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - Bool -clientBatchStatusRequestWait), - (FieldNumber -> Word32 -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + Bool +clientBatchStatusRequestWait), + (FieldNumber -> Word32 -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - Word32 -clientBatchStatusRequestTimeout)]) - decodeMessage :: FieldNumber -> Parser RawMessage ClientBatchStatusRequest -decodeMessage _ - = ((Vector Text -> Bool -> Word32 -> ClientBatchStatusRequest) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + Word32 +clientBatchStatusRequestTimeout)]) + decodeMessage :: FieldNumber -> Parser RawMessage ClientBatchStatusRequest +decodeMessage FieldNumber +_ + = ((Vector Text -> Bool -> Word32 -> ClientBatchStatusRequest) -> Parser RawMessage (Vector Text -> Bool -> Word32 -> ClientBatchStatusRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector Text -> Bool -> Word32 -> ClientBatchStatusRequest +Hs.pure Vector Text -> Bool -> Word32 -> ClientBatchStatusRequest ClientBatchStatusRequest) Parser RawMessage (Vector Text -> Bool -> Word32 -> ClientBatchStatusRequest) -> Parser RawMessage (Vector Text) -> Parser RawMessage (Bool -> Word32 -> ClientBatchStatusRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (UnpackedVec Text) +<*> + (Parser RawMessage (UnpackedVec Text) -> Parser RawMessage (Vector Text) -forall a b. Coercible a b => a -> b -Hs.coerce @(_ (HsProtobuf.UnpackedVec Hs.Text)) - @(_ (Hs.Vector Hs.Text)) - (Parser RawField (UnpackedVec Text) +Hs.coerce @(_ (HsProtobuf.UnpackedVec Hs.Text)) + @(_ (Hs.Vector Hs.Text)) + (Parser RawField (UnpackedVec Text) -> FieldNumber -> Parser RawMessage (UnpackedVec Text) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (UnpackedVec Text) +HsProtobuf.at Parser RawField (UnpackedVec Text) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1))) - Parser RawMessage (Bool -> Word32 -> ClientBatchStatusRequest) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1))) + Parser RawMessage (Bool -> Word32 -> ClientBatchStatusRequest) -> Parser RawMessage Bool -> Parser RawMessage (Word32 -> ClientBatchStatusRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Bool -> FieldNumber -> Parser RawMessage Bool +<*> + (Parser RawField Bool -> FieldNumber -> Parser RawMessage Bool forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Bool +HsProtobuf.at Parser RawField Bool forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2)) - Parser RawMessage (Word32 -> ClientBatchStatusRequest) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2)) + Parser RawMessage (Word32 -> ClientBatchStatusRequest) -> Parser RawMessage Word32 -> Parser RawMessage ClientBatchStatusRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Word32 -> FieldNumber -> Parser RawMessage Word32 +<*> + (Parser RawField Word32 -> FieldNumber -> Parser RawMessage Word32 forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Word32 +HsProtobuf.at Parser RawField Word32 forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3)) - dotProto :: Proxy# ClientBatchStatusRequest -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3)) + dotProto :: Proxy# ClientBatchStatusRequest -> [DotProtoField] +dotProto Proxy# ClientBatchStatusRequest +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Repeated DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "batch_ids") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Repeated DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"batch_ids") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.Bool) - (String -> DotProtoIdentifier -HsProtobuf.Single "wait") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.Bool) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"wait") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.UInt32) - (String -> DotProtoIdentifier -HsProtobuf.Single "timeout") - [] - "")] - -instance HsJSONPB.ToJSONPB ClientBatchStatusRequest where - toJSONPB :: ClientBatchStatusRequest -> Options -> Value -toJSONPB (ClientBatchStatusRequest f1 :: Vector Text -f1 f2 :: Bool -f2 f3 :: Word32 -f3) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object - ["batch_ids" Text -> Vector Text -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.UInt32) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"timeout") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ClientBatchStatusRequest where + toJSONPB :: ClientBatchStatusRequest -> Options -> Value +toJSONPB (ClientBatchStatusRequest Vector Text +f1 Bool +f2 Word32 +f3) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object + [Text +"batch_ids" Text -> Vector Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Text -f1, "wait" Text -> Bool -> Options -> [Pair] +.= Vector Text +f1, Text +"wait" Text -> Bool -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Bool -f2, "timeout" Text -> Word32 -> Options -> [Pair] +.= Bool +f2, Text +"timeout" Text -> Word32 -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Word32 -f3]) - toEncodingPB :: ClientBatchStatusRequest -> Options -> Encoding -toEncodingPB (ClientBatchStatusRequest f1 :: Vector Text -f1 f2 :: Bool -f2 f3 :: Word32 -f3) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs - ["batch_ids" Text -> Vector Text -> Options -> Series +.= Word32 +f3]) + toEncodingPB :: ClientBatchStatusRequest -> Options -> Encoding +toEncodingPB (ClientBatchStatusRequest Vector Text +f1 Bool +f2 Word32 +f3) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs + [Text +"batch_ids" Text -> Vector Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Text -f1, "wait" Text -> Bool -> Options -> Series +.= Vector Text +f1, Text +"wait" Text -> Bool -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Bool -f2, "timeout" Text -> Word32 -> Options -> Series +.= Bool +f2, Text +"timeout" Text -> Word32 -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Word32 -f3]) - -instance HsJSONPB.FromJSONPB ClientBatchStatusRequest where - parseJSONPB :: Value -> Parser ClientBatchStatusRequest -parseJSONPB - = (String +.= Word32 +f3]) + +instance HsJSONPB.FromJSONPB ClientBatchStatusRequest where + parseJSONPB :: Value -> Parser ClientBatchStatusRequest +parseJSONPB + = (String -> (Object -> Parser ClientBatchStatusRequest) -> Value -> Parser ClientBatchStatusRequest forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ClientBatchStatusRequest" - (\ obj :: Object -obj -> - ((Vector Text -> Bool -> Word32 -> ClientBatchStatusRequest) +HsJSONPB.withObject String +"ClientBatchStatusRequest" + (\ Object +obj -> + ((Vector Text -> Bool -> Word32 -> ClientBatchStatusRequest) -> Parser (Vector Text -> Bool -> Word32 -> ClientBatchStatusRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector Text -> Bool -> Word32 -> ClientBatchStatusRequest +Hs.pure Vector Text -> Bool -> Word32 -> ClientBatchStatusRequest ClientBatchStatusRequest) Parser (Vector Text -> Bool -> Word32 -> ClientBatchStatusRequest) -> Parser (Vector Text) -> Parser (Bool -> Word32 -> ClientBatchStatusRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser (Vector Text) +<*> Object +obj Object -> Text -> Parser (Vector Text) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "batch_ids" Parser (Bool -> Word32 -> ClientBatchStatusRequest) +.: Text +"batch_ids" Parser (Bool -> Word32 -> ClientBatchStatusRequest) -> Parser Bool -> Parser (Word32 -> ClientBatchStatusRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser Bool +<*> + Object +obj Object -> Text -> Parser Bool forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "wait" - Parser (Word32 -> ClientBatchStatusRequest) +.: Text +"wait" + Parser (Word32 -> ClientBatchStatusRequest) -> Parser Word32 -> Parser ClientBatchStatusRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Word32 +<*> Object +obj Object -> Text -> Parser Word32 forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "timeout")) - -instance HsJSONPB.ToJSON ClientBatchStatusRequest where - toJSON :: ClientBatchStatusRequest -> Value -toJSON = ClientBatchStatusRequest -> Value +.: Text +"timeout")) + +instance HsJSONPB.ToJSON ClientBatchStatusRequest where + toJSON :: ClientBatchStatusRequest -> Value +toJSON = ClientBatchStatusRequest -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ClientBatchStatusRequest -> Encoding -toEncoding = ClientBatchStatusRequest -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ClientBatchStatusRequest -> Encoding +toEncoding = ClientBatchStatusRequest -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ClientBatchStatusRequest where - parseJSON :: Value -> Parser ClientBatchStatusRequest -parseJSON = Value -> Parser ClientBatchStatusRequest +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ClientBatchStatusRequest where + parseJSON :: Value -> Parser ClientBatchStatusRequest +parseJSON = Value -> Parser ClientBatchStatusRequest forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ClientBatchStatusRequest where - declareNamedSchema :: Proxy ClientBatchStatusRequest +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ClientBatchStatusRequest where + declareNamedSchema :: Proxy ClientBatchStatusRequest -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_batch_ids :: Proxy (OverrideToSchema (Vector Text)) +declareNamedSchema Proxy ClientBatchStatusRequest +_ + = do let declare_batch_ids :: Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) -declare_batch_ids = Proxy (OverrideToSchema (Vector Text)) +declare_batch_ids = Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientBatchStatusRequestBatchIds <- Proxy (OverrideToSchema (Vector Text)) +HsJSONPB.declareSchemaRef + Referenced Schema +clientBatchStatusRequestBatchIds <- Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) -declare_batch_ids Proxy (OverrideToSchema (Vector Text)) +declare_batch_ids Proxy (OverrideToSchema (Vector Text)) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_wait :: Proxy (OverrideToSchema Bool) +Proxy.Proxy + let declare_wait :: Proxy (OverrideToSchema Bool) -> Declare (Definitions Schema) (Referenced Schema) -declare_wait = Proxy (OverrideToSchema Bool) +declare_wait = Proxy (OverrideToSchema Bool) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientBatchStatusRequestWait <- Proxy (OverrideToSchema Bool) +HsJSONPB.declareSchemaRef + Referenced Schema +clientBatchStatusRequestWait <- Proxy (OverrideToSchema Bool) -> Declare (Definitions Schema) (Referenced Schema) -declare_wait Proxy (OverrideToSchema Bool) +declare_wait Proxy (OverrideToSchema Bool) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_timeout :: Proxy (OverrideToSchema Word32) +Proxy.Proxy + let declare_timeout :: Proxy (OverrideToSchema Word32) -> Declare (Definitions Schema) (Referenced Schema) -declare_timeout = Proxy (OverrideToSchema Word32) +declare_timeout = Proxy (OverrideToSchema Word32) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientBatchStatusRequestTimeout <- Proxy (OverrideToSchema Word32) +HsJSONPB.declareSchemaRef + Referenced Schema +clientBatchStatusRequestTimeout <- Proxy (OverrideToSchema Word32) -> Declare (Definitions Schema) (Referenced Schema) -declare_timeout Proxy (OverrideToSchema Word32) +declare_timeout Proxy (OverrideToSchema Word32) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ClientBatchStatusRequest +Proxy.Proxy + let Proxy ClientBatchStatusRequest _ = (Vector Text -> Bool -> Word32 -> ClientBatchStatusRequest) -> Proxy (Vector Text -> Bool -> Word32 -> ClientBatchStatusRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector Text -> Bool -> Word32 -> ClientBatchStatusRequest +Hs.pure Vector Text -> Bool -> Word32 -> ClientBatchStatusRequest ClientBatchStatusRequest Proxy (Vector Text -> Bool -> Word32 -> ClientBatchStatusRequest) -> Proxy (Vector Text) -> Proxy (Bool -> Word32 -> ClientBatchStatusRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema (Vector Text)) +<*> + (Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Vector Text) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Text)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) -declare_batch_ids - Proxy (Bool -> Word32 -> ClientBatchStatusRequest) +declare_batch_ids + Proxy (Bool -> Word32 -> ClientBatchStatusRequest) -> Proxy Bool -> Proxy (Word32 -> ClientBatchStatusRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema Bool) +<*> (Proxy (OverrideToSchema Bool) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Bool forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Bool) +HsJSONPB.asProxy Proxy (OverrideToSchema Bool) -> Declare (Definitions Schema) (Referenced Schema) -declare_wait - Proxy (Word32 -> ClientBatchStatusRequest) +declare_wait + Proxy (Word32 -> ClientBatchStatusRequest) -> Proxy Word32 -> Proxy ClientBatchStatusRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema Word32) +<*> (Proxy (OverrideToSchema Word32) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Word32 forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Word32) +HsJSONPB.asProxy Proxy (OverrideToSchema Word32) -> Declare (Definitions Schema) (Referenced Schema) -declare_timeout - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_timeout + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ClientBatchStatusRequest", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ClientBatchStatusRequest", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("batch_ids", - Referenced Schema -clientBatchStatusRequestBatchIds), - ("wait", Referenced Schema -clientBatchStatusRequestWait), - ("timeout", - Referenced Schema -clientBatchStatusRequestTimeout)]}}) - -data ClientBatchStatusResponse = ClientBatchStatusResponse{ClientBatchStatusResponse +HsJSONPB.insOrdFromList + [(Text +"batch_ids", + Referenced Schema +clientBatchStatusRequestBatchIds), + (Text +"wait", Referenced Schema +clientBatchStatusRequestWait), + (Text +"timeout", + Referenced Schema +clientBatchStatusRequestTimeout)]}}) + +data ClientBatchStatusResponse = ClientBatchStatusResponse{ClientBatchStatusResponse -> Enumerated ClientBatchStatusResponse_Status clientBatchStatusResponseStatus - :: - HsProtobuf.Enumerated - Data.Sawtooth.ClientBatchSubmit.ClientBatchStatusResponse_Status, - ClientBatchStatusResponse -> Vector ClientBatchStatus + :: + HsProtobuf.Enumerated + Data.Sawtooth.ClientBatchSubmit.ClientBatchStatusResponse_Status, + ClientBatchStatusResponse -> Vector ClientBatchStatus clientBatchStatusResponseBatchStatuses :: - Hs.Vector - Data.Sawtooth.ClientBatchSubmit.ClientBatchStatus} - deriving (Int -> ClientBatchStatusResponse -> ShowS + Hs.Vector + Data.Sawtooth.ClientBatchSubmit.ClientBatchStatus} + deriving (Int -> ClientBatchStatusResponse -> ShowS [ClientBatchStatusResponse] -> ShowS ClientBatchStatusResponse -> String (Int -> ClientBatchStatusResponse -> ShowS) @@ -2664,7 +2844,7 @@ show :: ClientBatchStatusResponse -> String $cshow :: ClientBatchStatusResponse -> String showsPrec :: Int -> ClientBatchStatusResponse -> ShowS $cshowsPrec :: Int -> ClientBatchStatusResponse -> ShowS -Hs.Show, ClientBatchStatusResponse -> ClientBatchStatusResponse -> Bool +Hs.Show, ClientBatchStatusResponse -> ClientBatchStatusResponse -> Bool (ClientBatchStatusResponse -> ClientBatchStatusResponse -> Bool) -> (ClientBatchStatusResponse -> ClientBatchStatusResponse -> Bool) -> Eq ClientBatchStatusResponse @@ -2673,10 +2853,10 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: ClientBatchStatusResponse -> ClientBatchStatusResponse -> Bool == :: ClientBatchStatusResponse -> ClientBatchStatusResponse -> Bool $c== :: ClientBatchStatusResponse -> ClientBatchStatusResponse -> Bool -Hs.Eq, Eq ClientBatchStatusResponse -Eq ClientBatchStatusResponse => -(ClientBatchStatusResponse - -> ClientBatchStatusResponse -> Ordering) +Hs.Eq, Eq ClientBatchStatusResponse +Eq ClientBatchStatusResponse +-> (ClientBatchStatusResponse + -> ClientBatchStatusResponse -> Ordering) -> (ClientBatchStatusResponse -> ClientBatchStatusResponse -> Bool) -> (ClientBatchStatusResponse -> ClientBatchStatusResponse -> Bool) -> (ClientBatchStatusResponse -> ClientBatchStatusResponse -> Bool) @@ -2691,8 +2871,8 @@ ClientBatchStatusResponse -> ClientBatchStatusResponse -> Ordering ClientBatchStatusResponse -> ClientBatchStatusResponse -> ClientBatchStatusResponse forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -2719,7 +2899,7 @@ $c< :: ClientBatchStatusResponse -> ClientBatchStatusResponse -> Bool compare :: ClientBatchStatusResponse -> ClientBatchStatusResponse -> Ordering $ccompare :: ClientBatchStatusResponse -> ClientBatchStatusResponse -> Ordering $cp1Ord :: Eq ClientBatchStatusResponse -Hs.Ord, (forall x. +Hs.Ord, (forall x. ClientBatchStatusResponse -> Rep ClientBatchStatusResponse x) -> (forall x. Rep ClientBatchStatusResponse x -> ClientBatchStatusResponse) @@ -2734,65 +2914,70 @@ $cto :: forall x. Rep ClientBatchStatusResponse x -> ClientBatchStatusResponse $cfrom :: forall x. ClientBatchStatusResponse -> Rep ClientBatchStatusResponse x -Hs.Generic, ClientBatchStatusResponse -> () +Hs.Generic, ClientBatchStatusResponse -> () (ClientBatchStatusResponse -> ()) -> NFData ClientBatchStatusResponse forall a. (a -> ()) -> NFData a rnf :: ClientBatchStatusResponse -> () $crnf :: ClientBatchStatusResponse -> () -Hs.NFData) - -instance HsProtobuf.Named ClientBatchStatusResponse where - nameOf :: Proxy# ClientBatchStatusResponse -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ClientBatchStatusResponse where + nameOf :: Proxy# ClientBatchStatusResponse -> string +nameOf Proxy# ClientBatchStatusResponse +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ClientBatchStatusResponse") - -instance HsProtobuf.HasDefault ClientBatchStatusResponse - -instance HsProtobuf.Message ClientBatchStatusResponse where - encodeMessage :: FieldNumber -> ClientBatchStatusResponse -> MessageBuilder -encodeMessage _ - ClientBatchStatusResponse{clientBatchStatusResponseStatus :: ClientBatchStatusResponse +Hs.fromString String +"ClientBatchStatusResponse") + +instance HsProtobuf.HasDefault ClientBatchStatusResponse + +instance HsProtobuf.Message ClientBatchStatusResponse where + encodeMessage :: FieldNumber -> ClientBatchStatusResponse -> MessageBuilder +encodeMessage FieldNumber +_ + ClientBatchStatusResponse{clientBatchStatusResponseStatus :: ClientBatchStatusResponse -> Enumerated ClientBatchStatusResponse_Status clientBatchStatusResponseStatus = - Enumerated ClientBatchStatusResponse_Status -clientBatchStatusResponseStatus, - clientBatchStatusResponseBatchStatuses :: ClientBatchStatusResponse -> Vector ClientBatchStatus + Enumerated ClientBatchStatusResponse_Status +clientBatchStatusResponseStatus, + clientBatchStatusResponseBatchStatuses :: ClientBatchStatusResponse -> Vector ClientBatchStatus clientBatchStatusResponseBatchStatuses = - Vector ClientBatchStatus -clientBatchStatusResponseBatchStatuses} - = ([MessageBuilder] -> MessageBuilder + Vector ClientBatchStatus +clientBatchStatusResponseBatchStatuses} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber +Hs.mconcat + [(FieldNumber -> Enumerated ClientBatchStatusResponse_Status -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Enumerated ClientBatchStatusResponse_Status -clientBatchStatusResponseStatus), - (FieldNumber -> NestedVec ClientBatchStatus -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Enumerated ClientBatchStatusResponse_Status +clientBatchStatusResponseStatus), + (FieldNumber -> NestedVec ClientBatchStatus -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (Vector ClientBatchStatus -> NestedVec ClientBatchStatus -forall a b. Coercible a b => a -> b -Hs.coerce - @(Hs.Vector Data.Sawtooth.ClientBatchSubmit.ClientBatchStatus) - @(HsProtobuf.NestedVec Data.Sawtooth.ClientBatchSubmit.ClientBatchStatus) - Vector ClientBatchStatus -clientBatchStatusResponseBatchStatuses))]) - decodeMessage :: FieldNumber -> Parser RawMessage ClientBatchStatusResponse -decodeMessage _ - = ((Enumerated ClientBatchStatusResponse_Status +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (Vector ClientBatchStatus -> NestedVec ClientBatchStatus +Hs.coerce + @(Hs.Vector Data.Sawtooth.ClientBatchSubmit.ClientBatchStatus) + @(HsProtobuf.NestedVec Data.Sawtooth.ClientBatchSubmit.ClientBatchStatus) + Vector ClientBatchStatus +clientBatchStatusResponseBatchStatuses))]) + decodeMessage :: FieldNumber -> Parser RawMessage ClientBatchStatusResponse +decodeMessage FieldNumber +_ + = ((Enumerated ClientBatchStatusResponse_Status -> Vector ClientBatchStatus -> ClientBatchStatusResponse) -> Parser RawMessage (Enumerated ClientBatchStatusResponse_Status -> Vector ClientBatchStatus -> ClientBatchStatusResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ClientBatchStatusResponse_Status +Hs.pure Enumerated ClientBatchStatusResponse_Status -> Vector ClientBatchStatus -> ClientBatchStatusResponse ClientBatchStatusResponse) Parser RawMessage @@ -2802,126 +2987,141 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Parser RawMessage (Vector ClientBatchStatus -> ClientBatchStatusResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField (Enumerated ClientBatchStatusResponse_Status) +<*> + (Parser RawField (Enumerated ClientBatchStatusResponse_Status) -> FieldNumber -> Parser RawMessage (Enumerated ClientBatchStatusResponse_Status) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (Enumerated ClientBatchStatusResponse_Status) +HsProtobuf.at Parser RawField (Enumerated ClientBatchStatusResponse_Status) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (Vector ClientBatchStatus -> ClientBatchStatusResponse) -> Parser RawMessage (Vector ClientBatchStatus) -> Parser RawMessage ClientBatchStatusResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (NestedVec ClientBatchStatus) +<*> + (Parser RawMessage (NestedVec ClientBatchStatus) -> Parser RawMessage (Vector ClientBatchStatus) -forall a b. Coercible a b => a -> b -Hs.coerce - @(_ (HsProtobuf.NestedVec Data.Sawtooth.ClientBatchSubmit.ClientBatchStatus)) - @(_ (Hs.Vector Data.Sawtooth.ClientBatchSubmit.ClientBatchStatus)) - (Parser RawField (NestedVec ClientBatchStatus) +Hs.coerce + @(_ (HsProtobuf.NestedVec Data.Sawtooth.ClientBatchSubmit.ClientBatchStatus)) + @(_ (Hs.Vector Data.Sawtooth.ClientBatchSubmit.ClientBatchStatus)) + (Parser RawField (NestedVec ClientBatchStatus) -> FieldNumber -> Parser RawMessage (NestedVec ClientBatchStatus) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (NestedVec ClientBatchStatus) +HsProtobuf.at Parser RawField (NestedVec ClientBatchStatus) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2))) - dotProto :: Proxy# ClientBatchStatusResponse -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2))) + dotProto :: Proxy# ClientBatchStatusResponse -> [DotProtoField] +dotProto Proxy# ClientBatchStatusResponse +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "Status"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "status") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"Status"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"status") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Repeated - (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "ClientBatchStatus"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "batch_statuses") - [] - "")] - -instance HsJSONPB.ToJSONPB ClientBatchStatusResponse where - toJSONPB :: ClientBatchStatusResponse -> Options -> Value -toJSONPB (ClientBatchStatusResponse f1 :: Enumerated ClientBatchStatusResponse_Status -f1 f2 :: Vector ClientBatchStatus -f2) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["status" Text +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Repeated + (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"ClientBatchStatus"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"batch_statuses") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ClientBatchStatusResponse where + toJSONPB :: ClientBatchStatusResponse -> Options -> Value +toJSONPB (ClientBatchStatusResponse Enumerated ClientBatchStatusResponse_Status +f1 Vector ClientBatchStatus +f2) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"status" Text -> Enumerated ClientBatchStatusResponse_Status -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated ClientBatchStatusResponse_Status -f1, "batch_statuses" Text -> Vector ClientBatchStatus -> Options -> [Pair] +.= Enumerated ClientBatchStatusResponse_Status +f1, Text +"batch_statuses" Text -> Vector ClientBatchStatus -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector ClientBatchStatus -f2]) - toEncodingPB :: ClientBatchStatusResponse -> Options -> Encoding -toEncodingPB (ClientBatchStatusResponse f1 :: Enumerated ClientBatchStatusResponse_Status -f1 f2 :: Vector ClientBatchStatus -f2) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["status" Text +.= Vector ClientBatchStatus +f2]) + toEncodingPB :: ClientBatchStatusResponse -> Options -> Encoding +toEncodingPB (ClientBatchStatusResponse Enumerated ClientBatchStatusResponse_Status +f1 Vector ClientBatchStatus +f2) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"status" Text -> Enumerated ClientBatchStatusResponse_Status -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated ClientBatchStatusResponse_Status -f1, "batch_statuses" Text -> Vector ClientBatchStatus -> Options -> Series +.= Enumerated ClientBatchStatusResponse_Status +f1, Text +"batch_statuses" Text -> Vector ClientBatchStatus -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector ClientBatchStatus -f2]) - -instance HsJSONPB.FromJSONPB ClientBatchStatusResponse where - parseJSONPB :: Value -> Parser ClientBatchStatusResponse -parseJSONPB - = (String +.= Vector ClientBatchStatus +f2]) + +instance HsJSONPB.FromJSONPB ClientBatchStatusResponse where + parseJSONPB :: Value -> Parser ClientBatchStatusResponse +parseJSONPB + = (String -> (Object -> Parser ClientBatchStatusResponse) -> Value -> Parser ClientBatchStatusResponse forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ClientBatchStatusResponse" - (\ obj :: Object -obj -> - ((Enumerated ClientBatchStatusResponse_Status +HsJSONPB.withObject String +"ClientBatchStatusResponse" + (\ Object +obj -> + ((Enumerated ClientBatchStatusResponse_Status -> Vector ClientBatchStatus -> ClientBatchStatusResponse) -> Parser (Enumerated ClientBatchStatusResponse_Status -> Vector ClientBatchStatus -> ClientBatchStatusResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ClientBatchStatusResponse_Status +Hs.pure Enumerated ClientBatchStatusResponse_Status -> Vector ClientBatchStatus -> ClientBatchStatusResponse ClientBatchStatusResponse) Parser (Enumerated ClientBatchStatusResponse_Status @@ -2929,85 +3129,88 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Parser (Enumerated ClientBatchStatusResponse_Status) -> Parser (Vector ClientBatchStatus -> ClientBatchStatusResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object +<*> Object +obj Object -> Text -> Parser (Enumerated ClientBatchStatusResponse_Status) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "status" Parser (Vector ClientBatchStatus -> ClientBatchStatusResponse) +.: Text +"status" Parser (Vector ClientBatchStatus -> ClientBatchStatusResponse) -> Parser (Vector ClientBatchStatus) -> Parser ClientBatchStatusResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser (Vector ClientBatchStatus) +<*> + Object +obj Object -> Text -> Parser (Vector ClientBatchStatus) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "batch_statuses")) - -instance HsJSONPB.ToJSON ClientBatchStatusResponse where - toJSON :: ClientBatchStatusResponse -> Value -toJSON = ClientBatchStatusResponse -> Value +.: Text +"batch_statuses")) + +instance HsJSONPB.ToJSON ClientBatchStatusResponse where + toJSON :: ClientBatchStatusResponse -> Value +toJSON = ClientBatchStatusResponse -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ClientBatchStatusResponse -> Encoding -toEncoding = ClientBatchStatusResponse -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ClientBatchStatusResponse -> Encoding +toEncoding = ClientBatchStatusResponse -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ClientBatchStatusResponse where - parseJSON :: Value -> Parser ClientBatchStatusResponse -parseJSON = Value -> Parser ClientBatchStatusResponse +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ClientBatchStatusResponse where + parseJSON :: Value -> Parser ClientBatchStatusResponse +parseJSON = Value -> Parser ClientBatchStatusResponse forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ClientBatchStatusResponse where - declareNamedSchema :: Proxy ClientBatchStatusResponse +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ClientBatchStatusResponse where + declareNamedSchema :: Proxy ClientBatchStatusResponse -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_status :: Proxy +declareNamedSchema Proxy ClientBatchStatusResponse +_ + = do let declare_status :: Proxy (OverrideToSchema (Enumerated ClientBatchStatusResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status = Proxy +declare_status = Proxy (OverrideToSchema (Enumerated ClientBatchStatusResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientBatchStatusResponseStatus <- Proxy +HsJSONPB.declareSchemaRef + Referenced Schema +clientBatchStatusResponseStatus <- Proxy (OverrideToSchema (Enumerated ClientBatchStatusResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status Proxy +declare_status Proxy (OverrideToSchema (Enumerated ClientBatchStatusResponse_Status)) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_batch_statuses :: Proxy (OverrideToSchema (Vector ClientBatchStatus)) +Proxy.Proxy + let declare_batch_statuses :: Proxy (OverrideToSchema (Vector ClientBatchStatus)) -> Declare (Definitions Schema) (Referenced Schema) -declare_batch_statuses = Proxy (OverrideToSchema (Vector ClientBatchStatus)) +declare_batch_statuses = Proxy (OverrideToSchema (Vector ClientBatchStatus)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientBatchStatusResponseBatchStatuses <- Proxy (OverrideToSchema (Vector ClientBatchStatus)) +HsJSONPB.declareSchemaRef + Referenced Schema +clientBatchStatusResponseBatchStatuses <- Proxy (OverrideToSchema (Vector ClientBatchStatus)) -> Declare (Definitions Schema) (Referenced Schema) -declare_batch_statuses - Proxy (OverrideToSchema (Vector ClientBatchStatus)) +declare_batch_statuses + Proxy (OverrideToSchema (Vector ClientBatchStatus)) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ClientBatchStatusResponse +Proxy.Proxy + let Proxy ClientBatchStatusResponse _ = (Enumerated ClientBatchStatusResponse_Status -> Vector ClientBatchStatus -> ClientBatchStatusResponse) -> Proxy (Enumerated ClientBatchStatusResponse_Status -> Vector ClientBatchStatus -> ClientBatchStatusResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ClientBatchStatusResponse_Status +Hs.pure Enumerated ClientBatchStatusResponse_Status -> Vector ClientBatchStatus -> ClientBatchStatusResponse ClientBatchStatusResponse Proxy (Enumerated ClientBatchStatusResponse_Status @@ -3015,69 +3218,72 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Proxy (Enumerated ClientBatchStatusResponse_Status) -> Proxy (Vector ClientBatchStatus -> ClientBatchStatusResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy +<*> + (Proxy (OverrideToSchema (Enumerated ClientBatchStatusResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Enumerated ClientBatchStatusResponse_Status) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy +HsJSONPB.asProxy Proxy (OverrideToSchema (Enumerated ClientBatchStatusResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status - Proxy (Vector ClientBatchStatus -> ClientBatchStatusResponse) +declare_status + Proxy (Vector ClientBatchStatus -> ClientBatchStatusResponse) -> Proxy (Vector ClientBatchStatus) -> Proxy ClientBatchStatusResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema (Vector ClientBatchStatus)) +<*> (Proxy (OverrideToSchema (Vector ClientBatchStatus)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Vector ClientBatchStatus) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Vector ClientBatchStatus)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Vector ClientBatchStatus)) -> Declare (Definitions Schema) (Referenced Schema) -declare_batch_statuses - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_batch_statuses + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ClientBatchStatusResponse", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ClientBatchStatusResponse", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("status", Referenced Schema -clientBatchStatusResponseStatus), - ("batch_statuses", - Referenced Schema -clientBatchStatusResponseBatchStatuses)]}}) - -data ClientBatchStatusResponse_Status = ClientBatchStatusResponse_StatusSTATUS_UNSET - | ClientBatchStatusResponse_StatusOK - | ClientBatchStatusResponse_StatusINTERNAL_ERROR - | ClientBatchStatusResponse_StatusNO_RESOURCE - | ClientBatchStatusResponse_StatusINVALID_ID - deriving (Int -> ClientBatchStatusResponse_Status -> ShowS +HsJSONPB.insOrdFromList + [(Text +"status", Referenced Schema +clientBatchStatusResponseStatus), + (Text +"batch_statuses", + Referenced Schema +clientBatchStatusResponseBatchStatuses)]}}) + +data ClientBatchStatusResponse_Status = ClientBatchStatusResponse_StatusSTATUS_UNSET + | ClientBatchStatusResponse_StatusOK + | ClientBatchStatusResponse_StatusINTERNAL_ERROR + | ClientBatchStatusResponse_StatusNO_RESOURCE + | ClientBatchStatusResponse_StatusINVALID_ID + deriving (Int -> ClientBatchStatusResponse_Status -> ShowS [ClientBatchStatusResponse_Status] -> ShowS ClientBatchStatusResponse_Status -> String (Int -> ClientBatchStatusResponse_Status -> ShowS) @@ -3092,7 +3298,7 @@ show :: ClientBatchStatusResponse_Status -> String $cshow :: ClientBatchStatusResponse_Status -> String showsPrec :: Int -> ClientBatchStatusResponse_Status -> ShowS $cshowsPrec :: Int -> ClientBatchStatusResponse_Status -> ShowS -Hs.Show, ClientBatchStatusResponse_Status +Hs.Show, ClientBatchStatusResponse_Status -> ClientBatchStatusResponse_Status -> Bool (ClientBatchStatusResponse_Status -> ClientBatchStatusResponse_Status -> Bool) @@ -3108,7 +3314,7 @@ $c/= :: ClientBatchStatusResponse_Status -> ClientBatchStatusResponse_Status -> Bool $c== :: ClientBatchStatusResponse_Status -> ClientBatchStatusResponse_Status -> Bool -Hs.Eq, (forall x. +Hs.Eq, (forall x. ClientBatchStatusResponse_Status -> Rep ClientBatchStatusResponse_Status x) -> (forall x. @@ -3129,161 +3335,182 @@ Rep ClientBatchStatusResponse_Status x $cfrom :: forall x. ClientBatchStatusResponse_Status -> Rep ClientBatchStatusResponse_Status x -Hs.Generic, ClientBatchStatusResponse_Status -> () +Hs.Generic, ClientBatchStatusResponse_Status -> () (ClientBatchStatusResponse_Status -> ()) -> NFData ClientBatchStatusResponse_Status forall a. (a -> ()) -> NFData a rnf :: ClientBatchStatusResponse_Status -> () $crnf :: ClientBatchStatusResponse_Status -> () -Hs.NFData) - -instance HsProtobuf.Named ClientBatchStatusResponse_Status where - nameOf :: Proxy# ClientBatchStatusResponse_Status -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ClientBatchStatusResponse_Status where + nameOf :: Proxy# ClientBatchStatusResponse_Status -> string +nameOf Proxy# ClientBatchStatusResponse_Status +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ClientBatchStatusResponse_Status") - -instance HsProtobuf.HasDefault ClientBatchStatusResponse_Status - -instance Hs.Bounded ClientBatchStatusResponse_Status where - minBound :: ClientBatchStatusResponse_Status -minBound = ClientBatchStatusResponse_Status +Hs.fromString String +"ClientBatchStatusResponse_Status") + +instance HsProtobuf.HasDefault ClientBatchStatusResponse_Status + +instance Hs.Bounded ClientBatchStatusResponse_Status where + minBound :: ClientBatchStatusResponse_Status +minBound = ClientBatchStatusResponse_Status ClientBatchStatusResponse_StatusSTATUS_UNSET - maxBound :: ClientBatchStatusResponse_Status -maxBound = ClientBatchStatusResponse_Status + maxBound :: ClientBatchStatusResponse_Status +maxBound = ClientBatchStatusResponse_Status ClientBatchStatusResponse_StatusINVALID_ID - -instance Hs.Ord ClientBatchStatusResponse_Status where - compare :: ClientBatchStatusResponse_Status + +instance Hs.Ord ClientBatchStatusResponse_Status where + compare :: ClientBatchStatusResponse_Status -> ClientBatchStatusResponse_Status -> Ordering -compare x :: ClientBatchStatusResponse_Status -x y :: ClientBatchStatusResponse_Status -y - = Int32 -> Int32 -> Ordering +compare ClientBatchStatusResponse_Status +x ClientBatchStatusResponse_Status +y + = Int32 -> Int32 -> Ordering forall a. Ord a => a -> a -> Ordering -Hs.compare (ClientBatchStatusResponse_Status -> Int32 +Hs.compare (ClientBatchStatusResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum ClientBatchStatusResponse_Status -x) - (ClientBatchStatusResponse_Status -> Int32 +HsProtobuf.fromProtoEnum ClientBatchStatusResponse_Status +x) + (ClientBatchStatusResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum ClientBatchStatusResponse_Status -y) - -instance HsProtobuf.ProtoEnum ClientBatchStatusResponse_Status - where - toProtoEnumMay :: Int32 -> Maybe ClientBatchStatusResponse_Status -toProtoEnumMay 0 - = ClientBatchStatusResponse_Status +HsProtobuf.fromProtoEnum ClientBatchStatusResponse_Status +y) + +instance HsProtobuf.ProtoEnum ClientBatchStatusResponse_Status + where + toProtoEnumMay :: Int32 -> Maybe ClientBatchStatusResponse_Status +toProtoEnumMay Int32 +0 + = ClientBatchStatusResponse_Status -> Maybe ClientBatchStatusResponse_Status forall a. a -> Maybe a -Hs.Just ClientBatchStatusResponse_Status +Hs.Just ClientBatchStatusResponse_Status ClientBatchStatusResponse_StatusSTATUS_UNSET - toProtoEnumMay 1 = ClientBatchStatusResponse_Status + toProtoEnumMay Int32 +1 = ClientBatchStatusResponse_Status -> Maybe ClientBatchStatusResponse_Status forall a. a -> Maybe a -Hs.Just ClientBatchStatusResponse_Status +Hs.Just ClientBatchStatusResponse_Status ClientBatchStatusResponse_StatusOK - toProtoEnumMay 2 - = ClientBatchStatusResponse_Status + toProtoEnumMay Int32 +2 + = ClientBatchStatusResponse_Status -> Maybe ClientBatchStatusResponse_Status forall a. a -> Maybe a -Hs.Just ClientBatchStatusResponse_Status +Hs.Just ClientBatchStatusResponse_Status ClientBatchStatusResponse_StatusINTERNAL_ERROR - toProtoEnumMay 5 - = ClientBatchStatusResponse_Status + toProtoEnumMay Int32 +5 + = ClientBatchStatusResponse_Status -> Maybe ClientBatchStatusResponse_Status forall a. a -> Maybe a -Hs.Just ClientBatchStatusResponse_Status +Hs.Just ClientBatchStatusResponse_Status ClientBatchStatusResponse_StatusNO_RESOURCE - toProtoEnumMay 8 - = ClientBatchStatusResponse_Status + toProtoEnumMay Int32 +8 + = ClientBatchStatusResponse_Status -> Maybe ClientBatchStatusResponse_Status forall a. a -> Maybe a -Hs.Just ClientBatchStatusResponse_Status +Hs.Just ClientBatchStatusResponse_Status ClientBatchStatusResponse_StatusINVALID_ID - toProtoEnumMay _ = Maybe ClientBatchStatusResponse_Status + toProtoEnumMay Int32 +_ = Maybe ClientBatchStatusResponse_Status forall a. Maybe a -Hs.Nothing - fromProtoEnum :: ClientBatchStatusResponse_Status -> Int32 -fromProtoEnum (ClientBatchStatusResponse_Status -ClientBatchStatusResponse_StatusSTATUS_UNSET) = 0 - fromProtoEnum (ClientBatchStatusResponse_Status -ClientBatchStatusResponse_StatusOK) = 1 - fromProtoEnum (ClientBatchStatusResponse_Status -ClientBatchStatusResponse_StatusINTERNAL_ERROR) = 2 - fromProtoEnum (ClientBatchStatusResponse_Status -ClientBatchStatusResponse_StatusNO_RESOURCE) = 5 - fromProtoEnum (ClientBatchStatusResponse_Status -ClientBatchStatusResponse_StatusINVALID_ID) = 8 - -instance HsJSONPB.ToJSONPB ClientBatchStatusResponse_Status where - toJSONPB :: ClientBatchStatusResponse_Status -> Options -> Value -toJSONPB x :: ClientBatchStatusResponse_Status -x _ = ClientBatchStatusResponse_Status -> Value +Hs.Nothing + fromProtoEnum :: ClientBatchStatusResponse_Status -> Int32 +fromProtoEnum (ClientBatchStatusResponse_Status +ClientBatchStatusResponse_StatusSTATUS_UNSET) = Int32 +0 + fromProtoEnum (ClientBatchStatusResponse_Status +ClientBatchStatusResponse_StatusOK) = Int32 +1 + fromProtoEnum (ClientBatchStatusResponse_Status +ClientBatchStatusResponse_StatusINTERNAL_ERROR) = Int32 +2 + fromProtoEnum (ClientBatchStatusResponse_Status +ClientBatchStatusResponse_StatusNO_RESOURCE) = Int32 +5 + fromProtoEnum (ClientBatchStatusResponse_Status +ClientBatchStatusResponse_StatusINVALID_ID) = Int32 +8 + +instance HsJSONPB.ToJSONPB ClientBatchStatusResponse_Status where + toJSONPB :: ClientBatchStatusResponse_Status -> Options -> Value +toJSONPB ClientBatchStatusResponse_Status +x Options +_ = ClientBatchStatusResponse_Status -> Value forall a. (Named a, Show a) => a -> Value -HsJSONPB.enumFieldString ClientBatchStatusResponse_Status -x - toEncodingPB :: ClientBatchStatusResponse_Status -> Options -> Encoding -toEncodingPB x :: ClientBatchStatusResponse_Status -x _ = ClientBatchStatusResponse_Status -> Encoding +HsJSONPB.enumFieldString ClientBatchStatusResponse_Status +x + toEncodingPB :: ClientBatchStatusResponse_Status -> Options -> Encoding +toEncodingPB ClientBatchStatusResponse_Status +x Options +_ = ClientBatchStatusResponse_Status -> Encoding forall a. (Named a, Show a) => a -> Encoding -HsJSONPB.enumFieldEncoding ClientBatchStatusResponse_Status -x - -instance HsJSONPB.FromJSONPB ClientBatchStatusResponse_Status where - parseJSONPB :: Value -> Parser ClientBatchStatusResponse_Status -parseJSONPB (HsJSONPB.String "STATUS_UNSET") - = ClientBatchStatusResponse_Status +HsJSONPB.enumFieldEncoding ClientBatchStatusResponse_Status +x + +instance HsJSONPB.FromJSONPB ClientBatchStatusResponse_Status where + parseJSONPB :: Value -> Parser ClientBatchStatusResponse_Status +parseJSONPB (HsJSONPB.String Text +"STATUS_UNSET") + = ClientBatchStatusResponse_Status -> Parser ClientBatchStatusResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientBatchStatusResponse_Status +Hs.pure ClientBatchStatusResponse_Status ClientBatchStatusResponse_StatusSTATUS_UNSET - parseJSONPB (HsJSONPB.String "OK") - = ClientBatchStatusResponse_Status + parseJSONPB (HsJSONPB.String Text +"OK") + = ClientBatchStatusResponse_Status -> Parser ClientBatchStatusResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientBatchStatusResponse_Status +Hs.pure ClientBatchStatusResponse_Status ClientBatchStatusResponse_StatusOK - parseJSONPB (HsJSONPB.String "INTERNAL_ERROR") - = ClientBatchStatusResponse_Status + parseJSONPB (HsJSONPB.String Text +"INTERNAL_ERROR") + = ClientBatchStatusResponse_Status -> Parser ClientBatchStatusResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientBatchStatusResponse_Status +Hs.pure ClientBatchStatusResponse_Status ClientBatchStatusResponse_StatusINTERNAL_ERROR - parseJSONPB (HsJSONPB.String "NO_RESOURCE") - = ClientBatchStatusResponse_Status + parseJSONPB (HsJSONPB.String Text +"NO_RESOURCE") + = ClientBatchStatusResponse_Status -> Parser ClientBatchStatusResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientBatchStatusResponse_Status +Hs.pure ClientBatchStatusResponse_Status ClientBatchStatusResponse_StatusNO_RESOURCE - parseJSONPB (HsJSONPB.String "INVALID_ID") - = ClientBatchStatusResponse_Status + parseJSONPB (HsJSONPB.String Text +"INVALID_ID") + = ClientBatchStatusResponse_Status -> Parser ClientBatchStatusResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientBatchStatusResponse_Status +Hs.pure ClientBatchStatusResponse_Status ClientBatchStatusResponse_StatusINVALID_ID - parseJSONPB v :: Value -v - = (String -> Value -> Parser ClientBatchStatusResponse_Status + parseJSONPB Value +v + = (String -> Value -> Parser ClientBatchStatusResponse_Status forall a. String -> Value -> Parser a -HsJSONPB.typeMismatch "ClientBatchStatusResponse_Status" Value -v) - -instance HsJSONPB.ToJSON ClientBatchStatusResponse_Status where - toJSON :: ClientBatchStatusResponse_Status -> Value -toJSON = ClientBatchStatusResponse_Status -> Value +HsJSONPB.typeMismatch String +"ClientBatchStatusResponse_Status" Value +v) + +instance HsJSONPB.ToJSON ClientBatchStatusResponse_Status where + toJSON :: ClientBatchStatusResponse_Status -> Value +toJSON = ClientBatchStatusResponse_Status -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ClientBatchStatusResponse_Status -> Encoding -toEncoding = ClientBatchStatusResponse_Status -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ClientBatchStatusResponse_Status -> Encoding +toEncoding = ClientBatchStatusResponse_Status -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ClientBatchStatusResponse_Status where - parseJSON :: Value -> Parser ClientBatchStatusResponse_Status -parseJSON = Value -> Parser ClientBatchStatusResponse_Status +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ClientBatchStatusResponse_Status where + parseJSON :: Value -> Parser ClientBatchStatusResponse_Status +parseJSON = Value -> Parser ClientBatchStatusResponse_Status forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsProtobuf.Finite ClientBatchStatusResponse_Status \ No newline at end of file +HsJSONPB.parseJSONPB + +instance HsProtobuf.Finite ClientBatchStatusResponse_Status \ No newline at end of file diff --git a/src/Data.Sawtooth.ClientBlock.html b/src/Data.Sawtooth.ClientBlock.html index c1196d8..3b7a679 100644 --- a/src/Data.Sawtooth.ClientBlock.html +++ b/src/Data.Sawtooth.ClientBlock.html @@ -9,50 +9,49 @@ {-# OPTIONS_GHC -fno-warn-unused-matches #-} -- | Generated by Haskell protocol buffer compiler. DO NOT EDIT! - -module Data.Sawtooth.ClientBlock where -import qualified Prelude as Hs -import qualified Proto3.Suite.Class as HsProtobuf -import qualified Proto3.Suite.DotProto as HsProtobuf -import qualified Proto3.Suite.JSONPB as HsJSONPB -import Proto3.Suite.JSONPB ((.=), (.:)) -import qualified Proto3.Suite.Types as HsProtobuf -import qualified Proto3.Wire as HsProtobuf -import qualified Control.Applicative as Hs -import Control.Applicative ((<*>), (<|>), (<$>)) -import qualified Control.DeepSeq as Hs -import qualified Control.Monad as Hs -import qualified Data.ByteString as Hs -import qualified Data.Coerce as Hs -import qualified Data.Int as Hs (Int16, Int32, Int64) -import qualified Data.List.NonEmpty as Hs (NonEmpty(..)) -import qualified Data.Map as Hs (Map, mapKeysMonotonic) -import qualified Data.Proxy as Proxy -import qualified Data.String as Hs (fromString) -import qualified Data.Text.Lazy as Hs (Text) -import qualified Data.Vector as Hs (Vector) -import qualified Data.Word as Hs (Word16, Word32, Word64) -import qualified GHC.Enum as Hs -import qualified GHC.Generics as Hs -import qualified Unsafe.Coerce as Hs -import qualified Data.Sawtooth.Block -import qualified Data.Sawtooth.ClientListControl - -data ClientBlockListRequest = ClientBlockListRequest{ClientBlockListRequest -> Text +module Data.Sawtooth.ClientBlock where +import qualified Prelude as Hs +import qualified Proto3.Suite.Class as HsProtobuf +import qualified Proto3.Suite.DotProto as HsProtobuf +import qualified Proto3.Suite.JSONPB as HsJSONPB +import Proto3.Suite.JSONPB ((.=), (.:)) +import qualified Proto3.Suite.Types as HsProtobuf +import qualified Proto3.Wire as HsProtobuf +import qualified Control.Applicative as Hs +import Control.Applicative ((<*>), (<|>), (<$>)) +import qualified Control.DeepSeq as Hs +import qualified Control.Monad as Hs +import qualified Data.ByteString as Hs +import qualified Data.Coerce as Hs +import qualified Data.Int as Hs (Int16, Int32, Int64) +import qualified Data.List.NonEmpty as Hs (NonEmpty(..)) +import qualified Data.Map as Hs (Map, mapKeysMonotonic) +import qualified Data.Proxy as Proxy +import qualified Data.String as Hs (fromString) +import qualified Data.Text.Lazy as Hs (Text) +import qualified Data.Vector as Hs (Vector) +import qualified Data.Word as Hs (Word16, Word32, Word64) +import qualified GHC.Enum as Hs +import qualified GHC.Generics as Hs +import qualified Unsafe.Coerce as Hs +import qualified Data.Sawtooth.Block +import qualified Data.Sawtooth.ClientListControl + +data ClientBlockListRequest = ClientBlockListRequest{ClientBlockListRequest -> Text clientBlockListRequestHeadId - :: Hs.Text, - ClientBlockListRequest -> Vector Text + :: Hs.Text, + ClientBlockListRequest -> Vector Text clientBlockListRequestBlockIds :: - Hs.Vector Hs.Text, - ClientBlockListRequest -> Maybe ClientPagingControls + Hs.Vector Hs.Text, + ClientBlockListRequest -> Maybe ClientPagingControls clientBlockListRequestPaging :: - Hs.Maybe - Data.Sawtooth.ClientListControl.ClientPagingControls, - ClientBlockListRequest -> Vector ClientSortControls + Hs.Maybe + Data.Sawtooth.ClientListControl.ClientPagingControls, + ClientBlockListRequest -> Vector ClientSortControls clientBlockListRequestSorting :: - Hs.Vector - Data.Sawtooth.ClientListControl.ClientSortControls} - deriving (Int -> ClientBlockListRequest -> ShowS + Hs.Vector + Data.Sawtooth.ClientListControl.ClientSortControls} + deriving (Int -> ClientBlockListRequest -> ShowS [ClientBlockListRequest] -> ShowS ClientBlockListRequest -> String (Int -> ClientBlockListRequest -> ShowS) @@ -67,7 +66,7 @@ show :: ClientBlockListRequest -> String $cshow :: ClientBlockListRequest -> String showsPrec :: Int -> ClientBlockListRequest -> ShowS $cshowsPrec :: Int -> ClientBlockListRequest -> ShowS -Hs.Show, ClientBlockListRequest -> ClientBlockListRequest -> Bool +Hs.Show, ClientBlockListRequest -> ClientBlockListRequest -> Bool (ClientBlockListRequest -> ClientBlockListRequest -> Bool) -> (ClientBlockListRequest -> ClientBlockListRequest -> Bool) -> Eq ClientBlockListRequest @@ -76,9 +75,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: ClientBlockListRequest -> ClientBlockListRequest -> Bool == :: ClientBlockListRequest -> ClientBlockListRequest -> Bool $c== :: ClientBlockListRequest -> ClientBlockListRequest -> Bool -Hs.Eq, Eq ClientBlockListRequest -Eq ClientBlockListRequest => -(ClientBlockListRequest -> ClientBlockListRequest -> Ordering) +Hs.Eq, Eq ClientBlockListRequest +Eq ClientBlockListRequest +-> (ClientBlockListRequest -> ClientBlockListRequest -> Ordering) -> (ClientBlockListRequest -> ClientBlockListRequest -> Bool) -> (ClientBlockListRequest -> ClientBlockListRequest -> Bool) -> (ClientBlockListRequest -> ClientBlockListRequest -> Bool) @@ -93,8 +92,8 @@ ClientBlockListRequest -> ClientBlockListRequest -> Ordering ClientBlockListRequest -> ClientBlockListRequest -> ClientBlockListRequest forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -121,7 +120,7 @@ $c< :: ClientBlockListRequest -> ClientBlockListRequest -> Bool compare :: ClientBlockListRequest -> ClientBlockListRequest -> Ordering $ccompare :: ClientBlockListRequest -> ClientBlockListRequest -> Ordering $cp1Ord :: Eq ClientBlockListRequest -Hs.Ord, (forall x. ClientBlockListRequest -> Rep ClientBlockListRequest x) +Hs.Ord, (forall x. ClientBlockListRequest -> Rep ClientBlockListRequest x) -> (forall x. Rep ClientBlockListRequest x -> ClientBlockListRequest) -> Generic ClientBlockListRequest @@ -131,80 +130,85 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep ClientBlockListRequest x -> ClientBlockListRequest $cfrom :: forall x. ClientBlockListRequest -> Rep ClientBlockListRequest x -Hs.Generic, ClientBlockListRequest -> () +Hs.Generic, ClientBlockListRequest -> () (ClientBlockListRequest -> ()) -> NFData ClientBlockListRequest forall a. (a -> ()) -> NFData a rnf :: ClientBlockListRequest -> () $crnf :: ClientBlockListRequest -> () -Hs.NFData) - -instance HsProtobuf.Named ClientBlockListRequest where - nameOf :: Proxy# ClientBlockListRequest -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ClientBlockListRequest where + nameOf :: Proxy# ClientBlockListRequest -> string +nameOf Proxy# ClientBlockListRequest +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ClientBlockListRequest") - -instance HsProtobuf.HasDefault ClientBlockListRequest - -instance HsProtobuf.Message ClientBlockListRequest where - encodeMessage :: FieldNumber -> ClientBlockListRequest -> MessageBuilder -encodeMessage _ - ClientBlockListRequest{clientBlockListRequestHeadId :: ClientBlockListRequest -> Text +Hs.fromString String +"ClientBlockListRequest") + +instance HsProtobuf.HasDefault ClientBlockListRequest + +instance HsProtobuf.Message ClientBlockListRequest where + encodeMessage :: FieldNumber -> ClientBlockListRequest -> MessageBuilder +encodeMessage FieldNumber +_ + ClientBlockListRequest{clientBlockListRequestHeadId :: ClientBlockListRequest -> Text clientBlockListRequestHeadId = - Text -clientBlockListRequestHeadId, - clientBlockListRequestBlockIds :: ClientBlockListRequest -> Vector Text -clientBlockListRequestBlockIds = Vector Text -clientBlockListRequestBlockIds, - clientBlockListRequestPaging :: ClientBlockListRequest -> Maybe ClientPagingControls -clientBlockListRequestPaging = Maybe ClientPagingControls -clientBlockListRequestPaging, - clientBlockListRequestSorting :: ClientBlockListRequest -> Vector ClientSortControls -clientBlockListRequestSorting = Vector ClientSortControls -clientBlockListRequestSorting} - = ([MessageBuilder] -> MessageBuilder + Text +clientBlockListRequestHeadId, + clientBlockListRequestBlockIds :: ClientBlockListRequest -> Vector Text +clientBlockListRequestBlockIds = Vector Text +clientBlockListRequestBlockIds, + clientBlockListRequestPaging :: ClientBlockListRequest -> Maybe ClientPagingControls +clientBlockListRequestPaging = Maybe ClientPagingControls +clientBlockListRequestPaging, + clientBlockListRequestSorting :: ClientBlockListRequest -> Vector ClientSortControls +clientBlockListRequestSorting = Vector ClientSortControls +clientBlockListRequestSorting} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> Text -> MessageBuilder +Hs.mconcat + [(FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Text -clientBlockListRequestHeadId), - (FieldNumber -> UnpackedVec Text -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Text +clientBlockListRequestHeadId), + (FieldNumber -> UnpackedVec Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (Vector Text -> UnpackedVec Text -forall a b. Coercible a b => a -> b -Hs.coerce @(Hs.Vector Hs.Text) @(HsProtobuf.UnpackedVec Hs.Text) - Vector Text -clientBlockListRequestBlockIds)), - (FieldNumber -> Nested ClientPagingControls -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (Vector Text -> UnpackedVec Text +Hs.coerce @(Hs.Vector Hs.Text) @(HsProtobuf.UnpackedVec Hs.Text) + Vector Text +clientBlockListRequestBlockIds)), + (FieldNumber -> Nested ClientPagingControls -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - (Maybe ClientPagingControls -> Nested ClientPagingControls -forall a b. Coercible a b => a -> b -Hs.coerce - @(Hs.Maybe Data.Sawtooth.ClientListControl.ClientPagingControls) - @(HsProtobuf.Nested Data.Sawtooth.ClientListControl.ClientPagingControls) - Maybe ClientPagingControls -clientBlockListRequestPaging)), - (FieldNumber -> NestedVec ClientSortControls -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + (Maybe ClientPagingControls -> Nested ClientPagingControls +Hs.coerce + @(Hs.Maybe Data.Sawtooth.ClientListControl.ClientPagingControls) + @(HsProtobuf.Nested Data.Sawtooth.ClientListControl.ClientPagingControls) + Maybe ClientPagingControls +clientBlockListRequestPaging)), + (FieldNumber -> NestedVec ClientSortControls -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 4) - (Vector ClientSortControls -> NestedVec ClientSortControls -forall a b. Coercible a b => a -> b -Hs.coerce - @(Hs.Vector Data.Sawtooth.ClientListControl.ClientSortControls) - @(HsProtobuf.NestedVec Data.Sawtooth.ClientListControl.ClientSortControls) - Vector ClientSortControls -clientBlockListRequestSorting))]) - decodeMessage :: FieldNumber -> Parser RawMessage ClientBlockListRequest -decodeMessage _ - = ((Text +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +4) + (Vector ClientSortControls -> NestedVec ClientSortControls +Hs.coerce + @(Hs.Vector Data.Sawtooth.ClientListControl.ClientSortControls) + @(HsProtobuf.NestedVec Data.Sawtooth.ClientListControl.ClientSortControls) + Vector ClientSortControls +clientBlockListRequestSorting))]) + decodeMessage :: FieldNumber -> Parser RawMessage ClientBlockListRequest +decodeMessage FieldNumber +_ + = ((Text -> Vector Text -> Maybe ClientPagingControls -> Vector ClientSortControls @@ -217,7 +221,7 @@ forall a b. Coercible a b => a -> b -> Vector ClientSortControls -> ClientBlockListRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text +Hs.pure Text -> Vector Text -> Maybe ClientPagingControls -> Vector ClientSortControls @@ -237,15 +241,16 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Vector ClientSortControls -> ClientBlockListRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (Vector Text -> Maybe ClientPagingControls @@ -257,21 +262,21 @@ forall a. MessageField a => Parser RawField a (Maybe ClientPagingControls -> Vector ClientSortControls -> ClientBlockListRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (UnpackedVec Text) +<*> + (Parser RawMessage (UnpackedVec Text) -> Parser RawMessage (Vector Text) -forall a b. Coercible a b => a -> b -Hs.coerce @(_ (HsProtobuf.UnpackedVec Hs.Text)) - @(_ (Hs.Vector Hs.Text)) - (Parser RawField (UnpackedVec Text) +Hs.coerce @(_ (HsProtobuf.UnpackedVec Hs.Text)) + @(_ (Hs.Vector Hs.Text)) + (Parser RawField (UnpackedVec Text) -> FieldNumber -> Parser RawMessage (UnpackedVec Text) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (UnpackedVec Text) +HsProtobuf.at Parser RawField (UnpackedVec Text) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2))) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2))) + Parser RawMessage (Maybe ClientPagingControls -> Vector ClientSortControls -> ClientBlockListRequest) @@ -279,182 +284,206 @@ forall a. MessageField a => Parser RawField a -> Parser RawMessage (Vector ClientSortControls -> ClientBlockListRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (Nested ClientPagingControls) +<*> + (Parser RawMessage (Nested ClientPagingControls) -> Parser RawMessage (Maybe ClientPagingControls) -forall a b. Coercible a b => a -> b -Hs.coerce - @(_ (HsProtobuf.Nested Data.Sawtooth.ClientListControl.ClientPagingControls)) - @(_ (Hs.Maybe Data.Sawtooth.ClientListControl.ClientPagingControls)) - (Parser RawField (Nested ClientPagingControls) +Hs.coerce + @(_ (HsProtobuf.Nested Data.Sawtooth.ClientListControl.ClientPagingControls)) + @(_ (Hs.Maybe Data.Sawtooth.ClientListControl.ClientPagingControls)) + (Parser RawField (Nested ClientPagingControls) -> FieldNumber -> Parser RawMessage (Nested ClientPagingControls) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (Nested ClientPagingControls) +HsProtobuf.at Parser RawField (Nested ClientPagingControls) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3))) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3))) + Parser RawMessage (Vector ClientSortControls -> ClientBlockListRequest) -> Parser RawMessage (Vector ClientSortControls) -> Parser RawMessage ClientBlockListRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (NestedVec ClientSortControls) +<*> + (Parser RawMessage (NestedVec ClientSortControls) -> Parser RawMessage (Vector ClientSortControls) -forall a b. Coercible a b => a -> b -Hs.coerce - @(_ (HsProtobuf.NestedVec Data.Sawtooth.ClientListControl.ClientSortControls)) - @(_ (Hs.Vector Data.Sawtooth.ClientListControl.ClientSortControls)) - (Parser RawField (NestedVec ClientSortControls) +Hs.coerce + @(_ (HsProtobuf.NestedVec Data.Sawtooth.ClientListControl.ClientSortControls)) + @(_ (Hs.Vector Data.Sawtooth.ClientListControl.ClientSortControls)) + (Parser RawField (NestedVec ClientSortControls) -> FieldNumber -> Parser RawMessage (NestedVec ClientSortControls) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (NestedVec ClientSortControls) +HsProtobuf.at Parser RawField (NestedVec ClientSortControls) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 4))) - dotProto :: Proxy# ClientBlockListRequest -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +4))) + dotProto :: Proxy# ClientBlockListRequest -> [DotProtoField] +dotProto Proxy# ClientBlockListRequest +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "head_id") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"head_id") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Repeated DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "block_ids") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Repeated DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"block_ids") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim - (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "ClientPagingControls"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "paging") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim + (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"ClientPagingControls"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"paging") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 4) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Repeated - (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "ClientSortControls"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "sorting") - [] - "")] - -instance HsJSONPB.ToJSONPB ClientBlockListRequest where - toJSONPB :: ClientBlockListRequest -> Options -> Value -toJSONPB (ClientBlockListRequest f1 :: Text -f1 f2 :: Vector Text -f2 f3 :: Maybe ClientPagingControls -f3 f4 :: Vector ClientSortControls -f4) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object - ["head_id" Text -> Text -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +4) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Repeated + (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"ClientSortControls"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"sorting") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ClientBlockListRequest where + toJSONPB :: ClientBlockListRequest -> Options -> Value +toJSONPB (ClientBlockListRequest Text +f1 Vector Text +f2 Maybe ClientPagingControls +f3 Vector ClientSortControls +f4) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object + [Text +"head_id" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1, "block_ids" Text -> Vector Text -> Options -> [Pair] +.= Text +f1, Text +"block_ids" Text -> Vector Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Text -f2, "paging" Text -> Maybe ClientPagingControls -> Options -> [Pair] +.= Vector Text +f2, Text +"paging" Text -> Maybe ClientPagingControls -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Maybe ClientPagingControls -f3, - "sorting" Text -> Vector ClientSortControls -> Options -> [Pair] +.= Maybe ClientPagingControls +f3, + Text +"sorting" Text -> Vector ClientSortControls -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector ClientSortControls -f4]) - toEncodingPB :: ClientBlockListRequest -> Options -> Encoding -toEncodingPB (ClientBlockListRequest f1 :: Text -f1 f2 :: Vector Text -f2 f3 :: Maybe ClientPagingControls -f3 f4 :: Vector ClientSortControls -f4) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs - ["head_id" Text -> Text -> Options -> Series +.= Vector ClientSortControls +f4]) + toEncodingPB :: ClientBlockListRequest -> Options -> Encoding +toEncodingPB (ClientBlockListRequest Text +f1 Vector Text +f2 Maybe ClientPagingControls +f3 Vector ClientSortControls +f4) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs + [Text +"head_id" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1, "block_ids" Text -> Vector Text -> Options -> Series +.= Text +f1, Text +"block_ids" Text -> Vector Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Text -f2, "paging" Text -> Maybe ClientPagingControls -> Options -> Series +.= Vector Text +f2, Text +"paging" Text -> Maybe ClientPagingControls -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Maybe ClientPagingControls -f3, - "sorting" Text -> Vector ClientSortControls -> Options -> Series +.= Maybe ClientPagingControls +f3, + Text +"sorting" Text -> Vector ClientSortControls -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector ClientSortControls -f4]) - -instance HsJSONPB.FromJSONPB ClientBlockListRequest where - parseJSONPB :: Value -> Parser ClientBlockListRequest -parseJSONPB - = (String +.= Vector ClientSortControls +f4]) + +instance HsJSONPB.FromJSONPB ClientBlockListRequest where + parseJSONPB :: Value -> Parser ClientBlockListRequest +parseJSONPB + = (String -> (Object -> Parser ClientBlockListRequest) -> Value -> Parser ClientBlockListRequest forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ClientBlockListRequest" - (\ obj :: Object -obj -> - ((Text +HsJSONPB.withObject String +"ClientBlockListRequest" + (\ Object +obj -> + ((Text -> Vector Text -> Maybe ClientPagingControls -> Vector ClientSortControls @@ -466,7 +495,7 @@ forall a. String -> (Object -> Parser a) -> Value -> Parser a -> Vector ClientSortControls -> ClientBlockListRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text +Hs.pure Text -> Vector Text -> Maybe ClientPagingControls -> Vector ClientSortControls @@ -484,12 +513,13 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Vector ClientSortControls -> ClientBlockListRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Text +<*> Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "head_id" Parser +.: Text +"head_id" Parser (Vector Text -> Maybe ClientPagingControls -> Vector ClientSortControls @@ -499,113 +529,117 @@ Object -> Text -> Parser a (Maybe ClientPagingControls -> Vector ClientSortControls -> ClientBlockListRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser (Vector Text) +<*> + Object +obj Object -> Text -> Parser (Vector Text) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "block_ids" - Parser +.: Text +"block_ids" + Parser (Maybe ClientPagingControls -> Vector ClientSortControls -> ClientBlockListRequest) -> Parser (Maybe ClientPagingControls) -> Parser (Vector ClientSortControls -> ClientBlockListRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser (Maybe ClientPagingControls) +<*> Object +obj Object -> Text -> Parser (Maybe ClientPagingControls) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "paging" - Parser (Vector ClientSortControls -> ClientBlockListRequest) +.: Text +"paging" + Parser (Vector ClientSortControls -> ClientBlockListRequest) -> Parser (Vector ClientSortControls) -> Parser ClientBlockListRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser (Vector ClientSortControls) +<*> Object +obj Object -> Text -> Parser (Vector ClientSortControls) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "sorting")) - -instance HsJSONPB.ToJSON ClientBlockListRequest where - toJSON :: ClientBlockListRequest -> Value -toJSON = ClientBlockListRequest -> Value +.: Text +"sorting")) + +instance HsJSONPB.ToJSON ClientBlockListRequest where + toJSON :: ClientBlockListRequest -> Value +toJSON = ClientBlockListRequest -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ClientBlockListRequest -> Encoding -toEncoding = ClientBlockListRequest -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ClientBlockListRequest -> Encoding +toEncoding = ClientBlockListRequest -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ClientBlockListRequest where - parseJSON :: Value -> Parser ClientBlockListRequest -parseJSON = Value -> Parser ClientBlockListRequest +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ClientBlockListRequest where + parseJSON :: Value -> Parser ClientBlockListRequest +parseJSON = Value -> Parser ClientBlockListRequest forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ClientBlockListRequest where - declareNamedSchema :: Proxy ClientBlockListRequest +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ClientBlockListRequest where + declareNamedSchema :: Proxy ClientBlockListRequest -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_head_id :: Proxy (OverrideToSchema Text) +declareNamedSchema Proxy ClientBlockListRequest +_ + = do let declare_head_id :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_head_id = Proxy (OverrideToSchema Text) +declare_head_id = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientBlockListRequestHeadId <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +clientBlockListRequestHeadId <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_head_id Proxy (OverrideToSchema Text) +declare_head_id Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_block_ids :: Proxy (OverrideToSchema (Vector Text)) +Proxy.Proxy + let declare_block_ids :: Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) -declare_block_ids = Proxy (OverrideToSchema (Vector Text)) +declare_block_ids = Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientBlockListRequestBlockIds <- Proxy (OverrideToSchema (Vector Text)) +HsJSONPB.declareSchemaRef + Referenced Schema +clientBlockListRequestBlockIds <- Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) -declare_block_ids Proxy (OverrideToSchema (Vector Text)) +declare_block_ids Proxy (OverrideToSchema (Vector Text)) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_paging :: Proxy (OverrideToSchema (Maybe ClientPagingControls)) +Proxy.Proxy + let declare_paging :: Proxy (OverrideToSchema (Maybe ClientPagingControls)) -> Declare (Definitions Schema) (Referenced Schema) -declare_paging = Proxy (OverrideToSchema (Maybe ClientPagingControls)) +declare_paging = Proxy (OverrideToSchema (Maybe ClientPagingControls)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientBlockListRequestPaging <- Proxy (OverrideToSchema (Maybe ClientPagingControls)) +HsJSONPB.declareSchemaRef + Referenced Schema +clientBlockListRequestPaging <- Proxy (OverrideToSchema (Maybe ClientPagingControls)) -> Declare (Definitions Schema) (Referenced Schema) -declare_paging Proxy (OverrideToSchema (Maybe ClientPagingControls)) +declare_paging Proxy (OverrideToSchema (Maybe ClientPagingControls)) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_sorting :: Proxy (OverrideToSchema (Vector ClientSortControls)) +Proxy.Proxy + let declare_sorting :: Proxy (OverrideToSchema (Vector ClientSortControls)) -> Declare (Definitions Schema) (Referenced Schema) -declare_sorting = Proxy (OverrideToSchema (Vector ClientSortControls)) +declare_sorting = Proxy (OverrideToSchema (Vector ClientSortControls)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientBlockListRequestSorting <- Proxy (OverrideToSchema (Vector ClientSortControls)) +HsJSONPB.declareSchemaRef + Referenced Schema +clientBlockListRequestSorting <- Proxy (OverrideToSchema (Vector ClientSortControls)) -> Declare (Definitions Schema) (Referenced Schema) -declare_sorting Proxy (OverrideToSchema (Vector ClientSortControls)) +declare_sorting Proxy (OverrideToSchema (Vector ClientSortControls)) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ClientBlockListRequest +Proxy.Proxy + let Proxy ClientBlockListRequest _ = (Text -> Vector Text -> Maybe ClientPagingControls @@ -618,7 +652,7 @@ forall k (t :: k). Proxy t -> Vector ClientSortControls -> ClientBlockListRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text +Hs.pure Text -> Vector Text -> Maybe ClientPagingControls -> Vector ClientSortControls @@ -636,15 +670,15 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Vector ClientSortControls -> ClientBlockListRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema Text) +<*> + (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_head_id - Proxy +declare_head_id + Proxy (Vector Text -> Maybe ClientPagingControls -> Vector ClientSortControls @@ -654,94 +688,99 @@ forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a (Maybe ClientPagingControls -> Vector ClientSortControls -> ClientBlockListRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema (Vector Text)) +<*> (Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Vector Text) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Text)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) -declare_block_ids - Proxy +declare_block_ids + Proxy (Maybe ClientPagingControls -> Vector ClientSortControls -> ClientBlockListRequest) -> Proxy (Maybe ClientPagingControls) -> Proxy (Vector ClientSortControls -> ClientBlockListRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema (Maybe ClientPagingControls)) +<*> (Proxy (OverrideToSchema (Maybe ClientPagingControls)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Maybe ClientPagingControls) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Maybe ClientPagingControls)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Maybe ClientPagingControls)) -> Declare (Definitions Schema) (Referenced Schema) -declare_paging - Proxy (Vector ClientSortControls -> ClientBlockListRequest) +declare_paging + Proxy (Vector ClientSortControls -> ClientBlockListRequest) -> Proxy (Vector ClientSortControls) -> Proxy ClientBlockListRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema (Vector ClientSortControls)) +<*> (Proxy (OverrideToSchema (Vector ClientSortControls)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Vector ClientSortControls) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Vector ClientSortControls)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Vector ClientSortControls)) -> Declare (Definitions Schema) (Referenced Schema) -declare_sorting - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_sorting + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ClientBlockListRequest", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ClientBlockListRequest", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("head_id", Referenced Schema -clientBlockListRequestHeadId), - ("block_ids", - Referenced Schema -clientBlockListRequestBlockIds), - ("paging", Referenced Schema -clientBlockListRequestPaging), - ("sorting", - Referenced Schema -clientBlockListRequestSorting)]}}) - -data ClientBlockListResponse = ClientBlockListResponse{ClientBlockListResponse +HsJSONPB.insOrdFromList + [(Text +"head_id", Referenced Schema +clientBlockListRequestHeadId), + (Text +"block_ids", + Referenced Schema +clientBlockListRequestBlockIds), + (Text +"paging", Referenced Schema +clientBlockListRequestPaging), + (Text +"sorting", + Referenced Schema +clientBlockListRequestSorting)]}}) + +data ClientBlockListResponse = ClientBlockListResponse{ClientBlockListResponse -> Enumerated ClientBlockListResponse_Status clientBlockListResponseStatus - :: - HsProtobuf.Enumerated - Data.Sawtooth.ClientBlock.ClientBlockListResponse_Status, - ClientBlockListResponse -> Vector Block + :: + HsProtobuf.Enumerated + Data.Sawtooth.ClientBlock.ClientBlockListResponse_Status, + ClientBlockListResponse -> Vector Block clientBlockListResponseBlocks :: - Hs.Vector Data.Sawtooth.Block.Block, - ClientBlockListResponse -> Text -clientBlockListResponseHeadId :: Hs.Text, - ClientBlockListResponse -> Maybe ClientPagingResponse + Hs.Vector Data.Sawtooth.Block.Block, + ClientBlockListResponse -> Text +clientBlockListResponseHeadId :: Hs.Text, + ClientBlockListResponse -> Maybe ClientPagingResponse clientBlockListResponsePaging :: - Hs.Maybe - Data.Sawtooth.ClientListControl.ClientPagingResponse} - deriving (Int -> ClientBlockListResponse -> ShowS + Hs.Maybe + Data.Sawtooth.ClientListControl.ClientPagingResponse} + deriving (Int -> ClientBlockListResponse -> ShowS [ClientBlockListResponse] -> ShowS ClientBlockListResponse -> String (Int -> ClientBlockListResponse -> ShowS) @@ -756,7 +795,7 @@ show :: ClientBlockListResponse -> String $cshow :: ClientBlockListResponse -> String showsPrec :: Int -> ClientBlockListResponse -> ShowS $cshowsPrec :: Int -> ClientBlockListResponse -> ShowS -Hs.Show, ClientBlockListResponse -> ClientBlockListResponse -> Bool +Hs.Show, ClientBlockListResponse -> ClientBlockListResponse -> Bool (ClientBlockListResponse -> ClientBlockListResponse -> Bool) -> (ClientBlockListResponse -> ClientBlockListResponse -> Bool) -> Eq ClientBlockListResponse @@ -765,9 +804,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: ClientBlockListResponse -> ClientBlockListResponse -> Bool == :: ClientBlockListResponse -> ClientBlockListResponse -> Bool $c== :: ClientBlockListResponse -> ClientBlockListResponse -> Bool -Hs.Eq, Eq ClientBlockListResponse -Eq ClientBlockListResponse => -(ClientBlockListResponse -> ClientBlockListResponse -> Ordering) +Hs.Eq, Eq ClientBlockListResponse +Eq ClientBlockListResponse +-> (ClientBlockListResponse -> ClientBlockListResponse -> Ordering) -> (ClientBlockListResponse -> ClientBlockListResponse -> Bool) -> (ClientBlockListResponse -> ClientBlockListResponse -> Bool) -> (ClientBlockListResponse -> ClientBlockListResponse -> Bool) @@ -782,8 +821,8 @@ ClientBlockListResponse -> ClientBlockListResponse -> Ordering ClientBlockListResponse -> ClientBlockListResponse -> ClientBlockListResponse forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -810,7 +849,7 @@ $c< :: ClientBlockListResponse -> ClientBlockListResponse -> Bool compare :: ClientBlockListResponse -> ClientBlockListResponse -> Ordering $ccompare :: ClientBlockListResponse -> ClientBlockListResponse -> Ordering $cp1Ord :: Eq ClientBlockListResponse -Hs.Ord, (forall x. +Hs.Ord, (forall x. ClientBlockListResponse -> Rep ClientBlockListResponse x) -> (forall x. Rep ClientBlockListResponse x -> ClientBlockListResponse) @@ -821,78 +860,84 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep ClientBlockListResponse x -> ClientBlockListResponse $cfrom :: forall x. ClientBlockListResponse -> Rep ClientBlockListResponse x -Hs.Generic, ClientBlockListResponse -> () +Hs.Generic, ClientBlockListResponse -> () (ClientBlockListResponse -> ()) -> NFData ClientBlockListResponse forall a. (a -> ()) -> NFData a rnf :: ClientBlockListResponse -> () $crnf :: ClientBlockListResponse -> () -Hs.NFData) - -instance HsProtobuf.Named ClientBlockListResponse where - nameOf :: Proxy# ClientBlockListResponse -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ClientBlockListResponse where + nameOf :: Proxy# ClientBlockListResponse -> string +nameOf Proxy# ClientBlockListResponse +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ClientBlockListResponse") - -instance HsProtobuf.HasDefault ClientBlockListResponse - -instance HsProtobuf.Message ClientBlockListResponse where - encodeMessage :: FieldNumber -> ClientBlockListResponse -> MessageBuilder -encodeMessage _ - ClientBlockListResponse{clientBlockListResponseStatus :: ClientBlockListResponse +Hs.fromString String +"ClientBlockListResponse") + +instance HsProtobuf.HasDefault ClientBlockListResponse + +instance HsProtobuf.Message ClientBlockListResponse where + encodeMessage :: FieldNumber -> ClientBlockListResponse -> MessageBuilder +encodeMessage FieldNumber +_ + ClientBlockListResponse{clientBlockListResponseStatus :: ClientBlockListResponse -> Enumerated ClientBlockListResponse_Status clientBlockListResponseStatus = - Enumerated ClientBlockListResponse_Status -clientBlockListResponseStatus, - clientBlockListResponseBlocks :: ClientBlockListResponse -> Vector Block -clientBlockListResponseBlocks = Vector Block -clientBlockListResponseBlocks, - clientBlockListResponseHeadId :: ClientBlockListResponse -> Text -clientBlockListResponseHeadId = Text -clientBlockListResponseHeadId, - clientBlockListResponsePaging :: ClientBlockListResponse -> Maybe ClientPagingResponse -clientBlockListResponsePaging = Maybe ClientPagingResponse -clientBlockListResponsePaging} - = ([MessageBuilder] -> MessageBuilder + Enumerated ClientBlockListResponse_Status +clientBlockListResponseStatus, + clientBlockListResponseBlocks :: ClientBlockListResponse -> Vector Block +clientBlockListResponseBlocks = Vector Block +clientBlockListResponseBlocks, + clientBlockListResponseHeadId :: ClientBlockListResponse -> Text +clientBlockListResponseHeadId = Text +clientBlockListResponseHeadId, + clientBlockListResponsePaging :: ClientBlockListResponse -> Maybe ClientPagingResponse +clientBlockListResponsePaging = Maybe ClientPagingResponse +clientBlockListResponsePaging} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber +Hs.mconcat + [(FieldNumber -> Enumerated ClientBlockListResponse_Status -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Enumerated ClientBlockListResponse_Status -clientBlockListResponseStatus), - (FieldNumber -> NestedVec Block -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Enumerated ClientBlockListResponse_Status +clientBlockListResponseStatus), + (FieldNumber -> NestedVec Block -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (Vector Block -> NestedVec Block -forall a b. Coercible a b => a -> b -Hs.coerce @(Hs.Vector Data.Sawtooth.Block.Block) - @(HsProtobuf.NestedVec Data.Sawtooth.Block.Block) - Vector Block -clientBlockListResponseBlocks)), - (FieldNumber -> Text -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (Vector Block -> NestedVec Block +Hs.coerce @(Hs.Vector Data.Sawtooth.Block.Block) + @(HsProtobuf.NestedVec Data.Sawtooth.Block.Block) + Vector Block +clientBlockListResponseBlocks)), + (FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - Text -clientBlockListResponseHeadId), - (FieldNumber -> Nested ClientPagingResponse -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + Text +clientBlockListResponseHeadId), + (FieldNumber -> Nested ClientPagingResponse -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 4) - (Maybe ClientPagingResponse -> Nested ClientPagingResponse -forall a b. Coercible a b => a -> b -Hs.coerce - @(Hs.Maybe Data.Sawtooth.ClientListControl.ClientPagingResponse) - @(HsProtobuf.Nested Data.Sawtooth.ClientListControl.ClientPagingResponse) - Maybe ClientPagingResponse -clientBlockListResponsePaging))]) - decodeMessage :: FieldNumber -> Parser RawMessage ClientBlockListResponse -decodeMessage _ - = ((Enumerated ClientBlockListResponse_Status +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +4) + (Maybe ClientPagingResponse -> Nested ClientPagingResponse +Hs.coerce + @(Hs.Maybe Data.Sawtooth.ClientListControl.ClientPagingResponse) + @(HsProtobuf.Nested Data.Sawtooth.ClientListControl.ClientPagingResponse) + Maybe ClientPagingResponse +clientBlockListResponsePaging))]) + decodeMessage :: FieldNumber -> Parser RawMessage ClientBlockListResponse +decodeMessage FieldNumber +_ + = ((Enumerated ClientBlockListResponse_Status -> Vector Block -> Text -> Maybe ClientPagingResponse @@ -905,7 +950,7 @@ forall a b. Coercible a b => a -> b -> Maybe ClientPagingResponse -> ClientBlockListResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ClientBlockListResponse_Status +Hs.pure Enumerated ClientBlockListResponse_Status -> Vector Block -> Text -> Maybe ClientPagingResponse @@ -923,17 +968,18 @@ forall (f :: * -> *) a. Applicative f => a -> f a (Vector Block -> Text -> Maybe ClientPagingResponse -> ClientBlockListResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField (Enumerated ClientBlockListResponse_Status) +<*> + (Parser RawField (Enumerated ClientBlockListResponse_Status) -> FieldNumber -> Parser RawMessage (Enumerated ClientBlockListResponse_Status) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (Enumerated ClientBlockListResponse_Status) +HsProtobuf.at Parser RawField (Enumerated ClientBlockListResponse_Status) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (Vector Block -> Text -> Maybe ClientPagingResponse -> ClientBlockListResponse) @@ -942,197 +988,223 @@ forall a. MessageField a => Parser RawField a RawMessage (Text -> Maybe ClientPagingResponse -> ClientBlockListResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (NestedVec Block) +<*> + (Parser RawMessage (NestedVec Block) -> Parser RawMessage (Vector Block) -forall a b. Coercible a b => a -> b -Hs.coerce @(_ (HsProtobuf.NestedVec Data.Sawtooth.Block.Block)) - @(_ (Hs.Vector Data.Sawtooth.Block.Block)) - (Parser RawField (NestedVec Block) +Hs.coerce @(_ (HsProtobuf.NestedVec Data.Sawtooth.Block.Block)) + @(_ (Hs.Vector Data.Sawtooth.Block.Block)) + (Parser RawField (NestedVec Block) -> FieldNumber -> Parser RawMessage (NestedVec Block) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (NestedVec Block) +HsProtobuf.at Parser RawField (NestedVec Block) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2))) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2))) + Parser RawMessage (Text -> Maybe ClientPagingResponse -> ClientBlockListResponse) -> Parser RawMessage Text -> Parser RawMessage (Maybe ClientPagingResponse -> ClientBlockListResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3)) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3)) + Parser RawMessage (Maybe ClientPagingResponse -> ClientBlockListResponse) -> Parser RawMessage (Maybe ClientPagingResponse) -> Parser RawMessage ClientBlockListResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (Nested ClientPagingResponse) +<*> + (Parser RawMessage (Nested ClientPagingResponse) -> Parser RawMessage (Maybe ClientPagingResponse) -forall a b. Coercible a b => a -> b -Hs.coerce - @(_ (HsProtobuf.Nested Data.Sawtooth.ClientListControl.ClientPagingResponse)) - @(_ (Hs.Maybe Data.Sawtooth.ClientListControl.ClientPagingResponse)) - (Parser RawField (Nested ClientPagingResponse) +Hs.coerce + @(_ (HsProtobuf.Nested Data.Sawtooth.ClientListControl.ClientPagingResponse)) + @(_ (Hs.Maybe Data.Sawtooth.ClientListControl.ClientPagingResponse)) + (Parser RawField (Nested ClientPagingResponse) -> FieldNumber -> Parser RawMessage (Nested ClientPagingResponse) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (Nested ClientPagingResponse) +HsProtobuf.at Parser RawField (Nested ClientPagingResponse) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 4))) - dotProto :: Proxy# ClientBlockListResponse -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +4))) + dotProto :: Proxy# ClientBlockListResponse -> [DotProtoField] +dotProto Proxy# ClientBlockListResponse +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "Status"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "status") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"Status"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"status") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Repeated - (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "Block"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "blocks") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Repeated + (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"Block"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"blocks") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "head_id") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"head_id") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 4) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim - (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "ClientPagingResponse"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "paging") - [] - "")] - -instance HsJSONPB.ToJSONPB ClientBlockListResponse where - toJSONPB :: ClientBlockListResponse -> Options -> Value -toJSONPB (ClientBlockListResponse f1 :: Enumerated ClientBlockListResponse_Status -f1 f2 :: Vector Block -f2 f3 :: Text -f3 f4 :: Maybe ClientPagingResponse -f4) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object - ["status" Text +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +4) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim + (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"ClientPagingResponse"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"paging") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ClientBlockListResponse where + toJSONPB :: ClientBlockListResponse -> Options -> Value +toJSONPB (ClientBlockListResponse Enumerated ClientBlockListResponse_Status +f1 Vector Block +f2 Text +f3 Maybe ClientPagingResponse +f4) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object + [Text +"status" Text -> Enumerated ClientBlockListResponse_Status -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated ClientBlockListResponse_Status -f1, "blocks" Text -> Vector Block -> Options -> [Pair] +.= Enumerated ClientBlockListResponse_Status +f1, Text +"blocks" Text -> Vector Block -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Block -f2, "head_id" Text -> Text -> Options -> [Pair] +.= Vector Block +f2, Text +"head_id" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f3, "paging" Text -> Maybe ClientPagingResponse -> Options -> [Pair] +.= Text +f3, Text +"paging" Text -> Maybe ClientPagingResponse -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Maybe ClientPagingResponse -f4]) - toEncodingPB :: ClientBlockListResponse -> Options -> Encoding -toEncodingPB (ClientBlockListResponse f1 :: Enumerated ClientBlockListResponse_Status -f1 f2 :: Vector Block -f2 f3 :: Text -f3 f4 :: Maybe ClientPagingResponse -f4) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs - ["status" Text +.= Maybe ClientPagingResponse +f4]) + toEncodingPB :: ClientBlockListResponse -> Options -> Encoding +toEncodingPB (ClientBlockListResponse Enumerated ClientBlockListResponse_Status +f1 Vector Block +f2 Text +f3 Maybe ClientPagingResponse +f4) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs + [Text +"status" Text -> Enumerated ClientBlockListResponse_Status -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated ClientBlockListResponse_Status -f1, "blocks" Text -> Vector Block -> Options -> Series +.= Enumerated ClientBlockListResponse_Status +f1, Text +"blocks" Text -> Vector Block -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Block -f2, "head_id" Text -> Text -> Options -> Series +.= Vector Block +f2, Text +"head_id" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f3, "paging" Text -> Maybe ClientPagingResponse -> Options -> Series +.= Text +f3, Text +"paging" Text -> Maybe ClientPagingResponse -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Maybe ClientPagingResponse -f4]) - -instance HsJSONPB.FromJSONPB ClientBlockListResponse where - parseJSONPB :: Value -> Parser ClientBlockListResponse -parseJSONPB - = (String +.= Maybe ClientPagingResponse +f4]) + +instance HsJSONPB.FromJSONPB ClientBlockListResponse where + parseJSONPB :: Value -> Parser ClientBlockListResponse +parseJSONPB + = (String -> (Object -> Parser ClientBlockListResponse) -> Value -> Parser ClientBlockListResponse forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ClientBlockListResponse" - (\ obj :: Object -obj -> - ((Enumerated ClientBlockListResponse_Status +HsJSONPB.withObject String +"ClientBlockListResponse" + (\ Object +obj -> + ((Enumerated ClientBlockListResponse_Status -> Vector Block -> Text -> Maybe ClientPagingResponse @@ -1144,7 +1216,7 @@ forall a. String -> (Object -> Parser a) -> Value -> Parser a -> Maybe ClientPagingResponse -> ClientBlockListResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ClientBlockListResponse_Status +Hs.pure Enumerated ClientBlockListResponse_Status -> Vector Block -> Text -> Maybe ClientPagingResponse @@ -1160,129 +1232,134 @@ forall (f :: * -> *) a. Applicative f => a -> f a (Vector Block -> Text -> Maybe ClientPagingResponse -> ClientBlockListResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object +<*> Object +obj Object -> Text -> Parser (Enumerated ClientBlockListResponse_Status) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "status" Parser +.: Text +"status" Parser (Vector Block -> Text -> Maybe ClientPagingResponse -> ClientBlockListResponse) -> Parser (Vector Block) -> Parser (Text -> Maybe ClientPagingResponse -> ClientBlockListResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser (Vector Block) +<*> + Object +obj Object -> Text -> Parser (Vector Block) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "blocks" - Parser +.: Text +"blocks" + Parser (Text -> Maybe ClientPagingResponse -> ClientBlockListResponse) -> Parser Text -> Parser (Maybe ClientPagingResponse -> ClientBlockListResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Text +<*> Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "head_id" - Parser (Maybe ClientPagingResponse -> ClientBlockListResponse) +.: Text +"head_id" + Parser (Maybe ClientPagingResponse -> ClientBlockListResponse) -> Parser (Maybe ClientPagingResponse) -> Parser ClientBlockListResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser (Maybe ClientPagingResponse) +<*> Object +obj Object -> Text -> Parser (Maybe ClientPagingResponse) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "paging")) - -instance HsJSONPB.ToJSON ClientBlockListResponse where - toJSON :: ClientBlockListResponse -> Value -toJSON = ClientBlockListResponse -> Value +.: Text +"paging")) + +instance HsJSONPB.ToJSON ClientBlockListResponse where + toJSON :: ClientBlockListResponse -> Value +toJSON = ClientBlockListResponse -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ClientBlockListResponse -> Encoding -toEncoding = ClientBlockListResponse -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ClientBlockListResponse -> Encoding +toEncoding = ClientBlockListResponse -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ClientBlockListResponse where - parseJSON :: Value -> Parser ClientBlockListResponse -parseJSON = Value -> Parser ClientBlockListResponse +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ClientBlockListResponse where + parseJSON :: Value -> Parser ClientBlockListResponse +parseJSON = Value -> Parser ClientBlockListResponse forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ClientBlockListResponse where - declareNamedSchema :: Proxy ClientBlockListResponse +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ClientBlockListResponse where + declareNamedSchema :: Proxy ClientBlockListResponse -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_status :: Proxy +declareNamedSchema Proxy ClientBlockListResponse +_ + = do let declare_status :: Proxy (OverrideToSchema (Enumerated ClientBlockListResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status = Proxy +declare_status = Proxy (OverrideToSchema (Enumerated ClientBlockListResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientBlockListResponseStatus <- Proxy +HsJSONPB.declareSchemaRef + Referenced Schema +clientBlockListResponseStatus <- Proxy (OverrideToSchema (Enumerated ClientBlockListResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status Proxy +declare_status Proxy (OverrideToSchema (Enumerated ClientBlockListResponse_Status)) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_blocks :: Proxy (OverrideToSchema (Vector Block)) +Proxy.Proxy + let declare_blocks :: Proxy (OverrideToSchema (Vector Block)) -> Declare (Definitions Schema) (Referenced Schema) -declare_blocks = Proxy (OverrideToSchema (Vector Block)) +declare_blocks = Proxy (OverrideToSchema (Vector Block)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientBlockListResponseBlocks <- Proxy (OverrideToSchema (Vector Block)) +HsJSONPB.declareSchemaRef + Referenced Schema +clientBlockListResponseBlocks <- Proxy (OverrideToSchema (Vector Block)) -> Declare (Definitions Schema) (Referenced Schema) -declare_blocks Proxy (OverrideToSchema (Vector Block)) +declare_blocks Proxy (OverrideToSchema (Vector Block)) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_head_id :: Proxy (OverrideToSchema Text) +Proxy.Proxy + let declare_head_id :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_head_id = Proxy (OverrideToSchema Text) +declare_head_id = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientBlockListResponseHeadId <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +clientBlockListResponseHeadId <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_head_id Proxy (OverrideToSchema Text) +declare_head_id Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_paging :: Proxy (OverrideToSchema (Maybe ClientPagingResponse)) +Proxy.Proxy + let declare_paging :: Proxy (OverrideToSchema (Maybe ClientPagingResponse)) -> Declare (Definitions Schema) (Referenced Schema) -declare_paging = Proxy (OverrideToSchema (Maybe ClientPagingResponse)) +declare_paging = Proxy (OverrideToSchema (Maybe ClientPagingResponse)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientBlockListResponsePaging <- Proxy (OverrideToSchema (Maybe ClientPagingResponse)) +HsJSONPB.declareSchemaRef + Referenced Schema +clientBlockListResponsePaging <- Proxy (OverrideToSchema (Maybe ClientPagingResponse)) -> Declare (Definitions Schema) (Referenced Schema) -declare_paging Proxy (OverrideToSchema (Maybe ClientPagingResponse)) +declare_paging Proxy (OverrideToSchema (Maybe ClientPagingResponse)) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ClientBlockListResponse +Proxy.Proxy + let Proxy ClientBlockListResponse _ = (Enumerated ClientBlockListResponse_Status -> Vector Block -> Text @@ -1295,7 +1372,7 @@ forall k (t :: k). Proxy t -> Maybe ClientPagingResponse -> ClientBlockListResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ClientBlockListResponse_Status +Hs.pure Enumerated ClientBlockListResponse_Status -> Vector Block -> Text -> Maybe ClientPagingResponse @@ -1311,103 +1388,108 @@ forall (f :: * -> *) a. Applicative f => a -> f a (Vector Block -> Text -> Maybe ClientPagingResponse -> ClientBlockListResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy +<*> + (Proxy (OverrideToSchema (Enumerated ClientBlockListResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Enumerated ClientBlockListResponse_Status) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy +HsJSONPB.asProxy Proxy (OverrideToSchema (Enumerated ClientBlockListResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status - Proxy +declare_status + Proxy (Vector Block -> Text -> Maybe ClientPagingResponse -> ClientBlockListResponse) -> Proxy (Vector Block) -> Proxy (Text -> Maybe ClientPagingResponse -> ClientBlockListResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema (Vector Block)) +<*> (Proxy (OverrideToSchema (Vector Block)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Vector Block) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Block)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Block)) -> Declare (Definitions Schema) (Referenced Schema) -declare_blocks - Proxy +declare_blocks + Proxy (Text -> Maybe ClientPagingResponse -> ClientBlockListResponse) -> Proxy Text -> Proxy (Maybe ClientPagingResponse -> ClientBlockListResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema Text) +<*> (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_head_id - Proxy (Maybe ClientPagingResponse -> ClientBlockListResponse) +declare_head_id + Proxy (Maybe ClientPagingResponse -> ClientBlockListResponse) -> Proxy (Maybe ClientPagingResponse) -> Proxy ClientBlockListResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema (Maybe ClientPagingResponse)) +<*> (Proxy (OverrideToSchema (Maybe ClientPagingResponse)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Maybe ClientPagingResponse) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Maybe ClientPagingResponse)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Maybe ClientPagingResponse)) -> Declare (Definitions Schema) (Referenced Schema) -declare_paging - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_paging + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ClientBlockListResponse", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ClientBlockListResponse", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("status", Referenced Schema -clientBlockListResponseStatus), - ("blocks", Referenced Schema -clientBlockListResponseBlocks), - ("head_id", Referenced Schema -clientBlockListResponseHeadId), - ("paging", - Referenced Schema -clientBlockListResponsePaging)]}}) - -data ClientBlockListResponse_Status = ClientBlockListResponse_StatusSTATUS_UNSET - | ClientBlockListResponse_StatusOK - | ClientBlockListResponse_StatusINTERNAL_ERROR - | ClientBlockListResponse_StatusNOT_READY - | ClientBlockListResponse_StatusNO_ROOT - | ClientBlockListResponse_StatusNO_RESOURCE - | ClientBlockListResponse_StatusINVALID_PAGING - | ClientBlockListResponse_StatusINVALID_SORT - | ClientBlockListResponse_StatusINVALID_ID - deriving (Int -> ClientBlockListResponse_Status -> ShowS +HsJSONPB.insOrdFromList + [(Text +"status", Referenced Schema +clientBlockListResponseStatus), + (Text +"blocks", Referenced Schema +clientBlockListResponseBlocks), + (Text +"head_id", Referenced Schema +clientBlockListResponseHeadId), + (Text +"paging", + Referenced Schema +clientBlockListResponsePaging)]}}) + +data ClientBlockListResponse_Status = ClientBlockListResponse_StatusSTATUS_UNSET + | ClientBlockListResponse_StatusOK + | ClientBlockListResponse_StatusINTERNAL_ERROR + | ClientBlockListResponse_StatusNOT_READY + | ClientBlockListResponse_StatusNO_ROOT + | ClientBlockListResponse_StatusNO_RESOURCE + | ClientBlockListResponse_StatusINVALID_PAGING + | ClientBlockListResponse_StatusINVALID_SORT + | ClientBlockListResponse_StatusINVALID_ID + deriving (Int -> ClientBlockListResponse_Status -> ShowS [ClientBlockListResponse_Status] -> ShowS ClientBlockListResponse_Status -> String (Int -> ClientBlockListResponse_Status -> ShowS) @@ -1422,7 +1504,7 @@ show :: ClientBlockListResponse_Status -> String $cshow :: ClientBlockListResponse_Status -> String showsPrec :: Int -> ClientBlockListResponse_Status -> ShowS $cshowsPrec :: Int -> ClientBlockListResponse_Status -> ShowS -Hs.Show, ClientBlockListResponse_Status +Hs.Show, ClientBlockListResponse_Status -> ClientBlockListResponse_Status -> Bool (ClientBlockListResponse_Status -> ClientBlockListResponse_Status -> Bool) @@ -1438,7 +1520,7 @@ $c/= :: ClientBlockListResponse_Status -> ClientBlockListResponse_Status -> Bool $c== :: ClientBlockListResponse_Status -> ClientBlockListResponse_Status -> Bool -Hs.Eq, (forall x. +Hs.Eq, (forall x. ClientBlockListResponse_Status -> Rep ClientBlockListResponse_Status x) -> (forall x. @@ -1459,221 +1541,254 @@ Rep ClientBlockListResponse_Status x $cfrom :: forall x. ClientBlockListResponse_Status -> Rep ClientBlockListResponse_Status x -Hs.Generic, ClientBlockListResponse_Status -> () +Hs.Generic, ClientBlockListResponse_Status -> () (ClientBlockListResponse_Status -> ()) -> NFData ClientBlockListResponse_Status forall a. (a -> ()) -> NFData a rnf :: ClientBlockListResponse_Status -> () $crnf :: ClientBlockListResponse_Status -> () -Hs.NFData) - -instance HsProtobuf.Named ClientBlockListResponse_Status where - nameOf :: Proxy# ClientBlockListResponse_Status -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ClientBlockListResponse_Status where + nameOf :: Proxy# ClientBlockListResponse_Status -> string +nameOf Proxy# ClientBlockListResponse_Status +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ClientBlockListResponse_Status") - -instance HsProtobuf.HasDefault ClientBlockListResponse_Status - -instance Hs.Bounded ClientBlockListResponse_Status where - minBound :: ClientBlockListResponse_Status -minBound = ClientBlockListResponse_Status +Hs.fromString String +"ClientBlockListResponse_Status") + +instance HsProtobuf.HasDefault ClientBlockListResponse_Status + +instance Hs.Bounded ClientBlockListResponse_Status where + minBound :: ClientBlockListResponse_Status +minBound = ClientBlockListResponse_Status ClientBlockListResponse_StatusSTATUS_UNSET - maxBound :: ClientBlockListResponse_Status -maxBound = ClientBlockListResponse_Status + maxBound :: ClientBlockListResponse_Status +maxBound = ClientBlockListResponse_Status ClientBlockListResponse_StatusINVALID_ID - -instance Hs.Ord ClientBlockListResponse_Status where - compare :: ClientBlockListResponse_Status + +instance Hs.Ord ClientBlockListResponse_Status where + compare :: ClientBlockListResponse_Status -> ClientBlockListResponse_Status -> Ordering -compare x :: ClientBlockListResponse_Status -x y :: ClientBlockListResponse_Status -y - = Int32 -> Int32 -> Ordering +compare ClientBlockListResponse_Status +x ClientBlockListResponse_Status +y + = Int32 -> Int32 -> Ordering forall a. Ord a => a -> a -> Ordering -Hs.compare (ClientBlockListResponse_Status -> Int32 +Hs.compare (ClientBlockListResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum ClientBlockListResponse_Status -x) - (ClientBlockListResponse_Status -> Int32 +HsProtobuf.fromProtoEnum ClientBlockListResponse_Status +x) + (ClientBlockListResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum ClientBlockListResponse_Status -y) - -instance HsProtobuf.ProtoEnum ClientBlockListResponse_Status where - toProtoEnumMay :: Int32 -> Maybe ClientBlockListResponse_Status -toProtoEnumMay 0 - = ClientBlockListResponse_Status +HsProtobuf.fromProtoEnum ClientBlockListResponse_Status +y) + +instance HsProtobuf.ProtoEnum ClientBlockListResponse_Status where + toProtoEnumMay :: Int32 -> Maybe ClientBlockListResponse_Status +toProtoEnumMay Int32 +0 + = ClientBlockListResponse_Status -> Maybe ClientBlockListResponse_Status forall a. a -> Maybe a -Hs.Just ClientBlockListResponse_Status +Hs.Just ClientBlockListResponse_Status ClientBlockListResponse_StatusSTATUS_UNSET - toProtoEnumMay 1 = ClientBlockListResponse_Status + toProtoEnumMay Int32 +1 = ClientBlockListResponse_Status -> Maybe ClientBlockListResponse_Status forall a. a -> Maybe a -Hs.Just ClientBlockListResponse_Status +Hs.Just ClientBlockListResponse_Status ClientBlockListResponse_StatusOK - toProtoEnumMay 2 - = ClientBlockListResponse_Status + toProtoEnumMay Int32 +2 + = ClientBlockListResponse_Status -> Maybe ClientBlockListResponse_Status forall a. a -> Maybe a -Hs.Just ClientBlockListResponse_Status +Hs.Just ClientBlockListResponse_Status ClientBlockListResponse_StatusINTERNAL_ERROR - toProtoEnumMay 3 = ClientBlockListResponse_Status + toProtoEnumMay Int32 +3 = ClientBlockListResponse_Status -> Maybe ClientBlockListResponse_Status forall a. a -> Maybe a -Hs.Just ClientBlockListResponse_Status +Hs.Just ClientBlockListResponse_Status ClientBlockListResponse_StatusNOT_READY - toProtoEnumMay 4 = ClientBlockListResponse_Status + toProtoEnumMay Int32 +4 = ClientBlockListResponse_Status -> Maybe ClientBlockListResponse_Status forall a. a -> Maybe a -Hs.Just ClientBlockListResponse_Status +Hs.Just ClientBlockListResponse_Status ClientBlockListResponse_StatusNO_ROOT - toProtoEnumMay 5 - = ClientBlockListResponse_Status + toProtoEnumMay Int32 +5 + = ClientBlockListResponse_Status -> Maybe ClientBlockListResponse_Status forall a. a -> Maybe a -Hs.Just ClientBlockListResponse_Status +Hs.Just ClientBlockListResponse_Status ClientBlockListResponse_StatusNO_RESOURCE - toProtoEnumMay 6 - = ClientBlockListResponse_Status + toProtoEnumMay Int32 +6 + = ClientBlockListResponse_Status -> Maybe ClientBlockListResponse_Status forall a. a -> Maybe a -Hs.Just ClientBlockListResponse_Status +Hs.Just ClientBlockListResponse_Status ClientBlockListResponse_StatusINVALID_PAGING - toProtoEnumMay 7 - = ClientBlockListResponse_Status + toProtoEnumMay Int32 +7 + = ClientBlockListResponse_Status -> Maybe ClientBlockListResponse_Status forall a. a -> Maybe a -Hs.Just ClientBlockListResponse_Status +Hs.Just ClientBlockListResponse_Status ClientBlockListResponse_StatusINVALID_SORT - toProtoEnumMay 8 = ClientBlockListResponse_Status + toProtoEnumMay Int32 +8 = ClientBlockListResponse_Status -> Maybe ClientBlockListResponse_Status forall a. a -> Maybe a -Hs.Just ClientBlockListResponse_Status +Hs.Just ClientBlockListResponse_Status ClientBlockListResponse_StatusINVALID_ID - toProtoEnumMay _ = Maybe ClientBlockListResponse_Status + toProtoEnumMay Int32 +_ = Maybe ClientBlockListResponse_Status forall a. Maybe a -Hs.Nothing - fromProtoEnum :: ClientBlockListResponse_Status -> Int32 -fromProtoEnum (ClientBlockListResponse_Status -ClientBlockListResponse_StatusSTATUS_UNSET) = 0 - fromProtoEnum (ClientBlockListResponse_Status -ClientBlockListResponse_StatusOK) = 1 - fromProtoEnum (ClientBlockListResponse_Status -ClientBlockListResponse_StatusINTERNAL_ERROR) = 2 - fromProtoEnum (ClientBlockListResponse_Status -ClientBlockListResponse_StatusNOT_READY) = 3 - fromProtoEnum (ClientBlockListResponse_Status -ClientBlockListResponse_StatusNO_ROOT) = 4 - fromProtoEnum (ClientBlockListResponse_Status -ClientBlockListResponse_StatusNO_RESOURCE) = 5 - fromProtoEnum (ClientBlockListResponse_Status -ClientBlockListResponse_StatusINVALID_PAGING) = 6 - fromProtoEnum (ClientBlockListResponse_Status -ClientBlockListResponse_StatusINVALID_SORT) = 7 - fromProtoEnum (ClientBlockListResponse_Status -ClientBlockListResponse_StatusINVALID_ID) = 8 - -instance HsJSONPB.ToJSONPB ClientBlockListResponse_Status where - toJSONPB :: ClientBlockListResponse_Status -> Options -> Value -toJSONPB x :: ClientBlockListResponse_Status -x _ = ClientBlockListResponse_Status -> Value +Hs.Nothing + fromProtoEnum :: ClientBlockListResponse_Status -> Int32 +fromProtoEnum (ClientBlockListResponse_Status +ClientBlockListResponse_StatusSTATUS_UNSET) = Int32 +0 + fromProtoEnum (ClientBlockListResponse_Status +ClientBlockListResponse_StatusOK) = Int32 +1 + fromProtoEnum (ClientBlockListResponse_Status +ClientBlockListResponse_StatusINTERNAL_ERROR) = Int32 +2 + fromProtoEnum (ClientBlockListResponse_Status +ClientBlockListResponse_StatusNOT_READY) = Int32 +3 + fromProtoEnum (ClientBlockListResponse_Status +ClientBlockListResponse_StatusNO_ROOT) = Int32 +4 + fromProtoEnum (ClientBlockListResponse_Status +ClientBlockListResponse_StatusNO_RESOURCE) = Int32 +5 + fromProtoEnum (ClientBlockListResponse_Status +ClientBlockListResponse_StatusINVALID_PAGING) = Int32 +6 + fromProtoEnum (ClientBlockListResponse_Status +ClientBlockListResponse_StatusINVALID_SORT) = Int32 +7 + fromProtoEnum (ClientBlockListResponse_Status +ClientBlockListResponse_StatusINVALID_ID) = Int32 +8 + +instance HsJSONPB.ToJSONPB ClientBlockListResponse_Status where + toJSONPB :: ClientBlockListResponse_Status -> Options -> Value +toJSONPB ClientBlockListResponse_Status +x Options +_ = ClientBlockListResponse_Status -> Value forall a. (Named a, Show a) => a -> Value -HsJSONPB.enumFieldString ClientBlockListResponse_Status -x - toEncodingPB :: ClientBlockListResponse_Status -> Options -> Encoding -toEncodingPB x :: ClientBlockListResponse_Status -x _ = ClientBlockListResponse_Status -> Encoding +HsJSONPB.enumFieldString ClientBlockListResponse_Status +x + toEncodingPB :: ClientBlockListResponse_Status -> Options -> Encoding +toEncodingPB ClientBlockListResponse_Status +x Options +_ = ClientBlockListResponse_Status -> Encoding forall a. (Named a, Show a) => a -> Encoding -HsJSONPB.enumFieldEncoding ClientBlockListResponse_Status -x - -instance HsJSONPB.FromJSONPB ClientBlockListResponse_Status where - parseJSONPB :: Value -> Parser ClientBlockListResponse_Status -parseJSONPB (HsJSONPB.String "STATUS_UNSET") - = ClientBlockListResponse_Status +HsJSONPB.enumFieldEncoding ClientBlockListResponse_Status +x + +instance HsJSONPB.FromJSONPB ClientBlockListResponse_Status where + parseJSONPB :: Value -> Parser ClientBlockListResponse_Status +parseJSONPB (HsJSONPB.String Text +"STATUS_UNSET") + = ClientBlockListResponse_Status -> Parser ClientBlockListResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientBlockListResponse_Status +Hs.pure ClientBlockListResponse_Status ClientBlockListResponse_StatusSTATUS_UNSET - parseJSONPB (HsJSONPB.String "OK") - = ClientBlockListResponse_Status + parseJSONPB (HsJSONPB.String Text +"OK") + = ClientBlockListResponse_Status -> Parser ClientBlockListResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientBlockListResponse_Status +Hs.pure ClientBlockListResponse_Status ClientBlockListResponse_StatusOK - parseJSONPB (HsJSONPB.String "INTERNAL_ERROR") - = ClientBlockListResponse_Status + parseJSONPB (HsJSONPB.String Text +"INTERNAL_ERROR") + = ClientBlockListResponse_Status -> Parser ClientBlockListResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientBlockListResponse_Status +Hs.pure ClientBlockListResponse_Status ClientBlockListResponse_StatusINTERNAL_ERROR - parseJSONPB (HsJSONPB.String "NOT_READY") - = ClientBlockListResponse_Status + parseJSONPB (HsJSONPB.String Text +"NOT_READY") + = ClientBlockListResponse_Status -> Parser ClientBlockListResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientBlockListResponse_Status +Hs.pure ClientBlockListResponse_Status ClientBlockListResponse_StatusNOT_READY - parseJSONPB (HsJSONPB.String "NO_ROOT") - = ClientBlockListResponse_Status + parseJSONPB (HsJSONPB.String Text +"NO_ROOT") + = ClientBlockListResponse_Status -> Parser ClientBlockListResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientBlockListResponse_Status +Hs.pure ClientBlockListResponse_Status ClientBlockListResponse_StatusNO_ROOT - parseJSONPB (HsJSONPB.String "NO_RESOURCE") - = ClientBlockListResponse_Status + parseJSONPB (HsJSONPB.String Text +"NO_RESOURCE") + = ClientBlockListResponse_Status -> Parser ClientBlockListResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientBlockListResponse_Status +Hs.pure ClientBlockListResponse_Status ClientBlockListResponse_StatusNO_RESOURCE - parseJSONPB (HsJSONPB.String "INVALID_PAGING") - = ClientBlockListResponse_Status + parseJSONPB (HsJSONPB.String Text +"INVALID_PAGING") + = ClientBlockListResponse_Status -> Parser ClientBlockListResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientBlockListResponse_Status +Hs.pure ClientBlockListResponse_Status ClientBlockListResponse_StatusINVALID_PAGING - parseJSONPB (HsJSONPB.String "INVALID_SORT") - = ClientBlockListResponse_Status + parseJSONPB (HsJSONPB.String Text +"INVALID_SORT") + = ClientBlockListResponse_Status -> Parser ClientBlockListResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientBlockListResponse_Status +Hs.pure ClientBlockListResponse_Status ClientBlockListResponse_StatusINVALID_SORT - parseJSONPB (HsJSONPB.String "INVALID_ID") - = ClientBlockListResponse_Status + parseJSONPB (HsJSONPB.String Text +"INVALID_ID") + = ClientBlockListResponse_Status -> Parser ClientBlockListResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientBlockListResponse_Status +Hs.pure ClientBlockListResponse_Status ClientBlockListResponse_StatusINVALID_ID - parseJSONPB v :: Value -v - = (String -> Value -> Parser ClientBlockListResponse_Status + parseJSONPB Value +v + = (String -> Value -> Parser ClientBlockListResponse_Status forall a. String -> Value -> Parser a -HsJSONPB.typeMismatch "ClientBlockListResponse_Status" Value -v) - -instance HsJSONPB.ToJSON ClientBlockListResponse_Status where - toJSON :: ClientBlockListResponse_Status -> Value -toJSON = ClientBlockListResponse_Status -> Value +HsJSONPB.typeMismatch String +"ClientBlockListResponse_Status" Value +v) + +instance HsJSONPB.ToJSON ClientBlockListResponse_Status where + toJSON :: ClientBlockListResponse_Status -> Value +toJSON = ClientBlockListResponse_Status -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ClientBlockListResponse_Status -> Encoding -toEncoding = ClientBlockListResponse_Status -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ClientBlockListResponse_Status -> Encoding +toEncoding = ClientBlockListResponse_Status -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ClientBlockListResponse_Status where - parseJSON :: Value -> Parser ClientBlockListResponse_Status -parseJSON = Value -> Parser ClientBlockListResponse_Status +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ClientBlockListResponse_Status where + parseJSON :: Value -> Parser ClientBlockListResponse_Status +parseJSON = Value -> Parser ClientBlockListResponse_Status forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsProtobuf.Finite ClientBlockListResponse_Status - -newtype ClientBlockGetByIdRequest = ClientBlockGetByIdRequest{ClientBlockGetByIdRequest -> Text +HsJSONPB.parseJSONPB + +instance HsProtobuf.Finite ClientBlockListResponse_Status + +newtype ClientBlockGetByIdRequest = ClientBlockGetByIdRequest{ClientBlockGetByIdRequest -> Text clientBlockGetByIdRequestBlockId - :: Hs.Text} - deriving (Int -> ClientBlockGetByIdRequest -> ShowS + :: Hs.Text} + deriving (Int -> ClientBlockGetByIdRequest -> ShowS [ClientBlockGetByIdRequest] -> ShowS ClientBlockGetByIdRequest -> String (Int -> ClientBlockGetByIdRequest -> ShowS) @@ -1688,7 +1803,7 @@ show :: ClientBlockGetByIdRequest -> String $cshow :: ClientBlockGetByIdRequest -> String showsPrec :: Int -> ClientBlockGetByIdRequest -> ShowS $cshowsPrec :: Int -> ClientBlockGetByIdRequest -> ShowS -Hs.Show, ClientBlockGetByIdRequest -> ClientBlockGetByIdRequest -> Bool +Hs.Show, ClientBlockGetByIdRequest -> ClientBlockGetByIdRequest -> Bool (ClientBlockGetByIdRequest -> ClientBlockGetByIdRequest -> Bool) -> (ClientBlockGetByIdRequest -> ClientBlockGetByIdRequest -> Bool) -> Eq ClientBlockGetByIdRequest @@ -1697,10 +1812,10 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: ClientBlockGetByIdRequest -> ClientBlockGetByIdRequest -> Bool == :: ClientBlockGetByIdRequest -> ClientBlockGetByIdRequest -> Bool $c== :: ClientBlockGetByIdRequest -> ClientBlockGetByIdRequest -> Bool -Hs.Eq, Eq ClientBlockGetByIdRequest -Eq ClientBlockGetByIdRequest => -(ClientBlockGetByIdRequest - -> ClientBlockGetByIdRequest -> Ordering) +Hs.Eq, Eq ClientBlockGetByIdRequest +Eq ClientBlockGetByIdRequest +-> (ClientBlockGetByIdRequest + -> ClientBlockGetByIdRequest -> Ordering) -> (ClientBlockGetByIdRequest -> ClientBlockGetByIdRequest -> Bool) -> (ClientBlockGetByIdRequest -> ClientBlockGetByIdRequest -> Bool) -> (ClientBlockGetByIdRequest -> ClientBlockGetByIdRequest -> Bool) @@ -1715,8 +1830,8 @@ ClientBlockGetByIdRequest -> ClientBlockGetByIdRequest -> Ordering ClientBlockGetByIdRequest -> ClientBlockGetByIdRequest -> ClientBlockGetByIdRequest forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -1743,7 +1858,7 @@ $c< :: ClientBlockGetByIdRequest -> ClientBlockGetByIdRequest -> Bool compare :: ClientBlockGetByIdRequest -> ClientBlockGetByIdRequest -> Ordering $ccompare :: ClientBlockGetByIdRequest -> ClientBlockGetByIdRequest -> Ordering $cp1Ord :: Eq ClientBlockGetByIdRequest -Hs.Ord, (forall x. +Hs.Ord, (forall x. ClientBlockGetByIdRequest -> Rep ClientBlockGetByIdRequest x) -> (forall x. Rep ClientBlockGetByIdRequest x -> ClientBlockGetByIdRequest) @@ -1758,209 +1873,226 @@ $cto :: forall x. Rep ClientBlockGetByIdRequest x -> ClientBlockGetByIdRequest $cfrom :: forall x. ClientBlockGetByIdRequest -> Rep ClientBlockGetByIdRequest x -Hs.Generic, ClientBlockGetByIdRequest -> () +Hs.Generic, ClientBlockGetByIdRequest -> () (ClientBlockGetByIdRequest -> ()) -> NFData ClientBlockGetByIdRequest forall a. (a -> ()) -> NFData a rnf :: ClientBlockGetByIdRequest -> () $crnf :: ClientBlockGetByIdRequest -> () -Hs.NFData) - -instance HsProtobuf.Named ClientBlockGetByIdRequest where - nameOf :: Proxy# ClientBlockGetByIdRequest -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ClientBlockGetByIdRequest where + nameOf :: Proxy# ClientBlockGetByIdRequest -> string +nameOf Proxy# ClientBlockGetByIdRequest +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ClientBlockGetByIdRequest") - -instance HsProtobuf.HasDefault ClientBlockGetByIdRequest - -instance HsProtobuf.Message ClientBlockGetByIdRequest where - encodeMessage :: FieldNumber -> ClientBlockGetByIdRequest -> MessageBuilder -encodeMessage _ - ClientBlockGetByIdRequest{clientBlockGetByIdRequestBlockId :: ClientBlockGetByIdRequest -> Text +Hs.fromString String +"ClientBlockGetByIdRequest") + +instance HsProtobuf.HasDefault ClientBlockGetByIdRequest + +instance HsProtobuf.Message ClientBlockGetByIdRequest where + encodeMessage :: FieldNumber -> ClientBlockGetByIdRequest -> MessageBuilder +encodeMessage FieldNumber +_ + ClientBlockGetByIdRequest{clientBlockGetByIdRequestBlockId :: ClientBlockGetByIdRequest -> Text clientBlockGetByIdRequestBlockId = - Text -clientBlockGetByIdRequestBlockId} - = ([MessageBuilder] -> MessageBuilder + Text +clientBlockGetByIdRequestBlockId} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> Text -> MessageBuilder +Hs.mconcat + [(FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Text -clientBlockGetByIdRequestBlockId)]) - decodeMessage :: FieldNumber -> Parser RawMessage ClientBlockGetByIdRequest -decodeMessage _ - = ((Text -> ClientBlockGetByIdRequest) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Text +clientBlockGetByIdRequestBlockId)]) + decodeMessage :: FieldNumber -> Parser RawMessage ClientBlockGetByIdRequest +decodeMessage FieldNumber +_ + = ((Text -> ClientBlockGetByIdRequest) -> Parser RawMessage (Text -> ClientBlockGetByIdRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> ClientBlockGetByIdRequest +Hs.pure Text -> ClientBlockGetByIdRequest ClientBlockGetByIdRequest) Parser RawMessage (Text -> ClientBlockGetByIdRequest) -> Parser RawMessage Text -> Parser RawMessage ClientBlockGetByIdRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - dotProto :: Proxy# ClientBlockGetByIdRequest -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + dotProto :: Proxy# ClientBlockGetByIdRequest -> [DotProtoField] +dotProto Proxy# ClientBlockGetByIdRequest +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "block_id") - [] - "")] - -instance HsJSONPB.ToJSONPB ClientBlockGetByIdRequest where - toJSONPB :: ClientBlockGetByIdRequest -> Options -> Value -toJSONPB (ClientBlockGetByIdRequest f1 :: Text -f1) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["block_id" Text -> Text -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"block_id") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ClientBlockGetByIdRequest where + toJSONPB :: ClientBlockGetByIdRequest -> Options -> Value +toJSONPB (ClientBlockGetByIdRequest Text +f1) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"block_id" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1]) - toEncodingPB :: ClientBlockGetByIdRequest -> Options -> Encoding -toEncodingPB (ClientBlockGetByIdRequest f1 :: Text -f1) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["block_id" Text -> Text -> Options -> Series +.= Text +f1]) + toEncodingPB :: ClientBlockGetByIdRequest -> Options -> Encoding +toEncodingPB (ClientBlockGetByIdRequest Text +f1) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"block_id" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1]) - -instance HsJSONPB.FromJSONPB ClientBlockGetByIdRequest where - parseJSONPB :: Value -> Parser ClientBlockGetByIdRequest -parseJSONPB - = (String +.= Text +f1]) + +instance HsJSONPB.FromJSONPB ClientBlockGetByIdRequest where + parseJSONPB :: Value -> Parser ClientBlockGetByIdRequest +parseJSONPB + = (String -> (Object -> Parser ClientBlockGetByIdRequest) -> Value -> Parser ClientBlockGetByIdRequest forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ClientBlockGetByIdRequest" - (\ obj :: Object -obj -> - ((Text -> ClientBlockGetByIdRequest) +HsJSONPB.withObject String +"ClientBlockGetByIdRequest" + (\ Object +obj -> + ((Text -> ClientBlockGetByIdRequest) -> Parser (Text -> ClientBlockGetByIdRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> ClientBlockGetByIdRequest +Hs.pure Text -> ClientBlockGetByIdRequest ClientBlockGetByIdRequest) Parser (Text -> ClientBlockGetByIdRequest) -> Parser Text -> Parser ClientBlockGetByIdRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Text +<*> Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "block_id")) - -instance HsJSONPB.ToJSON ClientBlockGetByIdRequest where - toJSON :: ClientBlockGetByIdRequest -> Value -toJSON = ClientBlockGetByIdRequest -> Value +.: Text +"block_id")) + +instance HsJSONPB.ToJSON ClientBlockGetByIdRequest where + toJSON :: ClientBlockGetByIdRequest -> Value +toJSON = ClientBlockGetByIdRequest -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ClientBlockGetByIdRequest -> Encoding -toEncoding = ClientBlockGetByIdRequest -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ClientBlockGetByIdRequest -> Encoding +toEncoding = ClientBlockGetByIdRequest -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ClientBlockGetByIdRequest where - parseJSON :: Value -> Parser ClientBlockGetByIdRequest -parseJSON = Value -> Parser ClientBlockGetByIdRequest +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ClientBlockGetByIdRequest where + parseJSON :: Value -> Parser ClientBlockGetByIdRequest +parseJSON = Value -> Parser ClientBlockGetByIdRequest forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ClientBlockGetByIdRequest where - declareNamedSchema :: Proxy ClientBlockGetByIdRequest +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ClientBlockGetByIdRequest where + declareNamedSchema :: Proxy ClientBlockGetByIdRequest -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_block_id :: Proxy (OverrideToSchema Text) +declareNamedSchema Proxy ClientBlockGetByIdRequest +_ + = do let declare_block_id :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_block_id = Proxy (OverrideToSchema Text) +declare_block_id = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientBlockGetByIdRequestBlockId <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +clientBlockGetByIdRequestBlockId <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_block_id Proxy (OverrideToSchema Text) +declare_block_id Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ClientBlockGetByIdRequest +Proxy.Proxy + let Proxy ClientBlockGetByIdRequest _ = (Text -> ClientBlockGetByIdRequest) -> Proxy (Text -> ClientBlockGetByIdRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> ClientBlockGetByIdRequest +Hs.pure Text -> ClientBlockGetByIdRequest ClientBlockGetByIdRequest Proxy (Text -> ClientBlockGetByIdRequest) -> Proxy Text -> Proxy ClientBlockGetByIdRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema Text) +<*> + (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_block_id - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_block_id + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ClientBlockGetByIdRequest", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ClientBlockGetByIdRequest", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("block_id", - Referenced Schema -clientBlockGetByIdRequestBlockId)]}}) - -newtype ClientBlockGetByNumRequest = ClientBlockGetByNumRequest{ClientBlockGetByNumRequest -> Word64 +HsJSONPB.insOrdFromList + [(Text +"block_id", + Referenced Schema +clientBlockGetByIdRequestBlockId)]}}) + +newtype ClientBlockGetByNumRequest = ClientBlockGetByNumRequest{ClientBlockGetByNumRequest -> Word64 clientBlockGetByNumRequestBlockNum - :: Hs.Word64} - deriving (Int -> ClientBlockGetByNumRequest -> ShowS + :: Hs.Word64} + deriving (Int -> ClientBlockGetByNumRequest -> ShowS [ClientBlockGetByNumRequest] -> ShowS ClientBlockGetByNumRequest -> String (Int -> ClientBlockGetByNumRequest -> ShowS) @@ -1975,7 +2107,7 @@ show :: ClientBlockGetByNumRequest -> String $cshow :: ClientBlockGetByNumRequest -> String showsPrec :: Int -> ClientBlockGetByNumRequest -> ShowS $cshowsPrec :: Int -> ClientBlockGetByNumRequest -> ShowS -Hs.Show, ClientBlockGetByNumRequest -> ClientBlockGetByNumRequest -> Bool +Hs.Show, ClientBlockGetByNumRequest -> ClientBlockGetByNumRequest -> Bool (ClientBlockGetByNumRequest -> ClientBlockGetByNumRequest -> Bool) -> (ClientBlockGetByNumRequest -> ClientBlockGetByNumRequest -> Bool) @@ -1985,10 +2117,10 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: ClientBlockGetByNumRequest -> ClientBlockGetByNumRequest -> Bool == :: ClientBlockGetByNumRequest -> ClientBlockGetByNumRequest -> Bool $c== :: ClientBlockGetByNumRequest -> ClientBlockGetByNumRequest -> Bool -Hs.Eq, Eq ClientBlockGetByNumRequest -Eq ClientBlockGetByNumRequest => -(ClientBlockGetByNumRequest - -> ClientBlockGetByNumRequest -> Ordering) +Hs.Eq, Eq ClientBlockGetByNumRequest +Eq ClientBlockGetByNumRequest +-> (ClientBlockGetByNumRequest + -> ClientBlockGetByNumRequest -> Ordering) -> (ClientBlockGetByNumRequest -> ClientBlockGetByNumRequest -> Bool) -> (ClientBlockGetByNumRequest @@ -2008,8 +2140,8 @@ ClientBlockGetByNumRequest ClientBlockGetByNumRequest -> ClientBlockGetByNumRequest -> ClientBlockGetByNumRequest forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -2038,7 +2170,7 @@ compare :: ClientBlockGetByNumRequest $ccompare :: ClientBlockGetByNumRequest -> ClientBlockGetByNumRequest -> Ordering $cp1Ord :: Eq ClientBlockGetByNumRequest -Hs.Ord, (forall x. +Hs.Ord, (forall x. ClientBlockGetByNumRequest -> Rep ClientBlockGetByNumRequest x) -> (forall x. Rep ClientBlockGetByNumRequest x -> ClientBlockGetByNumRequest) @@ -2053,209 +2185,226 @@ $cto :: forall x. Rep ClientBlockGetByNumRequest x -> ClientBlockGetByNumRequest $cfrom :: forall x. ClientBlockGetByNumRequest -> Rep ClientBlockGetByNumRequest x -Hs.Generic, ClientBlockGetByNumRequest -> () +Hs.Generic, ClientBlockGetByNumRequest -> () (ClientBlockGetByNumRequest -> ()) -> NFData ClientBlockGetByNumRequest forall a. (a -> ()) -> NFData a rnf :: ClientBlockGetByNumRequest -> () $crnf :: ClientBlockGetByNumRequest -> () -Hs.NFData) - -instance HsProtobuf.Named ClientBlockGetByNumRequest where - nameOf :: Proxy# ClientBlockGetByNumRequest -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ClientBlockGetByNumRequest where + nameOf :: Proxy# ClientBlockGetByNumRequest -> string +nameOf Proxy# ClientBlockGetByNumRequest +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ClientBlockGetByNumRequest") - -instance HsProtobuf.HasDefault ClientBlockGetByNumRequest - -instance HsProtobuf.Message ClientBlockGetByNumRequest where - encodeMessage :: FieldNumber -> ClientBlockGetByNumRequest -> MessageBuilder -encodeMessage _ - ClientBlockGetByNumRequest{clientBlockGetByNumRequestBlockNum :: ClientBlockGetByNumRequest -> Word64 +Hs.fromString String +"ClientBlockGetByNumRequest") + +instance HsProtobuf.HasDefault ClientBlockGetByNumRequest + +instance HsProtobuf.Message ClientBlockGetByNumRequest where + encodeMessage :: FieldNumber -> ClientBlockGetByNumRequest -> MessageBuilder +encodeMessage FieldNumber +_ + ClientBlockGetByNumRequest{clientBlockGetByNumRequestBlockNum :: ClientBlockGetByNumRequest -> Word64 clientBlockGetByNumRequestBlockNum = - Word64 -clientBlockGetByNumRequestBlockNum} - = ([MessageBuilder] -> MessageBuilder + Word64 +clientBlockGetByNumRequestBlockNum} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> Word64 -> MessageBuilder +Hs.mconcat + [(FieldNumber -> Word64 -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Word64 -clientBlockGetByNumRequestBlockNum)]) - decodeMessage :: FieldNumber -> Parser RawMessage ClientBlockGetByNumRequest -decodeMessage _ - = ((Word64 -> ClientBlockGetByNumRequest) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Word64 +clientBlockGetByNumRequestBlockNum)]) + decodeMessage :: FieldNumber -> Parser RawMessage ClientBlockGetByNumRequest +decodeMessage FieldNumber +_ + = ((Word64 -> ClientBlockGetByNumRequest) -> Parser RawMessage (Word64 -> ClientBlockGetByNumRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Word64 -> ClientBlockGetByNumRequest +Hs.pure Word64 -> ClientBlockGetByNumRequest ClientBlockGetByNumRequest) Parser RawMessage (Word64 -> ClientBlockGetByNumRequest) -> Parser RawMessage Word64 -> Parser RawMessage ClientBlockGetByNumRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Word64 -> FieldNumber -> Parser RawMessage Word64 +<*> + (Parser RawField Word64 -> FieldNumber -> Parser RawMessage Word64 forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Word64 +HsProtobuf.at Parser RawField Word64 forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - dotProto :: Proxy# ClientBlockGetByNumRequest -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + dotProto :: Proxy# ClientBlockGetByNumRequest -> [DotProtoField] +dotProto Proxy# ClientBlockGetByNumRequest +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.UInt64) - (String -> DotProtoIdentifier -HsProtobuf.Single "block_num") - [] - "")] - -instance HsJSONPB.ToJSONPB ClientBlockGetByNumRequest where - toJSONPB :: ClientBlockGetByNumRequest -> Options -> Value -toJSONPB (ClientBlockGetByNumRequest f1 :: Word64 -f1) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["block_num" Text -> Word64 -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.UInt64) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"block_num") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ClientBlockGetByNumRequest where + toJSONPB :: ClientBlockGetByNumRequest -> Options -> Value +toJSONPB (ClientBlockGetByNumRequest Word64 +f1) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"block_num" Text -> Word64 -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Word64 -f1]) - toEncodingPB :: ClientBlockGetByNumRequest -> Options -> Encoding -toEncodingPB (ClientBlockGetByNumRequest f1 :: Word64 -f1) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["block_num" Text -> Word64 -> Options -> Series +.= Word64 +f1]) + toEncodingPB :: ClientBlockGetByNumRequest -> Options -> Encoding +toEncodingPB (ClientBlockGetByNumRequest Word64 +f1) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"block_num" Text -> Word64 -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Word64 -f1]) - -instance HsJSONPB.FromJSONPB ClientBlockGetByNumRequest where - parseJSONPB :: Value -> Parser ClientBlockGetByNumRequest -parseJSONPB - = (String +.= Word64 +f1]) + +instance HsJSONPB.FromJSONPB ClientBlockGetByNumRequest where + parseJSONPB :: Value -> Parser ClientBlockGetByNumRequest +parseJSONPB + = (String -> (Object -> Parser ClientBlockGetByNumRequest) -> Value -> Parser ClientBlockGetByNumRequest forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ClientBlockGetByNumRequest" - (\ obj :: Object -obj -> - ((Word64 -> ClientBlockGetByNumRequest) +HsJSONPB.withObject String +"ClientBlockGetByNumRequest" + (\ Object +obj -> + ((Word64 -> ClientBlockGetByNumRequest) -> Parser (Word64 -> ClientBlockGetByNumRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Word64 -> ClientBlockGetByNumRequest +Hs.pure Word64 -> ClientBlockGetByNumRequest ClientBlockGetByNumRequest) Parser (Word64 -> ClientBlockGetByNumRequest) -> Parser Word64 -> Parser ClientBlockGetByNumRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Word64 +<*> Object +obj Object -> Text -> Parser Word64 forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "block_num")) - -instance HsJSONPB.ToJSON ClientBlockGetByNumRequest where - toJSON :: ClientBlockGetByNumRequest -> Value -toJSON = ClientBlockGetByNumRequest -> Value +.: Text +"block_num")) + +instance HsJSONPB.ToJSON ClientBlockGetByNumRequest where + toJSON :: ClientBlockGetByNumRequest -> Value +toJSON = ClientBlockGetByNumRequest -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ClientBlockGetByNumRequest -> Encoding -toEncoding = ClientBlockGetByNumRequest -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ClientBlockGetByNumRequest -> Encoding +toEncoding = ClientBlockGetByNumRequest -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ClientBlockGetByNumRequest where - parseJSON :: Value -> Parser ClientBlockGetByNumRequest -parseJSON = Value -> Parser ClientBlockGetByNumRequest +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ClientBlockGetByNumRequest where + parseJSON :: Value -> Parser ClientBlockGetByNumRequest +parseJSON = Value -> Parser ClientBlockGetByNumRequest forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ClientBlockGetByNumRequest where - declareNamedSchema :: Proxy ClientBlockGetByNumRequest +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ClientBlockGetByNumRequest where + declareNamedSchema :: Proxy ClientBlockGetByNumRequest -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_block_num :: Proxy (OverrideToSchema Word64) +declareNamedSchema Proxy ClientBlockGetByNumRequest +_ + = do let declare_block_num :: Proxy (OverrideToSchema Word64) -> Declare (Definitions Schema) (Referenced Schema) -declare_block_num = Proxy (OverrideToSchema Word64) +declare_block_num = Proxy (OverrideToSchema Word64) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientBlockGetByNumRequestBlockNum <- Proxy (OverrideToSchema Word64) +HsJSONPB.declareSchemaRef + Referenced Schema +clientBlockGetByNumRequestBlockNum <- Proxy (OverrideToSchema Word64) -> Declare (Definitions Schema) (Referenced Schema) -declare_block_num Proxy (OverrideToSchema Word64) +declare_block_num Proxy (OverrideToSchema Word64) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ClientBlockGetByNumRequest +Proxy.Proxy + let Proxy ClientBlockGetByNumRequest _ = (Word64 -> ClientBlockGetByNumRequest) -> Proxy (Word64 -> ClientBlockGetByNumRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Word64 -> ClientBlockGetByNumRequest +Hs.pure Word64 -> ClientBlockGetByNumRequest ClientBlockGetByNumRequest Proxy (Word64 -> ClientBlockGetByNumRequest) -> Proxy Word64 -> Proxy ClientBlockGetByNumRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema Word64) +<*> + (Proxy (OverrideToSchema Word64) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Word64 forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Word64) +HsJSONPB.asProxy Proxy (OverrideToSchema Word64) -> Declare (Definitions Schema) (Referenced Schema) -declare_block_num - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_block_num + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ClientBlockGetByNumRequest", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ClientBlockGetByNumRequest", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("block_num", - Referenced Schema -clientBlockGetByNumRequestBlockNum)]}}) - -newtype ClientBlockGetByTransactionIdRequest = ClientBlockGetByTransactionIdRequest{ClientBlockGetByTransactionIdRequest -> Text +HsJSONPB.insOrdFromList + [(Text +"block_num", + Referenced Schema +clientBlockGetByNumRequestBlockNum)]}}) + +newtype ClientBlockGetByTransactionIdRequest = ClientBlockGetByTransactionIdRequest{ClientBlockGetByTransactionIdRequest -> Text clientBlockGetByTransactionIdRequestTransactionId - :: Hs.Text} - deriving (Int -> ClientBlockGetByTransactionIdRequest -> ShowS + :: Hs.Text} + deriving (Int -> ClientBlockGetByTransactionIdRequest -> ShowS [ClientBlockGetByTransactionIdRequest] -> ShowS ClientBlockGetByTransactionIdRequest -> String (Int -> ClientBlockGetByTransactionIdRequest -> ShowS) @@ -2270,7 +2419,7 @@ show :: ClientBlockGetByTransactionIdRequest -> String $cshow :: ClientBlockGetByTransactionIdRequest -> String showsPrec :: Int -> ClientBlockGetByTransactionIdRequest -> ShowS $cshowsPrec :: Int -> ClientBlockGetByTransactionIdRequest -> ShowS -Hs.Show, ClientBlockGetByTransactionIdRequest +Hs.Show, ClientBlockGetByTransactionIdRequest -> ClientBlockGetByTransactionIdRequest -> Bool (ClientBlockGetByTransactionIdRequest -> ClientBlockGetByTransactionIdRequest -> Bool) @@ -2286,10 +2435,10 @@ $c/= :: ClientBlockGetByTransactionIdRequest -> ClientBlockGetByTransactionIdRequest -> Bool $c== :: ClientBlockGetByTransactionIdRequest -> ClientBlockGetByTransactionIdRequest -> Bool -Hs.Eq, Eq ClientBlockGetByTransactionIdRequest -Eq ClientBlockGetByTransactionIdRequest => -(ClientBlockGetByTransactionIdRequest - -> ClientBlockGetByTransactionIdRequest -> Ordering) +Hs.Eq, Eq ClientBlockGetByTransactionIdRequest +Eq ClientBlockGetByTransactionIdRequest +-> (ClientBlockGetByTransactionIdRequest + -> ClientBlockGetByTransactionIdRequest -> Ordering) -> (ClientBlockGetByTransactionIdRequest -> ClientBlockGetByTransactionIdRequest -> Bool) -> (ClientBlockGetByTransactionIdRequest @@ -2313,8 +2462,8 @@ ClientBlockGetByTransactionIdRequest -> ClientBlockGetByTransactionIdRequest -> ClientBlockGetByTransactionIdRequest forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -2355,7 +2504,7 @@ compare :: ClientBlockGetByTransactionIdRequest $ccompare :: ClientBlockGetByTransactionIdRequest -> ClientBlockGetByTransactionIdRequest -> Ordering $cp1Ord :: Eq ClientBlockGetByTransactionIdRequest -Hs.Ord, (forall x. +Hs.Ord, (forall x. ClientBlockGetByTransactionIdRequest -> Rep ClientBlockGetByTransactionIdRequest x) -> (forall x. @@ -2376,221 +2525,238 @@ Rep ClientBlockGetByTransactionIdRequest x $cfrom :: forall x. ClientBlockGetByTransactionIdRequest -> Rep ClientBlockGetByTransactionIdRequest x -Hs.Generic, - ClientBlockGetByTransactionIdRequest -> () +Hs.Generic, + ClientBlockGetByTransactionIdRequest -> () (ClientBlockGetByTransactionIdRequest -> ()) -> NFData ClientBlockGetByTransactionIdRequest forall a. (a -> ()) -> NFData a rnf :: ClientBlockGetByTransactionIdRequest -> () $crnf :: ClientBlockGetByTransactionIdRequest -> () -Hs.NFData) - -instance HsProtobuf.Named ClientBlockGetByTransactionIdRequest - where - nameOf :: Proxy# ClientBlockGetByTransactionIdRequest -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ClientBlockGetByTransactionIdRequest + where + nameOf :: Proxy# ClientBlockGetByTransactionIdRequest -> string +nameOf Proxy# ClientBlockGetByTransactionIdRequest +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ClientBlockGetByTransactionIdRequest") - -instance HsProtobuf.HasDefault ClientBlockGetByTransactionIdRequest - -instance HsProtobuf.Message ClientBlockGetByTransactionIdRequest - where - encodeMessage :: FieldNumber +Hs.fromString String +"ClientBlockGetByTransactionIdRequest") + +instance HsProtobuf.HasDefault ClientBlockGetByTransactionIdRequest + +instance HsProtobuf.Message ClientBlockGetByTransactionIdRequest + where + encodeMessage :: FieldNumber -> ClientBlockGetByTransactionIdRequest -> MessageBuilder -encodeMessage _ - ClientBlockGetByTransactionIdRequest{clientBlockGetByTransactionIdRequestTransactionId :: ClientBlockGetByTransactionIdRequest -> Text +encodeMessage FieldNumber +_ + ClientBlockGetByTransactionIdRequest{clientBlockGetByTransactionIdRequestTransactionId :: ClientBlockGetByTransactionIdRequest -> Text clientBlockGetByTransactionIdRequestTransactionId - = - Text -clientBlockGetByTransactionIdRequestTransactionId} - = ([MessageBuilder] -> MessageBuilder + = + Text +clientBlockGetByTransactionIdRequestTransactionId} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> Text -> MessageBuilder +Hs.mconcat + [(FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Text -clientBlockGetByTransactionIdRequestTransactionId)]) - decodeMessage :: FieldNumber +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Text +clientBlockGetByTransactionIdRequestTransactionId)]) + decodeMessage :: FieldNumber -> Parser RawMessage ClientBlockGetByTransactionIdRequest -decodeMessage _ - = ((Text -> ClientBlockGetByTransactionIdRequest) +decodeMessage FieldNumber +_ + = ((Text -> ClientBlockGetByTransactionIdRequest) -> Parser RawMessage (Text -> ClientBlockGetByTransactionIdRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> ClientBlockGetByTransactionIdRequest +Hs.pure Text -> ClientBlockGetByTransactionIdRequest ClientBlockGetByTransactionIdRequest) Parser RawMessage (Text -> ClientBlockGetByTransactionIdRequest) -> Parser RawMessage Text -> Parser RawMessage ClientBlockGetByTransactionIdRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - dotProto :: Proxy# ClientBlockGetByTransactionIdRequest -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + dotProto :: Proxy# ClientBlockGetByTransactionIdRequest -> [DotProtoField] +dotProto Proxy# ClientBlockGetByTransactionIdRequest +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "transaction_id") - [] - "")] - -instance HsJSONPB.ToJSONPB ClientBlockGetByTransactionIdRequest - where - toJSONPB :: ClientBlockGetByTransactionIdRequest -> Options -> Value -toJSONPB (ClientBlockGetByTransactionIdRequest f1 :: Text -f1) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["transaction_id" Text -> Text -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"transaction_id") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ClientBlockGetByTransactionIdRequest + where + toJSONPB :: ClientBlockGetByTransactionIdRequest -> Options -> Value +toJSONPB (ClientBlockGetByTransactionIdRequest Text +f1) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"transaction_id" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1]) - toEncodingPB :: ClientBlockGetByTransactionIdRequest -> Options -> Encoding -toEncodingPB (ClientBlockGetByTransactionIdRequest f1 :: Text -f1) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["transaction_id" Text -> Text -> Options -> Series +.= Text +f1]) + toEncodingPB :: ClientBlockGetByTransactionIdRequest -> Options -> Encoding +toEncodingPB (ClientBlockGetByTransactionIdRequest Text +f1) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"transaction_id" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1]) - -instance HsJSONPB.FromJSONPB ClientBlockGetByTransactionIdRequest - where - parseJSONPB :: Value -> Parser ClientBlockGetByTransactionIdRequest -parseJSONPB - = (String +.= Text +f1]) + +instance HsJSONPB.FromJSONPB ClientBlockGetByTransactionIdRequest + where + parseJSONPB :: Value -> Parser ClientBlockGetByTransactionIdRequest +parseJSONPB + = (String -> (Object -> Parser ClientBlockGetByTransactionIdRequest) -> Value -> Parser ClientBlockGetByTransactionIdRequest forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ClientBlockGetByTransactionIdRequest" - (\ obj :: Object -obj -> - ((Text -> ClientBlockGetByTransactionIdRequest) +HsJSONPB.withObject String +"ClientBlockGetByTransactionIdRequest" + (\ Object +obj -> + ((Text -> ClientBlockGetByTransactionIdRequest) -> Parser (Text -> ClientBlockGetByTransactionIdRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> ClientBlockGetByTransactionIdRequest +Hs.pure Text -> ClientBlockGetByTransactionIdRequest ClientBlockGetByTransactionIdRequest) Parser (Text -> ClientBlockGetByTransactionIdRequest) -> Parser Text -> Parser ClientBlockGetByTransactionIdRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser Text +<*> + Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "transaction_id")) - -instance HsJSONPB.ToJSON ClientBlockGetByTransactionIdRequest where - toJSON :: ClientBlockGetByTransactionIdRequest -> Value -toJSON = ClientBlockGetByTransactionIdRequest -> Value +.: Text +"transaction_id")) + +instance HsJSONPB.ToJSON ClientBlockGetByTransactionIdRequest where + toJSON :: ClientBlockGetByTransactionIdRequest -> Value +toJSON = ClientBlockGetByTransactionIdRequest -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ClientBlockGetByTransactionIdRequest -> Encoding -toEncoding = ClientBlockGetByTransactionIdRequest -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ClientBlockGetByTransactionIdRequest -> Encoding +toEncoding = ClientBlockGetByTransactionIdRequest -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ClientBlockGetByTransactionIdRequest - where - parseJSON :: Value -> Parser ClientBlockGetByTransactionIdRequest -parseJSON = Value -> Parser ClientBlockGetByTransactionIdRequest +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ClientBlockGetByTransactionIdRequest + where + parseJSON :: Value -> Parser ClientBlockGetByTransactionIdRequest +parseJSON = Value -> Parser ClientBlockGetByTransactionIdRequest forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ClientBlockGetByTransactionIdRequest - where - declareNamedSchema :: Proxy ClientBlockGetByTransactionIdRequest +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ClientBlockGetByTransactionIdRequest + where + declareNamedSchema :: Proxy ClientBlockGetByTransactionIdRequest -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_transaction_id :: Proxy (OverrideToSchema Text) +declareNamedSchema Proxy ClientBlockGetByTransactionIdRequest +_ + = do let declare_transaction_id :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_transaction_id = Proxy (OverrideToSchema Text) +declare_transaction_id = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientBlockGetByTransactionIdRequestTransactionId <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +clientBlockGetByTransactionIdRequestTransactionId <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_transaction_id - Proxy (OverrideToSchema Text) +declare_transaction_id + Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ClientBlockGetByTransactionIdRequest +Proxy.Proxy + let Proxy ClientBlockGetByTransactionIdRequest _ = (Text -> ClientBlockGetByTransactionIdRequest) -> Proxy (Text -> ClientBlockGetByTransactionIdRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> ClientBlockGetByTransactionIdRequest +Hs.pure Text -> ClientBlockGetByTransactionIdRequest ClientBlockGetByTransactionIdRequest Proxy (Text -> ClientBlockGetByTransactionIdRequest) -> Proxy Text -> Proxy ClientBlockGetByTransactionIdRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema Text) +<*> + (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_transaction_id - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_transaction_id + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ClientBlockGetByTransactionIdRequest", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ClientBlockGetByTransactionIdRequest", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("transaction_id", - Referenced Schema -clientBlockGetByTransactionIdRequestTransactionId)]}}) - -newtype ClientBlockGetByBatchIdRequest = ClientBlockGetByBatchIdRequest{ClientBlockGetByBatchIdRequest -> Text +HsJSONPB.insOrdFromList + [(Text +"transaction_id", + Referenced Schema +clientBlockGetByTransactionIdRequestTransactionId)]}}) + +newtype ClientBlockGetByBatchIdRequest = ClientBlockGetByBatchIdRequest{ClientBlockGetByBatchIdRequest -> Text clientBlockGetByBatchIdRequestBatchId - :: Hs.Text} - deriving (Int -> ClientBlockGetByBatchIdRequest -> ShowS + :: Hs.Text} + deriving (Int -> ClientBlockGetByBatchIdRequest -> ShowS [ClientBlockGetByBatchIdRequest] -> ShowS ClientBlockGetByBatchIdRequest -> String (Int -> ClientBlockGetByBatchIdRequest -> ShowS) @@ -2605,7 +2771,7 @@ show :: ClientBlockGetByBatchIdRequest -> String $cshow :: ClientBlockGetByBatchIdRequest -> String showsPrec :: Int -> ClientBlockGetByBatchIdRequest -> ShowS $cshowsPrec :: Int -> ClientBlockGetByBatchIdRequest -> ShowS -Hs.Show, ClientBlockGetByBatchIdRequest +Hs.Show, ClientBlockGetByBatchIdRequest -> ClientBlockGetByBatchIdRequest -> Bool (ClientBlockGetByBatchIdRequest -> ClientBlockGetByBatchIdRequest -> Bool) @@ -2621,10 +2787,10 @@ $c/= :: ClientBlockGetByBatchIdRequest -> ClientBlockGetByBatchIdRequest -> Bool $c== :: ClientBlockGetByBatchIdRequest -> ClientBlockGetByBatchIdRequest -> Bool -Hs.Eq, Eq ClientBlockGetByBatchIdRequest -Eq ClientBlockGetByBatchIdRequest => -(ClientBlockGetByBatchIdRequest - -> ClientBlockGetByBatchIdRequest -> Ordering) +Hs.Eq, Eq ClientBlockGetByBatchIdRequest +Eq ClientBlockGetByBatchIdRequest +-> (ClientBlockGetByBatchIdRequest + -> ClientBlockGetByBatchIdRequest -> Ordering) -> (ClientBlockGetByBatchIdRequest -> ClientBlockGetByBatchIdRequest -> Bool) -> (ClientBlockGetByBatchIdRequest @@ -2647,8 +2813,8 @@ ClientBlockGetByBatchIdRequest ClientBlockGetByBatchIdRequest -> ClientBlockGetByBatchIdRequest -> ClientBlockGetByBatchIdRequest forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -2685,7 +2851,7 @@ compare :: ClientBlockGetByBatchIdRequest $ccompare :: ClientBlockGetByBatchIdRequest -> ClientBlockGetByBatchIdRequest -> Ordering $cp1Ord :: Eq ClientBlockGetByBatchIdRequest -Hs.Ord, (forall x. +Hs.Ord, (forall x. ClientBlockGetByBatchIdRequest -> Rep ClientBlockGetByBatchIdRequest x) -> (forall x. @@ -2706,215 +2872,232 @@ Rep ClientBlockGetByBatchIdRequest x $cfrom :: forall x. ClientBlockGetByBatchIdRequest -> Rep ClientBlockGetByBatchIdRequest x -Hs.Generic, ClientBlockGetByBatchIdRequest -> () +Hs.Generic, ClientBlockGetByBatchIdRequest -> () (ClientBlockGetByBatchIdRequest -> ()) -> NFData ClientBlockGetByBatchIdRequest forall a. (a -> ()) -> NFData a rnf :: ClientBlockGetByBatchIdRequest -> () $crnf :: ClientBlockGetByBatchIdRequest -> () -Hs.NFData) - -instance HsProtobuf.Named ClientBlockGetByBatchIdRequest where - nameOf :: Proxy# ClientBlockGetByBatchIdRequest -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ClientBlockGetByBatchIdRequest where + nameOf :: Proxy# ClientBlockGetByBatchIdRequest -> string +nameOf Proxy# ClientBlockGetByBatchIdRequest +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ClientBlockGetByBatchIdRequest") - -instance HsProtobuf.HasDefault ClientBlockGetByBatchIdRequest - -instance HsProtobuf.Message ClientBlockGetByBatchIdRequest where - encodeMessage :: FieldNumber -> ClientBlockGetByBatchIdRequest -> MessageBuilder -encodeMessage _ - ClientBlockGetByBatchIdRequest{clientBlockGetByBatchIdRequestBatchId :: ClientBlockGetByBatchIdRequest -> Text +Hs.fromString String +"ClientBlockGetByBatchIdRequest") + +instance HsProtobuf.HasDefault ClientBlockGetByBatchIdRequest + +instance HsProtobuf.Message ClientBlockGetByBatchIdRequest where + encodeMessage :: FieldNumber -> ClientBlockGetByBatchIdRequest -> MessageBuilder +encodeMessage FieldNumber +_ + ClientBlockGetByBatchIdRequest{clientBlockGetByBatchIdRequestBatchId :: ClientBlockGetByBatchIdRequest -> Text clientBlockGetByBatchIdRequestBatchId - = Text -clientBlockGetByBatchIdRequestBatchId} - = ([MessageBuilder] -> MessageBuilder + = Text +clientBlockGetByBatchIdRequestBatchId} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> Text -> MessageBuilder +Hs.mconcat + [(FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Text -clientBlockGetByBatchIdRequestBatchId)]) - decodeMessage :: FieldNumber -> Parser RawMessage ClientBlockGetByBatchIdRequest -decodeMessage _ - = ((Text -> ClientBlockGetByBatchIdRequest) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Text +clientBlockGetByBatchIdRequestBatchId)]) + decodeMessage :: FieldNumber -> Parser RawMessage ClientBlockGetByBatchIdRequest +decodeMessage FieldNumber +_ + = ((Text -> ClientBlockGetByBatchIdRequest) -> Parser RawMessage (Text -> ClientBlockGetByBatchIdRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> ClientBlockGetByBatchIdRequest +Hs.pure Text -> ClientBlockGetByBatchIdRequest ClientBlockGetByBatchIdRequest) Parser RawMessage (Text -> ClientBlockGetByBatchIdRequest) -> Parser RawMessage Text -> Parser RawMessage ClientBlockGetByBatchIdRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - dotProto :: Proxy# ClientBlockGetByBatchIdRequest -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + dotProto :: Proxy# ClientBlockGetByBatchIdRequest -> [DotProtoField] +dotProto Proxy# ClientBlockGetByBatchIdRequest +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "batch_id") - [] - "")] - -instance HsJSONPB.ToJSONPB ClientBlockGetByBatchIdRequest where - toJSONPB :: ClientBlockGetByBatchIdRequest -> Options -> Value -toJSONPB (ClientBlockGetByBatchIdRequest f1 :: Text -f1) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["batch_id" Text -> Text -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"batch_id") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ClientBlockGetByBatchIdRequest where + toJSONPB :: ClientBlockGetByBatchIdRequest -> Options -> Value +toJSONPB (ClientBlockGetByBatchIdRequest Text +f1) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"batch_id" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1]) - toEncodingPB :: ClientBlockGetByBatchIdRequest -> Options -> Encoding -toEncodingPB (ClientBlockGetByBatchIdRequest f1 :: Text -f1) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["batch_id" Text -> Text -> Options -> Series +.= Text +f1]) + toEncodingPB :: ClientBlockGetByBatchIdRequest -> Options -> Encoding +toEncodingPB (ClientBlockGetByBatchIdRequest Text +f1) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"batch_id" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1]) - -instance HsJSONPB.FromJSONPB ClientBlockGetByBatchIdRequest where - parseJSONPB :: Value -> Parser ClientBlockGetByBatchIdRequest -parseJSONPB - = (String +.= Text +f1]) + +instance HsJSONPB.FromJSONPB ClientBlockGetByBatchIdRequest where + parseJSONPB :: Value -> Parser ClientBlockGetByBatchIdRequest +parseJSONPB + = (String -> (Object -> Parser ClientBlockGetByBatchIdRequest) -> Value -> Parser ClientBlockGetByBatchIdRequest forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ClientBlockGetByBatchIdRequest" - (\ obj :: Object -obj -> - ((Text -> ClientBlockGetByBatchIdRequest) +HsJSONPB.withObject String +"ClientBlockGetByBatchIdRequest" + (\ Object +obj -> + ((Text -> ClientBlockGetByBatchIdRequest) -> Parser (Text -> ClientBlockGetByBatchIdRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> ClientBlockGetByBatchIdRequest +Hs.pure Text -> ClientBlockGetByBatchIdRequest ClientBlockGetByBatchIdRequest) Parser (Text -> ClientBlockGetByBatchIdRequest) -> Parser Text -> Parser ClientBlockGetByBatchIdRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Text +<*> Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "batch_id")) - -instance HsJSONPB.ToJSON ClientBlockGetByBatchIdRequest where - toJSON :: ClientBlockGetByBatchIdRequest -> Value -toJSON = ClientBlockGetByBatchIdRequest -> Value +.: Text +"batch_id")) + +instance HsJSONPB.ToJSON ClientBlockGetByBatchIdRequest where + toJSON :: ClientBlockGetByBatchIdRequest -> Value +toJSON = ClientBlockGetByBatchIdRequest -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ClientBlockGetByBatchIdRequest -> Encoding -toEncoding = ClientBlockGetByBatchIdRequest -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ClientBlockGetByBatchIdRequest -> Encoding +toEncoding = ClientBlockGetByBatchIdRequest -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ClientBlockGetByBatchIdRequest where - parseJSON :: Value -> Parser ClientBlockGetByBatchIdRequest -parseJSON = Value -> Parser ClientBlockGetByBatchIdRequest +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ClientBlockGetByBatchIdRequest where + parseJSON :: Value -> Parser ClientBlockGetByBatchIdRequest +parseJSON = Value -> Parser ClientBlockGetByBatchIdRequest forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ClientBlockGetByBatchIdRequest where - declareNamedSchema :: Proxy ClientBlockGetByBatchIdRequest +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ClientBlockGetByBatchIdRequest where + declareNamedSchema :: Proxy ClientBlockGetByBatchIdRequest -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_batch_id :: Proxy (OverrideToSchema Text) +declareNamedSchema Proxy ClientBlockGetByBatchIdRequest +_ + = do let declare_batch_id :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_batch_id = Proxy (OverrideToSchema Text) +declare_batch_id = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientBlockGetByBatchIdRequestBatchId <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +clientBlockGetByBatchIdRequestBatchId <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_batch_id - Proxy (OverrideToSchema Text) +declare_batch_id + Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ClientBlockGetByBatchIdRequest +Proxy.Proxy + let Proxy ClientBlockGetByBatchIdRequest _ = (Text -> ClientBlockGetByBatchIdRequest) -> Proxy (Text -> ClientBlockGetByBatchIdRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> ClientBlockGetByBatchIdRequest +Hs.pure Text -> ClientBlockGetByBatchIdRequest ClientBlockGetByBatchIdRequest Proxy (Text -> ClientBlockGetByBatchIdRequest) -> Proxy Text -> Proxy ClientBlockGetByBatchIdRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema Text) +<*> + (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_batch_id - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_batch_id + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ClientBlockGetByBatchIdRequest", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ClientBlockGetByBatchIdRequest", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("batch_id", - Referenced Schema -clientBlockGetByBatchIdRequestBatchId)]}}) - -data ClientBlockGetResponse = ClientBlockGetResponse{ClientBlockGetResponse -> Enumerated ClientBlockGetResponse_Status +HsJSONPB.insOrdFromList + [(Text +"batch_id", + Referenced Schema +clientBlockGetByBatchIdRequestBatchId)]}}) + +data ClientBlockGetResponse = ClientBlockGetResponse{ClientBlockGetResponse -> Enumerated ClientBlockGetResponse_Status clientBlockGetResponseStatus - :: - HsProtobuf.Enumerated - Data.Sawtooth.ClientBlock.ClientBlockGetResponse_Status, - ClientBlockGetResponse -> Maybe Block + :: + HsProtobuf.Enumerated + Data.Sawtooth.ClientBlock.ClientBlockGetResponse_Status, + ClientBlockGetResponse -> Maybe Block clientBlockGetResponseBlock :: - Hs.Maybe Data.Sawtooth.Block.Block} - deriving (Int -> ClientBlockGetResponse -> ShowS + Hs.Maybe Data.Sawtooth.Block.Block} + deriving (Int -> ClientBlockGetResponse -> ShowS [ClientBlockGetResponse] -> ShowS ClientBlockGetResponse -> String (Int -> ClientBlockGetResponse -> ShowS) @@ -2929,7 +3112,7 @@ show :: ClientBlockGetResponse -> String $cshow :: ClientBlockGetResponse -> String showsPrec :: Int -> ClientBlockGetResponse -> ShowS $cshowsPrec :: Int -> ClientBlockGetResponse -> ShowS -Hs.Show, ClientBlockGetResponse -> ClientBlockGetResponse -> Bool +Hs.Show, ClientBlockGetResponse -> ClientBlockGetResponse -> Bool (ClientBlockGetResponse -> ClientBlockGetResponse -> Bool) -> (ClientBlockGetResponse -> ClientBlockGetResponse -> Bool) -> Eq ClientBlockGetResponse @@ -2938,9 +3121,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: ClientBlockGetResponse -> ClientBlockGetResponse -> Bool == :: ClientBlockGetResponse -> ClientBlockGetResponse -> Bool $c== :: ClientBlockGetResponse -> ClientBlockGetResponse -> Bool -Hs.Eq, Eq ClientBlockGetResponse -Eq ClientBlockGetResponse => -(ClientBlockGetResponse -> ClientBlockGetResponse -> Ordering) +Hs.Eq, Eq ClientBlockGetResponse +Eq ClientBlockGetResponse +-> (ClientBlockGetResponse -> ClientBlockGetResponse -> Ordering) -> (ClientBlockGetResponse -> ClientBlockGetResponse -> Bool) -> (ClientBlockGetResponse -> ClientBlockGetResponse -> Bool) -> (ClientBlockGetResponse -> ClientBlockGetResponse -> Bool) @@ -2955,8 +3138,8 @@ ClientBlockGetResponse -> ClientBlockGetResponse -> Ordering ClientBlockGetResponse -> ClientBlockGetResponse -> ClientBlockGetResponse forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -2983,7 +3166,7 @@ $c< :: ClientBlockGetResponse -> ClientBlockGetResponse -> Bool compare :: ClientBlockGetResponse -> ClientBlockGetResponse -> Ordering $ccompare :: ClientBlockGetResponse -> ClientBlockGetResponse -> Ordering $cp1Ord :: Eq ClientBlockGetResponse -Hs.Ord, (forall x. ClientBlockGetResponse -> Rep ClientBlockGetResponse x) +Hs.Ord, (forall x. ClientBlockGetResponse -> Rep ClientBlockGetResponse x) -> (forall x. Rep ClientBlockGetResponse x -> ClientBlockGetResponse) -> Generic ClientBlockGetResponse @@ -2993,61 +3176,66 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep ClientBlockGetResponse x -> ClientBlockGetResponse $cfrom :: forall x. ClientBlockGetResponse -> Rep ClientBlockGetResponse x -Hs.Generic, ClientBlockGetResponse -> () +Hs.Generic, ClientBlockGetResponse -> () (ClientBlockGetResponse -> ()) -> NFData ClientBlockGetResponse forall a. (a -> ()) -> NFData a rnf :: ClientBlockGetResponse -> () $crnf :: ClientBlockGetResponse -> () -Hs.NFData) - -instance HsProtobuf.Named ClientBlockGetResponse where - nameOf :: Proxy# ClientBlockGetResponse -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ClientBlockGetResponse where + nameOf :: Proxy# ClientBlockGetResponse -> string +nameOf Proxy# ClientBlockGetResponse +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ClientBlockGetResponse") - -instance HsProtobuf.HasDefault ClientBlockGetResponse - -instance HsProtobuf.Message ClientBlockGetResponse where - encodeMessage :: FieldNumber -> ClientBlockGetResponse -> MessageBuilder -encodeMessage _ - ClientBlockGetResponse{clientBlockGetResponseStatus :: ClientBlockGetResponse -> Enumerated ClientBlockGetResponse_Status +Hs.fromString String +"ClientBlockGetResponse") + +instance HsProtobuf.HasDefault ClientBlockGetResponse + +instance HsProtobuf.Message ClientBlockGetResponse where + encodeMessage :: FieldNumber -> ClientBlockGetResponse -> MessageBuilder +encodeMessage FieldNumber +_ + ClientBlockGetResponse{clientBlockGetResponseStatus :: ClientBlockGetResponse -> Enumerated ClientBlockGetResponse_Status clientBlockGetResponseStatus = - Enumerated ClientBlockGetResponse_Status -clientBlockGetResponseStatus, - clientBlockGetResponseBlock :: ClientBlockGetResponse -> Maybe Block -clientBlockGetResponseBlock = Maybe Block -clientBlockGetResponseBlock} - = ([MessageBuilder] -> MessageBuilder + Enumerated ClientBlockGetResponse_Status +clientBlockGetResponseStatus, + clientBlockGetResponseBlock :: ClientBlockGetResponse -> Maybe Block +clientBlockGetResponseBlock = Maybe Block +clientBlockGetResponseBlock} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber +Hs.mconcat + [(FieldNumber -> Enumerated ClientBlockGetResponse_Status -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Enumerated ClientBlockGetResponse_Status -clientBlockGetResponseStatus), - (FieldNumber -> Nested Block -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Enumerated ClientBlockGetResponse_Status +clientBlockGetResponseStatus), + (FieldNumber -> Nested Block -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (Maybe Block -> Nested Block -forall a b. Coercible a b => a -> b -Hs.coerce @(Hs.Maybe Data.Sawtooth.Block.Block) - @(HsProtobuf.Nested Data.Sawtooth.Block.Block) - Maybe Block -clientBlockGetResponseBlock))]) - decodeMessage :: FieldNumber -> Parser RawMessage ClientBlockGetResponse -decodeMessage _ - = ((Enumerated ClientBlockGetResponse_Status +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (Maybe Block -> Nested Block +Hs.coerce @(Hs.Maybe Data.Sawtooth.Block.Block) + @(HsProtobuf.Nested Data.Sawtooth.Block.Block) + Maybe Block +clientBlockGetResponseBlock))]) + decodeMessage :: FieldNumber -> Parser RawMessage ClientBlockGetResponse +decodeMessage FieldNumber +_ + = ((Enumerated ClientBlockGetResponse_Status -> Maybe Block -> ClientBlockGetResponse) -> Parser RawMessage (Enumerated ClientBlockGetResponse_Status -> Maybe Block -> ClientBlockGetResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ClientBlockGetResponse_Status +Hs.pure Enumerated ClientBlockGetResponse_Status -> Maybe Block -> ClientBlockGetResponse ClientBlockGetResponse) Parser RawMessage @@ -3056,122 +3244,137 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Parser RawMessage (Enumerated ClientBlockGetResponse_Status) -> Parser RawMessage (Maybe Block -> ClientBlockGetResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField (Enumerated ClientBlockGetResponse_Status) +<*> + (Parser RawField (Enumerated ClientBlockGetResponse_Status) -> FieldNumber -> Parser RawMessage (Enumerated ClientBlockGetResponse_Status) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (Enumerated ClientBlockGetResponse_Status) +HsProtobuf.at Parser RawField (Enumerated ClientBlockGetResponse_Status) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser RawMessage (Maybe Block -> ClientBlockGetResponse) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (Maybe Block -> ClientBlockGetResponse) -> Parser RawMessage (Maybe Block) -> Parser RawMessage ClientBlockGetResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (Nested Block) -> Parser RawMessage (Maybe Block) -forall a b. Coercible a b => a -> b -Hs.coerce @(_ (HsProtobuf.Nested Data.Sawtooth.Block.Block)) - @(_ (Hs.Maybe Data.Sawtooth.Block.Block)) - (Parser RawField (Nested Block) +<*> + (Parser RawMessage (Nested Block) -> Parser RawMessage (Maybe Block) +Hs.coerce @(_ (HsProtobuf.Nested Data.Sawtooth.Block.Block)) + @(_ (Hs.Maybe Data.Sawtooth.Block.Block)) + (Parser RawField (Nested Block) -> FieldNumber -> Parser RawMessage (Nested Block) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (Nested Block) +HsProtobuf.at Parser RawField (Nested Block) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2))) - dotProto :: Proxy# ClientBlockGetResponse -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2))) + dotProto :: Proxy# ClientBlockGetResponse -> [DotProtoField] +dotProto Proxy# ClientBlockGetResponse +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "Status"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "status") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"Status"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"status") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "Block"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "block") - [] - "")] - -instance HsJSONPB.ToJSONPB ClientBlockGetResponse where - toJSONPB :: ClientBlockGetResponse -> Options -> Value -toJSONPB (ClientBlockGetResponse f1 :: Enumerated ClientBlockGetResponse_Status -f1 f2 :: Maybe Block -f2) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["status" Text +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"Block"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"block") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ClientBlockGetResponse where + toJSONPB :: ClientBlockGetResponse -> Options -> Value +toJSONPB (ClientBlockGetResponse Enumerated ClientBlockGetResponse_Status +f1 Maybe Block +f2) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"status" Text -> Enumerated ClientBlockGetResponse_Status -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated ClientBlockGetResponse_Status -f1, "block" Text -> Maybe Block -> Options -> [Pair] +.= Enumerated ClientBlockGetResponse_Status +f1, Text +"block" Text -> Maybe Block -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Maybe Block -f2]) - toEncodingPB :: ClientBlockGetResponse -> Options -> Encoding -toEncodingPB (ClientBlockGetResponse f1 :: Enumerated ClientBlockGetResponse_Status -f1 f2 :: Maybe Block -f2) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["status" Text +.= Maybe Block +f2]) + toEncodingPB :: ClientBlockGetResponse -> Options -> Encoding +toEncodingPB (ClientBlockGetResponse Enumerated ClientBlockGetResponse_Status +f1 Maybe Block +f2) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"status" Text -> Enumerated ClientBlockGetResponse_Status -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated ClientBlockGetResponse_Status -f1, "block" Text -> Maybe Block -> Options -> Series +.= Enumerated ClientBlockGetResponse_Status +f1, Text +"block" Text -> Maybe Block -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Maybe Block -f2]) - -instance HsJSONPB.FromJSONPB ClientBlockGetResponse where - parseJSONPB :: Value -> Parser ClientBlockGetResponse -parseJSONPB - = (String +.= Maybe Block +f2]) + +instance HsJSONPB.FromJSONPB ClientBlockGetResponse where + parseJSONPB :: Value -> Parser ClientBlockGetResponse +parseJSONPB + = (String -> (Object -> Parser ClientBlockGetResponse) -> Value -> Parser ClientBlockGetResponse forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ClientBlockGetResponse" - (\ obj :: Object -obj -> - ((Enumerated ClientBlockGetResponse_Status +HsJSONPB.withObject String +"ClientBlockGetResponse" + (\ Object +obj -> + ((Enumerated ClientBlockGetResponse_Status -> Maybe Block -> ClientBlockGetResponse) -> Parser (Enumerated ClientBlockGetResponse_Status -> Maybe Block -> ClientBlockGetResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ClientBlockGetResponse_Status +Hs.pure Enumerated ClientBlockGetResponse_Status -> Maybe Block -> ClientBlockGetResponse ClientBlockGetResponse) Parser (Enumerated ClientBlockGetResponse_Status @@ -3179,78 +3382,81 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Parser (Enumerated ClientBlockGetResponse_Status) -> Parser (Maybe Block -> ClientBlockGetResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser (Enumerated ClientBlockGetResponse_Status) +<*> Object +obj Object -> Text -> Parser (Enumerated ClientBlockGetResponse_Status) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "status" Parser (Maybe Block -> ClientBlockGetResponse) +.: Text +"status" Parser (Maybe Block -> ClientBlockGetResponse) -> Parser (Maybe Block) -> Parser ClientBlockGetResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser (Maybe Block) +<*> + Object +obj Object -> Text -> Parser (Maybe Block) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "block")) - -instance HsJSONPB.ToJSON ClientBlockGetResponse where - toJSON :: ClientBlockGetResponse -> Value -toJSON = ClientBlockGetResponse -> Value +.: Text +"block")) + +instance HsJSONPB.ToJSON ClientBlockGetResponse where + toJSON :: ClientBlockGetResponse -> Value +toJSON = ClientBlockGetResponse -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ClientBlockGetResponse -> Encoding -toEncoding = ClientBlockGetResponse -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ClientBlockGetResponse -> Encoding +toEncoding = ClientBlockGetResponse -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ClientBlockGetResponse where - parseJSON :: Value -> Parser ClientBlockGetResponse -parseJSON = Value -> Parser ClientBlockGetResponse +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ClientBlockGetResponse where + parseJSON :: Value -> Parser ClientBlockGetResponse +parseJSON = Value -> Parser ClientBlockGetResponse forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ClientBlockGetResponse where - declareNamedSchema :: Proxy ClientBlockGetResponse +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ClientBlockGetResponse where + declareNamedSchema :: Proxy ClientBlockGetResponse -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_status :: Proxy (OverrideToSchema (Enumerated ClientBlockGetResponse_Status)) +declareNamedSchema Proxy ClientBlockGetResponse +_ + = do let declare_status :: Proxy (OverrideToSchema (Enumerated ClientBlockGetResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status = Proxy (OverrideToSchema (Enumerated ClientBlockGetResponse_Status)) +declare_status = Proxy (OverrideToSchema (Enumerated ClientBlockGetResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientBlockGetResponseStatus <- Proxy (OverrideToSchema (Enumerated ClientBlockGetResponse_Status)) +HsJSONPB.declareSchemaRef + Referenced Schema +clientBlockGetResponseStatus <- Proxy (OverrideToSchema (Enumerated ClientBlockGetResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status Proxy (OverrideToSchema (Enumerated ClientBlockGetResponse_Status)) +declare_status Proxy (OverrideToSchema (Enumerated ClientBlockGetResponse_Status)) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_block :: Proxy (OverrideToSchema (Maybe Block)) +Proxy.Proxy + let declare_block :: Proxy (OverrideToSchema (Maybe Block)) -> Declare (Definitions Schema) (Referenced Schema) -declare_block = Proxy (OverrideToSchema (Maybe Block)) +declare_block = Proxy (OverrideToSchema (Maybe Block)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientBlockGetResponseBlock <- Proxy (OverrideToSchema (Maybe Block)) +HsJSONPB.declareSchemaRef + Referenced Schema +clientBlockGetResponseBlock <- Proxy (OverrideToSchema (Maybe Block)) -> Declare (Definitions Schema) (Referenced Schema) -declare_block Proxy (OverrideToSchema (Maybe Block)) +declare_block Proxy (OverrideToSchema (Maybe Block)) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ClientBlockGetResponse +Proxy.Proxy + let Proxy ClientBlockGetResponse _ = (Enumerated ClientBlockGetResponse_Status -> Maybe Block -> ClientBlockGetResponse) -> Proxy (Enumerated ClientBlockGetResponse_Status -> Maybe Block -> ClientBlockGetResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ClientBlockGetResponse_Status +Hs.pure Enumerated ClientBlockGetResponse_Status -> Maybe Block -> ClientBlockGetResponse ClientBlockGetResponse Proxy (Enumerated ClientBlockGetResponse_Status @@ -3258,66 +3464,69 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Proxy (Enumerated ClientBlockGetResponse_Status) -> Proxy (Maybe Block -> ClientBlockGetResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy +<*> + (Proxy (OverrideToSchema (Enumerated ClientBlockGetResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Enumerated ClientBlockGetResponse_Status) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Enumerated ClientBlockGetResponse_Status)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Enumerated ClientBlockGetResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status - Proxy (Maybe Block -> ClientBlockGetResponse) +declare_status + Proxy (Maybe Block -> ClientBlockGetResponse) -> Proxy (Maybe Block) -> Proxy ClientBlockGetResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema (Maybe Block)) +<*> (Proxy (OverrideToSchema (Maybe Block)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Maybe Block) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Maybe Block)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Maybe Block)) -> Declare (Definitions Schema) (Referenced Schema) -declare_block - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_block + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ClientBlockGetResponse", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ClientBlockGetResponse", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("status", Referenced Schema -clientBlockGetResponseStatus), - ("block", Referenced Schema -clientBlockGetResponseBlock)]}}) - -data ClientBlockGetResponse_Status = ClientBlockGetResponse_StatusSTATUS_UNSET - | ClientBlockGetResponse_StatusOK - | ClientBlockGetResponse_StatusINTERNAL_ERROR - | ClientBlockGetResponse_StatusNO_RESOURCE - | ClientBlockGetResponse_StatusINVALID_ID - deriving (Int -> ClientBlockGetResponse_Status -> ShowS +HsJSONPB.insOrdFromList + [(Text +"status", Referenced Schema +clientBlockGetResponseStatus), + (Text +"block", Referenced Schema +clientBlockGetResponseBlock)]}}) + +data ClientBlockGetResponse_Status = ClientBlockGetResponse_StatusSTATUS_UNSET + | ClientBlockGetResponse_StatusOK + | ClientBlockGetResponse_StatusINTERNAL_ERROR + | ClientBlockGetResponse_StatusNO_RESOURCE + | ClientBlockGetResponse_StatusINVALID_ID + deriving (Int -> ClientBlockGetResponse_Status -> ShowS [ClientBlockGetResponse_Status] -> ShowS ClientBlockGetResponse_Status -> String (Int -> ClientBlockGetResponse_Status -> ShowS) @@ -3332,7 +3541,7 @@ show :: ClientBlockGetResponse_Status -> String $cshow :: ClientBlockGetResponse_Status -> String showsPrec :: Int -> ClientBlockGetResponse_Status -> ShowS $cshowsPrec :: Int -> ClientBlockGetResponse_Status -> ShowS -Hs.Show, ClientBlockGetResponse_Status +Hs.Show, ClientBlockGetResponse_Status -> ClientBlockGetResponse_Status -> Bool (ClientBlockGetResponse_Status -> ClientBlockGetResponse_Status -> Bool) @@ -3348,7 +3557,7 @@ $c/= :: ClientBlockGetResponse_Status -> ClientBlockGetResponse_Status -> Bool $c== :: ClientBlockGetResponse_Status -> ClientBlockGetResponse_Status -> Bool -Hs.Eq, (forall x. +Hs.Eq, (forall x. ClientBlockGetResponse_Status -> Rep ClientBlockGetResponse_Status x) -> (forall x. @@ -3369,158 +3578,179 @@ Rep ClientBlockGetResponse_Status x $cfrom :: forall x. ClientBlockGetResponse_Status -> Rep ClientBlockGetResponse_Status x -Hs.Generic, ClientBlockGetResponse_Status -> () +Hs.Generic, ClientBlockGetResponse_Status -> () (ClientBlockGetResponse_Status -> ()) -> NFData ClientBlockGetResponse_Status forall a. (a -> ()) -> NFData a rnf :: ClientBlockGetResponse_Status -> () $crnf :: ClientBlockGetResponse_Status -> () -Hs.NFData) - -instance HsProtobuf.Named ClientBlockGetResponse_Status where - nameOf :: Proxy# ClientBlockGetResponse_Status -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ClientBlockGetResponse_Status where + nameOf :: Proxy# ClientBlockGetResponse_Status -> string +nameOf Proxy# ClientBlockGetResponse_Status +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ClientBlockGetResponse_Status") - -instance HsProtobuf.HasDefault ClientBlockGetResponse_Status - -instance Hs.Bounded ClientBlockGetResponse_Status where - minBound :: ClientBlockGetResponse_Status -minBound = ClientBlockGetResponse_Status +Hs.fromString String +"ClientBlockGetResponse_Status") + +instance HsProtobuf.HasDefault ClientBlockGetResponse_Status + +instance Hs.Bounded ClientBlockGetResponse_Status where + minBound :: ClientBlockGetResponse_Status +minBound = ClientBlockGetResponse_Status ClientBlockGetResponse_StatusSTATUS_UNSET - maxBound :: ClientBlockGetResponse_Status -maxBound = ClientBlockGetResponse_Status + maxBound :: ClientBlockGetResponse_Status +maxBound = ClientBlockGetResponse_Status ClientBlockGetResponse_StatusINVALID_ID - -instance Hs.Ord ClientBlockGetResponse_Status where - compare :: ClientBlockGetResponse_Status + +instance Hs.Ord ClientBlockGetResponse_Status where + compare :: ClientBlockGetResponse_Status -> ClientBlockGetResponse_Status -> Ordering -compare x :: ClientBlockGetResponse_Status -x y :: ClientBlockGetResponse_Status -y - = Int32 -> Int32 -> Ordering +compare ClientBlockGetResponse_Status +x ClientBlockGetResponse_Status +y + = Int32 -> Int32 -> Ordering forall a. Ord a => a -> a -> Ordering -Hs.compare (ClientBlockGetResponse_Status -> Int32 +Hs.compare (ClientBlockGetResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum ClientBlockGetResponse_Status -x) - (ClientBlockGetResponse_Status -> Int32 +HsProtobuf.fromProtoEnum ClientBlockGetResponse_Status +x) + (ClientBlockGetResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum ClientBlockGetResponse_Status -y) - -instance HsProtobuf.ProtoEnum ClientBlockGetResponse_Status where - toProtoEnumMay :: Int32 -> Maybe ClientBlockGetResponse_Status -toProtoEnumMay 0 - = ClientBlockGetResponse_Status +HsProtobuf.fromProtoEnum ClientBlockGetResponse_Status +y) + +instance HsProtobuf.ProtoEnum ClientBlockGetResponse_Status where + toProtoEnumMay :: Int32 -> Maybe ClientBlockGetResponse_Status +toProtoEnumMay Int32 +0 + = ClientBlockGetResponse_Status -> Maybe ClientBlockGetResponse_Status forall a. a -> Maybe a -Hs.Just ClientBlockGetResponse_Status +Hs.Just ClientBlockGetResponse_Status ClientBlockGetResponse_StatusSTATUS_UNSET - toProtoEnumMay 1 = ClientBlockGetResponse_Status + toProtoEnumMay Int32 +1 = ClientBlockGetResponse_Status -> Maybe ClientBlockGetResponse_Status forall a. a -> Maybe a -Hs.Just ClientBlockGetResponse_Status +Hs.Just ClientBlockGetResponse_Status ClientBlockGetResponse_StatusOK - toProtoEnumMay 2 - = ClientBlockGetResponse_Status + toProtoEnumMay Int32 +2 + = ClientBlockGetResponse_Status -> Maybe ClientBlockGetResponse_Status forall a. a -> Maybe a -Hs.Just ClientBlockGetResponse_Status +Hs.Just ClientBlockGetResponse_Status ClientBlockGetResponse_StatusINTERNAL_ERROR - toProtoEnumMay 5 = ClientBlockGetResponse_Status + toProtoEnumMay Int32 +5 = ClientBlockGetResponse_Status -> Maybe ClientBlockGetResponse_Status forall a. a -> Maybe a -Hs.Just ClientBlockGetResponse_Status +Hs.Just ClientBlockGetResponse_Status ClientBlockGetResponse_StatusNO_RESOURCE - toProtoEnumMay 8 = ClientBlockGetResponse_Status + toProtoEnumMay Int32 +8 = ClientBlockGetResponse_Status -> Maybe ClientBlockGetResponse_Status forall a. a -> Maybe a -Hs.Just ClientBlockGetResponse_Status +Hs.Just ClientBlockGetResponse_Status ClientBlockGetResponse_StatusINVALID_ID - toProtoEnumMay _ = Maybe ClientBlockGetResponse_Status + toProtoEnumMay Int32 +_ = Maybe ClientBlockGetResponse_Status forall a. Maybe a -Hs.Nothing - fromProtoEnum :: ClientBlockGetResponse_Status -> Int32 -fromProtoEnum (ClientBlockGetResponse_Status -ClientBlockGetResponse_StatusSTATUS_UNSET) = 0 - fromProtoEnum (ClientBlockGetResponse_Status -ClientBlockGetResponse_StatusOK) = 1 - fromProtoEnum (ClientBlockGetResponse_Status -ClientBlockGetResponse_StatusINTERNAL_ERROR) = 2 - fromProtoEnum (ClientBlockGetResponse_Status -ClientBlockGetResponse_StatusNO_RESOURCE) = 5 - fromProtoEnum (ClientBlockGetResponse_Status -ClientBlockGetResponse_StatusINVALID_ID) = 8 - -instance HsJSONPB.ToJSONPB ClientBlockGetResponse_Status where - toJSONPB :: ClientBlockGetResponse_Status -> Options -> Value -toJSONPB x :: ClientBlockGetResponse_Status -x _ = ClientBlockGetResponse_Status -> Value +Hs.Nothing + fromProtoEnum :: ClientBlockGetResponse_Status -> Int32 +fromProtoEnum (ClientBlockGetResponse_Status +ClientBlockGetResponse_StatusSTATUS_UNSET) = Int32 +0 + fromProtoEnum (ClientBlockGetResponse_Status +ClientBlockGetResponse_StatusOK) = Int32 +1 + fromProtoEnum (ClientBlockGetResponse_Status +ClientBlockGetResponse_StatusINTERNAL_ERROR) = Int32 +2 + fromProtoEnum (ClientBlockGetResponse_Status +ClientBlockGetResponse_StatusNO_RESOURCE) = Int32 +5 + fromProtoEnum (ClientBlockGetResponse_Status +ClientBlockGetResponse_StatusINVALID_ID) = Int32 +8 + +instance HsJSONPB.ToJSONPB ClientBlockGetResponse_Status where + toJSONPB :: ClientBlockGetResponse_Status -> Options -> Value +toJSONPB ClientBlockGetResponse_Status +x Options +_ = ClientBlockGetResponse_Status -> Value forall a. (Named a, Show a) => a -> Value -HsJSONPB.enumFieldString ClientBlockGetResponse_Status -x - toEncodingPB :: ClientBlockGetResponse_Status -> Options -> Encoding -toEncodingPB x :: ClientBlockGetResponse_Status -x _ = ClientBlockGetResponse_Status -> Encoding +HsJSONPB.enumFieldString ClientBlockGetResponse_Status +x + toEncodingPB :: ClientBlockGetResponse_Status -> Options -> Encoding +toEncodingPB ClientBlockGetResponse_Status +x Options +_ = ClientBlockGetResponse_Status -> Encoding forall a. (Named a, Show a) => a -> Encoding -HsJSONPB.enumFieldEncoding ClientBlockGetResponse_Status -x - -instance HsJSONPB.FromJSONPB ClientBlockGetResponse_Status where - parseJSONPB :: Value -> Parser ClientBlockGetResponse_Status -parseJSONPB (HsJSONPB.String "STATUS_UNSET") - = ClientBlockGetResponse_Status +HsJSONPB.enumFieldEncoding ClientBlockGetResponse_Status +x + +instance HsJSONPB.FromJSONPB ClientBlockGetResponse_Status where + parseJSONPB :: Value -> Parser ClientBlockGetResponse_Status +parseJSONPB (HsJSONPB.String Text +"STATUS_UNSET") + = ClientBlockGetResponse_Status -> Parser ClientBlockGetResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientBlockGetResponse_Status +Hs.pure ClientBlockGetResponse_Status ClientBlockGetResponse_StatusSTATUS_UNSET - parseJSONPB (HsJSONPB.String "OK") - = ClientBlockGetResponse_Status + parseJSONPB (HsJSONPB.String Text +"OK") + = ClientBlockGetResponse_Status -> Parser ClientBlockGetResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientBlockGetResponse_Status +Hs.pure ClientBlockGetResponse_Status ClientBlockGetResponse_StatusOK - parseJSONPB (HsJSONPB.String "INTERNAL_ERROR") - = ClientBlockGetResponse_Status + parseJSONPB (HsJSONPB.String Text +"INTERNAL_ERROR") + = ClientBlockGetResponse_Status -> Parser ClientBlockGetResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientBlockGetResponse_Status +Hs.pure ClientBlockGetResponse_Status ClientBlockGetResponse_StatusINTERNAL_ERROR - parseJSONPB (HsJSONPB.String "NO_RESOURCE") - = ClientBlockGetResponse_Status + parseJSONPB (HsJSONPB.String Text +"NO_RESOURCE") + = ClientBlockGetResponse_Status -> Parser ClientBlockGetResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientBlockGetResponse_Status +Hs.pure ClientBlockGetResponse_Status ClientBlockGetResponse_StatusNO_RESOURCE - parseJSONPB (HsJSONPB.String "INVALID_ID") - = ClientBlockGetResponse_Status + parseJSONPB (HsJSONPB.String Text +"INVALID_ID") + = ClientBlockGetResponse_Status -> Parser ClientBlockGetResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientBlockGetResponse_Status +Hs.pure ClientBlockGetResponse_Status ClientBlockGetResponse_StatusINVALID_ID - parseJSONPB v :: Value -v - = (String -> Value -> Parser ClientBlockGetResponse_Status + parseJSONPB Value +v + = (String -> Value -> Parser ClientBlockGetResponse_Status forall a. String -> Value -> Parser a -HsJSONPB.typeMismatch "ClientBlockGetResponse_Status" Value -v) - -instance HsJSONPB.ToJSON ClientBlockGetResponse_Status where - toJSON :: ClientBlockGetResponse_Status -> Value -toJSON = ClientBlockGetResponse_Status -> Value +HsJSONPB.typeMismatch String +"ClientBlockGetResponse_Status" Value +v) + +instance HsJSONPB.ToJSON ClientBlockGetResponse_Status where + toJSON :: ClientBlockGetResponse_Status -> Value +toJSON = ClientBlockGetResponse_Status -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ClientBlockGetResponse_Status -> Encoding -toEncoding = ClientBlockGetResponse_Status -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ClientBlockGetResponse_Status -> Encoding +toEncoding = ClientBlockGetResponse_Status -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ClientBlockGetResponse_Status where - parseJSON :: Value -> Parser ClientBlockGetResponse_Status -parseJSON = Value -> Parser ClientBlockGetResponse_Status +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ClientBlockGetResponse_Status where + parseJSON :: Value -> Parser ClientBlockGetResponse_Status +parseJSON = Value -> Parser ClientBlockGetResponse_Status forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsProtobuf.Finite ClientBlockGetResponse_Status \ No newline at end of file +HsJSONPB.parseJSONPB + +instance HsProtobuf.Finite ClientBlockGetResponse_Status \ No newline at end of file diff --git a/src/Data.Sawtooth.ClientEvent.html b/src/Data.Sawtooth.ClientEvent.html index 1ad9338..941fa82 100644 --- a/src/Data.Sawtooth.ClientEvent.html +++ b/src/Data.Sawtooth.ClientEvent.html @@ -9,43 +9,42 @@ {-# OPTIONS_GHC -fno-warn-unused-matches #-} -- | Generated by Haskell protocol buffer compiler. DO NOT EDIT! - -module Data.Sawtooth.ClientEvent where -import qualified Prelude as Hs -import qualified Proto3.Suite.Class as HsProtobuf -import qualified Proto3.Suite.DotProto as HsProtobuf -import qualified Proto3.Suite.JSONPB as HsJSONPB -import Proto3.Suite.JSONPB ((.=), (.:)) -import qualified Proto3.Suite.Types as HsProtobuf -import qualified Proto3.Wire as HsProtobuf -import qualified Control.Applicative as Hs -import Control.Applicative ((<*>), (<|>), (<$>)) -import qualified Control.DeepSeq as Hs -import qualified Control.Monad as Hs -import qualified Data.ByteString as Hs -import qualified Data.Coerce as Hs -import qualified Data.Int as Hs (Int16, Int32, Int64) -import qualified Data.List.NonEmpty as Hs (NonEmpty(..)) -import qualified Data.Map as Hs (Map, mapKeysMonotonic) -import qualified Data.Proxy as Proxy -import qualified Data.String as Hs (fromString) -import qualified Data.Text.Lazy as Hs (Text) -import qualified Data.Vector as Hs (Vector) -import qualified Data.Word as Hs (Word16, Word32, Word64) -import qualified GHC.Enum as Hs -import qualified GHC.Generics as Hs -import qualified Unsafe.Coerce as Hs -import qualified Data.Sawtooth.Events - -data ClientEventsSubscribeRequest = ClientEventsSubscribeRequest{ClientEventsSubscribeRequest -> Vector EventSubscription +module Data.Sawtooth.ClientEvent where +import qualified Prelude as Hs +import qualified Proto3.Suite.Class as HsProtobuf +import qualified Proto3.Suite.DotProto as HsProtobuf +import qualified Proto3.Suite.JSONPB as HsJSONPB +import Proto3.Suite.JSONPB ((.=), (.:)) +import qualified Proto3.Suite.Types as HsProtobuf +import qualified Proto3.Wire as HsProtobuf +import qualified Control.Applicative as Hs +import Control.Applicative ((<*>), (<|>), (<$>)) +import qualified Control.DeepSeq as Hs +import qualified Control.Monad as Hs +import qualified Data.ByteString as Hs +import qualified Data.Coerce as Hs +import qualified Data.Int as Hs (Int16, Int32, Int64) +import qualified Data.List.NonEmpty as Hs (NonEmpty(..)) +import qualified Data.Map as Hs (Map, mapKeysMonotonic) +import qualified Data.Proxy as Proxy +import qualified Data.String as Hs (fromString) +import qualified Data.Text.Lazy as Hs (Text) +import qualified Data.Vector as Hs (Vector) +import qualified Data.Word as Hs (Word16, Word32, Word64) +import qualified GHC.Enum as Hs +import qualified GHC.Generics as Hs +import qualified Unsafe.Coerce as Hs +import qualified Data.Sawtooth.Events + +data ClientEventsSubscribeRequest = ClientEventsSubscribeRequest{ClientEventsSubscribeRequest -> Vector EventSubscription clientEventsSubscribeRequestSubscriptions - :: - Hs.Vector - Data.Sawtooth.Events.EventSubscription, - ClientEventsSubscribeRequest -> Vector Text + :: + Hs.Vector + Data.Sawtooth.Events.EventSubscription, + ClientEventsSubscribeRequest -> Vector Text clientEventsSubscribeRequestLastKnownBlockIds - :: Hs.Vector Hs.Text} - deriving (Int -> ClientEventsSubscribeRequest -> ShowS + :: Hs.Vector Hs.Text} + deriving (Int -> ClientEventsSubscribeRequest -> ShowS [ClientEventsSubscribeRequest] -> ShowS ClientEventsSubscribeRequest -> String (Int -> ClientEventsSubscribeRequest -> ShowS) @@ -60,7 +59,7 @@ show :: ClientEventsSubscribeRequest -> String $cshow :: ClientEventsSubscribeRequest -> String showsPrec :: Int -> ClientEventsSubscribeRequest -> ShowS $cshowsPrec :: Int -> ClientEventsSubscribeRequest -> ShowS -Hs.Show, ClientEventsSubscribeRequest +Hs.Show, ClientEventsSubscribeRequest -> ClientEventsSubscribeRequest -> Bool (ClientEventsSubscribeRequest -> ClientEventsSubscribeRequest -> Bool) @@ -76,10 +75,10 @@ $c/= :: ClientEventsSubscribeRequest -> ClientEventsSubscribeRequest -> Bool $c== :: ClientEventsSubscribeRequest -> ClientEventsSubscribeRequest -> Bool -Hs.Eq, Eq ClientEventsSubscribeRequest -Eq ClientEventsSubscribeRequest => -(ClientEventsSubscribeRequest - -> ClientEventsSubscribeRequest -> Ordering) +Hs.Eq, Eq ClientEventsSubscribeRequest +Eq ClientEventsSubscribeRequest +-> (ClientEventsSubscribeRequest + -> ClientEventsSubscribeRequest -> Ordering) -> (ClientEventsSubscribeRequest -> ClientEventsSubscribeRequest -> Bool) -> (ClientEventsSubscribeRequest @@ -100,8 +99,8 @@ ClientEventsSubscribeRequest ClientEventsSubscribeRequest -> ClientEventsSubscribeRequest -> ClientEventsSubscribeRequest forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -138,7 +137,7 @@ compare :: ClientEventsSubscribeRequest $ccompare :: ClientEventsSubscribeRequest -> ClientEventsSubscribeRequest -> Ordering $cp1Ord :: Eq ClientEventsSubscribeRequest -Hs.Ord, (forall x. +Hs.Ord, (forall x. ClientEventsSubscribeRequest -> Rep ClientEventsSubscribeRequest x) -> (forall x. Rep ClientEventsSubscribeRequest x -> ClientEventsSubscribeRequest) @@ -153,65 +152,69 @@ $cto :: forall x. Rep ClientEventsSubscribeRequest x -> ClientEventsSubscribeRequest $cfrom :: forall x. ClientEventsSubscribeRequest -> Rep ClientEventsSubscribeRequest x -Hs.Generic, ClientEventsSubscribeRequest -> () +Hs.Generic, ClientEventsSubscribeRequest -> () (ClientEventsSubscribeRequest -> ()) -> NFData ClientEventsSubscribeRequest forall a. (a -> ()) -> NFData a rnf :: ClientEventsSubscribeRequest -> () $crnf :: ClientEventsSubscribeRequest -> () -Hs.NFData) - -instance HsProtobuf.Named ClientEventsSubscribeRequest where - nameOf :: Proxy# ClientEventsSubscribeRequest -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ClientEventsSubscribeRequest where + nameOf :: Proxy# ClientEventsSubscribeRequest -> string +nameOf Proxy# ClientEventsSubscribeRequest +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ClientEventsSubscribeRequest") - -instance HsProtobuf.HasDefault ClientEventsSubscribeRequest - -instance HsProtobuf.Message ClientEventsSubscribeRequest where - encodeMessage :: FieldNumber -> ClientEventsSubscribeRequest -> MessageBuilder -encodeMessage _ - ClientEventsSubscribeRequest{clientEventsSubscribeRequestSubscriptions :: ClientEventsSubscribeRequest -> Vector EventSubscription +Hs.fromString String +"ClientEventsSubscribeRequest") + +instance HsProtobuf.HasDefault ClientEventsSubscribeRequest + +instance HsProtobuf.Message ClientEventsSubscribeRequest where + encodeMessage :: FieldNumber -> ClientEventsSubscribeRequest -> MessageBuilder +encodeMessage FieldNumber +_ + ClientEventsSubscribeRequest{clientEventsSubscribeRequestSubscriptions :: ClientEventsSubscribeRequest -> Vector EventSubscription clientEventsSubscribeRequestSubscriptions - = Vector EventSubscription -clientEventsSubscribeRequestSubscriptions, - clientEventsSubscribeRequestLastKnownBlockIds :: ClientEventsSubscribeRequest -> Vector Text + = Vector EventSubscription +clientEventsSubscribeRequestSubscriptions, + clientEventsSubscribeRequestLastKnownBlockIds :: ClientEventsSubscribeRequest -> Vector Text clientEventsSubscribeRequestLastKnownBlockIds = - Vector Text -clientEventsSubscribeRequestLastKnownBlockIds} - = ([MessageBuilder] -> MessageBuilder + Vector Text +clientEventsSubscribeRequestLastKnownBlockIds} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> NestedVec EventSubscription -> MessageBuilder +Hs.mconcat + [(FieldNumber -> NestedVec EventSubscription -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (Vector EventSubscription -> NestedVec EventSubscription -forall a b. Coercible a b => a -> b -Hs.coerce @(Hs.Vector Data.Sawtooth.Events.EventSubscription) - @(HsProtobuf.NestedVec Data.Sawtooth.Events.EventSubscription) - Vector EventSubscription -clientEventsSubscribeRequestSubscriptions)), - (FieldNumber -> UnpackedVec Text -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (Vector EventSubscription -> NestedVec EventSubscription +Hs.coerce @(Hs.Vector Data.Sawtooth.Events.EventSubscription) + @(HsProtobuf.NestedVec Data.Sawtooth.Events.EventSubscription) + Vector EventSubscription +clientEventsSubscribeRequestSubscriptions)), + (FieldNumber -> UnpackedVec Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (Vector Text -> UnpackedVec Text -forall a b. Coercible a b => a -> b -Hs.coerce @(Hs.Vector Hs.Text) @(HsProtobuf.UnpackedVec Hs.Text) - Vector Text -clientEventsSubscribeRequestLastKnownBlockIds))]) - decodeMessage :: FieldNumber -> Parser RawMessage ClientEventsSubscribeRequest -decodeMessage _ - = ((Vector EventSubscription +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (Vector Text -> UnpackedVec Text +Hs.coerce @(Hs.Vector Hs.Text) @(HsProtobuf.UnpackedVec Hs.Text) + Vector Text +clientEventsSubscribeRequestLastKnownBlockIds))]) + decodeMessage :: FieldNumber -> Parser RawMessage ClientEventsSubscribeRequest +decodeMessage FieldNumber +_ + = ((Vector EventSubscription -> Vector Text -> ClientEventsSubscribeRequest) -> Parser RawMessage (Vector EventSubscription -> Vector Text -> ClientEventsSubscribeRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector EventSubscription +Hs.pure Vector EventSubscription -> Vector Text -> ClientEventsSubscribeRequest ClientEventsSubscribeRequest) Parser RawMessage @@ -220,128 +223,141 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Parser RawMessage (Vector EventSubscription) -> Parser RawMessage (Vector Text -> ClientEventsSubscribeRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (NestedVec EventSubscription) +<*> + (Parser RawMessage (NestedVec EventSubscription) -> Parser RawMessage (Vector EventSubscription) -forall a b. Coercible a b => a -> b -Hs.coerce - @(_ (HsProtobuf.NestedVec Data.Sawtooth.Events.EventSubscription)) - @(_ (Hs.Vector Data.Sawtooth.Events.EventSubscription)) - (Parser RawField (NestedVec EventSubscription) +Hs.coerce + @(_ (HsProtobuf.NestedVec Data.Sawtooth.Events.EventSubscription)) + @(_ (Hs.Vector Data.Sawtooth.Events.EventSubscription)) + (Parser RawField (NestedVec EventSubscription) -> FieldNumber -> Parser RawMessage (NestedVec EventSubscription) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (NestedVec EventSubscription) +HsProtobuf.at Parser RawField (NestedVec EventSubscription) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1))) - Parser RawMessage (Vector Text -> ClientEventsSubscribeRequest) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1))) + Parser RawMessage (Vector Text -> ClientEventsSubscribeRequest) -> Parser RawMessage (Vector Text) -> Parser RawMessage ClientEventsSubscribeRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (UnpackedVec Text) +<*> + (Parser RawMessage (UnpackedVec Text) -> Parser RawMessage (Vector Text) -forall a b. Coercible a b => a -> b -Hs.coerce @(_ (HsProtobuf.UnpackedVec Hs.Text)) - @(_ (Hs.Vector Hs.Text)) - (Parser RawField (UnpackedVec Text) +Hs.coerce @(_ (HsProtobuf.UnpackedVec Hs.Text)) + @(_ (Hs.Vector Hs.Text)) + (Parser RawField (UnpackedVec Text) -> FieldNumber -> Parser RawMessage (UnpackedVec Text) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (UnpackedVec Text) +HsProtobuf.at Parser RawField (UnpackedVec Text) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2))) - dotProto :: Proxy# ClientEventsSubscribeRequest -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2))) + dotProto :: Proxy# ClientEventsSubscribeRequest -> [DotProtoField] +dotProto Proxy# ClientEventsSubscribeRequest +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Repeated - (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "EventSubscription"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "subscriptions") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Repeated + (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"EventSubscription"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"subscriptions") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Repeated DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "last_known_block_ids") - [] - "")] - -instance HsJSONPB.ToJSONPB ClientEventsSubscribeRequest where - toJSONPB :: ClientEventsSubscribeRequest -> Options -> Value -toJSONPB (ClientEventsSubscribeRequest f1 :: Vector EventSubscription -f1 f2 :: Vector Text -f2) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object - ["subscriptions" Text -> Vector EventSubscription -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Repeated DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"last_known_block_ids") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ClientEventsSubscribeRequest where + toJSONPB :: ClientEventsSubscribeRequest -> Options -> Value +toJSONPB (ClientEventsSubscribeRequest Vector EventSubscription +f1 Vector Text +f2) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object + [Text +"subscriptions" Text -> Vector EventSubscription -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector EventSubscription -f1, "last_known_block_ids" Text -> Vector Text -> Options -> [Pair] +.= Vector EventSubscription +f1, Text +"last_known_block_ids" Text -> Vector Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Text -f2]) - toEncodingPB :: ClientEventsSubscribeRequest -> Options -> Encoding -toEncodingPB (ClientEventsSubscribeRequest f1 :: Vector EventSubscription -f1 f2 :: Vector Text -f2) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs - ["subscriptions" Text -> Vector EventSubscription -> Options -> Series +.= Vector Text +f2]) + toEncodingPB :: ClientEventsSubscribeRequest -> Options -> Encoding +toEncodingPB (ClientEventsSubscribeRequest Vector EventSubscription +f1 Vector Text +f2) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs + [Text +"subscriptions" Text -> Vector EventSubscription -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector EventSubscription -f1, "last_known_block_ids" Text -> Vector Text -> Options -> Series +.= Vector EventSubscription +f1, Text +"last_known_block_ids" Text -> Vector Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Text -f2]) - -instance HsJSONPB.FromJSONPB ClientEventsSubscribeRequest where - parseJSONPB :: Value -> Parser ClientEventsSubscribeRequest -parseJSONPB - = (String +.= Vector Text +f2]) + +instance HsJSONPB.FromJSONPB ClientEventsSubscribeRequest where + parseJSONPB :: Value -> Parser ClientEventsSubscribeRequest +parseJSONPB + = (String -> (Object -> Parser ClientEventsSubscribeRequest) -> Value -> Parser ClientEventsSubscribeRequest forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ClientEventsSubscribeRequest" - (\ obj :: Object -obj -> - ((Vector EventSubscription +HsJSONPB.withObject String +"ClientEventsSubscribeRequest" + (\ Object +obj -> + ((Vector EventSubscription -> Vector Text -> ClientEventsSubscribeRequest) -> Parser (Vector EventSubscription -> Vector Text -> ClientEventsSubscribeRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector EventSubscription +Hs.pure Vector EventSubscription -> Vector Text -> ClientEventsSubscribeRequest ClientEventsSubscribeRequest) Parser (Vector EventSubscription @@ -349,80 +365,83 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Parser (Vector EventSubscription) -> Parser (Vector Text -> ClientEventsSubscribeRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser (Vector EventSubscription) +<*> Object +obj Object -> Text -> Parser (Vector EventSubscription) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "subscriptions" - Parser (Vector Text -> ClientEventsSubscribeRequest) +.: Text +"subscriptions" + Parser (Vector Text -> ClientEventsSubscribeRequest) -> Parser (Vector Text) -> Parser ClientEventsSubscribeRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser (Vector Text) +<*> Object +obj Object -> Text -> Parser (Vector Text) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "last_known_block_ids")) - -instance HsJSONPB.ToJSON ClientEventsSubscribeRequest where - toJSON :: ClientEventsSubscribeRequest -> Value -toJSON = ClientEventsSubscribeRequest -> Value +.: Text +"last_known_block_ids")) + +instance HsJSONPB.ToJSON ClientEventsSubscribeRequest where + toJSON :: ClientEventsSubscribeRequest -> Value +toJSON = ClientEventsSubscribeRequest -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ClientEventsSubscribeRequest -> Encoding -toEncoding = ClientEventsSubscribeRequest -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ClientEventsSubscribeRequest -> Encoding +toEncoding = ClientEventsSubscribeRequest -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ClientEventsSubscribeRequest where - parseJSON :: Value -> Parser ClientEventsSubscribeRequest -parseJSON = Value -> Parser ClientEventsSubscribeRequest +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ClientEventsSubscribeRequest where + parseJSON :: Value -> Parser ClientEventsSubscribeRequest +parseJSON = Value -> Parser ClientEventsSubscribeRequest forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ClientEventsSubscribeRequest where - declareNamedSchema :: Proxy ClientEventsSubscribeRequest +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ClientEventsSubscribeRequest where + declareNamedSchema :: Proxy ClientEventsSubscribeRequest -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_subscriptions :: Proxy (OverrideToSchema (Vector EventSubscription)) +declareNamedSchema Proxy ClientEventsSubscribeRequest +_ + = do let declare_subscriptions :: Proxy (OverrideToSchema (Vector EventSubscription)) -> Declare (Definitions Schema) (Referenced Schema) -declare_subscriptions = Proxy (OverrideToSchema (Vector EventSubscription)) +declare_subscriptions = Proxy (OverrideToSchema (Vector EventSubscription)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientEventsSubscribeRequestSubscriptions <- Proxy (OverrideToSchema (Vector EventSubscription)) +HsJSONPB.declareSchemaRef + Referenced Schema +clientEventsSubscribeRequestSubscriptions <- Proxy (OverrideToSchema (Vector EventSubscription)) -> Declare (Definitions Schema) (Referenced Schema) -declare_subscriptions - Proxy (OverrideToSchema (Vector EventSubscription)) +declare_subscriptions + Proxy (OverrideToSchema (Vector EventSubscription)) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_last_known_block_ids :: Proxy (OverrideToSchema (Vector Text)) +Proxy.Proxy + let declare_last_known_block_ids :: Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) -declare_last_known_block_ids = Proxy (OverrideToSchema (Vector Text)) +declare_last_known_block_ids = Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientEventsSubscribeRequestLastKnownBlockIds <- Proxy (OverrideToSchema (Vector Text)) +HsJSONPB.declareSchemaRef + Referenced Schema +clientEventsSubscribeRequestLastKnownBlockIds <- Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) -declare_last_known_block_ids - Proxy (OverrideToSchema (Vector Text)) +declare_last_known_block_ids + Proxy (OverrideToSchema (Vector Text)) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ClientEventsSubscribeRequest +Proxy.Proxy + let Proxy ClientEventsSubscribeRequest _ = (Vector EventSubscription -> Vector Text -> ClientEventsSubscribeRequest) -> Proxy (Vector EventSubscription -> Vector Text -> ClientEventsSubscribeRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector EventSubscription +Hs.pure Vector EventSubscription -> Vector Text -> ClientEventsSubscribeRequest ClientEventsSubscribeRequest Proxy (Vector EventSubscription @@ -430,71 +449,74 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Proxy (Vector EventSubscription) -> Proxy (Vector Text -> ClientEventsSubscribeRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema (Vector EventSubscription)) +<*> + (Proxy (OverrideToSchema (Vector EventSubscription)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Vector EventSubscription) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Vector EventSubscription)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Vector EventSubscription)) -> Declare (Definitions Schema) (Referenced Schema) -declare_subscriptions - Proxy (Vector Text -> ClientEventsSubscribeRequest) +declare_subscriptions + Proxy (Vector Text -> ClientEventsSubscribeRequest) -> Proxy (Vector Text) -> Proxy ClientEventsSubscribeRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema (Vector Text)) +<*> (Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Vector Text) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Text)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) -declare_last_known_block_ids - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_last_known_block_ids + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ClientEventsSubscribeRequest", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ClientEventsSubscribeRequest", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("subscriptions", - Referenced Schema -clientEventsSubscribeRequestSubscriptions), - ("last_known_block_ids", - Referenced Schema -clientEventsSubscribeRequestLastKnownBlockIds)]}}) - -data ClientEventsSubscribeResponse = ClientEventsSubscribeResponse{ClientEventsSubscribeResponse +HsJSONPB.insOrdFromList + [(Text +"subscriptions", + Referenced Schema +clientEventsSubscribeRequestSubscriptions), + (Text +"last_known_block_ids", + Referenced Schema +clientEventsSubscribeRequestLastKnownBlockIds)]}}) + +data ClientEventsSubscribeResponse = ClientEventsSubscribeResponse{ClientEventsSubscribeResponse -> Enumerated ClientEventsSubscribeResponse_Status clientEventsSubscribeResponseStatus - :: - HsProtobuf.Enumerated - Data.Sawtooth.ClientEvent.ClientEventsSubscribeResponse_Status, - ClientEventsSubscribeResponse -> Text + :: + HsProtobuf.Enumerated + Data.Sawtooth.ClientEvent.ClientEventsSubscribeResponse_Status, + ClientEventsSubscribeResponse -> Text clientEventsSubscribeResponseResponseMessage - :: Hs.Text} - deriving (Int -> ClientEventsSubscribeResponse -> ShowS + :: Hs.Text} + deriving (Int -> ClientEventsSubscribeResponse -> ShowS [ClientEventsSubscribeResponse] -> ShowS ClientEventsSubscribeResponse -> String (Int -> ClientEventsSubscribeResponse -> ShowS) @@ -509,7 +531,7 @@ show :: ClientEventsSubscribeResponse -> String $cshow :: ClientEventsSubscribeResponse -> String showsPrec :: Int -> ClientEventsSubscribeResponse -> ShowS $cshowsPrec :: Int -> ClientEventsSubscribeResponse -> ShowS -Hs.Show, ClientEventsSubscribeResponse +Hs.Show, ClientEventsSubscribeResponse -> ClientEventsSubscribeResponse -> Bool (ClientEventsSubscribeResponse -> ClientEventsSubscribeResponse -> Bool) @@ -525,10 +547,10 @@ $c/= :: ClientEventsSubscribeResponse -> ClientEventsSubscribeResponse -> Bool $c== :: ClientEventsSubscribeResponse -> ClientEventsSubscribeResponse -> Bool -Hs.Eq, Eq ClientEventsSubscribeResponse -Eq ClientEventsSubscribeResponse => -(ClientEventsSubscribeResponse - -> ClientEventsSubscribeResponse -> Ordering) +Hs.Eq, Eq ClientEventsSubscribeResponse +Eq ClientEventsSubscribeResponse +-> (ClientEventsSubscribeResponse + -> ClientEventsSubscribeResponse -> Ordering) -> (ClientEventsSubscribeResponse -> ClientEventsSubscribeResponse -> Bool) -> (ClientEventsSubscribeResponse @@ -549,8 +571,8 @@ ClientEventsSubscribeResponse ClientEventsSubscribeResponse -> ClientEventsSubscribeResponse -> ClientEventsSubscribeResponse forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -587,7 +609,7 @@ compare :: ClientEventsSubscribeResponse $ccompare :: ClientEventsSubscribeResponse -> ClientEventsSubscribeResponse -> Ordering $cp1Ord :: Eq ClientEventsSubscribeResponse -Hs.Ord, (forall x. +Hs.Ord, (forall x. ClientEventsSubscribeResponse -> Rep ClientEventsSubscribeResponse x) -> (forall x. @@ -608,61 +630,67 @@ Rep ClientEventsSubscribeResponse x $cfrom :: forall x. ClientEventsSubscribeResponse -> Rep ClientEventsSubscribeResponse x -Hs.Generic, ClientEventsSubscribeResponse -> () +Hs.Generic, ClientEventsSubscribeResponse -> () (ClientEventsSubscribeResponse -> ()) -> NFData ClientEventsSubscribeResponse forall a. (a -> ()) -> NFData a rnf :: ClientEventsSubscribeResponse -> () $crnf :: ClientEventsSubscribeResponse -> () -Hs.NFData) - -instance HsProtobuf.Named ClientEventsSubscribeResponse where - nameOf :: Proxy# ClientEventsSubscribeResponse -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ClientEventsSubscribeResponse where + nameOf :: Proxy# ClientEventsSubscribeResponse -> string +nameOf Proxy# ClientEventsSubscribeResponse +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ClientEventsSubscribeResponse") - -instance HsProtobuf.HasDefault ClientEventsSubscribeResponse - -instance HsProtobuf.Message ClientEventsSubscribeResponse where - encodeMessage :: FieldNumber -> ClientEventsSubscribeResponse -> MessageBuilder -encodeMessage _ - ClientEventsSubscribeResponse{clientEventsSubscribeResponseStatus :: ClientEventsSubscribeResponse +Hs.fromString String +"ClientEventsSubscribeResponse") + +instance HsProtobuf.HasDefault ClientEventsSubscribeResponse + +instance HsProtobuf.Message ClientEventsSubscribeResponse where + encodeMessage :: FieldNumber -> ClientEventsSubscribeResponse -> MessageBuilder +encodeMessage FieldNumber +_ + ClientEventsSubscribeResponse{clientEventsSubscribeResponseStatus :: ClientEventsSubscribeResponse -> Enumerated ClientEventsSubscribeResponse_Status clientEventsSubscribeResponseStatus = - Enumerated ClientEventsSubscribeResponse_Status -clientEventsSubscribeResponseStatus, - clientEventsSubscribeResponseResponseMessage :: ClientEventsSubscribeResponse -> Text + Enumerated ClientEventsSubscribeResponse_Status +clientEventsSubscribeResponseStatus, + clientEventsSubscribeResponseResponseMessage :: ClientEventsSubscribeResponse -> Text clientEventsSubscribeResponseResponseMessage = - Text -clientEventsSubscribeResponseResponseMessage} - = ([MessageBuilder] -> MessageBuilder + Text +clientEventsSubscribeResponseResponseMessage} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber +Hs.mconcat + [(FieldNumber -> Enumerated ClientEventsSubscribeResponse_Status -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Enumerated ClientEventsSubscribeResponse_Status -clientEventsSubscribeResponseStatus), - (FieldNumber -> Text -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Enumerated ClientEventsSubscribeResponse_Status +clientEventsSubscribeResponseStatus), + (FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - Text -clientEventsSubscribeResponseResponseMessage)]) - decodeMessage :: FieldNumber -> Parser RawMessage ClientEventsSubscribeResponse -decodeMessage _ - = ((Enumerated ClientEventsSubscribeResponse_Status +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + Text +clientEventsSubscribeResponseResponseMessage)]) + decodeMessage :: FieldNumber -> Parser RawMessage ClientEventsSubscribeResponse +decodeMessage FieldNumber +_ + = ((Enumerated ClientEventsSubscribeResponse_Status -> Text -> ClientEventsSubscribeResponse) -> Parser RawMessage (Enumerated ClientEventsSubscribeResponse_Status -> Text -> ClientEventsSubscribeResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ClientEventsSubscribeResponse_Status +Hs.pure Enumerated ClientEventsSubscribeResponse_Status -> Text -> ClientEventsSubscribeResponse ClientEventsSubscribeResponse) Parser RawMessage @@ -672,121 +700,136 @@ forall (f :: * -> *) a. Applicative f => a -> f a RawMessage (Enumerated ClientEventsSubscribeResponse_Status) -> Parser RawMessage (Text -> ClientEventsSubscribeResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField (Enumerated ClientEventsSubscribeResponse_Status) +<*> + (Parser RawField (Enumerated ClientEventsSubscribeResponse_Status) -> FieldNumber -> Parser RawMessage (Enumerated ClientEventsSubscribeResponse_Status) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (Enumerated ClientEventsSubscribeResponse_Status) +HsProtobuf.at Parser RawField (Enumerated ClientEventsSubscribeResponse_Status) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser RawMessage (Text -> ClientEventsSubscribeResponse) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (Text -> ClientEventsSubscribeResponse) -> Parser RawMessage Text -> Parser RawMessage ClientEventsSubscribeResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2)) - dotProto :: Proxy# ClientEventsSubscribeResponse -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2)) + dotProto :: Proxy# ClientEventsSubscribeResponse -> [DotProtoField] +dotProto Proxy# ClientEventsSubscribeResponse +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "Status"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "status") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"Status"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"status") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "response_message") - [] - "")] - -instance HsJSONPB.ToJSONPB ClientEventsSubscribeResponse where - toJSONPB :: ClientEventsSubscribeResponse -> Options -> Value -toJSONPB (ClientEventsSubscribeResponse f1 :: Enumerated ClientEventsSubscribeResponse_Status -f1 f2 :: Text -f2) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["status" Text +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"response_message") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ClientEventsSubscribeResponse where + toJSONPB :: ClientEventsSubscribeResponse -> Options -> Value +toJSONPB (ClientEventsSubscribeResponse Enumerated ClientEventsSubscribeResponse_Status +f1 Text +f2) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"status" Text -> Enumerated ClientEventsSubscribeResponse_Status -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated ClientEventsSubscribeResponse_Status -f1, "response_message" Text -> Text -> Options -> [Pair] +.= Enumerated ClientEventsSubscribeResponse_Status +f1, Text +"response_message" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f2]) - toEncodingPB :: ClientEventsSubscribeResponse -> Options -> Encoding -toEncodingPB (ClientEventsSubscribeResponse f1 :: Enumerated ClientEventsSubscribeResponse_Status -f1 f2 :: Text -f2) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["status" Text +.= Text +f2]) + toEncodingPB :: ClientEventsSubscribeResponse -> Options -> Encoding +toEncodingPB (ClientEventsSubscribeResponse Enumerated ClientEventsSubscribeResponse_Status +f1 Text +f2) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"status" Text -> Enumerated ClientEventsSubscribeResponse_Status -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated ClientEventsSubscribeResponse_Status -f1, "response_message" Text -> Text -> Options -> Series +.= Enumerated ClientEventsSubscribeResponse_Status +f1, Text +"response_message" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f2]) - -instance HsJSONPB.FromJSONPB ClientEventsSubscribeResponse where - parseJSONPB :: Value -> Parser ClientEventsSubscribeResponse -parseJSONPB - = (String +.= Text +f2]) + +instance HsJSONPB.FromJSONPB ClientEventsSubscribeResponse where + parseJSONPB :: Value -> Parser ClientEventsSubscribeResponse +parseJSONPB + = (String -> (Object -> Parser ClientEventsSubscribeResponse) -> Value -> Parser ClientEventsSubscribeResponse forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ClientEventsSubscribeResponse" - (\ obj :: Object -obj -> - ((Enumerated ClientEventsSubscribeResponse_Status +HsJSONPB.withObject String +"ClientEventsSubscribeResponse" + (\ Object +obj -> + ((Enumerated ClientEventsSubscribeResponse_Status -> Text -> ClientEventsSubscribeResponse) -> Parser (Enumerated ClientEventsSubscribeResponse_Status -> Text -> ClientEventsSubscribeResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ClientEventsSubscribeResponse_Status +Hs.pure Enumerated ClientEventsSubscribeResponse_Status -> Text -> ClientEventsSubscribeResponse ClientEventsSubscribeResponse) Parser (Enumerated ClientEventsSubscribeResponse_Status @@ -794,88 +837,91 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Parser (Enumerated ClientEventsSubscribeResponse_Status) -> Parser (Text -> ClientEventsSubscribeResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object +<*> Object +obj Object -> Text -> Parser (Enumerated ClientEventsSubscribeResponse_Status) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "status" Parser (Text -> ClientEventsSubscribeResponse) +.: Text +"status" Parser (Text -> ClientEventsSubscribeResponse) -> Parser Text -> Parser ClientEventsSubscribeResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser Text +<*> + Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "response_message")) - -instance HsJSONPB.ToJSON ClientEventsSubscribeResponse where - toJSON :: ClientEventsSubscribeResponse -> Value -toJSON = ClientEventsSubscribeResponse -> Value +.: Text +"response_message")) + +instance HsJSONPB.ToJSON ClientEventsSubscribeResponse where + toJSON :: ClientEventsSubscribeResponse -> Value +toJSON = ClientEventsSubscribeResponse -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ClientEventsSubscribeResponse -> Encoding -toEncoding = ClientEventsSubscribeResponse -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ClientEventsSubscribeResponse -> Encoding +toEncoding = ClientEventsSubscribeResponse -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ClientEventsSubscribeResponse where - parseJSON :: Value -> Parser ClientEventsSubscribeResponse -parseJSON = Value -> Parser ClientEventsSubscribeResponse +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ClientEventsSubscribeResponse where + parseJSON :: Value -> Parser ClientEventsSubscribeResponse +parseJSON = Value -> Parser ClientEventsSubscribeResponse forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ClientEventsSubscribeResponse where - declareNamedSchema :: Proxy ClientEventsSubscribeResponse +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ClientEventsSubscribeResponse where + declareNamedSchema :: Proxy ClientEventsSubscribeResponse -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_status :: Proxy +declareNamedSchema Proxy ClientEventsSubscribeResponse +_ + = do let declare_status :: Proxy (OverrideToSchema (Enumerated ClientEventsSubscribeResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status = Proxy +declare_status = Proxy (OverrideToSchema (Enumerated ClientEventsSubscribeResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientEventsSubscribeResponseStatus <- Proxy +HsJSONPB.declareSchemaRef + Referenced Schema +clientEventsSubscribeResponseStatus <- Proxy (OverrideToSchema (Enumerated ClientEventsSubscribeResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status Proxy +declare_status Proxy (OverrideToSchema (Enumerated ClientEventsSubscribeResponse_Status)) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_response_message :: Proxy (OverrideToSchema Text) +Proxy.Proxy + let declare_response_message :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_response_message = Proxy (OverrideToSchema Text) +declare_response_message = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientEventsSubscribeResponseResponseMessage <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +clientEventsSubscribeResponseResponseMessage <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_response_message - Proxy (OverrideToSchema Text) +declare_response_message + Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ClientEventsSubscribeResponse +Proxy.Proxy + let Proxy ClientEventsSubscribeResponse _ = (Enumerated ClientEventsSubscribeResponse_Status -> Text -> ClientEventsSubscribeResponse) -> Proxy (Enumerated ClientEventsSubscribeResponse_Status -> Text -> ClientEventsSubscribeResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ClientEventsSubscribeResponse_Status +Hs.pure Enumerated ClientEventsSubscribeResponse_Status -> Text -> ClientEventsSubscribeResponse ClientEventsSubscribeResponse Proxy (Enumerated ClientEventsSubscribeResponse_Status @@ -883,70 +929,73 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Proxy (Enumerated ClientEventsSubscribeResponse_Status) -> Proxy (Text -> ClientEventsSubscribeResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy +<*> + (Proxy (OverrideToSchema (Enumerated ClientEventsSubscribeResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Enumerated ClientEventsSubscribeResponse_Status) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy +HsJSONPB.asProxy Proxy (OverrideToSchema (Enumerated ClientEventsSubscribeResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status - Proxy (Text -> ClientEventsSubscribeResponse) +declare_status + Proxy (Text -> ClientEventsSubscribeResponse) -> Proxy Text -> Proxy ClientEventsSubscribeResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema Text) +<*> (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_response_message - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_response_message + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ClientEventsSubscribeResponse", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ClientEventsSubscribeResponse", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("status", - Referenced Schema -clientEventsSubscribeResponseStatus), - ("response_message", - Referenced Schema -clientEventsSubscribeResponseResponseMessage)]}}) - -data ClientEventsSubscribeResponse_Status = ClientEventsSubscribeResponse_StatusSTATUS_UNSET - | ClientEventsSubscribeResponse_StatusOK - | ClientEventsSubscribeResponse_StatusINVALID_FILTER - | ClientEventsSubscribeResponse_StatusUNKNOWN_BLOCK - deriving (Int -> ClientEventsSubscribeResponse_Status -> ShowS +HsJSONPB.insOrdFromList + [(Text +"status", + Referenced Schema +clientEventsSubscribeResponseStatus), + (Text +"response_message", + Referenced Schema +clientEventsSubscribeResponseResponseMessage)]}}) + +data ClientEventsSubscribeResponse_Status = ClientEventsSubscribeResponse_StatusSTATUS_UNSET + | ClientEventsSubscribeResponse_StatusOK + | ClientEventsSubscribeResponse_StatusINVALID_FILTER + | ClientEventsSubscribeResponse_StatusUNKNOWN_BLOCK + deriving (Int -> ClientEventsSubscribeResponse_Status -> ShowS [ClientEventsSubscribeResponse_Status] -> ShowS ClientEventsSubscribeResponse_Status -> String (Int -> ClientEventsSubscribeResponse_Status -> ShowS) @@ -961,7 +1010,7 @@ show :: ClientEventsSubscribeResponse_Status -> String $cshow :: ClientEventsSubscribeResponse_Status -> String showsPrec :: Int -> ClientEventsSubscribeResponse_Status -> ShowS $cshowsPrec :: Int -> ClientEventsSubscribeResponse_Status -> ShowS -Hs.Show, ClientEventsSubscribeResponse_Status +Hs.Show, ClientEventsSubscribeResponse_Status -> ClientEventsSubscribeResponse_Status -> Bool (ClientEventsSubscribeResponse_Status -> ClientEventsSubscribeResponse_Status -> Bool) @@ -977,7 +1026,7 @@ $c/= :: ClientEventsSubscribeResponse_Status -> ClientEventsSubscribeResponse_Status -> Bool $c== :: ClientEventsSubscribeResponse_Status -> ClientEventsSubscribeResponse_Status -> Bool -Hs.Eq, (forall x. +Hs.Eq, (forall x. ClientEventsSubscribeResponse_Status -> Rep ClientEventsSubscribeResponse_Status x) -> (forall x. @@ -998,160 +1047,178 @@ Rep ClientEventsSubscribeResponse_Status x $cfrom :: forall x. ClientEventsSubscribeResponse_Status -> Rep ClientEventsSubscribeResponse_Status x -Hs.Generic, ClientEventsSubscribeResponse_Status -> () +Hs.Generic, ClientEventsSubscribeResponse_Status -> () (ClientEventsSubscribeResponse_Status -> ()) -> NFData ClientEventsSubscribeResponse_Status forall a. (a -> ()) -> NFData a rnf :: ClientEventsSubscribeResponse_Status -> () $crnf :: ClientEventsSubscribeResponse_Status -> () -Hs.NFData) - -instance HsProtobuf.Named ClientEventsSubscribeResponse_Status - where - nameOf :: Proxy# ClientEventsSubscribeResponse_Status -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ClientEventsSubscribeResponse_Status + where + nameOf :: Proxy# ClientEventsSubscribeResponse_Status -> string +nameOf Proxy# ClientEventsSubscribeResponse_Status +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ClientEventsSubscribeResponse_Status") - -instance HsProtobuf.HasDefault ClientEventsSubscribeResponse_Status - -instance Hs.Bounded ClientEventsSubscribeResponse_Status where - minBound :: ClientEventsSubscribeResponse_Status -minBound = ClientEventsSubscribeResponse_Status +Hs.fromString String +"ClientEventsSubscribeResponse_Status") + +instance HsProtobuf.HasDefault ClientEventsSubscribeResponse_Status + +instance Hs.Bounded ClientEventsSubscribeResponse_Status where + minBound :: ClientEventsSubscribeResponse_Status +minBound = ClientEventsSubscribeResponse_Status ClientEventsSubscribeResponse_StatusSTATUS_UNSET - maxBound :: ClientEventsSubscribeResponse_Status -maxBound = ClientEventsSubscribeResponse_Status + maxBound :: ClientEventsSubscribeResponse_Status +maxBound = ClientEventsSubscribeResponse_Status ClientEventsSubscribeResponse_StatusUNKNOWN_BLOCK - -instance Hs.Ord ClientEventsSubscribeResponse_Status where - compare :: ClientEventsSubscribeResponse_Status + +instance Hs.Ord ClientEventsSubscribeResponse_Status where + compare :: ClientEventsSubscribeResponse_Status -> ClientEventsSubscribeResponse_Status -> Ordering -compare x :: ClientEventsSubscribeResponse_Status -x y :: ClientEventsSubscribeResponse_Status -y - = Int32 -> Int32 -> Ordering +compare ClientEventsSubscribeResponse_Status +x ClientEventsSubscribeResponse_Status +y + = Int32 -> Int32 -> Ordering forall a. Ord a => a -> a -> Ordering -Hs.compare (ClientEventsSubscribeResponse_Status -> Int32 +Hs.compare (ClientEventsSubscribeResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum ClientEventsSubscribeResponse_Status -x) - (ClientEventsSubscribeResponse_Status -> Int32 +HsProtobuf.fromProtoEnum ClientEventsSubscribeResponse_Status +x) + (ClientEventsSubscribeResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum ClientEventsSubscribeResponse_Status -y) - -instance HsProtobuf.ProtoEnum ClientEventsSubscribeResponse_Status - where - toProtoEnumMay :: Int32 -> Maybe ClientEventsSubscribeResponse_Status -toProtoEnumMay 0 - = ClientEventsSubscribeResponse_Status +HsProtobuf.fromProtoEnum ClientEventsSubscribeResponse_Status +y) + +instance HsProtobuf.ProtoEnum ClientEventsSubscribeResponse_Status + where + toProtoEnumMay :: Int32 -> Maybe ClientEventsSubscribeResponse_Status +toProtoEnumMay Int32 +0 + = ClientEventsSubscribeResponse_Status -> Maybe ClientEventsSubscribeResponse_Status forall a. a -> Maybe a -Hs.Just ClientEventsSubscribeResponse_Status +Hs.Just ClientEventsSubscribeResponse_Status ClientEventsSubscribeResponse_StatusSTATUS_UNSET - toProtoEnumMay 1 = ClientEventsSubscribeResponse_Status + toProtoEnumMay Int32 +1 = ClientEventsSubscribeResponse_Status -> Maybe ClientEventsSubscribeResponse_Status forall a. a -> Maybe a -Hs.Just ClientEventsSubscribeResponse_Status +Hs.Just ClientEventsSubscribeResponse_Status ClientEventsSubscribeResponse_StatusOK - toProtoEnumMay 2 - = ClientEventsSubscribeResponse_Status + toProtoEnumMay Int32 +2 + = ClientEventsSubscribeResponse_Status -> Maybe ClientEventsSubscribeResponse_Status forall a. a -> Maybe a -Hs.Just ClientEventsSubscribeResponse_Status +Hs.Just ClientEventsSubscribeResponse_Status ClientEventsSubscribeResponse_StatusINVALID_FILTER - toProtoEnumMay 3 - = ClientEventsSubscribeResponse_Status + toProtoEnumMay Int32 +3 + = ClientEventsSubscribeResponse_Status -> Maybe ClientEventsSubscribeResponse_Status forall a. a -> Maybe a -Hs.Just ClientEventsSubscribeResponse_Status +Hs.Just ClientEventsSubscribeResponse_Status ClientEventsSubscribeResponse_StatusUNKNOWN_BLOCK - toProtoEnumMay _ = Maybe ClientEventsSubscribeResponse_Status + toProtoEnumMay Int32 +_ = Maybe ClientEventsSubscribeResponse_Status forall a. Maybe a -Hs.Nothing - fromProtoEnum :: ClientEventsSubscribeResponse_Status -> Int32 -fromProtoEnum (ClientEventsSubscribeResponse_Status +Hs.Nothing + fromProtoEnum :: ClientEventsSubscribeResponse_Status -> Int32 +fromProtoEnum (ClientEventsSubscribeResponse_Status ClientEventsSubscribeResponse_StatusSTATUS_UNSET) - = 0 - fromProtoEnum (ClientEventsSubscribeResponse_Status -ClientEventsSubscribeResponse_StatusOK) = 1 - fromProtoEnum (ClientEventsSubscribeResponse_Status + = Int32 +0 + fromProtoEnum (ClientEventsSubscribeResponse_Status +ClientEventsSubscribeResponse_StatusOK) = Int32 +1 + fromProtoEnum (ClientEventsSubscribeResponse_Status ClientEventsSubscribeResponse_StatusINVALID_FILTER) - = 2 - fromProtoEnum (ClientEventsSubscribeResponse_Status + = Int32 +2 + fromProtoEnum (ClientEventsSubscribeResponse_Status ClientEventsSubscribeResponse_StatusUNKNOWN_BLOCK) - = 3 - -instance HsJSONPB.ToJSONPB ClientEventsSubscribeResponse_Status - where - toJSONPB :: ClientEventsSubscribeResponse_Status -> Options -> Value -toJSONPB x :: ClientEventsSubscribeResponse_Status -x _ = ClientEventsSubscribeResponse_Status -> Value + = Int32 +3 + +instance HsJSONPB.ToJSONPB ClientEventsSubscribeResponse_Status + where + toJSONPB :: ClientEventsSubscribeResponse_Status -> Options -> Value +toJSONPB ClientEventsSubscribeResponse_Status +x Options +_ = ClientEventsSubscribeResponse_Status -> Value forall a. (Named a, Show a) => a -> Value -HsJSONPB.enumFieldString ClientEventsSubscribeResponse_Status -x - toEncodingPB :: ClientEventsSubscribeResponse_Status -> Options -> Encoding -toEncodingPB x :: ClientEventsSubscribeResponse_Status -x _ = ClientEventsSubscribeResponse_Status -> Encoding +HsJSONPB.enumFieldString ClientEventsSubscribeResponse_Status +x + toEncodingPB :: ClientEventsSubscribeResponse_Status -> Options -> Encoding +toEncodingPB ClientEventsSubscribeResponse_Status +x Options +_ = ClientEventsSubscribeResponse_Status -> Encoding forall a. (Named a, Show a) => a -> Encoding -HsJSONPB.enumFieldEncoding ClientEventsSubscribeResponse_Status -x - -instance HsJSONPB.FromJSONPB ClientEventsSubscribeResponse_Status - where - parseJSONPB :: Value -> Parser ClientEventsSubscribeResponse_Status -parseJSONPB (HsJSONPB.String "STATUS_UNSET") - = ClientEventsSubscribeResponse_Status +HsJSONPB.enumFieldEncoding ClientEventsSubscribeResponse_Status +x + +instance HsJSONPB.FromJSONPB ClientEventsSubscribeResponse_Status + where + parseJSONPB :: Value -> Parser ClientEventsSubscribeResponse_Status +parseJSONPB (HsJSONPB.String Text +"STATUS_UNSET") + = ClientEventsSubscribeResponse_Status -> Parser ClientEventsSubscribeResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientEventsSubscribeResponse_Status +Hs.pure ClientEventsSubscribeResponse_Status ClientEventsSubscribeResponse_StatusSTATUS_UNSET - parseJSONPB (HsJSONPB.String "OK") - = ClientEventsSubscribeResponse_Status + parseJSONPB (HsJSONPB.String Text +"OK") + = ClientEventsSubscribeResponse_Status -> Parser ClientEventsSubscribeResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientEventsSubscribeResponse_Status +Hs.pure ClientEventsSubscribeResponse_Status ClientEventsSubscribeResponse_StatusOK - parseJSONPB (HsJSONPB.String "INVALID_FILTER") - = ClientEventsSubscribeResponse_Status + parseJSONPB (HsJSONPB.String Text +"INVALID_FILTER") + = ClientEventsSubscribeResponse_Status -> Parser ClientEventsSubscribeResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientEventsSubscribeResponse_Status +Hs.pure ClientEventsSubscribeResponse_Status ClientEventsSubscribeResponse_StatusINVALID_FILTER - parseJSONPB (HsJSONPB.String "UNKNOWN_BLOCK") - = ClientEventsSubscribeResponse_Status + parseJSONPB (HsJSONPB.String Text +"UNKNOWN_BLOCK") + = ClientEventsSubscribeResponse_Status -> Parser ClientEventsSubscribeResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientEventsSubscribeResponse_Status +Hs.pure ClientEventsSubscribeResponse_Status ClientEventsSubscribeResponse_StatusUNKNOWN_BLOCK - parseJSONPB v :: Value -v - = (String -> Value -> Parser ClientEventsSubscribeResponse_Status + parseJSONPB Value +v + = (String -> Value -> Parser ClientEventsSubscribeResponse_Status forall a. String -> Value -> Parser a -HsJSONPB.typeMismatch "ClientEventsSubscribeResponse_Status" Value -v) - -instance HsJSONPB.ToJSON ClientEventsSubscribeResponse_Status where - toJSON :: ClientEventsSubscribeResponse_Status -> Value -toJSON = ClientEventsSubscribeResponse_Status -> Value +HsJSONPB.typeMismatch String +"ClientEventsSubscribeResponse_Status" Value +v) + +instance HsJSONPB.ToJSON ClientEventsSubscribeResponse_Status where + toJSON :: ClientEventsSubscribeResponse_Status -> Value +toJSON = ClientEventsSubscribeResponse_Status -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ClientEventsSubscribeResponse_Status -> Encoding -toEncoding = ClientEventsSubscribeResponse_Status -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ClientEventsSubscribeResponse_Status -> Encoding +toEncoding = ClientEventsSubscribeResponse_Status -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ClientEventsSubscribeResponse_Status - where - parseJSON :: Value -> Parser ClientEventsSubscribeResponse_Status -parseJSON = Value -> Parser ClientEventsSubscribeResponse_Status +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ClientEventsSubscribeResponse_Status + where + parseJSON :: Value -> Parser ClientEventsSubscribeResponse_Status +parseJSON = Value -> Parser ClientEventsSubscribeResponse_Status forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsProtobuf.Finite ClientEventsSubscribeResponse_Status - -data ClientEventsUnsubscribeRequest = ClientEventsUnsubscribeRequest{} - deriving (Int -> ClientEventsUnsubscribeRequest -> ShowS +HsJSONPB.parseJSONPB + +instance HsProtobuf.Finite ClientEventsSubscribeResponse_Status + +data ClientEventsUnsubscribeRequest = ClientEventsUnsubscribeRequest{} + deriving (Int -> ClientEventsUnsubscribeRequest -> ShowS [ClientEventsUnsubscribeRequest] -> ShowS ClientEventsUnsubscribeRequest -> String (Int -> ClientEventsUnsubscribeRequest -> ShowS) @@ -1166,7 +1233,7 @@ show :: ClientEventsUnsubscribeRequest -> String $cshow :: ClientEventsUnsubscribeRequest -> String showsPrec :: Int -> ClientEventsUnsubscribeRequest -> ShowS $cshowsPrec :: Int -> ClientEventsUnsubscribeRequest -> ShowS -Hs.Show, ClientEventsUnsubscribeRequest +Hs.Show, ClientEventsUnsubscribeRequest -> ClientEventsUnsubscribeRequest -> Bool (ClientEventsUnsubscribeRequest -> ClientEventsUnsubscribeRequest -> Bool) @@ -1182,10 +1249,10 @@ $c/= :: ClientEventsUnsubscribeRequest -> ClientEventsUnsubscribeRequest -> Bool $c== :: ClientEventsUnsubscribeRequest -> ClientEventsUnsubscribeRequest -> Bool -Hs.Eq, Eq ClientEventsUnsubscribeRequest -Eq ClientEventsUnsubscribeRequest => -(ClientEventsUnsubscribeRequest - -> ClientEventsUnsubscribeRequest -> Ordering) +Hs.Eq, Eq ClientEventsUnsubscribeRequest +Eq ClientEventsUnsubscribeRequest +-> (ClientEventsUnsubscribeRequest + -> ClientEventsUnsubscribeRequest -> Ordering) -> (ClientEventsUnsubscribeRequest -> ClientEventsUnsubscribeRequest -> Bool) -> (ClientEventsUnsubscribeRequest @@ -1208,8 +1275,8 @@ ClientEventsUnsubscribeRequest ClientEventsUnsubscribeRequest -> ClientEventsUnsubscribeRequest -> ClientEventsUnsubscribeRequest forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -1246,7 +1313,7 @@ compare :: ClientEventsUnsubscribeRequest $ccompare :: ClientEventsUnsubscribeRequest -> ClientEventsUnsubscribeRequest -> Ordering $cp1Ord :: Eq ClientEventsUnsubscribeRequest -Hs.Ord, (forall x. +Hs.Ord, (forall x. ClientEventsUnsubscribeRequest -> Rep ClientEventsUnsubscribeRequest x) -> (forall x. @@ -1267,120 +1334,128 @@ Rep ClientEventsUnsubscribeRequest x $cfrom :: forall x. ClientEventsUnsubscribeRequest -> Rep ClientEventsUnsubscribeRequest x -Hs.Generic, ClientEventsUnsubscribeRequest -> () +Hs.Generic, ClientEventsUnsubscribeRequest -> () (ClientEventsUnsubscribeRequest -> ()) -> NFData ClientEventsUnsubscribeRequest forall a. (a -> ()) -> NFData a rnf :: ClientEventsUnsubscribeRequest -> () $crnf :: ClientEventsUnsubscribeRequest -> () -Hs.NFData) - -instance HsProtobuf.Named ClientEventsUnsubscribeRequest where - nameOf :: Proxy# ClientEventsUnsubscribeRequest -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ClientEventsUnsubscribeRequest where + nameOf :: Proxy# ClientEventsUnsubscribeRequest -> string +nameOf Proxy# ClientEventsUnsubscribeRequest +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ClientEventsUnsubscribeRequest") - -instance HsProtobuf.HasDefault ClientEventsUnsubscribeRequest - -instance HsProtobuf.Message ClientEventsUnsubscribeRequest where - encodeMessage :: FieldNumber -> ClientEventsUnsubscribeRequest -> MessageBuilder -encodeMessage _ ClientEventsUnsubscribeRequest{} = ([MessageBuilder] -> MessageBuilder +Hs.fromString String +"ClientEventsUnsubscribeRequest") + +instance HsProtobuf.HasDefault ClientEventsUnsubscribeRequest + +instance HsProtobuf.Message ClientEventsUnsubscribeRequest where + encodeMessage :: FieldNumber -> ClientEventsUnsubscribeRequest -> MessageBuilder +encodeMessage FieldNumber +_ ClientEventsUnsubscribeRequest{} = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat []) - decodeMessage :: FieldNumber -> Parser RawMessage ClientEventsUnsubscribeRequest -decodeMessage _ = (ClientEventsUnsubscribeRequest +Hs.mconcat []) + decodeMessage :: FieldNumber -> Parser RawMessage ClientEventsUnsubscribeRequest +decodeMessage FieldNumber +_ = (ClientEventsUnsubscribeRequest -> Parser RawMessage ClientEventsUnsubscribeRequest forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientEventsUnsubscribeRequest +Hs.pure ClientEventsUnsubscribeRequest ClientEventsUnsubscribeRequest) - dotProto :: Proxy# ClientEventsUnsubscribeRequest -> [DotProtoField] -dotProto _ = [] - -instance HsJSONPB.ToJSONPB ClientEventsUnsubscribeRequest where - toJSONPB :: ClientEventsUnsubscribeRequest -> Options -> Value -toJSONPB (ClientEventsUnsubscribeRequest + dotProto :: Proxy# ClientEventsUnsubscribeRequest -> [DotProtoField] +dotProto Proxy# ClientEventsUnsubscribeRequest +_ = [] + +instance HsJSONPB.ToJSONPB ClientEventsUnsubscribeRequest where + toJSONPB :: ClientEventsUnsubscribeRequest -> Options -> Value +toJSONPB (ClientEventsUnsubscribeRequest ClientEventsUnsubscribeRequest) = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object []) - toEncodingPB :: ClientEventsUnsubscribeRequest -> Options -> Encoding -toEncodingPB (ClientEventsUnsubscribeRequest +HsJSONPB.object []) + toEncodingPB :: ClientEventsUnsubscribeRequest -> Options -> Encoding +toEncodingPB (ClientEventsUnsubscribeRequest ClientEventsUnsubscribeRequest) = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs []) - -instance HsJSONPB.FromJSONPB ClientEventsUnsubscribeRequest where - parseJSONPB :: Value -> Parser ClientEventsUnsubscribeRequest -parseJSONPB - = (String +HsJSONPB.pairs []) + +instance HsJSONPB.FromJSONPB ClientEventsUnsubscribeRequest where + parseJSONPB :: Value -> Parser ClientEventsUnsubscribeRequest +parseJSONPB + = (String -> (Object -> Parser ClientEventsUnsubscribeRequest) -> Value -> Parser ClientEventsUnsubscribeRequest forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ClientEventsUnsubscribeRequest" - (\ obj :: Object -obj -> (ClientEventsUnsubscribeRequest +HsJSONPB.withObject String +"ClientEventsUnsubscribeRequest" + (\ Object +obj -> (ClientEventsUnsubscribeRequest -> Parser ClientEventsUnsubscribeRequest forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientEventsUnsubscribeRequest +Hs.pure ClientEventsUnsubscribeRequest ClientEventsUnsubscribeRequest))) - -instance HsJSONPB.ToJSON ClientEventsUnsubscribeRequest where - toJSON :: ClientEventsUnsubscribeRequest -> Value -toJSON = ClientEventsUnsubscribeRequest -> Value + +instance HsJSONPB.ToJSON ClientEventsUnsubscribeRequest where + toJSON :: ClientEventsUnsubscribeRequest -> Value +toJSON = ClientEventsUnsubscribeRequest -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ClientEventsUnsubscribeRequest -> Encoding -toEncoding = ClientEventsUnsubscribeRequest -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ClientEventsUnsubscribeRequest -> Encoding +toEncoding = ClientEventsUnsubscribeRequest -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ClientEventsUnsubscribeRequest where - parseJSON :: Value -> Parser ClientEventsUnsubscribeRequest -parseJSON = Value -> Parser ClientEventsUnsubscribeRequest +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ClientEventsUnsubscribeRequest where + parseJSON :: Value -> Parser ClientEventsUnsubscribeRequest +parseJSON = Value -> Parser ClientEventsUnsubscribeRequest forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ClientEventsUnsubscribeRequest where - declareNamedSchema :: Proxy ClientEventsUnsubscribeRequest +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ClientEventsUnsubscribeRequest where + declareNamedSchema :: Proxy ClientEventsUnsubscribeRequest -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do NamedSchema -> Declare (Definitions Schema) NamedSchema +declareNamedSchema Proxy ClientEventsUnsubscribeRequest +_ + = do NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ClientEventsUnsubscribeRequest", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ClientEventsUnsubscribeRequest", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList []}}) - -newtype ClientEventsUnsubscribeResponse = ClientEventsUnsubscribeResponse{ClientEventsUnsubscribeResponse +HsJSONPB.insOrdFromList []}}) + +newtype ClientEventsUnsubscribeResponse = ClientEventsUnsubscribeResponse{ClientEventsUnsubscribeResponse -> Enumerated ClientEventsUnsubscribeResponse_Status clientEventsUnsubscribeResponseStatus - :: - HsProtobuf.Enumerated - Data.Sawtooth.ClientEvent.ClientEventsUnsubscribeResponse_Status} - deriving (Int -> ClientEventsUnsubscribeResponse -> ShowS + :: + HsProtobuf.Enumerated + Data.Sawtooth.ClientEvent.ClientEventsUnsubscribeResponse_Status} + deriving (Int -> ClientEventsUnsubscribeResponse -> ShowS [ClientEventsUnsubscribeResponse] -> ShowS ClientEventsUnsubscribeResponse -> String (Int -> ClientEventsUnsubscribeResponse -> ShowS) @@ -1395,7 +1470,7 @@ show :: ClientEventsUnsubscribeResponse -> String $cshow :: ClientEventsUnsubscribeResponse -> String showsPrec :: Int -> ClientEventsUnsubscribeResponse -> ShowS $cshowsPrec :: Int -> ClientEventsUnsubscribeResponse -> ShowS -Hs.Show, ClientEventsUnsubscribeResponse +Hs.Show, ClientEventsUnsubscribeResponse -> ClientEventsUnsubscribeResponse -> Bool (ClientEventsUnsubscribeResponse -> ClientEventsUnsubscribeResponse -> Bool) @@ -1411,10 +1486,10 @@ $c/= :: ClientEventsUnsubscribeResponse -> ClientEventsUnsubscribeResponse -> Bool $c== :: ClientEventsUnsubscribeResponse -> ClientEventsUnsubscribeResponse -> Bool -Hs.Eq, Eq ClientEventsUnsubscribeResponse -Eq ClientEventsUnsubscribeResponse => -(ClientEventsUnsubscribeResponse - -> ClientEventsUnsubscribeResponse -> Ordering) +Hs.Eq, Eq ClientEventsUnsubscribeResponse +Eq ClientEventsUnsubscribeResponse +-> (ClientEventsUnsubscribeResponse + -> ClientEventsUnsubscribeResponse -> Ordering) -> (ClientEventsUnsubscribeResponse -> ClientEventsUnsubscribeResponse -> Bool) -> (ClientEventsUnsubscribeResponse @@ -1438,8 +1513,8 @@ ClientEventsUnsubscribeResponse -> ClientEventsUnsubscribeResponse -> ClientEventsUnsubscribeResponse forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -1480,7 +1555,7 @@ compare :: ClientEventsUnsubscribeResponse $ccompare :: ClientEventsUnsubscribeResponse -> ClientEventsUnsubscribeResponse -> Ordering $cp1Ord :: Eq ClientEventsUnsubscribeResponse -Hs.Ord, (forall x. +Hs.Ord, (forall x. ClientEventsUnsubscribeResponse -> Rep ClientEventsUnsubscribeResponse x) -> (forall x. @@ -1501,51 +1576,56 @@ Rep ClientEventsUnsubscribeResponse x $cfrom :: forall x. ClientEventsUnsubscribeResponse -> Rep ClientEventsUnsubscribeResponse x -Hs.Generic, ClientEventsUnsubscribeResponse -> () +Hs.Generic, ClientEventsUnsubscribeResponse -> () (ClientEventsUnsubscribeResponse -> ()) -> NFData ClientEventsUnsubscribeResponse forall a. (a -> ()) -> NFData a rnf :: ClientEventsUnsubscribeResponse -> () $crnf :: ClientEventsUnsubscribeResponse -> () -Hs.NFData) - -instance HsProtobuf.Named ClientEventsUnsubscribeResponse where - nameOf :: Proxy# ClientEventsUnsubscribeResponse -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ClientEventsUnsubscribeResponse where + nameOf :: Proxy# ClientEventsUnsubscribeResponse -> string +nameOf Proxy# ClientEventsUnsubscribeResponse +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ClientEventsUnsubscribeResponse") - -instance HsProtobuf.HasDefault ClientEventsUnsubscribeResponse - -instance HsProtobuf.Message ClientEventsUnsubscribeResponse where - encodeMessage :: FieldNumber -> ClientEventsUnsubscribeResponse -> MessageBuilder -encodeMessage _ - ClientEventsUnsubscribeResponse{clientEventsUnsubscribeResponseStatus :: ClientEventsUnsubscribeResponse +Hs.fromString String +"ClientEventsUnsubscribeResponse") + +instance HsProtobuf.HasDefault ClientEventsUnsubscribeResponse + +instance HsProtobuf.Message ClientEventsUnsubscribeResponse where + encodeMessage :: FieldNumber -> ClientEventsUnsubscribeResponse -> MessageBuilder +encodeMessage FieldNumber +_ + ClientEventsUnsubscribeResponse{clientEventsUnsubscribeResponseStatus :: ClientEventsUnsubscribeResponse -> Enumerated ClientEventsUnsubscribeResponse_Status clientEventsUnsubscribeResponseStatus - = Enumerated ClientEventsUnsubscribeResponse_Status -clientEventsUnsubscribeResponseStatus} - = ([MessageBuilder] -> MessageBuilder + = Enumerated ClientEventsUnsubscribeResponse_Status +clientEventsUnsubscribeResponseStatus} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber +Hs.mconcat + [(FieldNumber -> Enumerated ClientEventsUnsubscribeResponse_Status -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Enumerated ClientEventsUnsubscribeResponse_Status -clientEventsUnsubscribeResponseStatus)]) - decodeMessage :: FieldNumber -> Parser RawMessage ClientEventsUnsubscribeResponse -decodeMessage _ - = ((Enumerated ClientEventsUnsubscribeResponse_Status +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Enumerated ClientEventsUnsubscribeResponse_Status +clientEventsUnsubscribeResponseStatus)]) + decodeMessage :: FieldNumber -> Parser RawMessage ClientEventsUnsubscribeResponse +decodeMessage FieldNumber +_ + = ((Enumerated ClientEventsUnsubscribeResponse_Status -> ClientEventsUnsubscribeResponse) -> Parser RawMessage (Enumerated ClientEventsUnsubscribeResponse_Status -> ClientEventsUnsubscribeResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ClientEventsUnsubscribeResponse_Status +Hs.pure Enumerated ClientEventsUnsubscribeResponse_Status -> ClientEventsUnsubscribeResponse ClientEventsUnsubscribeResponse) Parser RawMessage @@ -1555,82 +1635,91 @@ forall (f :: * -> *) a. Applicative f => a -> f a RawMessage (Enumerated ClientEventsUnsubscribeResponse_Status) -> Parser RawMessage ClientEventsUnsubscribeResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField (Enumerated ClientEventsUnsubscribeResponse_Status) +<*> + (Parser RawField (Enumerated ClientEventsUnsubscribeResponse_Status) -> FieldNumber -> Parser RawMessage (Enumerated ClientEventsUnsubscribeResponse_Status) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (Enumerated ClientEventsUnsubscribeResponse_Status) +HsProtobuf.at Parser RawField (Enumerated ClientEventsUnsubscribeResponse_Status) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - dotProto :: Proxy# ClientEventsUnsubscribeResponse -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + dotProto :: Proxy# ClientEventsUnsubscribeResponse -> [DotProtoField] +dotProto Proxy# ClientEventsUnsubscribeResponse +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "Status"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "status") - [] - "")] - -instance HsJSONPB.ToJSONPB ClientEventsUnsubscribeResponse where - toJSONPB :: ClientEventsUnsubscribeResponse -> Options -> Value -toJSONPB (ClientEventsUnsubscribeResponse f1 :: Enumerated ClientEventsUnsubscribeResponse_Status -f1) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["status" Text +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"Status"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"status") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ClientEventsUnsubscribeResponse where + toJSONPB :: ClientEventsUnsubscribeResponse -> Options -> Value +toJSONPB (ClientEventsUnsubscribeResponse Enumerated ClientEventsUnsubscribeResponse_Status +f1) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"status" Text -> Enumerated ClientEventsUnsubscribeResponse_Status -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated ClientEventsUnsubscribeResponse_Status -f1]) - toEncodingPB :: ClientEventsUnsubscribeResponse -> Options -> Encoding -toEncodingPB (ClientEventsUnsubscribeResponse f1 :: Enumerated ClientEventsUnsubscribeResponse_Status -f1) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["status" Text +.= Enumerated ClientEventsUnsubscribeResponse_Status +f1]) + toEncodingPB :: ClientEventsUnsubscribeResponse -> Options -> Encoding +toEncodingPB (ClientEventsUnsubscribeResponse Enumerated ClientEventsUnsubscribeResponse_Status +f1) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"status" Text -> Enumerated ClientEventsUnsubscribeResponse_Status -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated ClientEventsUnsubscribeResponse_Status -f1]) - -instance HsJSONPB.FromJSONPB ClientEventsUnsubscribeResponse where - parseJSONPB :: Value -> Parser ClientEventsUnsubscribeResponse -parseJSONPB - = (String +.= Enumerated ClientEventsUnsubscribeResponse_Status +f1]) + +instance HsJSONPB.FromJSONPB ClientEventsUnsubscribeResponse where + parseJSONPB :: Value -> Parser ClientEventsUnsubscribeResponse +parseJSONPB + = (String -> (Object -> Parser ClientEventsUnsubscribeResponse) -> Value -> Parser ClientEventsUnsubscribeResponse forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ClientEventsUnsubscribeResponse" - (\ obj :: Object -obj -> - ((Enumerated ClientEventsUnsubscribeResponse_Status +HsJSONPB.withObject String +"ClientEventsUnsubscribeResponse" + (\ Object +obj -> + ((Enumerated ClientEventsUnsubscribeResponse_Status -> ClientEventsUnsubscribeResponse) -> Parser (Enumerated ClientEventsUnsubscribeResponse_Status -> ClientEventsUnsubscribeResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ClientEventsUnsubscribeResponse_Status +Hs.pure Enumerated ClientEventsUnsubscribeResponse_Status -> ClientEventsUnsubscribeResponse ClientEventsUnsubscribeResponse) Parser (Enumerated ClientEventsUnsubscribeResponse_Status @@ -1638,65 +1727,67 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Parser (Enumerated ClientEventsUnsubscribeResponse_Status) -> Parser ClientEventsUnsubscribeResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object +<*> Object +obj Object -> Text -> Parser (Enumerated ClientEventsUnsubscribeResponse_Status) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "status")) - -instance HsJSONPB.ToJSON ClientEventsUnsubscribeResponse where - toJSON :: ClientEventsUnsubscribeResponse -> Value -toJSON = ClientEventsUnsubscribeResponse -> Value +.: Text +"status")) + +instance HsJSONPB.ToJSON ClientEventsUnsubscribeResponse where + toJSON :: ClientEventsUnsubscribeResponse -> Value +toJSON = ClientEventsUnsubscribeResponse -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ClientEventsUnsubscribeResponse -> Encoding -toEncoding = ClientEventsUnsubscribeResponse -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ClientEventsUnsubscribeResponse -> Encoding +toEncoding = ClientEventsUnsubscribeResponse -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ClientEventsUnsubscribeResponse where - parseJSON :: Value -> Parser ClientEventsUnsubscribeResponse -parseJSON = Value -> Parser ClientEventsUnsubscribeResponse +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ClientEventsUnsubscribeResponse where + parseJSON :: Value -> Parser ClientEventsUnsubscribeResponse +parseJSON = Value -> Parser ClientEventsUnsubscribeResponse forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ClientEventsUnsubscribeResponse where - declareNamedSchema :: Proxy ClientEventsUnsubscribeResponse +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ClientEventsUnsubscribeResponse where + declareNamedSchema :: Proxy ClientEventsUnsubscribeResponse -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_status :: Proxy +declareNamedSchema Proxy ClientEventsUnsubscribeResponse +_ + = do let declare_status :: Proxy (OverrideToSchema (Enumerated ClientEventsUnsubscribeResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status = Proxy +declare_status = Proxy (OverrideToSchema (Enumerated ClientEventsUnsubscribeResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientEventsUnsubscribeResponseStatus <- Proxy +HsJSONPB.declareSchemaRef + Referenced Schema +clientEventsUnsubscribeResponseStatus <- Proxy (OverrideToSchema (Enumerated ClientEventsUnsubscribeResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status Proxy +declare_status Proxy (OverrideToSchema (Enumerated ClientEventsUnsubscribeResponse_Status)) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ClientEventsUnsubscribeResponse +Proxy.Proxy + let Proxy ClientEventsUnsubscribeResponse _ = (Enumerated ClientEventsUnsubscribeResponse_Status -> ClientEventsUnsubscribeResponse) -> Proxy (Enumerated ClientEventsUnsubscribeResponse_Status -> ClientEventsUnsubscribeResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ClientEventsUnsubscribeResponse_Status +Hs.pure Enumerated ClientEventsUnsubscribeResponse_Status -> ClientEventsUnsubscribeResponse ClientEventsUnsubscribeResponse Proxy (Enumerated ClientEventsUnsubscribeResponse_Status @@ -1704,56 +1795,58 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Proxy (Enumerated ClientEventsUnsubscribeResponse_Status) -> Proxy ClientEventsUnsubscribeResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy +<*> + (Proxy (OverrideToSchema (Enumerated ClientEventsUnsubscribeResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Enumerated ClientEventsUnsubscribeResponse_Status) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy +HsJSONPB.asProxy Proxy (OverrideToSchema (Enumerated ClientEventsUnsubscribeResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_status + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ClientEventsUnsubscribeResponse", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ClientEventsUnsubscribeResponse", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("status", - Referenced Schema -clientEventsUnsubscribeResponseStatus)]}}) - -data ClientEventsUnsubscribeResponse_Status = ClientEventsUnsubscribeResponse_StatusSTATUS_UNSET - | ClientEventsUnsubscribeResponse_StatusOK - | ClientEventsUnsubscribeResponse_StatusINTERNAL_ERROR - deriving (Int -> ClientEventsUnsubscribeResponse_Status -> ShowS +HsJSONPB.insOrdFromList + [(Text +"status", + Referenced Schema +clientEventsUnsubscribeResponseStatus)]}}) + +data ClientEventsUnsubscribeResponse_Status = ClientEventsUnsubscribeResponse_StatusSTATUS_UNSET + | ClientEventsUnsubscribeResponse_StatusOK + | ClientEventsUnsubscribeResponse_StatusINTERNAL_ERROR + deriving (Int -> ClientEventsUnsubscribeResponse_Status -> ShowS [ClientEventsUnsubscribeResponse_Status] -> ShowS ClientEventsUnsubscribeResponse_Status -> String (Int -> ClientEventsUnsubscribeResponse_Status -> ShowS) @@ -1768,7 +1861,7 @@ show :: ClientEventsUnsubscribeResponse_Status -> String $cshow :: ClientEventsUnsubscribeResponse_Status -> String showsPrec :: Int -> ClientEventsUnsubscribeResponse_Status -> ShowS $cshowsPrec :: Int -> ClientEventsUnsubscribeResponse_Status -> ShowS -Hs.Show, ClientEventsUnsubscribeResponse_Status +Hs.Show, ClientEventsUnsubscribeResponse_Status -> ClientEventsUnsubscribeResponse_Status -> Bool (ClientEventsUnsubscribeResponse_Status -> ClientEventsUnsubscribeResponse_Status -> Bool) @@ -1784,7 +1877,7 @@ $c/= :: ClientEventsUnsubscribeResponse_Status -> ClientEventsUnsubscribeResponse_Status -> Bool $c== :: ClientEventsUnsubscribeResponse_Status -> ClientEventsUnsubscribeResponse_Status -> Bool -Hs.Eq, (forall x. +Hs.Eq, (forall x. ClientEventsUnsubscribeResponse_Status -> Rep ClientEventsUnsubscribeResponse_Status x) -> (forall x. @@ -1805,155 +1898,170 @@ Rep ClientEventsUnsubscribeResponse_Status x $cfrom :: forall x. ClientEventsUnsubscribeResponse_Status -> Rep ClientEventsUnsubscribeResponse_Status x -Hs.Generic, ClientEventsUnsubscribeResponse_Status -> () +Hs.Generic, ClientEventsUnsubscribeResponse_Status -> () (ClientEventsUnsubscribeResponse_Status -> ()) -> NFData ClientEventsUnsubscribeResponse_Status forall a. (a -> ()) -> NFData a rnf :: ClientEventsUnsubscribeResponse_Status -> () $crnf :: ClientEventsUnsubscribeResponse_Status -> () -Hs.NFData) - -instance HsProtobuf.Named ClientEventsUnsubscribeResponse_Status - where - nameOf :: Proxy# ClientEventsUnsubscribeResponse_Status -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ClientEventsUnsubscribeResponse_Status + where + nameOf :: Proxy# ClientEventsUnsubscribeResponse_Status -> string +nameOf Proxy# ClientEventsUnsubscribeResponse_Status +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ClientEventsUnsubscribeResponse_Status") - -instance HsProtobuf.HasDefault - ClientEventsUnsubscribeResponse_Status - -instance Hs.Bounded ClientEventsUnsubscribeResponse_Status where - minBound :: ClientEventsUnsubscribeResponse_Status -minBound = ClientEventsUnsubscribeResponse_Status +Hs.fromString String +"ClientEventsUnsubscribeResponse_Status") + +instance HsProtobuf.HasDefault + ClientEventsUnsubscribeResponse_Status + +instance Hs.Bounded ClientEventsUnsubscribeResponse_Status where + minBound :: ClientEventsUnsubscribeResponse_Status +minBound = ClientEventsUnsubscribeResponse_Status ClientEventsUnsubscribeResponse_StatusSTATUS_UNSET - maxBound :: ClientEventsUnsubscribeResponse_Status -maxBound = ClientEventsUnsubscribeResponse_Status + maxBound :: ClientEventsUnsubscribeResponse_Status +maxBound = ClientEventsUnsubscribeResponse_Status ClientEventsUnsubscribeResponse_StatusINTERNAL_ERROR - -instance Hs.Ord ClientEventsUnsubscribeResponse_Status where - compare :: ClientEventsUnsubscribeResponse_Status + +instance Hs.Ord ClientEventsUnsubscribeResponse_Status where + compare :: ClientEventsUnsubscribeResponse_Status -> ClientEventsUnsubscribeResponse_Status -> Ordering -compare x :: ClientEventsUnsubscribeResponse_Status -x y :: ClientEventsUnsubscribeResponse_Status -y - = Int32 -> Int32 -> Ordering +compare ClientEventsUnsubscribeResponse_Status +x ClientEventsUnsubscribeResponse_Status +y + = Int32 -> Int32 -> Ordering forall a. Ord a => a -> a -> Ordering -Hs.compare (ClientEventsUnsubscribeResponse_Status -> Int32 +Hs.compare (ClientEventsUnsubscribeResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum ClientEventsUnsubscribeResponse_Status -x) - (ClientEventsUnsubscribeResponse_Status -> Int32 +HsProtobuf.fromProtoEnum ClientEventsUnsubscribeResponse_Status +x) + (ClientEventsUnsubscribeResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum ClientEventsUnsubscribeResponse_Status -y) - -instance HsProtobuf.ProtoEnum - ClientEventsUnsubscribeResponse_Status where - toProtoEnumMay :: Int32 -> Maybe ClientEventsUnsubscribeResponse_Status -toProtoEnumMay 0 - = ClientEventsUnsubscribeResponse_Status +HsProtobuf.fromProtoEnum ClientEventsUnsubscribeResponse_Status +y) + +instance HsProtobuf.ProtoEnum + ClientEventsUnsubscribeResponse_Status where + toProtoEnumMay :: Int32 -> Maybe ClientEventsUnsubscribeResponse_Status +toProtoEnumMay Int32 +0 + = ClientEventsUnsubscribeResponse_Status -> Maybe ClientEventsUnsubscribeResponse_Status forall a. a -> Maybe a -Hs.Just ClientEventsUnsubscribeResponse_Status +Hs.Just ClientEventsUnsubscribeResponse_Status ClientEventsUnsubscribeResponse_StatusSTATUS_UNSET - toProtoEnumMay 1 = ClientEventsUnsubscribeResponse_Status + toProtoEnumMay Int32 +1 = ClientEventsUnsubscribeResponse_Status -> Maybe ClientEventsUnsubscribeResponse_Status forall a. a -> Maybe a -Hs.Just ClientEventsUnsubscribeResponse_Status +Hs.Just ClientEventsUnsubscribeResponse_Status ClientEventsUnsubscribeResponse_StatusOK - toProtoEnumMay 2 - = ClientEventsUnsubscribeResponse_Status + toProtoEnumMay Int32 +2 + = ClientEventsUnsubscribeResponse_Status -> Maybe ClientEventsUnsubscribeResponse_Status forall a. a -> Maybe a -Hs.Just ClientEventsUnsubscribeResponse_Status +Hs.Just ClientEventsUnsubscribeResponse_Status ClientEventsUnsubscribeResponse_StatusINTERNAL_ERROR - toProtoEnumMay _ = Maybe ClientEventsUnsubscribeResponse_Status + toProtoEnumMay Int32 +_ = Maybe ClientEventsUnsubscribeResponse_Status forall a. Maybe a -Hs.Nothing - fromProtoEnum :: ClientEventsUnsubscribeResponse_Status -> Int32 -fromProtoEnum (ClientEventsUnsubscribeResponse_Status +Hs.Nothing + fromProtoEnum :: ClientEventsUnsubscribeResponse_Status -> Int32 +fromProtoEnum (ClientEventsUnsubscribeResponse_Status ClientEventsUnsubscribeResponse_StatusSTATUS_UNSET) - = 0 - fromProtoEnum (ClientEventsUnsubscribeResponse_Status -ClientEventsUnsubscribeResponse_StatusOK) = 1 - fromProtoEnum - (ClientEventsUnsubscribeResponse_Status -ClientEventsUnsubscribeResponse_StatusINTERNAL_ERROR) = 2 - -instance HsJSONPB.ToJSONPB ClientEventsUnsubscribeResponse_Status - where - toJSONPB :: ClientEventsUnsubscribeResponse_Status -> Options -> Value -toJSONPB x :: ClientEventsUnsubscribeResponse_Status -x _ = ClientEventsUnsubscribeResponse_Status -> Value + = Int32 +0 + fromProtoEnum (ClientEventsUnsubscribeResponse_Status +ClientEventsUnsubscribeResponse_StatusOK) = Int32 +1 + fromProtoEnum + (ClientEventsUnsubscribeResponse_Status +ClientEventsUnsubscribeResponse_StatusINTERNAL_ERROR) = Int32 +2 + +instance HsJSONPB.ToJSONPB ClientEventsUnsubscribeResponse_Status + where + toJSONPB :: ClientEventsUnsubscribeResponse_Status -> Options -> Value +toJSONPB ClientEventsUnsubscribeResponse_Status +x Options +_ = ClientEventsUnsubscribeResponse_Status -> Value forall a. (Named a, Show a) => a -> Value -HsJSONPB.enumFieldString ClientEventsUnsubscribeResponse_Status -x - toEncodingPB :: ClientEventsUnsubscribeResponse_Status -> Options -> Encoding -toEncodingPB x :: ClientEventsUnsubscribeResponse_Status -x _ = ClientEventsUnsubscribeResponse_Status -> Encoding +HsJSONPB.enumFieldString ClientEventsUnsubscribeResponse_Status +x + toEncodingPB :: ClientEventsUnsubscribeResponse_Status -> Options -> Encoding +toEncodingPB ClientEventsUnsubscribeResponse_Status +x Options +_ = ClientEventsUnsubscribeResponse_Status -> Encoding forall a. (Named a, Show a) => a -> Encoding -HsJSONPB.enumFieldEncoding ClientEventsUnsubscribeResponse_Status -x - -instance HsJSONPB.FromJSONPB ClientEventsUnsubscribeResponse_Status - where - parseJSONPB :: Value -> Parser ClientEventsUnsubscribeResponse_Status -parseJSONPB (HsJSONPB.String "STATUS_UNSET") - = ClientEventsUnsubscribeResponse_Status +HsJSONPB.enumFieldEncoding ClientEventsUnsubscribeResponse_Status +x + +instance HsJSONPB.FromJSONPB ClientEventsUnsubscribeResponse_Status + where + parseJSONPB :: Value -> Parser ClientEventsUnsubscribeResponse_Status +parseJSONPB (HsJSONPB.String Text +"STATUS_UNSET") + = ClientEventsUnsubscribeResponse_Status -> Parser ClientEventsUnsubscribeResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientEventsUnsubscribeResponse_Status +Hs.pure ClientEventsUnsubscribeResponse_Status ClientEventsUnsubscribeResponse_StatusSTATUS_UNSET - parseJSONPB (HsJSONPB.String "OK") - = ClientEventsUnsubscribeResponse_Status + parseJSONPB (HsJSONPB.String Text +"OK") + = ClientEventsUnsubscribeResponse_Status -> Parser ClientEventsUnsubscribeResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientEventsUnsubscribeResponse_Status +Hs.pure ClientEventsUnsubscribeResponse_Status ClientEventsUnsubscribeResponse_StatusOK - parseJSONPB (HsJSONPB.String "INTERNAL_ERROR") - = ClientEventsUnsubscribeResponse_Status + parseJSONPB (HsJSONPB.String Text +"INTERNAL_ERROR") + = ClientEventsUnsubscribeResponse_Status -> Parser ClientEventsUnsubscribeResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientEventsUnsubscribeResponse_Status +Hs.pure ClientEventsUnsubscribeResponse_Status ClientEventsUnsubscribeResponse_StatusINTERNAL_ERROR - parseJSONPB v :: Value -v - = (String -> Value -> Parser ClientEventsUnsubscribeResponse_Status + parseJSONPB Value +v + = (String -> Value -> Parser ClientEventsUnsubscribeResponse_Status forall a. String -> Value -> Parser a -HsJSONPB.typeMismatch "ClientEventsUnsubscribeResponse_Status" - Value -v) - -instance HsJSONPB.ToJSON ClientEventsUnsubscribeResponse_Status - where - toJSON :: ClientEventsUnsubscribeResponse_Status -> Value -toJSON = ClientEventsUnsubscribeResponse_Status -> Value +HsJSONPB.typeMismatch String +"ClientEventsUnsubscribeResponse_Status" + Value +v) + +instance HsJSONPB.ToJSON ClientEventsUnsubscribeResponse_Status + where + toJSON :: ClientEventsUnsubscribeResponse_Status -> Value +toJSON = ClientEventsUnsubscribeResponse_Status -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ClientEventsUnsubscribeResponse_Status -> Encoding -toEncoding = ClientEventsUnsubscribeResponse_Status -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ClientEventsUnsubscribeResponse_Status -> Encoding +toEncoding = ClientEventsUnsubscribeResponse_Status -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ClientEventsUnsubscribeResponse_Status - where - parseJSON :: Value -> Parser ClientEventsUnsubscribeResponse_Status -parseJSON = Value -> Parser ClientEventsUnsubscribeResponse_Status +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ClientEventsUnsubscribeResponse_Status + where + parseJSON :: Value -> Parser ClientEventsUnsubscribeResponse_Status +parseJSON = Value -> Parser ClientEventsUnsubscribeResponse_Status forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsProtobuf.Finite ClientEventsUnsubscribeResponse_Status - -data ClientEventsGetRequest = ClientEventsGetRequest{ClientEventsGetRequest -> Vector EventSubscription +HsJSONPB.parseJSONPB + +instance HsProtobuf.Finite ClientEventsUnsubscribeResponse_Status + +data ClientEventsGetRequest = ClientEventsGetRequest{ClientEventsGetRequest -> Vector EventSubscription clientEventsGetRequestSubscriptions - :: - Hs.Vector - Data.Sawtooth.Events.EventSubscription, - ClientEventsGetRequest -> Vector Text + :: + Hs.Vector + Data.Sawtooth.Events.EventSubscription, + ClientEventsGetRequest -> Vector Text clientEventsGetRequestBlockIds :: - Hs.Vector Hs.Text} - deriving (Int -> ClientEventsGetRequest -> ShowS + Hs.Vector Hs.Text} + deriving (Int -> ClientEventsGetRequest -> ShowS [ClientEventsGetRequest] -> ShowS ClientEventsGetRequest -> String (Int -> ClientEventsGetRequest -> ShowS) @@ -1968,7 +2076,7 @@ show :: ClientEventsGetRequest -> String $cshow :: ClientEventsGetRequest -> String showsPrec :: Int -> ClientEventsGetRequest -> ShowS $cshowsPrec :: Int -> ClientEventsGetRequest -> ShowS -Hs.Show, ClientEventsGetRequest -> ClientEventsGetRequest -> Bool +Hs.Show, ClientEventsGetRequest -> ClientEventsGetRequest -> Bool (ClientEventsGetRequest -> ClientEventsGetRequest -> Bool) -> (ClientEventsGetRequest -> ClientEventsGetRequest -> Bool) -> Eq ClientEventsGetRequest @@ -1977,9 +2085,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: ClientEventsGetRequest -> ClientEventsGetRequest -> Bool == :: ClientEventsGetRequest -> ClientEventsGetRequest -> Bool $c== :: ClientEventsGetRequest -> ClientEventsGetRequest -> Bool -Hs.Eq, Eq ClientEventsGetRequest -Eq ClientEventsGetRequest => -(ClientEventsGetRequest -> ClientEventsGetRequest -> Ordering) +Hs.Eq, Eq ClientEventsGetRequest +Eq ClientEventsGetRequest +-> (ClientEventsGetRequest -> ClientEventsGetRequest -> Ordering) -> (ClientEventsGetRequest -> ClientEventsGetRequest -> Bool) -> (ClientEventsGetRequest -> ClientEventsGetRequest -> Bool) -> (ClientEventsGetRequest -> ClientEventsGetRequest -> Bool) @@ -1994,8 +2102,8 @@ ClientEventsGetRequest -> ClientEventsGetRequest -> Ordering ClientEventsGetRequest -> ClientEventsGetRequest -> ClientEventsGetRequest forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -2022,7 +2130,7 @@ $c< :: ClientEventsGetRequest -> ClientEventsGetRequest -> Bool compare :: ClientEventsGetRequest -> ClientEventsGetRequest -> Ordering $ccompare :: ClientEventsGetRequest -> ClientEventsGetRequest -> Ordering $cp1Ord :: Eq ClientEventsGetRequest -Hs.Ord, (forall x. ClientEventsGetRequest -> Rep ClientEventsGetRequest x) +Hs.Ord, (forall x. ClientEventsGetRequest -> Rep ClientEventsGetRequest x) -> (forall x. Rep ClientEventsGetRequest x -> ClientEventsGetRequest) -> Generic ClientEventsGetRequest @@ -2032,331 +2140,354 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep ClientEventsGetRequest x -> ClientEventsGetRequest $cfrom :: forall x. ClientEventsGetRequest -> Rep ClientEventsGetRequest x -Hs.Generic, ClientEventsGetRequest -> () +Hs.Generic, ClientEventsGetRequest -> () (ClientEventsGetRequest -> ()) -> NFData ClientEventsGetRequest forall a. (a -> ()) -> NFData a rnf :: ClientEventsGetRequest -> () $crnf :: ClientEventsGetRequest -> () -Hs.NFData) - -instance HsProtobuf.Named ClientEventsGetRequest where - nameOf :: Proxy# ClientEventsGetRequest -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ClientEventsGetRequest where + nameOf :: Proxy# ClientEventsGetRequest -> string +nameOf Proxy# ClientEventsGetRequest +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ClientEventsGetRequest") - -instance HsProtobuf.HasDefault ClientEventsGetRequest - -instance HsProtobuf.Message ClientEventsGetRequest where - encodeMessage :: FieldNumber -> ClientEventsGetRequest -> MessageBuilder -encodeMessage _ - ClientEventsGetRequest{clientEventsGetRequestSubscriptions :: ClientEventsGetRequest -> Vector EventSubscription +Hs.fromString String +"ClientEventsGetRequest") + +instance HsProtobuf.HasDefault ClientEventsGetRequest + +instance HsProtobuf.Message ClientEventsGetRequest where + encodeMessage :: FieldNumber -> ClientEventsGetRequest -> MessageBuilder +encodeMessage FieldNumber +_ + ClientEventsGetRequest{clientEventsGetRequestSubscriptions :: ClientEventsGetRequest -> Vector EventSubscription clientEventsGetRequestSubscriptions = - Vector EventSubscription -clientEventsGetRequestSubscriptions, - clientEventsGetRequestBlockIds :: ClientEventsGetRequest -> Vector Text -clientEventsGetRequestBlockIds = Vector Text -clientEventsGetRequestBlockIds} - = ([MessageBuilder] -> MessageBuilder + Vector EventSubscription +clientEventsGetRequestSubscriptions, + clientEventsGetRequestBlockIds :: ClientEventsGetRequest -> Vector Text +clientEventsGetRequestBlockIds = Vector Text +clientEventsGetRequestBlockIds} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> NestedVec EventSubscription -> MessageBuilder +Hs.mconcat + [(FieldNumber -> NestedVec EventSubscription -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (Vector EventSubscription -> NestedVec EventSubscription -forall a b. Coercible a b => a -> b -Hs.coerce @(Hs.Vector Data.Sawtooth.Events.EventSubscription) - @(HsProtobuf.NestedVec Data.Sawtooth.Events.EventSubscription) - Vector EventSubscription -clientEventsGetRequestSubscriptions)), - (FieldNumber -> UnpackedVec Text -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (Vector EventSubscription -> NestedVec EventSubscription +Hs.coerce @(Hs.Vector Data.Sawtooth.Events.EventSubscription) + @(HsProtobuf.NestedVec Data.Sawtooth.Events.EventSubscription) + Vector EventSubscription +clientEventsGetRequestSubscriptions)), + (FieldNumber -> UnpackedVec Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (Vector Text -> UnpackedVec Text -forall a b. Coercible a b => a -> b -Hs.coerce @(Hs.Vector Hs.Text) @(HsProtobuf.UnpackedVec Hs.Text) - Vector Text -clientEventsGetRequestBlockIds))]) - decodeMessage :: FieldNumber -> Parser RawMessage ClientEventsGetRequest -decodeMessage _ - = ((Vector EventSubscription -> Vector Text -> ClientEventsGetRequest) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (Vector Text -> UnpackedVec Text +Hs.coerce @(Hs.Vector Hs.Text) @(HsProtobuf.UnpackedVec Hs.Text) + Vector Text +clientEventsGetRequestBlockIds))]) + decodeMessage :: FieldNumber -> Parser RawMessage ClientEventsGetRequest +decodeMessage FieldNumber +_ + = ((Vector EventSubscription -> Vector Text -> ClientEventsGetRequest) -> Parser RawMessage (Vector EventSubscription -> Vector Text -> ClientEventsGetRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector EventSubscription -> Vector Text -> ClientEventsGetRequest +Hs.pure Vector EventSubscription -> Vector Text -> ClientEventsGetRequest ClientEventsGetRequest) Parser RawMessage (Vector EventSubscription -> Vector Text -> ClientEventsGetRequest) -> Parser RawMessage (Vector EventSubscription) -> Parser RawMessage (Vector Text -> ClientEventsGetRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (NestedVec EventSubscription) +<*> + (Parser RawMessage (NestedVec EventSubscription) -> Parser RawMessage (Vector EventSubscription) -forall a b. Coercible a b => a -> b -Hs.coerce - @(_ (HsProtobuf.NestedVec Data.Sawtooth.Events.EventSubscription)) - @(_ (Hs.Vector Data.Sawtooth.Events.EventSubscription)) - (Parser RawField (NestedVec EventSubscription) +Hs.coerce + @(_ (HsProtobuf.NestedVec Data.Sawtooth.Events.EventSubscription)) + @(_ (Hs.Vector Data.Sawtooth.Events.EventSubscription)) + (Parser RawField (NestedVec EventSubscription) -> FieldNumber -> Parser RawMessage (NestedVec EventSubscription) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (NestedVec EventSubscription) +HsProtobuf.at Parser RawField (NestedVec EventSubscription) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1))) - Parser RawMessage (Vector Text -> ClientEventsGetRequest) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1))) + Parser RawMessage (Vector Text -> ClientEventsGetRequest) -> Parser RawMessage (Vector Text) -> Parser RawMessage ClientEventsGetRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (UnpackedVec Text) +<*> + (Parser RawMessage (UnpackedVec Text) -> Parser RawMessage (Vector Text) -forall a b. Coercible a b => a -> b -Hs.coerce @(_ (HsProtobuf.UnpackedVec Hs.Text)) - @(_ (Hs.Vector Hs.Text)) - (Parser RawField (UnpackedVec Text) +Hs.coerce @(_ (HsProtobuf.UnpackedVec Hs.Text)) + @(_ (Hs.Vector Hs.Text)) + (Parser RawField (UnpackedVec Text) -> FieldNumber -> Parser RawMessage (UnpackedVec Text) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (UnpackedVec Text) +HsProtobuf.at Parser RawField (UnpackedVec Text) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2))) - dotProto :: Proxy# ClientEventsGetRequest -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2))) + dotProto :: Proxy# ClientEventsGetRequest -> [DotProtoField] +dotProto Proxy# ClientEventsGetRequest +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Repeated - (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "EventSubscription"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "subscriptions") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Repeated + (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"EventSubscription"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"subscriptions") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Repeated DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "block_ids") - [] - "")] - -instance HsJSONPB.ToJSONPB ClientEventsGetRequest where - toJSONPB :: ClientEventsGetRequest -> Options -> Value -toJSONPB (ClientEventsGetRequest f1 :: Vector EventSubscription -f1 f2 :: Vector Text -f2) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["subscriptions" Text -> Vector EventSubscription -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Repeated DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"block_ids") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ClientEventsGetRequest where + toJSONPB :: ClientEventsGetRequest -> Options -> Value +toJSONPB (ClientEventsGetRequest Vector EventSubscription +f1 Vector Text +f2) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"subscriptions" Text -> Vector EventSubscription -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector EventSubscription -f1, "block_ids" Text -> Vector Text -> Options -> [Pair] +.= Vector EventSubscription +f1, Text +"block_ids" Text -> Vector Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Text -f2]) - toEncodingPB :: ClientEventsGetRequest -> Options -> Encoding -toEncodingPB (ClientEventsGetRequest f1 :: Vector EventSubscription -f1 f2 :: Vector Text -f2) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["subscriptions" Text -> Vector EventSubscription -> Options -> Series +.= Vector Text +f2]) + toEncodingPB :: ClientEventsGetRequest -> Options -> Encoding +toEncodingPB (ClientEventsGetRequest Vector EventSubscription +f1 Vector Text +f2) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"subscriptions" Text -> Vector EventSubscription -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector EventSubscription -f1, "block_ids" Text -> Vector Text -> Options -> Series +.= Vector EventSubscription +f1, Text +"block_ids" Text -> Vector Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Text -f2]) - -instance HsJSONPB.FromJSONPB ClientEventsGetRequest where - parseJSONPB :: Value -> Parser ClientEventsGetRequest -parseJSONPB - = (String +.= Vector Text +f2]) + +instance HsJSONPB.FromJSONPB ClientEventsGetRequest where + parseJSONPB :: Value -> Parser ClientEventsGetRequest +parseJSONPB + = (String -> (Object -> Parser ClientEventsGetRequest) -> Value -> Parser ClientEventsGetRequest forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ClientEventsGetRequest" - (\ obj :: Object -obj -> - ((Vector EventSubscription -> Vector Text -> ClientEventsGetRequest) +HsJSONPB.withObject String +"ClientEventsGetRequest" + (\ Object +obj -> + ((Vector EventSubscription -> Vector Text -> ClientEventsGetRequest) -> Parser (Vector EventSubscription -> Vector Text -> ClientEventsGetRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector EventSubscription -> Vector Text -> ClientEventsGetRequest +Hs.pure Vector EventSubscription -> Vector Text -> ClientEventsGetRequest ClientEventsGetRequest) Parser (Vector EventSubscription -> Vector Text -> ClientEventsGetRequest) -> Parser (Vector EventSubscription) -> Parser (Vector Text -> ClientEventsGetRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser (Vector EventSubscription) +<*> Object +obj Object -> Text -> Parser (Vector EventSubscription) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "subscriptions" Parser (Vector Text -> ClientEventsGetRequest) +.: Text +"subscriptions" Parser (Vector Text -> ClientEventsGetRequest) -> Parser (Vector Text) -> Parser ClientEventsGetRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser (Vector Text) +<*> + Object +obj Object -> Text -> Parser (Vector Text) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "block_ids")) - -instance HsJSONPB.ToJSON ClientEventsGetRequest where - toJSON :: ClientEventsGetRequest -> Value -toJSON = ClientEventsGetRequest -> Value +.: Text +"block_ids")) + +instance HsJSONPB.ToJSON ClientEventsGetRequest where + toJSON :: ClientEventsGetRequest -> Value +toJSON = ClientEventsGetRequest -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ClientEventsGetRequest -> Encoding -toEncoding = ClientEventsGetRequest -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ClientEventsGetRequest -> Encoding +toEncoding = ClientEventsGetRequest -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ClientEventsGetRequest where - parseJSON :: Value -> Parser ClientEventsGetRequest -parseJSON = Value -> Parser ClientEventsGetRequest +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ClientEventsGetRequest where + parseJSON :: Value -> Parser ClientEventsGetRequest +parseJSON = Value -> Parser ClientEventsGetRequest forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ClientEventsGetRequest where - declareNamedSchema :: Proxy ClientEventsGetRequest +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ClientEventsGetRequest where + declareNamedSchema :: Proxy ClientEventsGetRequest -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_subscriptions :: Proxy (OverrideToSchema (Vector EventSubscription)) +declareNamedSchema Proxy ClientEventsGetRequest +_ + = do let declare_subscriptions :: Proxy (OverrideToSchema (Vector EventSubscription)) -> Declare (Definitions Schema) (Referenced Schema) -declare_subscriptions = Proxy (OverrideToSchema (Vector EventSubscription)) +declare_subscriptions = Proxy (OverrideToSchema (Vector EventSubscription)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientEventsGetRequestSubscriptions <- Proxy (OverrideToSchema (Vector EventSubscription)) +HsJSONPB.declareSchemaRef + Referenced Schema +clientEventsGetRequestSubscriptions <- Proxy (OverrideToSchema (Vector EventSubscription)) -> Declare (Definitions Schema) (Referenced Schema) -declare_subscriptions - Proxy (OverrideToSchema (Vector EventSubscription)) +declare_subscriptions + Proxy (OverrideToSchema (Vector EventSubscription)) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_block_ids :: Proxy (OverrideToSchema (Vector Text)) +Proxy.Proxy + let declare_block_ids :: Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) -declare_block_ids = Proxy (OverrideToSchema (Vector Text)) +declare_block_ids = Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientEventsGetRequestBlockIds <- Proxy (OverrideToSchema (Vector Text)) +HsJSONPB.declareSchemaRef + Referenced Schema +clientEventsGetRequestBlockIds <- Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) -declare_block_ids Proxy (OverrideToSchema (Vector Text)) +declare_block_ids Proxy (OverrideToSchema (Vector Text)) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ClientEventsGetRequest +Proxy.Proxy + let Proxy ClientEventsGetRequest _ = (Vector EventSubscription -> Vector Text -> ClientEventsGetRequest) -> Proxy (Vector EventSubscription -> Vector Text -> ClientEventsGetRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector EventSubscription -> Vector Text -> ClientEventsGetRequest +Hs.pure Vector EventSubscription -> Vector Text -> ClientEventsGetRequest ClientEventsGetRequest Proxy (Vector EventSubscription -> Vector Text -> ClientEventsGetRequest) -> Proxy (Vector EventSubscription) -> Proxy (Vector Text -> ClientEventsGetRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema (Vector EventSubscription)) +<*> + (Proxy (OverrideToSchema (Vector EventSubscription)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Vector EventSubscription) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Vector EventSubscription)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Vector EventSubscription)) -> Declare (Definitions Schema) (Referenced Schema) -declare_subscriptions - Proxy (Vector Text -> ClientEventsGetRequest) +declare_subscriptions + Proxy (Vector Text -> ClientEventsGetRequest) -> Proxy (Vector Text) -> Proxy ClientEventsGetRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema (Vector Text)) +<*> (Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Vector Text) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Text)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) -declare_block_ids - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_block_ids + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ClientEventsGetRequest", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ClientEventsGetRequest", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("subscriptions", - Referenced Schema -clientEventsGetRequestSubscriptions), - ("block_ids", - Referenced Schema -clientEventsGetRequestBlockIds)]}}) - -data ClientEventsGetResponse = ClientEventsGetResponse{ClientEventsGetResponse +HsJSONPB.insOrdFromList + [(Text +"subscriptions", + Referenced Schema +clientEventsGetRequestSubscriptions), + (Text +"block_ids", + Referenced Schema +clientEventsGetRequestBlockIds)]}}) + +data ClientEventsGetResponse = ClientEventsGetResponse{ClientEventsGetResponse -> Enumerated ClientEventsGetResponse_Status clientEventsGetResponseStatus - :: - HsProtobuf.Enumerated - Data.Sawtooth.ClientEvent.ClientEventsGetResponse_Status, - ClientEventsGetResponse -> Vector Event + :: + HsProtobuf.Enumerated + Data.Sawtooth.ClientEvent.ClientEventsGetResponse_Status, + ClientEventsGetResponse -> Vector Event clientEventsGetResponseEvents :: - Hs.Vector Data.Sawtooth.Events.Event} - deriving (Int -> ClientEventsGetResponse -> ShowS + Hs.Vector Data.Sawtooth.Events.Event} + deriving (Int -> ClientEventsGetResponse -> ShowS [ClientEventsGetResponse] -> ShowS ClientEventsGetResponse -> String (Int -> ClientEventsGetResponse -> ShowS) @@ -2371,7 +2502,7 @@ show :: ClientEventsGetResponse -> String $cshow :: ClientEventsGetResponse -> String showsPrec :: Int -> ClientEventsGetResponse -> ShowS $cshowsPrec :: Int -> ClientEventsGetResponse -> ShowS -Hs.Show, ClientEventsGetResponse -> ClientEventsGetResponse -> Bool +Hs.Show, ClientEventsGetResponse -> ClientEventsGetResponse -> Bool (ClientEventsGetResponse -> ClientEventsGetResponse -> Bool) -> (ClientEventsGetResponse -> ClientEventsGetResponse -> Bool) -> Eq ClientEventsGetResponse @@ -2380,9 +2511,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: ClientEventsGetResponse -> ClientEventsGetResponse -> Bool == :: ClientEventsGetResponse -> ClientEventsGetResponse -> Bool $c== :: ClientEventsGetResponse -> ClientEventsGetResponse -> Bool -Hs.Eq, Eq ClientEventsGetResponse -Eq ClientEventsGetResponse => -(ClientEventsGetResponse -> ClientEventsGetResponse -> Ordering) +Hs.Eq, Eq ClientEventsGetResponse +Eq ClientEventsGetResponse +-> (ClientEventsGetResponse -> ClientEventsGetResponse -> Ordering) -> (ClientEventsGetResponse -> ClientEventsGetResponse -> Bool) -> (ClientEventsGetResponse -> ClientEventsGetResponse -> Bool) -> (ClientEventsGetResponse -> ClientEventsGetResponse -> Bool) @@ -2397,8 +2528,8 @@ ClientEventsGetResponse -> ClientEventsGetResponse -> Ordering ClientEventsGetResponse -> ClientEventsGetResponse -> ClientEventsGetResponse forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -2425,7 +2556,7 @@ $c< :: ClientEventsGetResponse -> ClientEventsGetResponse -> Bool compare :: ClientEventsGetResponse -> ClientEventsGetResponse -> Ordering $ccompare :: ClientEventsGetResponse -> ClientEventsGetResponse -> Ordering $cp1Ord :: Eq ClientEventsGetResponse -Hs.Ord, (forall x. +Hs.Ord, (forall x. ClientEventsGetResponse -> Rep ClientEventsGetResponse x) -> (forall x. Rep ClientEventsGetResponse x -> ClientEventsGetResponse) @@ -2436,62 +2567,67 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep ClientEventsGetResponse x -> ClientEventsGetResponse $cfrom :: forall x. ClientEventsGetResponse -> Rep ClientEventsGetResponse x -Hs.Generic, ClientEventsGetResponse -> () +Hs.Generic, ClientEventsGetResponse -> () (ClientEventsGetResponse -> ()) -> NFData ClientEventsGetResponse forall a. (a -> ()) -> NFData a rnf :: ClientEventsGetResponse -> () $crnf :: ClientEventsGetResponse -> () -Hs.NFData) - -instance HsProtobuf.Named ClientEventsGetResponse where - nameOf :: Proxy# ClientEventsGetResponse -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ClientEventsGetResponse where + nameOf :: Proxy# ClientEventsGetResponse -> string +nameOf Proxy# ClientEventsGetResponse +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ClientEventsGetResponse") - -instance HsProtobuf.HasDefault ClientEventsGetResponse - -instance HsProtobuf.Message ClientEventsGetResponse where - encodeMessage :: FieldNumber -> ClientEventsGetResponse -> MessageBuilder -encodeMessage _ - ClientEventsGetResponse{clientEventsGetResponseStatus :: ClientEventsGetResponse +Hs.fromString String +"ClientEventsGetResponse") + +instance HsProtobuf.HasDefault ClientEventsGetResponse + +instance HsProtobuf.Message ClientEventsGetResponse where + encodeMessage :: FieldNumber -> ClientEventsGetResponse -> MessageBuilder +encodeMessage FieldNumber +_ + ClientEventsGetResponse{clientEventsGetResponseStatus :: ClientEventsGetResponse -> Enumerated ClientEventsGetResponse_Status clientEventsGetResponseStatus = - Enumerated ClientEventsGetResponse_Status -clientEventsGetResponseStatus, - clientEventsGetResponseEvents :: ClientEventsGetResponse -> Vector Event -clientEventsGetResponseEvents = Vector Event -clientEventsGetResponseEvents} - = ([MessageBuilder] -> MessageBuilder + Enumerated ClientEventsGetResponse_Status +clientEventsGetResponseStatus, + clientEventsGetResponseEvents :: ClientEventsGetResponse -> Vector Event +clientEventsGetResponseEvents = Vector Event +clientEventsGetResponseEvents} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber +Hs.mconcat + [(FieldNumber -> Enumerated ClientEventsGetResponse_Status -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Enumerated ClientEventsGetResponse_Status -clientEventsGetResponseStatus), - (FieldNumber -> NestedVec Event -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Enumerated ClientEventsGetResponse_Status +clientEventsGetResponseStatus), + (FieldNumber -> NestedVec Event -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (Vector Event -> NestedVec Event -forall a b. Coercible a b => a -> b -Hs.coerce @(Hs.Vector Data.Sawtooth.Events.Event) - @(HsProtobuf.NestedVec Data.Sawtooth.Events.Event) - Vector Event -clientEventsGetResponseEvents))]) - decodeMessage :: FieldNumber -> Parser RawMessage ClientEventsGetResponse -decodeMessage _ - = ((Enumerated ClientEventsGetResponse_Status +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (Vector Event -> NestedVec Event +Hs.coerce @(Hs.Vector Data.Sawtooth.Events.Event) + @(HsProtobuf.NestedVec Data.Sawtooth.Events.Event) + Vector Event +clientEventsGetResponseEvents))]) + decodeMessage :: FieldNumber -> Parser RawMessage ClientEventsGetResponse +decodeMessage FieldNumber +_ + = ((Enumerated ClientEventsGetResponse_Status -> Vector Event -> ClientEventsGetResponse) -> Parser RawMessage (Enumerated ClientEventsGetResponse_Status -> Vector Event -> ClientEventsGetResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ClientEventsGetResponse_Status +Hs.pure Enumerated ClientEventsGetResponse_Status -> Vector Event -> ClientEventsGetResponse ClientEventsGetResponse) Parser RawMessage @@ -2500,124 +2636,139 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Parser RawMessage (Enumerated ClientEventsGetResponse_Status) -> Parser RawMessage (Vector Event -> ClientEventsGetResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField (Enumerated ClientEventsGetResponse_Status) +<*> + (Parser RawField (Enumerated ClientEventsGetResponse_Status) -> FieldNumber -> Parser RawMessage (Enumerated ClientEventsGetResponse_Status) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (Enumerated ClientEventsGetResponse_Status) +HsProtobuf.at Parser RawField (Enumerated ClientEventsGetResponse_Status) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser RawMessage (Vector Event -> ClientEventsGetResponse) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (Vector Event -> ClientEventsGetResponse) -> Parser RawMessage (Vector Event) -> Parser RawMessage ClientEventsGetResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (NestedVec Event) +<*> + (Parser RawMessage (NestedVec Event) -> Parser RawMessage (Vector Event) -forall a b. Coercible a b => a -> b -Hs.coerce @(_ (HsProtobuf.NestedVec Data.Sawtooth.Events.Event)) - @(_ (Hs.Vector Data.Sawtooth.Events.Event)) - (Parser RawField (NestedVec Event) +Hs.coerce @(_ (HsProtobuf.NestedVec Data.Sawtooth.Events.Event)) + @(_ (Hs.Vector Data.Sawtooth.Events.Event)) + (Parser RawField (NestedVec Event) -> FieldNumber -> Parser RawMessage (NestedVec Event) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (NestedVec Event) +HsProtobuf.at Parser RawField (NestedVec Event) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2))) - dotProto :: Proxy# ClientEventsGetResponse -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2))) + dotProto :: Proxy# ClientEventsGetResponse -> [DotProtoField] +dotProto Proxy# ClientEventsGetResponse +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "Status"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "status") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"Status"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"status") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Repeated - (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "Event"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "events") - [] - "")] - -instance HsJSONPB.ToJSONPB ClientEventsGetResponse where - toJSONPB :: ClientEventsGetResponse -> Options -> Value -toJSONPB (ClientEventsGetResponse f1 :: Enumerated ClientEventsGetResponse_Status -f1 f2 :: Vector Event -f2) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["status" Text +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Repeated + (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"Event"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"events") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ClientEventsGetResponse where + toJSONPB :: ClientEventsGetResponse -> Options -> Value +toJSONPB (ClientEventsGetResponse Enumerated ClientEventsGetResponse_Status +f1 Vector Event +f2) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"status" Text -> Enumerated ClientEventsGetResponse_Status -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated ClientEventsGetResponse_Status -f1, "events" Text -> Vector Event -> Options -> [Pair] +.= Enumerated ClientEventsGetResponse_Status +f1, Text +"events" Text -> Vector Event -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Event -f2]) - toEncodingPB :: ClientEventsGetResponse -> Options -> Encoding -toEncodingPB (ClientEventsGetResponse f1 :: Enumerated ClientEventsGetResponse_Status -f1 f2 :: Vector Event -f2) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["status" Text +.= Vector Event +f2]) + toEncodingPB :: ClientEventsGetResponse -> Options -> Encoding +toEncodingPB (ClientEventsGetResponse Enumerated ClientEventsGetResponse_Status +f1 Vector Event +f2) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"status" Text -> Enumerated ClientEventsGetResponse_Status -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated ClientEventsGetResponse_Status -f1, "events" Text -> Vector Event -> Options -> Series +.= Enumerated ClientEventsGetResponse_Status +f1, Text +"events" Text -> Vector Event -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Event -f2]) - -instance HsJSONPB.FromJSONPB ClientEventsGetResponse where - parseJSONPB :: Value -> Parser ClientEventsGetResponse -parseJSONPB - = (String +.= Vector Event +f2]) + +instance HsJSONPB.FromJSONPB ClientEventsGetResponse where + parseJSONPB :: Value -> Parser ClientEventsGetResponse +parseJSONPB + = (String -> (Object -> Parser ClientEventsGetResponse) -> Value -> Parser ClientEventsGetResponse forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ClientEventsGetResponse" - (\ obj :: Object -obj -> - ((Enumerated ClientEventsGetResponse_Status +HsJSONPB.withObject String +"ClientEventsGetResponse" + (\ Object +obj -> + ((Enumerated ClientEventsGetResponse_Status -> Vector Event -> ClientEventsGetResponse) -> Parser (Enumerated ClientEventsGetResponse_Status -> Vector Event -> ClientEventsGetResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ClientEventsGetResponse_Status +Hs.pure Enumerated ClientEventsGetResponse_Status -> Vector Event -> ClientEventsGetResponse ClientEventsGetResponse) Parser (Enumerated ClientEventsGetResponse_Status @@ -2625,83 +2776,86 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Parser (Enumerated ClientEventsGetResponse_Status) -> Parser (Vector Event -> ClientEventsGetResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object +<*> Object +obj Object -> Text -> Parser (Enumerated ClientEventsGetResponse_Status) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "status" Parser (Vector Event -> ClientEventsGetResponse) +.: Text +"status" Parser (Vector Event -> ClientEventsGetResponse) -> Parser (Vector Event) -> Parser ClientEventsGetResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser (Vector Event) +<*> + Object +obj Object -> Text -> Parser (Vector Event) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "events")) - -instance HsJSONPB.ToJSON ClientEventsGetResponse where - toJSON :: ClientEventsGetResponse -> Value -toJSON = ClientEventsGetResponse -> Value +.: Text +"events")) + +instance HsJSONPB.ToJSON ClientEventsGetResponse where + toJSON :: ClientEventsGetResponse -> Value +toJSON = ClientEventsGetResponse -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ClientEventsGetResponse -> Encoding -toEncoding = ClientEventsGetResponse -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ClientEventsGetResponse -> Encoding +toEncoding = ClientEventsGetResponse -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ClientEventsGetResponse where - parseJSON :: Value -> Parser ClientEventsGetResponse -parseJSON = Value -> Parser ClientEventsGetResponse +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ClientEventsGetResponse where + parseJSON :: Value -> Parser ClientEventsGetResponse +parseJSON = Value -> Parser ClientEventsGetResponse forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ClientEventsGetResponse where - declareNamedSchema :: Proxy ClientEventsGetResponse +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ClientEventsGetResponse where + declareNamedSchema :: Proxy ClientEventsGetResponse -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_status :: Proxy +declareNamedSchema Proxy ClientEventsGetResponse +_ + = do let declare_status :: Proxy (OverrideToSchema (Enumerated ClientEventsGetResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status = Proxy +declare_status = Proxy (OverrideToSchema (Enumerated ClientEventsGetResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientEventsGetResponseStatus <- Proxy +HsJSONPB.declareSchemaRef + Referenced Schema +clientEventsGetResponseStatus <- Proxy (OverrideToSchema (Enumerated ClientEventsGetResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status Proxy +declare_status Proxy (OverrideToSchema (Enumerated ClientEventsGetResponse_Status)) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_events :: Proxy (OverrideToSchema (Vector Event)) +Proxy.Proxy + let declare_events :: Proxy (OverrideToSchema (Vector Event)) -> Declare (Definitions Schema) (Referenced Schema) -declare_events = Proxy (OverrideToSchema (Vector Event)) +declare_events = Proxy (OverrideToSchema (Vector Event)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientEventsGetResponseEvents <- Proxy (OverrideToSchema (Vector Event)) +HsJSONPB.declareSchemaRef + Referenced Schema +clientEventsGetResponseEvents <- Proxy (OverrideToSchema (Vector Event)) -> Declare (Definitions Schema) (Referenced Schema) -declare_events Proxy (OverrideToSchema (Vector Event)) +declare_events Proxy (OverrideToSchema (Vector Event)) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ClientEventsGetResponse +Proxy.Proxy + let Proxy ClientEventsGetResponse _ = (Enumerated ClientEventsGetResponse_Status -> Vector Event -> ClientEventsGetResponse) -> Proxy (Enumerated ClientEventsGetResponse_Status -> Vector Event -> ClientEventsGetResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ClientEventsGetResponse_Status +Hs.pure Enumerated ClientEventsGetResponse_Status -> Vector Event -> ClientEventsGetResponse ClientEventsGetResponse Proxy (Enumerated ClientEventsGetResponse_Status @@ -2709,68 +2863,71 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Proxy (Enumerated ClientEventsGetResponse_Status) -> Proxy (Vector Event -> ClientEventsGetResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy +<*> + (Proxy (OverrideToSchema (Enumerated ClientEventsGetResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Enumerated ClientEventsGetResponse_Status) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy +HsJSONPB.asProxy Proxy (OverrideToSchema (Enumerated ClientEventsGetResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status - Proxy (Vector Event -> ClientEventsGetResponse) +declare_status + Proxy (Vector Event -> ClientEventsGetResponse) -> Proxy (Vector Event) -> Proxy ClientEventsGetResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema (Vector Event)) +<*> (Proxy (OverrideToSchema (Vector Event)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Vector Event) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Event)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Event)) -> Declare (Definitions Schema) (Referenced Schema) -declare_events - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_events + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ClientEventsGetResponse", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ClientEventsGetResponse", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("status", Referenced Schema -clientEventsGetResponseStatus), - ("events", - Referenced Schema -clientEventsGetResponseEvents)]}}) - -data ClientEventsGetResponse_Status = ClientEventsGetResponse_StatusSTATUS_UNSET - | ClientEventsGetResponse_StatusOK - | ClientEventsGetResponse_StatusINTERNAL_ERROR - | ClientEventsGetResponse_StatusINVALID_FILTER - | ClientEventsGetResponse_StatusUNKNOWN_BLOCK - deriving (Int -> ClientEventsGetResponse_Status -> ShowS +HsJSONPB.insOrdFromList + [(Text +"status", Referenced Schema +clientEventsGetResponseStatus), + (Text +"events", + Referenced Schema +clientEventsGetResponseEvents)]}}) + +data ClientEventsGetResponse_Status = ClientEventsGetResponse_StatusSTATUS_UNSET + | ClientEventsGetResponse_StatusOK + | ClientEventsGetResponse_StatusINTERNAL_ERROR + | ClientEventsGetResponse_StatusINVALID_FILTER + | ClientEventsGetResponse_StatusUNKNOWN_BLOCK + deriving (Int -> ClientEventsGetResponse_Status -> ShowS [ClientEventsGetResponse_Status] -> ShowS ClientEventsGetResponse_Status -> String (Int -> ClientEventsGetResponse_Status -> ShowS) @@ -2785,7 +2942,7 @@ show :: ClientEventsGetResponse_Status -> String $cshow :: ClientEventsGetResponse_Status -> String showsPrec :: Int -> ClientEventsGetResponse_Status -> ShowS $cshowsPrec :: Int -> ClientEventsGetResponse_Status -> ShowS -Hs.Show, ClientEventsGetResponse_Status +Hs.Show, ClientEventsGetResponse_Status -> ClientEventsGetResponse_Status -> Bool (ClientEventsGetResponse_Status -> ClientEventsGetResponse_Status -> Bool) @@ -2801,7 +2958,7 @@ $c/= :: ClientEventsGetResponse_Status -> ClientEventsGetResponse_Status -> Bool $c== :: ClientEventsGetResponse_Status -> ClientEventsGetResponse_Status -> Bool -Hs.Eq, (forall x. +Hs.Eq, (forall x. ClientEventsGetResponse_Status -> Rep ClientEventsGetResponse_Status x) -> (forall x. @@ -2822,160 +2979,181 @@ Rep ClientEventsGetResponse_Status x $cfrom :: forall x. ClientEventsGetResponse_Status -> Rep ClientEventsGetResponse_Status x -Hs.Generic, ClientEventsGetResponse_Status -> () +Hs.Generic, ClientEventsGetResponse_Status -> () (ClientEventsGetResponse_Status -> ()) -> NFData ClientEventsGetResponse_Status forall a. (a -> ()) -> NFData a rnf :: ClientEventsGetResponse_Status -> () $crnf :: ClientEventsGetResponse_Status -> () -Hs.NFData) - -instance HsProtobuf.Named ClientEventsGetResponse_Status where - nameOf :: Proxy# ClientEventsGetResponse_Status -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ClientEventsGetResponse_Status where + nameOf :: Proxy# ClientEventsGetResponse_Status -> string +nameOf Proxy# ClientEventsGetResponse_Status +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ClientEventsGetResponse_Status") - -instance HsProtobuf.HasDefault ClientEventsGetResponse_Status - -instance Hs.Bounded ClientEventsGetResponse_Status where - minBound :: ClientEventsGetResponse_Status -minBound = ClientEventsGetResponse_Status +Hs.fromString String +"ClientEventsGetResponse_Status") + +instance HsProtobuf.HasDefault ClientEventsGetResponse_Status + +instance Hs.Bounded ClientEventsGetResponse_Status where + minBound :: ClientEventsGetResponse_Status +minBound = ClientEventsGetResponse_Status ClientEventsGetResponse_StatusSTATUS_UNSET - maxBound :: ClientEventsGetResponse_Status -maxBound = ClientEventsGetResponse_Status + maxBound :: ClientEventsGetResponse_Status +maxBound = ClientEventsGetResponse_Status ClientEventsGetResponse_StatusUNKNOWN_BLOCK - -instance Hs.Ord ClientEventsGetResponse_Status where - compare :: ClientEventsGetResponse_Status + +instance Hs.Ord ClientEventsGetResponse_Status where + compare :: ClientEventsGetResponse_Status -> ClientEventsGetResponse_Status -> Ordering -compare x :: ClientEventsGetResponse_Status -x y :: ClientEventsGetResponse_Status -y - = Int32 -> Int32 -> Ordering +compare ClientEventsGetResponse_Status +x ClientEventsGetResponse_Status +y + = Int32 -> Int32 -> Ordering forall a. Ord a => a -> a -> Ordering -Hs.compare (ClientEventsGetResponse_Status -> Int32 +Hs.compare (ClientEventsGetResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum ClientEventsGetResponse_Status -x) - (ClientEventsGetResponse_Status -> Int32 +HsProtobuf.fromProtoEnum ClientEventsGetResponse_Status +x) + (ClientEventsGetResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum ClientEventsGetResponse_Status -y) - -instance HsProtobuf.ProtoEnum ClientEventsGetResponse_Status where - toProtoEnumMay :: Int32 -> Maybe ClientEventsGetResponse_Status -toProtoEnumMay 0 - = ClientEventsGetResponse_Status +HsProtobuf.fromProtoEnum ClientEventsGetResponse_Status +y) + +instance HsProtobuf.ProtoEnum ClientEventsGetResponse_Status where + toProtoEnumMay :: Int32 -> Maybe ClientEventsGetResponse_Status +toProtoEnumMay Int32 +0 + = ClientEventsGetResponse_Status -> Maybe ClientEventsGetResponse_Status forall a. a -> Maybe a -Hs.Just ClientEventsGetResponse_Status +Hs.Just ClientEventsGetResponse_Status ClientEventsGetResponse_StatusSTATUS_UNSET - toProtoEnumMay 1 = ClientEventsGetResponse_Status + toProtoEnumMay Int32 +1 = ClientEventsGetResponse_Status -> Maybe ClientEventsGetResponse_Status forall a. a -> Maybe a -Hs.Just ClientEventsGetResponse_Status +Hs.Just ClientEventsGetResponse_Status ClientEventsGetResponse_StatusOK - toProtoEnumMay 2 - = ClientEventsGetResponse_Status + toProtoEnumMay Int32 +2 + = ClientEventsGetResponse_Status -> Maybe ClientEventsGetResponse_Status forall a. a -> Maybe a -Hs.Just ClientEventsGetResponse_Status +Hs.Just ClientEventsGetResponse_Status ClientEventsGetResponse_StatusINTERNAL_ERROR - toProtoEnumMay 3 - = ClientEventsGetResponse_Status + toProtoEnumMay Int32 +3 + = ClientEventsGetResponse_Status -> Maybe ClientEventsGetResponse_Status forall a. a -> Maybe a -Hs.Just ClientEventsGetResponse_Status +Hs.Just ClientEventsGetResponse_Status ClientEventsGetResponse_StatusINVALID_FILTER - toProtoEnumMay 4 - = ClientEventsGetResponse_Status + toProtoEnumMay Int32 +4 + = ClientEventsGetResponse_Status -> Maybe ClientEventsGetResponse_Status forall a. a -> Maybe a -Hs.Just ClientEventsGetResponse_Status +Hs.Just ClientEventsGetResponse_Status ClientEventsGetResponse_StatusUNKNOWN_BLOCK - toProtoEnumMay _ = Maybe ClientEventsGetResponse_Status + toProtoEnumMay Int32 +_ = Maybe ClientEventsGetResponse_Status forall a. Maybe a -Hs.Nothing - fromProtoEnum :: ClientEventsGetResponse_Status -> Int32 -fromProtoEnum (ClientEventsGetResponse_Status -ClientEventsGetResponse_StatusSTATUS_UNSET) = 0 - fromProtoEnum (ClientEventsGetResponse_Status -ClientEventsGetResponse_StatusOK) = 1 - fromProtoEnum (ClientEventsGetResponse_Status -ClientEventsGetResponse_StatusINTERNAL_ERROR) = 2 - fromProtoEnum (ClientEventsGetResponse_Status -ClientEventsGetResponse_StatusINVALID_FILTER) = 3 - fromProtoEnum (ClientEventsGetResponse_Status -ClientEventsGetResponse_StatusUNKNOWN_BLOCK) = 4 - -instance HsJSONPB.ToJSONPB ClientEventsGetResponse_Status where - toJSONPB :: ClientEventsGetResponse_Status -> Options -> Value -toJSONPB x :: ClientEventsGetResponse_Status -x _ = ClientEventsGetResponse_Status -> Value +Hs.Nothing + fromProtoEnum :: ClientEventsGetResponse_Status -> Int32 +fromProtoEnum (ClientEventsGetResponse_Status +ClientEventsGetResponse_StatusSTATUS_UNSET) = Int32 +0 + fromProtoEnum (ClientEventsGetResponse_Status +ClientEventsGetResponse_StatusOK) = Int32 +1 + fromProtoEnum (ClientEventsGetResponse_Status +ClientEventsGetResponse_StatusINTERNAL_ERROR) = Int32 +2 + fromProtoEnum (ClientEventsGetResponse_Status +ClientEventsGetResponse_StatusINVALID_FILTER) = Int32 +3 + fromProtoEnum (ClientEventsGetResponse_Status +ClientEventsGetResponse_StatusUNKNOWN_BLOCK) = Int32 +4 + +instance HsJSONPB.ToJSONPB ClientEventsGetResponse_Status where + toJSONPB :: ClientEventsGetResponse_Status -> Options -> Value +toJSONPB ClientEventsGetResponse_Status +x Options +_ = ClientEventsGetResponse_Status -> Value forall a. (Named a, Show a) => a -> Value -HsJSONPB.enumFieldString ClientEventsGetResponse_Status -x - toEncodingPB :: ClientEventsGetResponse_Status -> Options -> Encoding -toEncodingPB x :: ClientEventsGetResponse_Status -x _ = ClientEventsGetResponse_Status -> Encoding +HsJSONPB.enumFieldString ClientEventsGetResponse_Status +x + toEncodingPB :: ClientEventsGetResponse_Status -> Options -> Encoding +toEncodingPB ClientEventsGetResponse_Status +x Options +_ = ClientEventsGetResponse_Status -> Encoding forall a. (Named a, Show a) => a -> Encoding -HsJSONPB.enumFieldEncoding ClientEventsGetResponse_Status -x - -instance HsJSONPB.FromJSONPB ClientEventsGetResponse_Status where - parseJSONPB :: Value -> Parser ClientEventsGetResponse_Status -parseJSONPB (HsJSONPB.String "STATUS_UNSET") - = ClientEventsGetResponse_Status +HsJSONPB.enumFieldEncoding ClientEventsGetResponse_Status +x + +instance HsJSONPB.FromJSONPB ClientEventsGetResponse_Status where + parseJSONPB :: Value -> Parser ClientEventsGetResponse_Status +parseJSONPB (HsJSONPB.String Text +"STATUS_UNSET") + = ClientEventsGetResponse_Status -> Parser ClientEventsGetResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientEventsGetResponse_Status +Hs.pure ClientEventsGetResponse_Status ClientEventsGetResponse_StatusSTATUS_UNSET - parseJSONPB (HsJSONPB.String "OK") - = ClientEventsGetResponse_Status + parseJSONPB (HsJSONPB.String Text +"OK") + = ClientEventsGetResponse_Status -> Parser ClientEventsGetResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientEventsGetResponse_Status +Hs.pure ClientEventsGetResponse_Status ClientEventsGetResponse_StatusOK - parseJSONPB (HsJSONPB.String "INTERNAL_ERROR") - = ClientEventsGetResponse_Status + parseJSONPB (HsJSONPB.String Text +"INTERNAL_ERROR") + = ClientEventsGetResponse_Status -> Parser ClientEventsGetResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientEventsGetResponse_Status +Hs.pure ClientEventsGetResponse_Status ClientEventsGetResponse_StatusINTERNAL_ERROR - parseJSONPB (HsJSONPB.String "INVALID_FILTER") - = ClientEventsGetResponse_Status + parseJSONPB (HsJSONPB.String Text +"INVALID_FILTER") + = ClientEventsGetResponse_Status -> Parser ClientEventsGetResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientEventsGetResponse_Status +Hs.pure ClientEventsGetResponse_Status ClientEventsGetResponse_StatusINVALID_FILTER - parseJSONPB (HsJSONPB.String "UNKNOWN_BLOCK") - = ClientEventsGetResponse_Status + parseJSONPB (HsJSONPB.String Text +"UNKNOWN_BLOCK") + = ClientEventsGetResponse_Status -> Parser ClientEventsGetResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientEventsGetResponse_Status +Hs.pure ClientEventsGetResponse_Status ClientEventsGetResponse_StatusUNKNOWN_BLOCK - parseJSONPB v :: Value -v - = (String -> Value -> Parser ClientEventsGetResponse_Status + parseJSONPB Value +v + = (String -> Value -> Parser ClientEventsGetResponse_Status forall a. String -> Value -> Parser a -HsJSONPB.typeMismatch "ClientEventsGetResponse_Status" Value -v) - -instance HsJSONPB.ToJSON ClientEventsGetResponse_Status where - toJSON :: ClientEventsGetResponse_Status -> Value -toJSON = ClientEventsGetResponse_Status -> Value +HsJSONPB.typeMismatch String +"ClientEventsGetResponse_Status" Value +v) + +instance HsJSONPB.ToJSON ClientEventsGetResponse_Status where + toJSON :: ClientEventsGetResponse_Status -> Value +toJSON = ClientEventsGetResponse_Status -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ClientEventsGetResponse_Status -> Encoding -toEncoding = ClientEventsGetResponse_Status -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ClientEventsGetResponse_Status -> Encoding +toEncoding = ClientEventsGetResponse_Status -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ClientEventsGetResponse_Status where - parseJSON :: Value -> Parser ClientEventsGetResponse_Status -parseJSON = Value -> Parser ClientEventsGetResponse_Status +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ClientEventsGetResponse_Status where + parseJSON :: Value -> Parser ClientEventsGetResponse_Status +parseJSON = Value -> Parser ClientEventsGetResponse_Status forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsProtobuf.Finite ClientEventsGetResponse_Status \ No newline at end of file +HsJSONPB.parseJSONPB + +instance HsProtobuf.Finite ClientEventsGetResponse_Status \ No newline at end of file diff --git a/src/Data.Sawtooth.ClientListControl.html b/src/Data.Sawtooth.ClientListControl.html index 0cc553b..82393e0 100644 --- a/src/Data.Sawtooth.ClientListControl.html +++ b/src/Data.Sawtooth.ClientListControl.html @@ -9,39 +9,38 @@ {-# OPTIONS_GHC -fno-warn-unused-matches #-} -- | Generated by Haskell protocol buffer compiler. DO NOT EDIT! - -module Data.Sawtooth.ClientListControl where -import qualified Prelude as Hs -import qualified Proto3.Suite.Class as HsProtobuf -import qualified Proto3.Suite.DotProto as HsProtobuf -import qualified Proto3.Suite.JSONPB as HsJSONPB -import Proto3.Suite.JSONPB ((.=), (.:)) -import qualified Proto3.Suite.Types as HsProtobuf -import qualified Proto3.Wire as HsProtobuf -import qualified Control.Applicative as Hs -import Control.Applicative ((<*>), (<|>), (<$>)) -import qualified Control.DeepSeq as Hs -import qualified Control.Monad as Hs -import qualified Data.ByteString as Hs -import qualified Data.Coerce as Hs -import qualified Data.Int as Hs (Int16, Int32, Int64) -import qualified Data.List.NonEmpty as Hs (NonEmpty(..)) -import qualified Data.Map as Hs (Map, mapKeysMonotonic) -import qualified Data.Proxy as Proxy -import qualified Data.String as Hs (fromString) -import qualified Data.Text.Lazy as Hs (Text) -import qualified Data.Vector as Hs (Vector) -import qualified Data.Word as Hs (Word16, Word32, Word64) -import qualified GHC.Enum as Hs -import qualified GHC.Generics as Hs -import qualified Unsafe.Coerce as Hs - -data ClientPagingControls = ClientPagingControls{ClientPagingControls -> Text +module Data.Sawtooth.ClientListControl where +import qualified Prelude as Hs +import qualified Proto3.Suite.Class as HsProtobuf +import qualified Proto3.Suite.DotProto as HsProtobuf +import qualified Proto3.Suite.JSONPB as HsJSONPB +import Proto3.Suite.JSONPB ((.=), (.:)) +import qualified Proto3.Suite.Types as HsProtobuf +import qualified Proto3.Wire as HsProtobuf +import qualified Control.Applicative as Hs +import Control.Applicative ((<*>), (<|>), (<$>)) +import qualified Control.DeepSeq as Hs +import qualified Control.Monad as Hs +import qualified Data.ByteString as Hs +import qualified Data.Coerce as Hs +import qualified Data.Int as Hs (Int16, Int32, Int64) +import qualified Data.List.NonEmpty as Hs (NonEmpty(..)) +import qualified Data.Map as Hs (Map, mapKeysMonotonic) +import qualified Data.Proxy as Proxy +import qualified Data.String as Hs (fromString) +import qualified Data.Text.Lazy as Hs (Text) +import qualified Data.Vector as Hs (Vector) +import qualified Data.Word as Hs (Word16, Word32, Word64) +import qualified GHC.Enum as Hs +import qualified GHC.Generics as Hs +import qualified Unsafe.Coerce as Hs + +data ClientPagingControls = ClientPagingControls{ClientPagingControls -> Text clientPagingControlsStart - :: Hs.Text, - ClientPagingControls -> Int32 -clientPagingControlsLimit :: Hs.Int32} - deriving (Int -> ClientPagingControls -> ShowS + :: Hs.Text, + ClientPagingControls -> Int32 +clientPagingControlsLimit :: Hs.Int32} + deriving (Int -> ClientPagingControls -> ShowS [ClientPagingControls] -> ShowS ClientPagingControls -> String (Int -> ClientPagingControls -> ShowS) @@ -56,7 +55,7 @@ show :: ClientPagingControls -> String $cshow :: ClientPagingControls -> String showsPrec :: Int -> ClientPagingControls -> ShowS $cshowsPrec :: Int -> ClientPagingControls -> ShowS -Hs.Show, ClientPagingControls -> ClientPagingControls -> Bool +Hs.Show, ClientPagingControls -> ClientPagingControls -> Bool (ClientPagingControls -> ClientPagingControls -> Bool) -> (ClientPagingControls -> ClientPagingControls -> Bool) -> Eq ClientPagingControls @@ -65,9 +64,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: ClientPagingControls -> ClientPagingControls -> Bool == :: ClientPagingControls -> ClientPagingControls -> Bool $c== :: ClientPagingControls -> ClientPagingControls -> Bool -Hs.Eq, Eq ClientPagingControls -Eq ClientPagingControls => -(ClientPagingControls -> ClientPagingControls -> Ordering) +Hs.Eq, Eq ClientPagingControls +Eq ClientPagingControls +-> (ClientPagingControls -> ClientPagingControls -> Ordering) -> (ClientPagingControls -> ClientPagingControls -> Bool) -> (ClientPagingControls -> ClientPagingControls -> Bool) -> (ClientPagingControls -> ClientPagingControls -> Bool) @@ -82,8 +81,8 @@ ClientPagingControls -> ClientPagingControls -> Ordering ClientPagingControls -> ClientPagingControls -> ClientPagingControls forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -110,7 +109,7 @@ $c< :: ClientPagingControls -> ClientPagingControls -> Bool compare :: ClientPagingControls -> ClientPagingControls -> Ordering $ccompare :: ClientPagingControls -> ClientPagingControls -> Ordering $cp1Ord :: Eq ClientPagingControls -Hs.Ord, (forall x. ClientPagingControls -> Rep ClientPagingControls x) +Hs.Ord, (forall x. ClientPagingControls -> Rep ClientPagingControls x) -> (forall x. Rep ClientPagingControls x -> ClientPagingControls) -> Generic ClientPagingControls forall x. Rep ClientPagingControls x -> ClientPagingControls @@ -119,294 +118,320 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep ClientPagingControls x -> ClientPagingControls $cfrom :: forall x. ClientPagingControls -> Rep ClientPagingControls x -Hs.Generic, ClientPagingControls -> () +Hs.Generic, ClientPagingControls -> () (ClientPagingControls -> ()) -> NFData ClientPagingControls forall a. (a -> ()) -> NFData a rnf :: ClientPagingControls -> () $crnf :: ClientPagingControls -> () -Hs.NFData) - -instance HsProtobuf.Named ClientPagingControls where - nameOf :: Proxy# ClientPagingControls -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ClientPagingControls where + nameOf :: Proxy# ClientPagingControls -> string +nameOf Proxy# ClientPagingControls +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ClientPagingControls") - -instance HsProtobuf.HasDefault ClientPagingControls - -instance HsProtobuf.Message ClientPagingControls where - encodeMessage :: FieldNumber -> ClientPagingControls -> MessageBuilder -encodeMessage _ - ClientPagingControls{clientPagingControlsStart :: ClientPagingControls -> Text +Hs.fromString String +"ClientPagingControls") + +instance HsProtobuf.HasDefault ClientPagingControls + +instance HsProtobuf.Message ClientPagingControls where + encodeMessage :: FieldNumber -> ClientPagingControls -> MessageBuilder +encodeMessage FieldNumber +_ + ClientPagingControls{clientPagingControlsStart :: ClientPagingControls -> Text clientPagingControlsStart = - Text -clientPagingControlsStart, - clientPagingControlsLimit :: ClientPagingControls -> Int32 -clientPagingControlsLimit = Int32 -clientPagingControlsLimit} - = ([MessageBuilder] -> MessageBuilder + Text +clientPagingControlsStart, + clientPagingControlsLimit :: ClientPagingControls -> Int32 +clientPagingControlsLimit = Int32 +clientPagingControlsLimit} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> Text -> MessageBuilder +Hs.mconcat + [(FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Text -clientPagingControlsStart), - (FieldNumber -> Int32 -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Text +clientPagingControlsStart), + (FieldNumber -> Int32 -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - Int32 -clientPagingControlsLimit)]) - decodeMessage :: FieldNumber -> Parser RawMessage ClientPagingControls -decodeMessage _ - = ((Text -> Int32 -> ClientPagingControls) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + Int32 +clientPagingControlsLimit)]) + decodeMessage :: FieldNumber -> Parser RawMessage ClientPagingControls +decodeMessage FieldNumber +_ + = ((Text -> Int32 -> ClientPagingControls) -> Parser RawMessage (Text -> Int32 -> ClientPagingControls) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> Int32 -> ClientPagingControls +Hs.pure Text -> Int32 -> ClientPagingControls ClientPagingControls) Parser RawMessage (Text -> Int32 -> ClientPagingControls) -> Parser RawMessage Text -> Parser RawMessage (Int32 -> ClientPagingControls) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser RawMessage (Int32 -> ClientPagingControls) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (Int32 -> ClientPagingControls) -> Parser RawMessage Int32 -> Parser RawMessage ClientPagingControls forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Int32 -> FieldNumber -> Parser RawMessage Int32 +<*> + (Parser RawField Int32 -> FieldNumber -> Parser RawMessage Int32 forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Int32 +HsProtobuf.at Parser RawField Int32 forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2)) - dotProto :: Proxy# ClientPagingControls -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2)) + dotProto :: Proxy# ClientPagingControls -> [DotProtoField] +dotProto Proxy# ClientPagingControls +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "start") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"start") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.Int32) - (String -> DotProtoIdentifier -HsProtobuf.Single "limit") - [] - "")] - -instance HsJSONPB.ToJSONPB ClientPagingControls where - toJSONPB :: ClientPagingControls -> Options -> Value -toJSONPB (ClientPagingControls f1 :: Text -f1 f2 :: Int32 -f2) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["start" Text -> Text -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.Int32) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"limit") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ClientPagingControls where + toJSONPB :: ClientPagingControls -> Options -> Value +toJSONPB (ClientPagingControls Text +f1 Int32 +f2) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"start" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1, "limit" Text -> Int32 -> Options -> [Pair] +.= Text +f1, Text +"limit" Text -> Int32 -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Int32 -f2]) - toEncodingPB :: ClientPagingControls -> Options -> Encoding -toEncodingPB (ClientPagingControls f1 :: Text -f1 f2 :: Int32 -f2) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["start" Text -> Text -> Options -> Series +.= Int32 +f2]) + toEncodingPB :: ClientPagingControls -> Options -> Encoding +toEncodingPB (ClientPagingControls Text +f1 Int32 +f2) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"start" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1, "limit" Text -> Int32 -> Options -> Series +.= Text +f1, Text +"limit" Text -> Int32 -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Int32 -f2]) - -instance HsJSONPB.FromJSONPB ClientPagingControls where - parseJSONPB :: Value -> Parser ClientPagingControls -parseJSONPB - = (String +.= Int32 +f2]) + +instance HsJSONPB.FromJSONPB ClientPagingControls where + parseJSONPB :: Value -> Parser ClientPagingControls +parseJSONPB + = (String -> (Object -> Parser ClientPagingControls) -> Value -> Parser ClientPagingControls forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ClientPagingControls" - (\ obj :: Object -obj -> - ((Text -> Int32 -> ClientPagingControls) +HsJSONPB.withObject String +"ClientPagingControls" + (\ Object +obj -> + ((Text -> Int32 -> ClientPagingControls) -> Parser (Text -> Int32 -> ClientPagingControls) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> Int32 -> ClientPagingControls +Hs.pure Text -> Int32 -> ClientPagingControls ClientPagingControls) Parser (Text -> Int32 -> ClientPagingControls) -> Parser Text -> Parser (Int32 -> ClientPagingControls) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Text +<*> Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "start" Parser (Int32 -> ClientPagingControls) +.: Text +"start" Parser (Int32 -> ClientPagingControls) -> Parser Int32 -> Parser ClientPagingControls forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser Int32 +<*> + Object +obj Object -> Text -> Parser Int32 forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "limit")) - -instance HsJSONPB.ToJSON ClientPagingControls where - toJSON :: ClientPagingControls -> Value -toJSON = ClientPagingControls -> Value +.: Text +"limit")) + +instance HsJSONPB.ToJSON ClientPagingControls where + toJSON :: ClientPagingControls -> Value +toJSON = ClientPagingControls -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ClientPagingControls -> Encoding -toEncoding = ClientPagingControls -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ClientPagingControls -> Encoding +toEncoding = ClientPagingControls -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ClientPagingControls where - parseJSON :: Value -> Parser ClientPagingControls -parseJSON = Value -> Parser ClientPagingControls +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ClientPagingControls where + parseJSON :: Value -> Parser ClientPagingControls +parseJSON = Value -> Parser ClientPagingControls forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ClientPagingControls where - declareNamedSchema :: Proxy ClientPagingControls +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ClientPagingControls where + declareNamedSchema :: Proxy ClientPagingControls -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_start :: Proxy (OverrideToSchema Text) +declareNamedSchema Proxy ClientPagingControls +_ + = do let declare_start :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_start = Proxy (OverrideToSchema Text) +declare_start = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientPagingControlsStart <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +clientPagingControlsStart <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_start Proxy (OverrideToSchema Text) +declare_start Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_limit :: Proxy (OverrideToSchema Int32) +Proxy.Proxy + let declare_limit :: Proxy (OverrideToSchema Int32) -> Declare (Definitions Schema) (Referenced Schema) -declare_limit = Proxy (OverrideToSchema Int32) +declare_limit = Proxy (OverrideToSchema Int32) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientPagingControlsLimit <- Proxy (OverrideToSchema Int32) +HsJSONPB.declareSchemaRef + Referenced Schema +clientPagingControlsLimit <- Proxy (OverrideToSchema Int32) -> Declare (Definitions Schema) (Referenced Schema) -declare_limit Proxy (OverrideToSchema Int32) +declare_limit Proxy (OverrideToSchema Int32) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ClientPagingControls +Proxy.Proxy + let Proxy ClientPagingControls _ = (Text -> Int32 -> ClientPagingControls) -> Proxy (Text -> Int32 -> ClientPagingControls) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> Int32 -> ClientPagingControls +Hs.pure Text -> Int32 -> ClientPagingControls ClientPagingControls Proxy (Text -> Int32 -> ClientPagingControls) -> Proxy Text -> Proxy (Int32 -> ClientPagingControls) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema Text) +<*> + (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_start - Proxy (Int32 -> ClientPagingControls) +declare_start + Proxy (Int32 -> ClientPagingControls) -> Proxy Int32 -> Proxy ClientPagingControls forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema Int32) +<*> (Proxy (OverrideToSchema Int32) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Int32 forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Int32) +HsJSONPB.asProxy Proxy (OverrideToSchema Int32) -> Declare (Definitions Schema) (Referenced Schema) -declare_limit - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_limit + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ClientPagingControls", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ClientPagingControls", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("start", Referenced Schema -clientPagingControlsStart), - ("limit", Referenced Schema -clientPagingControlsLimit)]}}) - -data ClientPagingResponse = ClientPagingResponse{ClientPagingResponse -> Text +HsJSONPB.insOrdFromList + [(Text +"start", Referenced Schema +clientPagingControlsStart), + (Text +"limit", Referenced Schema +clientPagingControlsLimit)]}}) + +data ClientPagingResponse = ClientPagingResponse{ClientPagingResponse -> Text clientPagingResponseNext - :: Hs.Text, - ClientPagingResponse -> Text -clientPagingResponseStart :: Hs.Text, - ClientPagingResponse -> Int32 -clientPagingResponseLimit :: Hs.Int32} - deriving (Int -> ClientPagingResponse -> ShowS + :: Hs.Text, + ClientPagingResponse -> Text +clientPagingResponseStart :: Hs.Text, + ClientPagingResponse -> Int32 +clientPagingResponseLimit :: Hs.Int32} + deriving (Int -> ClientPagingResponse -> ShowS [ClientPagingResponse] -> ShowS ClientPagingResponse -> String (Int -> ClientPagingResponse -> ShowS) @@ -421,7 +446,7 @@ show :: ClientPagingResponse -> String $cshow :: ClientPagingResponse -> String showsPrec :: Int -> ClientPagingResponse -> ShowS $cshowsPrec :: Int -> ClientPagingResponse -> ShowS -Hs.Show, ClientPagingResponse -> ClientPagingResponse -> Bool +Hs.Show, ClientPagingResponse -> ClientPagingResponse -> Bool (ClientPagingResponse -> ClientPagingResponse -> Bool) -> (ClientPagingResponse -> ClientPagingResponse -> Bool) -> Eq ClientPagingResponse @@ -430,9 +455,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: ClientPagingResponse -> ClientPagingResponse -> Bool == :: ClientPagingResponse -> ClientPagingResponse -> Bool $c== :: ClientPagingResponse -> ClientPagingResponse -> Bool -Hs.Eq, Eq ClientPagingResponse -Eq ClientPagingResponse => -(ClientPagingResponse -> ClientPagingResponse -> Ordering) +Hs.Eq, Eq ClientPagingResponse +Eq ClientPagingResponse +-> (ClientPagingResponse -> ClientPagingResponse -> Ordering) -> (ClientPagingResponse -> ClientPagingResponse -> Bool) -> (ClientPagingResponse -> ClientPagingResponse -> Bool) -> (ClientPagingResponse -> ClientPagingResponse -> Bool) @@ -447,8 +472,8 @@ ClientPagingResponse -> ClientPagingResponse -> Ordering ClientPagingResponse -> ClientPagingResponse -> ClientPagingResponse forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -475,7 +500,7 @@ $c< :: ClientPagingResponse -> ClientPagingResponse -> Bool compare :: ClientPagingResponse -> ClientPagingResponse -> Ordering $ccompare :: ClientPagingResponse -> ClientPagingResponse -> Ordering $cp1Ord :: Eq ClientPagingResponse -Hs.Ord, (forall x. ClientPagingResponse -> Rep ClientPagingResponse x) +Hs.Ord, (forall x. ClientPagingResponse -> Rep ClientPagingResponse x) -> (forall x. Rep ClientPagingResponse x -> ClientPagingResponse) -> Generic ClientPagingResponse forall x. Rep ClientPagingResponse x -> ClientPagingResponse @@ -484,375 +509,410 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep ClientPagingResponse x -> ClientPagingResponse $cfrom :: forall x. ClientPagingResponse -> Rep ClientPagingResponse x -Hs.Generic, ClientPagingResponse -> () +Hs.Generic, ClientPagingResponse -> () (ClientPagingResponse -> ()) -> NFData ClientPagingResponse forall a. (a -> ()) -> NFData a rnf :: ClientPagingResponse -> () $crnf :: ClientPagingResponse -> () -Hs.NFData) - -instance HsProtobuf.Named ClientPagingResponse where - nameOf :: Proxy# ClientPagingResponse -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ClientPagingResponse where + nameOf :: Proxy# ClientPagingResponse -> string +nameOf Proxy# ClientPagingResponse +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ClientPagingResponse") - -instance HsProtobuf.HasDefault ClientPagingResponse - -instance HsProtobuf.Message ClientPagingResponse where - encodeMessage :: FieldNumber -> ClientPagingResponse -> MessageBuilder -encodeMessage _ - ClientPagingResponse{clientPagingResponseNext :: ClientPagingResponse -> Text +Hs.fromString String +"ClientPagingResponse") + +instance HsProtobuf.HasDefault ClientPagingResponse + +instance HsProtobuf.Message ClientPagingResponse where + encodeMessage :: FieldNumber -> ClientPagingResponse -> MessageBuilder +encodeMessage FieldNumber +_ + ClientPagingResponse{clientPagingResponseNext :: ClientPagingResponse -> Text clientPagingResponseNext = - Text -clientPagingResponseNext, - clientPagingResponseStart :: ClientPagingResponse -> Text -clientPagingResponseStart = Text -clientPagingResponseStart, - clientPagingResponseLimit :: ClientPagingResponse -> Int32 -clientPagingResponseLimit = Int32 -clientPagingResponseLimit} - = ([MessageBuilder] -> MessageBuilder + Text +clientPagingResponseNext, + clientPagingResponseStart :: ClientPagingResponse -> Text +clientPagingResponseStart = Text +clientPagingResponseStart, + clientPagingResponseLimit :: ClientPagingResponse -> Int32 +clientPagingResponseLimit = Int32 +clientPagingResponseLimit} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> Text -> MessageBuilder +Hs.mconcat + [(FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Text -clientPagingResponseNext), - (FieldNumber -> Text -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Text +clientPagingResponseNext), + (FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - Text -clientPagingResponseStart), - (FieldNumber -> Int32 -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + Text +clientPagingResponseStart), + (FieldNumber -> Int32 -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - Int32 -clientPagingResponseLimit)]) - decodeMessage :: FieldNumber -> Parser RawMessage ClientPagingResponse -decodeMessage _ - = ((Text -> Text -> Int32 -> ClientPagingResponse) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + Int32 +clientPagingResponseLimit)]) + decodeMessage :: FieldNumber -> Parser RawMessage ClientPagingResponse +decodeMessage FieldNumber +_ + = ((Text -> Text -> Int32 -> ClientPagingResponse) -> Parser RawMessage (Text -> Text -> Int32 -> ClientPagingResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> Text -> Int32 -> ClientPagingResponse +Hs.pure Text -> Text -> Int32 -> ClientPagingResponse ClientPagingResponse) Parser RawMessage (Text -> Text -> Int32 -> ClientPagingResponse) -> Parser RawMessage Text -> Parser RawMessage (Text -> Int32 -> ClientPagingResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser RawMessage (Text -> Int32 -> ClientPagingResponse) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (Text -> Int32 -> ClientPagingResponse) -> Parser RawMessage Text -> Parser RawMessage (Int32 -> ClientPagingResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2)) - Parser RawMessage (Int32 -> ClientPagingResponse) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2)) + Parser RawMessage (Int32 -> ClientPagingResponse) -> Parser RawMessage Int32 -> Parser RawMessage ClientPagingResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Int32 -> FieldNumber -> Parser RawMessage Int32 +<*> + (Parser RawField Int32 -> FieldNumber -> Parser RawMessage Int32 forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Int32 +HsProtobuf.at Parser RawField Int32 forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3)) - dotProto :: Proxy# ClientPagingResponse -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3)) + dotProto :: Proxy# ClientPagingResponse -> [DotProtoField] +dotProto Proxy# ClientPagingResponse +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "next") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"next") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "start") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"start") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.Int32) - (String -> DotProtoIdentifier -HsProtobuf.Single "limit") - [] - "")] - -instance HsJSONPB.ToJSONPB ClientPagingResponse where - toJSONPB :: ClientPagingResponse -> Options -> Value -toJSONPB (ClientPagingResponse f1 :: Text -f1 f2 :: Text -f2 f3 :: Int32 -f3) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["next" Text -> Text -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.Int32) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"limit") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ClientPagingResponse where + toJSONPB :: ClientPagingResponse -> Options -> Value +toJSONPB (ClientPagingResponse Text +f1 Text +f2 Int32 +f3) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"next" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1, "start" Text -> Text -> Options -> [Pair] +.= Text +f1, Text +"start" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f2, "limit" Text -> Int32 -> Options -> [Pair] +.= Text +f2, Text +"limit" Text -> Int32 -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Int32 -f3]) - toEncodingPB :: ClientPagingResponse -> Options -> Encoding -toEncodingPB (ClientPagingResponse f1 :: Text -f1 f2 :: Text -f2 f3 :: Int32 -f3) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["next" Text -> Text -> Options -> Series +.= Int32 +f3]) + toEncodingPB :: ClientPagingResponse -> Options -> Encoding +toEncodingPB (ClientPagingResponse Text +f1 Text +f2 Int32 +f3) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"next" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1, "start" Text -> Text -> Options -> Series +.= Text +f1, Text +"start" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f2, "limit" Text -> Int32 -> Options -> Series +.= Text +f2, Text +"limit" Text -> Int32 -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Int32 -f3]) - -instance HsJSONPB.FromJSONPB ClientPagingResponse where - parseJSONPB :: Value -> Parser ClientPagingResponse -parseJSONPB - = (String +.= Int32 +f3]) + +instance HsJSONPB.FromJSONPB ClientPagingResponse where + parseJSONPB :: Value -> Parser ClientPagingResponse +parseJSONPB + = (String -> (Object -> Parser ClientPagingResponse) -> Value -> Parser ClientPagingResponse forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ClientPagingResponse" - (\ obj :: Object -obj -> - ((Text -> Text -> Int32 -> ClientPagingResponse) +HsJSONPB.withObject String +"ClientPagingResponse" + (\ Object +obj -> + ((Text -> Text -> Int32 -> ClientPagingResponse) -> Parser (Text -> Text -> Int32 -> ClientPagingResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> Text -> Int32 -> ClientPagingResponse +Hs.pure Text -> Text -> Int32 -> ClientPagingResponse ClientPagingResponse) Parser (Text -> Text -> Int32 -> ClientPagingResponse) -> Parser Text -> Parser (Text -> Int32 -> ClientPagingResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Text +<*> Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "next" Parser (Text -> Int32 -> ClientPagingResponse) +.: Text +"next" Parser (Text -> Int32 -> ClientPagingResponse) -> Parser Text -> Parser (Int32 -> ClientPagingResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Text +<*> Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "start" - Parser (Int32 -> ClientPagingResponse) +.: Text +"start" + Parser (Int32 -> ClientPagingResponse) -> Parser Int32 -> Parser ClientPagingResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Int32 +<*> Object +obj Object -> Text -> Parser Int32 forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "limit")) - -instance HsJSONPB.ToJSON ClientPagingResponse where - toJSON :: ClientPagingResponse -> Value -toJSON = ClientPagingResponse -> Value +.: Text +"limit")) + +instance HsJSONPB.ToJSON ClientPagingResponse where + toJSON :: ClientPagingResponse -> Value +toJSON = ClientPagingResponse -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ClientPagingResponse -> Encoding -toEncoding = ClientPagingResponse -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ClientPagingResponse -> Encoding +toEncoding = ClientPagingResponse -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ClientPagingResponse where - parseJSON :: Value -> Parser ClientPagingResponse -parseJSON = Value -> Parser ClientPagingResponse +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ClientPagingResponse where + parseJSON :: Value -> Parser ClientPagingResponse +parseJSON = Value -> Parser ClientPagingResponse forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ClientPagingResponse where - declareNamedSchema :: Proxy ClientPagingResponse +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ClientPagingResponse where + declareNamedSchema :: Proxy ClientPagingResponse -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_next :: Proxy (OverrideToSchema Text) +declareNamedSchema Proxy ClientPagingResponse +_ + = do let declare_next :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_next = Proxy (OverrideToSchema Text) +declare_next = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientPagingResponseNext <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +clientPagingResponseNext <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_next Proxy (OverrideToSchema Text) +declare_next Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_start :: Proxy (OverrideToSchema Text) +Proxy.Proxy + let declare_start :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_start = Proxy (OverrideToSchema Text) +declare_start = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientPagingResponseStart <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +clientPagingResponseStart <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_start Proxy (OverrideToSchema Text) +declare_start Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_limit :: Proxy (OverrideToSchema Int32) +Proxy.Proxy + let declare_limit :: Proxy (OverrideToSchema Int32) -> Declare (Definitions Schema) (Referenced Schema) -declare_limit = Proxy (OverrideToSchema Int32) +declare_limit = Proxy (OverrideToSchema Int32) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientPagingResponseLimit <- Proxy (OverrideToSchema Int32) +HsJSONPB.declareSchemaRef + Referenced Schema +clientPagingResponseLimit <- Proxy (OverrideToSchema Int32) -> Declare (Definitions Schema) (Referenced Schema) -declare_limit Proxy (OverrideToSchema Int32) +declare_limit Proxy (OverrideToSchema Int32) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ClientPagingResponse +Proxy.Proxy + let Proxy ClientPagingResponse _ = (Text -> Text -> Int32 -> ClientPagingResponse) -> Proxy (Text -> Text -> Int32 -> ClientPagingResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> Text -> Int32 -> ClientPagingResponse +Hs.pure Text -> Text -> Int32 -> ClientPagingResponse ClientPagingResponse Proxy (Text -> Text -> Int32 -> ClientPagingResponse) -> Proxy Text -> Proxy (Text -> Int32 -> ClientPagingResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema Text) +<*> + (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_next - Proxy (Text -> Int32 -> ClientPagingResponse) +declare_next + Proxy (Text -> Int32 -> ClientPagingResponse) -> Proxy Text -> Proxy (Int32 -> ClientPagingResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema Text) +<*> (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_start - Proxy (Int32 -> ClientPagingResponse) +declare_start + Proxy (Int32 -> ClientPagingResponse) -> Proxy Int32 -> Proxy ClientPagingResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema Int32) +<*> (Proxy (OverrideToSchema Int32) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Int32 forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Int32) +HsJSONPB.asProxy Proxy (OverrideToSchema Int32) -> Declare (Definitions Schema) (Referenced Schema) -declare_limit - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_limit + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ClientPagingResponse", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ClientPagingResponse", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("next", Referenced Schema -clientPagingResponseNext), - ("start", Referenced Schema -clientPagingResponseStart), - ("limit", Referenced Schema -clientPagingResponseLimit)]}}) - -data ClientSortControls = ClientSortControls{ClientSortControls -> Vector Text +HsJSONPB.insOrdFromList + [(Text +"next", Referenced Schema +clientPagingResponseNext), + (Text +"start", Referenced Schema +clientPagingResponseStart), + (Text +"limit", Referenced Schema +clientPagingResponseLimit)]}}) + +data ClientSortControls = ClientSortControls{ClientSortControls -> Vector Text clientSortControlsKeys - :: Hs.Vector Hs.Text, - ClientSortControls -> Bool -clientSortControlsReverse :: Hs.Bool} - deriving (Int -> ClientSortControls -> ShowS + :: Hs.Vector Hs.Text, + ClientSortControls -> Bool +clientSortControlsReverse :: Hs.Bool} + deriving (Int -> ClientSortControls -> ShowS [ClientSortControls] -> ShowS ClientSortControls -> String (Int -> ClientSortControls -> ShowS) @@ -867,7 +927,7 @@ show :: ClientSortControls -> String $cshow :: ClientSortControls -> String showsPrec :: Int -> ClientSortControls -> ShowS $cshowsPrec :: Int -> ClientSortControls -> ShowS -Hs.Show, ClientSortControls -> ClientSortControls -> Bool +Hs.Show, ClientSortControls -> ClientSortControls -> Bool (ClientSortControls -> ClientSortControls -> Bool) -> (ClientSortControls -> ClientSortControls -> Bool) -> Eq ClientSortControls @@ -876,9 +936,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: ClientSortControls -> ClientSortControls -> Bool == :: ClientSortControls -> ClientSortControls -> Bool $c== :: ClientSortControls -> ClientSortControls -> Bool -Hs.Eq, Eq ClientSortControls -Eq ClientSortControls => -(ClientSortControls -> ClientSortControls -> Ordering) +Hs.Eq, Eq ClientSortControls +Eq ClientSortControls +-> (ClientSortControls -> ClientSortControls -> Ordering) -> (ClientSortControls -> ClientSortControls -> Bool) -> (ClientSortControls -> ClientSortControls -> Bool) -> (ClientSortControls -> ClientSortControls -> Bool) @@ -890,8 +950,8 @@ ClientSortControls -> ClientSortControls -> Bool ClientSortControls -> ClientSortControls -> Ordering ClientSortControls -> ClientSortControls -> ClientSortControls forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -914,7 +974,7 @@ $c< :: ClientSortControls -> ClientSortControls -> Bool compare :: ClientSortControls -> ClientSortControls -> Ordering $ccompare :: ClientSortControls -> ClientSortControls -> Ordering $cp1Ord :: Eq ClientSortControls -Hs.Ord, (forall x. ClientSortControls -> Rep ClientSortControls x) +Hs.Ord, (forall x. ClientSortControls -> Rep ClientSortControls x) -> (forall x. Rep ClientSortControls x -> ClientSortControls) -> Generic ClientSortControls forall x. Rep ClientSortControls x -> ClientSortControls @@ -923,289 +983,313 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep ClientSortControls x -> ClientSortControls $cfrom :: forall x. ClientSortControls -> Rep ClientSortControls x -Hs.Generic, ClientSortControls -> () +Hs.Generic, ClientSortControls -> () (ClientSortControls -> ()) -> NFData ClientSortControls forall a. (a -> ()) -> NFData a rnf :: ClientSortControls -> () $crnf :: ClientSortControls -> () -Hs.NFData) - -instance HsProtobuf.Named ClientSortControls where - nameOf :: Proxy# ClientSortControls -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ClientSortControls where + nameOf :: Proxy# ClientSortControls -> string +nameOf Proxy# ClientSortControls +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ClientSortControls") - -instance HsProtobuf.HasDefault ClientSortControls - -instance HsProtobuf.Message ClientSortControls where - encodeMessage :: FieldNumber -> ClientSortControls -> MessageBuilder -encodeMessage _ - ClientSortControls{clientSortControlsKeys :: ClientSortControls -> Vector Text -clientSortControlsKeys = Vector Text -clientSortControlsKeys, - clientSortControlsReverse :: ClientSortControls -> Bool -clientSortControlsReverse = Bool -clientSortControlsReverse} - = ([MessageBuilder] -> MessageBuilder +Hs.fromString String +"ClientSortControls") + +instance HsProtobuf.HasDefault ClientSortControls + +instance HsProtobuf.Message ClientSortControls where + encodeMessage :: FieldNumber -> ClientSortControls -> MessageBuilder +encodeMessage FieldNumber +_ + ClientSortControls{clientSortControlsKeys :: ClientSortControls -> Vector Text +clientSortControlsKeys = Vector Text +clientSortControlsKeys, + clientSortControlsReverse :: ClientSortControls -> Bool +clientSortControlsReverse = Bool +clientSortControlsReverse} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> UnpackedVec Text -> MessageBuilder +Hs.mconcat + [(FieldNumber -> UnpackedVec Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (Vector Text -> UnpackedVec Text -forall a b. Coercible a b => a -> b -Hs.coerce @(Hs.Vector Hs.Text) @(HsProtobuf.UnpackedVec Hs.Text) - Vector Text -clientSortControlsKeys)), - (FieldNumber -> Bool -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (Vector Text -> UnpackedVec Text +Hs.coerce @(Hs.Vector Hs.Text) @(HsProtobuf.UnpackedVec Hs.Text) + Vector Text +clientSortControlsKeys)), + (FieldNumber -> Bool -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - Bool -clientSortControlsReverse)]) - decodeMessage :: FieldNumber -> Parser RawMessage ClientSortControls -decodeMessage _ - = ((Vector Text -> Bool -> ClientSortControls) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + Bool +clientSortControlsReverse)]) + decodeMessage :: FieldNumber -> Parser RawMessage ClientSortControls +decodeMessage FieldNumber +_ + = ((Vector Text -> Bool -> ClientSortControls) -> Parser RawMessage (Vector Text -> Bool -> ClientSortControls) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector Text -> Bool -> ClientSortControls +Hs.pure Vector Text -> Bool -> ClientSortControls ClientSortControls) Parser RawMessage (Vector Text -> Bool -> ClientSortControls) -> Parser RawMessage (Vector Text) -> Parser RawMessage (Bool -> ClientSortControls) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (UnpackedVec Text) +<*> + (Parser RawMessage (UnpackedVec Text) -> Parser RawMessage (Vector Text) -forall a b. Coercible a b => a -> b -Hs.coerce @(_ (HsProtobuf.UnpackedVec Hs.Text)) - @(_ (Hs.Vector Hs.Text)) - (Parser RawField (UnpackedVec Text) +Hs.coerce @(_ (HsProtobuf.UnpackedVec Hs.Text)) + @(_ (Hs.Vector Hs.Text)) + (Parser RawField (UnpackedVec Text) -> FieldNumber -> Parser RawMessage (UnpackedVec Text) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (UnpackedVec Text) +HsProtobuf.at Parser RawField (UnpackedVec Text) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1))) - Parser RawMessage (Bool -> ClientSortControls) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1))) + Parser RawMessage (Bool -> ClientSortControls) -> Parser RawMessage Bool -> Parser RawMessage ClientSortControls forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Bool -> FieldNumber -> Parser RawMessage Bool +<*> + (Parser RawField Bool -> FieldNumber -> Parser RawMessage Bool forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Bool +HsProtobuf.at Parser RawField Bool forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2)) - dotProto :: Proxy# ClientSortControls -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2)) + dotProto :: Proxy# ClientSortControls -> [DotProtoField] +dotProto Proxy# ClientSortControls +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Repeated DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "keys") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Repeated DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"keys") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.Bool) - (String -> DotProtoIdentifier -HsProtobuf.Single "reverse") - [] - "")] - -instance HsJSONPB.ToJSONPB ClientSortControls where - toJSONPB :: ClientSortControls -> Options -> Value -toJSONPB (ClientSortControls f1 :: Vector Text -f1 f2 :: Bool -f2) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["keys" Text -> Vector Text -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.Bool) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"reverse") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ClientSortControls where + toJSONPB :: ClientSortControls -> Options -> Value +toJSONPB (ClientSortControls Vector Text +f1 Bool +f2) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"keys" Text -> Vector Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Text -f1, "reverse" Text -> Bool -> Options -> [Pair] +.= Vector Text +f1, Text +"reverse" Text -> Bool -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Bool -f2]) - toEncodingPB :: ClientSortControls -> Options -> Encoding -toEncodingPB (ClientSortControls f1 :: Vector Text -f1 f2 :: Bool -f2) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["keys" Text -> Vector Text -> Options -> Series +.= Bool +f2]) + toEncodingPB :: ClientSortControls -> Options -> Encoding +toEncodingPB (ClientSortControls Vector Text +f1 Bool +f2) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"keys" Text -> Vector Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Text -f1, "reverse" Text -> Bool -> Options -> Series +.= Vector Text +f1, Text +"reverse" Text -> Bool -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Bool -f2]) - -instance HsJSONPB.FromJSONPB ClientSortControls where - parseJSONPB :: Value -> Parser ClientSortControls -parseJSONPB - = (String +.= Bool +f2]) + +instance HsJSONPB.FromJSONPB ClientSortControls where + parseJSONPB :: Value -> Parser ClientSortControls +parseJSONPB + = (String -> (Object -> Parser ClientSortControls) -> Value -> Parser ClientSortControls forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ClientSortControls" - (\ obj :: Object -obj -> - ((Vector Text -> Bool -> ClientSortControls) +HsJSONPB.withObject String +"ClientSortControls" + (\ Object +obj -> + ((Vector Text -> Bool -> ClientSortControls) -> Parser (Vector Text -> Bool -> ClientSortControls) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector Text -> Bool -> ClientSortControls +Hs.pure Vector Text -> Bool -> ClientSortControls ClientSortControls) Parser (Vector Text -> Bool -> ClientSortControls) -> Parser (Vector Text) -> Parser (Bool -> ClientSortControls) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser (Vector Text) +<*> Object +obj Object -> Text -> Parser (Vector Text) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "keys" Parser (Bool -> ClientSortControls) +.: Text +"keys" Parser (Bool -> ClientSortControls) -> Parser Bool -> Parser ClientSortControls forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser Bool +<*> + Object +obj Object -> Text -> Parser Bool forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "reverse")) - -instance HsJSONPB.ToJSON ClientSortControls where - toJSON :: ClientSortControls -> Value -toJSON = ClientSortControls -> Value +.: Text +"reverse")) + +instance HsJSONPB.ToJSON ClientSortControls where + toJSON :: ClientSortControls -> Value +toJSON = ClientSortControls -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ClientSortControls -> Encoding -toEncoding = ClientSortControls -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ClientSortControls -> Encoding +toEncoding = ClientSortControls -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ClientSortControls where - parseJSON :: Value -> Parser ClientSortControls -parseJSON = Value -> Parser ClientSortControls +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ClientSortControls where + parseJSON :: Value -> Parser ClientSortControls +parseJSON = Value -> Parser ClientSortControls forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ClientSortControls where - declareNamedSchema :: Proxy ClientSortControls +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ClientSortControls where + declareNamedSchema :: Proxy ClientSortControls -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_keys :: Proxy (OverrideToSchema (Vector Text)) +declareNamedSchema Proxy ClientSortControls +_ + = do let declare_keys :: Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) -declare_keys = Proxy (OverrideToSchema (Vector Text)) +declare_keys = Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientSortControlsKeys <- Proxy (OverrideToSchema (Vector Text)) +HsJSONPB.declareSchemaRef + Referenced Schema +clientSortControlsKeys <- Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) -declare_keys Proxy (OverrideToSchema (Vector Text)) +declare_keys Proxy (OverrideToSchema (Vector Text)) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_reverse :: Proxy (OverrideToSchema Bool) +Proxy.Proxy + let declare_reverse :: Proxy (OverrideToSchema Bool) -> Declare (Definitions Schema) (Referenced Schema) -declare_reverse = Proxy (OverrideToSchema Bool) +declare_reverse = Proxy (OverrideToSchema Bool) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientSortControlsReverse <- Proxy (OverrideToSchema Bool) +HsJSONPB.declareSchemaRef + Referenced Schema +clientSortControlsReverse <- Proxy (OverrideToSchema Bool) -> Declare (Definitions Schema) (Referenced Schema) -declare_reverse Proxy (OverrideToSchema Bool) +declare_reverse Proxy (OverrideToSchema Bool) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ClientSortControls +Proxy.Proxy + let Proxy ClientSortControls _ = (Vector Text -> Bool -> ClientSortControls) -> Proxy (Vector Text -> Bool -> ClientSortControls) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector Text -> Bool -> ClientSortControls +Hs.pure Vector Text -> Bool -> ClientSortControls ClientSortControls Proxy (Vector Text -> Bool -> ClientSortControls) -> Proxy (Vector Text) -> Proxy (Bool -> ClientSortControls) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema (Vector Text)) +<*> + (Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Vector Text) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Text)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) -declare_keys - Proxy (Bool -> ClientSortControls) +declare_keys + Proxy (Bool -> ClientSortControls) -> Proxy Bool -> Proxy ClientSortControls forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema Bool) +<*> (Proxy (OverrideToSchema Bool) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Bool forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Bool) +HsJSONPB.asProxy Proxy (OverrideToSchema Bool) -> Declare (Definitions Schema) (Referenced Schema) -declare_reverse - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_reverse + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ClientSortControls", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ClientSortControls", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("keys", Referenced Schema -clientSortControlsKeys), - ("reverse", Referenced Schema -clientSortControlsReverse)]}}) \ No newline at end of file +HsJSONPB.insOrdFromList + [(Text +"keys", Referenced Schema +clientSortControlsKeys), + (Text +"reverse", Referenced Schema +clientSortControlsReverse)]}}) \ No newline at end of file diff --git a/src/Data.Sawtooth.ClientPeers.html b/src/Data.Sawtooth.ClientPeers.html index c749e86..fbf92df 100644 --- a/src/Data.Sawtooth.ClientPeers.html +++ b/src/Data.Sawtooth.ClientPeers.html @@ -9,35 +9,34 @@ {-# OPTIONS_GHC -fno-warn-unused-matches #-} -- | Generated by Haskell protocol buffer compiler. DO NOT EDIT! - -module Data.Sawtooth.ClientPeers where -import qualified Prelude as Hs -import qualified Proto3.Suite.Class as HsProtobuf -import qualified Proto3.Suite.DotProto as HsProtobuf -import qualified Proto3.Suite.JSONPB as HsJSONPB -import Proto3.Suite.JSONPB ((.=), (.:)) -import qualified Proto3.Suite.Types as HsProtobuf -import qualified Proto3.Wire as HsProtobuf -import qualified Control.Applicative as Hs -import Control.Applicative ((<*>), (<|>), (<$>)) -import qualified Control.DeepSeq as Hs -import qualified Control.Monad as Hs -import qualified Data.ByteString as Hs -import qualified Data.Coerce as Hs -import qualified Data.Int as Hs (Int16, Int32, Int64) -import qualified Data.List.NonEmpty as Hs (NonEmpty(..)) -import qualified Data.Map as Hs (Map, mapKeysMonotonic) -import qualified Data.Proxy as Proxy -import qualified Data.String as Hs (fromString) -import qualified Data.Text.Lazy as Hs (Text) -import qualified Data.Vector as Hs (Vector) -import qualified Data.Word as Hs (Word16, Word32, Word64) -import qualified GHC.Enum as Hs -import qualified GHC.Generics as Hs -import qualified Unsafe.Coerce as Hs - -data ClientPeersGetRequest = ClientPeersGetRequest{} - deriving (Int -> ClientPeersGetRequest -> ShowS +module Data.Sawtooth.ClientPeers where +import qualified Prelude as Hs +import qualified Proto3.Suite.Class as HsProtobuf +import qualified Proto3.Suite.DotProto as HsProtobuf +import qualified Proto3.Suite.JSONPB as HsJSONPB +import Proto3.Suite.JSONPB ((.=), (.:)) +import qualified Proto3.Suite.Types as HsProtobuf +import qualified Proto3.Wire as HsProtobuf +import qualified Control.Applicative as Hs +import Control.Applicative ((<*>), (<|>), (<$>)) +import qualified Control.DeepSeq as Hs +import qualified Control.Monad as Hs +import qualified Data.ByteString as Hs +import qualified Data.Coerce as Hs +import qualified Data.Int as Hs (Int16, Int32, Int64) +import qualified Data.List.NonEmpty as Hs (NonEmpty(..)) +import qualified Data.Map as Hs (Map, mapKeysMonotonic) +import qualified Data.Proxy as Proxy +import qualified Data.String as Hs (fromString) +import qualified Data.Text.Lazy as Hs (Text) +import qualified Data.Vector as Hs (Vector) +import qualified Data.Word as Hs (Word16, Word32, Word64) +import qualified GHC.Enum as Hs +import qualified GHC.Generics as Hs +import qualified Unsafe.Coerce as Hs + +data ClientPeersGetRequest = ClientPeersGetRequest{} + deriving (Int -> ClientPeersGetRequest -> ShowS [ClientPeersGetRequest] -> ShowS ClientPeersGetRequest -> String (Int -> ClientPeersGetRequest -> ShowS) @@ -52,7 +51,7 @@ show :: ClientPeersGetRequest -> String $cshow :: ClientPeersGetRequest -> String showsPrec :: Int -> ClientPeersGetRequest -> ShowS $cshowsPrec :: Int -> ClientPeersGetRequest -> ShowS -Hs.Show, ClientPeersGetRequest -> ClientPeersGetRequest -> Bool +Hs.Show, ClientPeersGetRequest -> ClientPeersGetRequest -> Bool (ClientPeersGetRequest -> ClientPeersGetRequest -> Bool) -> (ClientPeersGetRequest -> ClientPeersGetRequest -> Bool) -> Eq ClientPeersGetRequest @@ -61,9 +60,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: ClientPeersGetRequest -> ClientPeersGetRequest -> Bool == :: ClientPeersGetRequest -> ClientPeersGetRequest -> Bool $c== :: ClientPeersGetRequest -> ClientPeersGetRequest -> Bool -Hs.Eq, Eq ClientPeersGetRequest -Eq ClientPeersGetRequest => -(ClientPeersGetRequest -> ClientPeersGetRequest -> Ordering) +Hs.Eq, Eq ClientPeersGetRequest +Eq ClientPeersGetRequest +-> (ClientPeersGetRequest -> ClientPeersGetRequest -> Ordering) -> (ClientPeersGetRequest -> ClientPeersGetRequest -> Bool) -> (ClientPeersGetRequest -> ClientPeersGetRequest -> Bool) -> (ClientPeersGetRequest -> ClientPeersGetRequest -> Bool) @@ -78,8 +77,8 @@ ClientPeersGetRequest -> ClientPeersGetRequest -> Ordering ClientPeersGetRequest -> ClientPeersGetRequest -> ClientPeersGetRequest forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -106,7 +105,7 @@ $c< :: ClientPeersGetRequest -> ClientPeersGetRequest -> Bool compare :: ClientPeersGetRequest -> ClientPeersGetRequest -> Ordering $ccompare :: ClientPeersGetRequest -> ClientPeersGetRequest -> Ordering $cp1Ord :: Eq ClientPeersGetRequest -Hs.Ord, (forall x. ClientPeersGetRequest -> Rep ClientPeersGetRequest x) +Hs.Ord, (forall x. ClientPeersGetRequest -> Rep ClientPeersGetRequest x) -> (forall x. Rep ClientPeersGetRequest x -> ClientPeersGetRequest) -> Generic ClientPeersGetRequest forall x. Rep ClientPeersGetRequest x -> ClientPeersGetRequest @@ -115,119 +114,127 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep ClientPeersGetRequest x -> ClientPeersGetRequest $cfrom :: forall x. ClientPeersGetRequest -> Rep ClientPeersGetRequest x -Hs.Generic, ClientPeersGetRequest -> () +Hs.Generic, ClientPeersGetRequest -> () (ClientPeersGetRequest -> ()) -> NFData ClientPeersGetRequest forall a. (a -> ()) -> NFData a rnf :: ClientPeersGetRequest -> () $crnf :: ClientPeersGetRequest -> () -Hs.NFData) - -instance HsProtobuf.Named ClientPeersGetRequest where - nameOf :: Proxy# ClientPeersGetRequest -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ClientPeersGetRequest where + nameOf :: Proxy# ClientPeersGetRequest -> string +nameOf Proxy# ClientPeersGetRequest +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ClientPeersGetRequest") - -instance HsProtobuf.HasDefault ClientPeersGetRequest - -instance HsProtobuf.Message ClientPeersGetRequest where - encodeMessage :: FieldNumber -> ClientPeersGetRequest -> MessageBuilder -encodeMessage _ ClientPeersGetRequest{} = ([MessageBuilder] -> MessageBuilder +Hs.fromString String +"ClientPeersGetRequest") + +instance HsProtobuf.HasDefault ClientPeersGetRequest + +instance HsProtobuf.Message ClientPeersGetRequest where + encodeMessage :: FieldNumber -> ClientPeersGetRequest -> MessageBuilder +encodeMessage FieldNumber +_ ClientPeersGetRequest{} = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat []) - decodeMessage :: FieldNumber -> Parser RawMessage ClientPeersGetRequest -decodeMessage _ = (ClientPeersGetRequest -> Parser RawMessage ClientPeersGetRequest +Hs.mconcat []) + decodeMessage :: FieldNumber -> Parser RawMessage ClientPeersGetRequest +decodeMessage FieldNumber +_ = (ClientPeersGetRequest -> Parser RawMessage ClientPeersGetRequest forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientPeersGetRequest +Hs.pure ClientPeersGetRequest ClientPeersGetRequest) - dotProto :: Proxy# ClientPeersGetRequest -> [DotProtoField] -dotProto _ = [] - -instance HsJSONPB.ToJSONPB ClientPeersGetRequest where - toJSONPB :: ClientPeersGetRequest -> Options -> Value -toJSONPB (ClientPeersGetRequest + dotProto :: Proxy# ClientPeersGetRequest -> [DotProtoField] +dotProto Proxy# ClientPeersGetRequest +_ = [] + +instance HsJSONPB.ToJSONPB ClientPeersGetRequest where + toJSONPB :: ClientPeersGetRequest -> Options -> Value +toJSONPB (ClientPeersGetRequest ClientPeersGetRequest) = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object []) - toEncodingPB :: ClientPeersGetRequest -> Options -> Encoding -toEncodingPB (ClientPeersGetRequest +HsJSONPB.object []) + toEncodingPB :: ClientPeersGetRequest -> Options -> Encoding +toEncodingPB (ClientPeersGetRequest ClientPeersGetRequest) = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs []) - -instance HsJSONPB.FromJSONPB ClientPeersGetRequest where - parseJSONPB :: Value -> Parser ClientPeersGetRequest -parseJSONPB - = (String +HsJSONPB.pairs []) + +instance HsJSONPB.FromJSONPB ClientPeersGetRequest where + parseJSONPB :: Value -> Parser ClientPeersGetRequest +parseJSONPB + = (String -> (Object -> Parser ClientPeersGetRequest) -> Value -> Parser ClientPeersGetRequest forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ClientPeersGetRequest" - (\ obj :: Object -obj -> (ClientPeersGetRequest -> Parser ClientPeersGetRequest +HsJSONPB.withObject String +"ClientPeersGetRequest" + (\ Object +obj -> (ClientPeersGetRequest -> Parser ClientPeersGetRequest forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientPeersGetRequest +Hs.pure ClientPeersGetRequest ClientPeersGetRequest))) - -instance HsJSONPB.ToJSON ClientPeersGetRequest where - toJSON :: ClientPeersGetRequest -> Value -toJSON = ClientPeersGetRequest -> Value + +instance HsJSONPB.ToJSON ClientPeersGetRequest where + toJSON :: ClientPeersGetRequest -> Value +toJSON = ClientPeersGetRequest -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ClientPeersGetRequest -> Encoding -toEncoding = ClientPeersGetRequest -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ClientPeersGetRequest -> Encoding +toEncoding = ClientPeersGetRequest -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ClientPeersGetRequest where - parseJSON :: Value -> Parser ClientPeersGetRequest -parseJSON = Value -> Parser ClientPeersGetRequest +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ClientPeersGetRequest where + parseJSON :: Value -> Parser ClientPeersGetRequest +parseJSON = Value -> Parser ClientPeersGetRequest forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ClientPeersGetRequest where - declareNamedSchema :: Proxy ClientPeersGetRequest +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ClientPeersGetRequest where + declareNamedSchema :: Proxy ClientPeersGetRequest -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do NamedSchema -> Declare (Definitions Schema) NamedSchema +declareNamedSchema Proxy ClientPeersGetRequest +_ + = do NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ClientPeersGetRequest", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ClientPeersGetRequest", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList []}}) - -data ClientPeersGetResponse = ClientPeersGetResponse{ClientPeersGetResponse -> Enumerated ClientPeersGetResponse_Status +HsJSONPB.insOrdFromList []}}) + +data ClientPeersGetResponse = ClientPeersGetResponse{ClientPeersGetResponse -> Enumerated ClientPeersGetResponse_Status clientPeersGetResponseStatus - :: - HsProtobuf.Enumerated - Data.Sawtooth.ClientPeers.ClientPeersGetResponse_Status, - ClientPeersGetResponse -> Vector Text + :: + HsProtobuf.Enumerated + Data.Sawtooth.ClientPeers.ClientPeersGetResponse_Status, + ClientPeersGetResponse -> Vector Text clientPeersGetResponsePeers :: - Hs.Vector Hs.Text} - deriving (Int -> ClientPeersGetResponse -> ShowS + Hs.Vector Hs.Text} + deriving (Int -> ClientPeersGetResponse -> ShowS [ClientPeersGetResponse] -> ShowS ClientPeersGetResponse -> String (Int -> ClientPeersGetResponse -> ShowS) @@ -242,7 +249,7 @@ show :: ClientPeersGetResponse -> String $cshow :: ClientPeersGetResponse -> String showsPrec :: Int -> ClientPeersGetResponse -> ShowS $cshowsPrec :: Int -> ClientPeersGetResponse -> ShowS -Hs.Show, ClientPeersGetResponse -> ClientPeersGetResponse -> Bool +Hs.Show, ClientPeersGetResponse -> ClientPeersGetResponse -> Bool (ClientPeersGetResponse -> ClientPeersGetResponse -> Bool) -> (ClientPeersGetResponse -> ClientPeersGetResponse -> Bool) -> Eq ClientPeersGetResponse @@ -251,9 +258,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: ClientPeersGetResponse -> ClientPeersGetResponse -> Bool == :: ClientPeersGetResponse -> ClientPeersGetResponse -> Bool $c== :: ClientPeersGetResponse -> ClientPeersGetResponse -> Bool -Hs.Eq, Eq ClientPeersGetResponse -Eq ClientPeersGetResponse => -(ClientPeersGetResponse -> ClientPeersGetResponse -> Ordering) +Hs.Eq, Eq ClientPeersGetResponse +Eq ClientPeersGetResponse +-> (ClientPeersGetResponse -> ClientPeersGetResponse -> Ordering) -> (ClientPeersGetResponse -> ClientPeersGetResponse -> Bool) -> (ClientPeersGetResponse -> ClientPeersGetResponse -> Bool) -> (ClientPeersGetResponse -> ClientPeersGetResponse -> Bool) @@ -268,8 +275,8 @@ ClientPeersGetResponse -> ClientPeersGetResponse -> Ordering ClientPeersGetResponse -> ClientPeersGetResponse -> ClientPeersGetResponse forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -296,7 +303,7 @@ $c< :: ClientPeersGetResponse -> ClientPeersGetResponse -> Bool compare :: ClientPeersGetResponse -> ClientPeersGetResponse -> Ordering $ccompare :: ClientPeersGetResponse -> ClientPeersGetResponse -> Ordering $cp1Ord :: Eq ClientPeersGetResponse -Hs.Ord, (forall x. ClientPeersGetResponse -> Rep ClientPeersGetResponse x) +Hs.Ord, (forall x. ClientPeersGetResponse -> Rep ClientPeersGetResponse x) -> (forall x. Rep ClientPeersGetResponse x -> ClientPeersGetResponse) -> Generic ClientPeersGetResponse @@ -306,60 +313,65 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep ClientPeersGetResponse x -> ClientPeersGetResponse $cfrom :: forall x. ClientPeersGetResponse -> Rep ClientPeersGetResponse x -Hs.Generic, ClientPeersGetResponse -> () +Hs.Generic, ClientPeersGetResponse -> () (ClientPeersGetResponse -> ()) -> NFData ClientPeersGetResponse forall a. (a -> ()) -> NFData a rnf :: ClientPeersGetResponse -> () $crnf :: ClientPeersGetResponse -> () -Hs.NFData) - -instance HsProtobuf.Named ClientPeersGetResponse where - nameOf :: Proxy# ClientPeersGetResponse -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ClientPeersGetResponse where + nameOf :: Proxy# ClientPeersGetResponse -> string +nameOf Proxy# ClientPeersGetResponse +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ClientPeersGetResponse") - -instance HsProtobuf.HasDefault ClientPeersGetResponse - -instance HsProtobuf.Message ClientPeersGetResponse where - encodeMessage :: FieldNumber -> ClientPeersGetResponse -> MessageBuilder -encodeMessage _ - ClientPeersGetResponse{clientPeersGetResponseStatus :: ClientPeersGetResponse -> Enumerated ClientPeersGetResponse_Status +Hs.fromString String +"ClientPeersGetResponse") + +instance HsProtobuf.HasDefault ClientPeersGetResponse + +instance HsProtobuf.Message ClientPeersGetResponse where + encodeMessage :: FieldNumber -> ClientPeersGetResponse -> MessageBuilder +encodeMessage FieldNumber +_ + ClientPeersGetResponse{clientPeersGetResponseStatus :: ClientPeersGetResponse -> Enumerated ClientPeersGetResponse_Status clientPeersGetResponseStatus = - Enumerated ClientPeersGetResponse_Status -clientPeersGetResponseStatus, - clientPeersGetResponsePeers :: ClientPeersGetResponse -> Vector Text -clientPeersGetResponsePeers = Vector Text -clientPeersGetResponsePeers} - = ([MessageBuilder] -> MessageBuilder + Enumerated ClientPeersGetResponse_Status +clientPeersGetResponseStatus, + clientPeersGetResponsePeers :: ClientPeersGetResponse -> Vector Text +clientPeersGetResponsePeers = Vector Text +clientPeersGetResponsePeers} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber +Hs.mconcat + [(FieldNumber -> Enumerated ClientPeersGetResponse_Status -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Enumerated ClientPeersGetResponse_Status -clientPeersGetResponseStatus), - (FieldNumber -> UnpackedVec Text -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Enumerated ClientPeersGetResponse_Status +clientPeersGetResponseStatus), + (FieldNumber -> UnpackedVec Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (Vector Text -> UnpackedVec Text -forall a b. Coercible a b => a -> b -Hs.coerce @(Hs.Vector Hs.Text) @(HsProtobuf.UnpackedVec Hs.Text) - Vector Text -clientPeersGetResponsePeers))]) - decodeMessage :: FieldNumber -> Parser RawMessage ClientPeersGetResponse -decodeMessage _ - = ((Enumerated ClientPeersGetResponse_Status +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (Vector Text -> UnpackedVec Text +Hs.coerce @(Hs.Vector Hs.Text) @(HsProtobuf.UnpackedVec Hs.Text) + Vector Text +clientPeersGetResponsePeers))]) + decodeMessage :: FieldNumber -> Parser RawMessage ClientPeersGetResponse +decodeMessage FieldNumber +_ + = ((Enumerated ClientPeersGetResponse_Status -> Vector Text -> ClientPeersGetResponse) -> Parser RawMessage (Enumerated ClientPeersGetResponse_Status -> Vector Text -> ClientPeersGetResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ClientPeersGetResponse_Status +Hs.pure Enumerated ClientPeersGetResponse_Status -> Vector Text -> ClientPeersGetResponse ClientPeersGetResponse) Parser RawMessage @@ -368,122 +380,136 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Parser RawMessage (Enumerated ClientPeersGetResponse_Status) -> Parser RawMessage (Vector Text -> ClientPeersGetResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField (Enumerated ClientPeersGetResponse_Status) +<*> + (Parser RawField (Enumerated ClientPeersGetResponse_Status) -> FieldNumber -> Parser RawMessage (Enumerated ClientPeersGetResponse_Status) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (Enumerated ClientPeersGetResponse_Status) +HsProtobuf.at Parser RawField (Enumerated ClientPeersGetResponse_Status) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser RawMessage (Vector Text -> ClientPeersGetResponse) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (Vector Text -> ClientPeersGetResponse) -> Parser RawMessage (Vector Text) -> Parser RawMessage ClientPeersGetResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (UnpackedVec Text) +<*> + (Parser RawMessage (UnpackedVec Text) -> Parser RawMessage (Vector Text) -forall a b. Coercible a b => a -> b -Hs.coerce @(_ (HsProtobuf.UnpackedVec Hs.Text)) - @(_ (Hs.Vector Hs.Text)) - (Parser RawField (UnpackedVec Text) +Hs.coerce @(_ (HsProtobuf.UnpackedVec Hs.Text)) + @(_ (Hs.Vector Hs.Text)) + (Parser RawField (UnpackedVec Text) -> FieldNumber -> Parser RawMessage (UnpackedVec Text) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (UnpackedVec Text) +HsProtobuf.at Parser RawField (UnpackedVec Text) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2))) - dotProto :: Proxy# ClientPeersGetResponse -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2))) + dotProto :: Proxy# ClientPeersGetResponse -> [DotProtoField] +dotProto Proxy# ClientPeersGetResponse +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "Status"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "status") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"Status"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"status") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Repeated DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "peers") - [] - "")] - -instance HsJSONPB.ToJSONPB ClientPeersGetResponse where - toJSONPB :: ClientPeersGetResponse -> Options -> Value -toJSONPB (ClientPeersGetResponse f1 :: Enumerated ClientPeersGetResponse_Status -f1 f2 :: Vector Text -f2) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["status" Text +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Repeated DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"peers") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ClientPeersGetResponse where + toJSONPB :: ClientPeersGetResponse -> Options -> Value +toJSONPB (ClientPeersGetResponse Enumerated ClientPeersGetResponse_Status +f1 Vector Text +f2) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"status" Text -> Enumerated ClientPeersGetResponse_Status -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated ClientPeersGetResponse_Status -f1, "peers" Text -> Vector Text -> Options -> [Pair] +.= Enumerated ClientPeersGetResponse_Status +f1, Text +"peers" Text -> Vector Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Text -f2]) - toEncodingPB :: ClientPeersGetResponse -> Options -> Encoding -toEncodingPB (ClientPeersGetResponse f1 :: Enumerated ClientPeersGetResponse_Status -f1 f2 :: Vector Text -f2) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["status" Text +.= Vector Text +f2]) + toEncodingPB :: ClientPeersGetResponse -> Options -> Encoding +toEncodingPB (ClientPeersGetResponse Enumerated ClientPeersGetResponse_Status +f1 Vector Text +f2) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"status" Text -> Enumerated ClientPeersGetResponse_Status -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated ClientPeersGetResponse_Status -f1, "peers" Text -> Vector Text -> Options -> Series +.= Enumerated ClientPeersGetResponse_Status +f1, Text +"peers" Text -> Vector Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Text -f2]) - -instance HsJSONPB.FromJSONPB ClientPeersGetResponse where - parseJSONPB :: Value -> Parser ClientPeersGetResponse -parseJSONPB - = (String +.= Vector Text +f2]) + +instance HsJSONPB.FromJSONPB ClientPeersGetResponse where + parseJSONPB :: Value -> Parser ClientPeersGetResponse +parseJSONPB + = (String -> (Object -> Parser ClientPeersGetResponse) -> Value -> Parser ClientPeersGetResponse forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ClientPeersGetResponse" - (\ obj :: Object -obj -> - ((Enumerated ClientPeersGetResponse_Status +HsJSONPB.withObject String +"ClientPeersGetResponse" + (\ Object +obj -> + ((Enumerated ClientPeersGetResponse_Status -> Vector Text -> ClientPeersGetResponse) -> Parser (Enumerated ClientPeersGetResponse_Status -> Vector Text -> ClientPeersGetResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ClientPeersGetResponse_Status +Hs.pure Enumerated ClientPeersGetResponse_Status -> Vector Text -> ClientPeersGetResponse ClientPeersGetResponse) Parser (Enumerated ClientPeersGetResponse_Status @@ -491,78 +517,81 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Parser (Enumerated ClientPeersGetResponse_Status) -> Parser (Vector Text -> ClientPeersGetResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser (Enumerated ClientPeersGetResponse_Status) +<*> Object +obj Object -> Text -> Parser (Enumerated ClientPeersGetResponse_Status) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "status" Parser (Vector Text -> ClientPeersGetResponse) +.: Text +"status" Parser (Vector Text -> ClientPeersGetResponse) -> Parser (Vector Text) -> Parser ClientPeersGetResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser (Vector Text) +<*> + Object +obj Object -> Text -> Parser (Vector Text) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "peers")) - -instance HsJSONPB.ToJSON ClientPeersGetResponse where - toJSON :: ClientPeersGetResponse -> Value -toJSON = ClientPeersGetResponse -> Value +.: Text +"peers")) + +instance HsJSONPB.ToJSON ClientPeersGetResponse where + toJSON :: ClientPeersGetResponse -> Value +toJSON = ClientPeersGetResponse -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ClientPeersGetResponse -> Encoding -toEncoding = ClientPeersGetResponse -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ClientPeersGetResponse -> Encoding +toEncoding = ClientPeersGetResponse -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ClientPeersGetResponse where - parseJSON :: Value -> Parser ClientPeersGetResponse -parseJSON = Value -> Parser ClientPeersGetResponse +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ClientPeersGetResponse where + parseJSON :: Value -> Parser ClientPeersGetResponse +parseJSON = Value -> Parser ClientPeersGetResponse forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ClientPeersGetResponse where - declareNamedSchema :: Proxy ClientPeersGetResponse +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ClientPeersGetResponse where + declareNamedSchema :: Proxy ClientPeersGetResponse -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_status :: Proxy (OverrideToSchema (Enumerated ClientPeersGetResponse_Status)) +declareNamedSchema Proxy ClientPeersGetResponse +_ + = do let declare_status :: Proxy (OverrideToSchema (Enumerated ClientPeersGetResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status = Proxy (OverrideToSchema (Enumerated ClientPeersGetResponse_Status)) +declare_status = Proxy (OverrideToSchema (Enumerated ClientPeersGetResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientPeersGetResponseStatus <- Proxy (OverrideToSchema (Enumerated ClientPeersGetResponse_Status)) +HsJSONPB.declareSchemaRef + Referenced Schema +clientPeersGetResponseStatus <- Proxy (OverrideToSchema (Enumerated ClientPeersGetResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status Proxy (OverrideToSchema (Enumerated ClientPeersGetResponse_Status)) +declare_status Proxy (OverrideToSchema (Enumerated ClientPeersGetResponse_Status)) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_peers :: Proxy (OverrideToSchema (Vector Text)) +Proxy.Proxy + let declare_peers :: Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) -declare_peers = Proxy (OverrideToSchema (Vector Text)) +declare_peers = Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientPeersGetResponsePeers <- Proxy (OverrideToSchema (Vector Text)) +HsJSONPB.declareSchemaRef + Referenced Schema +clientPeersGetResponsePeers <- Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) -declare_peers Proxy (OverrideToSchema (Vector Text)) +declare_peers Proxy (OverrideToSchema (Vector Text)) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ClientPeersGetResponse +Proxy.Proxy + let Proxy ClientPeersGetResponse _ = (Enumerated ClientPeersGetResponse_Status -> Vector Text -> ClientPeersGetResponse) -> Proxy (Enumerated ClientPeersGetResponse_Status -> Vector Text -> ClientPeersGetResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ClientPeersGetResponse_Status +Hs.pure Enumerated ClientPeersGetResponse_Status -> Vector Text -> ClientPeersGetResponse ClientPeersGetResponse Proxy (Enumerated ClientPeersGetResponse_Status @@ -570,64 +599,67 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Proxy (Enumerated ClientPeersGetResponse_Status) -> Proxy (Vector Text -> ClientPeersGetResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy +<*> + (Proxy (OverrideToSchema (Enumerated ClientPeersGetResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Enumerated ClientPeersGetResponse_Status) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Enumerated ClientPeersGetResponse_Status)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Enumerated ClientPeersGetResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status - Proxy (Vector Text -> ClientPeersGetResponse) +declare_status + Proxy (Vector Text -> ClientPeersGetResponse) -> Proxy (Vector Text) -> Proxy ClientPeersGetResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema (Vector Text)) +<*> (Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Vector Text) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Text)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) -declare_peers - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_peers + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ClientPeersGetResponse", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ClientPeersGetResponse", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("status", Referenced Schema -clientPeersGetResponseStatus), - ("peers", Referenced Schema -clientPeersGetResponsePeers)]}}) - -data ClientPeersGetResponse_Status = ClientPeersGetResponse_StatusSTATUS_UNSET - | ClientPeersGetResponse_StatusOK - | ClientPeersGetResponse_StatusERROR - deriving (Int -> ClientPeersGetResponse_Status -> ShowS +HsJSONPB.insOrdFromList + [(Text +"status", Referenced Schema +clientPeersGetResponseStatus), + (Text +"peers", Referenced Schema +clientPeersGetResponsePeers)]}}) + +data ClientPeersGetResponse_Status = ClientPeersGetResponse_StatusSTATUS_UNSET + | ClientPeersGetResponse_StatusOK + | ClientPeersGetResponse_StatusERROR + deriving (Int -> ClientPeersGetResponse_Status -> ShowS [ClientPeersGetResponse_Status] -> ShowS ClientPeersGetResponse_Status -> String (Int -> ClientPeersGetResponse_Status -> ShowS) @@ -642,7 +674,7 @@ show :: ClientPeersGetResponse_Status -> String $cshow :: ClientPeersGetResponse_Status -> String showsPrec :: Int -> ClientPeersGetResponse_Status -> ShowS $cshowsPrec :: Int -> ClientPeersGetResponse_Status -> ShowS -Hs.Show, ClientPeersGetResponse_Status +Hs.Show, ClientPeersGetResponse_Status -> ClientPeersGetResponse_Status -> Bool (ClientPeersGetResponse_Status -> ClientPeersGetResponse_Status -> Bool) @@ -658,7 +690,7 @@ $c/= :: ClientPeersGetResponse_Status -> ClientPeersGetResponse_Status -> Bool $c== :: ClientPeersGetResponse_Status -> ClientPeersGetResponse_Status -> Bool -Hs.Eq, (forall x. +Hs.Eq, (forall x. ClientPeersGetResponse_Status -> Rep ClientPeersGetResponse_Status x) -> (forall x. @@ -679,131 +711,146 @@ Rep ClientPeersGetResponse_Status x $cfrom :: forall x. ClientPeersGetResponse_Status -> Rep ClientPeersGetResponse_Status x -Hs.Generic, ClientPeersGetResponse_Status -> () +Hs.Generic, ClientPeersGetResponse_Status -> () (ClientPeersGetResponse_Status -> ()) -> NFData ClientPeersGetResponse_Status forall a. (a -> ()) -> NFData a rnf :: ClientPeersGetResponse_Status -> () $crnf :: ClientPeersGetResponse_Status -> () -Hs.NFData) - -instance HsProtobuf.Named ClientPeersGetResponse_Status where - nameOf :: Proxy# ClientPeersGetResponse_Status -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ClientPeersGetResponse_Status where + nameOf :: Proxy# ClientPeersGetResponse_Status -> string +nameOf Proxy# ClientPeersGetResponse_Status +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ClientPeersGetResponse_Status") - -instance HsProtobuf.HasDefault ClientPeersGetResponse_Status - -instance Hs.Bounded ClientPeersGetResponse_Status where - minBound :: ClientPeersGetResponse_Status -minBound = ClientPeersGetResponse_Status +Hs.fromString String +"ClientPeersGetResponse_Status") + +instance HsProtobuf.HasDefault ClientPeersGetResponse_Status + +instance Hs.Bounded ClientPeersGetResponse_Status where + minBound :: ClientPeersGetResponse_Status +minBound = ClientPeersGetResponse_Status ClientPeersGetResponse_StatusSTATUS_UNSET - maxBound :: ClientPeersGetResponse_Status -maxBound = ClientPeersGetResponse_Status + maxBound :: ClientPeersGetResponse_Status +maxBound = ClientPeersGetResponse_Status ClientPeersGetResponse_StatusERROR - -instance Hs.Ord ClientPeersGetResponse_Status where - compare :: ClientPeersGetResponse_Status + +instance Hs.Ord ClientPeersGetResponse_Status where + compare :: ClientPeersGetResponse_Status -> ClientPeersGetResponse_Status -> Ordering -compare x :: ClientPeersGetResponse_Status -x y :: ClientPeersGetResponse_Status -y - = Int32 -> Int32 -> Ordering +compare ClientPeersGetResponse_Status +x ClientPeersGetResponse_Status +y + = Int32 -> Int32 -> Ordering forall a. Ord a => a -> a -> Ordering -Hs.compare (ClientPeersGetResponse_Status -> Int32 +Hs.compare (ClientPeersGetResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum ClientPeersGetResponse_Status -x) - (ClientPeersGetResponse_Status -> Int32 +HsProtobuf.fromProtoEnum ClientPeersGetResponse_Status +x) + (ClientPeersGetResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum ClientPeersGetResponse_Status -y) - -instance HsProtobuf.ProtoEnum ClientPeersGetResponse_Status where - toProtoEnumMay :: Int32 -> Maybe ClientPeersGetResponse_Status -toProtoEnumMay 0 - = ClientPeersGetResponse_Status +HsProtobuf.fromProtoEnum ClientPeersGetResponse_Status +y) + +instance HsProtobuf.ProtoEnum ClientPeersGetResponse_Status where + toProtoEnumMay :: Int32 -> Maybe ClientPeersGetResponse_Status +toProtoEnumMay Int32 +0 + = ClientPeersGetResponse_Status -> Maybe ClientPeersGetResponse_Status forall a. a -> Maybe a -Hs.Just ClientPeersGetResponse_Status +Hs.Just ClientPeersGetResponse_Status ClientPeersGetResponse_StatusSTATUS_UNSET - toProtoEnumMay 1 = ClientPeersGetResponse_Status + toProtoEnumMay Int32 +1 = ClientPeersGetResponse_Status -> Maybe ClientPeersGetResponse_Status forall a. a -> Maybe a -Hs.Just ClientPeersGetResponse_Status +Hs.Just ClientPeersGetResponse_Status ClientPeersGetResponse_StatusOK - toProtoEnumMay 2 = ClientPeersGetResponse_Status + toProtoEnumMay Int32 +2 = ClientPeersGetResponse_Status -> Maybe ClientPeersGetResponse_Status forall a. a -> Maybe a -Hs.Just ClientPeersGetResponse_Status +Hs.Just ClientPeersGetResponse_Status ClientPeersGetResponse_StatusERROR - toProtoEnumMay _ = Maybe ClientPeersGetResponse_Status + toProtoEnumMay Int32 +_ = Maybe ClientPeersGetResponse_Status forall a. Maybe a -Hs.Nothing - fromProtoEnum :: ClientPeersGetResponse_Status -> Int32 -fromProtoEnum (ClientPeersGetResponse_Status -ClientPeersGetResponse_StatusSTATUS_UNSET) = 0 - fromProtoEnum (ClientPeersGetResponse_Status -ClientPeersGetResponse_StatusOK) = 1 - fromProtoEnum (ClientPeersGetResponse_Status -ClientPeersGetResponse_StatusERROR) = 2 - -instance HsJSONPB.ToJSONPB ClientPeersGetResponse_Status where - toJSONPB :: ClientPeersGetResponse_Status -> Options -> Value -toJSONPB x :: ClientPeersGetResponse_Status -x _ = ClientPeersGetResponse_Status -> Value +Hs.Nothing + fromProtoEnum :: ClientPeersGetResponse_Status -> Int32 +fromProtoEnum (ClientPeersGetResponse_Status +ClientPeersGetResponse_StatusSTATUS_UNSET) = Int32 +0 + fromProtoEnum (ClientPeersGetResponse_Status +ClientPeersGetResponse_StatusOK) = Int32 +1 + fromProtoEnum (ClientPeersGetResponse_Status +ClientPeersGetResponse_StatusERROR) = Int32 +2 + +instance HsJSONPB.ToJSONPB ClientPeersGetResponse_Status where + toJSONPB :: ClientPeersGetResponse_Status -> Options -> Value +toJSONPB ClientPeersGetResponse_Status +x Options +_ = ClientPeersGetResponse_Status -> Value forall a. (Named a, Show a) => a -> Value -HsJSONPB.enumFieldString ClientPeersGetResponse_Status -x - toEncodingPB :: ClientPeersGetResponse_Status -> Options -> Encoding -toEncodingPB x :: ClientPeersGetResponse_Status -x _ = ClientPeersGetResponse_Status -> Encoding +HsJSONPB.enumFieldString ClientPeersGetResponse_Status +x + toEncodingPB :: ClientPeersGetResponse_Status -> Options -> Encoding +toEncodingPB ClientPeersGetResponse_Status +x Options +_ = ClientPeersGetResponse_Status -> Encoding forall a. (Named a, Show a) => a -> Encoding -HsJSONPB.enumFieldEncoding ClientPeersGetResponse_Status -x - -instance HsJSONPB.FromJSONPB ClientPeersGetResponse_Status where - parseJSONPB :: Value -> Parser ClientPeersGetResponse_Status -parseJSONPB (HsJSONPB.String "STATUS_UNSET") - = ClientPeersGetResponse_Status +HsJSONPB.enumFieldEncoding ClientPeersGetResponse_Status +x + +instance HsJSONPB.FromJSONPB ClientPeersGetResponse_Status where + parseJSONPB :: Value -> Parser ClientPeersGetResponse_Status +parseJSONPB (HsJSONPB.String Text +"STATUS_UNSET") + = ClientPeersGetResponse_Status -> Parser ClientPeersGetResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientPeersGetResponse_Status +Hs.pure ClientPeersGetResponse_Status ClientPeersGetResponse_StatusSTATUS_UNSET - parseJSONPB (HsJSONPB.String "OK") - = ClientPeersGetResponse_Status + parseJSONPB (HsJSONPB.String Text +"OK") + = ClientPeersGetResponse_Status -> Parser ClientPeersGetResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientPeersGetResponse_Status +Hs.pure ClientPeersGetResponse_Status ClientPeersGetResponse_StatusOK - parseJSONPB (HsJSONPB.String "ERROR") - = ClientPeersGetResponse_Status + parseJSONPB (HsJSONPB.String Text +"ERROR") + = ClientPeersGetResponse_Status -> Parser ClientPeersGetResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientPeersGetResponse_Status +Hs.pure ClientPeersGetResponse_Status ClientPeersGetResponse_StatusERROR - parseJSONPB v :: Value -v - = (String -> Value -> Parser ClientPeersGetResponse_Status + parseJSONPB Value +v + = (String -> Value -> Parser ClientPeersGetResponse_Status forall a. String -> Value -> Parser a -HsJSONPB.typeMismatch "ClientPeersGetResponse_Status" Value -v) - -instance HsJSONPB.ToJSON ClientPeersGetResponse_Status where - toJSON :: ClientPeersGetResponse_Status -> Value -toJSON = ClientPeersGetResponse_Status -> Value +HsJSONPB.typeMismatch String +"ClientPeersGetResponse_Status" Value +v) + +instance HsJSONPB.ToJSON ClientPeersGetResponse_Status where + toJSON :: ClientPeersGetResponse_Status -> Value +toJSON = ClientPeersGetResponse_Status -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ClientPeersGetResponse_Status -> Encoding -toEncoding = ClientPeersGetResponse_Status -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ClientPeersGetResponse_Status -> Encoding +toEncoding = ClientPeersGetResponse_Status -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ClientPeersGetResponse_Status where - parseJSON :: Value -> Parser ClientPeersGetResponse_Status -parseJSON = Value -> Parser ClientPeersGetResponse_Status +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ClientPeersGetResponse_Status where + parseJSON :: Value -> Parser ClientPeersGetResponse_Status +parseJSON = Value -> Parser ClientPeersGetResponse_Status forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsProtobuf.Finite ClientPeersGetResponse_Status \ No newline at end of file +HsJSONPB.parseJSONPB + +instance HsProtobuf.Finite ClientPeersGetResponse_Status \ No newline at end of file diff --git a/src/Data.Sawtooth.ClientReceipt.html b/src/Data.Sawtooth.ClientReceipt.html index 523a387..fbd48f6 100644 --- a/src/Data.Sawtooth.ClientReceipt.html +++ b/src/Data.Sawtooth.ClientReceipt.html @@ -9,38 +9,37 @@ {-# OPTIONS_GHC -fno-warn-unused-matches #-} -- | Generated by Haskell protocol buffer compiler. DO NOT EDIT! - -module Data.Sawtooth.ClientReceipt where -import qualified Prelude as Hs -import qualified Proto3.Suite.Class as HsProtobuf -import qualified Proto3.Suite.DotProto as HsProtobuf -import qualified Proto3.Suite.JSONPB as HsJSONPB -import Proto3.Suite.JSONPB ((.=), (.:)) -import qualified Proto3.Suite.Types as HsProtobuf -import qualified Proto3.Wire as HsProtobuf -import qualified Control.Applicative as Hs -import Control.Applicative ((<*>), (<|>), (<$>)) -import qualified Control.DeepSeq as Hs -import qualified Control.Monad as Hs -import qualified Data.ByteString as Hs -import qualified Data.Coerce as Hs -import qualified Data.Int as Hs (Int16, Int32, Int64) -import qualified Data.List.NonEmpty as Hs (NonEmpty(..)) -import qualified Data.Map as Hs (Map, mapKeysMonotonic) -import qualified Data.Proxy as Proxy -import qualified Data.String as Hs (fromString) -import qualified Data.Text.Lazy as Hs (Text) -import qualified Data.Vector as Hs (Vector) -import qualified Data.Word as Hs (Word16, Word32, Word64) -import qualified GHC.Enum as Hs -import qualified GHC.Generics as Hs -import qualified Unsafe.Coerce as Hs -import qualified Data.Sawtooth.TransactionReceipt - -newtype ClientReceiptGetRequest = ClientReceiptGetRequest{ClientReceiptGetRequest -> Vector Text +module Data.Sawtooth.ClientReceipt where +import qualified Prelude as Hs +import qualified Proto3.Suite.Class as HsProtobuf +import qualified Proto3.Suite.DotProto as HsProtobuf +import qualified Proto3.Suite.JSONPB as HsJSONPB +import Proto3.Suite.JSONPB ((.=), (.:)) +import qualified Proto3.Suite.Types as HsProtobuf +import qualified Proto3.Wire as HsProtobuf +import qualified Control.Applicative as Hs +import Control.Applicative ((<*>), (<|>), (<$>)) +import qualified Control.DeepSeq as Hs +import qualified Control.Monad as Hs +import qualified Data.ByteString as Hs +import qualified Data.Coerce as Hs +import qualified Data.Int as Hs (Int16, Int32, Int64) +import qualified Data.List.NonEmpty as Hs (NonEmpty(..)) +import qualified Data.Map as Hs (Map, mapKeysMonotonic) +import qualified Data.Proxy as Proxy +import qualified Data.String as Hs (fromString) +import qualified Data.Text.Lazy as Hs (Text) +import qualified Data.Vector as Hs (Vector) +import qualified Data.Word as Hs (Word16, Word32, Word64) +import qualified GHC.Enum as Hs +import qualified GHC.Generics as Hs +import qualified Unsafe.Coerce as Hs +import qualified Data.Sawtooth.TransactionReceipt + +newtype ClientReceiptGetRequest = ClientReceiptGetRequest{ClientReceiptGetRequest -> Vector Text clientReceiptGetRequestTransactionIds - :: Hs.Vector Hs.Text} - deriving (Int -> ClientReceiptGetRequest -> ShowS + :: Hs.Vector Hs.Text} + deriving (Int -> ClientReceiptGetRequest -> ShowS [ClientReceiptGetRequest] -> ShowS ClientReceiptGetRequest -> String (Int -> ClientReceiptGetRequest -> ShowS) @@ -55,7 +54,7 @@ show :: ClientReceiptGetRequest -> String $cshow :: ClientReceiptGetRequest -> String showsPrec :: Int -> ClientReceiptGetRequest -> ShowS $cshowsPrec :: Int -> ClientReceiptGetRequest -> ShowS -Hs.Show, ClientReceiptGetRequest -> ClientReceiptGetRequest -> Bool +Hs.Show, ClientReceiptGetRequest -> ClientReceiptGetRequest -> Bool (ClientReceiptGetRequest -> ClientReceiptGetRequest -> Bool) -> (ClientReceiptGetRequest -> ClientReceiptGetRequest -> Bool) -> Eq ClientReceiptGetRequest @@ -64,9 +63,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: ClientReceiptGetRequest -> ClientReceiptGetRequest -> Bool == :: ClientReceiptGetRequest -> ClientReceiptGetRequest -> Bool $c== :: ClientReceiptGetRequest -> ClientReceiptGetRequest -> Bool -Hs.Eq, Eq ClientReceiptGetRequest -Eq ClientReceiptGetRequest => -(ClientReceiptGetRequest -> ClientReceiptGetRequest -> Ordering) +Hs.Eq, Eq ClientReceiptGetRequest +Eq ClientReceiptGetRequest +-> (ClientReceiptGetRequest -> ClientReceiptGetRequest -> Ordering) -> (ClientReceiptGetRequest -> ClientReceiptGetRequest -> Bool) -> (ClientReceiptGetRequest -> ClientReceiptGetRequest -> Bool) -> (ClientReceiptGetRequest -> ClientReceiptGetRequest -> Bool) @@ -81,8 +80,8 @@ ClientReceiptGetRequest -> ClientReceiptGetRequest -> Ordering ClientReceiptGetRequest -> ClientReceiptGetRequest -> ClientReceiptGetRequest forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -109,7 +108,7 @@ $c< :: ClientReceiptGetRequest -> ClientReceiptGetRequest -> Bool compare :: ClientReceiptGetRequest -> ClientReceiptGetRequest -> Ordering $ccompare :: ClientReceiptGetRequest -> ClientReceiptGetRequest -> Ordering $cp1Ord :: Eq ClientReceiptGetRequest -Hs.Ord, (forall x. +Hs.Ord, (forall x. ClientReceiptGetRequest -> Rep ClientReceiptGetRequest x) -> (forall x. Rep ClientReceiptGetRequest x -> ClientReceiptGetRequest) @@ -120,225 +119,240 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep ClientReceiptGetRequest x -> ClientReceiptGetRequest $cfrom :: forall x. ClientReceiptGetRequest -> Rep ClientReceiptGetRequest x -Hs.Generic, ClientReceiptGetRequest -> () +Hs.Generic, ClientReceiptGetRequest -> () (ClientReceiptGetRequest -> ()) -> NFData ClientReceiptGetRequest forall a. (a -> ()) -> NFData a rnf :: ClientReceiptGetRequest -> () $crnf :: ClientReceiptGetRequest -> () -Hs.NFData) - -instance HsProtobuf.Named ClientReceiptGetRequest where - nameOf :: Proxy# ClientReceiptGetRequest -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ClientReceiptGetRequest where + nameOf :: Proxy# ClientReceiptGetRequest -> string +nameOf Proxy# ClientReceiptGetRequest +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ClientReceiptGetRequest") - -instance HsProtobuf.HasDefault ClientReceiptGetRequest - -instance HsProtobuf.Message ClientReceiptGetRequest where - encodeMessage :: FieldNumber -> ClientReceiptGetRequest -> MessageBuilder -encodeMessage _ - ClientReceiptGetRequest{clientReceiptGetRequestTransactionIds :: ClientReceiptGetRequest -> Vector Text +Hs.fromString String +"ClientReceiptGetRequest") + +instance HsProtobuf.HasDefault ClientReceiptGetRequest + +instance HsProtobuf.Message ClientReceiptGetRequest where + encodeMessage :: FieldNumber -> ClientReceiptGetRequest -> MessageBuilder +encodeMessage FieldNumber +_ + ClientReceiptGetRequest{clientReceiptGetRequestTransactionIds :: ClientReceiptGetRequest -> Vector Text clientReceiptGetRequestTransactionIds = - Vector Text -clientReceiptGetRequestTransactionIds} - = ([MessageBuilder] -> MessageBuilder + Vector Text +clientReceiptGetRequestTransactionIds} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> UnpackedVec Text -> MessageBuilder +Hs.mconcat + [(FieldNumber -> UnpackedVec Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (Vector Text -> UnpackedVec Text -forall a b. Coercible a b => a -> b -Hs.coerce @(Hs.Vector Hs.Text) @(HsProtobuf.UnpackedVec Hs.Text) - Vector Text -clientReceiptGetRequestTransactionIds))]) - decodeMessage :: FieldNumber -> Parser RawMessage ClientReceiptGetRequest -decodeMessage _ - = ((Vector Text -> ClientReceiptGetRequest) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (Vector Text -> UnpackedVec Text +Hs.coerce @(Hs.Vector Hs.Text) @(HsProtobuf.UnpackedVec Hs.Text) + Vector Text +clientReceiptGetRequestTransactionIds))]) + decodeMessage :: FieldNumber -> Parser RawMessage ClientReceiptGetRequest +decodeMessage FieldNumber +_ + = ((Vector Text -> ClientReceiptGetRequest) -> Parser RawMessage (Vector Text -> ClientReceiptGetRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector Text -> ClientReceiptGetRequest +Hs.pure Vector Text -> ClientReceiptGetRequest ClientReceiptGetRequest) Parser RawMessage (Vector Text -> ClientReceiptGetRequest) -> Parser RawMessage (Vector Text) -> Parser RawMessage ClientReceiptGetRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (UnpackedVec Text) +<*> + (Parser RawMessage (UnpackedVec Text) -> Parser RawMessage (Vector Text) -forall a b. Coercible a b => a -> b -Hs.coerce @(_ (HsProtobuf.UnpackedVec Hs.Text)) - @(_ (Hs.Vector Hs.Text)) - (Parser RawField (UnpackedVec Text) +Hs.coerce @(_ (HsProtobuf.UnpackedVec Hs.Text)) + @(_ (Hs.Vector Hs.Text)) + (Parser RawField (UnpackedVec Text) -> FieldNumber -> Parser RawMessage (UnpackedVec Text) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (UnpackedVec Text) +HsProtobuf.at Parser RawField (UnpackedVec Text) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1))) - dotProto :: Proxy# ClientReceiptGetRequest -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1))) + dotProto :: Proxy# ClientReceiptGetRequest -> [DotProtoField] +dotProto Proxy# ClientReceiptGetRequest +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Repeated DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "transaction_ids") - [] - "")] - -instance HsJSONPB.ToJSONPB ClientReceiptGetRequest where - toJSONPB :: ClientReceiptGetRequest -> Options -> Value -toJSONPB (ClientReceiptGetRequest f1 :: Vector Text -f1) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["transaction_ids" Text -> Vector Text -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Repeated DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"transaction_ids") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ClientReceiptGetRequest where + toJSONPB :: ClientReceiptGetRequest -> Options -> Value +toJSONPB (ClientReceiptGetRequest Vector Text +f1) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"transaction_ids" Text -> Vector Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Text -f1]) - toEncodingPB :: ClientReceiptGetRequest -> Options -> Encoding -toEncodingPB (ClientReceiptGetRequest f1 :: Vector Text -f1) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["transaction_ids" Text -> Vector Text -> Options -> Series +.= Vector Text +f1]) + toEncodingPB :: ClientReceiptGetRequest -> Options -> Encoding +toEncodingPB (ClientReceiptGetRequest Vector Text +f1) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"transaction_ids" Text -> Vector Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Text -f1]) - -instance HsJSONPB.FromJSONPB ClientReceiptGetRequest where - parseJSONPB :: Value -> Parser ClientReceiptGetRequest -parseJSONPB - = (String +.= Vector Text +f1]) + +instance HsJSONPB.FromJSONPB ClientReceiptGetRequest where + parseJSONPB :: Value -> Parser ClientReceiptGetRequest +parseJSONPB + = (String -> (Object -> Parser ClientReceiptGetRequest) -> Value -> Parser ClientReceiptGetRequest forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ClientReceiptGetRequest" - (\ obj :: Object -obj -> - ((Vector Text -> ClientReceiptGetRequest) +HsJSONPB.withObject String +"ClientReceiptGetRequest" + (\ Object +obj -> + ((Vector Text -> ClientReceiptGetRequest) -> Parser (Vector Text -> ClientReceiptGetRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector Text -> ClientReceiptGetRequest +Hs.pure Vector Text -> ClientReceiptGetRequest ClientReceiptGetRequest) Parser (Vector Text -> ClientReceiptGetRequest) -> Parser (Vector Text) -> Parser ClientReceiptGetRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser (Vector Text) +<*> Object +obj Object -> Text -> Parser (Vector Text) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "transaction_ids")) - -instance HsJSONPB.ToJSON ClientReceiptGetRequest where - toJSON :: ClientReceiptGetRequest -> Value -toJSON = ClientReceiptGetRequest -> Value +.: Text +"transaction_ids")) + +instance HsJSONPB.ToJSON ClientReceiptGetRequest where + toJSON :: ClientReceiptGetRequest -> Value +toJSON = ClientReceiptGetRequest -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ClientReceiptGetRequest -> Encoding -toEncoding = ClientReceiptGetRequest -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ClientReceiptGetRequest -> Encoding +toEncoding = ClientReceiptGetRequest -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ClientReceiptGetRequest where - parseJSON :: Value -> Parser ClientReceiptGetRequest -parseJSON = Value -> Parser ClientReceiptGetRequest +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ClientReceiptGetRequest where + parseJSON :: Value -> Parser ClientReceiptGetRequest +parseJSON = Value -> Parser ClientReceiptGetRequest forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ClientReceiptGetRequest where - declareNamedSchema :: Proxy ClientReceiptGetRequest +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ClientReceiptGetRequest where + declareNamedSchema :: Proxy ClientReceiptGetRequest -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_transaction_ids :: Proxy (OverrideToSchema (Vector Text)) +declareNamedSchema Proxy ClientReceiptGetRequest +_ + = do let declare_transaction_ids :: Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) -declare_transaction_ids = Proxy (OverrideToSchema (Vector Text)) +declare_transaction_ids = Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientReceiptGetRequestTransactionIds <- Proxy (OverrideToSchema (Vector Text)) +HsJSONPB.declareSchemaRef + Referenced Schema +clientReceiptGetRequestTransactionIds <- Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) -declare_transaction_ids - Proxy (OverrideToSchema (Vector Text)) +declare_transaction_ids + Proxy (OverrideToSchema (Vector Text)) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ClientReceiptGetRequest +Proxy.Proxy + let Proxy ClientReceiptGetRequest _ = (Vector Text -> ClientReceiptGetRequest) -> Proxy (Vector Text -> ClientReceiptGetRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector Text -> ClientReceiptGetRequest +Hs.pure Vector Text -> ClientReceiptGetRequest ClientReceiptGetRequest Proxy (Vector Text -> ClientReceiptGetRequest) -> Proxy (Vector Text) -> Proxy ClientReceiptGetRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema (Vector Text)) +<*> + (Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Vector Text) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Text)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) -declare_transaction_ids - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_transaction_ids + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ClientReceiptGetRequest", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ClientReceiptGetRequest", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("transaction_ids", - Referenced Schema -clientReceiptGetRequestTransactionIds)]}}) - -data ClientReceiptGetResponse = ClientReceiptGetResponse{ClientReceiptGetResponse +HsJSONPB.insOrdFromList + [(Text +"transaction_ids", + Referenced Schema +clientReceiptGetRequestTransactionIds)]}}) + +data ClientReceiptGetResponse = ClientReceiptGetResponse{ClientReceiptGetResponse -> Enumerated ClientReceiptGetResponse_Status clientReceiptGetResponseStatus - :: - HsProtobuf.Enumerated - Data.Sawtooth.ClientReceipt.ClientReceiptGetResponse_Status, - ClientReceiptGetResponse -> Vector TransactionReceipt + :: + HsProtobuf.Enumerated + Data.Sawtooth.ClientReceipt.ClientReceiptGetResponse_Status, + ClientReceiptGetResponse -> Vector TransactionReceipt clientReceiptGetResponseReceipts :: - Hs.Vector - Data.Sawtooth.TransactionReceipt.TransactionReceipt} - deriving (Int -> ClientReceiptGetResponse -> ShowS + Hs.Vector + Data.Sawtooth.TransactionReceipt.TransactionReceipt} + deriving (Int -> ClientReceiptGetResponse -> ShowS [ClientReceiptGetResponse] -> ShowS ClientReceiptGetResponse -> String (Int -> ClientReceiptGetResponse -> ShowS) @@ -353,7 +367,7 @@ show :: ClientReceiptGetResponse -> String $cshow :: ClientReceiptGetResponse -> String showsPrec :: Int -> ClientReceiptGetResponse -> ShowS $cshowsPrec :: Int -> ClientReceiptGetResponse -> ShowS -Hs.Show, ClientReceiptGetResponse -> ClientReceiptGetResponse -> Bool +Hs.Show, ClientReceiptGetResponse -> ClientReceiptGetResponse -> Bool (ClientReceiptGetResponse -> ClientReceiptGetResponse -> Bool) -> (ClientReceiptGetResponse -> ClientReceiptGetResponse -> Bool) -> Eq ClientReceiptGetResponse @@ -362,9 +376,10 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: ClientReceiptGetResponse -> ClientReceiptGetResponse -> Bool == :: ClientReceiptGetResponse -> ClientReceiptGetResponse -> Bool $c== :: ClientReceiptGetResponse -> ClientReceiptGetResponse -> Bool -Hs.Eq, Eq ClientReceiptGetResponse -Eq ClientReceiptGetResponse => -(ClientReceiptGetResponse -> ClientReceiptGetResponse -> Ordering) +Hs.Eq, Eq ClientReceiptGetResponse +Eq ClientReceiptGetResponse +-> (ClientReceiptGetResponse + -> ClientReceiptGetResponse -> Ordering) -> (ClientReceiptGetResponse -> ClientReceiptGetResponse -> Bool) -> (ClientReceiptGetResponse -> ClientReceiptGetResponse -> Bool) -> (ClientReceiptGetResponse -> ClientReceiptGetResponse -> Bool) @@ -379,8 +394,8 @@ ClientReceiptGetResponse -> ClientReceiptGetResponse -> Ordering ClientReceiptGetResponse -> ClientReceiptGetResponse -> ClientReceiptGetResponse forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -407,7 +422,7 @@ $c< :: ClientReceiptGetResponse -> ClientReceiptGetResponse -> Bool compare :: ClientReceiptGetResponse -> ClientReceiptGetResponse -> Ordering $ccompare :: ClientReceiptGetResponse -> ClientReceiptGetResponse -> Ordering $cp1Ord :: Eq ClientReceiptGetResponse -Hs.Ord, (forall x. +Hs.Ord, (forall x. ClientReceiptGetResponse -> Rep ClientReceiptGetResponse x) -> (forall x. Rep ClientReceiptGetResponse x -> ClientReceiptGetResponse) @@ -422,64 +437,69 @@ $cto :: forall x. Rep ClientReceiptGetResponse x -> ClientReceiptGetResponse $cfrom :: forall x. ClientReceiptGetResponse -> Rep ClientReceiptGetResponse x -Hs.Generic, ClientReceiptGetResponse -> () +Hs.Generic, ClientReceiptGetResponse -> () (ClientReceiptGetResponse -> ()) -> NFData ClientReceiptGetResponse forall a. (a -> ()) -> NFData a rnf :: ClientReceiptGetResponse -> () $crnf :: ClientReceiptGetResponse -> () -Hs.NFData) - -instance HsProtobuf.Named ClientReceiptGetResponse where - nameOf :: Proxy# ClientReceiptGetResponse -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ClientReceiptGetResponse where + nameOf :: Proxy# ClientReceiptGetResponse -> string +nameOf Proxy# ClientReceiptGetResponse +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ClientReceiptGetResponse") - -instance HsProtobuf.HasDefault ClientReceiptGetResponse - -instance HsProtobuf.Message ClientReceiptGetResponse where - encodeMessage :: FieldNumber -> ClientReceiptGetResponse -> MessageBuilder -encodeMessage _ - ClientReceiptGetResponse{clientReceiptGetResponseStatus :: ClientReceiptGetResponse +Hs.fromString String +"ClientReceiptGetResponse") + +instance HsProtobuf.HasDefault ClientReceiptGetResponse + +instance HsProtobuf.Message ClientReceiptGetResponse where + encodeMessage :: FieldNumber -> ClientReceiptGetResponse -> MessageBuilder +encodeMessage FieldNumber +_ + ClientReceiptGetResponse{clientReceiptGetResponseStatus :: ClientReceiptGetResponse -> Enumerated ClientReceiptGetResponse_Status clientReceiptGetResponseStatus = - Enumerated ClientReceiptGetResponse_Status -clientReceiptGetResponseStatus, - clientReceiptGetResponseReceipts :: ClientReceiptGetResponse -> Vector TransactionReceipt + Enumerated ClientReceiptGetResponse_Status +clientReceiptGetResponseStatus, + clientReceiptGetResponseReceipts :: ClientReceiptGetResponse -> Vector TransactionReceipt clientReceiptGetResponseReceipts = - Vector TransactionReceipt -clientReceiptGetResponseReceipts} - = ([MessageBuilder] -> MessageBuilder + Vector TransactionReceipt +clientReceiptGetResponseReceipts} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber +Hs.mconcat + [(FieldNumber -> Enumerated ClientReceiptGetResponse_Status -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Enumerated ClientReceiptGetResponse_Status -clientReceiptGetResponseStatus), - (FieldNumber -> NestedVec TransactionReceipt -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Enumerated ClientReceiptGetResponse_Status +clientReceiptGetResponseStatus), + (FieldNumber -> NestedVec TransactionReceipt -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (Vector TransactionReceipt -> NestedVec TransactionReceipt -forall a b. Coercible a b => a -> b -Hs.coerce - @(Hs.Vector Data.Sawtooth.TransactionReceipt.TransactionReceipt) - @(HsProtobuf.NestedVec Data.Sawtooth.TransactionReceipt.TransactionReceipt) - Vector TransactionReceipt -clientReceiptGetResponseReceipts))]) - decodeMessage :: FieldNumber -> Parser RawMessage ClientReceiptGetResponse -decodeMessage _ - = ((Enumerated ClientReceiptGetResponse_Status +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (Vector TransactionReceipt -> NestedVec TransactionReceipt +Hs.coerce + @(Hs.Vector Data.Sawtooth.TransactionReceipt.TransactionReceipt) + @(HsProtobuf.NestedVec Data.Sawtooth.TransactionReceipt.TransactionReceipt) + Vector TransactionReceipt +clientReceiptGetResponseReceipts))]) + decodeMessage :: FieldNumber -> Parser RawMessage ClientReceiptGetResponse +decodeMessage FieldNumber +_ + = ((Enumerated ClientReceiptGetResponse_Status -> Vector TransactionReceipt -> ClientReceiptGetResponse) -> Parser RawMessage (Enumerated ClientReceiptGetResponse_Status -> Vector TransactionReceipt -> ClientReceiptGetResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ClientReceiptGetResponse_Status +Hs.pure Enumerated ClientReceiptGetResponse_Status -> Vector TransactionReceipt -> ClientReceiptGetResponse ClientReceiptGetResponse) Parser RawMessage @@ -489,126 +509,141 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Parser RawMessage (Vector TransactionReceipt -> ClientReceiptGetResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField (Enumerated ClientReceiptGetResponse_Status) +<*> + (Parser RawField (Enumerated ClientReceiptGetResponse_Status) -> FieldNumber -> Parser RawMessage (Enumerated ClientReceiptGetResponse_Status) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (Enumerated ClientReceiptGetResponse_Status) +HsProtobuf.at Parser RawField (Enumerated ClientReceiptGetResponse_Status) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (Vector TransactionReceipt -> ClientReceiptGetResponse) -> Parser RawMessage (Vector TransactionReceipt) -> Parser RawMessage ClientReceiptGetResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (NestedVec TransactionReceipt) +<*> + (Parser RawMessage (NestedVec TransactionReceipt) -> Parser RawMessage (Vector TransactionReceipt) -forall a b. Coercible a b => a -> b -Hs.coerce - @(_ (HsProtobuf.NestedVec Data.Sawtooth.TransactionReceipt.TransactionReceipt)) - @(_ (Hs.Vector Data.Sawtooth.TransactionReceipt.TransactionReceipt)) - (Parser RawField (NestedVec TransactionReceipt) +Hs.coerce + @(_ (HsProtobuf.NestedVec Data.Sawtooth.TransactionReceipt.TransactionReceipt)) + @(_ (Hs.Vector Data.Sawtooth.TransactionReceipt.TransactionReceipt)) + (Parser RawField (NestedVec TransactionReceipt) -> FieldNumber -> Parser RawMessage (NestedVec TransactionReceipt) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (NestedVec TransactionReceipt) +HsProtobuf.at Parser RawField (NestedVec TransactionReceipt) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2))) - dotProto :: Proxy# ClientReceiptGetResponse -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2))) + dotProto :: Proxy# ClientReceiptGetResponse -> [DotProtoField] +dotProto Proxy# ClientReceiptGetResponse +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "Status"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "status") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"Status"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"status") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Repeated - (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "TransactionReceipt"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "receipts") - [] - "")] - -instance HsJSONPB.ToJSONPB ClientReceiptGetResponse where - toJSONPB :: ClientReceiptGetResponse -> Options -> Value -toJSONPB (ClientReceiptGetResponse f1 :: Enumerated ClientReceiptGetResponse_Status -f1 f2 :: Vector TransactionReceipt -f2) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["status" Text +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Repeated + (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"TransactionReceipt"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"receipts") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ClientReceiptGetResponse where + toJSONPB :: ClientReceiptGetResponse -> Options -> Value +toJSONPB (ClientReceiptGetResponse Enumerated ClientReceiptGetResponse_Status +f1 Vector TransactionReceipt +f2) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"status" Text -> Enumerated ClientReceiptGetResponse_Status -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated ClientReceiptGetResponse_Status -f1, "receipts" Text -> Vector TransactionReceipt -> Options -> [Pair] +.= Enumerated ClientReceiptGetResponse_Status +f1, Text +"receipts" Text -> Vector TransactionReceipt -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector TransactionReceipt -f2]) - toEncodingPB :: ClientReceiptGetResponse -> Options -> Encoding -toEncodingPB (ClientReceiptGetResponse f1 :: Enumerated ClientReceiptGetResponse_Status -f1 f2 :: Vector TransactionReceipt -f2) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["status" Text +.= Vector TransactionReceipt +f2]) + toEncodingPB :: ClientReceiptGetResponse -> Options -> Encoding +toEncodingPB (ClientReceiptGetResponse Enumerated ClientReceiptGetResponse_Status +f1 Vector TransactionReceipt +f2) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"status" Text -> Enumerated ClientReceiptGetResponse_Status -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated ClientReceiptGetResponse_Status -f1, "receipts" Text -> Vector TransactionReceipt -> Options -> Series +.= Enumerated ClientReceiptGetResponse_Status +f1, Text +"receipts" Text -> Vector TransactionReceipt -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector TransactionReceipt -f2]) - -instance HsJSONPB.FromJSONPB ClientReceiptGetResponse where - parseJSONPB :: Value -> Parser ClientReceiptGetResponse -parseJSONPB - = (String +.= Vector TransactionReceipt +f2]) + +instance HsJSONPB.FromJSONPB ClientReceiptGetResponse where + parseJSONPB :: Value -> Parser ClientReceiptGetResponse +parseJSONPB + = (String -> (Object -> Parser ClientReceiptGetResponse) -> Value -> Parser ClientReceiptGetResponse forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ClientReceiptGetResponse" - (\ obj :: Object -obj -> - ((Enumerated ClientReceiptGetResponse_Status +HsJSONPB.withObject String +"ClientReceiptGetResponse" + (\ Object +obj -> + ((Enumerated ClientReceiptGetResponse_Status -> Vector TransactionReceipt -> ClientReceiptGetResponse) -> Parser (Enumerated ClientReceiptGetResponse_Status -> Vector TransactionReceipt -> ClientReceiptGetResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ClientReceiptGetResponse_Status +Hs.pure Enumerated ClientReceiptGetResponse_Status -> Vector TransactionReceipt -> ClientReceiptGetResponse ClientReceiptGetResponse) Parser (Enumerated ClientReceiptGetResponse_Status @@ -616,84 +651,87 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Parser (Enumerated ClientReceiptGetResponse_Status) -> Parser (Vector TransactionReceipt -> ClientReceiptGetResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object +<*> Object +obj Object -> Text -> Parser (Enumerated ClientReceiptGetResponse_Status) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "status" Parser (Vector TransactionReceipt -> ClientReceiptGetResponse) +.: Text +"status" Parser (Vector TransactionReceipt -> ClientReceiptGetResponse) -> Parser (Vector TransactionReceipt) -> Parser ClientReceiptGetResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser (Vector TransactionReceipt) +<*> + Object +obj Object -> Text -> Parser (Vector TransactionReceipt) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "receipts")) - -instance HsJSONPB.ToJSON ClientReceiptGetResponse where - toJSON :: ClientReceiptGetResponse -> Value -toJSON = ClientReceiptGetResponse -> Value +.: Text +"receipts")) + +instance HsJSONPB.ToJSON ClientReceiptGetResponse where + toJSON :: ClientReceiptGetResponse -> Value +toJSON = ClientReceiptGetResponse -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ClientReceiptGetResponse -> Encoding -toEncoding = ClientReceiptGetResponse -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ClientReceiptGetResponse -> Encoding +toEncoding = ClientReceiptGetResponse -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ClientReceiptGetResponse where - parseJSON :: Value -> Parser ClientReceiptGetResponse -parseJSON = Value -> Parser ClientReceiptGetResponse +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ClientReceiptGetResponse where + parseJSON :: Value -> Parser ClientReceiptGetResponse +parseJSON = Value -> Parser ClientReceiptGetResponse forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ClientReceiptGetResponse where - declareNamedSchema :: Proxy ClientReceiptGetResponse +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ClientReceiptGetResponse where + declareNamedSchema :: Proxy ClientReceiptGetResponse -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_status :: Proxy +declareNamedSchema Proxy ClientReceiptGetResponse +_ + = do let declare_status :: Proxy (OverrideToSchema (Enumerated ClientReceiptGetResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status = Proxy +declare_status = Proxy (OverrideToSchema (Enumerated ClientReceiptGetResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientReceiptGetResponseStatus <- Proxy +HsJSONPB.declareSchemaRef + Referenced Schema +clientReceiptGetResponseStatus <- Proxy (OverrideToSchema (Enumerated ClientReceiptGetResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status Proxy +declare_status Proxy (OverrideToSchema (Enumerated ClientReceiptGetResponse_Status)) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_receipts :: Proxy (OverrideToSchema (Vector TransactionReceipt)) +Proxy.Proxy + let declare_receipts :: Proxy (OverrideToSchema (Vector TransactionReceipt)) -> Declare (Definitions Schema) (Referenced Schema) -declare_receipts = Proxy (OverrideToSchema (Vector TransactionReceipt)) +declare_receipts = Proxy (OverrideToSchema (Vector TransactionReceipt)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientReceiptGetResponseReceipts <- Proxy (OverrideToSchema (Vector TransactionReceipt)) +HsJSONPB.declareSchemaRef + Referenced Schema +clientReceiptGetResponseReceipts <- Proxy (OverrideToSchema (Vector TransactionReceipt)) -> Declare (Definitions Schema) (Referenced Schema) -declare_receipts Proxy (OverrideToSchema (Vector TransactionReceipt)) +declare_receipts Proxy (OverrideToSchema (Vector TransactionReceipt)) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ClientReceiptGetResponse +Proxy.Proxy + let Proxy ClientReceiptGetResponse _ = (Enumerated ClientReceiptGetResponse_Status -> Vector TransactionReceipt -> ClientReceiptGetResponse) -> Proxy (Enumerated ClientReceiptGetResponse_Status -> Vector TransactionReceipt -> ClientReceiptGetResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ClientReceiptGetResponse_Status +Hs.pure Enumerated ClientReceiptGetResponse_Status -> Vector TransactionReceipt -> ClientReceiptGetResponse ClientReceiptGetResponse Proxy (Enumerated ClientReceiptGetResponse_Status @@ -701,69 +739,72 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Proxy (Enumerated ClientReceiptGetResponse_Status) -> Proxy (Vector TransactionReceipt -> ClientReceiptGetResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy +<*> + (Proxy (OverrideToSchema (Enumerated ClientReceiptGetResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Enumerated ClientReceiptGetResponse_Status) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy +HsJSONPB.asProxy Proxy (OverrideToSchema (Enumerated ClientReceiptGetResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status - Proxy (Vector TransactionReceipt -> ClientReceiptGetResponse) +declare_status + Proxy (Vector TransactionReceipt -> ClientReceiptGetResponse) -> Proxy (Vector TransactionReceipt) -> Proxy ClientReceiptGetResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema (Vector TransactionReceipt)) +<*> (Proxy (OverrideToSchema (Vector TransactionReceipt)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Vector TransactionReceipt) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Vector TransactionReceipt)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Vector TransactionReceipt)) -> Declare (Definitions Schema) (Referenced Schema) -declare_receipts - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_receipts + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ClientReceiptGetResponse", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ClientReceiptGetResponse", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("status", Referenced Schema -clientReceiptGetResponseStatus), - ("receipts", - Referenced Schema -clientReceiptGetResponseReceipts)]}}) - -data ClientReceiptGetResponse_Status = ClientReceiptGetResponse_StatusSTATUS_UNSET - | ClientReceiptGetResponse_StatusOK - | ClientReceiptGetResponse_StatusINTERNAL_ERROR - | ClientReceiptGetResponse_StatusNO_RESOURCE - | ClientReceiptGetResponse_StatusINVALID_ID - deriving (Int -> ClientReceiptGetResponse_Status -> ShowS +HsJSONPB.insOrdFromList + [(Text +"status", Referenced Schema +clientReceiptGetResponseStatus), + (Text +"receipts", + Referenced Schema +clientReceiptGetResponseReceipts)]}}) + +data ClientReceiptGetResponse_Status = ClientReceiptGetResponse_StatusSTATUS_UNSET + | ClientReceiptGetResponse_StatusOK + | ClientReceiptGetResponse_StatusINTERNAL_ERROR + | ClientReceiptGetResponse_StatusNO_RESOURCE + | ClientReceiptGetResponse_StatusINVALID_ID + deriving (Int -> ClientReceiptGetResponse_Status -> ShowS [ClientReceiptGetResponse_Status] -> ShowS ClientReceiptGetResponse_Status -> String (Int -> ClientReceiptGetResponse_Status -> ShowS) @@ -778,7 +819,7 @@ show :: ClientReceiptGetResponse_Status -> String $cshow :: ClientReceiptGetResponse_Status -> String showsPrec :: Int -> ClientReceiptGetResponse_Status -> ShowS $cshowsPrec :: Int -> ClientReceiptGetResponse_Status -> ShowS -Hs.Show, ClientReceiptGetResponse_Status +Hs.Show, ClientReceiptGetResponse_Status -> ClientReceiptGetResponse_Status -> Bool (ClientReceiptGetResponse_Status -> ClientReceiptGetResponse_Status -> Bool) @@ -794,7 +835,7 @@ $c/= :: ClientReceiptGetResponse_Status -> ClientReceiptGetResponse_Status -> Bool $c== :: ClientReceiptGetResponse_Status -> ClientReceiptGetResponse_Status -> Bool -Hs.Eq, (forall x. +Hs.Eq, (forall x. ClientReceiptGetResponse_Status -> Rep ClientReceiptGetResponse_Status x) -> (forall x. @@ -815,160 +856,181 @@ Rep ClientReceiptGetResponse_Status x $cfrom :: forall x. ClientReceiptGetResponse_Status -> Rep ClientReceiptGetResponse_Status x -Hs.Generic, ClientReceiptGetResponse_Status -> () +Hs.Generic, ClientReceiptGetResponse_Status -> () (ClientReceiptGetResponse_Status -> ()) -> NFData ClientReceiptGetResponse_Status forall a. (a -> ()) -> NFData a rnf :: ClientReceiptGetResponse_Status -> () $crnf :: ClientReceiptGetResponse_Status -> () -Hs.NFData) - -instance HsProtobuf.Named ClientReceiptGetResponse_Status where - nameOf :: Proxy# ClientReceiptGetResponse_Status -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ClientReceiptGetResponse_Status where + nameOf :: Proxy# ClientReceiptGetResponse_Status -> string +nameOf Proxy# ClientReceiptGetResponse_Status +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ClientReceiptGetResponse_Status") - -instance HsProtobuf.HasDefault ClientReceiptGetResponse_Status - -instance Hs.Bounded ClientReceiptGetResponse_Status where - minBound :: ClientReceiptGetResponse_Status -minBound = ClientReceiptGetResponse_Status +Hs.fromString String +"ClientReceiptGetResponse_Status") + +instance HsProtobuf.HasDefault ClientReceiptGetResponse_Status + +instance Hs.Bounded ClientReceiptGetResponse_Status where + minBound :: ClientReceiptGetResponse_Status +minBound = ClientReceiptGetResponse_Status ClientReceiptGetResponse_StatusSTATUS_UNSET - maxBound :: ClientReceiptGetResponse_Status -maxBound = ClientReceiptGetResponse_Status + maxBound :: ClientReceiptGetResponse_Status +maxBound = ClientReceiptGetResponse_Status ClientReceiptGetResponse_StatusINVALID_ID - -instance Hs.Ord ClientReceiptGetResponse_Status where - compare :: ClientReceiptGetResponse_Status + +instance Hs.Ord ClientReceiptGetResponse_Status where + compare :: ClientReceiptGetResponse_Status -> ClientReceiptGetResponse_Status -> Ordering -compare x :: ClientReceiptGetResponse_Status -x y :: ClientReceiptGetResponse_Status -y - = Int32 -> Int32 -> Ordering +compare ClientReceiptGetResponse_Status +x ClientReceiptGetResponse_Status +y + = Int32 -> Int32 -> Ordering forall a. Ord a => a -> a -> Ordering -Hs.compare (ClientReceiptGetResponse_Status -> Int32 +Hs.compare (ClientReceiptGetResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum ClientReceiptGetResponse_Status -x) - (ClientReceiptGetResponse_Status -> Int32 +HsProtobuf.fromProtoEnum ClientReceiptGetResponse_Status +x) + (ClientReceiptGetResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum ClientReceiptGetResponse_Status -y) - -instance HsProtobuf.ProtoEnum ClientReceiptGetResponse_Status where - toProtoEnumMay :: Int32 -> Maybe ClientReceiptGetResponse_Status -toProtoEnumMay 0 - = ClientReceiptGetResponse_Status +HsProtobuf.fromProtoEnum ClientReceiptGetResponse_Status +y) + +instance HsProtobuf.ProtoEnum ClientReceiptGetResponse_Status where + toProtoEnumMay :: Int32 -> Maybe ClientReceiptGetResponse_Status +toProtoEnumMay Int32 +0 + = ClientReceiptGetResponse_Status -> Maybe ClientReceiptGetResponse_Status forall a. a -> Maybe a -Hs.Just ClientReceiptGetResponse_Status +Hs.Just ClientReceiptGetResponse_Status ClientReceiptGetResponse_StatusSTATUS_UNSET - toProtoEnumMay 1 = ClientReceiptGetResponse_Status + toProtoEnumMay Int32 +1 = ClientReceiptGetResponse_Status -> Maybe ClientReceiptGetResponse_Status forall a. a -> Maybe a -Hs.Just ClientReceiptGetResponse_Status +Hs.Just ClientReceiptGetResponse_Status ClientReceiptGetResponse_StatusOK - toProtoEnumMay 2 - = ClientReceiptGetResponse_Status + toProtoEnumMay Int32 +2 + = ClientReceiptGetResponse_Status -> Maybe ClientReceiptGetResponse_Status forall a. a -> Maybe a -Hs.Just ClientReceiptGetResponse_Status +Hs.Just ClientReceiptGetResponse_Status ClientReceiptGetResponse_StatusINTERNAL_ERROR - toProtoEnumMay 5 - = ClientReceiptGetResponse_Status + toProtoEnumMay Int32 +5 + = ClientReceiptGetResponse_Status -> Maybe ClientReceiptGetResponse_Status forall a. a -> Maybe a -Hs.Just ClientReceiptGetResponse_Status +Hs.Just ClientReceiptGetResponse_Status ClientReceiptGetResponse_StatusNO_RESOURCE - toProtoEnumMay 8 - = ClientReceiptGetResponse_Status + toProtoEnumMay Int32 +8 + = ClientReceiptGetResponse_Status -> Maybe ClientReceiptGetResponse_Status forall a. a -> Maybe a -Hs.Just ClientReceiptGetResponse_Status +Hs.Just ClientReceiptGetResponse_Status ClientReceiptGetResponse_StatusINVALID_ID - toProtoEnumMay _ = Maybe ClientReceiptGetResponse_Status + toProtoEnumMay Int32 +_ = Maybe ClientReceiptGetResponse_Status forall a. Maybe a -Hs.Nothing - fromProtoEnum :: ClientReceiptGetResponse_Status -> Int32 -fromProtoEnum (ClientReceiptGetResponse_Status -ClientReceiptGetResponse_StatusSTATUS_UNSET) = 0 - fromProtoEnum (ClientReceiptGetResponse_Status -ClientReceiptGetResponse_StatusOK) = 1 - fromProtoEnum (ClientReceiptGetResponse_Status -ClientReceiptGetResponse_StatusINTERNAL_ERROR) = 2 - fromProtoEnum (ClientReceiptGetResponse_Status -ClientReceiptGetResponse_StatusNO_RESOURCE) = 5 - fromProtoEnum (ClientReceiptGetResponse_Status -ClientReceiptGetResponse_StatusINVALID_ID) = 8 - -instance HsJSONPB.ToJSONPB ClientReceiptGetResponse_Status where - toJSONPB :: ClientReceiptGetResponse_Status -> Options -> Value -toJSONPB x :: ClientReceiptGetResponse_Status -x _ = ClientReceiptGetResponse_Status -> Value +Hs.Nothing + fromProtoEnum :: ClientReceiptGetResponse_Status -> Int32 +fromProtoEnum (ClientReceiptGetResponse_Status +ClientReceiptGetResponse_StatusSTATUS_UNSET) = Int32 +0 + fromProtoEnum (ClientReceiptGetResponse_Status +ClientReceiptGetResponse_StatusOK) = Int32 +1 + fromProtoEnum (ClientReceiptGetResponse_Status +ClientReceiptGetResponse_StatusINTERNAL_ERROR) = Int32 +2 + fromProtoEnum (ClientReceiptGetResponse_Status +ClientReceiptGetResponse_StatusNO_RESOURCE) = Int32 +5 + fromProtoEnum (ClientReceiptGetResponse_Status +ClientReceiptGetResponse_StatusINVALID_ID) = Int32 +8 + +instance HsJSONPB.ToJSONPB ClientReceiptGetResponse_Status where + toJSONPB :: ClientReceiptGetResponse_Status -> Options -> Value +toJSONPB ClientReceiptGetResponse_Status +x Options +_ = ClientReceiptGetResponse_Status -> Value forall a. (Named a, Show a) => a -> Value -HsJSONPB.enumFieldString ClientReceiptGetResponse_Status -x - toEncodingPB :: ClientReceiptGetResponse_Status -> Options -> Encoding -toEncodingPB x :: ClientReceiptGetResponse_Status -x _ = ClientReceiptGetResponse_Status -> Encoding +HsJSONPB.enumFieldString ClientReceiptGetResponse_Status +x + toEncodingPB :: ClientReceiptGetResponse_Status -> Options -> Encoding +toEncodingPB ClientReceiptGetResponse_Status +x Options +_ = ClientReceiptGetResponse_Status -> Encoding forall a. (Named a, Show a) => a -> Encoding -HsJSONPB.enumFieldEncoding ClientReceiptGetResponse_Status -x - -instance HsJSONPB.FromJSONPB ClientReceiptGetResponse_Status where - parseJSONPB :: Value -> Parser ClientReceiptGetResponse_Status -parseJSONPB (HsJSONPB.String "STATUS_UNSET") - = ClientReceiptGetResponse_Status +HsJSONPB.enumFieldEncoding ClientReceiptGetResponse_Status +x + +instance HsJSONPB.FromJSONPB ClientReceiptGetResponse_Status where + parseJSONPB :: Value -> Parser ClientReceiptGetResponse_Status +parseJSONPB (HsJSONPB.String Text +"STATUS_UNSET") + = ClientReceiptGetResponse_Status -> Parser ClientReceiptGetResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientReceiptGetResponse_Status +Hs.pure ClientReceiptGetResponse_Status ClientReceiptGetResponse_StatusSTATUS_UNSET - parseJSONPB (HsJSONPB.String "OK") - = ClientReceiptGetResponse_Status + parseJSONPB (HsJSONPB.String Text +"OK") + = ClientReceiptGetResponse_Status -> Parser ClientReceiptGetResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientReceiptGetResponse_Status +Hs.pure ClientReceiptGetResponse_Status ClientReceiptGetResponse_StatusOK - parseJSONPB (HsJSONPB.String "INTERNAL_ERROR") - = ClientReceiptGetResponse_Status + parseJSONPB (HsJSONPB.String Text +"INTERNAL_ERROR") + = ClientReceiptGetResponse_Status -> Parser ClientReceiptGetResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientReceiptGetResponse_Status +Hs.pure ClientReceiptGetResponse_Status ClientReceiptGetResponse_StatusINTERNAL_ERROR - parseJSONPB (HsJSONPB.String "NO_RESOURCE") - = ClientReceiptGetResponse_Status + parseJSONPB (HsJSONPB.String Text +"NO_RESOURCE") + = ClientReceiptGetResponse_Status -> Parser ClientReceiptGetResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientReceiptGetResponse_Status +Hs.pure ClientReceiptGetResponse_Status ClientReceiptGetResponse_StatusNO_RESOURCE - parseJSONPB (HsJSONPB.String "INVALID_ID") - = ClientReceiptGetResponse_Status + parseJSONPB (HsJSONPB.String Text +"INVALID_ID") + = ClientReceiptGetResponse_Status -> Parser ClientReceiptGetResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientReceiptGetResponse_Status +Hs.pure ClientReceiptGetResponse_Status ClientReceiptGetResponse_StatusINVALID_ID - parseJSONPB v :: Value -v - = (String -> Value -> Parser ClientReceiptGetResponse_Status + parseJSONPB Value +v + = (String -> Value -> Parser ClientReceiptGetResponse_Status forall a. String -> Value -> Parser a -HsJSONPB.typeMismatch "ClientReceiptGetResponse_Status" Value -v) - -instance HsJSONPB.ToJSON ClientReceiptGetResponse_Status where - toJSON :: ClientReceiptGetResponse_Status -> Value -toJSON = ClientReceiptGetResponse_Status -> Value +HsJSONPB.typeMismatch String +"ClientReceiptGetResponse_Status" Value +v) + +instance HsJSONPB.ToJSON ClientReceiptGetResponse_Status where + toJSON :: ClientReceiptGetResponse_Status -> Value +toJSON = ClientReceiptGetResponse_Status -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ClientReceiptGetResponse_Status -> Encoding -toEncoding = ClientReceiptGetResponse_Status -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ClientReceiptGetResponse_Status -> Encoding +toEncoding = ClientReceiptGetResponse_Status -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ClientReceiptGetResponse_Status where - parseJSON :: Value -> Parser ClientReceiptGetResponse_Status -parseJSON = Value -> Parser ClientReceiptGetResponse_Status +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ClientReceiptGetResponse_Status where + parseJSON :: Value -> Parser ClientReceiptGetResponse_Status +parseJSON = Value -> Parser ClientReceiptGetResponse_Status forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsProtobuf.Finite ClientReceiptGetResponse_Status \ No newline at end of file +HsJSONPB.parseJSONPB + +instance HsProtobuf.Finite ClientReceiptGetResponse_Status \ No newline at end of file diff --git a/src/Data.Sawtooth.ClientState.html b/src/Data.Sawtooth.ClientState.html index 2a9e632..aa66199 100644 --- a/src/Data.Sawtooth.ClientState.html +++ b/src/Data.Sawtooth.ClientState.html @@ -9,48 +9,47 @@ {-# OPTIONS_GHC -fno-warn-unused-matches #-} -- | Generated by Haskell protocol buffer compiler. DO NOT EDIT! - -module Data.Sawtooth.ClientState where -import qualified Prelude as Hs -import qualified Proto3.Suite.Class as HsProtobuf -import qualified Proto3.Suite.DotProto as HsProtobuf -import qualified Proto3.Suite.JSONPB as HsJSONPB -import Proto3.Suite.JSONPB ((.=), (.:)) -import qualified Proto3.Suite.Types as HsProtobuf -import qualified Proto3.Wire as HsProtobuf -import qualified Control.Applicative as Hs -import Control.Applicative ((<*>), (<|>), (<$>)) -import qualified Control.DeepSeq as Hs -import qualified Control.Monad as Hs -import qualified Data.ByteString as Hs -import qualified Data.Coerce as Hs -import qualified Data.Int as Hs (Int16, Int32, Int64) -import qualified Data.List.NonEmpty as Hs (NonEmpty(..)) -import qualified Data.Map as Hs (Map, mapKeysMonotonic) -import qualified Data.Proxy as Proxy -import qualified Data.String as Hs (fromString) -import qualified Data.Text.Lazy as Hs (Text) -import qualified Data.Vector as Hs (Vector) -import qualified Data.Word as Hs (Word16, Word32, Word64) -import qualified GHC.Enum as Hs -import qualified GHC.Generics as Hs -import qualified Unsafe.Coerce as Hs -import qualified Data.Sawtooth.ClientListControl - -data ClientStateListRequest = ClientStateListRequest{ClientStateListRequest -> Text +module Data.Sawtooth.ClientState where +import qualified Prelude as Hs +import qualified Proto3.Suite.Class as HsProtobuf +import qualified Proto3.Suite.DotProto as HsProtobuf +import qualified Proto3.Suite.JSONPB as HsJSONPB +import Proto3.Suite.JSONPB ((.=), (.:)) +import qualified Proto3.Suite.Types as HsProtobuf +import qualified Proto3.Wire as HsProtobuf +import qualified Control.Applicative as Hs +import Control.Applicative ((<*>), (<|>), (<$>)) +import qualified Control.DeepSeq as Hs +import qualified Control.Monad as Hs +import qualified Data.ByteString as Hs +import qualified Data.Coerce as Hs +import qualified Data.Int as Hs (Int16, Int32, Int64) +import qualified Data.List.NonEmpty as Hs (NonEmpty(..)) +import qualified Data.Map as Hs (Map, mapKeysMonotonic) +import qualified Data.Proxy as Proxy +import qualified Data.String as Hs (fromString) +import qualified Data.Text.Lazy as Hs (Text) +import qualified Data.Vector as Hs (Vector) +import qualified Data.Word as Hs (Word16, Word32, Word64) +import qualified GHC.Enum as Hs +import qualified GHC.Generics as Hs +import qualified Unsafe.Coerce as Hs +import qualified Data.Sawtooth.ClientListControl + +data ClientStateListRequest = ClientStateListRequest{ClientStateListRequest -> Text clientStateListRequestStateRoot - :: Hs.Text, - ClientStateListRequest -> Text -clientStateListRequestAddress :: Hs.Text, - ClientStateListRequest -> Maybe ClientPagingControls + :: Hs.Text, + ClientStateListRequest -> Text +clientStateListRequestAddress :: Hs.Text, + ClientStateListRequest -> Maybe ClientPagingControls clientStateListRequestPaging :: - Hs.Maybe - Data.Sawtooth.ClientListControl.ClientPagingControls, - ClientStateListRequest -> Vector ClientSortControls + Hs.Maybe + Data.Sawtooth.ClientListControl.ClientPagingControls, + ClientStateListRequest -> Vector ClientSortControls clientStateListRequestSorting :: - Hs.Vector - Data.Sawtooth.ClientListControl.ClientSortControls} - deriving (Int -> ClientStateListRequest -> ShowS + Hs.Vector + Data.Sawtooth.ClientListControl.ClientSortControls} + deriving (Int -> ClientStateListRequest -> ShowS [ClientStateListRequest] -> ShowS ClientStateListRequest -> String (Int -> ClientStateListRequest -> ShowS) @@ -65,7 +64,7 @@ show :: ClientStateListRequest -> String $cshow :: ClientStateListRequest -> String showsPrec :: Int -> ClientStateListRequest -> ShowS $cshowsPrec :: Int -> ClientStateListRequest -> ShowS -Hs.Show, ClientStateListRequest -> ClientStateListRequest -> Bool +Hs.Show, ClientStateListRequest -> ClientStateListRequest -> Bool (ClientStateListRequest -> ClientStateListRequest -> Bool) -> (ClientStateListRequest -> ClientStateListRequest -> Bool) -> Eq ClientStateListRequest @@ -74,9 +73,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: ClientStateListRequest -> ClientStateListRequest -> Bool == :: ClientStateListRequest -> ClientStateListRequest -> Bool $c== :: ClientStateListRequest -> ClientStateListRequest -> Bool -Hs.Eq, Eq ClientStateListRequest -Eq ClientStateListRequest => -(ClientStateListRequest -> ClientStateListRequest -> Ordering) +Hs.Eq, Eq ClientStateListRequest +Eq ClientStateListRequest +-> (ClientStateListRequest -> ClientStateListRequest -> Ordering) -> (ClientStateListRequest -> ClientStateListRequest -> Bool) -> (ClientStateListRequest -> ClientStateListRequest -> Bool) -> (ClientStateListRequest -> ClientStateListRequest -> Bool) @@ -91,8 +90,8 @@ ClientStateListRequest -> ClientStateListRequest -> Ordering ClientStateListRequest -> ClientStateListRequest -> ClientStateListRequest forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -119,7 +118,7 @@ $c< :: ClientStateListRequest -> ClientStateListRequest -> Bool compare :: ClientStateListRequest -> ClientStateListRequest -> Ordering $ccompare :: ClientStateListRequest -> ClientStateListRequest -> Ordering $cp1Ord :: Eq ClientStateListRequest -Hs.Ord, (forall x. ClientStateListRequest -> Rep ClientStateListRequest x) +Hs.Ord, (forall x. ClientStateListRequest -> Rep ClientStateListRequest x) -> (forall x. Rep ClientStateListRequest x -> ClientStateListRequest) -> Generic ClientStateListRequest @@ -129,77 +128,83 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep ClientStateListRequest x -> ClientStateListRequest $cfrom :: forall x. ClientStateListRequest -> Rep ClientStateListRequest x -Hs.Generic, ClientStateListRequest -> () +Hs.Generic, ClientStateListRequest -> () (ClientStateListRequest -> ()) -> NFData ClientStateListRequest forall a. (a -> ()) -> NFData a rnf :: ClientStateListRequest -> () $crnf :: ClientStateListRequest -> () -Hs.NFData) - -instance HsProtobuf.Named ClientStateListRequest where - nameOf :: Proxy# ClientStateListRequest -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ClientStateListRequest where + nameOf :: Proxy# ClientStateListRequest -> string +nameOf Proxy# ClientStateListRequest +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ClientStateListRequest") - -instance HsProtobuf.HasDefault ClientStateListRequest - -instance HsProtobuf.Message ClientStateListRequest where - encodeMessage :: FieldNumber -> ClientStateListRequest -> MessageBuilder -encodeMessage _ - ClientStateListRequest{clientStateListRequestStateRoot :: ClientStateListRequest -> Text +Hs.fromString String +"ClientStateListRequest") + +instance HsProtobuf.HasDefault ClientStateListRequest + +instance HsProtobuf.Message ClientStateListRequest where + encodeMessage :: FieldNumber -> ClientStateListRequest -> MessageBuilder +encodeMessage FieldNumber +_ + ClientStateListRequest{clientStateListRequestStateRoot :: ClientStateListRequest -> Text clientStateListRequestStateRoot = - Text -clientStateListRequestStateRoot, - clientStateListRequestAddress :: ClientStateListRequest -> Text -clientStateListRequestAddress = Text -clientStateListRequestAddress, - clientStateListRequestPaging :: ClientStateListRequest -> Maybe ClientPagingControls -clientStateListRequestPaging = Maybe ClientPagingControls -clientStateListRequestPaging, - clientStateListRequestSorting :: ClientStateListRequest -> Vector ClientSortControls -clientStateListRequestSorting = Vector ClientSortControls -clientStateListRequestSorting} - = ([MessageBuilder] -> MessageBuilder + Text +clientStateListRequestStateRoot, + clientStateListRequestAddress :: ClientStateListRequest -> Text +clientStateListRequestAddress = Text +clientStateListRequestAddress, + clientStateListRequestPaging :: ClientStateListRequest -> Maybe ClientPagingControls +clientStateListRequestPaging = Maybe ClientPagingControls +clientStateListRequestPaging, + clientStateListRequestSorting :: ClientStateListRequest -> Vector ClientSortControls +clientStateListRequestSorting = Vector ClientSortControls +clientStateListRequestSorting} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> Text -> MessageBuilder +Hs.mconcat + [(FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Text -clientStateListRequestStateRoot), - (FieldNumber -> Text -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Text +clientStateListRequestStateRoot), + (FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - Text -clientStateListRequestAddress), - (FieldNumber -> Nested ClientPagingControls -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + Text +clientStateListRequestAddress), + (FieldNumber -> Nested ClientPagingControls -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 4) - (Maybe ClientPagingControls -> Nested ClientPagingControls -forall a b. Coercible a b => a -> b -Hs.coerce - @(Hs.Maybe Data.Sawtooth.ClientListControl.ClientPagingControls) - @(HsProtobuf.Nested Data.Sawtooth.ClientListControl.ClientPagingControls) - Maybe ClientPagingControls -clientStateListRequestPaging)), - (FieldNumber -> NestedVec ClientSortControls -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +4) + (Maybe ClientPagingControls -> Nested ClientPagingControls +Hs.coerce + @(Hs.Maybe Data.Sawtooth.ClientListControl.ClientPagingControls) + @(HsProtobuf.Nested Data.Sawtooth.ClientListControl.ClientPagingControls) + Maybe ClientPagingControls +clientStateListRequestPaging)), + (FieldNumber -> NestedVec ClientSortControls -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 5) - (Vector ClientSortControls -> NestedVec ClientSortControls -forall a b. Coercible a b => a -> b -Hs.coerce - @(Hs.Vector Data.Sawtooth.ClientListControl.ClientSortControls) - @(HsProtobuf.NestedVec Data.Sawtooth.ClientListControl.ClientSortControls) - Vector ClientSortControls -clientStateListRequestSorting))]) - decodeMessage :: FieldNumber -> Parser RawMessage ClientStateListRequest -decodeMessage _ - = ((Text +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +5) + (Vector ClientSortControls -> NestedVec ClientSortControls +Hs.coerce + @(Hs.Vector Data.Sawtooth.ClientListControl.ClientSortControls) + @(HsProtobuf.NestedVec Data.Sawtooth.ClientListControl.ClientSortControls) + Vector ClientSortControls +clientStateListRequestSorting))]) + decodeMessage :: FieldNumber -> Parser RawMessage ClientStateListRequest +decodeMessage FieldNumber +_ + = ((Text -> Text -> Maybe ClientPagingControls -> Vector ClientSortControls @@ -212,7 +217,7 @@ forall a b. Coercible a b => a -> b -> Vector ClientSortControls -> ClientStateListRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text +Hs.pure Text -> Text -> Maybe ClientPagingControls -> Vector ClientSortControls @@ -232,15 +237,16 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Vector ClientSortControls -> ClientStateListRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (Text -> Maybe ClientPagingControls @@ -252,15 +258,16 @@ forall a. MessageField a => Parser RawField a (Maybe ClientPagingControls -> Vector ClientSortControls -> ClientStateListRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3)) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3)) + Parser RawMessage (Maybe ClientPagingControls -> Vector ClientSortControls -> ClientStateListRequest) @@ -268,182 +275,206 @@ forall a. MessageField a => Parser RawField a -> Parser RawMessage (Vector ClientSortControls -> ClientStateListRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (Nested ClientPagingControls) +<*> + (Parser RawMessage (Nested ClientPagingControls) -> Parser RawMessage (Maybe ClientPagingControls) -forall a b. Coercible a b => a -> b -Hs.coerce - @(_ (HsProtobuf.Nested Data.Sawtooth.ClientListControl.ClientPagingControls)) - @(_ (Hs.Maybe Data.Sawtooth.ClientListControl.ClientPagingControls)) - (Parser RawField (Nested ClientPagingControls) +Hs.coerce + @(_ (HsProtobuf.Nested Data.Sawtooth.ClientListControl.ClientPagingControls)) + @(_ (Hs.Maybe Data.Sawtooth.ClientListControl.ClientPagingControls)) + (Parser RawField (Nested ClientPagingControls) -> FieldNumber -> Parser RawMessage (Nested ClientPagingControls) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (Nested ClientPagingControls) +HsProtobuf.at Parser RawField (Nested ClientPagingControls) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 4))) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +4))) + Parser RawMessage (Vector ClientSortControls -> ClientStateListRequest) -> Parser RawMessage (Vector ClientSortControls) -> Parser RawMessage ClientStateListRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (NestedVec ClientSortControls) +<*> + (Parser RawMessage (NestedVec ClientSortControls) -> Parser RawMessage (Vector ClientSortControls) -forall a b. Coercible a b => a -> b -Hs.coerce - @(_ (HsProtobuf.NestedVec Data.Sawtooth.ClientListControl.ClientSortControls)) - @(_ (Hs.Vector Data.Sawtooth.ClientListControl.ClientSortControls)) - (Parser RawField (NestedVec ClientSortControls) +Hs.coerce + @(_ (HsProtobuf.NestedVec Data.Sawtooth.ClientListControl.ClientSortControls)) + @(_ (Hs.Vector Data.Sawtooth.ClientListControl.ClientSortControls)) + (Parser RawField (NestedVec ClientSortControls) -> FieldNumber -> Parser RawMessage (NestedVec ClientSortControls) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (NestedVec ClientSortControls) +HsProtobuf.at Parser RawField (NestedVec ClientSortControls) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 5))) - dotProto :: Proxy# ClientStateListRequest -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +5))) + dotProto :: Proxy# ClientStateListRequest -> [DotProtoField] +dotProto Proxy# ClientStateListRequest +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "state_root") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"state_root") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "address") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"address") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 4) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim - (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "ClientPagingControls"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "paging") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +4) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim + (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"ClientPagingControls"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"paging") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 5) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Repeated - (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "ClientSortControls"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "sorting") - [] - "")] - -instance HsJSONPB.ToJSONPB ClientStateListRequest where - toJSONPB :: ClientStateListRequest -> Options -> Value -toJSONPB (ClientStateListRequest f1 :: Text -f1 f3 :: Text -f3 f4 :: Maybe ClientPagingControls -f4 f5 :: Vector ClientSortControls -f5) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object - ["state_root" Text -> Text -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +5) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Repeated + (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"ClientSortControls"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"sorting") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ClientStateListRequest where + toJSONPB :: ClientStateListRequest -> Options -> Value +toJSONPB (ClientStateListRequest Text +f1 Text +f3 Maybe ClientPagingControls +f4 Vector ClientSortControls +f5) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object + [Text +"state_root" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1, "address" Text -> Text -> Options -> [Pair] +.= Text +f1, Text +"address" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f3, "paging" Text -> Maybe ClientPagingControls -> Options -> [Pair] +.= Text +f3, Text +"paging" Text -> Maybe ClientPagingControls -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Maybe ClientPagingControls -f4, - "sorting" Text -> Vector ClientSortControls -> Options -> [Pair] +.= Maybe ClientPagingControls +f4, + Text +"sorting" Text -> Vector ClientSortControls -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector ClientSortControls -f5]) - toEncodingPB :: ClientStateListRequest -> Options -> Encoding -toEncodingPB (ClientStateListRequest f1 :: Text -f1 f3 :: Text -f3 f4 :: Maybe ClientPagingControls -f4 f5 :: Vector ClientSortControls -f5) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs - ["state_root" Text -> Text -> Options -> Series +.= Vector ClientSortControls +f5]) + toEncodingPB :: ClientStateListRequest -> Options -> Encoding +toEncodingPB (ClientStateListRequest Text +f1 Text +f3 Maybe ClientPagingControls +f4 Vector ClientSortControls +f5) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs + [Text +"state_root" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1, "address" Text -> Text -> Options -> Series +.= Text +f1, Text +"address" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f3, "paging" Text -> Maybe ClientPagingControls -> Options -> Series +.= Text +f3, Text +"paging" Text -> Maybe ClientPagingControls -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Maybe ClientPagingControls -f4, - "sorting" Text -> Vector ClientSortControls -> Options -> Series +.= Maybe ClientPagingControls +f4, + Text +"sorting" Text -> Vector ClientSortControls -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector ClientSortControls -f5]) - -instance HsJSONPB.FromJSONPB ClientStateListRequest where - parseJSONPB :: Value -> Parser ClientStateListRequest -parseJSONPB - = (String +.= Vector ClientSortControls +f5]) + +instance HsJSONPB.FromJSONPB ClientStateListRequest where + parseJSONPB :: Value -> Parser ClientStateListRequest +parseJSONPB + = (String -> (Object -> Parser ClientStateListRequest) -> Value -> Parser ClientStateListRequest forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ClientStateListRequest" - (\ obj :: Object -obj -> - ((Text +HsJSONPB.withObject String +"ClientStateListRequest" + (\ Object +obj -> + ((Text -> Text -> Maybe ClientPagingControls -> Vector ClientSortControls @@ -455,7 +486,7 @@ forall a. String -> (Object -> Parser a) -> Value -> Parser a -> Vector ClientSortControls -> ClientStateListRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text +Hs.pure Text -> Text -> Maybe ClientPagingControls -> Vector ClientSortControls @@ -473,12 +504,13 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Vector ClientSortControls -> ClientStateListRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Text +<*> Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "state_root" Parser +.: Text +"state_root" Parser (Text -> Maybe ClientPagingControls -> Vector ClientSortControls @@ -488,113 +520,117 @@ Object -> Text -> Parser a (Maybe ClientPagingControls -> Vector ClientSortControls -> ClientStateListRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser Text +<*> + Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "address" - Parser +.: Text +"address" + Parser (Maybe ClientPagingControls -> Vector ClientSortControls -> ClientStateListRequest) -> Parser (Maybe ClientPagingControls) -> Parser (Vector ClientSortControls -> ClientStateListRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser (Maybe ClientPagingControls) +<*> Object +obj Object -> Text -> Parser (Maybe ClientPagingControls) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "paging" - Parser (Vector ClientSortControls -> ClientStateListRequest) +.: Text +"paging" + Parser (Vector ClientSortControls -> ClientStateListRequest) -> Parser (Vector ClientSortControls) -> Parser ClientStateListRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser (Vector ClientSortControls) +<*> Object +obj Object -> Text -> Parser (Vector ClientSortControls) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "sorting")) - -instance HsJSONPB.ToJSON ClientStateListRequest where - toJSON :: ClientStateListRequest -> Value -toJSON = ClientStateListRequest -> Value +.: Text +"sorting")) + +instance HsJSONPB.ToJSON ClientStateListRequest where + toJSON :: ClientStateListRequest -> Value +toJSON = ClientStateListRequest -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ClientStateListRequest -> Encoding -toEncoding = ClientStateListRequest -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ClientStateListRequest -> Encoding +toEncoding = ClientStateListRequest -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ClientStateListRequest where - parseJSON :: Value -> Parser ClientStateListRequest -parseJSON = Value -> Parser ClientStateListRequest +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ClientStateListRequest where + parseJSON :: Value -> Parser ClientStateListRequest +parseJSON = Value -> Parser ClientStateListRequest forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ClientStateListRequest where - declareNamedSchema :: Proxy ClientStateListRequest +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ClientStateListRequest where + declareNamedSchema :: Proxy ClientStateListRequest -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_state_root :: Proxy (OverrideToSchema Text) +declareNamedSchema Proxy ClientStateListRequest +_ + = do let declare_state_root :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_state_root = Proxy (OverrideToSchema Text) +declare_state_root = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientStateListRequestStateRoot <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +clientStateListRequestStateRoot <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_state_root Proxy (OverrideToSchema Text) +declare_state_root Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_address :: Proxy (OverrideToSchema Text) +Proxy.Proxy + let declare_address :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_address = Proxy (OverrideToSchema Text) +declare_address = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientStateListRequestAddress <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +clientStateListRequestAddress <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_address Proxy (OverrideToSchema Text) +declare_address Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_paging :: Proxy (OverrideToSchema (Maybe ClientPagingControls)) +Proxy.Proxy + let declare_paging :: Proxy (OverrideToSchema (Maybe ClientPagingControls)) -> Declare (Definitions Schema) (Referenced Schema) -declare_paging = Proxy (OverrideToSchema (Maybe ClientPagingControls)) +declare_paging = Proxy (OverrideToSchema (Maybe ClientPagingControls)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientStateListRequestPaging <- Proxy (OverrideToSchema (Maybe ClientPagingControls)) +HsJSONPB.declareSchemaRef + Referenced Schema +clientStateListRequestPaging <- Proxy (OverrideToSchema (Maybe ClientPagingControls)) -> Declare (Definitions Schema) (Referenced Schema) -declare_paging Proxy (OverrideToSchema (Maybe ClientPagingControls)) +declare_paging Proxy (OverrideToSchema (Maybe ClientPagingControls)) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_sorting :: Proxy (OverrideToSchema (Vector ClientSortControls)) +Proxy.Proxy + let declare_sorting :: Proxy (OverrideToSchema (Vector ClientSortControls)) -> Declare (Definitions Schema) (Referenced Schema) -declare_sorting = Proxy (OverrideToSchema (Vector ClientSortControls)) +declare_sorting = Proxy (OverrideToSchema (Vector ClientSortControls)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientStateListRequestSorting <- Proxy (OverrideToSchema (Vector ClientSortControls)) +HsJSONPB.declareSchemaRef + Referenced Schema +clientStateListRequestSorting <- Proxy (OverrideToSchema (Vector ClientSortControls)) -> Declare (Definitions Schema) (Referenced Schema) -declare_sorting Proxy (OverrideToSchema (Vector ClientSortControls)) +declare_sorting Proxy (OverrideToSchema (Vector ClientSortControls)) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ClientStateListRequest +Proxy.Proxy + let Proxy ClientStateListRequest _ = (Text -> Text -> Maybe ClientPagingControls @@ -607,7 +643,7 @@ forall k (t :: k). Proxy t -> Vector ClientSortControls -> ClientStateListRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text +Hs.pure Text -> Text -> Maybe ClientPagingControls -> Vector ClientSortControls @@ -625,15 +661,15 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Vector ClientSortControls -> ClientStateListRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema Text) +<*> + (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_state_root - Proxy +declare_state_root + Proxy (Text -> Maybe ClientPagingControls -> Vector ClientSortControls @@ -643,95 +679,100 @@ forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a (Maybe ClientPagingControls -> Vector ClientSortControls -> ClientStateListRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema Text) +<*> (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_address - Proxy +declare_address + Proxy (Maybe ClientPagingControls -> Vector ClientSortControls -> ClientStateListRequest) -> Proxy (Maybe ClientPagingControls) -> Proxy (Vector ClientSortControls -> ClientStateListRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema (Maybe ClientPagingControls)) +<*> (Proxy (OverrideToSchema (Maybe ClientPagingControls)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Maybe ClientPagingControls) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Maybe ClientPagingControls)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Maybe ClientPagingControls)) -> Declare (Definitions Schema) (Referenced Schema) -declare_paging - Proxy (Vector ClientSortControls -> ClientStateListRequest) +declare_paging + Proxy (Vector ClientSortControls -> ClientStateListRequest) -> Proxy (Vector ClientSortControls) -> Proxy ClientStateListRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema (Vector ClientSortControls)) +<*> (Proxy (OverrideToSchema (Vector ClientSortControls)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Vector ClientSortControls) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Vector ClientSortControls)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Vector ClientSortControls)) -> Declare (Definitions Schema) (Referenced Schema) -declare_sorting - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_sorting + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ClientStateListRequest", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ClientStateListRequest", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("state_root", - Referenced Schema -clientStateListRequestStateRoot), - ("address", Referenced Schema -clientStateListRequestAddress), - ("paging", Referenced Schema -clientStateListRequestPaging), - ("sorting", - Referenced Schema -clientStateListRequestSorting)]}}) - -data ClientStateListResponse = ClientStateListResponse{ClientStateListResponse +HsJSONPB.insOrdFromList + [(Text +"state_root", + Referenced Schema +clientStateListRequestStateRoot), + (Text +"address", Referenced Schema +clientStateListRequestAddress), + (Text +"paging", Referenced Schema +clientStateListRequestPaging), + (Text +"sorting", + Referenced Schema +clientStateListRequestSorting)]}}) + +data ClientStateListResponse = ClientStateListResponse{ClientStateListResponse -> Enumerated ClientStateListResponse_Status clientStateListResponseStatus - :: - HsProtobuf.Enumerated - Data.Sawtooth.ClientState.ClientStateListResponse_Status, - ClientStateListResponse -> Vector ClientStateListResponse_Entry + :: + HsProtobuf.Enumerated + Data.Sawtooth.ClientState.ClientStateListResponse_Status, + ClientStateListResponse -> Vector ClientStateListResponse_Entry clientStateListResponseEntries :: - Hs.Vector - Data.Sawtooth.ClientState.ClientStateListResponse_Entry, - ClientStateListResponse -> Text -clientStateListResponseStateRoot :: Hs.Text, - ClientStateListResponse -> Maybe ClientPagingResponse + Hs.Vector + Data.Sawtooth.ClientState.ClientStateListResponse_Entry, + ClientStateListResponse -> Text +clientStateListResponseStateRoot :: Hs.Text, + ClientStateListResponse -> Maybe ClientPagingResponse clientStateListResponsePaging :: - Hs.Maybe - Data.Sawtooth.ClientListControl.ClientPagingResponse} - deriving (Int -> ClientStateListResponse -> ShowS + Hs.Maybe + Data.Sawtooth.ClientListControl.ClientPagingResponse} + deriving (Int -> ClientStateListResponse -> ShowS [ClientStateListResponse] -> ShowS ClientStateListResponse -> String (Int -> ClientStateListResponse -> ShowS) @@ -746,7 +787,7 @@ show :: ClientStateListResponse -> String $cshow :: ClientStateListResponse -> String showsPrec :: Int -> ClientStateListResponse -> ShowS $cshowsPrec :: Int -> ClientStateListResponse -> ShowS -Hs.Show, ClientStateListResponse -> ClientStateListResponse -> Bool +Hs.Show, ClientStateListResponse -> ClientStateListResponse -> Bool (ClientStateListResponse -> ClientStateListResponse -> Bool) -> (ClientStateListResponse -> ClientStateListResponse -> Bool) -> Eq ClientStateListResponse @@ -755,9 +796,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: ClientStateListResponse -> ClientStateListResponse -> Bool == :: ClientStateListResponse -> ClientStateListResponse -> Bool $c== :: ClientStateListResponse -> ClientStateListResponse -> Bool -Hs.Eq, Eq ClientStateListResponse -Eq ClientStateListResponse => -(ClientStateListResponse -> ClientStateListResponse -> Ordering) +Hs.Eq, Eq ClientStateListResponse +Eq ClientStateListResponse +-> (ClientStateListResponse -> ClientStateListResponse -> Ordering) -> (ClientStateListResponse -> ClientStateListResponse -> Bool) -> (ClientStateListResponse -> ClientStateListResponse -> Bool) -> (ClientStateListResponse -> ClientStateListResponse -> Bool) @@ -772,8 +813,8 @@ ClientStateListResponse -> ClientStateListResponse -> Ordering ClientStateListResponse -> ClientStateListResponse -> ClientStateListResponse forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -800,7 +841,7 @@ $c< :: ClientStateListResponse -> ClientStateListResponse -> Bool compare :: ClientStateListResponse -> ClientStateListResponse -> Ordering $ccompare :: ClientStateListResponse -> ClientStateListResponse -> Ordering $cp1Ord :: Eq ClientStateListResponse -Hs.Ord, (forall x. +Hs.Ord, (forall x. ClientStateListResponse -> Rep ClientStateListResponse x) -> (forall x. Rep ClientStateListResponse x -> ClientStateListResponse) @@ -811,82 +852,88 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep ClientStateListResponse x -> ClientStateListResponse $cfrom :: forall x. ClientStateListResponse -> Rep ClientStateListResponse x -Hs.Generic, ClientStateListResponse -> () +Hs.Generic, ClientStateListResponse -> () (ClientStateListResponse -> ()) -> NFData ClientStateListResponse forall a. (a -> ()) -> NFData a rnf :: ClientStateListResponse -> () $crnf :: ClientStateListResponse -> () -Hs.NFData) - -instance HsProtobuf.Named ClientStateListResponse where - nameOf :: Proxy# ClientStateListResponse -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ClientStateListResponse where + nameOf :: Proxy# ClientStateListResponse -> string +nameOf Proxy# ClientStateListResponse +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ClientStateListResponse") - -instance HsProtobuf.HasDefault ClientStateListResponse - -instance HsProtobuf.Message ClientStateListResponse where - encodeMessage :: FieldNumber -> ClientStateListResponse -> MessageBuilder -encodeMessage _ - ClientStateListResponse{clientStateListResponseStatus :: ClientStateListResponse +Hs.fromString String +"ClientStateListResponse") + +instance HsProtobuf.HasDefault ClientStateListResponse + +instance HsProtobuf.Message ClientStateListResponse where + encodeMessage :: FieldNumber -> ClientStateListResponse -> MessageBuilder +encodeMessage FieldNumber +_ + ClientStateListResponse{clientStateListResponseStatus :: ClientStateListResponse -> Enumerated ClientStateListResponse_Status clientStateListResponseStatus = - Enumerated ClientStateListResponse_Status -clientStateListResponseStatus, - clientStateListResponseEntries :: ClientStateListResponse -> Vector ClientStateListResponse_Entry -clientStateListResponseEntries = Vector ClientStateListResponse_Entry -clientStateListResponseEntries, - clientStateListResponseStateRoot :: ClientStateListResponse -> Text + Enumerated ClientStateListResponse_Status +clientStateListResponseStatus, + clientStateListResponseEntries :: ClientStateListResponse -> Vector ClientStateListResponse_Entry +clientStateListResponseEntries = Vector ClientStateListResponse_Entry +clientStateListResponseEntries, + clientStateListResponseStateRoot :: ClientStateListResponse -> Text clientStateListResponseStateRoot = - Text -clientStateListResponseStateRoot, - clientStateListResponsePaging :: ClientStateListResponse -> Maybe ClientPagingResponse -clientStateListResponsePaging = Maybe ClientPagingResponse -clientStateListResponsePaging} - = ([MessageBuilder] -> MessageBuilder + Text +clientStateListResponseStateRoot, + clientStateListResponsePaging :: ClientStateListResponse -> Maybe ClientPagingResponse +clientStateListResponsePaging = Maybe ClientPagingResponse +clientStateListResponsePaging} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber +Hs.mconcat + [(FieldNumber -> Enumerated ClientStateListResponse_Status -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Enumerated ClientStateListResponse_Status -clientStateListResponseStatus), - (FieldNumber +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Enumerated ClientStateListResponse_Status +clientStateListResponseStatus), + (FieldNumber -> NestedVec ClientStateListResponse_Entry -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (Vector ClientStateListResponse_Entry +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (Vector ClientStateListResponse_Entry -> NestedVec ClientStateListResponse_Entry -forall a b. Coercible a b => a -> b -Hs.coerce - @(Hs.Vector Data.Sawtooth.ClientState.ClientStateListResponse_Entry) - @(HsProtobuf.NestedVec Data.Sawtooth.ClientState.ClientStateListResponse_Entry) - Vector ClientStateListResponse_Entry -clientStateListResponseEntries)), - (FieldNumber -> Text -> MessageBuilder +Hs.coerce + @(Hs.Vector Data.Sawtooth.ClientState.ClientStateListResponse_Entry) + @(HsProtobuf.NestedVec Data.Sawtooth.ClientState.ClientStateListResponse_Entry) + Vector ClientStateListResponse_Entry +clientStateListResponseEntries)), + (FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - Text -clientStateListResponseStateRoot), - (FieldNumber -> Nested ClientPagingResponse -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + Text +clientStateListResponseStateRoot), + (FieldNumber -> Nested ClientPagingResponse -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 4) - (Maybe ClientPagingResponse -> Nested ClientPagingResponse -forall a b. Coercible a b => a -> b -Hs.coerce - @(Hs.Maybe Data.Sawtooth.ClientListControl.ClientPagingResponse) - @(HsProtobuf.Nested Data.Sawtooth.ClientListControl.ClientPagingResponse) - Maybe ClientPagingResponse -clientStateListResponsePaging))]) - decodeMessage :: FieldNumber -> Parser RawMessage ClientStateListResponse -decodeMessage _ - = ((Enumerated ClientStateListResponse_Status +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +4) + (Maybe ClientPagingResponse -> Nested ClientPagingResponse +Hs.coerce + @(Hs.Maybe Data.Sawtooth.ClientListControl.ClientPagingResponse) + @(HsProtobuf.Nested Data.Sawtooth.ClientListControl.ClientPagingResponse) + Maybe ClientPagingResponse +clientStateListResponsePaging))]) + decodeMessage :: FieldNumber -> Parser RawMessage ClientStateListResponse +decodeMessage FieldNumber +_ + = ((Enumerated ClientStateListResponse_Status -> Vector ClientStateListResponse_Entry -> Text -> Maybe ClientPagingResponse @@ -899,7 +946,7 @@ forall a b. Coercible a b => a -> b -> Maybe ClientPagingResponse -> ClientStateListResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ClientStateListResponse_Status +Hs.pure Enumerated ClientStateListResponse_Status -> Vector ClientStateListResponse_Entry -> Text -> Maybe ClientPagingResponse @@ -917,17 +964,18 @@ forall (f :: * -> *) a. Applicative f => a -> f a (Vector ClientStateListResponse_Entry -> Text -> Maybe ClientPagingResponse -> ClientStateListResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField (Enumerated ClientStateListResponse_Status) +<*> + (Parser RawField (Enumerated ClientStateListResponse_Status) -> FieldNumber -> Parser RawMessage (Enumerated ClientStateListResponse_Status) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (Enumerated ClientStateListResponse_Status) +HsProtobuf.at Parser RawField (Enumerated ClientStateListResponse_Status) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (Vector ClientStateListResponse_Entry -> Text -> Maybe ClientPagingResponse -> ClientStateListResponse) @@ -936,201 +984,227 @@ forall a. MessageField a => Parser RawField a RawMessage (Text -> Maybe ClientPagingResponse -> ClientStateListResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (NestedVec ClientStateListResponse_Entry) +<*> + (Parser RawMessage (NestedVec ClientStateListResponse_Entry) -> Parser RawMessage (Vector ClientStateListResponse_Entry) -forall a b. Coercible a b => a -> b -Hs.coerce - @(_ (HsProtobuf.NestedVec Data.Sawtooth.ClientState.ClientStateListResponse_Entry)) - @(_ (Hs.Vector Data.Sawtooth.ClientState.ClientStateListResponse_Entry)) - (Parser RawField (NestedVec ClientStateListResponse_Entry) +Hs.coerce + @(_ (HsProtobuf.NestedVec Data.Sawtooth.ClientState.ClientStateListResponse_Entry)) + @(_ (Hs.Vector Data.Sawtooth.ClientState.ClientStateListResponse_Entry)) + (Parser RawField (NestedVec ClientStateListResponse_Entry) -> FieldNumber -> Parser RawMessage (NestedVec ClientStateListResponse_Entry) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (NestedVec ClientStateListResponse_Entry) +HsProtobuf.at Parser RawField (NestedVec ClientStateListResponse_Entry) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2))) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2))) + Parser RawMessage (Text -> Maybe ClientPagingResponse -> ClientStateListResponse) -> Parser RawMessage Text -> Parser RawMessage (Maybe ClientPagingResponse -> ClientStateListResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3)) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3)) + Parser RawMessage (Maybe ClientPagingResponse -> ClientStateListResponse) -> Parser RawMessage (Maybe ClientPagingResponse) -> Parser RawMessage ClientStateListResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (Nested ClientPagingResponse) +<*> + (Parser RawMessage (Nested ClientPagingResponse) -> Parser RawMessage (Maybe ClientPagingResponse) -forall a b. Coercible a b => a -> b -Hs.coerce - @(_ (HsProtobuf.Nested Data.Sawtooth.ClientListControl.ClientPagingResponse)) - @(_ (Hs.Maybe Data.Sawtooth.ClientListControl.ClientPagingResponse)) - (Parser RawField (Nested ClientPagingResponse) +Hs.coerce + @(_ (HsProtobuf.Nested Data.Sawtooth.ClientListControl.ClientPagingResponse)) + @(_ (Hs.Maybe Data.Sawtooth.ClientListControl.ClientPagingResponse)) + (Parser RawField (Nested ClientPagingResponse) -> FieldNumber -> Parser RawMessage (Nested ClientPagingResponse) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (Nested ClientPagingResponse) +HsProtobuf.at Parser RawField (Nested ClientPagingResponse) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 4))) - dotProto :: Proxy# ClientStateListResponse -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +4))) + dotProto :: Proxy# ClientStateListResponse -> [DotProtoField] +dotProto Proxy# ClientStateListResponse +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "Status"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "status") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"Status"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"status") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Repeated - (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "Entry"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "entries") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Repeated + (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"Entry"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"entries") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "state_root") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"state_root") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 4) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim - (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "ClientPagingResponse"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "paging") - [] - "")] - -instance HsJSONPB.ToJSONPB ClientStateListResponse where - toJSONPB :: ClientStateListResponse -> Options -> Value -toJSONPB (ClientStateListResponse f1 :: Enumerated ClientStateListResponse_Status -f1 f2 :: Vector ClientStateListResponse_Entry -f2 f3 :: Text -f3 f4 :: Maybe ClientPagingResponse -f4) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object - ["status" Text +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +4) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim + (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"ClientPagingResponse"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"paging") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ClientStateListResponse where + toJSONPB :: ClientStateListResponse -> Options -> Value +toJSONPB (ClientStateListResponse Enumerated ClientStateListResponse_Status +f1 Vector ClientStateListResponse_Entry +f2 Text +f3 Maybe ClientPagingResponse +f4) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object + [Text +"status" Text -> Enumerated ClientStateListResponse_Status -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated ClientStateListResponse_Status -f1, "entries" Text -> Vector ClientStateListResponse_Entry -> Options -> [Pair] +.= Enumerated ClientStateListResponse_Status +f1, Text +"entries" Text -> Vector ClientStateListResponse_Entry -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector ClientStateListResponse_Entry -f2, "state_root" Text -> Text -> Options -> [Pair] +.= Vector ClientStateListResponse_Entry +f2, Text +"state_root" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f3, - "paging" Text -> Maybe ClientPagingResponse -> Options -> [Pair] +.= Text +f3, + Text +"paging" Text -> Maybe ClientPagingResponse -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Maybe ClientPagingResponse -f4]) - toEncodingPB :: ClientStateListResponse -> Options -> Encoding -toEncodingPB (ClientStateListResponse f1 :: Enumerated ClientStateListResponse_Status -f1 f2 :: Vector ClientStateListResponse_Entry -f2 f3 :: Text -f3 f4 :: Maybe ClientPagingResponse -f4) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs - ["status" Text +.= Maybe ClientPagingResponse +f4]) + toEncodingPB :: ClientStateListResponse -> Options -> Encoding +toEncodingPB (ClientStateListResponse Enumerated ClientStateListResponse_Status +f1 Vector ClientStateListResponse_Entry +f2 Text +f3 Maybe ClientPagingResponse +f4) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs + [Text +"status" Text -> Enumerated ClientStateListResponse_Status -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated ClientStateListResponse_Status -f1, "entries" Text -> Vector ClientStateListResponse_Entry -> Options -> Series +.= Enumerated ClientStateListResponse_Status +f1, Text +"entries" Text -> Vector ClientStateListResponse_Entry -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector ClientStateListResponse_Entry -f2, "state_root" Text -> Text -> Options -> Series +.= Vector ClientStateListResponse_Entry +f2, Text +"state_root" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f3, - "paging" Text -> Maybe ClientPagingResponse -> Options -> Series +.= Text +f3, + Text +"paging" Text -> Maybe ClientPagingResponse -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Maybe ClientPagingResponse -f4]) - -instance HsJSONPB.FromJSONPB ClientStateListResponse where - parseJSONPB :: Value -> Parser ClientStateListResponse -parseJSONPB - = (String +.= Maybe ClientPagingResponse +f4]) + +instance HsJSONPB.FromJSONPB ClientStateListResponse where + parseJSONPB :: Value -> Parser ClientStateListResponse +parseJSONPB + = (String -> (Object -> Parser ClientStateListResponse) -> Value -> Parser ClientStateListResponse forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ClientStateListResponse" - (\ obj :: Object -obj -> - ((Enumerated ClientStateListResponse_Status +HsJSONPB.withObject String +"ClientStateListResponse" + (\ Object +obj -> + ((Enumerated ClientStateListResponse_Status -> Vector ClientStateListResponse_Entry -> Text -> Maybe ClientPagingResponse @@ -1142,7 +1216,7 @@ forall a. String -> (Object -> Parser a) -> Value -> Parser a -> Maybe ClientPagingResponse -> ClientStateListResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ClientStateListResponse_Status +Hs.pure Enumerated ClientStateListResponse_Status -> Vector ClientStateListResponse_Entry -> Text -> Maybe ClientPagingResponse @@ -1158,129 +1232,134 @@ forall (f :: * -> *) a. Applicative f => a -> f a (Vector ClientStateListResponse_Entry -> Text -> Maybe ClientPagingResponse -> ClientStateListResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object +<*> Object +obj Object -> Text -> Parser (Enumerated ClientStateListResponse_Status) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "status" Parser +.: Text +"status" Parser (Vector ClientStateListResponse_Entry -> Text -> Maybe ClientPagingResponse -> ClientStateListResponse) -> Parser (Vector ClientStateListResponse_Entry) -> Parser (Text -> Maybe ClientPagingResponse -> ClientStateListResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser (Vector ClientStateListResponse_Entry) +<*> + Object +obj Object -> Text -> Parser (Vector ClientStateListResponse_Entry) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "entries" - Parser +.: Text +"entries" + Parser (Text -> Maybe ClientPagingResponse -> ClientStateListResponse) -> Parser Text -> Parser (Maybe ClientPagingResponse -> ClientStateListResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Text +<*> Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "state_root" - Parser (Maybe ClientPagingResponse -> ClientStateListResponse) +.: Text +"state_root" + Parser (Maybe ClientPagingResponse -> ClientStateListResponse) -> Parser (Maybe ClientPagingResponse) -> Parser ClientStateListResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser (Maybe ClientPagingResponse) +<*> Object +obj Object -> Text -> Parser (Maybe ClientPagingResponse) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "paging")) - -instance HsJSONPB.ToJSON ClientStateListResponse where - toJSON :: ClientStateListResponse -> Value -toJSON = ClientStateListResponse -> Value +.: Text +"paging")) + +instance HsJSONPB.ToJSON ClientStateListResponse where + toJSON :: ClientStateListResponse -> Value +toJSON = ClientStateListResponse -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ClientStateListResponse -> Encoding -toEncoding = ClientStateListResponse -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ClientStateListResponse -> Encoding +toEncoding = ClientStateListResponse -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ClientStateListResponse where - parseJSON :: Value -> Parser ClientStateListResponse -parseJSON = Value -> Parser ClientStateListResponse +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ClientStateListResponse where + parseJSON :: Value -> Parser ClientStateListResponse +parseJSON = Value -> Parser ClientStateListResponse forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ClientStateListResponse where - declareNamedSchema :: Proxy ClientStateListResponse +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ClientStateListResponse where + declareNamedSchema :: Proxy ClientStateListResponse -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_status :: Proxy +declareNamedSchema Proxy ClientStateListResponse +_ + = do let declare_status :: Proxy (OverrideToSchema (Enumerated ClientStateListResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status = Proxy +declare_status = Proxy (OverrideToSchema (Enumerated ClientStateListResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientStateListResponseStatus <- Proxy +HsJSONPB.declareSchemaRef + Referenced Schema +clientStateListResponseStatus <- Proxy (OverrideToSchema (Enumerated ClientStateListResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status Proxy +declare_status Proxy (OverrideToSchema (Enumerated ClientStateListResponse_Status)) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_entries :: Proxy (OverrideToSchema (Vector ClientStateListResponse_Entry)) +Proxy.Proxy + let declare_entries :: Proxy (OverrideToSchema (Vector ClientStateListResponse_Entry)) -> Declare (Definitions Schema) (Referenced Schema) -declare_entries = Proxy (OverrideToSchema (Vector ClientStateListResponse_Entry)) +declare_entries = Proxy (OverrideToSchema (Vector ClientStateListResponse_Entry)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientStateListResponseEntries <- Proxy (OverrideToSchema (Vector ClientStateListResponse_Entry)) +HsJSONPB.declareSchemaRef + Referenced Schema +clientStateListResponseEntries <- Proxy (OverrideToSchema (Vector ClientStateListResponse_Entry)) -> Declare (Definitions Schema) (Referenced Schema) -declare_entries Proxy (OverrideToSchema (Vector ClientStateListResponse_Entry)) +declare_entries Proxy (OverrideToSchema (Vector ClientStateListResponse_Entry)) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_state_root :: Proxy (OverrideToSchema Text) +Proxy.Proxy + let declare_state_root :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_state_root = Proxy (OverrideToSchema Text) +declare_state_root = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientStateListResponseStateRoot <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +clientStateListResponseStateRoot <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_state_root Proxy (OverrideToSchema Text) +declare_state_root Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_paging :: Proxy (OverrideToSchema (Maybe ClientPagingResponse)) +Proxy.Proxy + let declare_paging :: Proxy (OverrideToSchema (Maybe ClientPagingResponse)) -> Declare (Definitions Schema) (Referenced Schema) -declare_paging = Proxy (OverrideToSchema (Maybe ClientPagingResponse)) +declare_paging = Proxy (OverrideToSchema (Maybe ClientPagingResponse)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientStateListResponsePaging <- Proxy (OverrideToSchema (Maybe ClientPagingResponse)) +HsJSONPB.declareSchemaRef + Referenced Schema +clientStateListResponsePaging <- Proxy (OverrideToSchema (Maybe ClientPagingResponse)) -> Declare (Definitions Schema) (Referenced Schema) -declare_paging Proxy (OverrideToSchema (Maybe ClientPagingResponse)) +declare_paging Proxy (OverrideToSchema (Maybe ClientPagingResponse)) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ClientStateListResponse +Proxy.Proxy + let Proxy ClientStateListResponse _ = (Enumerated ClientStateListResponse_Status -> Vector ClientStateListResponse_Entry -> Text @@ -1293,7 +1372,7 @@ forall k (t :: k). Proxy t -> Maybe ClientPagingResponse -> ClientStateListResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ClientStateListResponse_Status +Hs.pure Enumerated ClientStateListResponse_Status -> Vector ClientStateListResponse_Entry -> Text -> Maybe ClientPagingResponse @@ -1309,105 +1388,110 @@ forall (f :: * -> *) a. Applicative f => a -> f a (Vector ClientStateListResponse_Entry -> Text -> Maybe ClientPagingResponse -> ClientStateListResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy +<*> + (Proxy (OverrideToSchema (Enumerated ClientStateListResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Enumerated ClientStateListResponse_Status) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy +HsJSONPB.asProxy Proxy (OverrideToSchema (Enumerated ClientStateListResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status - Proxy +declare_status + Proxy (Vector ClientStateListResponse_Entry -> Text -> Maybe ClientPagingResponse -> ClientStateListResponse) -> Proxy (Vector ClientStateListResponse_Entry) -> Proxy (Text -> Maybe ClientPagingResponse -> ClientStateListResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema (Vector ClientStateListResponse_Entry)) +<*> (Proxy (OverrideToSchema (Vector ClientStateListResponse_Entry)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Vector ClientStateListResponse_Entry) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Vector ClientStateListResponse_Entry)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Vector ClientStateListResponse_Entry)) -> Declare (Definitions Schema) (Referenced Schema) -declare_entries - Proxy +declare_entries + Proxy (Text -> Maybe ClientPagingResponse -> ClientStateListResponse) -> Proxy Text -> Proxy (Maybe ClientPagingResponse -> ClientStateListResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema Text) +<*> (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_state_root - Proxy (Maybe ClientPagingResponse -> ClientStateListResponse) +declare_state_root + Proxy (Maybe ClientPagingResponse -> ClientStateListResponse) -> Proxy (Maybe ClientPagingResponse) -> Proxy ClientStateListResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema (Maybe ClientPagingResponse)) +<*> (Proxy (OverrideToSchema (Maybe ClientPagingResponse)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Maybe ClientPagingResponse) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Maybe ClientPagingResponse)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Maybe ClientPagingResponse)) -> Declare (Definitions Schema) (Referenced Schema) -declare_paging - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_paging + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ClientStateListResponse", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ClientStateListResponse", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("status", Referenced Schema -clientStateListResponseStatus), - ("entries", Referenced Schema -clientStateListResponseEntries), - ("state_root", - Referenced Schema -clientStateListResponseStateRoot), - ("paging", - Referenced Schema -clientStateListResponsePaging)]}}) - -data ClientStateListResponse_Status = ClientStateListResponse_StatusSTATUS_UNSET - | ClientStateListResponse_StatusOK - | ClientStateListResponse_StatusINTERNAL_ERROR - | ClientStateListResponse_StatusNOT_READY - | ClientStateListResponse_StatusNO_ROOT - | ClientStateListResponse_StatusNO_RESOURCE - | ClientStateListResponse_StatusINVALID_PAGING - | ClientStateListResponse_StatusINVALID_SORT - | ClientStateListResponse_StatusINVALID_ADDRESS - | ClientStateListResponse_StatusINVALID_ROOT - deriving (Int -> ClientStateListResponse_Status -> ShowS +HsJSONPB.insOrdFromList + [(Text +"status", Referenced Schema +clientStateListResponseStatus), + (Text +"entries", Referenced Schema +clientStateListResponseEntries), + (Text +"state_root", + Referenced Schema +clientStateListResponseStateRoot), + (Text +"paging", + Referenced Schema +clientStateListResponsePaging)]}}) + +data ClientStateListResponse_Status = ClientStateListResponse_StatusSTATUS_UNSET + | ClientStateListResponse_StatusOK + | ClientStateListResponse_StatusINTERNAL_ERROR + | ClientStateListResponse_StatusNOT_READY + | ClientStateListResponse_StatusNO_ROOT + | ClientStateListResponse_StatusNO_RESOURCE + | ClientStateListResponse_StatusINVALID_PAGING + | ClientStateListResponse_StatusINVALID_SORT + | ClientStateListResponse_StatusINVALID_ADDRESS + | ClientStateListResponse_StatusINVALID_ROOT + deriving (Int -> ClientStateListResponse_Status -> ShowS [ClientStateListResponse_Status] -> ShowS ClientStateListResponse_Status -> String (Int -> ClientStateListResponse_Status -> ShowS) @@ -1422,7 +1506,7 @@ show :: ClientStateListResponse_Status -> String $cshow :: ClientStateListResponse_Status -> String showsPrec :: Int -> ClientStateListResponse_Status -> ShowS $cshowsPrec :: Int -> ClientStateListResponse_Status -> ShowS -Hs.Show, ClientStateListResponse_Status +Hs.Show, ClientStateListResponse_Status -> ClientStateListResponse_Status -> Bool (ClientStateListResponse_Status -> ClientStateListResponse_Status -> Bool) @@ -1438,7 +1522,7 @@ $c/= :: ClientStateListResponse_Status -> ClientStateListResponse_Status -> Bool $c== :: ClientStateListResponse_Status -> ClientStateListResponse_Status -> Bool -Hs.Eq, (forall x. +Hs.Eq, (forall x. ClientStateListResponse_Status -> Rep ClientStateListResponse_Status x) -> (forall x. @@ -1459,239 +1543,275 @@ Rep ClientStateListResponse_Status x $cfrom :: forall x. ClientStateListResponse_Status -> Rep ClientStateListResponse_Status x -Hs.Generic, ClientStateListResponse_Status -> () +Hs.Generic, ClientStateListResponse_Status -> () (ClientStateListResponse_Status -> ()) -> NFData ClientStateListResponse_Status forall a. (a -> ()) -> NFData a rnf :: ClientStateListResponse_Status -> () $crnf :: ClientStateListResponse_Status -> () -Hs.NFData) - -instance HsProtobuf.Named ClientStateListResponse_Status where - nameOf :: Proxy# ClientStateListResponse_Status -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ClientStateListResponse_Status where + nameOf :: Proxy# ClientStateListResponse_Status -> string +nameOf Proxy# ClientStateListResponse_Status +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ClientStateListResponse_Status") - -instance HsProtobuf.HasDefault ClientStateListResponse_Status - -instance Hs.Bounded ClientStateListResponse_Status where - minBound :: ClientStateListResponse_Status -minBound = ClientStateListResponse_Status +Hs.fromString String +"ClientStateListResponse_Status") + +instance HsProtobuf.HasDefault ClientStateListResponse_Status + +instance Hs.Bounded ClientStateListResponse_Status where + minBound :: ClientStateListResponse_Status +minBound = ClientStateListResponse_Status ClientStateListResponse_StatusSTATUS_UNSET - maxBound :: ClientStateListResponse_Status -maxBound = ClientStateListResponse_Status + maxBound :: ClientStateListResponse_Status +maxBound = ClientStateListResponse_Status ClientStateListResponse_StatusINVALID_ROOT - -instance Hs.Ord ClientStateListResponse_Status where - compare :: ClientStateListResponse_Status + +instance Hs.Ord ClientStateListResponse_Status where + compare :: ClientStateListResponse_Status -> ClientStateListResponse_Status -> Ordering -compare x :: ClientStateListResponse_Status -x y :: ClientStateListResponse_Status -y - = Int32 -> Int32 -> Ordering +compare ClientStateListResponse_Status +x ClientStateListResponse_Status +y + = Int32 -> Int32 -> Ordering forall a. Ord a => a -> a -> Ordering -Hs.compare (ClientStateListResponse_Status -> Int32 +Hs.compare (ClientStateListResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum ClientStateListResponse_Status -x) - (ClientStateListResponse_Status -> Int32 +HsProtobuf.fromProtoEnum ClientStateListResponse_Status +x) + (ClientStateListResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum ClientStateListResponse_Status -y) - -instance HsProtobuf.ProtoEnum ClientStateListResponse_Status where - toProtoEnumMay :: Int32 -> Maybe ClientStateListResponse_Status -toProtoEnumMay 0 - = ClientStateListResponse_Status +HsProtobuf.fromProtoEnum ClientStateListResponse_Status +y) + +instance HsProtobuf.ProtoEnum ClientStateListResponse_Status where + toProtoEnumMay :: Int32 -> Maybe ClientStateListResponse_Status +toProtoEnumMay Int32 +0 + = ClientStateListResponse_Status -> Maybe ClientStateListResponse_Status forall a. a -> Maybe a -Hs.Just ClientStateListResponse_Status +Hs.Just ClientStateListResponse_Status ClientStateListResponse_StatusSTATUS_UNSET - toProtoEnumMay 1 = ClientStateListResponse_Status + toProtoEnumMay Int32 +1 = ClientStateListResponse_Status -> Maybe ClientStateListResponse_Status forall a. a -> Maybe a -Hs.Just ClientStateListResponse_Status +Hs.Just ClientStateListResponse_Status ClientStateListResponse_StatusOK - toProtoEnumMay 2 - = ClientStateListResponse_Status + toProtoEnumMay Int32 +2 + = ClientStateListResponse_Status -> Maybe ClientStateListResponse_Status forall a. a -> Maybe a -Hs.Just ClientStateListResponse_Status +Hs.Just ClientStateListResponse_Status ClientStateListResponse_StatusINTERNAL_ERROR - toProtoEnumMay 3 = ClientStateListResponse_Status + toProtoEnumMay Int32 +3 = ClientStateListResponse_Status -> Maybe ClientStateListResponse_Status forall a. a -> Maybe a -Hs.Just ClientStateListResponse_Status +Hs.Just ClientStateListResponse_Status ClientStateListResponse_StatusNOT_READY - toProtoEnumMay 4 = ClientStateListResponse_Status + toProtoEnumMay Int32 +4 = ClientStateListResponse_Status -> Maybe ClientStateListResponse_Status forall a. a -> Maybe a -Hs.Just ClientStateListResponse_Status +Hs.Just ClientStateListResponse_Status ClientStateListResponse_StatusNO_ROOT - toProtoEnumMay 5 - = ClientStateListResponse_Status + toProtoEnumMay Int32 +5 + = ClientStateListResponse_Status -> Maybe ClientStateListResponse_Status forall a. a -> Maybe a -Hs.Just ClientStateListResponse_Status +Hs.Just ClientStateListResponse_Status ClientStateListResponse_StatusNO_RESOURCE - toProtoEnumMay 6 - = ClientStateListResponse_Status + toProtoEnumMay Int32 +6 + = ClientStateListResponse_Status -> Maybe ClientStateListResponse_Status forall a. a -> Maybe a -Hs.Just ClientStateListResponse_Status +Hs.Just ClientStateListResponse_Status ClientStateListResponse_StatusINVALID_PAGING - toProtoEnumMay 7 - = ClientStateListResponse_Status + toProtoEnumMay Int32 +7 + = ClientStateListResponse_Status -> Maybe ClientStateListResponse_Status forall a. a -> Maybe a -Hs.Just ClientStateListResponse_Status +Hs.Just ClientStateListResponse_Status ClientStateListResponse_StatusINVALID_SORT - toProtoEnumMay 8 - = ClientStateListResponse_Status + toProtoEnumMay Int32 +8 + = ClientStateListResponse_Status -> Maybe ClientStateListResponse_Status forall a. a -> Maybe a -Hs.Just ClientStateListResponse_Status +Hs.Just ClientStateListResponse_Status ClientStateListResponse_StatusINVALID_ADDRESS - toProtoEnumMay 9 - = ClientStateListResponse_Status + toProtoEnumMay Int32 +9 + = ClientStateListResponse_Status -> Maybe ClientStateListResponse_Status forall a. a -> Maybe a -Hs.Just ClientStateListResponse_Status +Hs.Just ClientStateListResponse_Status ClientStateListResponse_StatusINVALID_ROOT - toProtoEnumMay _ = Maybe ClientStateListResponse_Status + toProtoEnumMay Int32 +_ = Maybe ClientStateListResponse_Status forall a. Maybe a -Hs.Nothing - fromProtoEnum :: ClientStateListResponse_Status -> Int32 -fromProtoEnum (ClientStateListResponse_Status -ClientStateListResponse_StatusSTATUS_UNSET) = 0 - fromProtoEnum (ClientStateListResponse_Status -ClientStateListResponse_StatusOK) = 1 - fromProtoEnum (ClientStateListResponse_Status -ClientStateListResponse_StatusINTERNAL_ERROR) = 2 - fromProtoEnum (ClientStateListResponse_Status -ClientStateListResponse_StatusNOT_READY) = 3 - fromProtoEnum (ClientStateListResponse_Status -ClientStateListResponse_StatusNO_ROOT) = 4 - fromProtoEnum (ClientStateListResponse_Status -ClientStateListResponse_StatusNO_RESOURCE) = 5 - fromProtoEnum (ClientStateListResponse_Status -ClientStateListResponse_StatusINVALID_PAGING) = 6 - fromProtoEnum (ClientStateListResponse_Status -ClientStateListResponse_StatusINVALID_SORT) = 7 - fromProtoEnum (ClientStateListResponse_Status -ClientStateListResponse_StatusINVALID_ADDRESS) = 8 - fromProtoEnum (ClientStateListResponse_Status -ClientStateListResponse_StatusINVALID_ROOT) = 9 - -instance HsJSONPB.ToJSONPB ClientStateListResponse_Status where - toJSONPB :: ClientStateListResponse_Status -> Options -> Value -toJSONPB x :: ClientStateListResponse_Status -x _ = ClientStateListResponse_Status -> Value +Hs.Nothing + fromProtoEnum :: ClientStateListResponse_Status -> Int32 +fromProtoEnum (ClientStateListResponse_Status +ClientStateListResponse_StatusSTATUS_UNSET) = Int32 +0 + fromProtoEnum (ClientStateListResponse_Status +ClientStateListResponse_StatusOK) = Int32 +1 + fromProtoEnum (ClientStateListResponse_Status +ClientStateListResponse_StatusINTERNAL_ERROR) = Int32 +2 + fromProtoEnum (ClientStateListResponse_Status +ClientStateListResponse_StatusNOT_READY) = Int32 +3 + fromProtoEnum (ClientStateListResponse_Status +ClientStateListResponse_StatusNO_ROOT) = Int32 +4 + fromProtoEnum (ClientStateListResponse_Status +ClientStateListResponse_StatusNO_RESOURCE) = Int32 +5 + fromProtoEnum (ClientStateListResponse_Status +ClientStateListResponse_StatusINVALID_PAGING) = Int32 +6 + fromProtoEnum (ClientStateListResponse_Status +ClientStateListResponse_StatusINVALID_SORT) = Int32 +7 + fromProtoEnum (ClientStateListResponse_Status +ClientStateListResponse_StatusINVALID_ADDRESS) = Int32 +8 + fromProtoEnum (ClientStateListResponse_Status +ClientStateListResponse_StatusINVALID_ROOT) = Int32 +9 + +instance HsJSONPB.ToJSONPB ClientStateListResponse_Status where + toJSONPB :: ClientStateListResponse_Status -> Options -> Value +toJSONPB ClientStateListResponse_Status +x Options +_ = ClientStateListResponse_Status -> Value forall a. (Named a, Show a) => a -> Value -HsJSONPB.enumFieldString ClientStateListResponse_Status -x - toEncodingPB :: ClientStateListResponse_Status -> Options -> Encoding -toEncodingPB x :: ClientStateListResponse_Status -x _ = ClientStateListResponse_Status -> Encoding +HsJSONPB.enumFieldString ClientStateListResponse_Status +x + toEncodingPB :: ClientStateListResponse_Status -> Options -> Encoding +toEncodingPB ClientStateListResponse_Status +x Options +_ = ClientStateListResponse_Status -> Encoding forall a. (Named a, Show a) => a -> Encoding -HsJSONPB.enumFieldEncoding ClientStateListResponse_Status -x - -instance HsJSONPB.FromJSONPB ClientStateListResponse_Status where - parseJSONPB :: Value -> Parser ClientStateListResponse_Status -parseJSONPB (HsJSONPB.String "STATUS_UNSET") - = ClientStateListResponse_Status +HsJSONPB.enumFieldEncoding ClientStateListResponse_Status +x + +instance HsJSONPB.FromJSONPB ClientStateListResponse_Status where + parseJSONPB :: Value -> Parser ClientStateListResponse_Status +parseJSONPB (HsJSONPB.String Text +"STATUS_UNSET") + = ClientStateListResponse_Status -> Parser ClientStateListResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientStateListResponse_Status +Hs.pure ClientStateListResponse_Status ClientStateListResponse_StatusSTATUS_UNSET - parseJSONPB (HsJSONPB.String "OK") - = ClientStateListResponse_Status + parseJSONPB (HsJSONPB.String Text +"OK") + = ClientStateListResponse_Status -> Parser ClientStateListResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientStateListResponse_Status +Hs.pure ClientStateListResponse_Status ClientStateListResponse_StatusOK - parseJSONPB (HsJSONPB.String "INTERNAL_ERROR") - = ClientStateListResponse_Status + parseJSONPB (HsJSONPB.String Text +"INTERNAL_ERROR") + = ClientStateListResponse_Status -> Parser ClientStateListResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientStateListResponse_Status +Hs.pure ClientStateListResponse_Status ClientStateListResponse_StatusINTERNAL_ERROR - parseJSONPB (HsJSONPB.String "NOT_READY") - = ClientStateListResponse_Status + parseJSONPB (HsJSONPB.String Text +"NOT_READY") + = ClientStateListResponse_Status -> Parser ClientStateListResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientStateListResponse_Status +Hs.pure ClientStateListResponse_Status ClientStateListResponse_StatusNOT_READY - parseJSONPB (HsJSONPB.String "NO_ROOT") - = ClientStateListResponse_Status + parseJSONPB (HsJSONPB.String Text +"NO_ROOT") + = ClientStateListResponse_Status -> Parser ClientStateListResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientStateListResponse_Status +Hs.pure ClientStateListResponse_Status ClientStateListResponse_StatusNO_ROOT - parseJSONPB (HsJSONPB.String "NO_RESOURCE") - = ClientStateListResponse_Status + parseJSONPB (HsJSONPB.String Text +"NO_RESOURCE") + = ClientStateListResponse_Status -> Parser ClientStateListResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientStateListResponse_Status +Hs.pure ClientStateListResponse_Status ClientStateListResponse_StatusNO_RESOURCE - parseJSONPB (HsJSONPB.String "INVALID_PAGING") - = ClientStateListResponse_Status + parseJSONPB (HsJSONPB.String Text +"INVALID_PAGING") + = ClientStateListResponse_Status -> Parser ClientStateListResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientStateListResponse_Status +Hs.pure ClientStateListResponse_Status ClientStateListResponse_StatusINVALID_PAGING - parseJSONPB (HsJSONPB.String "INVALID_SORT") - = ClientStateListResponse_Status + parseJSONPB (HsJSONPB.String Text +"INVALID_SORT") + = ClientStateListResponse_Status -> Parser ClientStateListResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientStateListResponse_Status +Hs.pure ClientStateListResponse_Status ClientStateListResponse_StatusINVALID_SORT - parseJSONPB (HsJSONPB.String "INVALID_ADDRESS") - = ClientStateListResponse_Status + parseJSONPB (HsJSONPB.String Text +"INVALID_ADDRESS") + = ClientStateListResponse_Status -> Parser ClientStateListResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientStateListResponse_Status +Hs.pure ClientStateListResponse_Status ClientStateListResponse_StatusINVALID_ADDRESS - parseJSONPB (HsJSONPB.String "INVALID_ROOT") - = ClientStateListResponse_Status + parseJSONPB (HsJSONPB.String Text +"INVALID_ROOT") + = ClientStateListResponse_Status -> Parser ClientStateListResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientStateListResponse_Status +Hs.pure ClientStateListResponse_Status ClientStateListResponse_StatusINVALID_ROOT - parseJSONPB v :: Value -v - = (String -> Value -> Parser ClientStateListResponse_Status + parseJSONPB Value +v + = (String -> Value -> Parser ClientStateListResponse_Status forall a. String -> Value -> Parser a -HsJSONPB.typeMismatch "ClientStateListResponse_Status" Value -v) - -instance HsJSONPB.ToJSON ClientStateListResponse_Status where - toJSON :: ClientStateListResponse_Status -> Value -toJSON = ClientStateListResponse_Status -> Value +HsJSONPB.typeMismatch String +"ClientStateListResponse_Status" Value +v) + +instance HsJSONPB.ToJSON ClientStateListResponse_Status where + toJSON :: ClientStateListResponse_Status -> Value +toJSON = ClientStateListResponse_Status -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ClientStateListResponse_Status -> Encoding -toEncoding = ClientStateListResponse_Status -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ClientStateListResponse_Status -> Encoding +toEncoding = ClientStateListResponse_Status -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ClientStateListResponse_Status where - parseJSON :: Value -> Parser ClientStateListResponse_Status -parseJSON = Value -> Parser ClientStateListResponse_Status +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ClientStateListResponse_Status where + parseJSON :: Value -> Parser ClientStateListResponse_Status +parseJSON = Value -> Parser ClientStateListResponse_Status forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsProtobuf.Finite ClientStateListResponse_Status - -data ClientStateListResponse_Entry = ClientStateListResponse_Entry{ClientStateListResponse_Entry -> Text +HsJSONPB.parseJSONPB + +instance HsProtobuf.Finite ClientStateListResponse_Status + +data ClientStateListResponse_Entry = ClientStateListResponse_Entry{ClientStateListResponse_Entry -> Text clientStateListResponse_EntryAddress - :: Hs.Text, - ClientStateListResponse_Entry -> ByteString + :: Hs.Text, + ClientStateListResponse_Entry -> ByteString clientStateListResponse_EntryData - :: Hs.ByteString} - deriving (Int -> ClientStateListResponse_Entry -> ShowS + :: Hs.ByteString} + deriving (Int -> ClientStateListResponse_Entry -> ShowS [ClientStateListResponse_Entry] -> ShowS ClientStateListResponse_Entry -> String (Int -> ClientStateListResponse_Entry -> ShowS) @@ -1706,7 +1826,7 @@ show :: ClientStateListResponse_Entry -> String $cshow :: ClientStateListResponse_Entry -> String showsPrec :: Int -> ClientStateListResponse_Entry -> ShowS $cshowsPrec :: Int -> ClientStateListResponse_Entry -> ShowS -Hs.Show, ClientStateListResponse_Entry +Hs.Show, ClientStateListResponse_Entry -> ClientStateListResponse_Entry -> Bool (ClientStateListResponse_Entry -> ClientStateListResponse_Entry -> Bool) @@ -1722,10 +1842,10 @@ $c/= :: ClientStateListResponse_Entry -> ClientStateListResponse_Entry -> Bool $c== :: ClientStateListResponse_Entry -> ClientStateListResponse_Entry -> Bool -Hs.Eq, Eq ClientStateListResponse_Entry -Eq ClientStateListResponse_Entry => -(ClientStateListResponse_Entry - -> ClientStateListResponse_Entry -> Ordering) +Hs.Eq, Eq ClientStateListResponse_Entry +Eq ClientStateListResponse_Entry +-> (ClientStateListResponse_Entry + -> ClientStateListResponse_Entry -> Ordering) -> (ClientStateListResponse_Entry -> ClientStateListResponse_Entry -> Bool) -> (ClientStateListResponse_Entry @@ -1746,8 +1866,8 @@ ClientStateListResponse_Entry ClientStateListResponse_Entry -> ClientStateListResponse_Entry -> ClientStateListResponse_Entry forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -1784,7 +1904,7 @@ compare :: ClientStateListResponse_Entry $ccompare :: ClientStateListResponse_Entry -> ClientStateListResponse_Entry -> Ordering $cp1Ord :: Eq ClientStateListResponse_Entry -Hs.Ord, (forall x. +Hs.Ord, (forall x. ClientStateListResponse_Entry -> Rep ClientStateListResponse_Entry x) -> (forall x. @@ -1805,301 +1925,327 @@ Rep ClientStateListResponse_Entry x $cfrom :: forall x. ClientStateListResponse_Entry -> Rep ClientStateListResponse_Entry x -Hs.Generic, ClientStateListResponse_Entry -> () +Hs.Generic, ClientStateListResponse_Entry -> () (ClientStateListResponse_Entry -> ()) -> NFData ClientStateListResponse_Entry forall a. (a -> ()) -> NFData a rnf :: ClientStateListResponse_Entry -> () $crnf :: ClientStateListResponse_Entry -> () -Hs.NFData) - -instance HsProtobuf.Named ClientStateListResponse_Entry where - nameOf :: Proxy# ClientStateListResponse_Entry -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ClientStateListResponse_Entry where + nameOf :: Proxy# ClientStateListResponse_Entry -> string +nameOf Proxy# ClientStateListResponse_Entry +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ClientStateListResponse_Entry") - -instance HsProtobuf.HasDefault ClientStateListResponse_Entry - -instance HsProtobuf.Message ClientStateListResponse_Entry where - encodeMessage :: FieldNumber -> ClientStateListResponse_Entry -> MessageBuilder -encodeMessage _ - ClientStateListResponse_Entry{clientStateListResponse_EntryAddress :: ClientStateListResponse_Entry -> Text +Hs.fromString String +"ClientStateListResponse_Entry") + +instance HsProtobuf.HasDefault ClientStateListResponse_Entry + +instance HsProtobuf.Message ClientStateListResponse_Entry where + encodeMessage :: FieldNumber -> ClientStateListResponse_Entry -> MessageBuilder +encodeMessage FieldNumber +_ + ClientStateListResponse_Entry{clientStateListResponse_EntryAddress :: ClientStateListResponse_Entry -> Text clientStateListResponse_EntryAddress - = Text -clientStateListResponse_EntryAddress, - clientStateListResponse_EntryData :: ClientStateListResponse_Entry -> ByteString + = Text +clientStateListResponse_EntryAddress, + clientStateListResponse_EntryData :: ClientStateListResponse_Entry -> ByteString clientStateListResponse_EntryData = - ByteString -clientStateListResponse_EntryData} - = ([MessageBuilder] -> MessageBuilder + ByteString +clientStateListResponse_EntryData} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> Text -> MessageBuilder +Hs.mconcat + [(FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Text -clientStateListResponse_EntryAddress), - (FieldNumber -> ByteString -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Text +clientStateListResponse_EntryAddress), + (FieldNumber -> ByteString -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - ByteString -clientStateListResponse_EntryData)]) - decodeMessage :: FieldNumber -> Parser RawMessage ClientStateListResponse_Entry -decodeMessage _ - = ((Text -> ByteString -> ClientStateListResponse_Entry) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + ByteString +clientStateListResponse_EntryData)]) + decodeMessage :: FieldNumber -> Parser RawMessage ClientStateListResponse_Entry +decodeMessage FieldNumber +_ + = ((Text -> ByteString -> ClientStateListResponse_Entry) -> Parser RawMessage (Text -> ByteString -> ClientStateListResponse_Entry) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> ByteString -> ClientStateListResponse_Entry +Hs.pure Text -> ByteString -> ClientStateListResponse_Entry ClientStateListResponse_Entry) Parser RawMessage (Text -> ByteString -> ClientStateListResponse_Entry) -> Parser RawMessage Text -> Parser RawMessage (ByteString -> ClientStateListResponse_Entry) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser RawMessage (ByteString -> ClientStateListResponse_Entry) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (ByteString -> ClientStateListResponse_Entry) -> Parser RawMessage ByteString -> Parser RawMessage ClientStateListResponse_Entry forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField ByteString +<*> + (Parser RawField ByteString -> FieldNumber -> Parser RawMessage ByteString forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField ByteString +HsProtobuf.at Parser RawField ByteString forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2)) - dotProto :: Proxy# ClientStateListResponse_Entry -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2)) + dotProto :: Proxy# ClientStateListResponse_Entry -> [DotProtoField] +dotProto Proxy# ClientStateListResponse_Entry +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "address") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"address") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.Bytes) - (String -> DotProtoIdentifier -HsProtobuf.Single "data") - [] - "")] - -instance HsJSONPB.ToJSONPB ClientStateListResponse_Entry where - toJSONPB :: ClientStateListResponse_Entry -> Options -> Value -toJSONPB (ClientStateListResponse_Entry f1 :: Text -f1 f2 :: ByteString -f2) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["address" Text -> Text -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.Bytes) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"data") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ClientStateListResponse_Entry where + toJSONPB :: ClientStateListResponse_Entry -> Options -> Value +toJSONPB (ClientStateListResponse_Entry Text +f1 ByteString +f2) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"address" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1, "data" Text -> ByteString -> Options -> [Pair] +.= Text +f1, Text +"data" Text -> ByteString -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f2]) - toEncodingPB :: ClientStateListResponse_Entry -> Options -> Encoding -toEncodingPB (ClientStateListResponse_Entry f1 :: Text -f1 f2 :: ByteString -f2) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["address" Text -> Text -> Options -> Series +.= ByteString +f2]) + toEncodingPB :: ClientStateListResponse_Entry -> Options -> Encoding +toEncodingPB (ClientStateListResponse_Entry Text +f1 ByteString +f2) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"address" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1, "data" Text -> ByteString -> Options -> Series +.= Text +f1, Text +"data" Text -> ByteString -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f2]) - -instance HsJSONPB.FromJSONPB ClientStateListResponse_Entry where - parseJSONPB :: Value -> Parser ClientStateListResponse_Entry -parseJSONPB - = (String +.= ByteString +f2]) + +instance HsJSONPB.FromJSONPB ClientStateListResponse_Entry where + parseJSONPB :: Value -> Parser ClientStateListResponse_Entry +parseJSONPB + = (String -> (Object -> Parser ClientStateListResponse_Entry) -> Value -> Parser ClientStateListResponse_Entry forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ClientStateListResponse_Entry" - (\ obj :: Object -obj -> - ((Text -> ByteString -> ClientStateListResponse_Entry) +HsJSONPB.withObject String +"ClientStateListResponse_Entry" + (\ Object +obj -> + ((Text -> ByteString -> ClientStateListResponse_Entry) -> Parser (Text -> ByteString -> ClientStateListResponse_Entry) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> ByteString -> ClientStateListResponse_Entry +Hs.pure Text -> ByteString -> ClientStateListResponse_Entry ClientStateListResponse_Entry) Parser (Text -> ByteString -> ClientStateListResponse_Entry) -> Parser Text -> Parser (ByteString -> ClientStateListResponse_Entry) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Text +<*> Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "address" Parser (ByteString -> ClientStateListResponse_Entry) +.: Text +"address" Parser (ByteString -> ClientStateListResponse_Entry) -> Parser ByteString -> Parser ClientStateListResponse_Entry forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser ByteString +<*> + Object +obj Object -> Text -> Parser ByteString forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "data")) - -instance HsJSONPB.ToJSON ClientStateListResponse_Entry where - toJSON :: ClientStateListResponse_Entry -> Value -toJSON = ClientStateListResponse_Entry -> Value +.: Text +"data")) + +instance HsJSONPB.ToJSON ClientStateListResponse_Entry where + toJSON :: ClientStateListResponse_Entry -> Value +toJSON = ClientStateListResponse_Entry -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ClientStateListResponse_Entry -> Encoding -toEncoding = ClientStateListResponse_Entry -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ClientStateListResponse_Entry -> Encoding +toEncoding = ClientStateListResponse_Entry -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ClientStateListResponse_Entry where - parseJSON :: Value -> Parser ClientStateListResponse_Entry -parseJSON = Value -> Parser ClientStateListResponse_Entry +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ClientStateListResponse_Entry where + parseJSON :: Value -> Parser ClientStateListResponse_Entry +parseJSON = Value -> Parser ClientStateListResponse_Entry forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ClientStateListResponse_Entry where - declareNamedSchema :: Proxy ClientStateListResponse_Entry +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ClientStateListResponse_Entry where + declareNamedSchema :: Proxy ClientStateListResponse_Entry -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_address :: Proxy (OverrideToSchema Text) +declareNamedSchema Proxy ClientStateListResponse_Entry +_ + = do let declare_address :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_address = Proxy (OverrideToSchema Text) +declare_address = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientStateListResponse_EntryAddress <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +clientStateListResponse_EntryAddress <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_address Proxy (OverrideToSchema Text) +declare_address Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_data :: Proxy (OverrideToSchema ByteString) +Proxy.Proxy + let declare_data :: Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_data = Proxy (OverrideToSchema ByteString) +declare_data = Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientStateListResponse_EntryData <- Proxy (OverrideToSchema ByteString) +HsJSONPB.declareSchemaRef + Referenced Schema +clientStateListResponse_EntryData <- Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_data Proxy (OverrideToSchema ByteString) +declare_data Proxy (OverrideToSchema ByteString) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ClientStateListResponse_Entry +Proxy.Proxy + let Proxy ClientStateListResponse_Entry _ = (Text -> ByteString -> ClientStateListResponse_Entry) -> Proxy (Text -> ByteString -> ClientStateListResponse_Entry) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> ByteString -> ClientStateListResponse_Entry +Hs.pure Text -> ByteString -> ClientStateListResponse_Entry ClientStateListResponse_Entry Proxy (Text -> ByteString -> ClientStateListResponse_Entry) -> Proxy Text -> Proxy (ByteString -> ClientStateListResponse_Entry) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema Text) +<*> + (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_address - Proxy (ByteString -> ClientStateListResponse_Entry) +declare_address + Proxy (ByteString -> ClientStateListResponse_Entry) -> Proxy ByteString -> Proxy ClientStateListResponse_Entry forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema ByteString) +<*> (Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy ByteString forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) +HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_data - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_data + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ClientStateListResponse_Entry", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ClientStateListResponse_Entry", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("address", - Referenced Schema -clientStateListResponse_EntryAddress), - ("data", - Referenced Schema -clientStateListResponse_EntryData)]}}) - -data ClientStateGetRequest = ClientStateGetRequest{ClientStateGetRequest -> Text +HsJSONPB.insOrdFromList + [(Text +"address", + Referenced Schema +clientStateListResponse_EntryAddress), + (Text +"data", + Referenced Schema +clientStateListResponse_EntryData)]}}) + +data ClientStateGetRequest = ClientStateGetRequest{ClientStateGetRequest -> Text clientStateGetRequestStateRoot - :: Hs.Text, - ClientStateGetRequest -> Text -clientStateGetRequestAddress :: Hs.Text} - deriving (Int -> ClientStateGetRequest -> ShowS + :: Hs.Text, + ClientStateGetRequest -> Text +clientStateGetRequestAddress :: Hs.Text} + deriving (Int -> ClientStateGetRequest -> ShowS [ClientStateGetRequest] -> ShowS ClientStateGetRequest -> String (Int -> ClientStateGetRequest -> ShowS) @@ -2114,7 +2260,7 @@ show :: ClientStateGetRequest -> String $cshow :: ClientStateGetRequest -> String showsPrec :: Int -> ClientStateGetRequest -> ShowS $cshowsPrec :: Int -> ClientStateGetRequest -> ShowS -Hs.Show, ClientStateGetRequest -> ClientStateGetRequest -> Bool +Hs.Show, ClientStateGetRequest -> ClientStateGetRequest -> Bool (ClientStateGetRequest -> ClientStateGetRequest -> Bool) -> (ClientStateGetRequest -> ClientStateGetRequest -> Bool) -> Eq ClientStateGetRequest @@ -2123,9 +2269,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: ClientStateGetRequest -> ClientStateGetRequest -> Bool == :: ClientStateGetRequest -> ClientStateGetRequest -> Bool $c== :: ClientStateGetRequest -> ClientStateGetRequest -> Bool -Hs.Eq, Eq ClientStateGetRequest -Eq ClientStateGetRequest => -(ClientStateGetRequest -> ClientStateGetRequest -> Ordering) +Hs.Eq, Eq ClientStateGetRequest +Eq ClientStateGetRequest +-> (ClientStateGetRequest -> ClientStateGetRequest -> Ordering) -> (ClientStateGetRequest -> ClientStateGetRequest -> Bool) -> (ClientStateGetRequest -> ClientStateGetRequest -> Bool) -> (ClientStateGetRequest -> ClientStateGetRequest -> Bool) @@ -2140,8 +2286,8 @@ ClientStateGetRequest -> ClientStateGetRequest -> Ordering ClientStateGetRequest -> ClientStateGetRequest -> ClientStateGetRequest forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -2168,7 +2314,7 @@ $c< :: ClientStateGetRequest -> ClientStateGetRequest -> Bool compare :: ClientStateGetRequest -> ClientStateGetRequest -> Ordering $ccompare :: ClientStateGetRequest -> ClientStateGetRequest -> Ordering $cp1Ord :: Eq ClientStateGetRequest -Hs.Ord, (forall x. ClientStateGetRequest -> Rep ClientStateGetRequest x) +Hs.Ord, (forall x. ClientStateGetRequest -> Rep ClientStateGetRequest x) -> (forall x. Rep ClientStateGetRequest x -> ClientStateGetRequest) -> Generic ClientStateGetRequest forall x. Rep ClientStateGetRequest x -> ClientStateGetRequest @@ -2177,298 +2323,324 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep ClientStateGetRequest x -> ClientStateGetRequest $cfrom :: forall x. ClientStateGetRequest -> Rep ClientStateGetRequest x -Hs.Generic, ClientStateGetRequest -> () +Hs.Generic, ClientStateGetRequest -> () (ClientStateGetRequest -> ()) -> NFData ClientStateGetRequest forall a. (a -> ()) -> NFData a rnf :: ClientStateGetRequest -> () $crnf :: ClientStateGetRequest -> () -Hs.NFData) - -instance HsProtobuf.Named ClientStateGetRequest where - nameOf :: Proxy# ClientStateGetRequest -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ClientStateGetRequest where + nameOf :: Proxy# ClientStateGetRequest -> string +nameOf Proxy# ClientStateGetRequest +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ClientStateGetRequest") - -instance HsProtobuf.HasDefault ClientStateGetRequest - -instance HsProtobuf.Message ClientStateGetRequest where - encodeMessage :: FieldNumber -> ClientStateGetRequest -> MessageBuilder -encodeMessage _ - ClientStateGetRequest{clientStateGetRequestStateRoot :: ClientStateGetRequest -> Text +Hs.fromString String +"ClientStateGetRequest") + +instance HsProtobuf.HasDefault ClientStateGetRequest + +instance HsProtobuf.Message ClientStateGetRequest where + encodeMessage :: FieldNumber -> ClientStateGetRequest -> MessageBuilder +encodeMessage FieldNumber +_ + ClientStateGetRequest{clientStateGetRequestStateRoot :: ClientStateGetRequest -> Text clientStateGetRequestStateRoot = - Text -clientStateGetRequestStateRoot, - clientStateGetRequestAddress :: ClientStateGetRequest -> Text -clientStateGetRequestAddress = Text -clientStateGetRequestAddress} - = ([MessageBuilder] -> MessageBuilder + Text +clientStateGetRequestStateRoot, + clientStateGetRequestAddress :: ClientStateGetRequest -> Text +clientStateGetRequestAddress = Text +clientStateGetRequestAddress} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> Text -> MessageBuilder +Hs.mconcat + [(FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Text -clientStateGetRequestStateRoot), - (FieldNumber -> Text -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Text +clientStateGetRequestStateRoot), + (FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - Text -clientStateGetRequestAddress)]) - decodeMessage :: FieldNumber -> Parser RawMessage ClientStateGetRequest -decodeMessage _ - = ((Text -> Text -> ClientStateGetRequest) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + Text +clientStateGetRequestAddress)]) + decodeMessage :: FieldNumber -> Parser RawMessage ClientStateGetRequest +decodeMessage FieldNumber +_ + = ((Text -> Text -> ClientStateGetRequest) -> Parser RawMessage (Text -> Text -> ClientStateGetRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> Text -> ClientStateGetRequest +Hs.pure Text -> Text -> ClientStateGetRequest ClientStateGetRequest) Parser RawMessage (Text -> Text -> ClientStateGetRequest) -> Parser RawMessage Text -> Parser RawMessage (Text -> ClientStateGetRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser RawMessage (Text -> ClientStateGetRequest) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (Text -> ClientStateGetRequest) -> Parser RawMessage Text -> Parser RawMessage ClientStateGetRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3)) - dotProto :: Proxy# ClientStateGetRequest -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3)) + dotProto :: Proxy# ClientStateGetRequest -> [DotProtoField] +dotProto Proxy# ClientStateGetRequest +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "state_root") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"state_root") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "address") - [] - "")] - -instance HsJSONPB.ToJSONPB ClientStateGetRequest where - toJSONPB :: ClientStateGetRequest -> Options -> Value -toJSONPB (ClientStateGetRequest f1 :: Text -f1 f3 :: Text -f3) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["state_root" Text -> Text -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"address") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ClientStateGetRequest where + toJSONPB :: ClientStateGetRequest -> Options -> Value +toJSONPB (ClientStateGetRequest Text +f1 Text +f3) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"state_root" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1, "address" Text -> Text -> Options -> [Pair] +.= Text +f1, Text +"address" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f3]) - toEncodingPB :: ClientStateGetRequest -> Options -> Encoding -toEncodingPB (ClientStateGetRequest f1 :: Text -f1 f3 :: Text -f3) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["state_root" Text -> Text -> Options -> Series +.= Text +f3]) + toEncodingPB :: ClientStateGetRequest -> Options -> Encoding +toEncodingPB (ClientStateGetRequest Text +f1 Text +f3) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"state_root" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1, "address" Text -> Text -> Options -> Series +.= Text +f1, Text +"address" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f3]) - -instance HsJSONPB.FromJSONPB ClientStateGetRequest where - parseJSONPB :: Value -> Parser ClientStateGetRequest -parseJSONPB - = (String +.= Text +f3]) + +instance HsJSONPB.FromJSONPB ClientStateGetRequest where + parseJSONPB :: Value -> Parser ClientStateGetRequest +parseJSONPB + = (String -> (Object -> Parser ClientStateGetRequest) -> Value -> Parser ClientStateGetRequest forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ClientStateGetRequest" - (\ obj :: Object -obj -> - ((Text -> Text -> ClientStateGetRequest) +HsJSONPB.withObject String +"ClientStateGetRequest" + (\ Object +obj -> + ((Text -> Text -> ClientStateGetRequest) -> Parser (Text -> Text -> ClientStateGetRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> Text -> ClientStateGetRequest +Hs.pure Text -> Text -> ClientStateGetRequest ClientStateGetRequest) Parser (Text -> Text -> ClientStateGetRequest) -> Parser Text -> Parser (Text -> ClientStateGetRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Text +<*> Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "state_root" Parser (Text -> ClientStateGetRequest) +.: Text +"state_root" Parser (Text -> ClientStateGetRequest) -> Parser Text -> Parser ClientStateGetRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser Text +<*> + Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "address")) - -instance HsJSONPB.ToJSON ClientStateGetRequest where - toJSON :: ClientStateGetRequest -> Value -toJSON = ClientStateGetRequest -> Value +.: Text +"address")) + +instance HsJSONPB.ToJSON ClientStateGetRequest where + toJSON :: ClientStateGetRequest -> Value +toJSON = ClientStateGetRequest -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ClientStateGetRequest -> Encoding -toEncoding = ClientStateGetRequest -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ClientStateGetRequest -> Encoding +toEncoding = ClientStateGetRequest -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ClientStateGetRequest where - parseJSON :: Value -> Parser ClientStateGetRequest -parseJSON = Value -> Parser ClientStateGetRequest +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ClientStateGetRequest where + parseJSON :: Value -> Parser ClientStateGetRequest +parseJSON = Value -> Parser ClientStateGetRequest forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ClientStateGetRequest where - declareNamedSchema :: Proxy ClientStateGetRequest +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ClientStateGetRequest where + declareNamedSchema :: Proxy ClientStateGetRequest -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_state_root :: Proxy (OverrideToSchema Text) +declareNamedSchema Proxy ClientStateGetRequest +_ + = do let declare_state_root :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_state_root = Proxy (OverrideToSchema Text) +declare_state_root = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientStateGetRequestStateRoot <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +clientStateGetRequestStateRoot <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_state_root Proxy (OverrideToSchema Text) +declare_state_root Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_address :: Proxy (OverrideToSchema Text) +Proxy.Proxy + let declare_address :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_address = Proxy (OverrideToSchema Text) +declare_address = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientStateGetRequestAddress <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +clientStateGetRequestAddress <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_address Proxy (OverrideToSchema Text) +declare_address Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ClientStateGetRequest +Proxy.Proxy + let Proxy ClientStateGetRequest _ = (Text -> Text -> ClientStateGetRequest) -> Proxy (Text -> Text -> ClientStateGetRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> Text -> ClientStateGetRequest +Hs.pure Text -> Text -> ClientStateGetRequest ClientStateGetRequest Proxy (Text -> Text -> ClientStateGetRequest) -> Proxy Text -> Proxy (Text -> ClientStateGetRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema Text) +<*> + (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_state_root - Proxy (Text -> ClientStateGetRequest) +declare_state_root + Proxy (Text -> ClientStateGetRequest) -> Proxy Text -> Proxy ClientStateGetRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema Text) +<*> (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_address - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_address + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ClientStateGetRequest", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ClientStateGetRequest", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("state_root", - Referenced Schema -clientStateGetRequestStateRoot), - ("address", - Referenced Schema -clientStateGetRequestAddress)]}}) - -data ClientStateGetResponse = ClientStateGetResponse{ClientStateGetResponse -> Enumerated ClientStateGetResponse_Status +HsJSONPB.insOrdFromList + [(Text +"state_root", + Referenced Schema +clientStateGetRequestStateRoot), + (Text +"address", + Referenced Schema +clientStateGetRequestAddress)]}}) + +data ClientStateGetResponse = ClientStateGetResponse{ClientStateGetResponse -> Enumerated ClientStateGetResponse_Status clientStateGetResponseStatus - :: - HsProtobuf.Enumerated - Data.Sawtooth.ClientState.ClientStateGetResponse_Status, - ClientStateGetResponse -> ByteString -clientStateGetResponseValue :: Hs.ByteString, - ClientStateGetResponse -> Text -clientStateGetResponseStateRoot :: Hs.Text} - deriving (Int -> ClientStateGetResponse -> ShowS + :: + HsProtobuf.Enumerated + Data.Sawtooth.ClientState.ClientStateGetResponse_Status, + ClientStateGetResponse -> ByteString +clientStateGetResponseValue :: Hs.ByteString, + ClientStateGetResponse -> Text +clientStateGetResponseStateRoot :: Hs.Text} + deriving (Int -> ClientStateGetResponse -> ShowS [ClientStateGetResponse] -> ShowS ClientStateGetResponse -> String (Int -> ClientStateGetResponse -> ShowS) @@ -2483,7 +2655,7 @@ show :: ClientStateGetResponse -> String $cshow :: ClientStateGetResponse -> String showsPrec :: Int -> ClientStateGetResponse -> ShowS $cshowsPrec :: Int -> ClientStateGetResponse -> ShowS -Hs.Show, ClientStateGetResponse -> ClientStateGetResponse -> Bool +Hs.Show, ClientStateGetResponse -> ClientStateGetResponse -> Bool (ClientStateGetResponse -> ClientStateGetResponse -> Bool) -> (ClientStateGetResponse -> ClientStateGetResponse -> Bool) -> Eq ClientStateGetResponse @@ -2492,9 +2664,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: ClientStateGetResponse -> ClientStateGetResponse -> Bool == :: ClientStateGetResponse -> ClientStateGetResponse -> Bool $c== :: ClientStateGetResponse -> ClientStateGetResponse -> Bool -Hs.Eq, Eq ClientStateGetResponse -Eq ClientStateGetResponse => -(ClientStateGetResponse -> ClientStateGetResponse -> Ordering) +Hs.Eq, Eq ClientStateGetResponse +Eq ClientStateGetResponse +-> (ClientStateGetResponse -> ClientStateGetResponse -> Ordering) -> (ClientStateGetResponse -> ClientStateGetResponse -> Bool) -> (ClientStateGetResponse -> ClientStateGetResponse -> Bool) -> (ClientStateGetResponse -> ClientStateGetResponse -> Bool) @@ -2509,8 +2681,8 @@ ClientStateGetResponse -> ClientStateGetResponse -> Ordering ClientStateGetResponse -> ClientStateGetResponse -> ClientStateGetResponse forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -2537,7 +2709,7 @@ $c< :: ClientStateGetResponse -> ClientStateGetResponse -> Bool compare :: ClientStateGetResponse -> ClientStateGetResponse -> Ordering $ccompare :: ClientStateGetResponse -> ClientStateGetResponse -> Ordering $cp1Ord :: Eq ClientStateGetResponse -Hs.Ord, (forall x. ClientStateGetResponse -> Rep ClientStateGetResponse x) +Hs.Ord, (forall x. ClientStateGetResponse -> Rep ClientStateGetResponse x) -> (forall x. Rep ClientStateGetResponse x -> ClientStateGetResponse) -> Generic ClientStateGetResponse @@ -2547,66 +2719,73 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep ClientStateGetResponse x -> ClientStateGetResponse $cfrom :: forall x. ClientStateGetResponse -> Rep ClientStateGetResponse x -Hs.Generic, ClientStateGetResponse -> () +Hs.Generic, ClientStateGetResponse -> () (ClientStateGetResponse -> ()) -> NFData ClientStateGetResponse forall a. (a -> ()) -> NFData a rnf :: ClientStateGetResponse -> () $crnf :: ClientStateGetResponse -> () -Hs.NFData) - -instance HsProtobuf.Named ClientStateGetResponse where - nameOf :: Proxy# ClientStateGetResponse -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ClientStateGetResponse where + nameOf :: Proxy# ClientStateGetResponse -> string +nameOf Proxy# ClientStateGetResponse +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ClientStateGetResponse") - -instance HsProtobuf.HasDefault ClientStateGetResponse - -instance HsProtobuf.Message ClientStateGetResponse where - encodeMessage :: FieldNumber -> ClientStateGetResponse -> MessageBuilder -encodeMessage _ - ClientStateGetResponse{clientStateGetResponseStatus :: ClientStateGetResponse -> Enumerated ClientStateGetResponse_Status +Hs.fromString String +"ClientStateGetResponse") + +instance HsProtobuf.HasDefault ClientStateGetResponse + +instance HsProtobuf.Message ClientStateGetResponse where + encodeMessage :: FieldNumber -> ClientStateGetResponse -> MessageBuilder +encodeMessage FieldNumber +_ + ClientStateGetResponse{clientStateGetResponseStatus :: ClientStateGetResponse -> Enumerated ClientStateGetResponse_Status clientStateGetResponseStatus = - Enumerated ClientStateGetResponse_Status -clientStateGetResponseStatus, - clientStateGetResponseValue :: ClientStateGetResponse -> ByteString -clientStateGetResponseValue = ByteString -clientStateGetResponseValue, - clientStateGetResponseStateRoot :: ClientStateGetResponse -> Text -clientStateGetResponseStateRoot = Text -clientStateGetResponseStateRoot} - = ([MessageBuilder] -> MessageBuilder + Enumerated ClientStateGetResponse_Status +clientStateGetResponseStatus, + clientStateGetResponseValue :: ClientStateGetResponse -> ByteString +clientStateGetResponseValue = ByteString +clientStateGetResponseValue, + clientStateGetResponseStateRoot :: ClientStateGetResponse -> Text +clientStateGetResponseStateRoot = Text +clientStateGetResponseStateRoot} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber +Hs.mconcat + [(FieldNumber -> Enumerated ClientStateGetResponse_Status -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Enumerated ClientStateGetResponse_Status -clientStateGetResponseStatus), - (FieldNumber -> ByteString -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Enumerated ClientStateGetResponse_Status +clientStateGetResponseStatus), + (FieldNumber -> ByteString -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - ByteString -clientStateGetResponseValue), - (FieldNumber -> Text -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + ByteString +clientStateGetResponseValue), + (FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - Text -clientStateGetResponseStateRoot)]) - decodeMessage :: FieldNumber -> Parser RawMessage ClientStateGetResponse -decodeMessage _ - = ((Enumerated ClientStateGetResponse_Status +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + Text +clientStateGetResponseStateRoot)]) + decodeMessage :: FieldNumber -> Parser RawMessage ClientStateGetResponse +decodeMessage FieldNumber +_ + = ((Enumerated ClientStateGetResponse_Status -> ByteString -> Text -> ClientStateGetResponse) -> Parser RawMessage (Enumerated ClientStateGetResponse_Status -> ByteString -> Text -> ClientStateGetResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ClientStateGetResponse_Status +Hs.pure Enumerated ClientStateGetResponse_Status -> ByteString -> Text -> ClientStateGetResponse ClientStateGetResponse) Parser RawMessage @@ -2615,158 +2794,179 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Parser RawMessage (Enumerated ClientStateGetResponse_Status) -> Parser RawMessage (ByteString -> Text -> ClientStateGetResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField (Enumerated ClientStateGetResponse_Status) +<*> + (Parser RawField (Enumerated ClientStateGetResponse_Status) -> FieldNumber -> Parser RawMessage (Enumerated ClientStateGetResponse_Status) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (Enumerated ClientStateGetResponse_Status) +HsProtobuf.at Parser RawField (Enumerated ClientStateGetResponse_Status) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser RawMessage (ByteString -> Text -> ClientStateGetResponse) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (ByteString -> Text -> ClientStateGetResponse) -> Parser RawMessage ByteString -> Parser RawMessage (Text -> ClientStateGetResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField ByteString +<*> + (Parser RawField ByteString -> FieldNumber -> Parser RawMessage ByteString forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField ByteString +HsProtobuf.at Parser RawField ByteString forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2)) - Parser RawMessage (Text -> ClientStateGetResponse) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2)) + Parser RawMessage (Text -> ClientStateGetResponse) -> Parser RawMessage Text -> Parser RawMessage ClientStateGetResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3)) - dotProto :: Proxy# ClientStateGetResponse -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3)) + dotProto :: Proxy# ClientStateGetResponse -> [DotProtoField] +dotProto Proxy# ClientStateGetResponse +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "Status"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "status") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"Status"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"status") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.Bytes) - (String -> DotProtoIdentifier -HsProtobuf.Single "value") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.Bytes) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"value") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "state_root") - [] - "")] - -instance HsJSONPB.ToJSONPB ClientStateGetResponse where - toJSONPB :: ClientStateGetResponse -> Options -> Value -toJSONPB (ClientStateGetResponse f1 :: Enumerated ClientStateGetResponse_Status -f1 f2 :: ByteString -f2 f3 :: Text -f3) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object - ["status" Text +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"state_root") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ClientStateGetResponse where + toJSONPB :: ClientStateGetResponse -> Options -> Value +toJSONPB (ClientStateGetResponse Enumerated ClientStateGetResponse_Status +f1 ByteString +f2 Text +f3) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object + [Text +"status" Text -> Enumerated ClientStateGetResponse_Status -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated ClientStateGetResponse_Status -f1, "value" Text -> ByteString -> Options -> [Pair] +.= Enumerated ClientStateGetResponse_Status +f1, Text +"value" Text -> ByteString -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f2, "state_root" Text -> Text -> Options -> [Pair] +.= ByteString +f2, Text +"state_root" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f3]) - toEncodingPB :: ClientStateGetResponse -> Options -> Encoding -toEncodingPB (ClientStateGetResponse f1 :: Enumerated ClientStateGetResponse_Status -f1 f2 :: ByteString -f2 f3 :: Text -f3) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs - ["status" Text +.= Text +f3]) + toEncodingPB :: ClientStateGetResponse -> Options -> Encoding +toEncodingPB (ClientStateGetResponse Enumerated ClientStateGetResponse_Status +f1 ByteString +f2 Text +f3) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs + [Text +"status" Text -> Enumerated ClientStateGetResponse_Status -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated ClientStateGetResponse_Status -f1, "value" Text -> ByteString -> Options -> Series +.= Enumerated ClientStateGetResponse_Status +f1, Text +"value" Text -> ByteString -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f2, "state_root" Text -> Text -> Options -> Series +.= ByteString +f2, Text +"state_root" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f3]) - -instance HsJSONPB.FromJSONPB ClientStateGetResponse where - parseJSONPB :: Value -> Parser ClientStateGetResponse -parseJSONPB - = (String +.= Text +f3]) + +instance HsJSONPB.FromJSONPB ClientStateGetResponse where + parseJSONPB :: Value -> Parser ClientStateGetResponse +parseJSONPB + = (String -> (Object -> Parser ClientStateGetResponse) -> Value -> Parser ClientStateGetResponse forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ClientStateGetResponse" - (\ obj :: Object -obj -> - ((Enumerated ClientStateGetResponse_Status +HsJSONPB.withObject String +"ClientStateGetResponse" + (\ Object +obj -> + ((Enumerated ClientStateGetResponse_Status -> ByteString -> Text -> ClientStateGetResponse) -> Parser (Enumerated ClientStateGetResponse_Status -> ByteString -> Text -> ClientStateGetResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ClientStateGetResponse_Status +Hs.pure Enumerated ClientStateGetResponse_Status -> ByteString -> Text -> ClientStateGetResponse ClientStateGetResponse) Parser (Enumerated ClientStateGetResponse_Status @@ -2774,101 +2974,105 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Parser (Enumerated ClientStateGetResponse_Status) -> Parser (ByteString -> Text -> ClientStateGetResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser (Enumerated ClientStateGetResponse_Status) +<*> Object +obj Object -> Text -> Parser (Enumerated ClientStateGetResponse_Status) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "status" Parser (ByteString -> Text -> ClientStateGetResponse) +.: Text +"status" Parser (ByteString -> Text -> ClientStateGetResponse) -> Parser ByteString -> Parser (Text -> ClientStateGetResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser ByteString +<*> + Object +obj Object -> Text -> Parser ByteString forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "value" - Parser (Text -> ClientStateGetResponse) +.: Text +"value" + Parser (Text -> ClientStateGetResponse) -> Parser Text -> Parser ClientStateGetResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Text +<*> Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "state_root")) - -instance HsJSONPB.ToJSON ClientStateGetResponse where - toJSON :: ClientStateGetResponse -> Value -toJSON = ClientStateGetResponse -> Value +.: Text +"state_root")) + +instance HsJSONPB.ToJSON ClientStateGetResponse where + toJSON :: ClientStateGetResponse -> Value +toJSON = ClientStateGetResponse -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ClientStateGetResponse -> Encoding -toEncoding = ClientStateGetResponse -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ClientStateGetResponse -> Encoding +toEncoding = ClientStateGetResponse -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ClientStateGetResponse where - parseJSON :: Value -> Parser ClientStateGetResponse -parseJSON = Value -> Parser ClientStateGetResponse +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ClientStateGetResponse where + parseJSON :: Value -> Parser ClientStateGetResponse +parseJSON = Value -> Parser ClientStateGetResponse forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ClientStateGetResponse where - declareNamedSchema :: Proxy ClientStateGetResponse +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ClientStateGetResponse where + declareNamedSchema :: Proxy ClientStateGetResponse -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_status :: Proxy (OverrideToSchema (Enumerated ClientStateGetResponse_Status)) +declareNamedSchema Proxy ClientStateGetResponse +_ + = do let declare_status :: Proxy (OverrideToSchema (Enumerated ClientStateGetResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status = Proxy (OverrideToSchema (Enumerated ClientStateGetResponse_Status)) +declare_status = Proxy (OverrideToSchema (Enumerated ClientStateGetResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientStateGetResponseStatus <- Proxy (OverrideToSchema (Enumerated ClientStateGetResponse_Status)) +HsJSONPB.declareSchemaRef + Referenced Schema +clientStateGetResponseStatus <- Proxy (OverrideToSchema (Enumerated ClientStateGetResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status Proxy (OverrideToSchema (Enumerated ClientStateGetResponse_Status)) +declare_status Proxy (OverrideToSchema (Enumerated ClientStateGetResponse_Status)) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_value :: Proxy (OverrideToSchema ByteString) +Proxy.Proxy + let declare_value :: Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_value = Proxy (OverrideToSchema ByteString) +declare_value = Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientStateGetResponseValue <- Proxy (OverrideToSchema ByteString) +HsJSONPB.declareSchemaRef + Referenced Schema +clientStateGetResponseValue <- Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_value Proxy (OverrideToSchema ByteString) +declare_value Proxy (OverrideToSchema ByteString) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_state_root :: Proxy (OverrideToSchema Text) +Proxy.Proxy + let declare_state_root :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_state_root = Proxy (OverrideToSchema Text) +declare_state_root = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientStateGetResponseStateRoot <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +clientStateGetResponseStateRoot <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_state_root Proxy (OverrideToSchema Text) +declare_state_root Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ClientStateGetResponse +Proxy.Proxy + let Proxy ClientStateGetResponse _ = (Enumerated ClientStateGetResponse_Status -> ByteString -> Text -> ClientStateGetResponse) -> Proxy (Enumerated ClientStateGetResponse_Status -> ByteString -> Text -> ClientStateGetResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ClientStateGetResponse_Status +Hs.pure Enumerated ClientStateGetResponse_Status -> ByteString -> Text -> ClientStateGetResponse ClientStateGetResponse Proxy (Enumerated ClientStateGetResponse_Status @@ -2876,82 +3080,86 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Proxy (Enumerated ClientStateGetResponse_Status) -> Proxy (ByteString -> Text -> ClientStateGetResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy +<*> + (Proxy (OverrideToSchema (Enumerated ClientStateGetResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Enumerated ClientStateGetResponse_Status) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Enumerated ClientStateGetResponse_Status)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Enumerated ClientStateGetResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status - Proxy (ByteString -> Text -> ClientStateGetResponse) +declare_status + Proxy (ByteString -> Text -> ClientStateGetResponse) -> Proxy ByteString -> Proxy (Text -> ClientStateGetResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema ByteString) +<*> (Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy ByteString forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) +HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_value - Proxy (Text -> ClientStateGetResponse) +declare_value + Proxy (Text -> ClientStateGetResponse) -> Proxy Text -> Proxy ClientStateGetResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema Text) +<*> (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_state_root - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_state_root + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ClientStateGetResponse", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ClientStateGetResponse", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("status", Referenced Schema -clientStateGetResponseStatus), - ("value", Referenced Schema -clientStateGetResponseValue), - ("state_root", - Referenced Schema -clientStateGetResponseStateRoot)]}}) - -data ClientStateGetResponse_Status = ClientStateGetResponse_StatusSTATUS_UNSET - | ClientStateGetResponse_StatusOK - | ClientStateGetResponse_StatusINTERNAL_ERROR - | ClientStateGetResponse_StatusNOT_READY - | ClientStateGetResponse_StatusNO_ROOT - | ClientStateGetResponse_StatusNO_RESOURCE - | ClientStateGetResponse_StatusINVALID_ADDRESS - | ClientStateGetResponse_StatusINVALID_ROOT - deriving (Int -> ClientStateGetResponse_Status -> ShowS +HsJSONPB.insOrdFromList + [(Text +"status", Referenced Schema +clientStateGetResponseStatus), + (Text +"value", Referenced Schema +clientStateGetResponseValue), + (Text +"state_root", + Referenced Schema +clientStateGetResponseStateRoot)]}}) + +data ClientStateGetResponse_Status = ClientStateGetResponse_StatusSTATUS_UNSET + | ClientStateGetResponse_StatusOK + | ClientStateGetResponse_StatusINTERNAL_ERROR + | ClientStateGetResponse_StatusNOT_READY + | ClientStateGetResponse_StatusNO_ROOT + | ClientStateGetResponse_StatusNO_RESOURCE + | ClientStateGetResponse_StatusINVALID_ADDRESS + | ClientStateGetResponse_StatusINVALID_ROOT + deriving (Int -> ClientStateGetResponse_Status -> ShowS [ClientStateGetResponse_Status] -> ShowS ClientStateGetResponse_Status -> String (Int -> ClientStateGetResponse_Status -> ShowS) @@ -2966,7 +3174,7 @@ show :: ClientStateGetResponse_Status -> String $cshow :: ClientStateGetResponse_Status -> String showsPrec :: Int -> ClientStateGetResponse_Status -> ShowS $cshowsPrec :: Int -> ClientStateGetResponse_Status -> ShowS -Hs.Show, ClientStateGetResponse_Status +Hs.Show, ClientStateGetResponse_Status -> ClientStateGetResponse_Status -> Bool (ClientStateGetResponse_Status -> ClientStateGetResponse_Status -> Bool) @@ -2982,7 +3190,7 @@ $c/= :: ClientStateGetResponse_Status -> ClientStateGetResponse_Status -> Bool $c== :: ClientStateGetResponse_Status -> ClientStateGetResponse_Status -> Bool -Hs.Eq, (forall x. +Hs.Eq, (forall x. ClientStateGetResponse_Status -> Rep ClientStateGetResponse_Status x) -> (forall x. @@ -3003,199 +3211,229 @@ Rep ClientStateGetResponse_Status x $cfrom :: forall x. ClientStateGetResponse_Status -> Rep ClientStateGetResponse_Status x -Hs.Generic, ClientStateGetResponse_Status -> () +Hs.Generic, ClientStateGetResponse_Status -> () (ClientStateGetResponse_Status -> ()) -> NFData ClientStateGetResponse_Status forall a. (a -> ()) -> NFData a rnf :: ClientStateGetResponse_Status -> () $crnf :: ClientStateGetResponse_Status -> () -Hs.NFData) - -instance HsProtobuf.Named ClientStateGetResponse_Status where - nameOf :: Proxy# ClientStateGetResponse_Status -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ClientStateGetResponse_Status where + nameOf :: Proxy# ClientStateGetResponse_Status -> string +nameOf Proxy# ClientStateGetResponse_Status +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ClientStateGetResponse_Status") - -instance HsProtobuf.HasDefault ClientStateGetResponse_Status - -instance Hs.Bounded ClientStateGetResponse_Status where - minBound :: ClientStateGetResponse_Status -minBound = ClientStateGetResponse_Status +Hs.fromString String +"ClientStateGetResponse_Status") + +instance HsProtobuf.HasDefault ClientStateGetResponse_Status + +instance Hs.Bounded ClientStateGetResponse_Status where + minBound :: ClientStateGetResponse_Status +minBound = ClientStateGetResponse_Status ClientStateGetResponse_StatusSTATUS_UNSET - maxBound :: ClientStateGetResponse_Status -maxBound = ClientStateGetResponse_Status + maxBound :: ClientStateGetResponse_Status +maxBound = ClientStateGetResponse_Status ClientStateGetResponse_StatusINVALID_ROOT - -instance Hs.Ord ClientStateGetResponse_Status where - compare :: ClientStateGetResponse_Status + +instance Hs.Ord ClientStateGetResponse_Status where + compare :: ClientStateGetResponse_Status -> ClientStateGetResponse_Status -> Ordering -compare x :: ClientStateGetResponse_Status -x y :: ClientStateGetResponse_Status -y - = Int32 -> Int32 -> Ordering +compare ClientStateGetResponse_Status +x ClientStateGetResponse_Status +y + = Int32 -> Int32 -> Ordering forall a. Ord a => a -> a -> Ordering -Hs.compare (ClientStateGetResponse_Status -> Int32 +Hs.compare (ClientStateGetResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum ClientStateGetResponse_Status -x) - (ClientStateGetResponse_Status -> Int32 +HsProtobuf.fromProtoEnum ClientStateGetResponse_Status +x) + (ClientStateGetResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum ClientStateGetResponse_Status -y) - -instance HsProtobuf.ProtoEnum ClientStateGetResponse_Status where - toProtoEnumMay :: Int32 -> Maybe ClientStateGetResponse_Status -toProtoEnumMay 0 - = ClientStateGetResponse_Status +HsProtobuf.fromProtoEnum ClientStateGetResponse_Status +y) + +instance HsProtobuf.ProtoEnum ClientStateGetResponse_Status where + toProtoEnumMay :: Int32 -> Maybe ClientStateGetResponse_Status +toProtoEnumMay Int32 +0 + = ClientStateGetResponse_Status -> Maybe ClientStateGetResponse_Status forall a. a -> Maybe a -Hs.Just ClientStateGetResponse_Status +Hs.Just ClientStateGetResponse_Status ClientStateGetResponse_StatusSTATUS_UNSET - toProtoEnumMay 1 = ClientStateGetResponse_Status + toProtoEnumMay Int32 +1 = ClientStateGetResponse_Status -> Maybe ClientStateGetResponse_Status forall a. a -> Maybe a -Hs.Just ClientStateGetResponse_Status +Hs.Just ClientStateGetResponse_Status ClientStateGetResponse_StatusOK - toProtoEnumMay 2 - = ClientStateGetResponse_Status + toProtoEnumMay Int32 +2 + = ClientStateGetResponse_Status -> Maybe ClientStateGetResponse_Status forall a. a -> Maybe a -Hs.Just ClientStateGetResponse_Status +Hs.Just ClientStateGetResponse_Status ClientStateGetResponse_StatusINTERNAL_ERROR - toProtoEnumMay 3 = ClientStateGetResponse_Status + toProtoEnumMay Int32 +3 = ClientStateGetResponse_Status -> Maybe ClientStateGetResponse_Status forall a. a -> Maybe a -Hs.Just ClientStateGetResponse_Status +Hs.Just ClientStateGetResponse_Status ClientStateGetResponse_StatusNOT_READY - toProtoEnumMay 4 = ClientStateGetResponse_Status + toProtoEnumMay Int32 +4 = ClientStateGetResponse_Status -> Maybe ClientStateGetResponse_Status forall a. a -> Maybe a -Hs.Just ClientStateGetResponse_Status +Hs.Just ClientStateGetResponse_Status ClientStateGetResponse_StatusNO_ROOT - toProtoEnumMay 5 = ClientStateGetResponse_Status + toProtoEnumMay Int32 +5 = ClientStateGetResponse_Status -> Maybe ClientStateGetResponse_Status forall a. a -> Maybe a -Hs.Just ClientStateGetResponse_Status +Hs.Just ClientStateGetResponse_Status ClientStateGetResponse_StatusNO_RESOURCE - toProtoEnumMay 6 - = ClientStateGetResponse_Status + toProtoEnumMay Int32 +6 + = ClientStateGetResponse_Status -> Maybe ClientStateGetResponse_Status forall a. a -> Maybe a -Hs.Just ClientStateGetResponse_Status +Hs.Just ClientStateGetResponse_Status ClientStateGetResponse_StatusINVALID_ADDRESS - toProtoEnumMay 7 - = ClientStateGetResponse_Status + toProtoEnumMay Int32 +7 + = ClientStateGetResponse_Status -> Maybe ClientStateGetResponse_Status forall a. a -> Maybe a -Hs.Just ClientStateGetResponse_Status +Hs.Just ClientStateGetResponse_Status ClientStateGetResponse_StatusINVALID_ROOT - toProtoEnumMay _ = Maybe ClientStateGetResponse_Status + toProtoEnumMay Int32 +_ = Maybe ClientStateGetResponse_Status forall a. Maybe a -Hs.Nothing - fromProtoEnum :: ClientStateGetResponse_Status -> Int32 -fromProtoEnum (ClientStateGetResponse_Status -ClientStateGetResponse_StatusSTATUS_UNSET) = 0 - fromProtoEnum (ClientStateGetResponse_Status -ClientStateGetResponse_StatusOK) = 1 - fromProtoEnum (ClientStateGetResponse_Status -ClientStateGetResponse_StatusINTERNAL_ERROR) = 2 - fromProtoEnum (ClientStateGetResponse_Status -ClientStateGetResponse_StatusNOT_READY) = 3 - fromProtoEnum (ClientStateGetResponse_Status -ClientStateGetResponse_StatusNO_ROOT) = 4 - fromProtoEnum (ClientStateGetResponse_Status -ClientStateGetResponse_StatusNO_RESOURCE) = 5 - fromProtoEnum (ClientStateGetResponse_Status -ClientStateGetResponse_StatusINVALID_ADDRESS) = 6 - fromProtoEnum (ClientStateGetResponse_Status -ClientStateGetResponse_StatusINVALID_ROOT) = 7 - -instance HsJSONPB.ToJSONPB ClientStateGetResponse_Status where - toJSONPB :: ClientStateGetResponse_Status -> Options -> Value -toJSONPB x :: ClientStateGetResponse_Status -x _ = ClientStateGetResponse_Status -> Value +Hs.Nothing + fromProtoEnum :: ClientStateGetResponse_Status -> Int32 +fromProtoEnum (ClientStateGetResponse_Status +ClientStateGetResponse_StatusSTATUS_UNSET) = Int32 +0 + fromProtoEnum (ClientStateGetResponse_Status +ClientStateGetResponse_StatusOK) = Int32 +1 + fromProtoEnum (ClientStateGetResponse_Status +ClientStateGetResponse_StatusINTERNAL_ERROR) = Int32 +2 + fromProtoEnum (ClientStateGetResponse_Status +ClientStateGetResponse_StatusNOT_READY) = Int32 +3 + fromProtoEnum (ClientStateGetResponse_Status +ClientStateGetResponse_StatusNO_ROOT) = Int32 +4 + fromProtoEnum (ClientStateGetResponse_Status +ClientStateGetResponse_StatusNO_RESOURCE) = Int32 +5 + fromProtoEnum (ClientStateGetResponse_Status +ClientStateGetResponse_StatusINVALID_ADDRESS) = Int32 +6 + fromProtoEnum (ClientStateGetResponse_Status +ClientStateGetResponse_StatusINVALID_ROOT) = Int32 +7 + +instance HsJSONPB.ToJSONPB ClientStateGetResponse_Status where + toJSONPB :: ClientStateGetResponse_Status -> Options -> Value +toJSONPB ClientStateGetResponse_Status +x Options +_ = ClientStateGetResponse_Status -> Value forall a. (Named a, Show a) => a -> Value -HsJSONPB.enumFieldString ClientStateGetResponse_Status -x - toEncodingPB :: ClientStateGetResponse_Status -> Options -> Encoding -toEncodingPB x :: ClientStateGetResponse_Status -x _ = ClientStateGetResponse_Status -> Encoding +HsJSONPB.enumFieldString ClientStateGetResponse_Status +x + toEncodingPB :: ClientStateGetResponse_Status -> Options -> Encoding +toEncodingPB ClientStateGetResponse_Status +x Options +_ = ClientStateGetResponse_Status -> Encoding forall a. (Named a, Show a) => a -> Encoding -HsJSONPB.enumFieldEncoding ClientStateGetResponse_Status -x - -instance HsJSONPB.FromJSONPB ClientStateGetResponse_Status where - parseJSONPB :: Value -> Parser ClientStateGetResponse_Status -parseJSONPB (HsJSONPB.String "STATUS_UNSET") - = ClientStateGetResponse_Status +HsJSONPB.enumFieldEncoding ClientStateGetResponse_Status +x + +instance HsJSONPB.FromJSONPB ClientStateGetResponse_Status where + parseJSONPB :: Value -> Parser ClientStateGetResponse_Status +parseJSONPB (HsJSONPB.String Text +"STATUS_UNSET") + = ClientStateGetResponse_Status -> Parser ClientStateGetResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientStateGetResponse_Status +Hs.pure ClientStateGetResponse_Status ClientStateGetResponse_StatusSTATUS_UNSET - parseJSONPB (HsJSONPB.String "OK") - = ClientStateGetResponse_Status + parseJSONPB (HsJSONPB.String Text +"OK") + = ClientStateGetResponse_Status -> Parser ClientStateGetResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientStateGetResponse_Status +Hs.pure ClientStateGetResponse_Status ClientStateGetResponse_StatusOK - parseJSONPB (HsJSONPB.String "INTERNAL_ERROR") - = ClientStateGetResponse_Status + parseJSONPB (HsJSONPB.String Text +"INTERNAL_ERROR") + = ClientStateGetResponse_Status -> Parser ClientStateGetResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientStateGetResponse_Status +Hs.pure ClientStateGetResponse_Status ClientStateGetResponse_StatusINTERNAL_ERROR - parseJSONPB (HsJSONPB.String "NOT_READY") - = ClientStateGetResponse_Status + parseJSONPB (HsJSONPB.String Text +"NOT_READY") + = ClientStateGetResponse_Status -> Parser ClientStateGetResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientStateGetResponse_Status +Hs.pure ClientStateGetResponse_Status ClientStateGetResponse_StatusNOT_READY - parseJSONPB (HsJSONPB.String "NO_ROOT") - = ClientStateGetResponse_Status + parseJSONPB (HsJSONPB.String Text +"NO_ROOT") + = ClientStateGetResponse_Status -> Parser ClientStateGetResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientStateGetResponse_Status +Hs.pure ClientStateGetResponse_Status ClientStateGetResponse_StatusNO_ROOT - parseJSONPB (HsJSONPB.String "NO_RESOURCE") - = ClientStateGetResponse_Status + parseJSONPB (HsJSONPB.String Text +"NO_RESOURCE") + = ClientStateGetResponse_Status -> Parser ClientStateGetResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientStateGetResponse_Status +Hs.pure ClientStateGetResponse_Status ClientStateGetResponse_StatusNO_RESOURCE - parseJSONPB (HsJSONPB.String "INVALID_ADDRESS") - = ClientStateGetResponse_Status + parseJSONPB (HsJSONPB.String Text +"INVALID_ADDRESS") + = ClientStateGetResponse_Status -> Parser ClientStateGetResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientStateGetResponse_Status +Hs.pure ClientStateGetResponse_Status ClientStateGetResponse_StatusINVALID_ADDRESS - parseJSONPB (HsJSONPB.String "INVALID_ROOT") - = ClientStateGetResponse_Status + parseJSONPB (HsJSONPB.String Text +"INVALID_ROOT") + = ClientStateGetResponse_Status -> Parser ClientStateGetResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientStateGetResponse_Status +Hs.pure ClientStateGetResponse_Status ClientStateGetResponse_StatusINVALID_ROOT - parseJSONPB v :: Value -v - = (String -> Value -> Parser ClientStateGetResponse_Status + parseJSONPB Value +v + = (String -> Value -> Parser ClientStateGetResponse_Status forall a. String -> Value -> Parser a -HsJSONPB.typeMismatch "ClientStateGetResponse_Status" Value -v) - -instance HsJSONPB.ToJSON ClientStateGetResponse_Status where - toJSON :: ClientStateGetResponse_Status -> Value -toJSON = ClientStateGetResponse_Status -> Value +HsJSONPB.typeMismatch String +"ClientStateGetResponse_Status" Value +v) + +instance HsJSONPB.ToJSON ClientStateGetResponse_Status where + toJSON :: ClientStateGetResponse_Status -> Value +toJSON = ClientStateGetResponse_Status -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ClientStateGetResponse_Status -> Encoding -toEncoding = ClientStateGetResponse_Status -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ClientStateGetResponse_Status -> Encoding +toEncoding = ClientStateGetResponse_Status -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ClientStateGetResponse_Status where - parseJSON :: Value -> Parser ClientStateGetResponse_Status -parseJSON = Value -> Parser ClientStateGetResponse_Status +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ClientStateGetResponse_Status where + parseJSON :: Value -> Parser ClientStateGetResponse_Status +parseJSON = Value -> Parser ClientStateGetResponse_Status forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsProtobuf.Finite ClientStateGetResponse_Status \ No newline at end of file +HsJSONPB.parseJSONPB + +instance HsProtobuf.Finite ClientStateGetResponse_Status \ No newline at end of file diff --git a/src/Data.Sawtooth.ClientStatus.html b/src/Data.Sawtooth.ClientStatus.html index d8c8de5..bc46855 100644 --- a/src/Data.Sawtooth.ClientStatus.html +++ b/src/Data.Sawtooth.ClientStatus.html @@ -9,35 +9,34 @@ {-# OPTIONS_GHC -fno-warn-unused-matches #-} -- | Generated by Haskell protocol buffer compiler. DO NOT EDIT! - -module Data.Sawtooth.ClientStatus where -import qualified Prelude as Hs -import qualified Proto3.Suite.Class as HsProtobuf -import qualified Proto3.Suite.DotProto as HsProtobuf -import qualified Proto3.Suite.JSONPB as HsJSONPB -import Proto3.Suite.JSONPB ((.=), (.:)) -import qualified Proto3.Suite.Types as HsProtobuf -import qualified Proto3.Wire as HsProtobuf -import qualified Control.Applicative as Hs -import Control.Applicative ((<*>), (<|>), (<$>)) -import qualified Control.DeepSeq as Hs -import qualified Control.Monad as Hs -import qualified Data.ByteString as Hs -import qualified Data.Coerce as Hs -import qualified Data.Int as Hs (Int16, Int32, Int64) -import qualified Data.List.NonEmpty as Hs (NonEmpty(..)) -import qualified Data.Map as Hs (Map, mapKeysMonotonic) -import qualified Data.Proxy as Proxy -import qualified Data.String as Hs (fromString) -import qualified Data.Text.Lazy as Hs (Text) -import qualified Data.Vector as Hs (Vector) -import qualified Data.Word as Hs (Word16, Word32, Word64) -import qualified GHC.Enum as Hs -import qualified GHC.Generics as Hs -import qualified Unsafe.Coerce as Hs - -data ClientStatusGetRequest = ClientStatusGetRequest{} - deriving (Int -> ClientStatusGetRequest -> ShowS +module Data.Sawtooth.ClientStatus where +import qualified Prelude as Hs +import qualified Proto3.Suite.Class as HsProtobuf +import qualified Proto3.Suite.DotProto as HsProtobuf +import qualified Proto3.Suite.JSONPB as HsJSONPB +import Proto3.Suite.JSONPB ((.=), (.:)) +import qualified Proto3.Suite.Types as HsProtobuf +import qualified Proto3.Wire as HsProtobuf +import qualified Control.Applicative as Hs +import Control.Applicative ((<*>), (<|>), (<$>)) +import qualified Control.DeepSeq as Hs +import qualified Control.Monad as Hs +import qualified Data.ByteString as Hs +import qualified Data.Coerce as Hs +import qualified Data.Int as Hs (Int16, Int32, Int64) +import qualified Data.List.NonEmpty as Hs (NonEmpty(..)) +import qualified Data.Map as Hs (Map, mapKeysMonotonic) +import qualified Data.Proxy as Proxy +import qualified Data.String as Hs (fromString) +import qualified Data.Text.Lazy as Hs (Text) +import qualified Data.Vector as Hs (Vector) +import qualified Data.Word as Hs (Word16, Word32, Word64) +import qualified GHC.Enum as Hs +import qualified GHC.Generics as Hs +import qualified Unsafe.Coerce as Hs + +data ClientStatusGetRequest = ClientStatusGetRequest{} + deriving (Int -> ClientStatusGetRequest -> ShowS [ClientStatusGetRequest] -> ShowS ClientStatusGetRequest -> String (Int -> ClientStatusGetRequest -> ShowS) @@ -52,7 +51,7 @@ show :: ClientStatusGetRequest -> String $cshow :: ClientStatusGetRequest -> String showsPrec :: Int -> ClientStatusGetRequest -> ShowS $cshowsPrec :: Int -> ClientStatusGetRequest -> ShowS -Hs.Show, ClientStatusGetRequest -> ClientStatusGetRequest -> Bool +Hs.Show, ClientStatusGetRequest -> ClientStatusGetRequest -> Bool (ClientStatusGetRequest -> ClientStatusGetRequest -> Bool) -> (ClientStatusGetRequest -> ClientStatusGetRequest -> Bool) -> Eq ClientStatusGetRequest @@ -61,9 +60,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: ClientStatusGetRequest -> ClientStatusGetRequest -> Bool == :: ClientStatusGetRequest -> ClientStatusGetRequest -> Bool $c== :: ClientStatusGetRequest -> ClientStatusGetRequest -> Bool -Hs.Eq, Eq ClientStatusGetRequest -Eq ClientStatusGetRequest => -(ClientStatusGetRequest -> ClientStatusGetRequest -> Ordering) +Hs.Eq, Eq ClientStatusGetRequest +Eq ClientStatusGetRequest +-> (ClientStatusGetRequest -> ClientStatusGetRequest -> Ordering) -> (ClientStatusGetRequest -> ClientStatusGetRequest -> Bool) -> (ClientStatusGetRequest -> ClientStatusGetRequest -> Bool) -> (ClientStatusGetRequest -> ClientStatusGetRequest -> Bool) @@ -78,8 +77,8 @@ ClientStatusGetRequest -> ClientStatusGetRequest -> Ordering ClientStatusGetRequest -> ClientStatusGetRequest -> ClientStatusGetRequest forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -106,7 +105,7 @@ $c< :: ClientStatusGetRequest -> ClientStatusGetRequest -> Bool compare :: ClientStatusGetRequest -> ClientStatusGetRequest -> Ordering $ccompare :: ClientStatusGetRequest -> ClientStatusGetRequest -> Ordering $cp1Ord :: Eq ClientStatusGetRequest -Hs.Ord, (forall x. ClientStatusGetRequest -> Rep ClientStatusGetRequest x) +Hs.Ord, (forall x. ClientStatusGetRequest -> Rep ClientStatusGetRequest x) -> (forall x. Rep ClientStatusGetRequest x -> ClientStatusGetRequest) -> Generic ClientStatusGetRequest @@ -116,123 +115,131 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep ClientStatusGetRequest x -> ClientStatusGetRequest $cfrom :: forall x. ClientStatusGetRequest -> Rep ClientStatusGetRequest x -Hs.Generic, ClientStatusGetRequest -> () +Hs.Generic, ClientStatusGetRequest -> () (ClientStatusGetRequest -> ()) -> NFData ClientStatusGetRequest forall a. (a -> ()) -> NFData a rnf :: ClientStatusGetRequest -> () $crnf :: ClientStatusGetRequest -> () -Hs.NFData) - -instance HsProtobuf.Named ClientStatusGetRequest where - nameOf :: Proxy# ClientStatusGetRequest -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ClientStatusGetRequest where + nameOf :: Proxy# ClientStatusGetRequest -> string +nameOf Proxy# ClientStatusGetRequest +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ClientStatusGetRequest") - -instance HsProtobuf.HasDefault ClientStatusGetRequest - -instance HsProtobuf.Message ClientStatusGetRequest where - encodeMessage :: FieldNumber -> ClientStatusGetRequest -> MessageBuilder -encodeMessage _ ClientStatusGetRequest{} = ([MessageBuilder] -> MessageBuilder +Hs.fromString String +"ClientStatusGetRequest") + +instance HsProtobuf.HasDefault ClientStatusGetRequest + +instance HsProtobuf.Message ClientStatusGetRequest where + encodeMessage :: FieldNumber -> ClientStatusGetRequest -> MessageBuilder +encodeMessage FieldNumber +_ ClientStatusGetRequest{} = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat []) - decodeMessage :: FieldNumber -> Parser RawMessage ClientStatusGetRequest -decodeMessage _ = (ClientStatusGetRequest -> Parser RawMessage ClientStatusGetRequest +Hs.mconcat []) + decodeMessage :: FieldNumber -> Parser RawMessage ClientStatusGetRequest +decodeMessage FieldNumber +_ = (ClientStatusGetRequest -> Parser RawMessage ClientStatusGetRequest forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientStatusGetRequest +Hs.pure ClientStatusGetRequest ClientStatusGetRequest) - dotProto :: Proxy# ClientStatusGetRequest -> [DotProtoField] -dotProto _ = [] - -instance HsJSONPB.ToJSONPB ClientStatusGetRequest where - toJSONPB :: ClientStatusGetRequest -> Options -> Value -toJSONPB (ClientStatusGetRequest + dotProto :: Proxy# ClientStatusGetRequest -> [DotProtoField] +dotProto Proxy# ClientStatusGetRequest +_ = [] + +instance HsJSONPB.ToJSONPB ClientStatusGetRequest where + toJSONPB :: ClientStatusGetRequest -> Options -> Value +toJSONPB (ClientStatusGetRequest ClientStatusGetRequest) = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object []) - toEncodingPB :: ClientStatusGetRequest -> Options -> Encoding -toEncodingPB (ClientStatusGetRequest +HsJSONPB.object []) + toEncodingPB :: ClientStatusGetRequest -> Options -> Encoding +toEncodingPB (ClientStatusGetRequest ClientStatusGetRequest) = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs []) - -instance HsJSONPB.FromJSONPB ClientStatusGetRequest where - parseJSONPB :: Value -> Parser ClientStatusGetRequest -parseJSONPB - = (String +HsJSONPB.pairs []) + +instance HsJSONPB.FromJSONPB ClientStatusGetRequest where + parseJSONPB :: Value -> Parser ClientStatusGetRequest +parseJSONPB + = (String -> (Object -> Parser ClientStatusGetRequest) -> Value -> Parser ClientStatusGetRequest forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ClientStatusGetRequest" - (\ obj :: Object -obj -> (ClientStatusGetRequest -> Parser ClientStatusGetRequest +HsJSONPB.withObject String +"ClientStatusGetRequest" + (\ Object +obj -> (ClientStatusGetRequest -> Parser ClientStatusGetRequest forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientStatusGetRequest +Hs.pure ClientStatusGetRequest ClientStatusGetRequest))) - -instance HsJSONPB.ToJSON ClientStatusGetRequest where - toJSON :: ClientStatusGetRequest -> Value -toJSON = ClientStatusGetRequest -> Value + +instance HsJSONPB.ToJSON ClientStatusGetRequest where + toJSON :: ClientStatusGetRequest -> Value +toJSON = ClientStatusGetRequest -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ClientStatusGetRequest -> Encoding -toEncoding = ClientStatusGetRequest -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ClientStatusGetRequest -> Encoding +toEncoding = ClientStatusGetRequest -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ClientStatusGetRequest where - parseJSON :: Value -> Parser ClientStatusGetRequest -parseJSON = Value -> Parser ClientStatusGetRequest +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ClientStatusGetRequest where + parseJSON :: Value -> Parser ClientStatusGetRequest +parseJSON = Value -> Parser ClientStatusGetRequest forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ClientStatusGetRequest where - declareNamedSchema :: Proxy ClientStatusGetRequest +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ClientStatusGetRequest where + declareNamedSchema :: Proxy ClientStatusGetRequest -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do NamedSchema -> Declare (Definitions Schema) NamedSchema +declareNamedSchema Proxy ClientStatusGetRequest +_ + = do NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ClientStatusGetRequest", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ClientStatusGetRequest", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList []}}) - -data ClientStatusGetResponse = ClientStatusGetResponse{ClientStatusGetResponse +HsJSONPB.insOrdFromList []}}) + +data ClientStatusGetResponse = ClientStatusGetResponse{ClientStatusGetResponse -> Enumerated ClientStatusGetResponse_Status clientStatusGetResponseStatus - :: - HsProtobuf.Enumerated - Data.Sawtooth.ClientStatus.ClientStatusGetResponse_Status, - ClientStatusGetResponse -> Vector ClientStatusGetResponse_Peer + :: + HsProtobuf.Enumerated + Data.Sawtooth.ClientStatus.ClientStatusGetResponse_Status, + ClientStatusGetResponse -> Vector ClientStatusGetResponse_Peer clientStatusGetResponsePeers :: - Hs.Vector - Data.Sawtooth.ClientStatus.ClientStatusGetResponse_Peer, - ClientStatusGetResponse -> Text -clientStatusGetResponseEndpoint :: Hs.Text} - deriving (Int -> ClientStatusGetResponse -> ShowS + Hs.Vector + Data.Sawtooth.ClientStatus.ClientStatusGetResponse_Peer, + ClientStatusGetResponse -> Text +clientStatusGetResponseEndpoint :: Hs.Text} + deriving (Int -> ClientStatusGetResponse -> ShowS [ClientStatusGetResponse] -> ShowS ClientStatusGetResponse -> String (Int -> ClientStatusGetResponse -> ShowS) @@ -247,7 +254,7 @@ show :: ClientStatusGetResponse -> String $cshow :: ClientStatusGetResponse -> String showsPrec :: Int -> ClientStatusGetResponse -> ShowS $cshowsPrec :: Int -> ClientStatusGetResponse -> ShowS -Hs.Show, ClientStatusGetResponse -> ClientStatusGetResponse -> Bool +Hs.Show, ClientStatusGetResponse -> ClientStatusGetResponse -> Bool (ClientStatusGetResponse -> ClientStatusGetResponse -> Bool) -> (ClientStatusGetResponse -> ClientStatusGetResponse -> Bool) -> Eq ClientStatusGetResponse @@ -256,9 +263,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: ClientStatusGetResponse -> ClientStatusGetResponse -> Bool == :: ClientStatusGetResponse -> ClientStatusGetResponse -> Bool $c== :: ClientStatusGetResponse -> ClientStatusGetResponse -> Bool -Hs.Eq, Eq ClientStatusGetResponse -Eq ClientStatusGetResponse => -(ClientStatusGetResponse -> ClientStatusGetResponse -> Ordering) +Hs.Eq, Eq ClientStatusGetResponse +Eq ClientStatusGetResponse +-> (ClientStatusGetResponse -> ClientStatusGetResponse -> Ordering) -> (ClientStatusGetResponse -> ClientStatusGetResponse -> Bool) -> (ClientStatusGetResponse -> ClientStatusGetResponse -> Bool) -> (ClientStatusGetResponse -> ClientStatusGetResponse -> Bool) @@ -273,8 +280,8 @@ ClientStatusGetResponse -> ClientStatusGetResponse -> Ordering ClientStatusGetResponse -> ClientStatusGetResponse -> ClientStatusGetResponse forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -301,7 +308,7 @@ $c< :: ClientStatusGetResponse -> ClientStatusGetResponse -> Bool compare :: ClientStatusGetResponse -> ClientStatusGetResponse -> Ordering $ccompare :: ClientStatusGetResponse -> ClientStatusGetResponse -> Ordering $cp1Ord :: Eq ClientStatusGetResponse -Hs.Ord, (forall x. +Hs.Ord, (forall x. ClientStatusGetResponse -> Rep ClientStatusGetResponse x) -> (forall x. Rep ClientStatusGetResponse x -> ClientStatusGetResponse) @@ -312,67 +319,73 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep ClientStatusGetResponse x -> ClientStatusGetResponse $cfrom :: forall x. ClientStatusGetResponse -> Rep ClientStatusGetResponse x -Hs.Generic, ClientStatusGetResponse -> () +Hs.Generic, ClientStatusGetResponse -> () (ClientStatusGetResponse -> ()) -> NFData ClientStatusGetResponse forall a. (a -> ()) -> NFData a rnf :: ClientStatusGetResponse -> () $crnf :: ClientStatusGetResponse -> () -Hs.NFData) - -instance HsProtobuf.Named ClientStatusGetResponse where - nameOf :: Proxy# ClientStatusGetResponse -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ClientStatusGetResponse where + nameOf :: Proxy# ClientStatusGetResponse -> string +nameOf Proxy# ClientStatusGetResponse +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ClientStatusGetResponse") - -instance HsProtobuf.HasDefault ClientStatusGetResponse - -instance HsProtobuf.Message ClientStatusGetResponse where - encodeMessage :: FieldNumber -> ClientStatusGetResponse -> MessageBuilder -encodeMessage _ - ClientStatusGetResponse{clientStatusGetResponseStatus :: ClientStatusGetResponse +Hs.fromString String +"ClientStatusGetResponse") + +instance HsProtobuf.HasDefault ClientStatusGetResponse + +instance HsProtobuf.Message ClientStatusGetResponse where + encodeMessage :: FieldNumber -> ClientStatusGetResponse -> MessageBuilder +encodeMessage FieldNumber +_ + ClientStatusGetResponse{clientStatusGetResponseStatus :: ClientStatusGetResponse -> Enumerated ClientStatusGetResponse_Status clientStatusGetResponseStatus = - Enumerated ClientStatusGetResponse_Status -clientStatusGetResponseStatus, - clientStatusGetResponsePeers :: ClientStatusGetResponse -> Vector ClientStatusGetResponse_Peer -clientStatusGetResponsePeers = Vector ClientStatusGetResponse_Peer -clientStatusGetResponsePeers, - clientStatusGetResponseEndpoint :: ClientStatusGetResponse -> Text -clientStatusGetResponseEndpoint = Text -clientStatusGetResponseEndpoint} - = ([MessageBuilder] -> MessageBuilder + Enumerated ClientStatusGetResponse_Status +clientStatusGetResponseStatus, + clientStatusGetResponsePeers :: ClientStatusGetResponse -> Vector ClientStatusGetResponse_Peer +clientStatusGetResponsePeers = Vector ClientStatusGetResponse_Peer +clientStatusGetResponsePeers, + clientStatusGetResponseEndpoint :: ClientStatusGetResponse -> Text +clientStatusGetResponseEndpoint = Text +clientStatusGetResponseEndpoint} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber +Hs.mconcat + [(FieldNumber -> Enumerated ClientStatusGetResponse_Status -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Enumerated ClientStatusGetResponse_Status -clientStatusGetResponseStatus), - (FieldNumber +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Enumerated ClientStatusGetResponse_Status +clientStatusGetResponseStatus), + (FieldNumber -> NestedVec ClientStatusGetResponse_Peer -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (Vector ClientStatusGetResponse_Peer +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (Vector ClientStatusGetResponse_Peer -> NestedVec ClientStatusGetResponse_Peer -forall a b. Coercible a b => a -> b -Hs.coerce - @(Hs.Vector Data.Sawtooth.ClientStatus.ClientStatusGetResponse_Peer) - @(HsProtobuf.NestedVec Data.Sawtooth.ClientStatus.ClientStatusGetResponse_Peer) - Vector ClientStatusGetResponse_Peer -clientStatusGetResponsePeers)), - (FieldNumber -> Text -> MessageBuilder +Hs.coerce + @(Hs.Vector Data.Sawtooth.ClientStatus.ClientStatusGetResponse_Peer) + @(HsProtobuf.NestedVec Data.Sawtooth.ClientStatus.ClientStatusGetResponse_Peer) + Vector ClientStatusGetResponse_Peer +clientStatusGetResponsePeers)), + (FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - Text -clientStatusGetResponseEndpoint)]) - decodeMessage :: FieldNumber -> Parser RawMessage ClientStatusGetResponse -decodeMessage _ - = ((Enumerated ClientStatusGetResponse_Status +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + Text +clientStatusGetResponseEndpoint)]) + decodeMessage :: FieldNumber -> Parser RawMessage ClientStatusGetResponse +decodeMessage FieldNumber +_ + = ((Enumerated ClientStatusGetResponse_Status -> Vector ClientStatusGetResponse_Peer -> Text -> ClientStatusGetResponse) @@ -383,7 +396,7 @@ forall a. MessageField a => FieldNumber -> a -> MessageBuilder -> Text -> ClientStatusGetResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ClientStatusGetResponse_Status +Hs.pure Enumerated ClientStatusGetResponse_Status -> Vector ClientStatusGetResponse_Peer -> Text -> ClientStatusGetResponse @@ -399,163 +412,184 @@ forall (f :: * -> *) a. Applicative f => a -> f a (Vector ClientStatusGetResponse_Peer -> Text -> ClientStatusGetResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField (Enumerated ClientStatusGetResponse_Status) +<*> + (Parser RawField (Enumerated ClientStatusGetResponse_Status) -> FieldNumber -> Parser RawMessage (Enumerated ClientStatusGetResponse_Status) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (Enumerated ClientStatusGetResponse_Status) +HsProtobuf.at Parser RawField (Enumerated ClientStatusGetResponse_Status) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (Vector ClientStatusGetResponse_Peer -> Text -> ClientStatusGetResponse) -> Parser RawMessage (Vector ClientStatusGetResponse_Peer) -> Parser RawMessage (Text -> ClientStatusGetResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (NestedVec ClientStatusGetResponse_Peer) +<*> + (Parser RawMessage (NestedVec ClientStatusGetResponse_Peer) -> Parser RawMessage (Vector ClientStatusGetResponse_Peer) -forall a b. Coercible a b => a -> b -Hs.coerce - @(_ (HsProtobuf.NestedVec Data.Sawtooth.ClientStatus.ClientStatusGetResponse_Peer)) - @(_ (Hs.Vector Data.Sawtooth.ClientStatus.ClientStatusGetResponse_Peer)) - (Parser RawField (NestedVec ClientStatusGetResponse_Peer) +Hs.coerce + @(_ (HsProtobuf.NestedVec Data.Sawtooth.ClientStatus.ClientStatusGetResponse_Peer)) + @(_ (Hs.Vector Data.Sawtooth.ClientStatus.ClientStatusGetResponse_Peer)) + (Parser RawField (NestedVec ClientStatusGetResponse_Peer) -> FieldNumber -> Parser RawMessage (NestedVec ClientStatusGetResponse_Peer) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (NestedVec ClientStatusGetResponse_Peer) +HsProtobuf.at Parser RawField (NestedVec ClientStatusGetResponse_Peer) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2))) - Parser RawMessage (Text -> ClientStatusGetResponse) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2))) + Parser RawMessage (Text -> ClientStatusGetResponse) -> Parser RawMessage Text -> Parser RawMessage ClientStatusGetResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3)) - dotProto :: Proxy# ClientStatusGetResponse -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3)) + dotProto :: Proxy# ClientStatusGetResponse -> [DotProtoField] +dotProto Proxy# ClientStatusGetResponse +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "Status"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "status") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"Status"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"status") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Repeated (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "Peer"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "peers") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Repeated (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"Peer"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"peers") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "endpoint") - [] - "")] - -instance HsJSONPB.ToJSONPB ClientStatusGetResponse where - toJSONPB :: ClientStatusGetResponse -> Options -> Value -toJSONPB (ClientStatusGetResponse f1 :: Enumerated ClientStatusGetResponse_Status -f1 f2 :: Vector ClientStatusGetResponse_Peer -f2 f3 :: Text -f3) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object - ["status" Text +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"endpoint") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ClientStatusGetResponse where + toJSONPB :: ClientStatusGetResponse -> Options -> Value +toJSONPB (ClientStatusGetResponse Enumerated ClientStatusGetResponse_Status +f1 Vector ClientStatusGetResponse_Peer +f2 Text +f3) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object + [Text +"status" Text -> Enumerated ClientStatusGetResponse_Status -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated ClientStatusGetResponse_Status -f1, "peers" Text -> Vector ClientStatusGetResponse_Peer -> Options -> [Pair] +.= Enumerated ClientStatusGetResponse_Status +f1, Text +"peers" Text -> Vector ClientStatusGetResponse_Peer -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector ClientStatusGetResponse_Peer -f2, "endpoint" Text -> Text -> Options -> [Pair] +.= Vector ClientStatusGetResponse_Peer +f2, Text +"endpoint" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f3]) - toEncodingPB :: ClientStatusGetResponse -> Options -> Encoding -toEncodingPB (ClientStatusGetResponse f1 :: Enumerated ClientStatusGetResponse_Status -f1 f2 :: Vector ClientStatusGetResponse_Peer -f2 f3 :: Text -f3) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs - ["status" Text +.= Text +f3]) + toEncodingPB :: ClientStatusGetResponse -> Options -> Encoding +toEncodingPB (ClientStatusGetResponse Enumerated ClientStatusGetResponse_Status +f1 Vector ClientStatusGetResponse_Peer +f2 Text +f3) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs + [Text +"status" Text -> Enumerated ClientStatusGetResponse_Status -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated ClientStatusGetResponse_Status -f1, "peers" Text -> Vector ClientStatusGetResponse_Peer -> Options -> Series +.= Enumerated ClientStatusGetResponse_Status +f1, Text +"peers" Text -> Vector ClientStatusGetResponse_Peer -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector ClientStatusGetResponse_Peer -f2, "endpoint" Text -> Text -> Options -> Series +.= Vector ClientStatusGetResponse_Peer +f2, Text +"endpoint" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f3]) - -instance HsJSONPB.FromJSONPB ClientStatusGetResponse where - parseJSONPB :: Value -> Parser ClientStatusGetResponse -parseJSONPB - = (String +.= Text +f3]) + +instance HsJSONPB.FromJSONPB ClientStatusGetResponse where + parseJSONPB :: Value -> Parser ClientStatusGetResponse +parseJSONPB + = (String -> (Object -> Parser ClientStatusGetResponse) -> Value -> Parser ClientStatusGetResponse forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ClientStatusGetResponse" - (\ obj :: Object -obj -> - ((Enumerated ClientStatusGetResponse_Status +HsJSONPB.withObject String +"ClientStatusGetResponse" + (\ Object +obj -> + ((Enumerated ClientStatusGetResponse_Status -> Vector ClientStatusGetResponse_Peer -> Text -> ClientStatusGetResponse) @@ -565,7 +599,7 @@ forall a. String -> (Object -> Parser a) -> Value -> Parser a -> Text -> ClientStatusGetResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ClientStatusGetResponse_Status +Hs.pure Enumerated ClientStatusGetResponse_Status -> Vector ClientStatusGetResponse_Peer -> Text -> ClientStatusGetResponse @@ -579,102 +613,106 @@ forall (f :: * -> *) a. Applicative f => a -> f a (Vector ClientStatusGetResponse_Peer -> Text -> ClientStatusGetResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object +<*> Object +obj Object -> Text -> Parser (Enumerated ClientStatusGetResponse_Status) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "status" Parser +.: Text +"status" Parser (Vector ClientStatusGetResponse_Peer -> Text -> ClientStatusGetResponse) -> Parser (Vector ClientStatusGetResponse_Peer) -> Parser (Text -> ClientStatusGetResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser (Vector ClientStatusGetResponse_Peer) +<*> + Object +obj Object -> Text -> Parser (Vector ClientStatusGetResponse_Peer) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "peers" - Parser (Text -> ClientStatusGetResponse) +.: Text +"peers" + Parser (Text -> ClientStatusGetResponse) -> Parser Text -> Parser ClientStatusGetResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Text +<*> Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "endpoint")) - -instance HsJSONPB.ToJSON ClientStatusGetResponse where - toJSON :: ClientStatusGetResponse -> Value -toJSON = ClientStatusGetResponse -> Value +.: Text +"endpoint")) + +instance HsJSONPB.ToJSON ClientStatusGetResponse where + toJSON :: ClientStatusGetResponse -> Value +toJSON = ClientStatusGetResponse -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ClientStatusGetResponse -> Encoding -toEncoding = ClientStatusGetResponse -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ClientStatusGetResponse -> Encoding +toEncoding = ClientStatusGetResponse -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ClientStatusGetResponse where - parseJSON :: Value -> Parser ClientStatusGetResponse -parseJSON = Value -> Parser ClientStatusGetResponse +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ClientStatusGetResponse where + parseJSON :: Value -> Parser ClientStatusGetResponse +parseJSON = Value -> Parser ClientStatusGetResponse forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ClientStatusGetResponse where - declareNamedSchema :: Proxy ClientStatusGetResponse +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ClientStatusGetResponse where + declareNamedSchema :: Proxy ClientStatusGetResponse -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_status :: Proxy +declareNamedSchema Proxy ClientStatusGetResponse +_ + = do let declare_status :: Proxy (OverrideToSchema (Enumerated ClientStatusGetResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status = Proxy +declare_status = Proxy (OverrideToSchema (Enumerated ClientStatusGetResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientStatusGetResponseStatus <- Proxy +HsJSONPB.declareSchemaRef + Referenced Schema +clientStatusGetResponseStatus <- Proxy (OverrideToSchema (Enumerated ClientStatusGetResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status Proxy +declare_status Proxy (OverrideToSchema (Enumerated ClientStatusGetResponse_Status)) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_peers :: Proxy (OverrideToSchema (Vector ClientStatusGetResponse_Peer)) +Proxy.Proxy + let declare_peers :: Proxy (OverrideToSchema (Vector ClientStatusGetResponse_Peer)) -> Declare (Definitions Schema) (Referenced Schema) -declare_peers = Proxy (OverrideToSchema (Vector ClientStatusGetResponse_Peer)) +declare_peers = Proxy (OverrideToSchema (Vector ClientStatusGetResponse_Peer)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientStatusGetResponsePeers <- Proxy (OverrideToSchema (Vector ClientStatusGetResponse_Peer)) +HsJSONPB.declareSchemaRef + Referenced Schema +clientStatusGetResponsePeers <- Proxy (OverrideToSchema (Vector ClientStatusGetResponse_Peer)) -> Declare (Definitions Schema) (Referenced Schema) -declare_peers Proxy (OverrideToSchema (Vector ClientStatusGetResponse_Peer)) +declare_peers Proxy (OverrideToSchema (Vector ClientStatusGetResponse_Peer)) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_endpoint :: Proxy (OverrideToSchema Text) +Proxy.Proxy + let declare_endpoint :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_endpoint = Proxy (OverrideToSchema Text) +declare_endpoint = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientStatusGetResponseEndpoint <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +clientStatusGetResponseEndpoint <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_endpoint Proxy (OverrideToSchema Text) +declare_endpoint Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ClientStatusGetResponse +Proxy.Proxy + let Proxy ClientStatusGetResponse _ = (Enumerated ClientStatusGetResponse_Status -> Vector ClientStatusGetResponse_Peer -> Text @@ -685,7 +723,7 @@ forall k (t :: k). Proxy t -> Text -> ClientStatusGetResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ClientStatusGetResponse_Status +Hs.pure Enumerated ClientStatusGetResponse_Status -> Vector ClientStatusGetResponse_Peer -> Text -> ClientStatusGetResponse @@ -699,81 +737,85 @@ forall (f :: * -> *) a. Applicative f => a -> f a (Vector ClientStatusGetResponse_Peer -> Text -> ClientStatusGetResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy +<*> + (Proxy (OverrideToSchema (Enumerated ClientStatusGetResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Enumerated ClientStatusGetResponse_Status) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy +HsJSONPB.asProxy Proxy (OverrideToSchema (Enumerated ClientStatusGetResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status - Proxy +declare_status + Proxy (Vector ClientStatusGetResponse_Peer -> Text -> ClientStatusGetResponse) -> Proxy (Vector ClientStatusGetResponse_Peer) -> Proxy (Text -> ClientStatusGetResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema (Vector ClientStatusGetResponse_Peer)) +<*> (Proxy (OverrideToSchema (Vector ClientStatusGetResponse_Peer)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Vector ClientStatusGetResponse_Peer) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Vector ClientStatusGetResponse_Peer)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Vector ClientStatusGetResponse_Peer)) -> Declare (Definitions Schema) (Referenced Schema) -declare_peers - Proxy (Text -> ClientStatusGetResponse) +declare_peers + Proxy (Text -> ClientStatusGetResponse) -> Proxy Text -> Proxy ClientStatusGetResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema Text) +<*> (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_endpoint - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_endpoint + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ClientStatusGetResponse", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ClientStatusGetResponse", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("status", Referenced Schema -clientStatusGetResponseStatus), - ("peers", Referenced Schema -clientStatusGetResponsePeers), - ("endpoint", - Referenced Schema -clientStatusGetResponseEndpoint)]}}) - -data ClientStatusGetResponse_Status = ClientStatusGetResponse_StatusSTATUS_UNSET - | ClientStatusGetResponse_StatusOK - | ClientStatusGetResponse_StatusERROR - deriving (Int -> ClientStatusGetResponse_Status -> ShowS +HsJSONPB.insOrdFromList + [(Text +"status", Referenced Schema +clientStatusGetResponseStatus), + (Text +"peers", Referenced Schema +clientStatusGetResponsePeers), + (Text +"endpoint", + Referenced Schema +clientStatusGetResponseEndpoint)]}}) + +data ClientStatusGetResponse_Status = ClientStatusGetResponse_StatusSTATUS_UNSET + | ClientStatusGetResponse_StatusOK + | ClientStatusGetResponse_StatusERROR + deriving (Int -> ClientStatusGetResponse_Status -> ShowS [ClientStatusGetResponse_Status] -> ShowS ClientStatusGetResponse_Status -> String (Int -> ClientStatusGetResponse_Status -> ShowS) @@ -788,7 +830,7 @@ show :: ClientStatusGetResponse_Status -> String $cshow :: ClientStatusGetResponse_Status -> String showsPrec :: Int -> ClientStatusGetResponse_Status -> ShowS $cshowsPrec :: Int -> ClientStatusGetResponse_Status -> ShowS -Hs.Show, ClientStatusGetResponse_Status +Hs.Show, ClientStatusGetResponse_Status -> ClientStatusGetResponse_Status -> Bool (ClientStatusGetResponse_Status -> ClientStatusGetResponse_Status -> Bool) @@ -804,7 +846,7 @@ $c/= :: ClientStatusGetResponse_Status -> ClientStatusGetResponse_Status -> Bool $c== :: ClientStatusGetResponse_Status -> ClientStatusGetResponse_Status -> Bool -Hs.Eq, (forall x. +Hs.Eq, (forall x. ClientStatusGetResponse_Status -> Rep ClientStatusGetResponse_Status x) -> (forall x. @@ -825,139 +867,154 @@ Rep ClientStatusGetResponse_Status x $cfrom :: forall x. ClientStatusGetResponse_Status -> Rep ClientStatusGetResponse_Status x -Hs.Generic, ClientStatusGetResponse_Status -> () +Hs.Generic, ClientStatusGetResponse_Status -> () (ClientStatusGetResponse_Status -> ()) -> NFData ClientStatusGetResponse_Status forall a. (a -> ()) -> NFData a rnf :: ClientStatusGetResponse_Status -> () $crnf :: ClientStatusGetResponse_Status -> () -Hs.NFData) - -instance HsProtobuf.Named ClientStatusGetResponse_Status where - nameOf :: Proxy# ClientStatusGetResponse_Status -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ClientStatusGetResponse_Status where + nameOf :: Proxy# ClientStatusGetResponse_Status -> string +nameOf Proxy# ClientStatusGetResponse_Status +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ClientStatusGetResponse_Status") - -instance HsProtobuf.HasDefault ClientStatusGetResponse_Status - -instance Hs.Bounded ClientStatusGetResponse_Status where - minBound :: ClientStatusGetResponse_Status -minBound = ClientStatusGetResponse_Status +Hs.fromString String +"ClientStatusGetResponse_Status") + +instance HsProtobuf.HasDefault ClientStatusGetResponse_Status + +instance Hs.Bounded ClientStatusGetResponse_Status where + minBound :: ClientStatusGetResponse_Status +minBound = ClientStatusGetResponse_Status ClientStatusGetResponse_StatusSTATUS_UNSET - maxBound :: ClientStatusGetResponse_Status -maxBound = ClientStatusGetResponse_Status + maxBound :: ClientStatusGetResponse_Status +maxBound = ClientStatusGetResponse_Status ClientStatusGetResponse_StatusERROR - -instance Hs.Ord ClientStatusGetResponse_Status where - compare :: ClientStatusGetResponse_Status + +instance Hs.Ord ClientStatusGetResponse_Status where + compare :: ClientStatusGetResponse_Status -> ClientStatusGetResponse_Status -> Ordering -compare x :: ClientStatusGetResponse_Status -x y :: ClientStatusGetResponse_Status -y - = Int32 -> Int32 -> Ordering +compare ClientStatusGetResponse_Status +x ClientStatusGetResponse_Status +y + = Int32 -> Int32 -> Ordering forall a. Ord a => a -> a -> Ordering -Hs.compare (ClientStatusGetResponse_Status -> Int32 +Hs.compare (ClientStatusGetResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum ClientStatusGetResponse_Status -x) - (ClientStatusGetResponse_Status -> Int32 +HsProtobuf.fromProtoEnum ClientStatusGetResponse_Status +x) + (ClientStatusGetResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum ClientStatusGetResponse_Status -y) - -instance HsProtobuf.ProtoEnum ClientStatusGetResponse_Status where - toProtoEnumMay :: Int32 -> Maybe ClientStatusGetResponse_Status -toProtoEnumMay 0 - = ClientStatusGetResponse_Status +HsProtobuf.fromProtoEnum ClientStatusGetResponse_Status +y) + +instance HsProtobuf.ProtoEnum ClientStatusGetResponse_Status where + toProtoEnumMay :: Int32 -> Maybe ClientStatusGetResponse_Status +toProtoEnumMay Int32 +0 + = ClientStatusGetResponse_Status -> Maybe ClientStatusGetResponse_Status forall a. a -> Maybe a -Hs.Just ClientStatusGetResponse_Status +Hs.Just ClientStatusGetResponse_Status ClientStatusGetResponse_StatusSTATUS_UNSET - toProtoEnumMay 1 = ClientStatusGetResponse_Status + toProtoEnumMay Int32 +1 = ClientStatusGetResponse_Status -> Maybe ClientStatusGetResponse_Status forall a. a -> Maybe a -Hs.Just ClientStatusGetResponse_Status +Hs.Just ClientStatusGetResponse_Status ClientStatusGetResponse_StatusOK - toProtoEnumMay 2 = ClientStatusGetResponse_Status + toProtoEnumMay Int32 +2 = ClientStatusGetResponse_Status -> Maybe ClientStatusGetResponse_Status forall a. a -> Maybe a -Hs.Just ClientStatusGetResponse_Status +Hs.Just ClientStatusGetResponse_Status ClientStatusGetResponse_StatusERROR - toProtoEnumMay _ = Maybe ClientStatusGetResponse_Status + toProtoEnumMay Int32 +_ = Maybe ClientStatusGetResponse_Status forall a. Maybe a -Hs.Nothing - fromProtoEnum :: ClientStatusGetResponse_Status -> Int32 -fromProtoEnum (ClientStatusGetResponse_Status -ClientStatusGetResponse_StatusSTATUS_UNSET) = 0 - fromProtoEnum (ClientStatusGetResponse_Status -ClientStatusGetResponse_StatusOK) = 1 - fromProtoEnum (ClientStatusGetResponse_Status -ClientStatusGetResponse_StatusERROR) = 2 - -instance HsJSONPB.ToJSONPB ClientStatusGetResponse_Status where - toJSONPB :: ClientStatusGetResponse_Status -> Options -> Value -toJSONPB x :: ClientStatusGetResponse_Status -x _ = ClientStatusGetResponse_Status -> Value +Hs.Nothing + fromProtoEnum :: ClientStatusGetResponse_Status -> Int32 +fromProtoEnum (ClientStatusGetResponse_Status +ClientStatusGetResponse_StatusSTATUS_UNSET) = Int32 +0 + fromProtoEnum (ClientStatusGetResponse_Status +ClientStatusGetResponse_StatusOK) = Int32 +1 + fromProtoEnum (ClientStatusGetResponse_Status +ClientStatusGetResponse_StatusERROR) = Int32 +2 + +instance HsJSONPB.ToJSONPB ClientStatusGetResponse_Status where + toJSONPB :: ClientStatusGetResponse_Status -> Options -> Value +toJSONPB ClientStatusGetResponse_Status +x Options +_ = ClientStatusGetResponse_Status -> Value forall a. (Named a, Show a) => a -> Value -HsJSONPB.enumFieldString ClientStatusGetResponse_Status -x - toEncodingPB :: ClientStatusGetResponse_Status -> Options -> Encoding -toEncodingPB x :: ClientStatusGetResponse_Status -x _ = ClientStatusGetResponse_Status -> Encoding +HsJSONPB.enumFieldString ClientStatusGetResponse_Status +x + toEncodingPB :: ClientStatusGetResponse_Status -> Options -> Encoding +toEncodingPB ClientStatusGetResponse_Status +x Options +_ = ClientStatusGetResponse_Status -> Encoding forall a. (Named a, Show a) => a -> Encoding -HsJSONPB.enumFieldEncoding ClientStatusGetResponse_Status -x - -instance HsJSONPB.FromJSONPB ClientStatusGetResponse_Status where - parseJSONPB :: Value -> Parser ClientStatusGetResponse_Status -parseJSONPB (HsJSONPB.String "STATUS_UNSET") - = ClientStatusGetResponse_Status +HsJSONPB.enumFieldEncoding ClientStatusGetResponse_Status +x + +instance HsJSONPB.FromJSONPB ClientStatusGetResponse_Status where + parseJSONPB :: Value -> Parser ClientStatusGetResponse_Status +parseJSONPB (HsJSONPB.String Text +"STATUS_UNSET") + = ClientStatusGetResponse_Status -> Parser ClientStatusGetResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientStatusGetResponse_Status +Hs.pure ClientStatusGetResponse_Status ClientStatusGetResponse_StatusSTATUS_UNSET - parseJSONPB (HsJSONPB.String "OK") - = ClientStatusGetResponse_Status + parseJSONPB (HsJSONPB.String Text +"OK") + = ClientStatusGetResponse_Status -> Parser ClientStatusGetResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientStatusGetResponse_Status +Hs.pure ClientStatusGetResponse_Status ClientStatusGetResponse_StatusOK - parseJSONPB (HsJSONPB.String "ERROR") - = ClientStatusGetResponse_Status + parseJSONPB (HsJSONPB.String Text +"ERROR") + = ClientStatusGetResponse_Status -> Parser ClientStatusGetResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientStatusGetResponse_Status +Hs.pure ClientStatusGetResponse_Status ClientStatusGetResponse_StatusERROR - parseJSONPB v :: Value -v - = (String -> Value -> Parser ClientStatusGetResponse_Status + parseJSONPB Value +v + = (String -> Value -> Parser ClientStatusGetResponse_Status forall a. String -> Value -> Parser a -HsJSONPB.typeMismatch "ClientStatusGetResponse_Status" Value -v) - -instance HsJSONPB.ToJSON ClientStatusGetResponse_Status where - toJSON :: ClientStatusGetResponse_Status -> Value -toJSON = ClientStatusGetResponse_Status -> Value +HsJSONPB.typeMismatch String +"ClientStatusGetResponse_Status" Value +v) + +instance HsJSONPB.ToJSON ClientStatusGetResponse_Status where + toJSON :: ClientStatusGetResponse_Status -> Value +toJSON = ClientStatusGetResponse_Status -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ClientStatusGetResponse_Status -> Encoding -toEncoding = ClientStatusGetResponse_Status -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ClientStatusGetResponse_Status -> Encoding +toEncoding = ClientStatusGetResponse_Status -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ClientStatusGetResponse_Status where - parseJSON :: Value -> Parser ClientStatusGetResponse_Status -parseJSON = Value -> Parser ClientStatusGetResponse_Status +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ClientStatusGetResponse_Status where + parseJSON :: Value -> Parser ClientStatusGetResponse_Status +parseJSON = Value -> Parser ClientStatusGetResponse_Status forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsProtobuf.Finite ClientStatusGetResponse_Status - -newtype ClientStatusGetResponse_Peer = ClientStatusGetResponse_Peer{ClientStatusGetResponse_Peer -> Text +HsJSONPB.parseJSONPB + +instance HsProtobuf.Finite ClientStatusGetResponse_Status + +newtype ClientStatusGetResponse_Peer = ClientStatusGetResponse_Peer{ClientStatusGetResponse_Peer -> Text clientStatusGetResponse_PeerEndpoint - :: Hs.Text} - deriving (Int -> ClientStatusGetResponse_Peer -> ShowS + :: Hs.Text} + deriving (Int -> ClientStatusGetResponse_Peer -> ShowS [ClientStatusGetResponse_Peer] -> ShowS ClientStatusGetResponse_Peer -> String (Int -> ClientStatusGetResponse_Peer -> ShowS) @@ -972,7 +1029,7 @@ show :: ClientStatusGetResponse_Peer -> String $cshow :: ClientStatusGetResponse_Peer -> String showsPrec :: Int -> ClientStatusGetResponse_Peer -> ShowS $cshowsPrec :: Int -> ClientStatusGetResponse_Peer -> ShowS -Hs.Show, ClientStatusGetResponse_Peer +Hs.Show, ClientStatusGetResponse_Peer -> ClientStatusGetResponse_Peer -> Bool (ClientStatusGetResponse_Peer -> ClientStatusGetResponse_Peer -> Bool) @@ -988,10 +1045,10 @@ $c/= :: ClientStatusGetResponse_Peer -> ClientStatusGetResponse_Peer -> Bool $c== :: ClientStatusGetResponse_Peer -> ClientStatusGetResponse_Peer -> Bool -Hs.Eq, Eq ClientStatusGetResponse_Peer -Eq ClientStatusGetResponse_Peer => -(ClientStatusGetResponse_Peer - -> ClientStatusGetResponse_Peer -> Ordering) +Hs.Eq, Eq ClientStatusGetResponse_Peer +Eq ClientStatusGetResponse_Peer +-> (ClientStatusGetResponse_Peer + -> ClientStatusGetResponse_Peer -> Ordering) -> (ClientStatusGetResponse_Peer -> ClientStatusGetResponse_Peer -> Bool) -> (ClientStatusGetResponse_Peer @@ -1012,8 +1069,8 @@ ClientStatusGetResponse_Peer ClientStatusGetResponse_Peer -> ClientStatusGetResponse_Peer -> ClientStatusGetResponse_Peer forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -1050,7 +1107,7 @@ compare :: ClientStatusGetResponse_Peer $ccompare :: ClientStatusGetResponse_Peer -> ClientStatusGetResponse_Peer -> Ordering $cp1Ord :: Eq ClientStatusGetResponse_Peer -Hs.Ord, (forall x. +Hs.Ord, (forall x. ClientStatusGetResponse_Peer -> Rep ClientStatusGetResponse_Peer x) -> (forall x. Rep ClientStatusGetResponse_Peer x -> ClientStatusGetResponse_Peer) @@ -1065,202 +1122,219 @@ $cto :: forall x. Rep ClientStatusGetResponse_Peer x -> ClientStatusGetResponse_Peer $cfrom :: forall x. ClientStatusGetResponse_Peer -> Rep ClientStatusGetResponse_Peer x -Hs.Generic, ClientStatusGetResponse_Peer -> () +Hs.Generic, ClientStatusGetResponse_Peer -> () (ClientStatusGetResponse_Peer -> ()) -> NFData ClientStatusGetResponse_Peer forall a. (a -> ()) -> NFData a rnf :: ClientStatusGetResponse_Peer -> () $crnf :: ClientStatusGetResponse_Peer -> () -Hs.NFData) - -instance HsProtobuf.Named ClientStatusGetResponse_Peer where - nameOf :: Proxy# ClientStatusGetResponse_Peer -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ClientStatusGetResponse_Peer where + nameOf :: Proxy# ClientStatusGetResponse_Peer -> string +nameOf Proxy# ClientStatusGetResponse_Peer +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ClientStatusGetResponse_Peer") - -instance HsProtobuf.HasDefault ClientStatusGetResponse_Peer - -instance HsProtobuf.Message ClientStatusGetResponse_Peer where - encodeMessage :: FieldNumber -> ClientStatusGetResponse_Peer -> MessageBuilder -encodeMessage _ - ClientStatusGetResponse_Peer{clientStatusGetResponse_PeerEndpoint :: ClientStatusGetResponse_Peer -> Text +Hs.fromString String +"ClientStatusGetResponse_Peer") + +instance HsProtobuf.HasDefault ClientStatusGetResponse_Peer + +instance HsProtobuf.Message ClientStatusGetResponse_Peer where + encodeMessage :: FieldNumber -> ClientStatusGetResponse_Peer -> MessageBuilder +encodeMessage FieldNumber +_ + ClientStatusGetResponse_Peer{clientStatusGetResponse_PeerEndpoint :: ClientStatusGetResponse_Peer -> Text clientStatusGetResponse_PeerEndpoint = - Text -clientStatusGetResponse_PeerEndpoint} - = ([MessageBuilder] -> MessageBuilder + Text +clientStatusGetResponse_PeerEndpoint} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> Text -> MessageBuilder +Hs.mconcat + [(FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Text -clientStatusGetResponse_PeerEndpoint)]) - decodeMessage :: FieldNumber -> Parser RawMessage ClientStatusGetResponse_Peer -decodeMessage _ - = ((Text -> ClientStatusGetResponse_Peer) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Text +clientStatusGetResponse_PeerEndpoint)]) + decodeMessage :: FieldNumber -> Parser RawMessage ClientStatusGetResponse_Peer +decodeMessage FieldNumber +_ + = ((Text -> ClientStatusGetResponse_Peer) -> Parser RawMessage (Text -> ClientStatusGetResponse_Peer) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> ClientStatusGetResponse_Peer +Hs.pure Text -> ClientStatusGetResponse_Peer ClientStatusGetResponse_Peer) Parser RawMessage (Text -> ClientStatusGetResponse_Peer) -> Parser RawMessage Text -> Parser RawMessage ClientStatusGetResponse_Peer forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - dotProto :: Proxy# ClientStatusGetResponse_Peer -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + dotProto :: Proxy# ClientStatusGetResponse_Peer -> [DotProtoField] +dotProto Proxy# ClientStatusGetResponse_Peer +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "endpoint") - [] - "")] - -instance HsJSONPB.ToJSONPB ClientStatusGetResponse_Peer where - toJSONPB :: ClientStatusGetResponse_Peer -> Options -> Value -toJSONPB (ClientStatusGetResponse_Peer f1 :: Text -f1) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["endpoint" Text -> Text -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"endpoint") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ClientStatusGetResponse_Peer where + toJSONPB :: ClientStatusGetResponse_Peer -> Options -> Value +toJSONPB (ClientStatusGetResponse_Peer Text +f1) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"endpoint" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1]) - toEncodingPB :: ClientStatusGetResponse_Peer -> Options -> Encoding -toEncodingPB (ClientStatusGetResponse_Peer f1 :: Text -f1) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["endpoint" Text -> Text -> Options -> Series +.= Text +f1]) + toEncodingPB :: ClientStatusGetResponse_Peer -> Options -> Encoding +toEncodingPB (ClientStatusGetResponse_Peer Text +f1) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"endpoint" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1]) - -instance HsJSONPB.FromJSONPB ClientStatusGetResponse_Peer where - parseJSONPB :: Value -> Parser ClientStatusGetResponse_Peer -parseJSONPB - = (String +.= Text +f1]) + +instance HsJSONPB.FromJSONPB ClientStatusGetResponse_Peer where + parseJSONPB :: Value -> Parser ClientStatusGetResponse_Peer +parseJSONPB + = (String -> (Object -> Parser ClientStatusGetResponse_Peer) -> Value -> Parser ClientStatusGetResponse_Peer forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ClientStatusGetResponse_Peer" - (\ obj :: Object -obj -> - ((Text -> ClientStatusGetResponse_Peer) +HsJSONPB.withObject String +"ClientStatusGetResponse_Peer" + (\ Object +obj -> + ((Text -> ClientStatusGetResponse_Peer) -> Parser (Text -> ClientStatusGetResponse_Peer) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> ClientStatusGetResponse_Peer +Hs.pure Text -> ClientStatusGetResponse_Peer ClientStatusGetResponse_Peer) Parser (Text -> ClientStatusGetResponse_Peer) -> Parser Text -> Parser ClientStatusGetResponse_Peer forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Text +<*> Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "endpoint")) - -instance HsJSONPB.ToJSON ClientStatusGetResponse_Peer where - toJSON :: ClientStatusGetResponse_Peer -> Value -toJSON = ClientStatusGetResponse_Peer -> Value +.: Text +"endpoint")) + +instance HsJSONPB.ToJSON ClientStatusGetResponse_Peer where + toJSON :: ClientStatusGetResponse_Peer -> Value +toJSON = ClientStatusGetResponse_Peer -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ClientStatusGetResponse_Peer -> Encoding -toEncoding = ClientStatusGetResponse_Peer -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ClientStatusGetResponse_Peer -> Encoding +toEncoding = ClientStatusGetResponse_Peer -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ClientStatusGetResponse_Peer where - parseJSON :: Value -> Parser ClientStatusGetResponse_Peer -parseJSON = Value -> Parser ClientStatusGetResponse_Peer +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ClientStatusGetResponse_Peer where + parseJSON :: Value -> Parser ClientStatusGetResponse_Peer +parseJSON = Value -> Parser ClientStatusGetResponse_Peer forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ClientStatusGetResponse_Peer where - declareNamedSchema :: Proxy ClientStatusGetResponse_Peer +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ClientStatusGetResponse_Peer where + declareNamedSchema :: Proxy ClientStatusGetResponse_Peer -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_endpoint :: Proxy (OverrideToSchema Text) +declareNamedSchema Proxy ClientStatusGetResponse_Peer +_ + = do let declare_endpoint :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_endpoint = Proxy (OverrideToSchema Text) +declare_endpoint = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientStatusGetResponse_PeerEndpoint <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +clientStatusGetResponse_PeerEndpoint <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_endpoint - Proxy (OverrideToSchema Text) +declare_endpoint + Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ClientStatusGetResponse_Peer +Proxy.Proxy + let Proxy ClientStatusGetResponse_Peer _ = (Text -> ClientStatusGetResponse_Peer) -> Proxy (Text -> ClientStatusGetResponse_Peer) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> ClientStatusGetResponse_Peer +Hs.pure Text -> ClientStatusGetResponse_Peer ClientStatusGetResponse_Peer Proxy (Text -> ClientStatusGetResponse_Peer) -> Proxy Text -> Proxy ClientStatusGetResponse_Peer forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema Text) +<*> + (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_endpoint - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_endpoint + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ClientStatusGetResponse_Peer", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ClientStatusGetResponse_Peer", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("endpoint", - Referenced Schema -clientStatusGetResponse_PeerEndpoint)]}}) \ No newline at end of file +HsJSONPB.insOrdFromList + [(Text +"endpoint", + Referenced Schema +clientStatusGetResponse_PeerEndpoint)]}}) \ No newline at end of file diff --git a/src/Data.Sawtooth.ClientTransaction.html b/src/Data.Sawtooth.ClientTransaction.html index 59b9732..fb52849 100644 --- a/src/Data.Sawtooth.ClientTransaction.html +++ b/src/Data.Sawtooth.ClientTransaction.html @@ -9,52 +9,51 @@ {-# OPTIONS_GHC -fno-warn-unused-matches #-} -- | Generated by Haskell protocol buffer compiler. DO NOT EDIT! - -module Data.Sawtooth.ClientTransaction where -import qualified Prelude as Hs -import qualified Proto3.Suite.Class as HsProtobuf -import qualified Proto3.Suite.DotProto as HsProtobuf -import qualified Proto3.Suite.JSONPB as HsJSONPB -import Proto3.Suite.JSONPB ((.=), (.:)) -import qualified Proto3.Suite.Types as HsProtobuf -import qualified Proto3.Wire as HsProtobuf -import qualified Control.Applicative as Hs -import Control.Applicative ((<*>), (<|>), (<$>)) -import qualified Control.DeepSeq as Hs -import qualified Control.Monad as Hs -import qualified Data.ByteString as Hs -import qualified Data.Coerce as Hs -import qualified Data.Int as Hs (Int16, Int32, Int64) -import qualified Data.List.NonEmpty as Hs (NonEmpty(..)) -import qualified Data.Map as Hs (Map, mapKeysMonotonic) -import qualified Data.Proxy as Proxy -import qualified Data.String as Hs (fromString) -import qualified Data.Text.Lazy as Hs (Text) -import qualified Data.Vector as Hs (Vector) -import qualified Data.Word as Hs (Word16, Word32, Word64) -import qualified GHC.Enum as Hs -import qualified GHC.Generics as Hs -import qualified Unsafe.Coerce as Hs -import qualified Data.Sawtooth.ClientListControl -import qualified Data.Sawtooth.Transaction - -data ClientTransactionListRequest = ClientTransactionListRequest{ClientTransactionListRequest -> Text +module Data.Sawtooth.ClientTransaction where +import qualified Prelude as Hs +import qualified Proto3.Suite.Class as HsProtobuf +import qualified Proto3.Suite.DotProto as HsProtobuf +import qualified Proto3.Suite.JSONPB as HsJSONPB +import Proto3.Suite.JSONPB ((.=), (.:)) +import qualified Proto3.Suite.Types as HsProtobuf +import qualified Proto3.Wire as HsProtobuf +import qualified Control.Applicative as Hs +import Control.Applicative ((<*>), (<|>), (<$>)) +import qualified Control.DeepSeq as Hs +import qualified Control.Monad as Hs +import qualified Data.ByteString as Hs +import qualified Data.Coerce as Hs +import qualified Data.Int as Hs (Int16, Int32, Int64) +import qualified Data.List.NonEmpty as Hs (NonEmpty(..)) +import qualified Data.Map as Hs (Map, mapKeysMonotonic) +import qualified Data.Proxy as Proxy +import qualified Data.String as Hs (fromString) +import qualified Data.Text.Lazy as Hs (Text) +import qualified Data.Vector as Hs (Vector) +import qualified Data.Word as Hs (Word16, Word32, Word64) +import qualified GHC.Enum as Hs +import qualified GHC.Generics as Hs +import qualified Unsafe.Coerce as Hs +import qualified Data.Sawtooth.ClientListControl +import qualified Data.Sawtooth.Transaction + +data ClientTransactionListRequest = ClientTransactionListRequest{ClientTransactionListRequest -> Text clientTransactionListRequestHeadId - :: Hs.Text, - ClientTransactionListRequest -> Vector Text + :: Hs.Text, + ClientTransactionListRequest -> Vector Text clientTransactionListRequestTransactionIds - :: Hs.Vector Hs.Text, - ClientTransactionListRequest -> Maybe ClientPagingControls + :: Hs.Vector Hs.Text, + ClientTransactionListRequest -> Maybe ClientPagingControls clientTransactionListRequestPaging - :: - Hs.Maybe - Data.Sawtooth.ClientListControl.ClientPagingControls, - ClientTransactionListRequest -> Vector ClientSortControls + :: + Hs.Maybe + Data.Sawtooth.ClientListControl.ClientPagingControls, + ClientTransactionListRequest -> Vector ClientSortControls clientTransactionListRequestSorting - :: - Hs.Vector - Data.Sawtooth.ClientListControl.ClientSortControls} - deriving (Int -> ClientTransactionListRequest -> ShowS + :: + Hs.Vector + Data.Sawtooth.ClientListControl.ClientSortControls} + deriving (Int -> ClientTransactionListRequest -> ShowS [ClientTransactionListRequest] -> ShowS ClientTransactionListRequest -> String (Int -> ClientTransactionListRequest -> ShowS) @@ -69,7 +68,7 @@ show :: ClientTransactionListRequest -> String $cshow :: ClientTransactionListRequest -> String showsPrec :: Int -> ClientTransactionListRequest -> ShowS $cshowsPrec :: Int -> ClientTransactionListRequest -> ShowS -Hs.Show, ClientTransactionListRequest +Hs.Show, ClientTransactionListRequest -> ClientTransactionListRequest -> Bool (ClientTransactionListRequest -> ClientTransactionListRequest -> Bool) @@ -85,10 +84,10 @@ $c/= :: ClientTransactionListRequest -> ClientTransactionListRequest -> Bool $c== :: ClientTransactionListRequest -> ClientTransactionListRequest -> Bool -Hs.Eq, Eq ClientTransactionListRequest -Eq ClientTransactionListRequest => -(ClientTransactionListRequest - -> ClientTransactionListRequest -> Ordering) +Hs.Eq, Eq ClientTransactionListRequest +Eq ClientTransactionListRequest +-> (ClientTransactionListRequest + -> ClientTransactionListRequest -> Ordering) -> (ClientTransactionListRequest -> ClientTransactionListRequest -> Bool) -> (ClientTransactionListRequest @@ -109,8 +108,8 @@ ClientTransactionListRequest ClientTransactionListRequest -> ClientTransactionListRequest -> ClientTransactionListRequest forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -147,7 +146,7 @@ compare :: ClientTransactionListRequest $ccompare :: ClientTransactionListRequest -> ClientTransactionListRequest -> Ordering $cp1Ord :: Eq ClientTransactionListRequest -Hs.Ord, (forall x. +Hs.Ord, (forall x. ClientTransactionListRequest -> Rep ClientTransactionListRequest x) -> (forall x. Rep ClientTransactionListRequest x -> ClientTransactionListRequest) @@ -162,84 +161,89 @@ $cto :: forall x. Rep ClientTransactionListRequest x -> ClientTransactionListRequest $cfrom :: forall x. ClientTransactionListRequest -> Rep ClientTransactionListRequest x -Hs.Generic, ClientTransactionListRequest -> () +Hs.Generic, ClientTransactionListRequest -> () (ClientTransactionListRequest -> ()) -> NFData ClientTransactionListRequest forall a. (a -> ()) -> NFData a rnf :: ClientTransactionListRequest -> () $crnf :: ClientTransactionListRequest -> () -Hs.NFData) - -instance HsProtobuf.Named ClientTransactionListRequest where - nameOf :: Proxy# ClientTransactionListRequest -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ClientTransactionListRequest where + nameOf :: Proxy# ClientTransactionListRequest -> string +nameOf Proxy# ClientTransactionListRequest +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ClientTransactionListRequest") - -instance HsProtobuf.HasDefault ClientTransactionListRequest - -instance HsProtobuf.Message ClientTransactionListRequest where - encodeMessage :: FieldNumber -> ClientTransactionListRequest -> MessageBuilder -encodeMessage _ - ClientTransactionListRequest{clientTransactionListRequestHeadId :: ClientTransactionListRequest -> Text +Hs.fromString String +"ClientTransactionListRequest") + +instance HsProtobuf.HasDefault ClientTransactionListRequest + +instance HsProtobuf.Message ClientTransactionListRequest where + encodeMessage :: FieldNumber -> ClientTransactionListRequest -> MessageBuilder +encodeMessage FieldNumber +_ + ClientTransactionListRequest{clientTransactionListRequestHeadId :: ClientTransactionListRequest -> Text clientTransactionListRequestHeadId = - Text -clientTransactionListRequestHeadId, - clientTransactionListRequestTransactionIds :: ClientTransactionListRequest -> Vector Text + Text +clientTransactionListRequestHeadId, + clientTransactionListRequestTransactionIds :: ClientTransactionListRequest -> Vector Text clientTransactionListRequestTransactionIds = - Vector Text -clientTransactionListRequestTransactionIds, - clientTransactionListRequestPaging :: ClientTransactionListRequest -> Maybe ClientPagingControls + Vector Text +clientTransactionListRequestTransactionIds, + clientTransactionListRequestPaging :: ClientTransactionListRequest -> Maybe ClientPagingControls clientTransactionListRequestPaging = - Maybe ClientPagingControls -clientTransactionListRequestPaging, - clientTransactionListRequestSorting :: ClientTransactionListRequest -> Vector ClientSortControls + Maybe ClientPagingControls +clientTransactionListRequestPaging, + clientTransactionListRequestSorting :: ClientTransactionListRequest -> Vector ClientSortControls clientTransactionListRequestSorting = - Vector ClientSortControls -clientTransactionListRequestSorting} - = ([MessageBuilder] -> MessageBuilder + Vector ClientSortControls +clientTransactionListRequestSorting} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> Text -> MessageBuilder +Hs.mconcat + [(FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Text -clientTransactionListRequestHeadId), - (FieldNumber -> UnpackedVec Text -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Text +clientTransactionListRequestHeadId), + (FieldNumber -> UnpackedVec Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (Vector Text -> UnpackedVec Text -forall a b. Coercible a b => a -> b -Hs.coerce @(Hs.Vector Hs.Text) @(HsProtobuf.UnpackedVec Hs.Text) - Vector Text -clientTransactionListRequestTransactionIds)), - (FieldNumber -> Nested ClientPagingControls -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (Vector Text -> UnpackedVec Text +Hs.coerce @(Hs.Vector Hs.Text) @(HsProtobuf.UnpackedVec Hs.Text) + Vector Text +clientTransactionListRequestTransactionIds)), + (FieldNumber -> Nested ClientPagingControls -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - (Maybe ClientPagingControls -> Nested ClientPagingControls -forall a b. Coercible a b => a -> b -Hs.coerce - @(Hs.Maybe Data.Sawtooth.ClientListControl.ClientPagingControls) - @(HsProtobuf.Nested Data.Sawtooth.ClientListControl.ClientPagingControls) - Maybe ClientPagingControls -clientTransactionListRequestPaging)), - (FieldNumber -> NestedVec ClientSortControls -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + (Maybe ClientPagingControls -> Nested ClientPagingControls +Hs.coerce + @(Hs.Maybe Data.Sawtooth.ClientListControl.ClientPagingControls) + @(HsProtobuf.Nested Data.Sawtooth.ClientListControl.ClientPagingControls) + Maybe ClientPagingControls +clientTransactionListRequestPaging)), + (FieldNumber -> NestedVec ClientSortControls -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 4) - (Vector ClientSortControls -> NestedVec ClientSortControls -forall a b. Coercible a b => a -> b -Hs.coerce - @(Hs.Vector Data.Sawtooth.ClientListControl.ClientSortControls) - @(HsProtobuf.NestedVec Data.Sawtooth.ClientListControl.ClientSortControls) - Vector ClientSortControls -clientTransactionListRequestSorting))]) - decodeMessage :: FieldNumber -> Parser RawMessage ClientTransactionListRequest -decodeMessage _ - = ((Text +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +4) + (Vector ClientSortControls -> NestedVec ClientSortControls +Hs.coerce + @(Hs.Vector Data.Sawtooth.ClientListControl.ClientSortControls) + @(HsProtobuf.NestedVec Data.Sawtooth.ClientListControl.ClientSortControls) + Vector ClientSortControls +clientTransactionListRequestSorting))]) + decodeMessage :: FieldNumber -> Parser RawMessage ClientTransactionListRequest +decodeMessage FieldNumber +_ + = ((Text -> Vector Text -> Maybe ClientPagingControls -> Vector ClientSortControls @@ -252,7 +256,7 @@ forall a b. Coercible a b => a -> b -> Vector ClientSortControls -> ClientTransactionListRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text +Hs.pure Text -> Vector Text -> Maybe ClientPagingControls -> Vector ClientSortControls @@ -272,15 +276,16 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Vector ClientSortControls -> ClientTransactionListRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (Vector Text -> Maybe ClientPagingControls @@ -292,21 +297,21 @@ forall a. MessageField a => Parser RawField a (Maybe ClientPagingControls -> Vector ClientSortControls -> ClientTransactionListRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (UnpackedVec Text) +<*> + (Parser RawMessage (UnpackedVec Text) -> Parser RawMessage (Vector Text) -forall a b. Coercible a b => a -> b -Hs.coerce @(_ (HsProtobuf.UnpackedVec Hs.Text)) - @(_ (Hs.Vector Hs.Text)) - (Parser RawField (UnpackedVec Text) +Hs.coerce @(_ (HsProtobuf.UnpackedVec Hs.Text)) + @(_ (Hs.Vector Hs.Text)) + (Parser RawField (UnpackedVec Text) -> FieldNumber -> Parser RawMessage (UnpackedVec Text) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (UnpackedVec Text) +HsProtobuf.at Parser RawField (UnpackedVec Text) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2))) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2))) + Parser RawMessage (Maybe ClientPagingControls -> Vector ClientSortControls -> ClientTransactionListRequest) @@ -315,183 +320,207 @@ forall a. MessageField a => Parser RawField a RawMessage (Vector ClientSortControls -> ClientTransactionListRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (Nested ClientPagingControls) +<*> + (Parser RawMessage (Nested ClientPagingControls) -> Parser RawMessage (Maybe ClientPagingControls) -forall a b. Coercible a b => a -> b -Hs.coerce - @(_ (HsProtobuf.Nested Data.Sawtooth.ClientListControl.ClientPagingControls)) - @(_ (Hs.Maybe Data.Sawtooth.ClientListControl.ClientPagingControls)) - (Parser RawField (Nested ClientPagingControls) +Hs.coerce + @(_ (HsProtobuf.Nested Data.Sawtooth.ClientListControl.ClientPagingControls)) + @(_ (Hs.Maybe Data.Sawtooth.ClientListControl.ClientPagingControls)) + (Parser RawField (Nested ClientPagingControls) -> FieldNumber -> Parser RawMessage (Nested ClientPagingControls) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (Nested ClientPagingControls) +HsProtobuf.at Parser RawField (Nested ClientPagingControls) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3))) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3))) + Parser RawMessage (Vector ClientSortControls -> ClientTransactionListRequest) -> Parser RawMessage (Vector ClientSortControls) -> Parser RawMessage ClientTransactionListRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (NestedVec ClientSortControls) +<*> + (Parser RawMessage (NestedVec ClientSortControls) -> Parser RawMessage (Vector ClientSortControls) -forall a b. Coercible a b => a -> b -Hs.coerce - @(_ (HsProtobuf.NestedVec Data.Sawtooth.ClientListControl.ClientSortControls)) - @(_ (Hs.Vector Data.Sawtooth.ClientListControl.ClientSortControls)) - (Parser RawField (NestedVec ClientSortControls) +Hs.coerce + @(_ (HsProtobuf.NestedVec Data.Sawtooth.ClientListControl.ClientSortControls)) + @(_ (Hs.Vector Data.Sawtooth.ClientListControl.ClientSortControls)) + (Parser RawField (NestedVec ClientSortControls) -> FieldNumber -> Parser RawMessage (NestedVec ClientSortControls) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (NestedVec ClientSortControls) +HsProtobuf.at Parser RawField (NestedVec ClientSortControls) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 4))) - dotProto :: Proxy# ClientTransactionListRequest -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +4))) + dotProto :: Proxy# ClientTransactionListRequest -> [DotProtoField] +dotProto Proxy# ClientTransactionListRequest +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "head_id") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"head_id") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Repeated DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "transaction_ids") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Repeated DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"transaction_ids") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim - (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "ClientPagingControls"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "paging") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim + (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"ClientPagingControls"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"paging") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 4) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Repeated - (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "ClientSortControls"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "sorting") - [] - "")] - -instance HsJSONPB.ToJSONPB ClientTransactionListRequest where - toJSONPB :: ClientTransactionListRequest -> Options -> Value -toJSONPB (ClientTransactionListRequest f1 :: Text -f1 f2 :: Vector Text -f2 f3 :: Maybe ClientPagingControls -f3 f4 :: Vector ClientSortControls -f4) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object - ["head_id" Text -> Text -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +4) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Repeated + (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"ClientSortControls"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"sorting") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ClientTransactionListRequest where + toJSONPB :: ClientTransactionListRequest -> Options -> Value +toJSONPB (ClientTransactionListRequest Text +f1 Vector Text +f2 Maybe ClientPagingControls +f3 Vector ClientSortControls +f4) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object + [Text +"head_id" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1, "transaction_ids" Text -> Vector Text -> Options -> [Pair] +.= Text +f1, Text +"transaction_ids" Text -> Vector Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Text -f2, "paging" Text -> Maybe ClientPagingControls -> Options -> [Pair] +.= Vector Text +f2, Text +"paging" Text -> Maybe ClientPagingControls -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Maybe ClientPagingControls -f3, - "sorting" Text -> Vector ClientSortControls -> Options -> [Pair] +.= Maybe ClientPagingControls +f3, + Text +"sorting" Text -> Vector ClientSortControls -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector ClientSortControls -f4]) - toEncodingPB :: ClientTransactionListRequest -> Options -> Encoding -toEncodingPB (ClientTransactionListRequest f1 :: Text -f1 f2 :: Vector Text -f2 f3 :: Maybe ClientPagingControls -f3 f4 :: Vector ClientSortControls -f4) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs - ["head_id" Text -> Text -> Options -> Series +.= Vector ClientSortControls +f4]) + toEncodingPB :: ClientTransactionListRequest -> Options -> Encoding +toEncodingPB (ClientTransactionListRequest Text +f1 Vector Text +f2 Maybe ClientPagingControls +f3 Vector ClientSortControls +f4) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs + [Text +"head_id" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1, "transaction_ids" Text -> Vector Text -> Options -> Series +.= Text +f1, Text +"transaction_ids" Text -> Vector Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Text -f2, "paging" Text -> Maybe ClientPagingControls -> Options -> Series +.= Vector Text +f2, Text +"paging" Text -> Maybe ClientPagingControls -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Maybe ClientPagingControls -f3, - "sorting" Text -> Vector ClientSortControls -> Options -> Series +.= Maybe ClientPagingControls +f3, + Text +"sorting" Text -> Vector ClientSortControls -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector ClientSortControls -f4]) - -instance HsJSONPB.FromJSONPB ClientTransactionListRequest where - parseJSONPB :: Value -> Parser ClientTransactionListRequest -parseJSONPB - = (String +.= Vector ClientSortControls +f4]) + +instance HsJSONPB.FromJSONPB ClientTransactionListRequest where + parseJSONPB :: Value -> Parser ClientTransactionListRequest +parseJSONPB + = (String -> (Object -> Parser ClientTransactionListRequest) -> Value -> Parser ClientTransactionListRequest forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ClientTransactionListRequest" - (\ obj :: Object -obj -> - ((Text +HsJSONPB.withObject String +"ClientTransactionListRequest" + (\ Object +obj -> + ((Text -> Vector Text -> Maybe ClientPagingControls -> Vector ClientSortControls @@ -503,7 +532,7 @@ forall a. String -> (Object -> Parser a) -> Value -> Parser a -> Vector ClientSortControls -> ClientTransactionListRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text +Hs.pure Text -> Vector Text -> Maybe ClientPagingControls -> Vector ClientSortControls @@ -521,12 +550,13 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Vector ClientSortControls -> ClientTransactionListRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Text +<*> Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "head_id" Parser +.: Text +"head_id" Parser (Vector Text -> Maybe ClientPagingControls -> Vector ClientSortControls @@ -536,115 +566,119 @@ Object -> Text -> Parser a (Maybe ClientPagingControls -> Vector ClientSortControls -> ClientTransactionListRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser (Vector Text) +<*> + Object +obj Object -> Text -> Parser (Vector Text) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "transaction_ids" - Parser +.: Text +"transaction_ids" + Parser (Maybe ClientPagingControls -> Vector ClientSortControls -> ClientTransactionListRequest) -> Parser (Maybe ClientPagingControls) -> Parser (Vector ClientSortControls -> ClientTransactionListRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser (Maybe ClientPagingControls) +<*> Object +obj Object -> Text -> Parser (Maybe ClientPagingControls) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "paging" - Parser (Vector ClientSortControls -> ClientTransactionListRequest) +.: Text +"paging" + Parser (Vector ClientSortControls -> ClientTransactionListRequest) -> Parser (Vector ClientSortControls) -> Parser ClientTransactionListRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser (Vector ClientSortControls) +<*> Object +obj Object -> Text -> Parser (Vector ClientSortControls) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "sorting")) - -instance HsJSONPB.ToJSON ClientTransactionListRequest where - toJSON :: ClientTransactionListRequest -> Value -toJSON = ClientTransactionListRequest -> Value +.: Text +"sorting")) + +instance HsJSONPB.ToJSON ClientTransactionListRequest where + toJSON :: ClientTransactionListRequest -> Value +toJSON = ClientTransactionListRequest -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ClientTransactionListRequest -> Encoding -toEncoding = ClientTransactionListRequest -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ClientTransactionListRequest -> Encoding +toEncoding = ClientTransactionListRequest -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ClientTransactionListRequest where - parseJSON :: Value -> Parser ClientTransactionListRequest -parseJSON = Value -> Parser ClientTransactionListRequest +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ClientTransactionListRequest where + parseJSON :: Value -> Parser ClientTransactionListRequest +parseJSON = Value -> Parser ClientTransactionListRequest forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ClientTransactionListRequest where - declareNamedSchema :: Proxy ClientTransactionListRequest +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ClientTransactionListRequest where + declareNamedSchema :: Proxy ClientTransactionListRequest -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_head_id :: Proxy (OverrideToSchema Text) +declareNamedSchema Proxy ClientTransactionListRequest +_ + = do let declare_head_id :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_head_id = Proxy (OverrideToSchema Text) +declare_head_id = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientTransactionListRequestHeadId <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +clientTransactionListRequestHeadId <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_head_id Proxy (OverrideToSchema Text) +declare_head_id Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_transaction_ids :: Proxy (OverrideToSchema (Vector Text)) +Proxy.Proxy + let declare_transaction_ids :: Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) -declare_transaction_ids = Proxy (OverrideToSchema (Vector Text)) +declare_transaction_ids = Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientTransactionListRequestTransactionIds <- Proxy (OverrideToSchema (Vector Text)) +HsJSONPB.declareSchemaRef + Referenced Schema +clientTransactionListRequestTransactionIds <- Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) -declare_transaction_ids - Proxy (OverrideToSchema (Vector Text)) +declare_transaction_ids + Proxy (OverrideToSchema (Vector Text)) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_paging :: Proxy (OverrideToSchema (Maybe ClientPagingControls)) +Proxy.Proxy + let declare_paging :: Proxy (OverrideToSchema (Maybe ClientPagingControls)) -> Declare (Definitions Schema) (Referenced Schema) -declare_paging = Proxy (OverrideToSchema (Maybe ClientPagingControls)) +declare_paging = Proxy (OverrideToSchema (Maybe ClientPagingControls)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientTransactionListRequestPaging <- Proxy (OverrideToSchema (Maybe ClientPagingControls)) +HsJSONPB.declareSchemaRef + Referenced Schema +clientTransactionListRequestPaging <- Proxy (OverrideToSchema (Maybe ClientPagingControls)) -> Declare (Definitions Schema) (Referenced Schema) -declare_paging Proxy (OverrideToSchema (Maybe ClientPagingControls)) +declare_paging Proxy (OverrideToSchema (Maybe ClientPagingControls)) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_sorting :: Proxy (OverrideToSchema (Vector ClientSortControls)) +Proxy.Proxy + let declare_sorting :: Proxy (OverrideToSchema (Vector ClientSortControls)) -> Declare (Definitions Schema) (Referenced Schema) -declare_sorting = Proxy (OverrideToSchema (Vector ClientSortControls)) +declare_sorting = Proxy (OverrideToSchema (Vector ClientSortControls)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientTransactionListRequestSorting <- Proxy (OverrideToSchema (Vector ClientSortControls)) +HsJSONPB.declareSchemaRef + Referenced Schema +clientTransactionListRequestSorting <- Proxy (OverrideToSchema (Vector ClientSortControls)) -> Declare (Definitions Schema) (Referenced Schema) -declare_sorting Proxy (OverrideToSchema (Vector ClientSortControls)) +declare_sorting Proxy (OverrideToSchema (Vector ClientSortControls)) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ClientTransactionListRequest +Proxy.Proxy + let Proxy ClientTransactionListRequest _ = (Text -> Vector Text -> Maybe ClientPagingControls @@ -657,7 +691,7 @@ forall k (t :: k). Proxy t -> Vector ClientSortControls -> ClientTransactionListRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text +Hs.pure Text -> Vector Text -> Maybe ClientPagingControls -> Vector ClientSortControls @@ -675,15 +709,15 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Vector ClientSortControls -> ClientTransactionListRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema Text) +<*> + (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_head_id - Proxy +declare_head_id + Proxy (Vector Text -> Maybe ClientPagingControls -> Vector ClientSortControls @@ -693,101 +727,106 @@ forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a (Maybe ClientPagingControls -> Vector ClientSortControls -> ClientTransactionListRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema (Vector Text)) +<*> (Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Vector Text) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Text)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) -declare_transaction_ids - Proxy +declare_transaction_ids + Proxy (Maybe ClientPagingControls -> Vector ClientSortControls -> ClientTransactionListRequest) -> Proxy (Maybe ClientPagingControls) -> Proxy (Vector ClientSortControls -> ClientTransactionListRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema (Maybe ClientPagingControls)) +<*> (Proxy (OverrideToSchema (Maybe ClientPagingControls)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Maybe ClientPagingControls) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Maybe ClientPagingControls)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Maybe ClientPagingControls)) -> Declare (Definitions Schema) (Referenced Schema) -declare_paging - Proxy (Vector ClientSortControls -> ClientTransactionListRequest) +declare_paging + Proxy (Vector ClientSortControls -> ClientTransactionListRequest) -> Proxy (Vector ClientSortControls) -> Proxy ClientTransactionListRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema (Vector ClientSortControls)) +<*> (Proxy (OverrideToSchema (Vector ClientSortControls)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Vector ClientSortControls) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Vector ClientSortControls)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Vector ClientSortControls)) -> Declare (Definitions Schema) (Referenced Schema) -declare_sorting - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_sorting + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ClientTransactionListRequest", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ClientTransactionListRequest", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("head_id", - Referenced Schema -clientTransactionListRequestHeadId), - ("transaction_ids", - Referenced Schema -clientTransactionListRequestTransactionIds), - ("paging", - Referenced Schema -clientTransactionListRequestPaging), - ("sorting", - Referenced Schema -clientTransactionListRequestSorting)]}}) - -data ClientTransactionListResponse = ClientTransactionListResponse{ClientTransactionListResponse +HsJSONPB.insOrdFromList + [(Text +"head_id", + Referenced Schema +clientTransactionListRequestHeadId), + (Text +"transaction_ids", + Referenced Schema +clientTransactionListRequestTransactionIds), + (Text +"paging", + Referenced Schema +clientTransactionListRequestPaging), + (Text +"sorting", + Referenced Schema +clientTransactionListRequestSorting)]}}) + +data ClientTransactionListResponse = ClientTransactionListResponse{ClientTransactionListResponse -> Enumerated ClientTransactionListResponse_Status clientTransactionListResponseStatus - :: - HsProtobuf.Enumerated - Data.Sawtooth.ClientTransaction.ClientTransactionListResponse_Status, - ClientTransactionListResponse -> Vector Transaction + :: + HsProtobuf.Enumerated + Data.Sawtooth.ClientTransaction.ClientTransactionListResponse_Status, + ClientTransactionListResponse -> Vector Transaction clientTransactionListResponseTransactions - :: - Hs.Vector - Data.Sawtooth.Transaction.Transaction, - ClientTransactionListResponse -> Text + :: + Hs.Vector + Data.Sawtooth.Transaction.Transaction, + ClientTransactionListResponse -> Text clientTransactionListResponseHeadId - :: Hs.Text, - ClientTransactionListResponse -> Maybe ClientPagingResponse + :: Hs.Text, + ClientTransactionListResponse -> Maybe ClientPagingResponse clientTransactionListResponsePaging - :: - Hs.Maybe - Data.Sawtooth.ClientListControl.ClientPagingResponse} - deriving (Int -> ClientTransactionListResponse -> ShowS + :: + Hs.Maybe + Data.Sawtooth.ClientListControl.ClientPagingResponse} + deriving (Int -> ClientTransactionListResponse -> ShowS [ClientTransactionListResponse] -> ShowS ClientTransactionListResponse -> String (Int -> ClientTransactionListResponse -> ShowS) @@ -802,7 +841,7 @@ show :: ClientTransactionListResponse -> String $cshow :: ClientTransactionListResponse -> String showsPrec :: Int -> ClientTransactionListResponse -> ShowS $cshowsPrec :: Int -> ClientTransactionListResponse -> ShowS -Hs.Show, ClientTransactionListResponse +Hs.Show, ClientTransactionListResponse -> ClientTransactionListResponse -> Bool (ClientTransactionListResponse -> ClientTransactionListResponse -> Bool) @@ -818,10 +857,10 @@ $c/= :: ClientTransactionListResponse -> ClientTransactionListResponse -> Bool $c== :: ClientTransactionListResponse -> ClientTransactionListResponse -> Bool -Hs.Eq, Eq ClientTransactionListResponse -Eq ClientTransactionListResponse => -(ClientTransactionListResponse - -> ClientTransactionListResponse -> Ordering) +Hs.Eq, Eq ClientTransactionListResponse +Eq ClientTransactionListResponse +-> (ClientTransactionListResponse + -> ClientTransactionListResponse -> Ordering) -> (ClientTransactionListResponse -> ClientTransactionListResponse -> Bool) -> (ClientTransactionListResponse @@ -842,8 +881,8 @@ ClientTransactionListResponse ClientTransactionListResponse -> ClientTransactionListResponse -> ClientTransactionListResponse forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -880,7 +919,7 @@ compare :: ClientTransactionListResponse $ccompare :: ClientTransactionListResponse -> ClientTransactionListResponse -> Ordering $cp1Ord :: Eq ClientTransactionListResponse -Hs.Ord, (forall x. +Hs.Ord, (forall x. ClientTransactionListResponse -> Rep ClientTransactionListResponse x) -> (forall x. @@ -901,83 +940,89 @@ Rep ClientTransactionListResponse x $cfrom :: forall x. ClientTransactionListResponse -> Rep ClientTransactionListResponse x -Hs.Generic, ClientTransactionListResponse -> () +Hs.Generic, ClientTransactionListResponse -> () (ClientTransactionListResponse -> ()) -> NFData ClientTransactionListResponse forall a. (a -> ()) -> NFData a rnf :: ClientTransactionListResponse -> () $crnf :: ClientTransactionListResponse -> () -Hs.NFData) - -instance HsProtobuf.Named ClientTransactionListResponse where - nameOf :: Proxy# ClientTransactionListResponse -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ClientTransactionListResponse where + nameOf :: Proxy# ClientTransactionListResponse -> string +nameOf Proxy# ClientTransactionListResponse +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ClientTransactionListResponse") - -instance HsProtobuf.HasDefault ClientTransactionListResponse - -instance HsProtobuf.Message ClientTransactionListResponse where - encodeMessage :: FieldNumber -> ClientTransactionListResponse -> MessageBuilder -encodeMessage _ - ClientTransactionListResponse{clientTransactionListResponseStatus :: ClientTransactionListResponse +Hs.fromString String +"ClientTransactionListResponse") + +instance HsProtobuf.HasDefault ClientTransactionListResponse + +instance HsProtobuf.Message ClientTransactionListResponse where + encodeMessage :: FieldNumber -> ClientTransactionListResponse -> MessageBuilder +encodeMessage FieldNumber +_ + ClientTransactionListResponse{clientTransactionListResponseStatus :: ClientTransactionListResponse -> Enumerated ClientTransactionListResponse_Status clientTransactionListResponseStatus = - Enumerated ClientTransactionListResponse_Status -clientTransactionListResponseStatus, - clientTransactionListResponseTransactions :: ClientTransactionListResponse -> Vector Transaction + Enumerated ClientTransactionListResponse_Status +clientTransactionListResponseStatus, + clientTransactionListResponseTransactions :: ClientTransactionListResponse -> Vector Transaction clientTransactionListResponseTransactions = - Vector Transaction -clientTransactionListResponseTransactions, - clientTransactionListResponseHeadId :: ClientTransactionListResponse -> Text + Vector Transaction +clientTransactionListResponseTransactions, + clientTransactionListResponseHeadId :: ClientTransactionListResponse -> Text clientTransactionListResponseHeadId = - Text -clientTransactionListResponseHeadId, - clientTransactionListResponsePaging :: ClientTransactionListResponse -> Maybe ClientPagingResponse + Text +clientTransactionListResponseHeadId, + clientTransactionListResponsePaging :: ClientTransactionListResponse -> Maybe ClientPagingResponse clientTransactionListResponsePaging = - Maybe ClientPagingResponse -clientTransactionListResponsePaging} - = ([MessageBuilder] -> MessageBuilder + Maybe ClientPagingResponse +clientTransactionListResponsePaging} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber +Hs.mconcat + [(FieldNumber -> Enumerated ClientTransactionListResponse_Status -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Enumerated ClientTransactionListResponse_Status -clientTransactionListResponseStatus), - (FieldNumber -> NestedVec Transaction -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Enumerated ClientTransactionListResponse_Status +clientTransactionListResponseStatus), + (FieldNumber -> NestedVec Transaction -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (Vector Transaction -> NestedVec Transaction -forall a b. Coercible a b => a -> b -Hs.coerce @(Hs.Vector Data.Sawtooth.Transaction.Transaction) - @(HsProtobuf.NestedVec Data.Sawtooth.Transaction.Transaction) - Vector Transaction -clientTransactionListResponseTransactions)), - (FieldNumber -> Text -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (Vector Transaction -> NestedVec Transaction +Hs.coerce @(Hs.Vector Data.Sawtooth.Transaction.Transaction) + @(HsProtobuf.NestedVec Data.Sawtooth.Transaction.Transaction) + Vector Transaction +clientTransactionListResponseTransactions)), + (FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - Text -clientTransactionListResponseHeadId), - (FieldNumber -> Nested ClientPagingResponse -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + Text +clientTransactionListResponseHeadId), + (FieldNumber -> Nested ClientPagingResponse -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 4) - (Maybe ClientPagingResponse -> Nested ClientPagingResponse -forall a b. Coercible a b => a -> b -Hs.coerce - @(Hs.Maybe Data.Sawtooth.ClientListControl.ClientPagingResponse) - @(HsProtobuf.Nested Data.Sawtooth.ClientListControl.ClientPagingResponse) - Maybe ClientPagingResponse -clientTransactionListResponsePaging))]) - decodeMessage :: FieldNumber -> Parser RawMessage ClientTransactionListResponse -decodeMessage _ - = ((Enumerated ClientTransactionListResponse_Status +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +4) + (Maybe ClientPagingResponse -> Nested ClientPagingResponse +Hs.coerce + @(Hs.Maybe Data.Sawtooth.ClientListControl.ClientPagingResponse) + @(HsProtobuf.Nested Data.Sawtooth.ClientListControl.ClientPagingResponse) + Maybe ClientPagingResponse +clientTransactionListResponsePaging))]) + decodeMessage :: FieldNumber -> Parser RawMessage ClientTransactionListResponse +decodeMessage FieldNumber +_ + = ((Enumerated ClientTransactionListResponse_Status -> Vector Transaction -> Text -> Maybe ClientPagingResponse @@ -990,7 +1035,7 @@ forall a b. Coercible a b => a -> b -> Maybe ClientPagingResponse -> ClientTransactionListResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ClientTransactionListResponse_Status +Hs.pure Enumerated ClientTransactionListResponse_Status -> Vector Transaction -> Text -> Maybe ClientPagingResponse @@ -1011,18 +1056,19 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Maybe ClientPagingResponse -> ClientTransactionListResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField (Enumerated ClientTransactionListResponse_Status) +<*> + (Parser RawField (Enumerated ClientTransactionListResponse_Status) -> FieldNumber -> Parser RawMessage (Enumerated ClientTransactionListResponse_Status) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (Enumerated ClientTransactionListResponse_Status) +HsProtobuf.at Parser RawField (Enumerated ClientTransactionListResponse_Status) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (Vector Transaction -> Text @@ -1034,22 +1080,22 @@ forall a. MessageField a => Parser RawField a (Text -> Maybe ClientPagingResponse -> ClientTransactionListResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (NestedVec Transaction) +<*> + (Parser RawMessage (NestedVec Transaction) -> Parser RawMessage (Vector Transaction) -forall a b. Coercible a b => a -> b -Hs.coerce - @(_ (HsProtobuf.NestedVec Data.Sawtooth.Transaction.Transaction)) - @(_ (Hs.Vector Data.Sawtooth.Transaction.Transaction)) - (Parser RawField (NestedVec Transaction) +Hs.coerce + @(_ (HsProtobuf.NestedVec Data.Sawtooth.Transaction.Transaction)) + @(_ (Hs.Vector Data.Sawtooth.Transaction.Transaction)) + (Parser RawField (NestedVec Transaction) -> FieldNumber -> Parser RawMessage (NestedVec Transaction) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (NestedVec Transaction) +HsProtobuf.at Parser RawField (NestedVec Transaction) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2))) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2))) + Parser RawMessage (Text -> Maybe ClientPagingResponse -> ClientTransactionListResponse) @@ -1058,183 +1104,209 @@ forall a. MessageField a => Parser RawField a RawMessage (Maybe ClientPagingResponse -> ClientTransactionListResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3)) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3)) + Parser RawMessage (Maybe ClientPagingResponse -> ClientTransactionListResponse) -> Parser RawMessage (Maybe ClientPagingResponse) -> Parser RawMessage ClientTransactionListResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (Nested ClientPagingResponse) +<*> + (Parser RawMessage (Nested ClientPagingResponse) -> Parser RawMessage (Maybe ClientPagingResponse) -forall a b. Coercible a b => a -> b -Hs.coerce - @(_ (HsProtobuf.Nested Data.Sawtooth.ClientListControl.ClientPagingResponse)) - @(_ (Hs.Maybe Data.Sawtooth.ClientListControl.ClientPagingResponse)) - (Parser RawField (Nested ClientPagingResponse) +Hs.coerce + @(_ (HsProtobuf.Nested Data.Sawtooth.ClientListControl.ClientPagingResponse)) + @(_ (Hs.Maybe Data.Sawtooth.ClientListControl.ClientPagingResponse)) + (Parser RawField (Nested ClientPagingResponse) -> FieldNumber -> Parser RawMessage (Nested ClientPagingResponse) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (Nested ClientPagingResponse) +HsProtobuf.at Parser RawField (Nested ClientPagingResponse) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 4))) - dotProto :: Proxy# ClientTransactionListResponse -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +4))) + dotProto :: Proxy# ClientTransactionListResponse -> [DotProtoField] +dotProto Proxy# ClientTransactionListResponse +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "Status"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "status") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"Status"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"status") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Repeated - (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "Transaction"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "transactions") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Repeated + (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"Transaction"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"transactions") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "head_id") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"head_id") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 4) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim - (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "ClientPagingResponse"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "paging") - [] - "")] - -instance HsJSONPB.ToJSONPB ClientTransactionListResponse where - toJSONPB :: ClientTransactionListResponse -> Options -> Value -toJSONPB (ClientTransactionListResponse f1 :: Enumerated ClientTransactionListResponse_Status -f1 f2 :: Vector Transaction -f2 f3 :: Text -f3 f4 :: Maybe ClientPagingResponse -f4) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object - ["status" Text +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +4) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim + (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"ClientPagingResponse"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"paging") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ClientTransactionListResponse where + toJSONPB :: ClientTransactionListResponse -> Options -> Value +toJSONPB (ClientTransactionListResponse Enumerated ClientTransactionListResponse_Status +f1 Vector Transaction +f2 Text +f3 Maybe ClientPagingResponse +f4) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object + [Text +"status" Text -> Enumerated ClientTransactionListResponse_Status -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated ClientTransactionListResponse_Status -f1, "transactions" Text -> Vector Transaction -> Options -> [Pair] +.= Enumerated ClientTransactionListResponse_Status +f1, Text +"transactions" Text -> Vector Transaction -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Transaction -f2, "head_id" Text -> Text -> Options -> [Pair] +.= Vector Transaction +f2, Text +"head_id" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f3, - "paging" Text -> Maybe ClientPagingResponse -> Options -> [Pair] +.= Text +f3, + Text +"paging" Text -> Maybe ClientPagingResponse -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Maybe ClientPagingResponse -f4]) - toEncodingPB :: ClientTransactionListResponse -> Options -> Encoding -toEncodingPB (ClientTransactionListResponse f1 :: Enumerated ClientTransactionListResponse_Status -f1 f2 :: Vector Transaction -f2 f3 :: Text -f3 f4 :: Maybe ClientPagingResponse -f4) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs - ["status" Text +.= Maybe ClientPagingResponse +f4]) + toEncodingPB :: ClientTransactionListResponse -> Options -> Encoding +toEncodingPB (ClientTransactionListResponse Enumerated ClientTransactionListResponse_Status +f1 Vector Transaction +f2 Text +f3 Maybe ClientPagingResponse +f4) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs + [Text +"status" Text -> Enumerated ClientTransactionListResponse_Status -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated ClientTransactionListResponse_Status -f1, "transactions" Text -> Vector Transaction -> Options -> Series +.= Enumerated ClientTransactionListResponse_Status +f1, Text +"transactions" Text -> Vector Transaction -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Transaction -f2, "head_id" Text -> Text -> Options -> Series +.= Vector Transaction +f2, Text +"head_id" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f3, - "paging" Text -> Maybe ClientPagingResponse -> Options -> Series +.= Text +f3, + Text +"paging" Text -> Maybe ClientPagingResponse -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Maybe ClientPagingResponse -f4]) - -instance HsJSONPB.FromJSONPB ClientTransactionListResponse where - parseJSONPB :: Value -> Parser ClientTransactionListResponse -parseJSONPB - = (String +.= Maybe ClientPagingResponse +f4]) + +instance HsJSONPB.FromJSONPB ClientTransactionListResponse where + parseJSONPB :: Value -> Parser ClientTransactionListResponse +parseJSONPB + = (String -> (Object -> Parser ClientTransactionListResponse) -> Value -> Parser ClientTransactionListResponse forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ClientTransactionListResponse" - (\ obj :: Object -obj -> - ((Enumerated ClientTransactionListResponse_Status +HsJSONPB.withObject String +"ClientTransactionListResponse" + (\ Object +obj -> + ((Enumerated ClientTransactionListResponse_Status -> Vector Transaction -> Text -> Maybe ClientPagingResponse @@ -1246,7 +1318,7 @@ forall a. String -> (Object -> Parser a) -> Value -> Parser a -> Maybe ClientPagingResponse -> ClientTransactionListResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ClientTransactionListResponse_Status +Hs.pure Enumerated ClientTransactionListResponse_Status -> Vector Transaction -> Text -> Maybe ClientPagingResponse @@ -1264,13 +1336,14 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Maybe ClientPagingResponse -> ClientTransactionListResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object +<*> Object +obj Object -> Text -> Parser (Enumerated ClientTransactionListResponse_Status) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "status" Parser +.: Text +"status" Parser (Vector Transaction -> Text -> Maybe ClientPagingResponse @@ -1280,124 +1353,128 @@ Object -> Text -> Parser a (Text -> Maybe ClientPagingResponse -> ClientTransactionListResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser (Vector Transaction) +<*> + Object +obj Object -> Text -> Parser (Vector Transaction) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "transactions" - Parser +.: Text +"transactions" + Parser (Text -> Maybe ClientPagingResponse -> ClientTransactionListResponse) -> Parser Text -> Parser (Maybe ClientPagingResponse -> ClientTransactionListResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Text +<*> Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "head_id" - Parser +.: Text +"head_id" + Parser (Maybe ClientPagingResponse -> ClientTransactionListResponse) -> Parser (Maybe ClientPagingResponse) -> Parser ClientTransactionListResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser (Maybe ClientPagingResponse) +<*> Object +obj Object -> Text -> Parser (Maybe ClientPagingResponse) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "paging")) - -instance HsJSONPB.ToJSON ClientTransactionListResponse where - toJSON :: ClientTransactionListResponse -> Value -toJSON = ClientTransactionListResponse -> Value +.: Text +"paging")) + +instance HsJSONPB.ToJSON ClientTransactionListResponse where + toJSON :: ClientTransactionListResponse -> Value +toJSON = ClientTransactionListResponse -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ClientTransactionListResponse -> Encoding -toEncoding = ClientTransactionListResponse -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ClientTransactionListResponse -> Encoding +toEncoding = ClientTransactionListResponse -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ClientTransactionListResponse where - parseJSON :: Value -> Parser ClientTransactionListResponse -parseJSON = Value -> Parser ClientTransactionListResponse +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ClientTransactionListResponse where + parseJSON :: Value -> Parser ClientTransactionListResponse +parseJSON = Value -> Parser ClientTransactionListResponse forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ClientTransactionListResponse where - declareNamedSchema :: Proxy ClientTransactionListResponse +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ClientTransactionListResponse where + declareNamedSchema :: Proxy ClientTransactionListResponse -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_status :: Proxy +declareNamedSchema Proxy ClientTransactionListResponse +_ + = do let declare_status :: Proxy (OverrideToSchema (Enumerated ClientTransactionListResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status = Proxy +declare_status = Proxy (OverrideToSchema (Enumerated ClientTransactionListResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientTransactionListResponseStatus <- Proxy +HsJSONPB.declareSchemaRef + Referenced Schema +clientTransactionListResponseStatus <- Proxy (OverrideToSchema (Enumerated ClientTransactionListResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status Proxy +declare_status Proxy (OverrideToSchema (Enumerated ClientTransactionListResponse_Status)) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_transactions :: Proxy (OverrideToSchema (Vector Transaction)) +Proxy.Proxy + let declare_transactions :: Proxy (OverrideToSchema (Vector Transaction)) -> Declare (Definitions Schema) (Referenced Schema) -declare_transactions = Proxy (OverrideToSchema (Vector Transaction)) +declare_transactions = Proxy (OverrideToSchema (Vector Transaction)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientTransactionListResponseTransactions <- Proxy (OverrideToSchema (Vector Transaction)) +HsJSONPB.declareSchemaRef + Referenced Schema +clientTransactionListResponseTransactions <- Proxy (OverrideToSchema (Vector Transaction)) -> Declare (Definitions Schema) (Referenced Schema) -declare_transactions - Proxy (OverrideToSchema (Vector Transaction)) +declare_transactions + Proxy (OverrideToSchema (Vector Transaction)) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_head_id :: Proxy (OverrideToSchema Text) +Proxy.Proxy + let declare_head_id :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_head_id = Proxy (OverrideToSchema Text) +declare_head_id = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientTransactionListResponseHeadId <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +clientTransactionListResponseHeadId <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_head_id Proxy (OverrideToSchema Text) +declare_head_id Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_paging :: Proxy (OverrideToSchema (Maybe ClientPagingResponse)) +Proxy.Proxy + let declare_paging :: Proxy (OverrideToSchema (Maybe ClientPagingResponse)) -> Declare (Definitions Schema) (Referenced Schema) -declare_paging = Proxy (OverrideToSchema (Maybe ClientPagingResponse)) +declare_paging = Proxy (OverrideToSchema (Maybe ClientPagingResponse)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientTransactionListResponsePaging <- Proxy (OverrideToSchema (Maybe ClientPagingResponse)) +HsJSONPB.declareSchemaRef + Referenced Schema +clientTransactionListResponsePaging <- Proxy (OverrideToSchema (Maybe ClientPagingResponse)) -> Declare (Definitions Schema) (Referenced Schema) -declare_paging Proxy (OverrideToSchema (Maybe ClientPagingResponse)) +declare_paging Proxy (OverrideToSchema (Maybe ClientPagingResponse)) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ClientTransactionListResponse +Proxy.Proxy + let Proxy ClientTransactionListResponse _ = (Enumerated ClientTransactionListResponse_Status -> Vector Transaction -> Text @@ -1410,7 +1487,7 @@ forall k (t :: k). Proxy t -> Maybe ClientPagingResponse -> ClientTransactionListResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ClientTransactionListResponse_Status +Hs.pure Enumerated ClientTransactionListResponse_Status -> Vector Transaction -> Text -> Maybe ClientPagingResponse @@ -1428,19 +1505,19 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Maybe ClientPagingResponse -> ClientTransactionListResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy +<*> + (Proxy (OverrideToSchema (Enumerated ClientTransactionListResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Enumerated ClientTransactionListResponse_Status) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy +HsJSONPB.asProxy Proxy (OverrideToSchema (Enumerated ClientTransactionListResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status - Proxy +declare_status + Proxy (Vector Transaction -> Text -> Maybe ClientPagingResponse @@ -1450,91 +1527,96 @@ forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a (Text -> Maybe ClientPagingResponse -> ClientTransactionListResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema (Vector Transaction)) +<*> (Proxy (OverrideToSchema (Vector Transaction)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Vector Transaction) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Transaction)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Transaction)) -> Declare (Definitions Schema) (Referenced Schema) -declare_transactions - Proxy +declare_transactions + Proxy (Text -> Maybe ClientPagingResponse -> ClientTransactionListResponse) -> Proxy Text -> Proxy (Maybe ClientPagingResponse -> ClientTransactionListResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema Text) +<*> (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_head_id - Proxy (Maybe ClientPagingResponse -> ClientTransactionListResponse) +declare_head_id + Proxy (Maybe ClientPagingResponse -> ClientTransactionListResponse) -> Proxy (Maybe ClientPagingResponse) -> Proxy ClientTransactionListResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema (Maybe ClientPagingResponse)) +<*> (Proxy (OverrideToSchema (Maybe ClientPagingResponse)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Maybe ClientPagingResponse) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Maybe ClientPagingResponse)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Maybe ClientPagingResponse)) -> Declare (Definitions Schema) (Referenced Schema) -declare_paging - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_paging + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ClientTransactionListResponse", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ClientTransactionListResponse", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("status", - Referenced Schema -clientTransactionListResponseStatus), - ("transactions", - Referenced Schema -clientTransactionListResponseTransactions), - ("head_id", - Referenced Schema -clientTransactionListResponseHeadId), - ("paging", - Referenced Schema -clientTransactionListResponsePaging)]}}) - -data ClientTransactionListResponse_Status = ClientTransactionListResponse_StatusSTATUS_UNSET - | ClientTransactionListResponse_StatusOK - | ClientTransactionListResponse_StatusINTERNAL_ERROR - | ClientTransactionListResponse_StatusNOT_READY - | ClientTransactionListResponse_StatusNO_ROOT - | ClientTransactionListResponse_StatusNO_RESOURCE - | ClientTransactionListResponse_StatusINVALID_PAGING - | ClientTransactionListResponse_StatusINVALID_SORT - | ClientTransactionListResponse_StatusINVALID_ID - deriving (Int -> ClientTransactionListResponse_Status -> ShowS +HsJSONPB.insOrdFromList + [(Text +"status", + Referenced Schema +clientTransactionListResponseStatus), + (Text +"transactions", + Referenced Schema +clientTransactionListResponseTransactions), + (Text +"head_id", + Referenced Schema +clientTransactionListResponseHeadId), + (Text +"paging", + Referenced Schema +clientTransactionListResponsePaging)]}}) + +data ClientTransactionListResponse_Status = ClientTransactionListResponse_StatusSTATUS_UNSET + | ClientTransactionListResponse_StatusOK + | ClientTransactionListResponse_StatusINTERNAL_ERROR + | ClientTransactionListResponse_StatusNOT_READY + | ClientTransactionListResponse_StatusNO_ROOT + | ClientTransactionListResponse_StatusNO_RESOURCE + | ClientTransactionListResponse_StatusINVALID_PAGING + | ClientTransactionListResponse_StatusINVALID_SORT + | ClientTransactionListResponse_StatusINVALID_ID + deriving (Int -> ClientTransactionListResponse_Status -> ShowS [ClientTransactionListResponse_Status] -> ShowS ClientTransactionListResponse_Status -> String (Int -> ClientTransactionListResponse_Status -> ShowS) @@ -1549,7 +1631,7 @@ show :: ClientTransactionListResponse_Status -> String $cshow :: ClientTransactionListResponse_Status -> String showsPrec :: Int -> ClientTransactionListResponse_Status -> ShowS $cshowsPrec :: Int -> ClientTransactionListResponse_Status -> ShowS -Hs.Show, ClientTransactionListResponse_Status +Hs.Show, ClientTransactionListResponse_Status -> ClientTransactionListResponse_Status -> Bool (ClientTransactionListResponse_Status -> ClientTransactionListResponse_Status -> Bool) @@ -1565,7 +1647,7 @@ $c/= :: ClientTransactionListResponse_Status -> ClientTransactionListResponse_Status -> Bool $c== :: ClientTransactionListResponse_Status -> ClientTransactionListResponse_Status -> Bool -Hs.Eq, (forall x. +Hs.Eq, (forall x. ClientTransactionListResponse_Status -> Rep ClientTransactionListResponse_Status x) -> (forall x. @@ -1586,233 +1668,266 @@ Rep ClientTransactionListResponse_Status x $cfrom :: forall x. ClientTransactionListResponse_Status -> Rep ClientTransactionListResponse_Status x -Hs.Generic, ClientTransactionListResponse_Status -> () +Hs.Generic, ClientTransactionListResponse_Status -> () (ClientTransactionListResponse_Status -> ()) -> NFData ClientTransactionListResponse_Status forall a. (a -> ()) -> NFData a rnf :: ClientTransactionListResponse_Status -> () $crnf :: ClientTransactionListResponse_Status -> () -Hs.NFData) - -instance HsProtobuf.Named ClientTransactionListResponse_Status - where - nameOf :: Proxy# ClientTransactionListResponse_Status -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ClientTransactionListResponse_Status + where + nameOf :: Proxy# ClientTransactionListResponse_Status -> string +nameOf Proxy# ClientTransactionListResponse_Status +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ClientTransactionListResponse_Status") - -instance HsProtobuf.HasDefault ClientTransactionListResponse_Status - -instance Hs.Bounded ClientTransactionListResponse_Status where - minBound :: ClientTransactionListResponse_Status -minBound = ClientTransactionListResponse_Status +Hs.fromString String +"ClientTransactionListResponse_Status") + +instance HsProtobuf.HasDefault ClientTransactionListResponse_Status + +instance Hs.Bounded ClientTransactionListResponse_Status where + minBound :: ClientTransactionListResponse_Status +minBound = ClientTransactionListResponse_Status ClientTransactionListResponse_StatusSTATUS_UNSET - maxBound :: ClientTransactionListResponse_Status -maxBound = ClientTransactionListResponse_Status + maxBound :: ClientTransactionListResponse_Status +maxBound = ClientTransactionListResponse_Status ClientTransactionListResponse_StatusINVALID_ID - -instance Hs.Ord ClientTransactionListResponse_Status where - compare :: ClientTransactionListResponse_Status + +instance Hs.Ord ClientTransactionListResponse_Status where + compare :: ClientTransactionListResponse_Status -> ClientTransactionListResponse_Status -> Ordering -compare x :: ClientTransactionListResponse_Status -x y :: ClientTransactionListResponse_Status -y - = Int32 -> Int32 -> Ordering +compare ClientTransactionListResponse_Status +x ClientTransactionListResponse_Status +y + = Int32 -> Int32 -> Ordering forall a. Ord a => a -> a -> Ordering -Hs.compare (ClientTransactionListResponse_Status -> Int32 +Hs.compare (ClientTransactionListResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum ClientTransactionListResponse_Status -x) - (ClientTransactionListResponse_Status -> Int32 +HsProtobuf.fromProtoEnum ClientTransactionListResponse_Status +x) + (ClientTransactionListResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum ClientTransactionListResponse_Status -y) - -instance HsProtobuf.ProtoEnum ClientTransactionListResponse_Status - where - toProtoEnumMay :: Int32 -> Maybe ClientTransactionListResponse_Status -toProtoEnumMay 0 - = ClientTransactionListResponse_Status +HsProtobuf.fromProtoEnum ClientTransactionListResponse_Status +y) + +instance HsProtobuf.ProtoEnum ClientTransactionListResponse_Status + where + toProtoEnumMay :: Int32 -> Maybe ClientTransactionListResponse_Status +toProtoEnumMay Int32 +0 + = ClientTransactionListResponse_Status -> Maybe ClientTransactionListResponse_Status forall a. a -> Maybe a -Hs.Just ClientTransactionListResponse_Status +Hs.Just ClientTransactionListResponse_Status ClientTransactionListResponse_StatusSTATUS_UNSET - toProtoEnumMay 1 = ClientTransactionListResponse_Status + toProtoEnumMay Int32 +1 = ClientTransactionListResponse_Status -> Maybe ClientTransactionListResponse_Status forall a. a -> Maybe a -Hs.Just ClientTransactionListResponse_Status +Hs.Just ClientTransactionListResponse_Status ClientTransactionListResponse_StatusOK - toProtoEnumMay 2 - = ClientTransactionListResponse_Status + toProtoEnumMay Int32 +2 + = ClientTransactionListResponse_Status -> Maybe ClientTransactionListResponse_Status forall a. a -> Maybe a -Hs.Just ClientTransactionListResponse_Status +Hs.Just ClientTransactionListResponse_Status ClientTransactionListResponse_StatusINTERNAL_ERROR - toProtoEnumMay 3 - = ClientTransactionListResponse_Status + toProtoEnumMay Int32 +3 + = ClientTransactionListResponse_Status -> Maybe ClientTransactionListResponse_Status forall a. a -> Maybe a -Hs.Just ClientTransactionListResponse_Status +Hs.Just ClientTransactionListResponse_Status ClientTransactionListResponse_StatusNOT_READY - toProtoEnumMay 4 - = ClientTransactionListResponse_Status + toProtoEnumMay Int32 +4 + = ClientTransactionListResponse_Status -> Maybe ClientTransactionListResponse_Status forall a. a -> Maybe a -Hs.Just ClientTransactionListResponse_Status +Hs.Just ClientTransactionListResponse_Status ClientTransactionListResponse_StatusNO_ROOT - toProtoEnumMay 5 - = ClientTransactionListResponse_Status + toProtoEnumMay Int32 +5 + = ClientTransactionListResponse_Status -> Maybe ClientTransactionListResponse_Status forall a. a -> Maybe a -Hs.Just ClientTransactionListResponse_Status +Hs.Just ClientTransactionListResponse_Status ClientTransactionListResponse_StatusNO_RESOURCE - toProtoEnumMay 6 - = ClientTransactionListResponse_Status + toProtoEnumMay Int32 +6 + = ClientTransactionListResponse_Status -> Maybe ClientTransactionListResponse_Status forall a. a -> Maybe a -Hs.Just ClientTransactionListResponse_Status +Hs.Just ClientTransactionListResponse_Status ClientTransactionListResponse_StatusINVALID_PAGING - toProtoEnumMay 7 - = ClientTransactionListResponse_Status + toProtoEnumMay Int32 +7 + = ClientTransactionListResponse_Status -> Maybe ClientTransactionListResponse_Status forall a. a -> Maybe a -Hs.Just ClientTransactionListResponse_Status +Hs.Just ClientTransactionListResponse_Status ClientTransactionListResponse_StatusINVALID_SORT - toProtoEnumMay 8 - = ClientTransactionListResponse_Status + toProtoEnumMay Int32 +8 + = ClientTransactionListResponse_Status -> Maybe ClientTransactionListResponse_Status forall a. a -> Maybe a -Hs.Just ClientTransactionListResponse_Status +Hs.Just ClientTransactionListResponse_Status ClientTransactionListResponse_StatusINVALID_ID - toProtoEnumMay _ = Maybe ClientTransactionListResponse_Status + toProtoEnumMay Int32 +_ = Maybe ClientTransactionListResponse_Status forall a. Maybe a -Hs.Nothing - fromProtoEnum :: ClientTransactionListResponse_Status -> Int32 -fromProtoEnum (ClientTransactionListResponse_Status +Hs.Nothing + fromProtoEnum :: ClientTransactionListResponse_Status -> Int32 +fromProtoEnum (ClientTransactionListResponse_Status ClientTransactionListResponse_StatusSTATUS_UNSET) - = 0 - fromProtoEnum (ClientTransactionListResponse_Status -ClientTransactionListResponse_StatusOK) = 1 - fromProtoEnum (ClientTransactionListResponse_Status + = Int32 +0 + fromProtoEnum (ClientTransactionListResponse_Status +ClientTransactionListResponse_StatusOK) = Int32 +1 + fromProtoEnum (ClientTransactionListResponse_Status ClientTransactionListResponse_StatusINTERNAL_ERROR) - = 2 - fromProtoEnum (ClientTransactionListResponse_Status -ClientTransactionListResponse_StatusNOT_READY) = 3 - fromProtoEnum (ClientTransactionListResponse_Status -ClientTransactionListResponse_StatusNO_ROOT) = 4 - fromProtoEnum (ClientTransactionListResponse_Status -ClientTransactionListResponse_StatusNO_RESOURCE) = 5 - fromProtoEnum (ClientTransactionListResponse_Status + = Int32 +2 + fromProtoEnum (ClientTransactionListResponse_Status +ClientTransactionListResponse_StatusNOT_READY) = Int32 +3 + fromProtoEnum (ClientTransactionListResponse_Status +ClientTransactionListResponse_StatusNO_ROOT) = Int32 +4 + fromProtoEnum (ClientTransactionListResponse_Status +ClientTransactionListResponse_StatusNO_RESOURCE) = Int32 +5 + fromProtoEnum (ClientTransactionListResponse_Status ClientTransactionListResponse_StatusINVALID_PAGING) - = 6 - fromProtoEnum (ClientTransactionListResponse_Status + = Int32 +6 + fromProtoEnum (ClientTransactionListResponse_Status ClientTransactionListResponse_StatusINVALID_SORT) - = 7 - fromProtoEnum (ClientTransactionListResponse_Status -ClientTransactionListResponse_StatusINVALID_ID) = 8 - -instance HsJSONPB.ToJSONPB ClientTransactionListResponse_Status - where - toJSONPB :: ClientTransactionListResponse_Status -> Options -> Value -toJSONPB x :: ClientTransactionListResponse_Status -x _ = ClientTransactionListResponse_Status -> Value + = Int32 +7 + fromProtoEnum (ClientTransactionListResponse_Status +ClientTransactionListResponse_StatusINVALID_ID) = Int32 +8 + +instance HsJSONPB.ToJSONPB ClientTransactionListResponse_Status + where + toJSONPB :: ClientTransactionListResponse_Status -> Options -> Value +toJSONPB ClientTransactionListResponse_Status +x Options +_ = ClientTransactionListResponse_Status -> Value forall a. (Named a, Show a) => a -> Value -HsJSONPB.enumFieldString ClientTransactionListResponse_Status -x - toEncodingPB :: ClientTransactionListResponse_Status -> Options -> Encoding -toEncodingPB x :: ClientTransactionListResponse_Status -x _ = ClientTransactionListResponse_Status -> Encoding +HsJSONPB.enumFieldString ClientTransactionListResponse_Status +x + toEncodingPB :: ClientTransactionListResponse_Status -> Options -> Encoding +toEncodingPB ClientTransactionListResponse_Status +x Options +_ = ClientTransactionListResponse_Status -> Encoding forall a. (Named a, Show a) => a -> Encoding -HsJSONPB.enumFieldEncoding ClientTransactionListResponse_Status -x - -instance HsJSONPB.FromJSONPB ClientTransactionListResponse_Status - where - parseJSONPB :: Value -> Parser ClientTransactionListResponse_Status -parseJSONPB (HsJSONPB.String "STATUS_UNSET") - = ClientTransactionListResponse_Status +HsJSONPB.enumFieldEncoding ClientTransactionListResponse_Status +x + +instance HsJSONPB.FromJSONPB ClientTransactionListResponse_Status + where + parseJSONPB :: Value -> Parser ClientTransactionListResponse_Status +parseJSONPB (HsJSONPB.String Text +"STATUS_UNSET") + = ClientTransactionListResponse_Status -> Parser ClientTransactionListResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientTransactionListResponse_Status +Hs.pure ClientTransactionListResponse_Status ClientTransactionListResponse_StatusSTATUS_UNSET - parseJSONPB (HsJSONPB.String "OK") - = ClientTransactionListResponse_Status + parseJSONPB (HsJSONPB.String Text +"OK") + = ClientTransactionListResponse_Status -> Parser ClientTransactionListResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientTransactionListResponse_Status +Hs.pure ClientTransactionListResponse_Status ClientTransactionListResponse_StatusOK - parseJSONPB (HsJSONPB.String "INTERNAL_ERROR") - = ClientTransactionListResponse_Status + parseJSONPB (HsJSONPB.String Text +"INTERNAL_ERROR") + = ClientTransactionListResponse_Status -> Parser ClientTransactionListResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientTransactionListResponse_Status +Hs.pure ClientTransactionListResponse_Status ClientTransactionListResponse_StatusINTERNAL_ERROR - parseJSONPB (HsJSONPB.String "NOT_READY") - = ClientTransactionListResponse_Status + parseJSONPB (HsJSONPB.String Text +"NOT_READY") + = ClientTransactionListResponse_Status -> Parser ClientTransactionListResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientTransactionListResponse_Status +Hs.pure ClientTransactionListResponse_Status ClientTransactionListResponse_StatusNOT_READY - parseJSONPB (HsJSONPB.String "NO_ROOT") - = ClientTransactionListResponse_Status + parseJSONPB (HsJSONPB.String Text +"NO_ROOT") + = ClientTransactionListResponse_Status -> Parser ClientTransactionListResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientTransactionListResponse_Status +Hs.pure ClientTransactionListResponse_Status ClientTransactionListResponse_StatusNO_ROOT - parseJSONPB (HsJSONPB.String "NO_RESOURCE") - = ClientTransactionListResponse_Status + parseJSONPB (HsJSONPB.String Text +"NO_RESOURCE") + = ClientTransactionListResponse_Status -> Parser ClientTransactionListResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientTransactionListResponse_Status +Hs.pure ClientTransactionListResponse_Status ClientTransactionListResponse_StatusNO_RESOURCE - parseJSONPB (HsJSONPB.String "INVALID_PAGING") - = ClientTransactionListResponse_Status + parseJSONPB (HsJSONPB.String Text +"INVALID_PAGING") + = ClientTransactionListResponse_Status -> Parser ClientTransactionListResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientTransactionListResponse_Status +Hs.pure ClientTransactionListResponse_Status ClientTransactionListResponse_StatusINVALID_PAGING - parseJSONPB (HsJSONPB.String "INVALID_SORT") - = ClientTransactionListResponse_Status + parseJSONPB (HsJSONPB.String Text +"INVALID_SORT") + = ClientTransactionListResponse_Status -> Parser ClientTransactionListResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientTransactionListResponse_Status +Hs.pure ClientTransactionListResponse_Status ClientTransactionListResponse_StatusINVALID_SORT - parseJSONPB (HsJSONPB.String "INVALID_ID") - = ClientTransactionListResponse_Status + parseJSONPB (HsJSONPB.String Text +"INVALID_ID") + = ClientTransactionListResponse_Status -> Parser ClientTransactionListResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientTransactionListResponse_Status +Hs.pure ClientTransactionListResponse_Status ClientTransactionListResponse_StatusINVALID_ID - parseJSONPB v :: Value -v - = (String -> Value -> Parser ClientTransactionListResponse_Status + parseJSONPB Value +v + = (String -> Value -> Parser ClientTransactionListResponse_Status forall a. String -> Value -> Parser a -HsJSONPB.typeMismatch "ClientTransactionListResponse_Status" Value -v) - -instance HsJSONPB.ToJSON ClientTransactionListResponse_Status where - toJSON :: ClientTransactionListResponse_Status -> Value -toJSON = ClientTransactionListResponse_Status -> Value +HsJSONPB.typeMismatch String +"ClientTransactionListResponse_Status" Value +v) + +instance HsJSONPB.ToJSON ClientTransactionListResponse_Status where + toJSON :: ClientTransactionListResponse_Status -> Value +toJSON = ClientTransactionListResponse_Status -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ClientTransactionListResponse_Status -> Encoding -toEncoding = ClientTransactionListResponse_Status -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ClientTransactionListResponse_Status -> Encoding +toEncoding = ClientTransactionListResponse_Status -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ClientTransactionListResponse_Status - where - parseJSON :: Value -> Parser ClientTransactionListResponse_Status -parseJSON = Value -> Parser ClientTransactionListResponse_Status +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ClientTransactionListResponse_Status + where + parseJSON :: Value -> Parser ClientTransactionListResponse_Status +parseJSON = Value -> Parser ClientTransactionListResponse_Status forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsProtobuf.Finite ClientTransactionListResponse_Status - -newtype ClientTransactionGetRequest = ClientTransactionGetRequest{ClientTransactionGetRequest -> Text +HsJSONPB.parseJSONPB + +instance HsProtobuf.Finite ClientTransactionListResponse_Status + +newtype ClientTransactionGetRequest = ClientTransactionGetRequest{ClientTransactionGetRequest -> Text clientTransactionGetRequestTransactionId - :: Hs.Text} - deriving (Int -> ClientTransactionGetRequest -> ShowS + :: Hs.Text} + deriving (Int -> ClientTransactionGetRequest -> ShowS [ClientTransactionGetRequest] -> ShowS ClientTransactionGetRequest -> String (Int -> ClientTransactionGetRequest -> ShowS) @@ -1827,7 +1942,7 @@ show :: ClientTransactionGetRequest -> String $cshow :: ClientTransactionGetRequest -> String showsPrec :: Int -> ClientTransactionGetRequest -> ShowS $cshowsPrec :: Int -> ClientTransactionGetRequest -> ShowS -Hs.Show, ClientTransactionGetRequest -> ClientTransactionGetRequest -> Bool +Hs.Show, ClientTransactionGetRequest -> ClientTransactionGetRequest -> Bool (ClientTransactionGetRequest -> ClientTransactionGetRequest -> Bool) -> (ClientTransactionGetRequest @@ -1838,10 +1953,10 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: ClientTransactionGetRequest -> ClientTransactionGetRequest -> Bool == :: ClientTransactionGetRequest -> ClientTransactionGetRequest -> Bool $c== :: ClientTransactionGetRequest -> ClientTransactionGetRequest -> Bool -Hs.Eq, Eq ClientTransactionGetRequest -Eq ClientTransactionGetRequest => -(ClientTransactionGetRequest - -> ClientTransactionGetRequest -> Ordering) +Hs.Eq, Eq ClientTransactionGetRequest +Eq ClientTransactionGetRequest +-> (ClientTransactionGetRequest + -> ClientTransactionGetRequest -> Ordering) -> (ClientTransactionGetRequest -> ClientTransactionGetRequest -> Bool) -> (ClientTransactionGetRequest @@ -1861,8 +1976,8 @@ ClientTransactionGetRequest ClientTransactionGetRequest -> ClientTransactionGetRequest -> ClientTransactionGetRequest forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -1891,7 +2006,7 @@ compare :: ClientTransactionGetRequest $ccompare :: ClientTransactionGetRequest -> ClientTransactionGetRequest -> Ordering $cp1Ord :: Eq ClientTransactionGetRequest -Hs.Ord, (forall x. +Hs.Ord, (forall x. ClientTransactionGetRequest -> Rep ClientTransactionGetRequest x) -> (forall x. Rep ClientTransactionGetRequest x -> ClientTransactionGetRequest) @@ -1906,218 +2021,235 @@ $cto :: forall x. Rep ClientTransactionGetRequest x -> ClientTransactionGetRequest $cfrom :: forall x. ClientTransactionGetRequest -> Rep ClientTransactionGetRequest x -Hs.Generic, ClientTransactionGetRequest -> () +Hs.Generic, ClientTransactionGetRequest -> () (ClientTransactionGetRequest -> ()) -> NFData ClientTransactionGetRequest forall a. (a -> ()) -> NFData a rnf :: ClientTransactionGetRequest -> () $crnf :: ClientTransactionGetRequest -> () -Hs.NFData) - -instance HsProtobuf.Named ClientTransactionGetRequest where - nameOf :: Proxy# ClientTransactionGetRequest -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ClientTransactionGetRequest where + nameOf :: Proxy# ClientTransactionGetRequest -> string +nameOf Proxy# ClientTransactionGetRequest +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ClientTransactionGetRequest") - -instance HsProtobuf.HasDefault ClientTransactionGetRequest - -instance HsProtobuf.Message ClientTransactionGetRequest where - encodeMessage :: FieldNumber -> ClientTransactionGetRequest -> MessageBuilder -encodeMessage _ - ClientTransactionGetRequest{clientTransactionGetRequestTransactionId :: ClientTransactionGetRequest -> Text +Hs.fromString String +"ClientTransactionGetRequest") + +instance HsProtobuf.HasDefault ClientTransactionGetRequest + +instance HsProtobuf.Message ClientTransactionGetRequest where + encodeMessage :: FieldNumber -> ClientTransactionGetRequest -> MessageBuilder +encodeMessage FieldNumber +_ + ClientTransactionGetRequest{clientTransactionGetRequestTransactionId :: ClientTransactionGetRequest -> Text clientTransactionGetRequestTransactionId - = Text -clientTransactionGetRequestTransactionId} - = ([MessageBuilder] -> MessageBuilder + = Text +clientTransactionGetRequestTransactionId} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> Text -> MessageBuilder +Hs.mconcat + [(FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Text -clientTransactionGetRequestTransactionId)]) - decodeMessage :: FieldNumber -> Parser RawMessage ClientTransactionGetRequest -decodeMessage _ - = ((Text -> ClientTransactionGetRequest) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Text +clientTransactionGetRequestTransactionId)]) + decodeMessage :: FieldNumber -> Parser RawMessage ClientTransactionGetRequest +decodeMessage FieldNumber +_ + = ((Text -> ClientTransactionGetRequest) -> Parser RawMessage (Text -> ClientTransactionGetRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> ClientTransactionGetRequest +Hs.pure Text -> ClientTransactionGetRequest ClientTransactionGetRequest) Parser RawMessage (Text -> ClientTransactionGetRequest) -> Parser RawMessage Text -> Parser RawMessage ClientTransactionGetRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - dotProto :: Proxy# ClientTransactionGetRequest -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + dotProto :: Proxy# ClientTransactionGetRequest -> [DotProtoField] +dotProto Proxy# ClientTransactionGetRequest +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "transaction_id") - [] - "")] - -instance HsJSONPB.ToJSONPB ClientTransactionGetRequest where - toJSONPB :: ClientTransactionGetRequest -> Options -> Value -toJSONPB (ClientTransactionGetRequest f1 :: Text -f1) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["transaction_id" Text -> Text -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"transaction_id") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ClientTransactionGetRequest where + toJSONPB :: ClientTransactionGetRequest -> Options -> Value +toJSONPB (ClientTransactionGetRequest Text +f1) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"transaction_id" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1]) - toEncodingPB :: ClientTransactionGetRequest -> Options -> Encoding -toEncodingPB (ClientTransactionGetRequest f1 :: Text -f1) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["transaction_id" Text -> Text -> Options -> Series +.= Text +f1]) + toEncodingPB :: ClientTransactionGetRequest -> Options -> Encoding +toEncodingPB (ClientTransactionGetRequest Text +f1) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"transaction_id" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1]) - -instance HsJSONPB.FromJSONPB ClientTransactionGetRequest where - parseJSONPB :: Value -> Parser ClientTransactionGetRequest -parseJSONPB - = (String +.= Text +f1]) + +instance HsJSONPB.FromJSONPB ClientTransactionGetRequest where + parseJSONPB :: Value -> Parser ClientTransactionGetRequest +parseJSONPB + = (String -> (Object -> Parser ClientTransactionGetRequest) -> Value -> Parser ClientTransactionGetRequest forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ClientTransactionGetRequest" - (\ obj :: Object -obj -> - ((Text -> ClientTransactionGetRequest) +HsJSONPB.withObject String +"ClientTransactionGetRequest" + (\ Object +obj -> + ((Text -> ClientTransactionGetRequest) -> Parser (Text -> ClientTransactionGetRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> ClientTransactionGetRequest +Hs.pure Text -> ClientTransactionGetRequest ClientTransactionGetRequest) Parser (Text -> ClientTransactionGetRequest) -> Parser Text -> Parser ClientTransactionGetRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Text +<*> Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "transaction_id")) - -instance HsJSONPB.ToJSON ClientTransactionGetRequest where - toJSON :: ClientTransactionGetRequest -> Value -toJSON = ClientTransactionGetRequest -> Value +.: Text +"transaction_id")) + +instance HsJSONPB.ToJSON ClientTransactionGetRequest where + toJSON :: ClientTransactionGetRequest -> Value +toJSON = ClientTransactionGetRequest -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ClientTransactionGetRequest -> Encoding -toEncoding = ClientTransactionGetRequest -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ClientTransactionGetRequest -> Encoding +toEncoding = ClientTransactionGetRequest -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ClientTransactionGetRequest where - parseJSON :: Value -> Parser ClientTransactionGetRequest -parseJSON = Value -> Parser ClientTransactionGetRequest +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ClientTransactionGetRequest where + parseJSON :: Value -> Parser ClientTransactionGetRequest +parseJSON = Value -> Parser ClientTransactionGetRequest forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ClientTransactionGetRequest where - declareNamedSchema :: Proxy ClientTransactionGetRequest +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ClientTransactionGetRequest where + declareNamedSchema :: Proxy ClientTransactionGetRequest -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_transaction_id :: Proxy (OverrideToSchema Text) +declareNamedSchema Proxy ClientTransactionGetRequest +_ + = do let declare_transaction_id :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_transaction_id = Proxy (OverrideToSchema Text) +declare_transaction_id = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientTransactionGetRequestTransactionId <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +clientTransactionGetRequestTransactionId <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_transaction_id - Proxy (OverrideToSchema Text) +declare_transaction_id + Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ClientTransactionGetRequest +Proxy.Proxy + let Proxy ClientTransactionGetRequest _ = (Text -> ClientTransactionGetRequest) -> Proxy (Text -> ClientTransactionGetRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> ClientTransactionGetRequest +Hs.pure Text -> ClientTransactionGetRequest ClientTransactionGetRequest Proxy (Text -> ClientTransactionGetRequest) -> Proxy Text -> Proxy ClientTransactionGetRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema Text) +<*> + (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_transaction_id - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_transaction_id + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ClientTransactionGetRequest", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ClientTransactionGetRequest", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("transaction_id", - Referenced Schema -clientTransactionGetRequestTransactionId)]}}) - -data ClientTransactionGetResponse = ClientTransactionGetResponse{ClientTransactionGetResponse +HsJSONPB.insOrdFromList + [(Text +"transaction_id", + Referenced Schema +clientTransactionGetRequestTransactionId)]}}) + +data ClientTransactionGetResponse = ClientTransactionGetResponse{ClientTransactionGetResponse -> Enumerated ClientTransactionGetResponse_Status clientTransactionGetResponseStatus - :: - HsProtobuf.Enumerated - Data.Sawtooth.ClientTransaction.ClientTransactionGetResponse_Status, - ClientTransactionGetResponse -> Maybe Transaction + :: + HsProtobuf.Enumerated + Data.Sawtooth.ClientTransaction.ClientTransactionGetResponse_Status, + ClientTransactionGetResponse -> Maybe Transaction clientTransactionGetResponseTransaction - :: - Hs.Maybe - Data.Sawtooth.Transaction.Transaction} - deriving (Int -> ClientTransactionGetResponse -> ShowS + :: + Hs.Maybe + Data.Sawtooth.Transaction.Transaction} + deriving (Int -> ClientTransactionGetResponse -> ShowS [ClientTransactionGetResponse] -> ShowS ClientTransactionGetResponse -> String (Int -> ClientTransactionGetResponse -> ShowS) @@ -2132,7 +2264,7 @@ show :: ClientTransactionGetResponse -> String $cshow :: ClientTransactionGetResponse -> String showsPrec :: Int -> ClientTransactionGetResponse -> ShowS $cshowsPrec :: Int -> ClientTransactionGetResponse -> ShowS -Hs.Show, ClientTransactionGetResponse +Hs.Show, ClientTransactionGetResponse -> ClientTransactionGetResponse -> Bool (ClientTransactionGetResponse -> ClientTransactionGetResponse -> Bool) @@ -2148,10 +2280,10 @@ $c/= :: ClientTransactionGetResponse -> ClientTransactionGetResponse -> Bool $c== :: ClientTransactionGetResponse -> ClientTransactionGetResponse -> Bool -Hs.Eq, Eq ClientTransactionGetResponse -Eq ClientTransactionGetResponse => -(ClientTransactionGetResponse - -> ClientTransactionGetResponse -> Ordering) +Hs.Eq, Eq ClientTransactionGetResponse +Eq ClientTransactionGetResponse +-> (ClientTransactionGetResponse + -> ClientTransactionGetResponse -> Ordering) -> (ClientTransactionGetResponse -> ClientTransactionGetResponse -> Bool) -> (ClientTransactionGetResponse @@ -2172,8 +2304,8 @@ ClientTransactionGetResponse ClientTransactionGetResponse -> ClientTransactionGetResponse -> ClientTransactionGetResponse forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -2210,7 +2342,7 @@ compare :: ClientTransactionGetResponse $ccompare :: ClientTransactionGetResponse -> ClientTransactionGetResponse -> Ordering $cp1Ord :: Eq ClientTransactionGetResponse -Hs.Ord, (forall x. +Hs.Ord, (forall x. ClientTransactionGetResponse -> Rep ClientTransactionGetResponse x) -> (forall x. Rep ClientTransactionGetResponse x -> ClientTransactionGetResponse) @@ -2225,64 +2357,69 @@ $cto :: forall x. Rep ClientTransactionGetResponse x -> ClientTransactionGetResponse $cfrom :: forall x. ClientTransactionGetResponse -> Rep ClientTransactionGetResponse x -Hs.Generic, ClientTransactionGetResponse -> () +Hs.Generic, ClientTransactionGetResponse -> () (ClientTransactionGetResponse -> ()) -> NFData ClientTransactionGetResponse forall a. (a -> ()) -> NFData a rnf :: ClientTransactionGetResponse -> () $crnf :: ClientTransactionGetResponse -> () -Hs.NFData) - -instance HsProtobuf.Named ClientTransactionGetResponse where - nameOf :: Proxy# ClientTransactionGetResponse -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ClientTransactionGetResponse where + nameOf :: Proxy# ClientTransactionGetResponse -> string +nameOf Proxy# ClientTransactionGetResponse +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ClientTransactionGetResponse") - -instance HsProtobuf.HasDefault ClientTransactionGetResponse - -instance HsProtobuf.Message ClientTransactionGetResponse where - encodeMessage :: FieldNumber -> ClientTransactionGetResponse -> MessageBuilder -encodeMessage _ - ClientTransactionGetResponse{clientTransactionGetResponseStatus :: ClientTransactionGetResponse +Hs.fromString String +"ClientTransactionGetResponse") + +instance HsProtobuf.HasDefault ClientTransactionGetResponse + +instance HsProtobuf.Message ClientTransactionGetResponse where + encodeMessage :: FieldNumber -> ClientTransactionGetResponse -> MessageBuilder +encodeMessage FieldNumber +_ + ClientTransactionGetResponse{clientTransactionGetResponseStatus :: ClientTransactionGetResponse -> Enumerated ClientTransactionGetResponse_Status clientTransactionGetResponseStatus = - Enumerated ClientTransactionGetResponse_Status -clientTransactionGetResponseStatus, - clientTransactionGetResponseTransaction :: ClientTransactionGetResponse -> Maybe Transaction + Enumerated ClientTransactionGetResponse_Status +clientTransactionGetResponseStatus, + clientTransactionGetResponseTransaction :: ClientTransactionGetResponse -> Maybe Transaction clientTransactionGetResponseTransaction = - Maybe Transaction -clientTransactionGetResponseTransaction} - = ([MessageBuilder] -> MessageBuilder + Maybe Transaction +clientTransactionGetResponseTransaction} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber +Hs.mconcat + [(FieldNumber -> Enumerated ClientTransactionGetResponse_Status -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Enumerated ClientTransactionGetResponse_Status -clientTransactionGetResponseStatus), - (FieldNumber -> Nested Transaction -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Enumerated ClientTransactionGetResponse_Status +clientTransactionGetResponseStatus), + (FieldNumber -> Nested Transaction -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (Maybe Transaction -> Nested Transaction -forall a b. Coercible a b => a -> b -Hs.coerce @(Hs.Maybe Data.Sawtooth.Transaction.Transaction) - @(HsProtobuf.Nested Data.Sawtooth.Transaction.Transaction) - Maybe Transaction -clientTransactionGetResponseTransaction))]) - decodeMessage :: FieldNumber -> Parser RawMessage ClientTransactionGetResponse -decodeMessage _ - = ((Enumerated ClientTransactionGetResponse_Status +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (Maybe Transaction -> Nested Transaction +Hs.coerce @(Hs.Maybe Data.Sawtooth.Transaction.Transaction) + @(HsProtobuf.Nested Data.Sawtooth.Transaction.Transaction) + Maybe Transaction +clientTransactionGetResponseTransaction))]) + decodeMessage :: FieldNumber -> Parser RawMessage ClientTransactionGetResponse +decodeMessage FieldNumber +_ + = ((Enumerated ClientTransactionGetResponse_Status -> Maybe Transaction -> ClientTransactionGetResponse) -> Parser RawMessage (Enumerated ClientTransactionGetResponse_Status -> Maybe Transaction -> ClientTransactionGetResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ClientTransactionGetResponse_Status +Hs.pure Enumerated ClientTransactionGetResponse_Status -> Maybe Transaction -> ClientTransactionGetResponse ClientTransactionGetResponse) Parser RawMessage @@ -2293,131 +2430,146 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Parser RawMessage (Maybe Transaction -> ClientTransactionGetResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField (Enumerated ClientTransactionGetResponse_Status) +<*> + (Parser RawField (Enumerated ClientTransactionGetResponse_Status) -> FieldNumber -> Parser RawMessage (Enumerated ClientTransactionGetResponse_Status) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (Enumerated ClientTransactionGetResponse_Status) +HsProtobuf.at Parser RawField (Enumerated ClientTransactionGetResponse_Status) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (Maybe Transaction -> ClientTransactionGetResponse) -> Parser RawMessage (Maybe Transaction) -> Parser RawMessage ClientTransactionGetResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (Nested Transaction) +<*> + (Parser RawMessage (Nested Transaction) -> Parser RawMessage (Maybe Transaction) -forall a b. Coercible a b => a -> b -Hs.coerce - @(_ (HsProtobuf.Nested Data.Sawtooth.Transaction.Transaction)) - @(_ (Hs.Maybe Data.Sawtooth.Transaction.Transaction)) - (Parser RawField (Nested Transaction) +Hs.coerce + @(_ (HsProtobuf.Nested Data.Sawtooth.Transaction.Transaction)) + @(_ (Hs.Maybe Data.Sawtooth.Transaction.Transaction)) + (Parser RawField (Nested Transaction) -> FieldNumber -> Parser RawMessage (Nested Transaction) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (Nested Transaction) +HsProtobuf.at Parser RawField (Nested Transaction) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2))) - dotProto :: Proxy# ClientTransactionGetResponse -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2))) + dotProto :: Proxy# ClientTransactionGetResponse -> [DotProtoField] +dotProto Proxy# ClientTransactionGetResponse +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "Status"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "status") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"Status"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"status") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim - (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "Transaction"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "transaction") - [] - "")] - -instance HsJSONPB.ToJSONPB ClientTransactionGetResponse where - toJSONPB :: ClientTransactionGetResponse -> Options -> Value -toJSONPB (ClientTransactionGetResponse f1 :: Enumerated ClientTransactionGetResponse_Status -f1 f2 :: Maybe Transaction -f2) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["status" Text +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim + (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"Transaction"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"transaction") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ClientTransactionGetResponse where + toJSONPB :: ClientTransactionGetResponse -> Options -> Value +toJSONPB (ClientTransactionGetResponse Enumerated ClientTransactionGetResponse_Status +f1 Maybe Transaction +f2) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"status" Text -> Enumerated ClientTransactionGetResponse_Status -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated ClientTransactionGetResponse_Status -f1, "transaction" Text -> Maybe Transaction -> Options -> [Pair] +.= Enumerated ClientTransactionGetResponse_Status +f1, Text +"transaction" Text -> Maybe Transaction -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Maybe Transaction -f2]) - toEncodingPB :: ClientTransactionGetResponse -> Options -> Encoding -toEncodingPB (ClientTransactionGetResponse f1 :: Enumerated ClientTransactionGetResponse_Status -f1 f2 :: Maybe Transaction -f2) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["status" Text +.= Maybe Transaction +f2]) + toEncodingPB :: ClientTransactionGetResponse -> Options -> Encoding +toEncodingPB (ClientTransactionGetResponse Enumerated ClientTransactionGetResponse_Status +f1 Maybe Transaction +f2) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"status" Text -> Enumerated ClientTransactionGetResponse_Status -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated ClientTransactionGetResponse_Status -f1, "transaction" Text -> Maybe Transaction -> Options -> Series +.= Enumerated ClientTransactionGetResponse_Status +f1, Text +"transaction" Text -> Maybe Transaction -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Maybe Transaction -f2]) - -instance HsJSONPB.FromJSONPB ClientTransactionGetResponse where - parseJSONPB :: Value -> Parser ClientTransactionGetResponse -parseJSONPB - = (String +.= Maybe Transaction +f2]) + +instance HsJSONPB.FromJSONPB ClientTransactionGetResponse where + parseJSONPB :: Value -> Parser ClientTransactionGetResponse +parseJSONPB + = (String -> (Object -> Parser ClientTransactionGetResponse) -> Value -> Parser ClientTransactionGetResponse forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ClientTransactionGetResponse" - (\ obj :: Object -obj -> - ((Enumerated ClientTransactionGetResponse_Status +HsJSONPB.withObject String +"ClientTransactionGetResponse" + (\ Object +obj -> + ((Enumerated ClientTransactionGetResponse_Status -> Maybe Transaction -> ClientTransactionGetResponse) -> Parser (Enumerated ClientTransactionGetResponse_Status -> Maybe Transaction -> ClientTransactionGetResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ClientTransactionGetResponse_Status +Hs.pure Enumerated ClientTransactionGetResponse_Status -> Maybe Transaction -> ClientTransactionGetResponse ClientTransactionGetResponse) Parser (Enumerated ClientTransactionGetResponse_Status @@ -2425,85 +2577,88 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Parser (Enumerated ClientTransactionGetResponse_Status) -> Parser (Maybe Transaction -> ClientTransactionGetResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object +<*> Object +obj Object -> Text -> Parser (Enumerated ClientTransactionGetResponse_Status) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "status" Parser (Maybe Transaction -> ClientTransactionGetResponse) +.: Text +"status" Parser (Maybe Transaction -> ClientTransactionGetResponse) -> Parser (Maybe Transaction) -> Parser ClientTransactionGetResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser (Maybe Transaction) +<*> + Object +obj Object -> Text -> Parser (Maybe Transaction) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "transaction")) - -instance HsJSONPB.ToJSON ClientTransactionGetResponse where - toJSON :: ClientTransactionGetResponse -> Value -toJSON = ClientTransactionGetResponse -> Value +.: Text +"transaction")) + +instance HsJSONPB.ToJSON ClientTransactionGetResponse where + toJSON :: ClientTransactionGetResponse -> Value +toJSON = ClientTransactionGetResponse -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ClientTransactionGetResponse -> Encoding -toEncoding = ClientTransactionGetResponse -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ClientTransactionGetResponse -> Encoding +toEncoding = ClientTransactionGetResponse -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ClientTransactionGetResponse where - parseJSON :: Value -> Parser ClientTransactionGetResponse -parseJSON = Value -> Parser ClientTransactionGetResponse +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ClientTransactionGetResponse where + parseJSON :: Value -> Parser ClientTransactionGetResponse +parseJSON = Value -> Parser ClientTransactionGetResponse forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ClientTransactionGetResponse where - declareNamedSchema :: Proxy ClientTransactionGetResponse +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ClientTransactionGetResponse where + declareNamedSchema :: Proxy ClientTransactionGetResponse -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_status :: Proxy +declareNamedSchema Proxy ClientTransactionGetResponse +_ + = do let declare_status :: Proxy (OverrideToSchema (Enumerated ClientTransactionGetResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status = Proxy +declare_status = Proxy (OverrideToSchema (Enumerated ClientTransactionGetResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientTransactionGetResponseStatus <- Proxy +HsJSONPB.declareSchemaRef + Referenced Schema +clientTransactionGetResponseStatus <- Proxy (OverrideToSchema (Enumerated ClientTransactionGetResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status Proxy +declare_status Proxy (OverrideToSchema (Enumerated ClientTransactionGetResponse_Status)) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_transaction :: Proxy (OverrideToSchema (Maybe Transaction)) +Proxy.Proxy + let declare_transaction :: Proxy (OverrideToSchema (Maybe Transaction)) -> Declare (Definitions Schema) (Referenced Schema) -declare_transaction = Proxy (OverrideToSchema (Maybe Transaction)) +declare_transaction = Proxy (OverrideToSchema (Maybe Transaction)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -clientTransactionGetResponseTransaction <- Proxy (OverrideToSchema (Maybe Transaction)) +HsJSONPB.declareSchemaRef + Referenced Schema +clientTransactionGetResponseTransaction <- Proxy (OverrideToSchema (Maybe Transaction)) -> Declare (Definitions Schema) (Referenced Schema) -declare_transaction - Proxy (OverrideToSchema (Maybe Transaction)) +declare_transaction + Proxy (OverrideToSchema (Maybe Transaction)) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ClientTransactionGetResponse +Proxy.Proxy + let Proxy ClientTransactionGetResponse _ = (Enumerated ClientTransactionGetResponse_Status -> Maybe Transaction -> ClientTransactionGetResponse) -> Proxy (Enumerated ClientTransactionGetResponse_Status -> Maybe Transaction -> ClientTransactionGetResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ClientTransactionGetResponse_Status +Hs.pure Enumerated ClientTransactionGetResponse_Status -> Maybe Transaction -> ClientTransactionGetResponse ClientTransactionGetResponse Proxy (Enumerated ClientTransactionGetResponse_Status @@ -2511,69 +2666,72 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Proxy (Enumerated ClientTransactionGetResponse_Status) -> Proxy (Maybe Transaction -> ClientTransactionGetResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy +<*> + (Proxy (OverrideToSchema (Enumerated ClientTransactionGetResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Enumerated ClientTransactionGetResponse_Status) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy +HsJSONPB.asProxy Proxy (OverrideToSchema (Enumerated ClientTransactionGetResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status - Proxy (Maybe Transaction -> ClientTransactionGetResponse) +declare_status + Proxy (Maybe Transaction -> ClientTransactionGetResponse) -> Proxy (Maybe Transaction) -> Proxy ClientTransactionGetResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema (Maybe Transaction)) +<*> (Proxy (OverrideToSchema (Maybe Transaction)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Maybe Transaction) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Maybe Transaction)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Maybe Transaction)) -> Declare (Definitions Schema) (Referenced Schema) -declare_transaction - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_transaction + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ClientTransactionGetResponse", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ClientTransactionGetResponse", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("status", - Referenced Schema -clientTransactionGetResponseStatus), - ("transaction", - Referenced Schema -clientTransactionGetResponseTransaction)]}}) - -data ClientTransactionGetResponse_Status = ClientTransactionGetResponse_StatusSTATUS_UNSET - | ClientTransactionGetResponse_StatusOK - | ClientTransactionGetResponse_StatusINTERNAL_ERROR - | ClientTransactionGetResponse_StatusNO_RESOURCE - | ClientTransactionGetResponse_StatusINVALID_ID - deriving (Int -> ClientTransactionGetResponse_Status -> ShowS +HsJSONPB.insOrdFromList + [(Text +"status", + Referenced Schema +clientTransactionGetResponseStatus), + (Text +"transaction", + Referenced Schema +clientTransactionGetResponseTransaction)]}}) + +data ClientTransactionGetResponse_Status = ClientTransactionGetResponse_StatusSTATUS_UNSET + | ClientTransactionGetResponse_StatusOK + | ClientTransactionGetResponse_StatusINTERNAL_ERROR + | ClientTransactionGetResponse_StatusNO_RESOURCE + | ClientTransactionGetResponse_StatusINVALID_ID + deriving (Int -> ClientTransactionGetResponse_Status -> ShowS [ClientTransactionGetResponse_Status] -> ShowS ClientTransactionGetResponse_Status -> String (Int -> ClientTransactionGetResponse_Status -> ShowS) @@ -2588,7 +2746,7 @@ show :: ClientTransactionGetResponse_Status -> String $cshow :: ClientTransactionGetResponse_Status -> String showsPrec :: Int -> ClientTransactionGetResponse_Status -> ShowS $cshowsPrec :: Int -> ClientTransactionGetResponse_Status -> ShowS -Hs.Show, ClientTransactionGetResponse_Status +Hs.Show, ClientTransactionGetResponse_Status -> ClientTransactionGetResponse_Status -> Bool (ClientTransactionGetResponse_Status -> ClientTransactionGetResponse_Status -> Bool) @@ -2604,7 +2762,7 @@ $c/= :: ClientTransactionGetResponse_Status -> ClientTransactionGetResponse_Status -> Bool $c== :: ClientTransactionGetResponse_Status -> ClientTransactionGetResponse_Status -> Bool -Hs.Eq, (forall x. +Hs.Eq, (forall x. ClientTransactionGetResponse_Status -> Rep ClientTransactionGetResponse_Status x) -> (forall x. @@ -2625,165 +2783,186 @@ Rep ClientTransactionGetResponse_Status x $cfrom :: forall x. ClientTransactionGetResponse_Status -> Rep ClientTransactionGetResponse_Status x -Hs.Generic, ClientTransactionGetResponse_Status -> () +Hs.Generic, ClientTransactionGetResponse_Status -> () (ClientTransactionGetResponse_Status -> ()) -> NFData ClientTransactionGetResponse_Status forall a. (a -> ()) -> NFData a rnf :: ClientTransactionGetResponse_Status -> () $crnf :: ClientTransactionGetResponse_Status -> () -Hs.NFData) - -instance HsProtobuf.Named ClientTransactionGetResponse_Status where - nameOf :: Proxy# ClientTransactionGetResponse_Status -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ClientTransactionGetResponse_Status where + nameOf :: Proxy# ClientTransactionGetResponse_Status -> string +nameOf Proxy# ClientTransactionGetResponse_Status +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ClientTransactionGetResponse_Status") - -instance HsProtobuf.HasDefault ClientTransactionGetResponse_Status - -instance Hs.Bounded ClientTransactionGetResponse_Status where - minBound :: ClientTransactionGetResponse_Status -minBound = ClientTransactionGetResponse_Status +Hs.fromString String +"ClientTransactionGetResponse_Status") + +instance HsProtobuf.HasDefault ClientTransactionGetResponse_Status + +instance Hs.Bounded ClientTransactionGetResponse_Status where + minBound :: ClientTransactionGetResponse_Status +minBound = ClientTransactionGetResponse_Status ClientTransactionGetResponse_StatusSTATUS_UNSET - maxBound :: ClientTransactionGetResponse_Status -maxBound = ClientTransactionGetResponse_Status + maxBound :: ClientTransactionGetResponse_Status +maxBound = ClientTransactionGetResponse_Status ClientTransactionGetResponse_StatusINVALID_ID - -instance Hs.Ord ClientTransactionGetResponse_Status where - compare :: ClientTransactionGetResponse_Status + +instance Hs.Ord ClientTransactionGetResponse_Status where + compare :: ClientTransactionGetResponse_Status -> ClientTransactionGetResponse_Status -> Ordering -compare x :: ClientTransactionGetResponse_Status -x y :: ClientTransactionGetResponse_Status -y - = Int32 -> Int32 -> Ordering +compare ClientTransactionGetResponse_Status +x ClientTransactionGetResponse_Status +y + = Int32 -> Int32 -> Ordering forall a. Ord a => a -> a -> Ordering -Hs.compare (ClientTransactionGetResponse_Status -> Int32 +Hs.compare (ClientTransactionGetResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum ClientTransactionGetResponse_Status -x) - (ClientTransactionGetResponse_Status -> Int32 +HsProtobuf.fromProtoEnum ClientTransactionGetResponse_Status +x) + (ClientTransactionGetResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum ClientTransactionGetResponse_Status -y) - -instance HsProtobuf.ProtoEnum ClientTransactionGetResponse_Status - where - toProtoEnumMay :: Int32 -> Maybe ClientTransactionGetResponse_Status -toProtoEnumMay 0 - = ClientTransactionGetResponse_Status +HsProtobuf.fromProtoEnum ClientTransactionGetResponse_Status +y) + +instance HsProtobuf.ProtoEnum ClientTransactionGetResponse_Status + where + toProtoEnumMay :: Int32 -> Maybe ClientTransactionGetResponse_Status +toProtoEnumMay Int32 +0 + = ClientTransactionGetResponse_Status -> Maybe ClientTransactionGetResponse_Status forall a. a -> Maybe a -Hs.Just ClientTransactionGetResponse_Status +Hs.Just ClientTransactionGetResponse_Status ClientTransactionGetResponse_StatusSTATUS_UNSET - toProtoEnumMay 1 = ClientTransactionGetResponse_Status + toProtoEnumMay Int32 +1 = ClientTransactionGetResponse_Status -> Maybe ClientTransactionGetResponse_Status forall a. a -> Maybe a -Hs.Just ClientTransactionGetResponse_Status +Hs.Just ClientTransactionGetResponse_Status ClientTransactionGetResponse_StatusOK - toProtoEnumMay 2 - = ClientTransactionGetResponse_Status + toProtoEnumMay Int32 +2 + = ClientTransactionGetResponse_Status -> Maybe ClientTransactionGetResponse_Status forall a. a -> Maybe a -Hs.Just ClientTransactionGetResponse_Status +Hs.Just ClientTransactionGetResponse_Status ClientTransactionGetResponse_StatusINTERNAL_ERROR - toProtoEnumMay 5 - = ClientTransactionGetResponse_Status + toProtoEnumMay Int32 +5 + = ClientTransactionGetResponse_Status -> Maybe ClientTransactionGetResponse_Status forall a. a -> Maybe a -Hs.Just ClientTransactionGetResponse_Status +Hs.Just ClientTransactionGetResponse_Status ClientTransactionGetResponse_StatusNO_RESOURCE - toProtoEnumMay 8 - = ClientTransactionGetResponse_Status + toProtoEnumMay Int32 +8 + = ClientTransactionGetResponse_Status -> Maybe ClientTransactionGetResponse_Status forall a. a -> Maybe a -Hs.Just ClientTransactionGetResponse_Status +Hs.Just ClientTransactionGetResponse_Status ClientTransactionGetResponse_StatusINVALID_ID - toProtoEnumMay _ = Maybe ClientTransactionGetResponse_Status + toProtoEnumMay Int32 +_ = Maybe ClientTransactionGetResponse_Status forall a. Maybe a -Hs.Nothing - fromProtoEnum :: ClientTransactionGetResponse_Status -> Int32 -fromProtoEnum (ClientTransactionGetResponse_Status -ClientTransactionGetResponse_StatusSTATUS_UNSET) = 0 - fromProtoEnum (ClientTransactionGetResponse_Status -ClientTransactionGetResponse_StatusOK) = 1 - fromProtoEnum (ClientTransactionGetResponse_Status +Hs.Nothing + fromProtoEnum :: ClientTransactionGetResponse_Status -> Int32 +fromProtoEnum (ClientTransactionGetResponse_Status +ClientTransactionGetResponse_StatusSTATUS_UNSET) = Int32 +0 + fromProtoEnum (ClientTransactionGetResponse_Status +ClientTransactionGetResponse_StatusOK) = Int32 +1 + fromProtoEnum (ClientTransactionGetResponse_Status ClientTransactionGetResponse_StatusINTERNAL_ERROR) - = 2 - fromProtoEnum (ClientTransactionGetResponse_Status -ClientTransactionGetResponse_StatusNO_RESOURCE) = 5 - fromProtoEnum (ClientTransactionGetResponse_Status -ClientTransactionGetResponse_StatusINVALID_ID) = 8 - -instance HsJSONPB.ToJSONPB ClientTransactionGetResponse_Status - where - toJSONPB :: ClientTransactionGetResponse_Status -> Options -> Value -toJSONPB x :: ClientTransactionGetResponse_Status -x _ = ClientTransactionGetResponse_Status -> Value + = Int32 +2 + fromProtoEnum (ClientTransactionGetResponse_Status +ClientTransactionGetResponse_StatusNO_RESOURCE) = Int32 +5 + fromProtoEnum (ClientTransactionGetResponse_Status +ClientTransactionGetResponse_StatusINVALID_ID) = Int32 +8 + +instance HsJSONPB.ToJSONPB ClientTransactionGetResponse_Status + where + toJSONPB :: ClientTransactionGetResponse_Status -> Options -> Value +toJSONPB ClientTransactionGetResponse_Status +x Options +_ = ClientTransactionGetResponse_Status -> Value forall a. (Named a, Show a) => a -> Value -HsJSONPB.enumFieldString ClientTransactionGetResponse_Status -x - toEncodingPB :: ClientTransactionGetResponse_Status -> Options -> Encoding -toEncodingPB x :: ClientTransactionGetResponse_Status -x _ = ClientTransactionGetResponse_Status -> Encoding +HsJSONPB.enumFieldString ClientTransactionGetResponse_Status +x + toEncodingPB :: ClientTransactionGetResponse_Status -> Options -> Encoding +toEncodingPB ClientTransactionGetResponse_Status +x Options +_ = ClientTransactionGetResponse_Status -> Encoding forall a. (Named a, Show a) => a -> Encoding -HsJSONPB.enumFieldEncoding ClientTransactionGetResponse_Status -x - -instance HsJSONPB.FromJSONPB ClientTransactionGetResponse_Status - where - parseJSONPB :: Value -> Parser ClientTransactionGetResponse_Status -parseJSONPB (HsJSONPB.String "STATUS_UNSET") - = ClientTransactionGetResponse_Status +HsJSONPB.enumFieldEncoding ClientTransactionGetResponse_Status +x + +instance HsJSONPB.FromJSONPB ClientTransactionGetResponse_Status + where + parseJSONPB :: Value -> Parser ClientTransactionGetResponse_Status +parseJSONPB (HsJSONPB.String Text +"STATUS_UNSET") + = ClientTransactionGetResponse_Status -> Parser ClientTransactionGetResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientTransactionGetResponse_Status +Hs.pure ClientTransactionGetResponse_Status ClientTransactionGetResponse_StatusSTATUS_UNSET - parseJSONPB (HsJSONPB.String "OK") - = ClientTransactionGetResponse_Status + parseJSONPB (HsJSONPB.String Text +"OK") + = ClientTransactionGetResponse_Status -> Parser ClientTransactionGetResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientTransactionGetResponse_Status +Hs.pure ClientTransactionGetResponse_Status ClientTransactionGetResponse_StatusOK - parseJSONPB (HsJSONPB.String "INTERNAL_ERROR") - = ClientTransactionGetResponse_Status + parseJSONPB (HsJSONPB.String Text +"INTERNAL_ERROR") + = ClientTransactionGetResponse_Status -> Parser ClientTransactionGetResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientTransactionGetResponse_Status +Hs.pure ClientTransactionGetResponse_Status ClientTransactionGetResponse_StatusINTERNAL_ERROR - parseJSONPB (HsJSONPB.String "NO_RESOURCE") - = ClientTransactionGetResponse_Status + parseJSONPB (HsJSONPB.String Text +"NO_RESOURCE") + = ClientTransactionGetResponse_Status -> Parser ClientTransactionGetResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientTransactionGetResponse_Status +Hs.pure ClientTransactionGetResponse_Status ClientTransactionGetResponse_StatusNO_RESOURCE - parseJSONPB (HsJSONPB.String "INVALID_ID") - = ClientTransactionGetResponse_Status + parseJSONPB (HsJSONPB.String Text +"INVALID_ID") + = ClientTransactionGetResponse_Status -> Parser ClientTransactionGetResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ClientTransactionGetResponse_Status +Hs.pure ClientTransactionGetResponse_Status ClientTransactionGetResponse_StatusINVALID_ID - parseJSONPB v :: Value -v - = (String -> Value -> Parser ClientTransactionGetResponse_Status + parseJSONPB Value +v + = (String -> Value -> Parser ClientTransactionGetResponse_Status forall a. String -> Value -> Parser a -HsJSONPB.typeMismatch "ClientTransactionGetResponse_Status" Value -v) - -instance HsJSONPB.ToJSON ClientTransactionGetResponse_Status where - toJSON :: ClientTransactionGetResponse_Status -> Value -toJSON = ClientTransactionGetResponse_Status -> Value +HsJSONPB.typeMismatch String +"ClientTransactionGetResponse_Status" Value +v) + +instance HsJSONPB.ToJSON ClientTransactionGetResponse_Status where + toJSON :: ClientTransactionGetResponse_Status -> Value +toJSON = ClientTransactionGetResponse_Status -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ClientTransactionGetResponse_Status -> Encoding -toEncoding = ClientTransactionGetResponse_Status -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ClientTransactionGetResponse_Status -> Encoding +toEncoding = ClientTransactionGetResponse_Status -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ClientTransactionGetResponse_Status - where - parseJSON :: Value -> Parser ClientTransactionGetResponse_Status -parseJSON = Value -> Parser ClientTransactionGetResponse_Status +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ClientTransactionGetResponse_Status + where + parseJSON :: Value -> Parser ClientTransactionGetResponse_Status +parseJSON = Value -> Parser ClientTransactionGetResponse_Status forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsProtobuf.Finite ClientTransactionGetResponse_Status \ No newline at end of file +HsJSONPB.parseJSONPB + +instance HsProtobuf.Finite ClientTransactionGetResponse_Status \ No newline at end of file diff --git a/src/Data.Sawtooth.Consensus.html b/src/Data.Sawtooth.Consensus.html index 77adde9..be7e16b 100644 --- a/src/Data.Sawtooth.Consensus.html +++ b/src/Data.Sawtooth.Consensus.html @@ -9,49 +9,48 @@ {-# OPTIONS_GHC -fno-warn-unused-matches #-} -- | Generated by Haskell protocol buffer compiler. DO NOT EDIT! - -module Data.Sawtooth.Consensus where -import qualified Prelude as Hs -import qualified Proto3.Suite.Class as HsProtobuf -import qualified Proto3.Suite.DotProto as HsProtobuf -import qualified Proto3.Suite.JSONPB as HsJSONPB -import Proto3.Suite.JSONPB ((.=), (.:)) -import qualified Proto3.Suite.Types as HsProtobuf -import qualified Proto3.Wire as HsProtobuf -import qualified Control.Applicative as Hs -import Control.Applicative ((<*>), (<|>), (<$>)) -import qualified Control.DeepSeq as Hs -import qualified Control.Monad as Hs -import qualified Data.ByteString as Hs -import qualified Data.Coerce as Hs -import qualified Data.Int as Hs (Int16, Int32, Int64) -import qualified Data.List.NonEmpty as Hs (NonEmpty(..)) -import qualified Data.Map as Hs (Map, mapKeysMonotonic) -import qualified Data.Proxy as Proxy -import qualified Data.String as Hs (fromString) -import qualified Data.Text.Lazy as Hs (Text) -import qualified Data.Vector as Hs (Vector) -import qualified Data.Word as Hs (Word16, Word32, Word64) -import qualified GHC.Enum as Hs -import qualified GHC.Generics as Hs -import qualified Unsafe.Coerce as Hs - -data ConsensusPeerMessageHeader = ConsensusPeerMessageHeader{ConsensusPeerMessageHeader -> ByteString +module Data.Sawtooth.Consensus where +import qualified Prelude as Hs +import qualified Proto3.Suite.Class as HsProtobuf +import qualified Proto3.Suite.DotProto as HsProtobuf +import qualified Proto3.Suite.JSONPB as HsJSONPB +import Proto3.Suite.JSONPB ((.=), (.:)) +import qualified Proto3.Suite.Types as HsProtobuf +import qualified Proto3.Wire as HsProtobuf +import qualified Control.Applicative as Hs +import Control.Applicative ((<*>), (<|>), (<$>)) +import qualified Control.DeepSeq as Hs +import qualified Control.Monad as Hs +import qualified Data.ByteString as Hs +import qualified Data.Coerce as Hs +import qualified Data.Int as Hs (Int16, Int32, Int64) +import qualified Data.List.NonEmpty as Hs (NonEmpty(..)) +import qualified Data.Map as Hs (Map, mapKeysMonotonic) +import qualified Data.Proxy as Proxy +import qualified Data.String as Hs (fromString) +import qualified Data.Text.Lazy as Hs (Text) +import qualified Data.Vector as Hs (Vector) +import qualified Data.Word as Hs (Word16, Word32, Word64) +import qualified GHC.Enum as Hs +import qualified GHC.Generics as Hs +import qualified Unsafe.Coerce as Hs + +data ConsensusPeerMessageHeader = ConsensusPeerMessageHeader{ConsensusPeerMessageHeader -> ByteString consensusPeerMessageHeaderSignerId - :: Hs.ByteString, - ConsensusPeerMessageHeader -> ByteString + :: Hs.ByteString, + ConsensusPeerMessageHeader -> ByteString consensusPeerMessageHeaderContentSha512 - :: Hs.ByteString, - ConsensusPeerMessageHeader -> Text + :: Hs.ByteString, + ConsensusPeerMessageHeader -> Text consensusPeerMessageHeaderMessageType - :: Hs.Text, - ConsensusPeerMessageHeader -> Text + :: Hs.Text, + ConsensusPeerMessageHeader -> Text consensusPeerMessageHeaderName :: - Hs.Text, - ConsensusPeerMessageHeader -> Text + Hs.Text, + ConsensusPeerMessageHeader -> Text consensusPeerMessageHeaderVersion :: - Hs.Text} - deriving (Int -> ConsensusPeerMessageHeader -> ShowS + Hs.Text} + deriving (Int -> ConsensusPeerMessageHeader -> ShowS [ConsensusPeerMessageHeader] -> ShowS ConsensusPeerMessageHeader -> String (Int -> ConsensusPeerMessageHeader -> ShowS) @@ -66,7 +65,7 @@ show :: ConsensusPeerMessageHeader -> String $cshow :: ConsensusPeerMessageHeader -> String showsPrec :: Int -> ConsensusPeerMessageHeader -> ShowS $cshowsPrec :: Int -> ConsensusPeerMessageHeader -> ShowS -Hs.Show, ConsensusPeerMessageHeader -> ConsensusPeerMessageHeader -> Bool +Hs.Show, ConsensusPeerMessageHeader -> ConsensusPeerMessageHeader -> Bool (ConsensusPeerMessageHeader -> ConsensusPeerMessageHeader -> Bool) -> (ConsensusPeerMessageHeader -> ConsensusPeerMessageHeader -> Bool) @@ -76,10 +75,10 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: ConsensusPeerMessageHeader -> ConsensusPeerMessageHeader -> Bool == :: ConsensusPeerMessageHeader -> ConsensusPeerMessageHeader -> Bool $c== :: ConsensusPeerMessageHeader -> ConsensusPeerMessageHeader -> Bool -Hs.Eq, Eq ConsensusPeerMessageHeader -Eq ConsensusPeerMessageHeader => -(ConsensusPeerMessageHeader - -> ConsensusPeerMessageHeader -> Ordering) +Hs.Eq, Eq ConsensusPeerMessageHeader +Eq ConsensusPeerMessageHeader +-> (ConsensusPeerMessageHeader + -> ConsensusPeerMessageHeader -> Ordering) -> (ConsensusPeerMessageHeader -> ConsensusPeerMessageHeader -> Bool) -> (ConsensusPeerMessageHeader @@ -99,8 +98,8 @@ ConsensusPeerMessageHeader ConsensusPeerMessageHeader -> ConsensusPeerMessageHeader -> ConsensusPeerMessageHeader forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -129,7 +128,7 @@ compare :: ConsensusPeerMessageHeader $ccompare :: ConsensusPeerMessageHeader -> ConsensusPeerMessageHeader -> Ordering $cp1Ord :: Eq ConsensusPeerMessageHeader -Hs.Ord, (forall x. +Hs.Ord, (forall x. ConsensusPeerMessageHeader -> Rep ConsensusPeerMessageHeader x) -> (forall x. Rep ConsensusPeerMessageHeader x -> ConsensusPeerMessageHeader) @@ -144,81 +143,90 @@ $cto :: forall x. Rep ConsensusPeerMessageHeader x -> ConsensusPeerMessageHeader $cfrom :: forall x. ConsensusPeerMessageHeader -> Rep ConsensusPeerMessageHeader x -Hs.Generic, ConsensusPeerMessageHeader -> () +Hs.Generic, ConsensusPeerMessageHeader -> () (ConsensusPeerMessageHeader -> ()) -> NFData ConsensusPeerMessageHeader forall a. (a -> ()) -> NFData a rnf :: ConsensusPeerMessageHeader -> () $crnf :: ConsensusPeerMessageHeader -> () -Hs.NFData) - -instance HsProtobuf.Named ConsensusPeerMessageHeader where - nameOf :: Proxy# ConsensusPeerMessageHeader -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ConsensusPeerMessageHeader where + nameOf :: Proxy# ConsensusPeerMessageHeader -> string +nameOf Proxy# ConsensusPeerMessageHeader +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ConsensusPeerMessageHeader") - -instance HsProtobuf.HasDefault ConsensusPeerMessageHeader - -instance HsProtobuf.Message ConsensusPeerMessageHeader where - encodeMessage :: FieldNumber -> ConsensusPeerMessageHeader -> MessageBuilder -encodeMessage _ - ConsensusPeerMessageHeader{consensusPeerMessageHeaderSignerId :: ConsensusPeerMessageHeader -> ByteString +Hs.fromString String +"ConsensusPeerMessageHeader") + +instance HsProtobuf.HasDefault ConsensusPeerMessageHeader + +instance HsProtobuf.Message ConsensusPeerMessageHeader where + encodeMessage :: FieldNumber -> ConsensusPeerMessageHeader -> MessageBuilder +encodeMessage FieldNumber +_ + ConsensusPeerMessageHeader{consensusPeerMessageHeaderSignerId :: ConsensusPeerMessageHeader -> ByteString consensusPeerMessageHeaderSignerId = - ByteString -consensusPeerMessageHeaderSignerId, - consensusPeerMessageHeaderContentSha512 :: ConsensusPeerMessageHeader -> ByteString + ByteString +consensusPeerMessageHeaderSignerId, + consensusPeerMessageHeaderContentSha512 :: ConsensusPeerMessageHeader -> ByteString consensusPeerMessageHeaderContentSha512 = - ByteString -consensusPeerMessageHeaderContentSha512, - consensusPeerMessageHeaderMessageType :: ConsensusPeerMessageHeader -> Text + ByteString +consensusPeerMessageHeaderContentSha512, + consensusPeerMessageHeaderMessageType :: ConsensusPeerMessageHeader -> Text consensusPeerMessageHeaderMessageType = - Text -consensusPeerMessageHeaderMessageType, - consensusPeerMessageHeaderName :: ConsensusPeerMessageHeader -> Text + Text +consensusPeerMessageHeaderMessageType, + consensusPeerMessageHeaderName :: ConsensusPeerMessageHeader -> Text consensusPeerMessageHeaderName = - Text -consensusPeerMessageHeaderName, - consensusPeerMessageHeaderVersion :: ConsensusPeerMessageHeader -> Text + Text +consensusPeerMessageHeaderName, + consensusPeerMessageHeaderVersion :: ConsensusPeerMessageHeader -> Text consensusPeerMessageHeaderVersion = - Text -consensusPeerMessageHeaderVersion} - = ([MessageBuilder] -> MessageBuilder + Text +consensusPeerMessageHeaderVersion} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> ByteString -> MessageBuilder +Hs.mconcat + [(FieldNumber -> ByteString -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - ByteString -consensusPeerMessageHeaderSignerId), - (FieldNumber -> ByteString -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + ByteString +consensusPeerMessageHeaderSignerId), + (FieldNumber -> ByteString -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - ByteString -consensusPeerMessageHeaderContentSha512), - (FieldNumber -> Text -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + ByteString +consensusPeerMessageHeaderContentSha512), + (FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 5) - Text -consensusPeerMessageHeaderMessageType), - (FieldNumber -> Text -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +5) + Text +consensusPeerMessageHeaderMessageType), + (FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - Text -consensusPeerMessageHeaderName), - (FieldNumber -> Text -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + Text +consensusPeerMessageHeaderName), + (FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 4) - Text -consensusPeerMessageHeaderVersion)]) - decodeMessage :: FieldNumber -> Parser RawMessage ConsensusPeerMessageHeader -decodeMessage _ - = ((ByteString +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +4) + Text +consensusPeerMessageHeaderVersion)]) + decodeMessage :: FieldNumber -> Parser RawMessage ConsensusPeerMessageHeader +decodeMessage FieldNumber +_ + = ((ByteString -> ByteString -> Text -> Text @@ -233,7 +241,7 @@ forall a. MessageField a => FieldNumber -> a -> MessageBuilder -> Text -> ConsensusPeerMessageHeader) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString +Hs.pure ByteString -> ByteString -> Text -> Text -> Text -> ConsensusPeerMessageHeader ConsensusPeerMessageHeader) Parser RawMessage @@ -248,232 +256,264 @@ forall (f :: * -> *) a. Applicative f => a -> f a RawMessage (ByteString -> Text -> Text -> Text -> ConsensusPeerMessageHeader) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField ByteString +<*> + (Parser RawField ByteString -> FieldNumber -> Parser RawMessage ByteString forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField ByteString +HsProtobuf.at Parser RawField ByteString forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (ByteString -> Text -> Text -> Text -> ConsensusPeerMessageHeader) -> Parser RawMessage ByteString -> Parser RawMessage (Text -> Text -> Text -> ConsensusPeerMessageHeader) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField ByteString +<*> + (Parser RawField ByteString -> FieldNumber -> Parser RawMessage ByteString forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField ByteString +HsProtobuf.at Parser RawField ByteString forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2)) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2)) + Parser RawMessage (Text -> Text -> Text -> ConsensusPeerMessageHeader) -> Parser RawMessage Text -> Parser RawMessage (Text -> Text -> ConsensusPeerMessageHeader) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 5)) - Parser RawMessage (Text -> Text -> ConsensusPeerMessageHeader) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +5)) + Parser RawMessage (Text -> Text -> ConsensusPeerMessageHeader) -> Parser RawMessage Text -> Parser RawMessage (Text -> ConsensusPeerMessageHeader) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3)) - Parser RawMessage (Text -> ConsensusPeerMessageHeader) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3)) + Parser RawMessage (Text -> ConsensusPeerMessageHeader) -> Parser RawMessage Text -> Parser RawMessage ConsensusPeerMessageHeader forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 4)) - dotProto :: Proxy# ConsensusPeerMessageHeader -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +4)) + dotProto :: Proxy# ConsensusPeerMessageHeader -> [DotProtoField] +dotProto Proxy# ConsensusPeerMessageHeader +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.Bytes) - (String -> DotProtoIdentifier -HsProtobuf.Single "signer_id") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.Bytes) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"signer_id") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.Bytes) - (String -> DotProtoIdentifier -HsProtobuf.Single "content_sha512") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.Bytes) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"content_sha512") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 5) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "message_type") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +5) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"message_type") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "name") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"name") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 4) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "version") - [] - "")] - -instance HsJSONPB.ToJSONPB ConsensusPeerMessageHeader where - toJSONPB :: ConsensusPeerMessageHeader -> Options -> Value -toJSONPB (ConsensusPeerMessageHeader f1 :: ByteString -f1 f2 :: ByteString -f2 f5 :: Text -f5 f3 :: Text -f3 f4 :: Text -f4) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object - ["signer_id" Text -> ByteString -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +4) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"version") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ConsensusPeerMessageHeader where + toJSONPB :: ConsensusPeerMessageHeader -> Options -> Value +toJSONPB (ConsensusPeerMessageHeader ByteString +f1 ByteString +f2 Text +f5 Text +f3 Text +f4) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object + [Text +"signer_id" Text -> ByteString -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f1, "content_sha512" Text -> ByteString -> Options -> [Pair] +.= ByteString +f1, Text +"content_sha512" Text -> ByteString -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f2, "message_type" Text -> Text -> Options -> [Pair] +.= ByteString +f2, Text +"message_type" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f5, - "name" Text -> Text -> Options -> [Pair] +.= Text +f5, + Text +"name" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f3, "version" Text -> Text -> Options -> [Pair] +.= Text +f3, Text +"version" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f4]) - toEncodingPB :: ConsensusPeerMessageHeader -> Options -> Encoding -toEncodingPB (ConsensusPeerMessageHeader f1 :: ByteString -f1 f2 :: ByteString -f2 f5 :: Text -f5 f3 :: Text -f3 f4 :: Text -f4) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs - ["signer_id" Text -> ByteString -> Options -> Series +.= Text +f4]) + toEncodingPB :: ConsensusPeerMessageHeader -> Options -> Encoding +toEncodingPB (ConsensusPeerMessageHeader ByteString +f1 ByteString +f2 Text +f5 Text +f3 Text +f4) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs + [Text +"signer_id" Text -> ByteString -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f1, "content_sha512" Text -> ByteString -> Options -> Series +.= ByteString +f1, Text +"content_sha512" Text -> ByteString -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f2, "message_type" Text -> Text -> Options -> Series +.= ByteString +f2, Text +"message_type" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f5, - "name" Text -> Text -> Options -> Series +.= Text +f5, + Text +"name" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f3, "version" Text -> Text -> Options -> Series +.= Text +f3, Text +"version" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f4]) - -instance HsJSONPB.FromJSONPB ConsensusPeerMessageHeader where - parseJSONPB :: Value -> Parser ConsensusPeerMessageHeader -parseJSONPB - = (String +.= Text +f4]) + +instance HsJSONPB.FromJSONPB ConsensusPeerMessageHeader where + parseJSONPB :: Value -> Parser ConsensusPeerMessageHeader +parseJSONPB + = (String -> (Object -> Parser ConsensusPeerMessageHeader) -> Value -> Parser ConsensusPeerMessageHeader forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ConsensusPeerMessageHeader" - (\ obj :: Object -obj -> - ((ByteString +HsJSONPB.withObject String +"ConsensusPeerMessageHeader" + (\ Object +obj -> + ((ByteString -> ByteString -> Text -> Text @@ -487,7 +527,7 @@ forall a. String -> (Object -> Parser a) -> Value -> Parser a -> Text -> ConsensusPeerMessageHeader) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString +Hs.pure ByteString -> ByteString -> Text -> Text -> Text -> ConsensusPeerMessageHeader ConsensusPeerMessageHeader) Parser (ByteString @@ -500,145 +540,151 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Parser (ByteString -> Text -> Text -> Text -> ConsensusPeerMessageHeader) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser ByteString +<*> Object +obj Object -> Text -> Parser ByteString forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "signer_id" Parser +.: Text +"signer_id" Parser (ByteString -> Text -> Text -> Text -> ConsensusPeerMessageHeader) -> Parser ByteString -> Parser (Text -> Text -> Text -> ConsensusPeerMessageHeader) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser ByteString +<*> + Object +obj Object -> Text -> Parser ByteString forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "content_sha512" - Parser (Text -> Text -> Text -> ConsensusPeerMessageHeader) +.: Text +"content_sha512" + Parser (Text -> Text -> Text -> ConsensusPeerMessageHeader) -> Parser Text -> Parser (Text -> Text -> ConsensusPeerMessageHeader) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Text +<*> Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "message_type" - Parser (Text -> Text -> ConsensusPeerMessageHeader) +.: Text +"message_type" + Parser (Text -> Text -> ConsensusPeerMessageHeader) -> Parser Text -> Parser (Text -> ConsensusPeerMessageHeader) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Text +<*> Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "name" - Parser (Text -> ConsensusPeerMessageHeader) +.: Text +"name" + Parser (Text -> ConsensusPeerMessageHeader) -> Parser Text -> Parser ConsensusPeerMessageHeader forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Text +<*> Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "version")) - -instance HsJSONPB.ToJSON ConsensusPeerMessageHeader where - toJSON :: ConsensusPeerMessageHeader -> Value -toJSON = ConsensusPeerMessageHeader -> Value +.: Text +"version")) + +instance HsJSONPB.ToJSON ConsensusPeerMessageHeader where + toJSON :: ConsensusPeerMessageHeader -> Value +toJSON = ConsensusPeerMessageHeader -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ConsensusPeerMessageHeader -> Encoding -toEncoding = ConsensusPeerMessageHeader -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ConsensusPeerMessageHeader -> Encoding +toEncoding = ConsensusPeerMessageHeader -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ConsensusPeerMessageHeader where - parseJSON :: Value -> Parser ConsensusPeerMessageHeader -parseJSON = Value -> Parser ConsensusPeerMessageHeader +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ConsensusPeerMessageHeader where + parseJSON :: Value -> Parser ConsensusPeerMessageHeader +parseJSON = Value -> Parser ConsensusPeerMessageHeader forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ConsensusPeerMessageHeader where - declareNamedSchema :: Proxy ConsensusPeerMessageHeader +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ConsensusPeerMessageHeader where + declareNamedSchema :: Proxy ConsensusPeerMessageHeader -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_signer_id :: Proxy (OverrideToSchema ByteString) +declareNamedSchema Proxy ConsensusPeerMessageHeader +_ + = do let declare_signer_id :: Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_signer_id = Proxy (OverrideToSchema ByteString) +declare_signer_id = Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -consensusPeerMessageHeaderSignerId <- Proxy (OverrideToSchema ByteString) +HsJSONPB.declareSchemaRef + Referenced Schema +consensusPeerMessageHeaderSignerId <- Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_signer_id Proxy (OverrideToSchema ByteString) +declare_signer_id Proxy (OverrideToSchema ByteString) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_content_sha512 :: Proxy (OverrideToSchema ByteString) +Proxy.Proxy + let declare_content_sha512 :: Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_content_sha512 = Proxy (OverrideToSchema ByteString) +declare_content_sha512 = Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -consensusPeerMessageHeaderContentSha512 <- Proxy (OverrideToSchema ByteString) +HsJSONPB.declareSchemaRef + Referenced Schema +consensusPeerMessageHeaderContentSha512 <- Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_content_sha512 - Proxy (OverrideToSchema ByteString) +declare_content_sha512 + Proxy (OverrideToSchema ByteString) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_message_type :: Proxy (OverrideToSchema Text) +Proxy.Proxy + let declare_message_type :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_message_type = Proxy (OverrideToSchema Text) +declare_message_type = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -consensusPeerMessageHeaderMessageType <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +consensusPeerMessageHeaderMessageType <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_message_type - Proxy (OverrideToSchema Text) +declare_message_type + Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_name :: Proxy (OverrideToSchema Text) +Proxy.Proxy + let declare_name :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_name = Proxy (OverrideToSchema Text) +declare_name = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -consensusPeerMessageHeaderName <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +consensusPeerMessageHeaderName <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_name Proxy (OverrideToSchema Text) +declare_name Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_version :: Proxy (OverrideToSchema Text) +Proxy.Proxy + let declare_version :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_version = Proxy (OverrideToSchema Text) +declare_version = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -consensusPeerMessageHeaderVersion <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +consensusPeerMessageHeaderVersion <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_version Proxy (OverrideToSchema Text) +declare_version Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ConsensusPeerMessageHeader +Proxy.Proxy + let Proxy ConsensusPeerMessageHeader _ = (ByteString -> ByteString -> Text @@ -653,7 +699,7 @@ forall k (t :: k). Proxy t -> Text -> ConsensusPeerMessageHeader) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString +Hs.pure ByteString -> ByteString -> Text -> Text -> Text -> ConsensusPeerMessageHeader ConsensusPeerMessageHeader Proxy (ByteString @@ -666,110 +712,116 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Proxy (ByteString -> Text -> Text -> Text -> ConsensusPeerMessageHeader) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema ByteString) +<*> + (Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy ByteString forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) +HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_signer_id - Proxy +declare_signer_id + Proxy (ByteString -> Text -> Text -> Text -> ConsensusPeerMessageHeader) -> Proxy ByteString -> Proxy (Text -> Text -> Text -> ConsensusPeerMessageHeader) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema ByteString) +<*> (Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy ByteString forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) +HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_content_sha512 - Proxy (Text -> Text -> Text -> ConsensusPeerMessageHeader) +declare_content_sha512 + Proxy (Text -> Text -> Text -> ConsensusPeerMessageHeader) -> Proxy Text -> Proxy (Text -> Text -> ConsensusPeerMessageHeader) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema Text) +<*> (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_message_type - Proxy (Text -> Text -> ConsensusPeerMessageHeader) +declare_message_type + Proxy (Text -> Text -> ConsensusPeerMessageHeader) -> Proxy Text -> Proxy (Text -> ConsensusPeerMessageHeader) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema Text) +<*> (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_name - Proxy (Text -> ConsensusPeerMessageHeader) +declare_name + Proxy (Text -> ConsensusPeerMessageHeader) -> Proxy Text -> Proxy ConsensusPeerMessageHeader forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema Text) +<*> (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_version - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_version + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ConsensusPeerMessageHeader", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ConsensusPeerMessageHeader", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("signer_id", - Referenced Schema -consensusPeerMessageHeaderSignerId), - ("content_sha512", - Referenced Schema -consensusPeerMessageHeaderContentSha512), - ("message_type", - Referenced Schema -consensusPeerMessageHeaderMessageType), - ("name", Referenced Schema -consensusPeerMessageHeaderName), - ("version", - Referenced Schema -consensusPeerMessageHeaderVersion)]}}) - -data ConsensusPeerMessage = ConsensusPeerMessage{ConsensusPeerMessage -> ByteString +HsJSONPB.insOrdFromList + [(Text +"signer_id", + Referenced Schema +consensusPeerMessageHeaderSignerId), + (Text +"content_sha512", + Referenced Schema +consensusPeerMessageHeaderContentSha512), + (Text +"message_type", + Referenced Schema +consensusPeerMessageHeaderMessageType), + (Text +"name", Referenced Schema +consensusPeerMessageHeaderName), + (Text +"version", + Referenced Schema +consensusPeerMessageHeaderVersion)]}}) + +data ConsensusPeerMessage = ConsensusPeerMessage{ConsensusPeerMessage -> ByteString consensusPeerMessageHeader - :: Hs.ByteString, - ConsensusPeerMessage -> ByteString + :: Hs.ByteString, + ConsensusPeerMessage -> ByteString consensusPeerMessageHeaderSignature :: - Hs.ByteString, - ConsensusPeerMessage -> ByteString -consensusPeerMessageContent :: Hs.ByteString} - deriving (Int -> ConsensusPeerMessage -> ShowS + Hs.ByteString, + ConsensusPeerMessage -> ByteString +consensusPeerMessageContent :: Hs.ByteString} + deriving (Int -> ConsensusPeerMessage -> ShowS [ConsensusPeerMessage] -> ShowS ConsensusPeerMessage -> String (Int -> ConsensusPeerMessage -> ShowS) @@ -784,7 +836,7 @@ show :: ConsensusPeerMessage -> String $cshow :: ConsensusPeerMessage -> String showsPrec :: Int -> ConsensusPeerMessage -> ShowS $cshowsPrec :: Int -> ConsensusPeerMessage -> ShowS -Hs.Show, ConsensusPeerMessage -> ConsensusPeerMessage -> Bool +Hs.Show, ConsensusPeerMessage -> ConsensusPeerMessage -> Bool (ConsensusPeerMessage -> ConsensusPeerMessage -> Bool) -> (ConsensusPeerMessage -> ConsensusPeerMessage -> Bool) -> Eq ConsensusPeerMessage @@ -793,9 +845,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: ConsensusPeerMessage -> ConsensusPeerMessage -> Bool == :: ConsensusPeerMessage -> ConsensusPeerMessage -> Bool $c== :: ConsensusPeerMessage -> ConsensusPeerMessage -> Bool -Hs.Eq, Eq ConsensusPeerMessage -Eq ConsensusPeerMessage => -(ConsensusPeerMessage -> ConsensusPeerMessage -> Ordering) +Hs.Eq, Eq ConsensusPeerMessage +Eq ConsensusPeerMessage +-> (ConsensusPeerMessage -> ConsensusPeerMessage -> Ordering) -> (ConsensusPeerMessage -> ConsensusPeerMessage -> Bool) -> (ConsensusPeerMessage -> ConsensusPeerMessage -> Bool) -> (ConsensusPeerMessage -> ConsensusPeerMessage -> Bool) @@ -810,8 +862,8 @@ ConsensusPeerMessage -> ConsensusPeerMessage -> Ordering ConsensusPeerMessage -> ConsensusPeerMessage -> ConsensusPeerMessage forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -838,7 +890,7 @@ $c< :: ConsensusPeerMessage -> ConsensusPeerMessage -> Bool compare :: ConsensusPeerMessage -> ConsensusPeerMessage -> Ordering $ccompare :: ConsensusPeerMessage -> ConsensusPeerMessage -> Ordering $cp1Ord :: Eq ConsensusPeerMessage -Hs.Ord, (forall x. ConsensusPeerMessage -> Rep ConsensusPeerMessage x) +Hs.Ord, (forall x. ConsensusPeerMessage -> Rep ConsensusPeerMessage x) -> (forall x. Rep ConsensusPeerMessage x -> ConsensusPeerMessage) -> Generic ConsensusPeerMessage forall x. Rep ConsensusPeerMessage x -> ConsensusPeerMessage @@ -847,64 +899,71 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep ConsensusPeerMessage x -> ConsensusPeerMessage $cfrom :: forall x. ConsensusPeerMessage -> Rep ConsensusPeerMessage x -Hs.Generic, ConsensusPeerMessage -> () +Hs.Generic, ConsensusPeerMessage -> () (ConsensusPeerMessage -> ()) -> NFData ConsensusPeerMessage forall a. (a -> ()) -> NFData a rnf :: ConsensusPeerMessage -> () $crnf :: ConsensusPeerMessage -> () -Hs.NFData) - -instance HsProtobuf.Named ConsensusPeerMessage where - nameOf :: Proxy# ConsensusPeerMessage -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ConsensusPeerMessage where + nameOf :: Proxy# ConsensusPeerMessage -> string +nameOf Proxy# ConsensusPeerMessage +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ConsensusPeerMessage") - -instance HsProtobuf.HasDefault ConsensusPeerMessage - -instance HsProtobuf.Message ConsensusPeerMessage where - encodeMessage :: FieldNumber -> ConsensusPeerMessage -> MessageBuilder -encodeMessage _ - ConsensusPeerMessage{consensusPeerMessageHeader :: ConsensusPeerMessage -> ByteString +Hs.fromString String +"ConsensusPeerMessage") + +instance HsProtobuf.HasDefault ConsensusPeerMessage + +instance HsProtobuf.Message ConsensusPeerMessage where + encodeMessage :: FieldNumber -> ConsensusPeerMessage -> MessageBuilder +encodeMessage FieldNumber +_ + ConsensusPeerMessage{consensusPeerMessageHeader :: ConsensusPeerMessage -> ByteString consensusPeerMessageHeader = - ByteString -consensusPeerMessageHeader, - consensusPeerMessageHeaderSignature :: ConsensusPeerMessage -> ByteString + ByteString +consensusPeerMessageHeader, + consensusPeerMessageHeaderSignature :: ConsensusPeerMessage -> ByteString consensusPeerMessageHeaderSignature = - ByteString -consensusPeerMessageHeaderSignature, - consensusPeerMessageContent :: ConsensusPeerMessage -> ByteString -consensusPeerMessageContent = ByteString -consensusPeerMessageContent} - = ([MessageBuilder] -> MessageBuilder + ByteString +consensusPeerMessageHeaderSignature, + consensusPeerMessageContent :: ConsensusPeerMessage -> ByteString +consensusPeerMessageContent = ByteString +consensusPeerMessageContent} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> ByteString -> MessageBuilder +Hs.mconcat + [(FieldNumber -> ByteString -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - ByteString -consensusPeerMessageHeader), - (FieldNumber -> ByteString -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + ByteString +consensusPeerMessageHeader), + (FieldNumber -> ByteString -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - ByteString -consensusPeerMessageHeaderSignature), - (FieldNumber -> ByteString -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + ByteString +consensusPeerMessageHeaderSignature), + (FieldNumber -> ByteString -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - ByteString -consensusPeerMessageContent)]) - decodeMessage :: FieldNumber -> Parser RawMessage ConsensusPeerMessage -decodeMessage _ - = ((ByteString -> ByteString -> ByteString -> ConsensusPeerMessage) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + ByteString +consensusPeerMessageContent)]) + decodeMessage :: FieldNumber -> Parser RawMessage ConsensusPeerMessage +decodeMessage FieldNumber +_ + = ((ByteString -> ByteString -> ByteString -> ConsensusPeerMessage) -> Parser RawMessage (ByteString -> ByteString -> ByteString -> ConsensusPeerMessage) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString -> ByteString -> ByteString -> ConsensusPeerMessage +Hs.pure ByteString -> ByteString -> ByteString -> ConsensusPeerMessage ConsensusPeerMessage) Parser RawMessage (ByteString -> ByteString -> ByteString -> ConsensusPeerMessage) @@ -912,338 +971,366 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Parser RawMessage (ByteString -> ByteString -> ConsensusPeerMessage) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField ByteString +<*> + (Parser RawField ByteString -> FieldNumber -> Parser RawMessage ByteString forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField ByteString +HsProtobuf.at Parser RawField ByteString forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (ByteString -> ByteString -> ConsensusPeerMessage) -> Parser RawMessage ByteString -> Parser RawMessage (ByteString -> ConsensusPeerMessage) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField ByteString +<*> + (Parser RawField ByteString -> FieldNumber -> Parser RawMessage ByteString forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField ByteString +HsProtobuf.at Parser RawField ByteString forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3)) - Parser RawMessage (ByteString -> ConsensusPeerMessage) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3)) + Parser RawMessage (ByteString -> ConsensusPeerMessage) -> Parser RawMessage ByteString -> Parser RawMessage ConsensusPeerMessage forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField ByteString +<*> + (Parser RawField ByteString -> FieldNumber -> Parser RawMessage ByteString forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField ByteString +HsProtobuf.at Parser RawField ByteString forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2)) - dotProto :: Proxy# ConsensusPeerMessage -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2)) + dotProto :: Proxy# ConsensusPeerMessage -> [DotProtoField] +dotProto Proxy# ConsensusPeerMessage +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.Bytes) - (String -> DotProtoIdentifier -HsProtobuf.Single "header") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.Bytes) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"header") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.Bytes) - (String -> DotProtoIdentifier -HsProtobuf.Single "header_signature") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.Bytes) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"header_signature") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.Bytes) - (String -> DotProtoIdentifier -HsProtobuf.Single "content") - [] - "")] - -instance HsJSONPB.ToJSONPB ConsensusPeerMessage where - toJSONPB :: ConsensusPeerMessage -> Options -> Value -toJSONPB (ConsensusPeerMessage f1 :: ByteString -f1 f3 :: ByteString -f3 f2 :: ByteString -f2) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object - ["header" Text -> ByteString -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.Bytes) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"content") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ConsensusPeerMessage where + toJSONPB :: ConsensusPeerMessage -> Options -> Value +toJSONPB (ConsensusPeerMessage ByteString +f1 ByteString +f3 ByteString +f2) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object + [Text +"header" Text -> ByteString -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f1, "header_signature" Text -> ByteString -> Options -> [Pair] +.= ByteString +f1, Text +"header_signature" Text -> ByteString -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f3, "content" Text -> ByteString -> Options -> [Pair] +.= ByteString +f3, Text +"content" Text -> ByteString -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f2]) - toEncodingPB :: ConsensusPeerMessage -> Options -> Encoding -toEncodingPB (ConsensusPeerMessage f1 :: ByteString -f1 f3 :: ByteString -f3 f2 :: ByteString -f2) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs - ["header" Text -> ByteString -> Options -> Series +.= ByteString +f2]) + toEncodingPB :: ConsensusPeerMessage -> Options -> Encoding +toEncodingPB (ConsensusPeerMessage ByteString +f1 ByteString +f3 ByteString +f2) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs + [Text +"header" Text -> ByteString -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f1, "header_signature" Text -> ByteString -> Options -> Series +.= ByteString +f1, Text +"header_signature" Text -> ByteString -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f3, "content" Text -> ByteString -> Options -> Series +.= ByteString +f3, Text +"content" Text -> ByteString -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f2]) - -instance HsJSONPB.FromJSONPB ConsensusPeerMessage where - parseJSONPB :: Value -> Parser ConsensusPeerMessage -parseJSONPB - = (String +.= ByteString +f2]) + +instance HsJSONPB.FromJSONPB ConsensusPeerMessage where + parseJSONPB :: Value -> Parser ConsensusPeerMessage +parseJSONPB + = (String -> (Object -> Parser ConsensusPeerMessage) -> Value -> Parser ConsensusPeerMessage forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ConsensusPeerMessage" - (\ obj :: Object -obj -> - ((ByteString -> ByteString -> ByteString -> ConsensusPeerMessage) +HsJSONPB.withObject String +"ConsensusPeerMessage" + (\ Object +obj -> + ((ByteString -> ByteString -> ByteString -> ConsensusPeerMessage) -> Parser (ByteString -> ByteString -> ByteString -> ConsensusPeerMessage) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString -> ByteString -> ByteString -> ConsensusPeerMessage +Hs.pure ByteString -> ByteString -> ByteString -> ConsensusPeerMessage ConsensusPeerMessage) Parser (ByteString -> ByteString -> ByteString -> ConsensusPeerMessage) -> Parser ByteString -> Parser (ByteString -> ByteString -> ConsensusPeerMessage) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser ByteString +<*> Object +obj Object -> Text -> Parser ByteString forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "header" Parser (ByteString -> ByteString -> ConsensusPeerMessage) +.: Text +"header" Parser (ByteString -> ByteString -> ConsensusPeerMessage) -> Parser ByteString -> Parser (ByteString -> ConsensusPeerMessage) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser ByteString +<*> + Object +obj Object -> Text -> Parser ByteString forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "header_signature" - Parser (ByteString -> ConsensusPeerMessage) +.: Text +"header_signature" + Parser (ByteString -> ConsensusPeerMessage) -> Parser ByteString -> Parser ConsensusPeerMessage forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser ByteString +<*> Object +obj Object -> Text -> Parser ByteString forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "content")) - -instance HsJSONPB.ToJSON ConsensusPeerMessage where - toJSON :: ConsensusPeerMessage -> Value -toJSON = ConsensusPeerMessage -> Value +.: Text +"content")) + +instance HsJSONPB.ToJSON ConsensusPeerMessage where + toJSON :: ConsensusPeerMessage -> Value +toJSON = ConsensusPeerMessage -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ConsensusPeerMessage -> Encoding -toEncoding = ConsensusPeerMessage -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ConsensusPeerMessage -> Encoding +toEncoding = ConsensusPeerMessage -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ConsensusPeerMessage where - parseJSON :: Value -> Parser ConsensusPeerMessage -parseJSON = Value -> Parser ConsensusPeerMessage +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ConsensusPeerMessage where + parseJSON :: Value -> Parser ConsensusPeerMessage +parseJSON = Value -> Parser ConsensusPeerMessage forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ConsensusPeerMessage where - declareNamedSchema :: Proxy ConsensusPeerMessage +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ConsensusPeerMessage where + declareNamedSchema :: Proxy ConsensusPeerMessage -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_header :: Proxy (OverrideToSchema ByteString) +declareNamedSchema Proxy ConsensusPeerMessage +_ + = do let declare_header :: Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_header = Proxy (OverrideToSchema ByteString) +declare_header = Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -consensusPeerMessageHeader <- Proxy (OverrideToSchema ByteString) +HsJSONPB.declareSchemaRef + Referenced Schema +consensusPeerMessageHeader <- Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_header Proxy (OverrideToSchema ByteString) +declare_header Proxy (OverrideToSchema ByteString) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_header_signature :: Proxy (OverrideToSchema ByteString) +Proxy.Proxy + let declare_header_signature :: Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_header_signature = Proxy (OverrideToSchema ByteString) +declare_header_signature = Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -consensusPeerMessageHeaderSignature <- Proxy (OverrideToSchema ByteString) +HsJSONPB.declareSchemaRef + Referenced Schema +consensusPeerMessageHeaderSignature <- Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_header_signature - Proxy (OverrideToSchema ByteString) +declare_header_signature + Proxy (OverrideToSchema ByteString) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_content :: Proxy (OverrideToSchema ByteString) +Proxy.Proxy + let declare_content :: Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_content = Proxy (OverrideToSchema ByteString) +declare_content = Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -consensusPeerMessageContent <- Proxy (OverrideToSchema ByteString) +HsJSONPB.declareSchemaRef + Referenced Schema +consensusPeerMessageContent <- Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_content Proxy (OverrideToSchema ByteString) +declare_content Proxy (OverrideToSchema ByteString) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ConsensusPeerMessage +Proxy.Proxy + let Proxy ConsensusPeerMessage _ = (ByteString -> ByteString -> ByteString -> ConsensusPeerMessage) -> Proxy (ByteString -> ByteString -> ByteString -> ConsensusPeerMessage) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString -> ByteString -> ByteString -> ConsensusPeerMessage +Hs.pure ByteString -> ByteString -> ByteString -> ConsensusPeerMessage ConsensusPeerMessage Proxy (ByteString -> ByteString -> ByteString -> ConsensusPeerMessage) -> Proxy ByteString -> Proxy (ByteString -> ByteString -> ConsensusPeerMessage) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema ByteString) +<*> + (Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy ByteString forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) +HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_header - Proxy (ByteString -> ByteString -> ConsensusPeerMessage) +declare_header + Proxy (ByteString -> ByteString -> ConsensusPeerMessage) -> Proxy ByteString -> Proxy (ByteString -> ConsensusPeerMessage) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema ByteString) +<*> (Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy ByteString forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) +HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_header_signature - Proxy (ByteString -> ConsensusPeerMessage) +declare_header_signature + Proxy (ByteString -> ConsensusPeerMessage) -> Proxy ByteString -> Proxy ConsensusPeerMessage forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema ByteString) +<*> (Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy ByteString forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) +HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_content - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_content + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ConsensusPeerMessage", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ConsensusPeerMessage", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("header", Referenced Schema -consensusPeerMessageHeader), - ("header_signature", - Referenced Schema -consensusPeerMessageHeaderSignature), - ("content", Referenced Schema -consensusPeerMessageContent)]}}) - -data ConsensusBlock = ConsensusBlock{ConsensusBlock -> ByteString +HsJSONPB.insOrdFromList + [(Text +"header", Referenced Schema +consensusPeerMessageHeader), + (Text +"header_signature", + Referenced Schema +consensusPeerMessageHeaderSignature), + (Text +"content", Referenced Schema +consensusPeerMessageContent)]}}) + +data ConsensusBlock = ConsensusBlock{ConsensusBlock -> ByteString consensusBlockBlockId :: - Hs.ByteString, - ConsensusBlock -> ByteString -consensusBlockPreviousId :: Hs.ByteString, - ConsensusBlock -> ByteString -consensusBlockSignerId :: Hs.ByteString, - ConsensusBlock -> Word64 -consensusBlockBlockNum :: Hs.Word64, - ConsensusBlock -> ByteString -consensusBlockPayload :: Hs.ByteString, - ConsensusBlock -> ByteString -consensusBlockSummary :: Hs.ByteString} - deriving (Int -> ConsensusBlock -> ShowS + Hs.ByteString, + ConsensusBlock -> ByteString +consensusBlockPreviousId :: Hs.ByteString, + ConsensusBlock -> ByteString +consensusBlockSignerId :: Hs.ByteString, + ConsensusBlock -> Word64 +consensusBlockBlockNum :: Hs.Word64, + ConsensusBlock -> ByteString +consensusBlockPayload :: Hs.ByteString, + ConsensusBlock -> ByteString +consensusBlockSummary :: Hs.ByteString} + deriving (Int -> ConsensusBlock -> ShowS [ConsensusBlock] -> ShowS ConsensusBlock -> String (Int -> ConsensusBlock -> ShowS) @@ -1258,7 +1345,7 @@ show :: ConsensusBlock -> String $cshow :: ConsensusBlock -> String showsPrec :: Int -> ConsensusBlock -> ShowS $cshowsPrec :: Int -> ConsensusBlock -> ShowS -Hs.Show, ConsensusBlock -> ConsensusBlock -> Bool +Hs.Show, ConsensusBlock -> ConsensusBlock -> Bool (ConsensusBlock -> ConsensusBlock -> Bool) -> (ConsensusBlock -> ConsensusBlock -> Bool) -> Eq ConsensusBlock forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a @@ -1266,9 +1353,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: ConsensusBlock -> ConsensusBlock -> Bool == :: ConsensusBlock -> ConsensusBlock -> Bool $c== :: ConsensusBlock -> ConsensusBlock -> Bool -Hs.Eq, Eq ConsensusBlock -Eq ConsensusBlock => -(ConsensusBlock -> ConsensusBlock -> Ordering) +Hs.Eq, Eq ConsensusBlock +Eq ConsensusBlock +-> (ConsensusBlock -> ConsensusBlock -> Ordering) -> (ConsensusBlock -> ConsensusBlock -> Bool) -> (ConsensusBlock -> ConsensusBlock -> Bool) -> (ConsensusBlock -> ConsensusBlock -> Bool) @@ -1280,8 +1367,8 @@ ConsensusBlock -> ConsensusBlock -> Bool ConsensusBlock -> ConsensusBlock -> Ordering ConsensusBlock -> ConsensusBlock -> ConsensusBlock forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -1304,7 +1391,7 @@ $c< :: ConsensusBlock -> ConsensusBlock -> Bool compare :: ConsensusBlock -> ConsensusBlock -> Ordering $ccompare :: ConsensusBlock -> ConsensusBlock -> Ordering $cp1Ord :: Eq ConsensusBlock -Hs.Ord, (forall x. ConsensusBlock -> Rep ConsensusBlock x) +Hs.Ord, (forall x. ConsensusBlock -> Rep ConsensusBlock x) -> (forall x. Rep ConsensusBlock x -> ConsensusBlock) -> Generic ConsensusBlock forall x. Rep ConsensusBlock x -> ConsensusBlock @@ -1313,84 +1400,94 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep ConsensusBlock x -> ConsensusBlock $cfrom :: forall x. ConsensusBlock -> Rep ConsensusBlock x -Hs.Generic, ConsensusBlock -> () +Hs.Generic, ConsensusBlock -> () (ConsensusBlock -> ()) -> NFData ConsensusBlock forall a. (a -> ()) -> NFData a rnf :: ConsensusBlock -> () $crnf :: ConsensusBlock -> () -Hs.NFData) - -instance HsProtobuf.Named ConsensusBlock where - nameOf :: Proxy# ConsensusBlock -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ConsensusBlock where + nameOf :: Proxy# ConsensusBlock -> string +nameOf Proxy# ConsensusBlock +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ConsensusBlock") - -instance HsProtobuf.HasDefault ConsensusBlock - -instance HsProtobuf.Message ConsensusBlock where - encodeMessage :: FieldNumber -> ConsensusBlock -> MessageBuilder -encodeMessage _ - ConsensusBlock{consensusBlockBlockId :: ConsensusBlock -> ByteString -consensusBlockBlockId = ByteString -consensusBlockBlockId, - consensusBlockPreviousId :: ConsensusBlock -> ByteString -consensusBlockPreviousId = ByteString -consensusBlockPreviousId, - consensusBlockSignerId :: ConsensusBlock -> ByteString -consensusBlockSignerId = ByteString -consensusBlockSignerId, - consensusBlockBlockNum :: ConsensusBlock -> Word64 -consensusBlockBlockNum = Word64 -consensusBlockBlockNum, - consensusBlockPayload :: ConsensusBlock -> ByteString -consensusBlockPayload = ByteString -consensusBlockPayload, - consensusBlockSummary :: ConsensusBlock -> ByteString -consensusBlockSummary = ByteString -consensusBlockSummary} - = ([MessageBuilder] -> MessageBuilder +Hs.fromString String +"ConsensusBlock") + +instance HsProtobuf.HasDefault ConsensusBlock + +instance HsProtobuf.Message ConsensusBlock where + encodeMessage :: FieldNumber -> ConsensusBlock -> MessageBuilder +encodeMessage FieldNumber +_ + ConsensusBlock{consensusBlockBlockId :: ConsensusBlock -> ByteString +consensusBlockBlockId = ByteString +consensusBlockBlockId, + consensusBlockPreviousId :: ConsensusBlock -> ByteString +consensusBlockPreviousId = ByteString +consensusBlockPreviousId, + consensusBlockSignerId :: ConsensusBlock -> ByteString +consensusBlockSignerId = ByteString +consensusBlockSignerId, + consensusBlockBlockNum :: ConsensusBlock -> Word64 +consensusBlockBlockNum = Word64 +consensusBlockBlockNum, + consensusBlockPayload :: ConsensusBlock -> ByteString +consensusBlockPayload = ByteString +consensusBlockPayload, + consensusBlockSummary :: ConsensusBlock -> ByteString +consensusBlockSummary = ByteString +consensusBlockSummary} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> ByteString -> MessageBuilder +Hs.mconcat + [(FieldNumber -> ByteString -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - ByteString -consensusBlockBlockId), - (FieldNumber -> ByteString -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + ByteString +consensusBlockBlockId), + (FieldNumber -> ByteString -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - ByteString -consensusBlockPreviousId), - (FieldNumber -> ByteString -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + ByteString +consensusBlockPreviousId), + (FieldNumber -> ByteString -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - ByteString -consensusBlockSignerId), - (FieldNumber -> Word64 -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + ByteString +consensusBlockSignerId), + (FieldNumber -> Word64 -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 4) - Word64 -consensusBlockBlockNum), - (FieldNumber -> ByteString -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +4) + Word64 +consensusBlockBlockNum), + (FieldNumber -> ByteString -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 5) - ByteString -consensusBlockPayload), - (FieldNumber -> ByteString -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +5) + ByteString +consensusBlockPayload), + (FieldNumber -> ByteString -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 6) - ByteString -consensusBlockSummary)]) - decodeMessage :: FieldNumber -> Parser RawMessage ConsensusBlock -decodeMessage _ - = ((ByteString +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +6) + ByteString +consensusBlockSummary)]) + decodeMessage :: FieldNumber -> Parser RawMessage ConsensusBlock +decodeMessage FieldNumber +_ + = ((ByteString -> ByteString -> ByteString -> Word64 @@ -1407,7 +1504,7 @@ forall a. MessageField a => FieldNumber -> a -> MessageBuilder -> ByteString -> ConsensusBlock) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString +Hs.pure ByteString -> ByteString -> ByteString -> Word64 @@ -1433,16 +1530,17 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> ByteString -> ConsensusBlock) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField ByteString +<*> + (Parser RawField ByteString -> FieldNumber -> Parser RawMessage ByteString forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField ByteString +HsProtobuf.at Parser RawField ByteString forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (ByteString -> ByteString @@ -1456,16 +1554,17 @@ forall a. MessageField a => Parser RawField a (ByteString -> Word64 -> ByteString -> ByteString -> ConsensusBlock) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField ByteString +<*> + (Parser RawField ByteString -> FieldNumber -> Parser RawMessage ByteString forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField ByteString +HsProtobuf.at Parser RawField ByteString forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2)) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2)) + Parser RawMessage (ByteString -> Word64 -> ByteString -> ByteString -> ConsensusBlock) @@ -1473,244 +1572,280 @@ forall a. MessageField a => Parser RawField a -> Parser RawMessage (Word64 -> ByteString -> ByteString -> ConsensusBlock) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField ByteString +<*> + (Parser RawField ByteString -> FieldNumber -> Parser RawMessage ByteString forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField ByteString +HsProtobuf.at Parser RawField ByteString forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3)) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3)) + Parser RawMessage (Word64 -> ByteString -> ByteString -> ConsensusBlock) -> Parser RawMessage Word64 -> Parser RawMessage (ByteString -> ByteString -> ConsensusBlock) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Word64 -> FieldNumber -> Parser RawMessage Word64 +<*> + (Parser RawField Word64 -> FieldNumber -> Parser RawMessage Word64 forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Word64 +HsProtobuf.at Parser RawField Word64 forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 4)) - Parser RawMessage (ByteString -> ByteString -> ConsensusBlock) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +4)) + Parser RawMessage (ByteString -> ByteString -> ConsensusBlock) -> Parser RawMessage ByteString -> Parser RawMessage (ByteString -> ConsensusBlock) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField ByteString +<*> + (Parser RawField ByteString -> FieldNumber -> Parser RawMessage ByteString forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField ByteString +HsProtobuf.at Parser RawField ByteString forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 5)) - Parser RawMessage (ByteString -> ConsensusBlock) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +5)) + Parser RawMessage (ByteString -> ConsensusBlock) -> Parser RawMessage ByteString -> Parser RawMessage ConsensusBlock forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField ByteString +<*> + (Parser RawField ByteString -> FieldNumber -> Parser RawMessage ByteString forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField ByteString +HsProtobuf.at Parser RawField ByteString forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 6)) - dotProto :: Proxy# ConsensusBlock -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +6)) + dotProto :: Proxy# ConsensusBlock -> [DotProtoField] +dotProto Proxy# ConsensusBlock +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.Bytes) - (String -> DotProtoIdentifier -HsProtobuf.Single "block_id") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.Bytes) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"block_id") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.Bytes) - (String -> DotProtoIdentifier -HsProtobuf.Single "previous_id") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.Bytes) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"previous_id") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.Bytes) - (String -> DotProtoIdentifier -HsProtobuf.Single "signer_id") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.Bytes) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"signer_id") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 4) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.UInt64) - (String -> DotProtoIdentifier -HsProtobuf.Single "block_num") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +4) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.UInt64) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"block_num") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 5) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.Bytes) - (String -> DotProtoIdentifier -HsProtobuf.Single "payload") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +5) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.Bytes) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"payload") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 6) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.Bytes) - (String -> DotProtoIdentifier -HsProtobuf.Single "summary") - [] - "")] - -instance HsJSONPB.ToJSONPB ConsensusBlock where - toJSONPB :: ConsensusBlock -> Options -> Value -toJSONPB (ConsensusBlock f1 :: ByteString -f1 f2 :: ByteString -f2 f3 :: ByteString -f3 f4 :: Word64 -f4 f5 :: ByteString -f5 f6 :: ByteString -f6) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object - ["block_id" Text -> ByteString -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +6) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.Bytes) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"summary") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ConsensusBlock where + toJSONPB :: ConsensusBlock -> Options -> Value +toJSONPB (ConsensusBlock ByteString +f1 ByteString +f2 ByteString +f3 Word64 +f4 ByteString +f5 ByteString +f6) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object + [Text +"block_id" Text -> ByteString -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f1, "previous_id" Text -> ByteString -> Options -> [Pair] +.= ByteString +f1, Text +"previous_id" Text -> ByteString -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f2, "signer_id" Text -> ByteString -> Options -> [Pair] +.= ByteString +f2, Text +"signer_id" Text -> ByteString -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f3, - "block_num" Text -> Word64 -> Options -> [Pair] +.= ByteString +f3, + Text +"block_num" Text -> Word64 -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Word64 -f4, "payload" Text -> ByteString -> Options -> [Pair] +.= Word64 +f4, Text +"payload" Text -> ByteString -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f5, "summary" Text -> ByteString -> Options -> [Pair] +.= ByteString +f5, Text +"summary" Text -> ByteString -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f6]) - toEncodingPB :: ConsensusBlock -> Options -> Encoding -toEncodingPB (ConsensusBlock f1 :: ByteString -f1 f2 :: ByteString -f2 f3 :: ByteString -f3 f4 :: Word64 -f4 f5 :: ByteString -f5 f6 :: ByteString -f6) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs - ["block_id" Text -> ByteString -> Options -> Series +.= ByteString +f6]) + toEncodingPB :: ConsensusBlock -> Options -> Encoding +toEncodingPB (ConsensusBlock ByteString +f1 ByteString +f2 ByteString +f3 Word64 +f4 ByteString +f5 ByteString +f6) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs + [Text +"block_id" Text -> ByteString -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f1, "previous_id" Text -> ByteString -> Options -> Series +.= ByteString +f1, Text +"previous_id" Text -> ByteString -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f2, "signer_id" Text -> ByteString -> Options -> Series +.= ByteString +f2, Text +"signer_id" Text -> ByteString -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f3, - "block_num" Text -> Word64 -> Options -> Series +.= ByteString +f3, + Text +"block_num" Text -> Word64 -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Word64 -f4, "payload" Text -> ByteString -> Options -> Series +.= Word64 +f4, Text +"payload" Text -> ByteString -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f5, "summary" Text -> ByteString -> Options -> Series +.= ByteString +f5, Text +"summary" Text -> ByteString -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f6]) - -instance HsJSONPB.FromJSONPB ConsensusBlock where - parseJSONPB :: Value -> Parser ConsensusBlock -parseJSONPB - = (String +.= ByteString +f6]) + +instance HsJSONPB.FromJSONPB ConsensusBlock where + parseJSONPB :: Value -> Parser ConsensusBlock +parseJSONPB + = (String -> (Object -> Parser ConsensusBlock) -> Value -> Parser ConsensusBlock forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ConsensusBlock" - (\ obj :: Object -obj -> - ((ByteString +HsJSONPB.withObject String +"ConsensusBlock" + (\ Object +obj -> + ((ByteString -> ByteString -> ByteString -> Word64 @@ -1726,7 +1861,7 @@ forall a. String -> (Object -> Parser a) -> Value -> Parser a -> ByteString -> ConsensusBlock) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString +Hs.pure ByteString -> ByteString -> ByteString -> Word64 @@ -1750,12 +1885,13 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> ByteString -> ConsensusBlock) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser ByteString +<*> Object +obj Object -> Text -> Parser ByteString forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "block_id" Parser +.: Text +"block_id" Parser (ByteString -> ByteString -> Word64 @@ -1767,158 +1903,164 @@ Object -> Text -> Parser a (ByteString -> Word64 -> ByteString -> ByteString -> ConsensusBlock) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser ByteString +<*> + Object +obj Object -> Text -> Parser ByteString forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "previous_id" - Parser +.: Text +"previous_id" + Parser (ByteString -> Word64 -> ByteString -> ByteString -> ConsensusBlock) -> Parser ByteString -> Parser (Word64 -> ByteString -> ByteString -> ConsensusBlock) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser ByteString +<*> Object +obj Object -> Text -> Parser ByteString forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "signer_id" - Parser (Word64 -> ByteString -> ByteString -> ConsensusBlock) +.: Text +"signer_id" + Parser (Word64 -> ByteString -> ByteString -> ConsensusBlock) -> Parser Word64 -> Parser (ByteString -> ByteString -> ConsensusBlock) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Word64 +<*> Object +obj Object -> Text -> Parser Word64 forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "block_num" - Parser (ByteString -> ByteString -> ConsensusBlock) +.: Text +"block_num" + Parser (ByteString -> ByteString -> ConsensusBlock) -> Parser ByteString -> Parser (ByteString -> ConsensusBlock) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser ByteString +<*> Object +obj Object -> Text -> Parser ByteString forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "payload" - Parser (ByteString -> ConsensusBlock) +.: Text +"payload" + Parser (ByteString -> ConsensusBlock) -> Parser ByteString -> Parser ConsensusBlock forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser ByteString +<*> Object +obj Object -> Text -> Parser ByteString forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "summary")) - -instance HsJSONPB.ToJSON ConsensusBlock where - toJSON :: ConsensusBlock -> Value -toJSON = ConsensusBlock -> Value +.: Text +"summary")) + +instance HsJSONPB.ToJSON ConsensusBlock where + toJSON :: ConsensusBlock -> Value +toJSON = ConsensusBlock -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ConsensusBlock -> Encoding -toEncoding = ConsensusBlock -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ConsensusBlock -> Encoding +toEncoding = ConsensusBlock -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ConsensusBlock where - parseJSON :: Value -> Parser ConsensusBlock -parseJSON = Value -> Parser ConsensusBlock +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ConsensusBlock where + parseJSON :: Value -> Parser ConsensusBlock +parseJSON = Value -> Parser ConsensusBlock forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ConsensusBlock where - declareNamedSchema :: Proxy ConsensusBlock -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_block_id :: Proxy (OverrideToSchema ByteString) +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ConsensusBlock where + declareNamedSchema :: Proxy ConsensusBlock -> Declare (Definitions Schema) NamedSchema +declareNamedSchema Proxy ConsensusBlock +_ + = do let declare_block_id :: Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_block_id = Proxy (OverrideToSchema ByteString) +declare_block_id = Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -consensusBlockBlockId <- Proxy (OverrideToSchema ByteString) +HsJSONPB.declareSchemaRef + Referenced Schema +consensusBlockBlockId <- Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_block_id Proxy (OverrideToSchema ByteString) +declare_block_id Proxy (OverrideToSchema ByteString) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_previous_id :: Proxy (OverrideToSchema ByteString) +Proxy.Proxy + let declare_previous_id :: Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_previous_id = Proxy (OverrideToSchema ByteString) +declare_previous_id = Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -consensusBlockPreviousId <- Proxy (OverrideToSchema ByteString) +HsJSONPB.declareSchemaRef + Referenced Schema +consensusBlockPreviousId <- Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_previous_id Proxy (OverrideToSchema ByteString) +declare_previous_id Proxy (OverrideToSchema ByteString) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_signer_id :: Proxy (OverrideToSchema ByteString) +Proxy.Proxy + let declare_signer_id :: Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_signer_id = Proxy (OverrideToSchema ByteString) +declare_signer_id = Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -consensusBlockSignerId <- Proxy (OverrideToSchema ByteString) +HsJSONPB.declareSchemaRef + Referenced Schema +consensusBlockSignerId <- Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_signer_id Proxy (OverrideToSchema ByteString) +declare_signer_id Proxy (OverrideToSchema ByteString) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_block_num :: Proxy (OverrideToSchema Word64) +Proxy.Proxy + let declare_block_num :: Proxy (OverrideToSchema Word64) -> Declare (Definitions Schema) (Referenced Schema) -declare_block_num = Proxy (OverrideToSchema Word64) +declare_block_num = Proxy (OverrideToSchema Word64) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -consensusBlockBlockNum <- Proxy (OverrideToSchema Word64) +HsJSONPB.declareSchemaRef + Referenced Schema +consensusBlockBlockNum <- Proxy (OverrideToSchema Word64) -> Declare (Definitions Schema) (Referenced Schema) -declare_block_num Proxy (OverrideToSchema Word64) +declare_block_num Proxy (OverrideToSchema Word64) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_payload :: Proxy (OverrideToSchema ByteString) +Proxy.Proxy + let declare_payload :: Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_payload = Proxy (OverrideToSchema ByteString) +declare_payload = Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -consensusBlockPayload <- Proxy (OverrideToSchema ByteString) +HsJSONPB.declareSchemaRef + Referenced Schema +consensusBlockPayload <- Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_payload Proxy (OverrideToSchema ByteString) +declare_payload Proxy (OverrideToSchema ByteString) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_summary :: Proxy (OverrideToSchema ByteString) +Proxy.Proxy + let declare_summary :: Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_summary = Proxy (OverrideToSchema ByteString) +declare_summary = Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -consensusBlockSummary <- Proxy (OverrideToSchema ByteString) +HsJSONPB.declareSchemaRef + Referenced Schema +consensusBlockSummary <- Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_summary Proxy (OverrideToSchema ByteString) +declare_summary Proxy (OverrideToSchema ByteString) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ConsensusBlock +Proxy.Proxy + let Proxy ConsensusBlock _ = (ByteString -> ByteString -> ByteString @@ -1935,7 +2077,7 @@ forall k (t :: k). Proxy t -> ByteString -> ConsensusBlock) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString +Hs.pure ByteString -> ByteString -> ByteString -> Word64 @@ -1959,15 +2101,15 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> ByteString -> ConsensusBlock) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema ByteString) +<*> + (Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy ByteString forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) +HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_block_id - Proxy +declare_block_id + Proxy (ByteString -> ByteString -> Word64 @@ -1979,104 +2121,111 @@ forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a (ByteString -> Word64 -> ByteString -> ByteString -> ConsensusBlock) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema ByteString) +<*> (Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy ByteString forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) +HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_previous_id - Proxy +declare_previous_id + Proxy (ByteString -> Word64 -> ByteString -> ByteString -> ConsensusBlock) -> Proxy ByteString -> Proxy (Word64 -> ByteString -> ByteString -> ConsensusBlock) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema ByteString) +<*> (Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy ByteString forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) +HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_signer_id - Proxy (Word64 -> ByteString -> ByteString -> ConsensusBlock) +declare_signer_id + Proxy (Word64 -> ByteString -> ByteString -> ConsensusBlock) -> Proxy Word64 -> Proxy (ByteString -> ByteString -> ConsensusBlock) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema Word64) +<*> (Proxy (OverrideToSchema Word64) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Word64 forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Word64) +HsJSONPB.asProxy Proxy (OverrideToSchema Word64) -> Declare (Definitions Schema) (Referenced Schema) -declare_block_num - Proxy (ByteString -> ByteString -> ConsensusBlock) +declare_block_num + Proxy (ByteString -> ByteString -> ConsensusBlock) -> Proxy ByteString -> Proxy (ByteString -> ConsensusBlock) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema ByteString) +<*> (Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy ByteString forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) +HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_payload - Proxy (ByteString -> ConsensusBlock) +declare_payload + Proxy (ByteString -> ConsensusBlock) -> Proxy ByteString -> Proxy ConsensusBlock forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema ByteString) +<*> (Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy ByteString forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) +HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_summary - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_summary + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ConsensusBlock", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ConsensusBlock", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("block_id", Referenced Schema -consensusBlockBlockId), - ("previous_id", Referenced Schema -consensusBlockPreviousId), - ("signer_id", Referenced Schema -consensusBlockSignerId), - ("block_num", Referenced Schema -consensusBlockBlockNum), - ("payload", Referenced Schema -consensusBlockPayload), - ("summary", Referenced Schema -consensusBlockSummary)]}}) - -newtype ConsensusPeerInfo = ConsensusPeerInfo{ConsensusPeerInfo -> ByteString +HsJSONPB.insOrdFromList + [(Text +"block_id", Referenced Schema +consensusBlockBlockId), + (Text +"previous_id", Referenced Schema +consensusBlockPreviousId), + (Text +"signer_id", Referenced Schema +consensusBlockSignerId), + (Text +"block_num", Referenced Schema +consensusBlockBlockNum), + (Text +"payload", Referenced Schema +consensusBlockPayload), + (Text +"summary", Referenced Schema +consensusBlockSummary)]}}) + +newtype ConsensusPeerInfo = ConsensusPeerInfo{ConsensusPeerInfo -> ByteString consensusPeerInfoPeerId - :: Hs.ByteString} - deriving (Int -> ConsensusPeerInfo -> ShowS + :: Hs.ByteString} + deriving (Int -> ConsensusPeerInfo -> ShowS [ConsensusPeerInfo] -> ShowS ConsensusPeerInfo -> String (Int -> ConsensusPeerInfo -> ShowS) @@ -2091,7 +2240,7 @@ show :: ConsensusPeerInfo -> String $cshow :: ConsensusPeerInfo -> String showsPrec :: Int -> ConsensusPeerInfo -> ShowS $cshowsPrec :: Int -> ConsensusPeerInfo -> ShowS -Hs.Show, ConsensusPeerInfo -> ConsensusPeerInfo -> Bool +Hs.Show, ConsensusPeerInfo -> ConsensusPeerInfo -> Bool (ConsensusPeerInfo -> ConsensusPeerInfo -> Bool) -> (ConsensusPeerInfo -> ConsensusPeerInfo -> Bool) -> Eq ConsensusPeerInfo @@ -2100,9 +2249,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: ConsensusPeerInfo -> ConsensusPeerInfo -> Bool == :: ConsensusPeerInfo -> ConsensusPeerInfo -> Bool $c== :: ConsensusPeerInfo -> ConsensusPeerInfo -> Bool -Hs.Eq, Eq ConsensusPeerInfo -Eq ConsensusPeerInfo => -(ConsensusPeerInfo -> ConsensusPeerInfo -> Ordering) +Hs.Eq, Eq ConsensusPeerInfo +Eq ConsensusPeerInfo +-> (ConsensusPeerInfo -> ConsensusPeerInfo -> Ordering) -> (ConsensusPeerInfo -> ConsensusPeerInfo -> Bool) -> (ConsensusPeerInfo -> ConsensusPeerInfo -> Bool) -> (ConsensusPeerInfo -> ConsensusPeerInfo -> Bool) @@ -2114,8 +2263,8 @@ ConsensusPeerInfo -> ConsensusPeerInfo -> Bool ConsensusPeerInfo -> ConsensusPeerInfo -> Ordering ConsensusPeerInfo -> ConsensusPeerInfo -> ConsensusPeerInfo forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -2138,7 +2287,7 @@ $c< :: ConsensusPeerInfo -> ConsensusPeerInfo -> Bool compare :: ConsensusPeerInfo -> ConsensusPeerInfo -> Ordering $ccompare :: ConsensusPeerInfo -> ConsensusPeerInfo -> Ordering $cp1Ord :: Eq ConsensusPeerInfo -Hs.Ord, (forall x. ConsensusPeerInfo -> Rep ConsensusPeerInfo x) +Hs.Ord, (forall x. ConsensusPeerInfo -> Rep ConsensusPeerInfo x) -> (forall x. Rep ConsensusPeerInfo x -> ConsensusPeerInfo) -> Generic ConsensusPeerInfo forall x. Rep ConsensusPeerInfo x -> ConsensusPeerInfo @@ -2147,208 +2296,225 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep ConsensusPeerInfo x -> ConsensusPeerInfo $cfrom :: forall x. ConsensusPeerInfo -> Rep ConsensusPeerInfo x -Hs.Generic, ConsensusPeerInfo -> () +Hs.Generic, ConsensusPeerInfo -> () (ConsensusPeerInfo -> ()) -> NFData ConsensusPeerInfo forall a. (a -> ()) -> NFData a rnf :: ConsensusPeerInfo -> () $crnf :: ConsensusPeerInfo -> () -Hs.NFData) - -instance HsProtobuf.Named ConsensusPeerInfo where - nameOf :: Proxy# ConsensusPeerInfo -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ConsensusPeerInfo where + nameOf :: Proxy# ConsensusPeerInfo -> string +nameOf Proxy# ConsensusPeerInfo +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ConsensusPeerInfo") - -instance HsProtobuf.HasDefault ConsensusPeerInfo - -instance HsProtobuf.Message ConsensusPeerInfo where - encodeMessage :: FieldNumber -> ConsensusPeerInfo -> MessageBuilder -encodeMessage _ - ConsensusPeerInfo{consensusPeerInfoPeerId :: ConsensusPeerInfo -> ByteString +Hs.fromString String +"ConsensusPeerInfo") + +instance HsProtobuf.HasDefault ConsensusPeerInfo + +instance HsProtobuf.Message ConsensusPeerInfo where + encodeMessage :: FieldNumber -> ConsensusPeerInfo -> MessageBuilder +encodeMessage FieldNumber +_ + ConsensusPeerInfo{consensusPeerInfoPeerId :: ConsensusPeerInfo -> ByteString consensusPeerInfoPeerId = - ByteString -consensusPeerInfoPeerId} - = ([MessageBuilder] -> MessageBuilder + ByteString +consensusPeerInfoPeerId} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> ByteString -> MessageBuilder +Hs.mconcat + [(FieldNumber -> ByteString -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - ByteString -consensusPeerInfoPeerId)]) - decodeMessage :: FieldNumber -> Parser RawMessage ConsensusPeerInfo -decodeMessage _ - = ((ByteString -> ConsensusPeerInfo) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + ByteString +consensusPeerInfoPeerId)]) + decodeMessage :: FieldNumber -> Parser RawMessage ConsensusPeerInfo +decodeMessage FieldNumber +_ + = ((ByteString -> ConsensusPeerInfo) -> Parser RawMessage (ByteString -> ConsensusPeerInfo) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString -> ConsensusPeerInfo +Hs.pure ByteString -> ConsensusPeerInfo ConsensusPeerInfo) Parser RawMessage (ByteString -> ConsensusPeerInfo) -> Parser RawMessage ByteString -> Parser RawMessage ConsensusPeerInfo forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField ByteString +<*> + (Parser RawField ByteString -> FieldNumber -> Parser RawMessage ByteString forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField ByteString +HsProtobuf.at Parser RawField ByteString forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - dotProto :: Proxy# ConsensusPeerInfo -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + dotProto :: Proxy# ConsensusPeerInfo -> [DotProtoField] +dotProto Proxy# ConsensusPeerInfo +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.Bytes) - (String -> DotProtoIdentifier -HsProtobuf.Single "peer_id") - [] - "")] - -instance HsJSONPB.ToJSONPB ConsensusPeerInfo where - toJSONPB :: ConsensusPeerInfo -> Options -> Value -toJSONPB (ConsensusPeerInfo f1 :: ByteString -f1) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["peer_id" Text -> ByteString -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.Bytes) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"peer_id") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ConsensusPeerInfo where + toJSONPB :: ConsensusPeerInfo -> Options -> Value +toJSONPB (ConsensusPeerInfo ByteString +f1) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"peer_id" Text -> ByteString -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f1]) - toEncodingPB :: ConsensusPeerInfo -> Options -> Encoding -toEncodingPB (ConsensusPeerInfo f1 :: ByteString -f1) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["peer_id" Text -> ByteString -> Options -> Series +.= ByteString +f1]) + toEncodingPB :: ConsensusPeerInfo -> Options -> Encoding +toEncodingPB (ConsensusPeerInfo ByteString +f1) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"peer_id" Text -> ByteString -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f1]) - -instance HsJSONPB.FromJSONPB ConsensusPeerInfo where - parseJSONPB :: Value -> Parser ConsensusPeerInfo -parseJSONPB - = (String +.= ByteString +f1]) + +instance HsJSONPB.FromJSONPB ConsensusPeerInfo where + parseJSONPB :: Value -> Parser ConsensusPeerInfo +parseJSONPB + = (String -> (Object -> Parser ConsensusPeerInfo) -> Value -> Parser ConsensusPeerInfo forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ConsensusPeerInfo" - (\ obj :: Object -obj -> ((ByteString -> ConsensusPeerInfo) +HsJSONPB.withObject String +"ConsensusPeerInfo" + (\ Object +obj -> ((ByteString -> ConsensusPeerInfo) -> Parser (ByteString -> ConsensusPeerInfo) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString -> ConsensusPeerInfo +Hs.pure ByteString -> ConsensusPeerInfo ConsensusPeerInfo) Parser (ByteString -> ConsensusPeerInfo) -> Parser ByteString -> Parser ConsensusPeerInfo forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser ByteString +<*> Object +obj Object -> Text -> Parser ByteString forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "peer_id")) - -instance HsJSONPB.ToJSON ConsensusPeerInfo where - toJSON :: ConsensusPeerInfo -> Value -toJSON = ConsensusPeerInfo -> Value +.: Text +"peer_id")) + +instance HsJSONPB.ToJSON ConsensusPeerInfo where + toJSON :: ConsensusPeerInfo -> Value +toJSON = ConsensusPeerInfo -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ConsensusPeerInfo -> Encoding -toEncoding = ConsensusPeerInfo -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ConsensusPeerInfo -> Encoding +toEncoding = ConsensusPeerInfo -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ConsensusPeerInfo where - parseJSON :: Value -> Parser ConsensusPeerInfo -parseJSON = Value -> Parser ConsensusPeerInfo +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ConsensusPeerInfo where + parseJSON :: Value -> Parser ConsensusPeerInfo +parseJSON = Value -> Parser ConsensusPeerInfo forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ConsensusPeerInfo where - declareNamedSchema :: Proxy ConsensusPeerInfo -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_peer_id :: Proxy (OverrideToSchema ByteString) +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ConsensusPeerInfo where + declareNamedSchema :: Proxy ConsensusPeerInfo -> Declare (Definitions Schema) NamedSchema +declareNamedSchema Proxy ConsensusPeerInfo +_ + = do let declare_peer_id :: Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_peer_id = Proxy (OverrideToSchema ByteString) +declare_peer_id = Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -consensusPeerInfoPeerId <- Proxy (OverrideToSchema ByteString) +HsJSONPB.declareSchemaRef + Referenced Schema +consensusPeerInfoPeerId <- Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_peer_id Proxy (OverrideToSchema ByteString) +declare_peer_id Proxy (OverrideToSchema ByteString) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ConsensusPeerInfo +Proxy.Proxy + let Proxy ConsensusPeerInfo _ = (ByteString -> ConsensusPeerInfo) -> Proxy (ByteString -> ConsensusPeerInfo) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString -> ConsensusPeerInfo +Hs.pure ByteString -> ConsensusPeerInfo ConsensusPeerInfo Proxy (ByteString -> ConsensusPeerInfo) -> Proxy ByteString -> Proxy ConsensusPeerInfo forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema ByteString) +<*> + (Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy ByteString forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) +HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_peer_id - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_peer_id + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ConsensusPeerInfo", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ConsensusPeerInfo", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("peer_id", Referenced Schema -consensusPeerInfoPeerId)]}}) - -data ConsensusSettingsEntry = ConsensusSettingsEntry{ConsensusSettingsEntry -> Text +HsJSONPB.insOrdFromList + [(Text +"peer_id", Referenced Schema +consensusPeerInfoPeerId)]}}) + +data ConsensusSettingsEntry = ConsensusSettingsEntry{ConsensusSettingsEntry -> Text consensusSettingsEntryKey - :: Hs.Text, - ConsensusSettingsEntry -> Text -consensusSettingsEntryValue :: Hs.Text} - deriving (Int -> ConsensusSettingsEntry -> ShowS + :: Hs.Text, + ConsensusSettingsEntry -> Text +consensusSettingsEntryValue :: Hs.Text} + deriving (Int -> ConsensusSettingsEntry -> ShowS [ConsensusSettingsEntry] -> ShowS ConsensusSettingsEntry -> String (Int -> ConsensusSettingsEntry -> ShowS) @@ -2363,7 +2529,7 @@ show :: ConsensusSettingsEntry -> String $cshow :: ConsensusSettingsEntry -> String showsPrec :: Int -> ConsensusSettingsEntry -> ShowS $cshowsPrec :: Int -> ConsensusSettingsEntry -> ShowS -Hs.Show, ConsensusSettingsEntry -> ConsensusSettingsEntry -> Bool +Hs.Show, ConsensusSettingsEntry -> ConsensusSettingsEntry -> Bool (ConsensusSettingsEntry -> ConsensusSettingsEntry -> Bool) -> (ConsensusSettingsEntry -> ConsensusSettingsEntry -> Bool) -> Eq ConsensusSettingsEntry @@ -2372,9 +2538,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: ConsensusSettingsEntry -> ConsensusSettingsEntry -> Bool == :: ConsensusSettingsEntry -> ConsensusSettingsEntry -> Bool $c== :: ConsensusSettingsEntry -> ConsensusSettingsEntry -> Bool -Hs.Eq, Eq ConsensusSettingsEntry -Eq ConsensusSettingsEntry => -(ConsensusSettingsEntry -> ConsensusSettingsEntry -> Ordering) +Hs.Eq, Eq ConsensusSettingsEntry +Eq ConsensusSettingsEntry +-> (ConsensusSettingsEntry -> ConsensusSettingsEntry -> Ordering) -> (ConsensusSettingsEntry -> ConsensusSettingsEntry -> Bool) -> (ConsensusSettingsEntry -> ConsensusSettingsEntry -> Bool) -> (ConsensusSettingsEntry -> ConsensusSettingsEntry -> Bool) @@ -2389,8 +2555,8 @@ ConsensusSettingsEntry -> ConsensusSettingsEntry -> Ordering ConsensusSettingsEntry -> ConsensusSettingsEntry -> ConsensusSettingsEntry forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -2417,7 +2583,7 @@ $c< :: ConsensusSettingsEntry -> ConsensusSettingsEntry -> Bool compare :: ConsensusSettingsEntry -> ConsensusSettingsEntry -> Ordering $ccompare :: ConsensusSettingsEntry -> ConsensusSettingsEntry -> Ordering $cp1Ord :: Eq ConsensusSettingsEntry -Hs.Ord, (forall x. ConsensusSettingsEntry -> Rep ConsensusSettingsEntry x) +Hs.Ord, (forall x. ConsensusSettingsEntry -> Rep ConsensusSettingsEntry x) -> (forall x. Rep ConsensusSettingsEntry x -> ConsensusSettingsEntry) -> Generic ConsensusSettingsEntry @@ -2427,292 +2593,318 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep ConsensusSettingsEntry x -> ConsensusSettingsEntry $cfrom :: forall x. ConsensusSettingsEntry -> Rep ConsensusSettingsEntry x -Hs.Generic, ConsensusSettingsEntry -> () +Hs.Generic, ConsensusSettingsEntry -> () (ConsensusSettingsEntry -> ()) -> NFData ConsensusSettingsEntry forall a. (a -> ()) -> NFData a rnf :: ConsensusSettingsEntry -> () $crnf :: ConsensusSettingsEntry -> () -Hs.NFData) - -instance HsProtobuf.Named ConsensusSettingsEntry where - nameOf :: Proxy# ConsensusSettingsEntry -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ConsensusSettingsEntry where + nameOf :: Proxy# ConsensusSettingsEntry -> string +nameOf Proxy# ConsensusSettingsEntry +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ConsensusSettingsEntry") - -instance HsProtobuf.HasDefault ConsensusSettingsEntry - -instance HsProtobuf.Message ConsensusSettingsEntry where - encodeMessage :: FieldNumber -> ConsensusSettingsEntry -> MessageBuilder -encodeMessage _ - ConsensusSettingsEntry{consensusSettingsEntryKey :: ConsensusSettingsEntry -> Text +Hs.fromString String +"ConsensusSettingsEntry") + +instance HsProtobuf.HasDefault ConsensusSettingsEntry + +instance HsProtobuf.Message ConsensusSettingsEntry where + encodeMessage :: FieldNumber -> ConsensusSettingsEntry -> MessageBuilder +encodeMessage FieldNumber +_ + ConsensusSettingsEntry{consensusSettingsEntryKey :: ConsensusSettingsEntry -> Text consensusSettingsEntryKey = - Text -consensusSettingsEntryKey, - consensusSettingsEntryValue :: ConsensusSettingsEntry -> Text -consensusSettingsEntryValue = Text -consensusSettingsEntryValue} - = ([MessageBuilder] -> MessageBuilder + Text +consensusSettingsEntryKey, + consensusSettingsEntryValue :: ConsensusSettingsEntry -> Text +consensusSettingsEntryValue = Text +consensusSettingsEntryValue} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> Text -> MessageBuilder +Hs.mconcat + [(FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Text -consensusSettingsEntryKey), - (FieldNumber -> Text -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Text +consensusSettingsEntryKey), + (FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - Text -consensusSettingsEntryValue)]) - decodeMessage :: FieldNumber -> Parser RawMessage ConsensusSettingsEntry -decodeMessage _ - = ((Text -> Text -> ConsensusSettingsEntry) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + Text +consensusSettingsEntryValue)]) + decodeMessage :: FieldNumber -> Parser RawMessage ConsensusSettingsEntry +decodeMessage FieldNumber +_ + = ((Text -> Text -> ConsensusSettingsEntry) -> Parser RawMessage (Text -> Text -> ConsensusSettingsEntry) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> Text -> ConsensusSettingsEntry +Hs.pure Text -> Text -> ConsensusSettingsEntry ConsensusSettingsEntry) Parser RawMessage (Text -> Text -> ConsensusSettingsEntry) -> Parser RawMessage Text -> Parser RawMessage (Text -> ConsensusSettingsEntry) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser RawMessage (Text -> ConsensusSettingsEntry) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (Text -> ConsensusSettingsEntry) -> Parser RawMessage Text -> Parser RawMessage ConsensusSettingsEntry forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2)) - dotProto :: Proxy# ConsensusSettingsEntry -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2)) + dotProto :: Proxy# ConsensusSettingsEntry -> [DotProtoField] +dotProto Proxy# ConsensusSettingsEntry +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "key") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"key") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "value") - [] - "")] - -instance HsJSONPB.ToJSONPB ConsensusSettingsEntry where - toJSONPB :: ConsensusSettingsEntry -> Options -> Value -toJSONPB (ConsensusSettingsEntry f1 :: Text -f1 f2 :: Text -f2) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["key" Text -> Text -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"value") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ConsensusSettingsEntry where + toJSONPB :: ConsensusSettingsEntry -> Options -> Value +toJSONPB (ConsensusSettingsEntry Text +f1 Text +f2) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"key" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1, "value" Text -> Text -> Options -> [Pair] +.= Text +f1, Text +"value" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f2]) - toEncodingPB :: ConsensusSettingsEntry -> Options -> Encoding -toEncodingPB (ConsensusSettingsEntry f1 :: Text -f1 f2 :: Text -f2) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["key" Text -> Text -> Options -> Series +.= Text +f2]) + toEncodingPB :: ConsensusSettingsEntry -> Options -> Encoding +toEncodingPB (ConsensusSettingsEntry Text +f1 Text +f2) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"key" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1, "value" Text -> Text -> Options -> Series +.= Text +f1, Text +"value" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f2]) - -instance HsJSONPB.FromJSONPB ConsensusSettingsEntry where - parseJSONPB :: Value -> Parser ConsensusSettingsEntry -parseJSONPB - = (String +.= Text +f2]) + +instance HsJSONPB.FromJSONPB ConsensusSettingsEntry where + parseJSONPB :: Value -> Parser ConsensusSettingsEntry +parseJSONPB + = (String -> (Object -> Parser ConsensusSettingsEntry) -> Value -> Parser ConsensusSettingsEntry forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ConsensusSettingsEntry" - (\ obj :: Object -obj -> - ((Text -> Text -> ConsensusSettingsEntry) +HsJSONPB.withObject String +"ConsensusSettingsEntry" + (\ Object +obj -> + ((Text -> Text -> ConsensusSettingsEntry) -> Parser (Text -> Text -> ConsensusSettingsEntry) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> Text -> ConsensusSettingsEntry +Hs.pure Text -> Text -> ConsensusSettingsEntry ConsensusSettingsEntry) Parser (Text -> Text -> ConsensusSettingsEntry) -> Parser Text -> Parser (Text -> ConsensusSettingsEntry) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Text +<*> Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "key" Parser (Text -> ConsensusSettingsEntry) +.: Text +"key" Parser (Text -> ConsensusSettingsEntry) -> Parser Text -> Parser ConsensusSettingsEntry forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser Text +<*> + Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "value")) - -instance HsJSONPB.ToJSON ConsensusSettingsEntry where - toJSON :: ConsensusSettingsEntry -> Value -toJSON = ConsensusSettingsEntry -> Value +.: Text +"value")) + +instance HsJSONPB.ToJSON ConsensusSettingsEntry where + toJSON :: ConsensusSettingsEntry -> Value +toJSON = ConsensusSettingsEntry -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ConsensusSettingsEntry -> Encoding -toEncoding = ConsensusSettingsEntry -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ConsensusSettingsEntry -> Encoding +toEncoding = ConsensusSettingsEntry -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ConsensusSettingsEntry where - parseJSON :: Value -> Parser ConsensusSettingsEntry -parseJSON = Value -> Parser ConsensusSettingsEntry +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ConsensusSettingsEntry where + parseJSON :: Value -> Parser ConsensusSettingsEntry +parseJSON = Value -> Parser ConsensusSettingsEntry forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ConsensusSettingsEntry where - declareNamedSchema :: Proxy ConsensusSettingsEntry +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ConsensusSettingsEntry where + declareNamedSchema :: Proxy ConsensusSettingsEntry -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_key :: Proxy (OverrideToSchema Text) +declareNamedSchema Proxy ConsensusSettingsEntry +_ + = do let declare_key :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_key = Proxy (OverrideToSchema Text) +declare_key = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -consensusSettingsEntryKey <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +consensusSettingsEntryKey <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_key Proxy (OverrideToSchema Text) +declare_key Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_value :: Proxy (OverrideToSchema Text) +Proxy.Proxy + let declare_value :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_value = Proxy (OverrideToSchema Text) +declare_value = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -consensusSettingsEntryValue <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +consensusSettingsEntryValue <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_value Proxy (OverrideToSchema Text) +declare_value Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ConsensusSettingsEntry +Proxy.Proxy + let Proxy ConsensusSettingsEntry _ = (Text -> Text -> ConsensusSettingsEntry) -> Proxy (Text -> Text -> ConsensusSettingsEntry) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> Text -> ConsensusSettingsEntry +Hs.pure Text -> Text -> ConsensusSettingsEntry ConsensusSettingsEntry Proxy (Text -> Text -> ConsensusSettingsEntry) -> Proxy Text -> Proxy (Text -> ConsensusSettingsEntry) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema Text) +<*> + (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_key - Proxy (Text -> ConsensusSettingsEntry) +declare_key + Proxy (Text -> ConsensusSettingsEntry) -> Proxy Text -> Proxy ConsensusSettingsEntry forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema Text) +<*> (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_value - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_value + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ConsensusSettingsEntry", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ConsensusSettingsEntry", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("key", Referenced Schema -consensusSettingsEntryKey), - ("value", Referenced Schema -consensusSettingsEntryValue)]}}) - -data ConsensusStateEntry = ConsensusStateEntry{ConsensusStateEntry -> Text +HsJSONPB.insOrdFromList + [(Text +"key", Referenced Schema +consensusSettingsEntryKey), + (Text +"value", Referenced Schema +consensusSettingsEntryValue)]}}) + +data ConsensusStateEntry = ConsensusStateEntry{ConsensusStateEntry -> Text consensusStateEntryAddress - :: Hs.Text, - ConsensusStateEntry -> ByteString -consensusStateEntryData :: Hs.ByteString} - deriving (Int -> ConsensusStateEntry -> ShowS + :: Hs.Text, + ConsensusStateEntry -> ByteString +consensusStateEntryData :: Hs.ByteString} + deriving (Int -> ConsensusStateEntry -> ShowS [ConsensusStateEntry] -> ShowS ConsensusStateEntry -> String (Int -> ConsensusStateEntry -> ShowS) @@ -2727,7 +2919,7 @@ show :: ConsensusStateEntry -> String $cshow :: ConsensusStateEntry -> String showsPrec :: Int -> ConsensusStateEntry -> ShowS $cshowsPrec :: Int -> ConsensusStateEntry -> ShowS -Hs.Show, ConsensusStateEntry -> ConsensusStateEntry -> Bool +Hs.Show, ConsensusStateEntry -> ConsensusStateEntry -> Bool (ConsensusStateEntry -> ConsensusStateEntry -> Bool) -> (ConsensusStateEntry -> ConsensusStateEntry -> Bool) -> Eq ConsensusStateEntry @@ -2736,9 +2928,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: ConsensusStateEntry -> ConsensusStateEntry -> Bool == :: ConsensusStateEntry -> ConsensusStateEntry -> Bool $c== :: ConsensusStateEntry -> ConsensusStateEntry -> Bool -Hs.Eq, Eq ConsensusStateEntry -Eq ConsensusStateEntry => -(ConsensusStateEntry -> ConsensusStateEntry -> Ordering) +Hs.Eq, Eq ConsensusStateEntry +Eq ConsensusStateEntry +-> (ConsensusStateEntry -> ConsensusStateEntry -> Ordering) -> (ConsensusStateEntry -> ConsensusStateEntry -> Bool) -> (ConsensusStateEntry -> ConsensusStateEntry -> Bool) -> (ConsensusStateEntry -> ConsensusStateEntry -> Bool) @@ -2752,8 +2944,8 @@ ConsensusStateEntry -> ConsensusStateEntry -> Bool ConsensusStateEntry -> ConsensusStateEntry -> Ordering ConsensusStateEntry -> ConsensusStateEntry -> ConsensusStateEntry forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -2776,7 +2968,7 @@ $c< :: ConsensusStateEntry -> ConsensusStateEntry -> Bool compare :: ConsensusStateEntry -> ConsensusStateEntry -> Ordering $ccompare :: ConsensusStateEntry -> ConsensusStateEntry -> Ordering $cp1Ord :: Eq ConsensusStateEntry -Hs.Ord, (forall x. ConsensusStateEntry -> Rep ConsensusStateEntry x) +Hs.Ord, (forall x. ConsensusStateEntry -> Rep ConsensusStateEntry x) -> (forall x. Rep ConsensusStateEntry x -> ConsensusStateEntry) -> Generic ConsensusStateEntry forall x. Rep ConsensusStateEntry x -> ConsensusStateEntry @@ -2785,299 +2977,325 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep ConsensusStateEntry x -> ConsensusStateEntry $cfrom :: forall x. ConsensusStateEntry -> Rep ConsensusStateEntry x -Hs.Generic, ConsensusStateEntry -> () +Hs.Generic, ConsensusStateEntry -> () (ConsensusStateEntry -> ()) -> NFData ConsensusStateEntry forall a. (a -> ()) -> NFData a rnf :: ConsensusStateEntry -> () $crnf :: ConsensusStateEntry -> () -Hs.NFData) - -instance HsProtobuf.Named ConsensusStateEntry where - nameOf :: Proxy# ConsensusStateEntry -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ConsensusStateEntry where + nameOf :: Proxy# ConsensusStateEntry -> string +nameOf Proxy# ConsensusStateEntry +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ConsensusStateEntry") - -instance HsProtobuf.HasDefault ConsensusStateEntry - -instance HsProtobuf.Message ConsensusStateEntry where - encodeMessage :: FieldNumber -> ConsensusStateEntry -> MessageBuilder -encodeMessage _ - ConsensusStateEntry{consensusStateEntryAddress :: ConsensusStateEntry -> Text +Hs.fromString String +"ConsensusStateEntry") + +instance HsProtobuf.HasDefault ConsensusStateEntry + +instance HsProtobuf.Message ConsensusStateEntry where + encodeMessage :: FieldNumber -> ConsensusStateEntry -> MessageBuilder +encodeMessage FieldNumber +_ + ConsensusStateEntry{consensusStateEntryAddress :: ConsensusStateEntry -> Text consensusStateEntryAddress = - Text -consensusStateEntryAddress, - consensusStateEntryData :: ConsensusStateEntry -> ByteString -consensusStateEntryData = ByteString -consensusStateEntryData} - = ([MessageBuilder] -> MessageBuilder + Text +consensusStateEntryAddress, + consensusStateEntryData :: ConsensusStateEntry -> ByteString +consensusStateEntryData = ByteString +consensusStateEntryData} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> Text -> MessageBuilder +Hs.mconcat + [(FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Text -consensusStateEntryAddress), - (FieldNumber -> ByteString -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Text +consensusStateEntryAddress), + (FieldNumber -> ByteString -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - ByteString -consensusStateEntryData)]) - decodeMessage :: FieldNumber -> Parser RawMessage ConsensusStateEntry -decodeMessage _ - = ((Text -> ByteString -> ConsensusStateEntry) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + ByteString +consensusStateEntryData)]) + decodeMessage :: FieldNumber -> Parser RawMessage ConsensusStateEntry +decodeMessage FieldNumber +_ + = ((Text -> ByteString -> ConsensusStateEntry) -> Parser RawMessage (Text -> ByteString -> ConsensusStateEntry) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> ByteString -> ConsensusStateEntry +Hs.pure Text -> ByteString -> ConsensusStateEntry ConsensusStateEntry) Parser RawMessage (Text -> ByteString -> ConsensusStateEntry) -> Parser RawMessage Text -> Parser RawMessage (ByteString -> ConsensusStateEntry) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser RawMessage (ByteString -> ConsensusStateEntry) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (ByteString -> ConsensusStateEntry) -> Parser RawMessage ByteString -> Parser RawMessage ConsensusStateEntry forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField ByteString +<*> + (Parser RawField ByteString -> FieldNumber -> Parser RawMessage ByteString forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField ByteString +HsProtobuf.at Parser RawField ByteString forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2)) - dotProto :: Proxy# ConsensusStateEntry -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2)) + dotProto :: Proxy# ConsensusStateEntry -> [DotProtoField] +dotProto Proxy# ConsensusStateEntry +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "address") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"address") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.Bytes) - (String -> DotProtoIdentifier -HsProtobuf.Single "data") - [] - "")] - -instance HsJSONPB.ToJSONPB ConsensusStateEntry where - toJSONPB :: ConsensusStateEntry -> Options -> Value -toJSONPB (ConsensusStateEntry f1 :: Text -f1 f2 :: ByteString -f2) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["address" Text -> Text -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.Bytes) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"data") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ConsensusStateEntry where + toJSONPB :: ConsensusStateEntry -> Options -> Value +toJSONPB (ConsensusStateEntry Text +f1 ByteString +f2) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"address" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1, "data" Text -> ByteString -> Options -> [Pair] +.= Text +f1, Text +"data" Text -> ByteString -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f2]) - toEncodingPB :: ConsensusStateEntry -> Options -> Encoding -toEncodingPB (ConsensusStateEntry f1 :: Text -f1 f2 :: ByteString -f2) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["address" Text -> Text -> Options -> Series +.= ByteString +f2]) + toEncodingPB :: ConsensusStateEntry -> Options -> Encoding +toEncodingPB (ConsensusStateEntry Text +f1 ByteString +f2) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"address" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1, "data" Text -> ByteString -> Options -> Series +.= Text +f1, Text +"data" Text -> ByteString -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f2]) - -instance HsJSONPB.FromJSONPB ConsensusStateEntry where - parseJSONPB :: Value -> Parser ConsensusStateEntry -parseJSONPB - = (String +.= ByteString +f2]) + +instance HsJSONPB.FromJSONPB ConsensusStateEntry where + parseJSONPB :: Value -> Parser ConsensusStateEntry +parseJSONPB + = (String -> (Object -> Parser ConsensusStateEntry) -> Value -> Parser ConsensusStateEntry forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ConsensusStateEntry" - (\ obj :: Object -obj -> - ((Text -> ByteString -> ConsensusStateEntry) +HsJSONPB.withObject String +"ConsensusStateEntry" + (\ Object +obj -> + ((Text -> ByteString -> ConsensusStateEntry) -> Parser (Text -> ByteString -> ConsensusStateEntry) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> ByteString -> ConsensusStateEntry +Hs.pure Text -> ByteString -> ConsensusStateEntry ConsensusStateEntry) Parser (Text -> ByteString -> ConsensusStateEntry) -> Parser Text -> Parser (ByteString -> ConsensusStateEntry) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Text +<*> Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "address" Parser (ByteString -> ConsensusStateEntry) +.: Text +"address" Parser (ByteString -> ConsensusStateEntry) -> Parser ByteString -> Parser ConsensusStateEntry forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser ByteString +<*> + Object +obj Object -> Text -> Parser ByteString forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "data")) - -instance HsJSONPB.ToJSON ConsensusStateEntry where - toJSON :: ConsensusStateEntry -> Value -toJSON = ConsensusStateEntry -> Value +.: Text +"data")) + +instance HsJSONPB.ToJSON ConsensusStateEntry where + toJSON :: ConsensusStateEntry -> Value +toJSON = ConsensusStateEntry -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ConsensusStateEntry -> Encoding -toEncoding = ConsensusStateEntry -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ConsensusStateEntry -> Encoding +toEncoding = ConsensusStateEntry -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ConsensusStateEntry where - parseJSON :: Value -> Parser ConsensusStateEntry -parseJSON = Value -> Parser ConsensusStateEntry +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ConsensusStateEntry where + parseJSON :: Value -> Parser ConsensusStateEntry +parseJSON = Value -> Parser ConsensusStateEntry forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ConsensusStateEntry where - declareNamedSchema :: Proxy ConsensusStateEntry +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ConsensusStateEntry where + declareNamedSchema :: Proxy ConsensusStateEntry -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_address :: Proxy (OverrideToSchema Text) +declareNamedSchema Proxy ConsensusStateEntry +_ + = do let declare_address :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_address = Proxy (OverrideToSchema Text) +declare_address = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -consensusStateEntryAddress <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +consensusStateEntryAddress <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_address Proxy (OverrideToSchema Text) +declare_address Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_data :: Proxy (OverrideToSchema ByteString) +Proxy.Proxy + let declare_data :: Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_data = Proxy (OverrideToSchema ByteString) +declare_data = Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -consensusStateEntryData <- Proxy (OverrideToSchema ByteString) +HsJSONPB.declareSchemaRef + Referenced Schema +consensusStateEntryData <- Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_data Proxy (OverrideToSchema ByteString) +declare_data Proxy (OverrideToSchema ByteString) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ConsensusStateEntry +Proxy.Proxy + let Proxy ConsensusStateEntry _ = (Text -> ByteString -> ConsensusStateEntry) -> Proxy (Text -> ByteString -> ConsensusStateEntry) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> ByteString -> ConsensusStateEntry +Hs.pure Text -> ByteString -> ConsensusStateEntry ConsensusStateEntry Proxy (Text -> ByteString -> ConsensusStateEntry) -> Proxy Text -> Proxy (ByteString -> ConsensusStateEntry) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema Text) +<*> + (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_address - Proxy (ByteString -> ConsensusStateEntry) +declare_address + Proxy (ByteString -> ConsensusStateEntry) -> Proxy ByteString -> Proxy ConsensusStateEntry forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema ByteString) +<*> (Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy ByteString forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) +HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_data - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_data + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ConsensusStateEntry", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ConsensusStateEntry", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("address", Referenced Schema -consensusStateEntryAddress), - ("data", Referenced Schema -consensusStateEntryData)]}}) - -data ConsensusRegisterRequest = ConsensusRegisterRequest{ConsensusRegisterRequest -> Text +HsJSONPB.insOrdFromList + [(Text +"address", Referenced Schema +consensusStateEntryAddress), + (Text +"data", Referenced Schema +consensusStateEntryData)]}}) + +data ConsensusRegisterRequest = ConsensusRegisterRequest{ConsensusRegisterRequest -> Text consensusRegisterRequestName - :: Hs.Text, - ConsensusRegisterRequest -> Text -consensusRegisterRequestVersion :: Hs.Text, - ConsensusRegisterRequest + :: Hs.Text, + ConsensusRegisterRequest -> Text +consensusRegisterRequestVersion :: Hs.Text, + ConsensusRegisterRequest -> Vector ConsensusRegisterRequest_Protocol consensusRegisterRequestAdditionalProtocols - :: - Hs.Vector - Data.Sawtooth.Consensus.ConsensusRegisterRequest_Protocol} - deriving (Int -> ConsensusRegisterRequest -> ShowS + :: + Hs.Vector + Data.Sawtooth.Consensus.ConsensusRegisterRequest_Protocol} + deriving (Int -> ConsensusRegisterRequest -> ShowS [ConsensusRegisterRequest] -> ShowS ConsensusRegisterRequest -> String (Int -> ConsensusRegisterRequest -> ShowS) @@ -3092,7 +3310,7 @@ show :: ConsensusRegisterRequest -> String $cshow :: ConsensusRegisterRequest -> String showsPrec :: Int -> ConsensusRegisterRequest -> ShowS $cshowsPrec :: Int -> ConsensusRegisterRequest -> ShowS -Hs.Show, ConsensusRegisterRequest -> ConsensusRegisterRequest -> Bool +Hs.Show, ConsensusRegisterRequest -> ConsensusRegisterRequest -> Bool (ConsensusRegisterRequest -> ConsensusRegisterRequest -> Bool) -> (ConsensusRegisterRequest -> ConsensusRegisterRequest -> Bool) -> Eq ConsensusRegisterRequest @@ -3101,9 +3319,10 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: ConsensusRegisterRequest -> ConsensusRegisterRequest -> Bool == :: ConsensusRegisterRequest -> ConsensusRegisterRequest -> Bool $c== :: ConsensusRegisterRequest -> ConsensusRegisterRequest -> Bool -Hs.Eq, Eq ConsensusRegisterRequest -Eq ConsensusRegisterRequest => -(ConsensusRegisterRequest -> ConsensusRegisterRequest -> Ordering) +Hs.Eq, Eq ConsensusRegisterRequest +Eq ConsensusRegisterRequest +-> (ConsensusRegisterRequest + -> ConsensusRegisterRequest -> Ordering) -> (ConsensusRegisterRequest -> ConsensusRegisterRequest -> Bool) -> (ConsensusRegisterRequest -> ConsensusRegisterRequest -> Bool) -> (ConsensusRegisterRequest -> ConsensusRegisterRequest -> Bool) @@ -3118,8 +3337,8 @@ ConsensusRegisterRequest -> ConsensusRegisterRequest -> Ordering ConsensusRegisterRequest -> ConsensusRegisterRequest -> ConsensusRegisterRequest forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -3146,7 +3365,7 @@ $c< :: ConsensusRegisterRequest -> ConsensusRegisterRequest -> Bool compare :: ConsensusRegisterRequest -> ConsensusRegisterRequest -> Ordering $ccompare :: ConsensusRegisterRequest -> ConsensusRegisterRequest -> Ordering $cp1Ord :: Eq ConsensusRegisterRequest -Hs.Ord, (forall x. +Hs.Ord, (forall x. ConsensusRegisterRequest -> Rep ConsensusRegisterRequest x) -> (forall x. Rep ConsensusRegisterRequest x -> ConsensusRegisterRequest) @@ -3161,68 +3380,74 @@ $cto :: forall x. Rep ConsensusRegisterRequest x -> ConsensusRegisterRequest $cfrom :: forall x. ConsensusRegisterRequest -> Rep ConsensusRegisterRequest x -Hs.Generic, ConsensusRegisterRequest -> () +Hs.Generic, ConsensusRegisterRequest -> () (ConsensusRegisterRequest -> ()) -> NFData ConsensusRegisterRequest forall a. (a -> ()) -> NFData a rnf :: ConsensusRegisterRequest -> () $crnf :: ConsensusRegisterRequest -> () -Hs.NFData) - -instance HsProtobuf.Named ConsensusRegisterRequest where - nameOf :: Proxy# ConsensusRegisterRequest -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ConsensusRegisterRequest where + nameOf :: Proxy# ConsensusRegisterRequest -> string +nameOf Proxy# ConsensusRegisterRequest +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ConsensusRegisterRequest") - -instance HsProtobuf.HasDefault ConsensusRegisterRequest - -instance HsProtobuf.Message ConsensusRegisterRequest where - encodeMessage :: FieldNumber -> ConsensusRegisterRequest -> MessageBuilder -encodeMessage _ - ConsensusRegisterRequest{consensusRegisterRequestName :: ConsensusRegisterRequest -> Text +Hs.fromString String +"ConsensusRegisterRequest") + +instance HsProtobuf.HasDefault ConsensusRegisterRequest + +instance HsProtobuf.Message ConsensusRegisterRequest where + encodeMessage :: FieldNumber -> ConsensusRegisterRequest -> MessageBuilder +encodeMessage FieldNumber +_ + ConsensusRegisterRequest{consensusRegisterRequestName :: ConsensusRegisterRequest -> Text consensusRegisterRequestName = - Text -consensusRegisterRequestName, - consensusRegisterRequestVersion :: ConsensusRegisterRequest -> Text + Text +consensusRegisterRequestName, + consensusRegisterRequestVersion :: ConsensusRegisterRequest -> Text consensusRegisterRequestVersion = - Text -consensusRegisterRequestVersion, - consensusRegisterRequestAdditionalProtocols :: ConsensusRegisterRequest + Text +consensusRegisterRequestVersion, + consensusRegisterRequestAdditionalProtocols :: ConsensusRegisterRequest -> Vector ConsensusRegisterRequest_Protocol consensusRegisterRequestAdditionalProtocols = - Vector ConsensusRegisterRequest_Protocol -consensusRegisterRequestAdditionalProtocols} - = ([MessageBuilder] -> MessageBuilder + Vector ConsensusRegisterRequest_Protocol +consensusRegisterRequestAdditionalProtocols} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> Text -> MessageBuilder +Hs.mconcat + [(FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Text -consensusRegisterRequestName), - (FieldNumber -> Text -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Text +consensusRegisterRequestName), + (FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - Text -consensusRegisterRequestVersion), - (FieldNumber +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + Text +consensusRegisterRequestVersion), + (FieldNumber -> NestedVec ConsensusRegisterRequest_Protocol -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - (Vector ConsensusRegisterRequest_Protocol +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + (Vector ConsensusRegisterRequest_Protocol -> NestedVec ConsensusRegisterRequest_Protocol -forall a b. Coercible a b => a -> b -Hs.coerce - @(Hs.Vector Data.Sawtooth.Consensus.ConsensusRegisterRequest_Protocol) - @(HsProtobuf.NestedVec Data.Sawtooth.Consensus.ConsensusRegisterRequest_Protocol) - Vector ConsensusRegisterRequest_Protocol -consensusRegisterRequestAdditionalProtocols))]) - decodeMessage :: FieldNumber -> Parser RawMessage ConsensusRegisterRequest -decodeMessage _ - = ((Text +Hs.coerce + @(Hs.Vector Data.Sawtooth.Consensus.ConsensusRegisterRequest_Protocol) + @(HsProtobuf.NestedVec Data.Sawtooth.Consensus.ConsensusRegisterRequest_Protocol) + Vector ConsensusRegisterRequest_Protocol +consensusRegisterRequestAdditionalProtocols))]) + decodeMessage :: FieldNumber -> Parser RawMessage ConsensusRegisterRequest +decodeMessage FieldNumber +_ + = ((Text -> Text -> Vector ConsensusRegisterRequest_Protocol -> ConsensusRegisterRequest) @@ -3233,7 +3458,7 @@ forall a b. Coercible a b => a -> b -> Vector ConsensusRegisterRequest_Protocol -> ConsensusRegisterRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text +Hs.pure Text -> Text -> Vector ConsensusRegisterRequest_Protocol -> ConsensusRegisterRequest @@ -3250,15 +3475,16 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Vector ConsensusRegisterRequest_Protocol -> ConsensusRegisterRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (Text -> Vector ConsensusRegisterRequest_Protocol @@ -3269,149 +3495,168 @@ forall a. MessageField a => Parser RawField a (Vector ConsensusRegisterRequest_Protocol -> ConsensusRegisterRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2)) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2)) + Parser RawMessage (Vector ConsensusRegisterRequest_Protocol -> ConsensusRegisterRequest) -> Parser RawMessage (Vector ConsensusRegisterRequest_Protocol) -> Parser RawMessage ConsensusRegisterRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (NestedVec ConsensusRegisterRequest_Protocol) +<*> + (Parser RawMessage (NestedVec ConsensusRegisterRequest_Protocol) -> Parser RawMessage (Vector ConsensusRegisterRequest_Protocol) -forall a b. Coercible a b => a -> b -Hs.coerce - @(_ (HsProtobuf.NestedVec Data.Sawtooth.Consensus.ConsensusRegisterRequest_Protocol)) - @(_ (Hs.Vector Data.Sawtooth.Consensus.ConsensusRegisterRequest_Protocol)) - (Parser RawField (NestedVec ConsensusRegisterRequest_Protocol) +Hs.coerce + @(_ (HsProtobuf.NestedVec Data.Sawtooth.Consensus.ConsensusRegisterRequest_Protocol)) + @(_ (Hs.Vector Data.Sawtooth.Consensus.ConsensusRegisterRequest_Protocol)) + (Parser RawField (NestedVec ConsensusRegisterRequest_Protocol) -> FieldNumber -> Parser RawMessage (NestedVec ConsensusRegisterRequest_Protocol) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (NestedVec ConsensusRegisterRequest_Protocol) +HsProtobuf.at Parser RawField (NestedVec ConsensusRegisterRequest_Protocol) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3))) - dotProto :: Proxy# ConsensusRegisterRequest -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3))) + dotProto :: Proxy# ConsensusRegisterRequest -> [DotProtoField] +dotProto Proxy# ConsensusRegisterRequest +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "name") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"name") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "version") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"version") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Repeated - (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "Protocol"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "additional_protocols") - [] - "")] - -instance HsJSONPB.ToJSONPB ConsensusRegisterRequest where - toJSONPB :: ConsensusRegisterRequest -> Options -> Value -toJSONPB (ConsensusRegisterRequest f1 :: Text -f1 f2 :: Text -f2 f3 :: Vector ConsensusRegisterRequest_Protocol -f3) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object - ["name" Text -> Text -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Repeated + (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"Protocol"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"additional_protocols") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ConsensusRegisterRequest where + toJSONPB :: ConsensusRegisterRequest -> Options -> Value +toJSONPB (ConsensusRegisterRequest Text +f1 Text +f2 Vector ConsensusRegisterRequest_Protocol +f3) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object + [Text +"name" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1, "version" Text -> Text -> Options -> [Pair] +.= Text +f1, Text +"version" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f2, "additional_protocols" Text +.= Text +f2, Text +"additional_protocols" Text -> Vector ConsensusRegisterRequest_Protocol -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector ConsensusRegisterRequest_Protocol -f3]) - toEncodingPB :: ConsensusRegisterRequest -> Options -> Encoding -toEncodingPB (ConsensusRegisterRequest f1 :: Text -f1 f2 :: Text -f2 f3 :: Vector ConsensusRegisterRequest_Protocol -f3) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs - ["name" Text -> Text -> Options -> Series +.= Vector ConsensusRegisterRequest_Protocol +f3]) + toEncodingPB :: ConsensusRegisterRequest -> Options -> Encoding +toEncodingPB (ConsensusRegisterRequest Text +f1 Text +f2 Vector ConsensusRegisterRequest_Protocol +f3) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs + [Text +"name" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1, "version" Text -> Text -> Options -> Series +.= Text +f1, Text +"version" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f2, "additional_protocols" Text +.= Text +f2, Text +"additional_protocols" Text -> Vector ConsensusRegisterRequest_Protocol -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector ConsensusRegisterRequest_Protocol -f3]) - -instance HsJSONPB.FromJSONPB ConsensusRegisterRequest where - parseJSONPB :: Value -> Parser ConsensusRegisterRequest -parseJSONPB - = (String +.= Vector ConsensusRegisterRequest_Protocol +f3]) + +instance HsJSONPB.FromJSONPB ConsensusRegisterRequest where + parseJSONPB :: Value -> Parser ConsensusRegisterRequest +parseJSONPB + = (String -> (Object -> Parser ConsensusRegisterRequest) -> Value -> Parser ConsensusRegisterRequest forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ConsensusRegisterRequest" - (\ obj :: Object -obj -> - ((Text +HsJSONPB.withObject String +"ConsensusRegisterRequest" + (\ Object +obj -> + ((Text -> Text -> Vector ConsensusRegisterRequest_Protocol -> ConsensusRegisterRequest) @@ -3421,7 +3666,7 @@ forall a. String -> (Object -> Parser a) -> Value -> Parser a -> Vector ConsensusRegisterRequest_Protocol -> ConsensusRegisterRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text +Hs.pure Text -> Text -> Vector ConsensusRegisterRequest_Protocol -> ConsensusRegisterRequest @@ -3436,12 +3681,13 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Vector ConsensusRegisterRequest_Protocol -> ConsensusRegisterRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Text +<*> Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "name" Parser +.: Text +"name" Parser (Text -> Vector ConsensusRegisterRequest_Protocol -> ConsensusRegisterRequest) @@ -3450,90 +3696,93 @@ Object -> Text -> Parser a (Vector ConsensusRegisterRequest_Protocol -> ConsensusRegisterRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser Text +<*> + Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "version" - Parser +.: Text +"version" + Parser (Vector ConsensusRegisterRequest_Protocol -> ConsensusRegisterRequest) -> Parser (Vector ConsensusRegisterRequest_Protocol) -> Parser ConsensusRegisterRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser (Vector ConsensusRegisterRequest_Protocol) +<*> Object +obj Object -> Text -> Parser (Vector ConsensusRegisterRequest_Protocol) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "additional_protocols")) - -instance HsJSONPB.ToJSON ConsensusRegisterRequest where - toJSON :: ConsensusRegisterRequest -> Value -toJSON = ConsensusRegisterRequest -> Value +.: Text +"additional_protocols")) + +instance HsJSONPB.ToJSON ConsensusRegisterRequest where + toJSON :: ConsensusRegisterRequest -> Value +toJSON = ConsensusRegisterRequest -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ConsensusRegisterRequest -> Encoding -toEncoding = ConsensusRegisterRequest -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ConsensusRegisterRequest -> Encoding +toEncoding = ConsensusRegisterRequest -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ConsensusRegisterRequest where - parseJSON :: Value -> Parser ConsensusRegisterRequest -parseJSON = Value -> Parser ConsensusRegisterRequest +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ConsensusRegisterRequest where + parseJSON :: Value -> Parser ConsensusRegisterRequest +parseJSON = Value -> Parser ConsensusRegisterRequest forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ConsensusRegisterRequest where - declareNamedSchema :: Proxy ConsensusRegisterRequest +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ConsensusRegisterRequest where + declareNamedSchema :: Proxy ConsensusRegisterRequest -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_name :: Proxy (OverrideToSchema Text) +declareNamedSchema Proxy ConsensusRegisterRequest +_ + = do let declare_name :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_name = Proxy (OverrideToSchema Text) +declare_name = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -consensusRegisterRequestName <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +consensusRegisterRequestName <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_name Proxy (OverrideToSchema Text) +declare_name Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_version :: Proxy (OverrideToSchema Text) +Proxy.Proxy + let declare_version :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_version = Proxy (OverrideToSchema Text) +declare_version = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -consensusRegisterRequestVersion <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +consensusRegisterRequestVersion <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_version Proxy (OverrideToSchema Text) +declare_version Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_additional_protocols :: Proxy (OverrideToSchema (Vector ConsensusRegisterRequest_Protocol)) +Proxy.Proxy + let declare_additional_protocols :: Proxy (OverrideToSchema (Vector ConsensusRegisterRequest_Protocol)) -> Declare (Definitions Schema) (Referenced Schema) -declare_additional_protocols = Proxy (OverrideToSchema (Vector ConsensusRegisterRequest_Protocol)) +declare_additional_protocols = Proxy (OverrideToSchema (Vector ConsensusRegisterRequest_Protocol)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -consensusRegisterRequestAdditionalProtocols <- Proxy (OverrideToSchema (Vector ConsensusRegisterRequest_Protocol)) +HsJSONPB.declareSchemaRef + Referenced Schema +consensusRegisterRequestAdditionalProtocols <- Proxy (OverrideToSchema (Vector ConsensusRegisterRequest_Protocol)) -> Declare (Definitions Schema) (Referenced Schema) -declare_additional_protocols - Proxy (OverrideToSchema (Vector ConsensusRegisterRequest_Protocol)) +declare_additional_protocols + Proxy (OverrideToSchema (Vector ConsensusRegisterRequest_Protocol)) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ConsensusRegisterRequest +Proxy.Proxy + let Proxy ConsensusRegisterRequest _ = (Text -> Text -> Vector ConsensusRegisterRequest_Protocol @@ -3544,7 +3793,7 @@ forall k (t :: k). Proxy t -> Vector ConsensusRegisterRequest_Protocol -> ConsensusRegisterRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text +Hs.pure Text -> Text -> Vector ConsensusRegisterRequest_Protocol -> ConsensusRegisterRequest @@ -3559,15 +3808,15 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Vector ConsensusRegisterRequest_Protocol -> ConsensusRegisterRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema Text) +<*> + (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_name - Proxy +declare_name + Proxy (Text -> Vector ConsensusRegisterRequest_Protocol -> ConsensusRegisterRequest) @@ -3576,73 +3825,77 @@ forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a (Vector ConsensusRegisterRequest_Protocol -> ConsensusRegisterRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema Text) +<*> (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_version - Proxy +declare_version + Proxy (Vector ConsensusRegisterRequest_Protocol -> ConsensusRegisterRequest) -> Proxy (Vector ConsensusRegisterRequest_Protocol) -> Proxy ConsensusRegisterRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy +<*> (Proxy (OverrideToSchema (Vector ConsensusRegisterRequest_Protocol)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Vector ConsensusRegisterRequest_Protocol) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Vector ConsensusRegisterRequest_Protocol)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Vector ConsensusRegisterRequest_Protocol)) -> Declare (Definitions Schema) (Referenced Schema) -declare_additional_protocols - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_additional_protocols + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ConsensusRegisterRequest", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ConsensusRegisterRequest", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("name", Referenced Schema -consensusRegisterRequestName), - ("version", - Referenced Schema -consensusRegisterRequestVersion), - ("additional_protocols", - Referenced Schema -consensusRegisterRequestAdditionalProtocols)]}}) - -data ConsensusRegisterRequest_Protocol = ConsensusRegisterRequest_Protocol{ConsensusRegisterRequest_Protocol -> Text +HsJSONPB.insOrdFromList + [(Text +"name", Referenced Schema +consensusRegisterRequestName), + (Text +"version", + Referenced Schema +consensusRegisterRequestVersion), + (Text +"additional_protocols", + Referenced Schema +consensusRegisterRequestAdditionalProtocols)]}}) + +data ConsensusRegisterRequest_Protocol = ConsensusRegisterRequest_Protocol{ConsensusRegisterRequest_Protocol -> Text consensusRegisterRequest_ProtocolName - :: Hs.Text, - ConsensusRegisterRequest_Protocol -> Text + :: Hs.Text, + ConsensusRegisterRequest_Protocol -> Text consensusRegisterRequest_ProtocolVersion - :: Hs.Text} - deriving (Int -> ConsensusRegisterRequest_Protocol -> ShowS + :: Hs.Text} + deriving (Int -> ConsensusRegisterRequest_Protocol -> ShowS [ConsensusRegisterRequest_Protocol] -> ShowS ConsensusRegisterRequest_Protocol -> String (Int -> ConsensusRegisterRequest_Protocol -> ShowS) @@ -3657,7 +3910,7 @@ show :: ConsensusRegisterRequest_Protocol -> String $cshow :: ConsensusRegisterRequest_Protocol -> String showsPrec :: Int -> ConsensusRegisterRequest_Protocol -> ShowS $cshowsPrec :: Int -> ConsensusRegisterRequest_Protocol -> ShowS -Hs.Show, ConsensusRegisterRequest_Protocol +Hs.Show, ConsensusRegisterRequest_Protocol -> ConsensusRegisterRequest_Protocol -> Bool (ConsensusRegisterRequest_Protocol -> ConsensusRegisterRequest_Protocol -> Bool) @@ -3673,10 +3926,10 @@ $c/= :: ConsensusRegisterRequest_Protocol -> ConsensusRegisterRequest_Protocol -> Bool $c== :: ConsensusRegisterRequest_Protocol -> ConsensusRegisterRequest_Protocol -> Bool -Hs.Eq, Eq ConsensusRegisterRequest_Protocol -Eq ConsensusRegisterRequest_Protocol => -(ConsensusRegisterRequest_Protocol - -> ConsensusRegisterRequest_Protocol -> Ordering) +Hs.Eq, Eq ConsensusRegisterRequest_Protocol +Eq ConsensusRegisterRequest_Protocol +-> (ConsensusRegisterRequest_Protocol + -> ConsensusRegisterRequest_Protocol -> Ordering) -> (ConsensusRegisterRequest_Protocol -> ConsensusRegisterRequest_Protocol -> Bool) -> (ConsensusRegisterRequest_Protocol @@ -3700,8 +3953,8 @@ ConsensusRegisterRequest_Protocol -> ConsensusRegisterRequest_Protocol -> ConsensusRegisterRequest_Protocol forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -3742,7 +3995,7 @@ compare :: ConsensusRegisterRequest_Protocol $ccompare :: ConsensusRegisterRequest_Protocol -> ConsensusRegisterRequest_Protocol -> Ordering $cp1Ord :: Eq ConsensusRegisterRequest_Protocol -Hs.Ord, (forall x. +Hs.Ord, (forall x. ConsensusRegisterRequest_Protocol -> Rep ConsensusRegisterRequest_Protocol x) -> (forall x. @@ -3763,314 +4016,340 @@ Rep ConsensusRegisterRequest_Protocol x $cfrom :: forall x. ConsensusRegisterRequest_Protocol -> Rep ConsensusRegisterRequest_Protocol x -Hs.Generic, ConsensusRegisterRequest_Protocol -> () +Hs.Generic, ConsensusRegisterRequest_Protocol -> () (ConsensusRegisterRequest_Protocol -> ()) -> NFData ConsensusRegisterRequest_Protocol forall a. (a -> ()) -> NFData a rnf :: ConsensusRegisterRequest_Protocol -> () $crnf :: ConsensusRegisterRequest_Protocol -> () -Hs.NFData) - -instance HsProtobuf.Named ConsensusRegisterRequest_Protocol where - nameOf :: Proxy# ConsensusRegisterRequest_Protocol -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ConsensusRegisterRequest_Protocol where + nameOf :: Proxy# ConsensusRegisterRequest_Protocol -> string +nameOf Proxy# ConsensusRegisterRequest_Protocol +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ConsensusRegisterRequest_Protocol") - -instance HsProtobuf.HasDefault ConsensusRegisterRequest_Protocol - -instance HsProtobuf.Message ConsensusRegisterRequest_Protocol where - encodeMessage :: FieldNumber -> ConsensusRegisterRequest_Protocol -> MessageBuilder -encodeMessage _ - ConsensusRegisterRequest_Protocol{consensusRegisterRequest_ProtocolName :: ConsensusRegisterRequest_Protocol -> Text +Hs.fromString String +"ConsensusRegisterRequest_Protocol") + +instance HsProtobuf.HasDefault ConsensusRegisterRequest_Protocol + +instance HsProtobuf.Message ConsensusRegisterRequest_Protocol where + encodeMessage :: FieldNumber -> ConsensusRegisterRequest_Protocol -> MessageBuilder +encodeMessage FieldNumber +_ + ConsensusRegisterRequest_Protocol{consensusRegisterRequest_ProtocolName :: ConsensusRegisterRequest_Protocol -> Text consensusRegisterRequest_ProtocolName - = Text -consensusRegisterRequest_ProtocolName, - consensusRegisterRequest_ProtocolVersion :: ConsensusRegisterRequest_Protocol -> Text + = Text +consensusRegisterRequest_ProtocolName, + consensusRegisterRequest_ProtocolVersion :: ConsensusRegisterRequest_Protocol -> Text consensusRegisterRequest_ProtocolVersion = - Text -consensusRegisterRequest_ProtocolVersion} - = ([MessageBuilder] -> MessageBuilder + Text +consensusRegisterRequest_ProtocolVersion} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> Text -> MessageBuilder +Hs.mconcat + [(FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Text -consensusRegisterRequest_ProtocolName), - (FieldNumber -> Text -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Text +consensusRegisterRequest_ProtocolName), + (FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - Text -consensusRegisterRequest_ProtocolVersion)]) - decodeMessage :: FieldNumber -> Parser RawMessage ConsensusRegisterRequest_Protocol -decodeMessage _ - = ((Text -> Text -> ConsensusRegisterRequest_Protocol) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + Text +consensusRegisterRequest_ProtocolVersion)]) + decodeMessage :: FieldNumber -> Parser RawMessage ConsensusRegisterRequest_Protocol +decodeMessage FieldNumber +_ + = ((Text -> Text -> ConsensusRegisterRequest_Protocol) -> Parser RawMessage (Text -> Text -> ConsensusRegisterRequest_Protocol) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> Text -> ConsensusRegisterRequest_Protocol +Hs.pure Text -> Text -> ConsensusRegisterRequest_Protocol ConsensusRegisterRequest_Protocol) Parser RawMessage (Text -> Text -> ConsensusRegisterRequest_Protocol) -> Parser RawMessage Text -> Parser RawMessage (Text -> ConsensusRegisterRequest_Protocol) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser RawMessage (Text -> ConsensusRegisterRequest_Protocol) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (Text -> ConsensusRegisterRequest_Protocol) -> Parser RawMessage Text -> Parser RawMessage ConsensusRegisterRequest_Protocol forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2)) - dotProto :: Proxy# ConsensusRegisterRequest_Protocol -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2)) + dotProto :: Proxy# ConsensusRegisterRequest_Protocol -> [DotProtoField] +dotProto Proxy# ConsensusRegisterRequest_Protocol +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "name") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"name") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "version") - [] - "")] - -instance HsJSONPB.ToJSONPB ConsensusRegisterRequest_Protocol where - toJSONPB :: ConsensusRegisterRequest_Protocol -> Options -> Value -toJSONPB (ConsensusRegisterRequest_Protocol f1 :: Text -f1 f2 :: Text -f2) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["name" Text -> Text -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"version") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ConsensusRegisterRequest_Protocol where + toJSONPB :: ConsensusRegisterRequest_Protocol -> Options -> Value +toJSONPB (ConsensusRegisterRequest_Protocol Text +f1 Text +f2) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"name" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1, "version" Text -> Text -> Options -> [Pair] +.= Text +f1, Text +"version" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f2]) - toEncodingPB :: ConsensusRegisterRequest_Protocol -> Options -> Encoding -toEncodingPB (ConsensusRegisterRequest_Protocol f1 :: Text -f1 f2 :: Text -f2) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["name" Text -> Text -> Options -> Series +.= Text +f2]) + toEncodingPB :: ConsensusRegisterRequest_Protocol -> Options -> Encoding +toEncodingPB (ConsensusRegisterRequest_Protocol Text +f1 Text +f2) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"name" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1, "version" Text -> Text -> Options -> Series +.= Text +f1, Text +"version" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f2]) - -instance HsJSONPB.FromJSONPB ConsensusRegisterRequest_Protocol - where - parseJSONPB :: Value -> Parser ConsensusRegisterRequest_Protocol -parseJSONPB - = (String +.= Text +f2]) + +instance HsJSONPB.FromJSONPB ConsensusRegisterRequest_Protocol + where + parseJSONPB :: Value -> Parser ConsensusRegisterRequest_Protocol +parseJSONPB + = (String -> (Object -> Parser ConsensusRegisterRequest_Protocol) -> Value -> Parser ConsensusRegisterRequest_Protocol forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ConsensusRegisterRequest_Protocol" - (\ obj :: Object -obj -> - ((Text -> Text -> ConsensusRegisterRequest_Protocol) +HsJSONPB.withObject String +"ConsensusRegisterRequest_Protocol" + (\ Object +obj -> + ((Text -> Text -> ConsensusRegisterRequest_Protocol) -> Parser (Text -> Text -> ConsensusRegisterRequest_Protocol) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> Text -> ConsensusRegisterRequest_Protocol +Hs.pure Text -> Text -> ConsensusRegisterRequest_Protocol ConsensusRegisterRequest_Protocol) Parser (Text -> Text -> ConsensusRegisterRequest_Protocol) -> Parser Text -> Parser (Text -> ConsensusRegisterRequest_Protocol) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Text +<*> Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "name" Parser (Text -> ConsensusRegisterRequest_Protocol) +.: Text +"name" Parser (Text -> ConsensusRegisterRequest_Protocol) -> Parser Text -> Parser ConsensusRegisterRequest_Protocol forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser Text +<*> + Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "version")) - -instance HsJSONPB.ToJSON ConsensusRegisterRequest_Protocol where - toJSON :: ConsensusRegisterRequest_Protocol -> Value -toJSON = ConsensusRegisterRequest_Protocol -> Value +.: Text +"version")) + +instance HsJSONPB.ToJSON ConsensusRegisterRequest_Protocol where + toJSON :: ConsensusRegisterRequest_Protocol -> Value +toJSON = ConsensusRegisterRequest_Protocol -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ConsensusRegisterRequest_Protocol -> Encoding -toEncoding = ConsensusRegisterRequest_Protocol -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ConsensusRegisterRequest_Protocol -> Encoding +toEncoding = ConsensusRegisterRequest_Protocol -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ConsensusRegisterRequest_Protocol where - parseJSON :: Value -> Parser ConsensusRegisterRequest_Protocol -parseJSON = Value -> Parser ConsensusRegisterRequest_Protocol +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ConsensusRegisterRequest_Protocol where + parseJSON :: Value -> Parser ConsensusRegisterRequest_Protocol +parseJSON = Value -> Parser ConsensusRegisterRequest_Protocol forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ConsensusRegisterRequest_Protocol where - declareNamedSchema :: Proxy ConsensusRegisterRequest_Protocol +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ConsensusRegisterRequest_Protocol where + declareNamedSchema :: Proxy ConsensusRegisterRequest_Protocol -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_name :: Proxy (OverrideToSchema Text) +declareNamedSchema Proxy ConsensusRegisterRequest_Protocol +_ + = do let declare_name :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_name = Proxy (OverrideToSchema Text) +declare_name = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -consensusRegisterRequest_ProtocolName <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +consensusRegisterRequest_ProtocolName <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_name Proxy (OverrideToSchema Text) +declare_name Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_version :: Proxy (OverrideToSchema Text) +Proxy.Proxy + let declare_version :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_version = Proxy (OverrideToSchema Text) +declare_version = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -consensusRegisterRequest_ProtocolVersion <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +consensusRegisterRequest_ProtocolVersion <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_version - Proxy (OverrideToSchema Text) +declare_version + Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ConsensusRegisterRequest_Protocol +Proxy.Proxy + let Proxy ConsensusRegisterRequest_Protocol _ = (Text -> Text -> ConsensusRegisterRequest_Protocol) -> Proxy (Text -> Text -> ConsensusRegisterRequest_Protocol) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> Text -> ConsensusRegisterRequest_Protocol +Hs.pure Text -> Text -> ConsensusRegisterRequest_Protocol ConsensusRegisterRequest_Protocol Proxy (Text -> Text -> ConsensusRegisterRequest_Protocol) -> Proxy Text -> Proxy (Text -> ConsensusRegisterRequest_Protocol) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema Text) +<*> + (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_name - Proxy (Text -> ConsensusRegisterRequest_Protocol) +declare_name + Proxy (Text -> ConsensusRegisterRequest_Protocol) -> Proxy Text -> Proxy ConsensusRegisterRequest_Protocol forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema Text) +<*> (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_version - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_version + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ConsensusRegisterRequest_Protocol", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ConsensusRegisterRequest_Protocol", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("name", - Referenced Schema -consensusRegisterRequest_ProtocolName), - ("version", - Referenced Schema -consensusRegisterRequest_ProtocolVersion)]}}) - -data ConsensusRegisterResponse = ConsensusRegisterResponse{ConsensusRegisterResponse +HsJSONPB.insOrdFromList + [(Text +"name", + Referenced Schema +consensusRegisterRequest_ProtocolName), + (Text +"version", + Referenced Schema +consensusRegisterRequest_ProtocolVersion)]}}) + +data ConsensusRegisterResponse = ConsensusRegisterResponse{ConsensusRegisterResponse -> Enumerated ConsensusRegisterResponse_Status consensusRegisterResponseStatus - :: - HsProtobuf.Enumerated - Data.Sawtooth.Consensus.ConsensusRegisterResponse_Status, - ConsensusRegisterResponse -> Maybe ConsensusBlock + :: + HsProtobuf.Enumerated + Data.Sawtooth.Consensus.ConsensusRegisterResponse_Status, + ConsensusRegisterResponse -> Maybe ConsensusBlock consensusRegisterResponseChainHead :: - Hs.Maybe - Data.Sawtooth.Consensus.ConsensusBlock, - ConsensusRegisterResponse -> Vector ConsensusPeerInfo + Hs.Maybe + Data.Sawtooth.Consensus.ConsensusBlock, + ConsensusRegisterResponse -> Vector ConsensusPeerInfo consensusRegisterResponsePeers :: - Hs.Vector - Data.Sawtooth.Consensus.ConsensusPeerInfo, - ConsensusRegisterResponse -> Maybe ConsensusPeerInfo + Hs.Vector + Data.Sawtooth.Consensus.ConsensusPeerInfo, + ConsensusRegisterResponse -> Maybe ConsensusPeerInfo consensusRegisterResponseLocalPeerInfo :: - Hs.Maybe - Data.Sawtooth.Consensus.ConsensusPeerInfo} - deriving (Int -> ConsensusRegisterResponse -> ShowS + Hs.Maybe + Data.Sawtooth.Consensus.ConsensusPeerInfo} + deriving (Int -> ConsensusRegisterResponse -> ShowS [ConsensusRegisterResponse] -> ShowS ConsensusRegisterResponse -> String (Int -> ConsensusRegisterResponse -> ShowS) @@ -4085,7 +4364,7 @@ show :: ConsensusRegisterResponse -> String $cshow :: ConsensusRegisterResponse -> String showsPrec :: Int -> ConsensusRegisterResponse -> ShowS $cshowsPrec :: Int -> ConsensusRegisterResponse -> ShowS -Hs.Show, ConsensusRegisterResponse -> ConsensusRegisterResponse -> Bool +Hs.Show, ConsensusRegisterResponse -> ConsensusRegisterResponse -> Bool (ConsensusRegisterResponse -> ConsensusRegisterResponse -> Bool) -> (ConsensusRegisterResponse -> ConsensusRegisterResponse -> Bool) -> Eq ConsensusRegisterResponse @@ -4094,10 +4373,10 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: ConsensusRegisterResponse -> ConsensusRegisterResponse -> Bool == :: ConsensusRegisterResponse -> ConsensusRegisterResponse -> Bool $c== :: ConsensusRegisterResponse -> ConsensusRegisterResponse -> Bool -Hs.Eq, Eq ConsensusRegisterResponse -Eq ConsensusRegisterResponse => -(ConsensusRegisterResponse - -> ConsensusRegisterResponse -> Ordering) +Hs.Eq, Eq ConsensusRegisterResponse +Eq ConsensusRegisterResponse +-> (ConsensusRegisterResponse + -> ConsensusRegisterResponse -> Ordering) -> (ConsensusRegisterResponse -> ConsensusRegisterResponse -> Bool) -> (ConsensusRegisterResponse -> ConsensusRegisterResponse -> Bool) -> (ConsensusRegisterResponse -> ConsensusRegisterResponse -> Bool) @@ -4112,8 +4391,8 @@ ConsensusRegisterResponse -> ConsensusRegisterResponse -> Ordering ConsensusRegisterResponse -> ConsensusRegisterResponse -> ConsensusRegisterResponse forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -4140,7 +4419,7 @@ $c< :: ConsensusRegisterResponse -> ConsensusRegisterResponse -> Bool compare :: ConsensusRegisterResponse -> ConsensusRegisterResponse -> Ordering $ccompare :: ConsensusRegisterResponse -> ConsensusRegisterResponse -> Ordering $cp1Ord :: Eq ConsensusRegisterResponse -Hs.Ord, (forall x. +Hs.Ord, (forall x. ConsensusRegisterResponse -> Rep ConsensusRegisterResponse x) -> (forall x. Rep ConsensusRegisterResponse x -> ConsensusRegisterResponse) @@ -4155,84 +4434,89 @@ $cto :: forall x. Rep ConsensusRegisterResponse x -> ConsensusRegisterResponse $cfrom :: forall x. ConsensusRegisterResponse -> Rep ConsensusRegisterResponse x -Hs.Generic, ConsensusRegisterResponse -> () +Hs.Generic, ConsensusRegisterResponse -> () (ConsensusRegisterResponse -> ()) -> NFData ConsensusRegisterResponse forall a. (a -> ()) -> NFData a rnf :: ConsensusRegisterResponse -> () $crnf :: ConsensusRegisterResponse -> () -Hs.NFData) - -instance HsProtobuf.Named ConsensusRegisterResponse where - nameOf :: Proxy# ConsensusRegisterResponse -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ConsensusRegisterResponse where + nameOf :: Proxy# ConsensusRegisterResponse -> string +nameOf Proxy# ConsensusRegisterResponse +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ConsensusRegisterResponse") - -instance HsProtobuf.HasDefault ConsensusRegisterResponse - -instance HsProtobuf.Message ConsensusRegisterResponse where - encodeMessage :: FieldNumber -> ConsensusRegisterResponse -> MessageBuilder -encodeMessage _ - ConsensusRegisterResponse{consensusRegisterResponseStatus :: ConsensusRegisterResponse +Hs.fromString String +"ConsensusRegisterResponse") + +instance HsProtobuf.HasDefault ConsensusRegisterResponse + +instance HsProtobuf.Message ConsensusRegisterResponse where + encodeMessage :: FieldNumber -> ConsensusRegisterResponse -> MessageBuilder +encodeMessage FieldNumber +_ + ConsensusRegisterResponse{consensusRegisterResponseStatus :: ConsensusRegisterResponse -> Enumerated ConsensusRegisterResponse_Status consensusRegisterResponseStatus = - Enumerated ConsensusRegisterResponse_Status -consensusRegisterResponseStatus, - consensusRegisterResponseChainHead :: ConsensusRegisterResponse -> Maybe ConsensusBlock + Enumerated ConsensusRegisterResponse_Status +consensusRegisterResponseStatus, + consensusRegisterResponseChainHead :: ConsensusRegisterResponse -> Maybe ConsensusBlock consensusRegisterResponseChainHead = - Maybe ConsensusBlock -consensusRegisterResponseChainHead, - consensusRegisterResponsePeers :: ConsensusRegisterResponse -> Vector ConsensusPeerInfo -consensusRegisterResponsePeers = Vector ConsensusPeerInfo -consensusRegisterResponsePeers, - consensusRegisterResponseLocalPeerInfo :: ConsensusRegisterResponse -> Maybe ConsensusPeerInfo + Maybe ConsensusBlock +consensusRegisterResponseChainHead, + consensusRegisterResponsePeers :: ConsensusRegisterResponse -> Vector ConsensusPeerInfo +consensusRegisterResponsePeers = Vector ConsensusPeerInfo +consensusRegisterResponsePeers, + consensusRegisterResponseLocalPeerInfo :: ConsensusRegisterResponse -> Maybe ConsensusPeerInfo consensusRegisterResponseLocalPeerInfo = - Maybe ConsensusPeerInfo -consensusRegisterResponseLocalPeerInfo} - = ([MessageBuilder] -> MessageBuilder + Maybe ConsensusPeerInfo +consensusRegisterResponseLocalPeerInfo} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber +Hs.mconcat + [(FieldNumber -> Enumerated ConsensusRegisterResponse_Status -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Enumerated ConsensusRegisterResponse_Status -consensusRegisterResponseStatus), - (FieldNumber -> Nested ConsensusBlock -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Enumerated ConsensusRegisterResponse_Status +consensusRegisterResponseStatus), + (FieldNumber -> Nested ConsensusBlock -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (Maybe ConsensusBlock -> Nested ConsensusBlock -forall a b. Coercible a b => a -> b -Hs.coerce @(Hs.Maybe Data.Sawtooth.Consensus.ConsensusBlock) - @(HsProtobuf.Nested Data.Sawtooth.Consensus.ConsensusBlock) - Maybe ConsensusBlock -consensusRegisterResponseChainHead)), - (FieldNumber -> NestedVec ConsensusPeerInfo -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (Maybe ConsensusBlock -> Nested ConsensusBlock +Hs.coerce @(Hs.Maybe Data.Sawtooth.Consensus.ConsensusBlock) + @(HsProtobuf.Nested Data.Sawtooth.Consensus.ConsensusBlock) + Maybe ConsensusBlock +consensusRegisterResponseChainHead)), + (FieldNumber -> NestedVec ConsensusPeerInfo -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - (Vector ConsensusPeerInfo -> NestedVec ConsensusPeerInfo -forall a b. Coercible a b => a -> b -Hs.coerce @(Hs.Vector Data.Sawtooth.Consensus.ConsensusPeerInfo) - @(HsProtobuf.NestedVec Data.Sawtooth.Consensus.ConsensusPeerInfo) - Vector ConsensusPeerInfo -consensusRegisterResponsePeers)), - (FieldNumber -> Nested ConsensusPeerInfo -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + (Vector ConsensusPeerInfo -> NestedVec ConsensusPeerInfo +Hs.coerce @(Hs.Vector Data.Sawtooth.Consensus.ConsensusPeerInfo) + @(HsProtobuf.NestedVec Data.Sawtooth.Consensus.ConsensusPeerInfo) + Vector ConsensusPeerInfo +consensusRegisterResponsePeers)), + (FieldNumber -> Nested ConsensusPeerInfo -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 4) - (Maybe ConsensusPeerInfo -> Nested ConsensusPeerInfo -forall a b. Coercible a b => a -> b -Hs.coerce @(Hs.Maybe Data.Sawtooth.Consensus.ConsensusPeerInfo) - @(HsProtobuf.Nested Data.Sawtooth.Consensus.ConsensusPeerInfo) - Maybe ConsensusPeerInfo -consensusRegisterResponseLocalPeerInfo))]) - decodeMessage :: FieldNumber -> Parser RawMessage ConsensusRegisterResponse -decodeMessage _ - = ((Enumerated ConsensusRegisterResponse_Status +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +4) + (Maybe ConsensusPeerInfo -> Nested ConsensusPeerInfo +Hs.coerce @(Hs.Maybe Data.Sawtooth.Consensus.ConsensusPeerInfo) + @(HsProtobuf.Nested Data.Sawtooth.Consensus.ConsensusPeerInfo) + Maybe ConsensusPeerInfo +consensusRegisterResponseLocalPeerInfo))]) + decodeMessage :: FieldNumber -> Parser RawMessage ConsensusRegisterResponse +decodeMessage FieldNumber +_ + = ((Enumerated ConsensusRegisterResponse_Status -> Maybe ConsensusBlock -> Vector ConsensusPeerInfo -> Maybe ConsensusPeerInfo @@ -4245,7 +4529,7 @@ forall a b. Coercible a b => a -> b -> Maybe ConsensusPeerInfo -> ConsensusRegisterResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ConsensusRegisterResponse_Status +Hs.pure Enumerated ConsensusRegisterResponse_Status -> Maybe ConsensusBlock -> Vector ConsensusPeerInfo -> Maybe ConsensusPeerInfo @@ -4265,17 +4549,18 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Maybe ConsensusPeerInfo -> ConsensusRegisterResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField (Enumerated ConsensusRegisterResponse_Status) +<*> + (Parser RawField (Enumerated ConsensusRegisterResponse_Status) -> FieldNumber -> Parser RawMessage (Enumerated ConsensusRegisterResponse_Status) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (Enumerated ConsensusRegisterResponse_Status) +HsProtobuf.at Parser RawField (Enumerated ConsensusRegisterResponse_Status) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (Maybe ConsensusBlock -> Vector ConsensusPeerInfo @@ -4287,22 +4572,22 @@ forall a. MessageField a => Parser RawField a (Vector ConsensusPeerInfo -> Maybe ConsensusPeerInfo -> ConsensusRegisterResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (Nested ConsensusBlock) +<*> + (Parser RawMessage (Nested ConsensusBlock) -> Parser RawMessage (Maybe ConsensusBlock) -forall a b. Coercible a b => a -> b -Hs.coerce - @(_ (HsProtobuf.Nested Data.Sawtooth.Consensus.ConsensusBlock)) - @(_ (Hs.Maybe Data.Sawtooth.Consensus.ConsensusBlock)) - (Parser RawField (Nested ConsensusBlock) +Hs.coerce + @(_ (HsProtobuf.Nested Data.Sawtooth.Consensus.ConsensusBlock)) + @(_ (Hs.Maybe Data.Sawtooth.Consensus.ConsensusBlock)) + (Parser RawField (Nested ConsensusBlock) -> FieldNumber -> Parser RawMessage (Nested ConsensusBlock) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (Nested ConsensusBlock) +HsProtobuf.at Parser RawField (Nested ConsensusBlock) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2))) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2))) + Parser RawMessage (Vector ConsensusPeerInfo -> Maybe ConsensusPeerInfo -> ConsensusRegisterResponse) @@ -4310,187 +4595,213 @@ forall a. MessageField a => Parser RawField a -> Parser RawMessage (Maybe ConsensusPeerInfo -> ConsensusRegisterResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (NestedVec ConsensusPeerInfo) +<*> + (Parser RawMessage (NestedVec ConsensusPeerInfo) -> Parser RawMessage (Vector ConsensusPeerInfo) -forall a b. Coercible a b => a -> b -Hs.coerce - @(_ (HsProtobuf.NestedVec Data.Sawtooth.Consensus.ConsensusPeerInfo)) - @(_ (Hs.Vector Data.Sawtooth.Consensus.ConsensusPeerInfo)) - (Parser RawField (NestedVec ConsensusPeerInfo) +Hs.coerce + @(_ (HsProtobuf.NestedVec Data.Sawtooth.Consensus.ConsensusPeerInfo)) + @(_ (Hs.Vector Data.Sawtooth.Consensus.ConsensusPeerInfo)) + (Parser RawField (NestedVec ConsensusPeerInfo) -> FieldNumber -> Parser RawMessage (NestedVec ConsensusPeerInfo) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (NestedVec ConsensusPeerInfo) +HsProtobuf.at Parser RawField (NestedVec ConsensusPeerInfo) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3))) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3))) + Parser RawMessage (Maybe ConsensusPeerInfo -> ConsensusRegisterResponse) -> Parser RawMessage (Maybe ConsensusPeerInfo) -> Parser RawMessage ConsensusRegisterResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (Nested ConsensusPeerInfo) +<*> + (Parser RawMessage (Nested ConsensusPeerInfo) -> Parser RawMessage (Maybe ConsensusPeerInfo) -forall a b. Coercible a b => a -> b -Hs.coerce - @(_ (HsProtobuf.Nested Data.Sawtooth.Consensus.ConsensusPeerInfo)) - @(_ (Hs.Maybe Data.Sawtooth.Consensus.ConsensusPeerInfo)) - (Parser RawField (Nested ConsensusPeerInfo) +Hs.coerce + @(_ (HsProtobuf.Nested Data.Sawtooth.Consensus.ConsensusPeerInfo)) + @(_ (Hs.Maybe Data.Sawtooth.Consensus.ConsensusPeerInfo)) + (Parser RawField (Nested ConsensusPeerInfo) -> FieldNumber -> Parser RawMessage (Nested ConsensusPeerInfo) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (Nested ConsensusPeerInfo) +HsProtobuf.at Parser RawField (Nested ConsensusPeerInfo) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 4))) - dotProto :: Proxy# ConsensusRegisterResponse -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +4))) + dotProto :: Proxy# ConsensusRegisterResponse -> [DotProtoField] +dotProto Proxy# ConsensusRegisterResponse +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "Status"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "status") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"Status"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"status") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim - (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "ConsensusBlock"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "chain_head") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim + (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"ConsensusBlock"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"chain_head") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Repeated - (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "ConsensusPeerInfo"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "peers") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Repeated + (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"ConsensusPeerInfo"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"peers") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 4) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim - (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "ConsensusPeerInfo"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "local_peer_info") - [] - "")] - -instance HsJSONPB.ToJSONPB ConsensusRegisterResponse where - toJSONPB :: ConsensusRegisterResponse -> Options -> Value -toJSONPB (ConsensusRegisterResponse f1 :: Enumerated ConsensusRegisterResponse_Status -f1 f2 :: Maybe ConsensusBlock -f2 f3 :: Vector ConsensusPeerInfo -f3 f4 :: Maybe ConsensusPeerInfo -f4) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object - ["status" Text +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +4) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim + (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"ConsensusPeerInfo"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"local_peer_info") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ConsensusRegisterResponse where + toJSONPB :: ConsensusRegisterResponse -> Options -> Value +toJSONPB (ConsensusRegisterResponse Enumerated ConsensusRegisterResponse_Status +f1 Maybe ConsensusBlock +f2 Vector ConsensusPeerInfo +f3 Maybe ConsensusPeerInfo +f4) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object + [Text +"status" Text -> Enumerated ConsensusRegisterResponse_Status -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated ConsensusRegisterResponse_Status -f1, "chain_head" Text -> Maybe ConsensusBlock -> Options -> [Pair] +.= Enumerated ConsensusRegisterResponse_Status +f1, Text +"chain_head" Text -> Maybe ConsensusBlock -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Maybe ConsensusBlock -f2, "peers" Text -> Vector ConsensusPeerInfo -> Options -> [Pair] +.= Maybe ConsensusBlock +f2, Text +"peers" Text -> Vector ConsensusPeerInfo -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector ConsensusPeerInfo -f3, - "local_peer_info" Text -> Maybe ConsensusPeerInfo -> Options -> [Pair] +.= Vector ConsensusPeerInfo +f3, + Text +"local_peer_info" Text -> Maybe ConsensusPeerInfo -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Maybe ConsensusPeerInfo -f4]) - toEncodingPB :: ConsensusRegisterResponse -> Options -> Encoding -toEncodingPB (ConsensusRegisterResponse f1 :: Enumerated ConsensusRegisterResponse_Status -f1 f2 :: Maybe ConsensusBlock -f2 f3 :: Vector ConsensusPeerInfo -f3 f4 :: Maybe ConsensusPeerInfo -f4) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs - ["status" Text +.= Maybe ConsensusPeerInfo +f4]) + toEncodingPB :: ConsensusRegisterResponse -> Options -> Encoding +toEncodingPB (ConsensusRegisterResponse Enumerated ConsensusRegisterResponse_Status +f1 Maybe ConsensusBlock +f2 Vector ConsensusPeerInfo +f3 Maybe ConsensusPeerInfo +f4) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs + [Text +"status" Text -> Enumerated ConsensusRegisterResponse_Status -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated ConsensusRegisterResponse_Status -f1, "chain_head" Text -> Maybe ConsensusBlock -> Options -> Series +.= Enumerated ConsensusRegisterResponse_Status +f1, Text +"chain_head" Text -> Maybe ConsensusBlock -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Maybe ConsensusBlock -f2, "peers" Text -> Vector ConsensusPeerInfo -> Options -> Series +.= Maybe ConsensusBlock +f2, Text +"peers" Text -> Vector ConsensusPeerInfo -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector ConsensusPeerInfo -f3, - "local_peer_info" Text -> Maybe ConsensusPeerInfo -> Options -> Series +.= Vector ConsensusPeerInfo +f3, + Text +"local_peer_info" Text -> Maybe ConsensusPeerInfo -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Maybe ConsensusPeerInfo -f4]) - -instance HsJSONPB.FromJSONPB ConsensusRegisterResponse where - parseJSONPB :: Value -> Parser ConsensusRegisterResponse -parseJSONPB - = (String +.= Maybe ConsensusPeerInfo +f4]) + +instance HsJSONPB.FromJSONPB ConsensusRegisterResponse where + parseJSONPB :: Value -> Parser ConsensusRegisterResponse +parseJSONPB + = (String -> (Object -> Parser ConsensusRegisterResponse) -> Value -> Parser ConsensusRegisterResponse forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ConsensusRegisterResponse" - (\ obj :: Object -obj -> - ((Enumerated ConsensusRegisterResponse_Status +HsJSONPB.withObject String +"ConsensusRegisterResponse" + (\ Object +obj -> + ((Enumerated ConsensusRegisterResponse_Status -> Maybe ConsensusBlock -> Vector ConsensusPeerInfo -> Maybe ConsensusPeerInfo @@ -4502,7 +4813,7 @@ forall a. String -> (Object -> Parser a) -> Value -> Parser a -> Maybe ConsensusPeerInfo -> ConsensusRegisterResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ConsensusRegisterResponse_Status +Hs.pure Enumerated ConsensusRegisterResponse_Status -> Maybe ConsensusBlock -> Vector ConsensusPeerInfo -> Maybe ConsensusPeerInfo @@ -4520,13 +4831,14 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Maybe ConsensusPeerInfo -> ConsensusRegisterResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object +<*> Object +obj Object -> Text -> Parser (Enumerated ConsensusRegisterResponse_Status) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "status" Parser +.: Text +"status" Parser (Maybe ConsensusBlock -> Vector ConsensusPeerInfo -> Maybe ConsensusPeerInfo @@ -4536,119 +4848,123 @@ Object -> Text -> Parser a (Vector ConsensusPeerInfo -> Maybe ConsensusPeerInfo -> ConsensusRegisterResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser (Maybe ConsensusBlock) +<*> + Object +obj Object -> Text -> Parser (Maybe ConsensusBlock) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "chain_head" - Parser +.: Text +"chain_head" + Parser (Vector ConsensusPeerInfo -> Maybe ConsensusPeerInfo -> ConsensusRegisterResponse) -> Parser (Vector ConsensusPeerInfo) -> Parser (Maybe ConsensusPeerInfo -> ConsensusRegisterResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser (Vector ConsensusPeerInfo) +<*> Object +obj Object -> Text -> Parser (Vector ConsensusPeerInfo) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "peers" - Parser (Maybe ConsensusPeerInfo -> ConsensusRegisterResponse) +.: Text +"peers" + Parser (Maybe ConsensusPeerInfo -> ConsensusRegisterResponse) -> Parser (Maybe ConsensusPeerInfo) -> Parser ConsensusRegisterResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser (Maybe ConsensusPeerInfo) +<*> Object +obj Object -> Text -> Parser (Maybe ConsensusPeerInfo) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "local_peer_info")) - -instance HsJSONPB.ToJSON ConsensusRegisterResponse where - toJSON :: ConsensusRegisterResponse -> Value -toJSON = ConsensusRegisterResponse -> Value +.: Text +"local_peer_info")) + +instance HsJSONPB.ToJSON ConsensusRegisterResponse where + toJSON :: ConsensusRegisterResponse -> Value +toJSON = ConsensusRegisterResponse -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ConsensusRegisterResponse -> Encoding -toEncoding = ConsensusRegisterResponse -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ConsensusRegisterResponse -> Encoding +toEncoding = ConsensusRegisterResponse -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ConsensusRegisterResponse where - parseJSON :: Value -> Parser ConsensusRegisterResponse -parseJSON = Value -> Parser ConsensusRegisterResponse +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ConsensusRegisterResponse where + parseJSON :: Value -> Parser ConsensusRegisterResponse +parseJSON = Value -> Parser ConsensusRegisterResponse forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ConsensusRegisterResponse where - declareNamedSchema :: Proxy ConsensusRegisterResponse +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ConsensusRegisterResponse where + declareNamedSchema :: Proxy ConsensusRegisterResponse -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_status :: Proxy +declareNamedSchema Proxy ConsensusRegisterResponse +_ + = do let declare_status :: Proxy (OverrideToSchema (Enumerated ConsensusRegisterResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status = Proxy +declare_status = Proxy (OverrideToSchema (Enumerated ConsensusRegisterResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -consensusRegisterResponseStatus <- Proxy +HsJSONPB.declareSchemaRef + Referenced Schema +consensusRegisterResponseStatus <- Proxy (OverrideToSchema (Enumerated ConsensusRegisterResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status Proxy +declare_status Proxy (OverrideToSchema (Enumerated ConsensusRegisterResponse_Status)) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_chain_head :: Proxy (OverrideToSchema (Maybe ConsensusBlock)) +Proxy.Proxy + let declare_chain_head :: Proxy (OverrideToSchema (Maybe ConsensusBlock)) -> Declare (Definitions Schema) (Referenced Schema) -declare_chain_head = Proxy (OverrideToSchema (Maybe ConsensusBlock)) +declare_chain_head = Proxy (OverrideToSchema (Maybe ConsensusBlock)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -consensusRegisterResponseChainHead <- Proxy (OverrideToSchema (Maybe ConsensusBlock)) +HsJSONPB.declareSchemaRef + Referenced Schema +consensusRegisterResponseChainHead <- Proxy (OverrideToSchema (Maybe ConsensusBlock)) -> Declare (Definitions Schema) (Referenced Schema) -declare_chain_head - Proxy (OverrideToSchema (Maybe ConsensusBlock)) +declare_chain_head + Proxy (OverrideToSchema (Maybe ConsensusBlock)) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_peers :: Proxy (OverrideToSchema (Vector ConsensusPeerInfo)) +Proxy.Proxy + let declare_peers :: Proxy (OverrideToSchema (Vector ConsensusPeerInfo)) -> Declare (Definitions Schema) (Referenced Schema) -declare_peers = Proxy (OverrideToSchema (Vector ConsensusPeerInfo)) +declare_peers = Proxy (OverrideToSchema (Vector ConsensusPeerInfo)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -consensusRegisterResponsePeers <- Proxy (OverrideToSchema (Vector ConsensusPeerInfo)) +HsJSONPB.declareSchemaRef + Referenced Schema +consensusRegisterResponsePeers <- Proxy (OverrideToSchema (Vector ConsensusPeerInfo)) -> Declare (Definitions Schema) (Referenced Schema) -declare_peers Proxy (OverrideToSchema (Vector ConsensusPeerInfo)) +declare_peers Proxy (OverrideToSchema (Vector ConsensusPeerInfo)) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_local_peer_info :: Proxy (OverrideToSchema (Maybe ConsensusPeerInfo)) +Proxy.Proxy + let declare_local_peer_info :: Proxy (OverrideToSchema (Maybe ConsensusPeerInfo)) -> Declare (Definitions Schema) (Referenced Schema) -declare_local_peer_info = Proxy (OverrideToSchema (Maybe ConsensusPeerInfo)) +declare_local_peer_info = Proxy (OverrideToSchema (Maybe ConsensusPeerInfo)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -consensusRegisterResponseLocalPeerInfo <- Proxy (OverrideToSchema (Maybe ConsensusPeerInfo)) +HsJSONPB.declareSchemaRef + Referenced Schema +consensusRegisterResponseLocalPeerInfo <- Proxy (OverrideToSchema (Maybe ConsensusPeerInfo)) -> Declare (Definitions Schema) (Referenced Schema) -declare_local_peer_info - Proxy (OverrideToSchema (Maybe ConsensusPeerInfo)) +declare_local_peer_info + Proxy (OverrideToSchema (Maybe ConsensusPeerInfo)) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ConsensusRegisterResponse +Proxy.Proxy + let Proxy ConsensusRegisterResponse _ = (Enumerated ConsensusRegisterResponse_Status -> Maybe ConsensusBlock -> Vector ConsensusPeerInfo @@ -4661,7 +4977,7 @@ forall k (t :: k). Proxy t -> Maybe ConsensusPeerInfo -> ConsensusRegisterResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ConsensusRegisterResponse_Status +Hs.pure Enumerated ConsensusRegisterResponse_Status -> Maybe ConsensusBlock -> Vector ConsensusPeerInfo -> Maybe ConsensusPeerInfo @@ -4679,17 +4995,17 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Maybe ConsensusPeerInfo -> ConsensusRegisterResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy +<*> + (Proxy (OverrideToSchema (Enumerated ConsensusRegisterResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Enumerated ConsensusRegisterResponse_Status) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy +HsJSONPB.asProxy Proxy (OverrideToSchema (Enumerated ConsensusRegisterResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status - Proxy +declare_status + Proxy (Maybe ConsensusBlock -> Vector ConsensusPeerInfo -> Maybe ConsensusPeerInfo @@ -4699,84 +5015,89 @@ forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a (Vector ConsensusPeerInfo -> Maybe ConsensusPeerInfo -> ConsensusRegisterResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema (Maybe ConsensusBlock)) +<*> (Proxy (OverrideToSchema (Maybe ConsensusBlock)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Maybe ConsensusBlock) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Maybe ConsensusBlock)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Maybe ConsensusBlock)) -> Declare (Definitions Schema) (Referenced Schema) -declare_chain_head - Proxy +declare_chain_head + Proxy (Vector ConsensusPeerInfo -> Maybe ConsensusPeerInfo -> ConsensusRegisterResponse) -> Proxy (Vector ConsensusPeerInfo) -> Proxy (Maybe ConsensusPeerInfo -> ConsensusRegisterResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema (Vector ConsensusPeerInfo)) +<*> (Proxy (OverrideToSchema (Vector ConsensusPeerInfo)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Vector ConsensusPeerInfo) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Vector ConsensusPeerInfo)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Vector ConsensusPeerInfo)) -> Declare (Definitions Schema) (Referenced Schema) -declare_peers - Proxy (Maybe ConsensusPeerInfo -> ConsensusRegisterResponse) +declare_peers + Proxy (Maybe ConsensusPeerInfo -> ConsensusRegisterResponse) -> Proxy (Maybe ConsensusPeerInfo) -> Proxy ConsensusRegisterResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema (Maybe ConsensusPeerInfo)) +<*> (Proxy (OverrideToSchema (Maybe ConsensusPeerInfo)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Maybe ConsensusPeerInfo) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Maybe ConsensusPeerInfo)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Maybe ConsensusPeerInfo)) -> Declare (Definitions Schema) (Referenced Schema) -declare_local_peer_info - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_local_peer_info + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ConsensusRegisterResponse", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ConsensusRegisterResponse", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("status", Referenced Schema -consensusRegisterResponseStatus), - ("chain_head", - Referenced Schema -consensusRegisterResponseChainHead), - ("peers", Referenced Schema -consensusRegisterResponsePeers), - ("local_peer_info", - Referenced Schema -consensusRegisterResponseLocalPeerInfo)]}}) - -data ConsensusRegisterResponse_Status = ConsensusRegisterResponse_StatusSTATUS_UNSET - | ConsensusRegisterResponse_StatusOK - | ConsensusRegisterResponse_StatusBAD_REQUEST - | ConsensusRegisterResponse_StatusSERVICE_ERROR - | ConsensusRegisterResponse_StatusNOT_READY - deriving (Int -> ConsensusRegisterResponse_Status -> ShowS +HsJSONPB.insOrdFromList + [(Text +"status", Referenced Schema +consensusRegisterResponseStatus), + (Text +"chain_head", + Referenced Schema +consensusRegisterResponseChainHead), + (Text +"peers", Referenced Schema +consensusRegisterResponsePeers), + (Text +"local_peer_info", + Referenced Schema +consensusRegisterResponseLocalPeerInfo)]}}) + +data ConsensusRegisterResponse_Status = ConsensusRegisterResponse_StatusSTATUS_UNSET + | ConsensusRegisterResponse_StatusOK + | ConsensusRegisterResponse_StatusBAD_REQUEST + | ConsensusRegisterResponse_StatusSERVICE_ERROR + | ConsensusRegisterResponse_StatusNOT_READY + deriving (Int -> ConsensusRegisterResponse_Status -> ShowS [ConsensusRegisterResponse_Status] -> ShowS ConsensusRegisterResponse_Status -> String (Int -> ConsensusRegisterResponse_Status -> ShowS) @@ -4791,7 +5112,7 @@ show :: ConsensusRegisterResponse_Status -> String $cshow :: ConsensusRegisterResponse_Status -> String showsPrec :: Int -> ConsensusRegisterResponse_Status -> ShowS $cshowsPrec :: Int -> ConsensusRegisterResponse_Status -> ShowS -Hs.Show, ConsensusRegisterResponse_Status +Hs.Show, ConsensusRegisterResponse_Status -> ConsensusRegisterResponse_Status -> Bool (ConsensusRegisterResponse_Status -> ConsensusRegisterResponse_Status -> Bool) @@ -4807,7 +5128,7 @@ $c/= :: ConsensusRegisterResponse_Status -> ConsensusRegisterResponse_Status -> Bool $c== :: ConsensusRegisterResponse_Status -> ConsensusRegisterResponse_Status -> Bool -Hs.Eq, (forall x. +Hs.Eq, (forall x. ConsensusRegisterResponse_Status -> Rep ConsensusRegisterResponse_Status x) -> (forall x. @@ -4828,171 +5149,192 @@ Rep ConsensusRegisterResponse_Status x $cfrom :: forall x. ConsensusRegisterResponse_Status -> Rep ConsensusRegisterResponse_Status x -Hs.Generic, ConsensusRegisterResponse_Status -> () +Hs.Generic, ConsensusRegisterResponse_Status -> () (ConsensusRegisterResponse_Status -> ()) -> NFData ConsensusRegisterResponse_Status forall a. (a -> ()) -> NFData a rnf :: ConsensusRegisterResponse_Status -> () $crnf :: ConsensusRegisterResponse_Status -> () -Hs.NFData) - -instance HsProtobuf.Named ConsensusRegisterResponse_Status where - nameOf :: Proxy# ConsensusRegisterResponse_Status -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ConsensusRegisterResponse_Status where + nameOf :: Proxy# ConsensusRegisterResponse_Status -> string +nameOf Proxy# ConsensusRegisterResponse_Status +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ConsensusRegisterResponse_Status") - -instance HsProtobuf.HasDefault ConsensusRegisterResponse_Status - -instance Hs.Bounded ConsensusRegisterResponse_Status where - minBound :: ConsensusRegisterResponse_Status -minBound = ConsensusRegisterResponse_Status +Hs.fromString String +"ConsensusRegisterResponse_Status") + +instance HsProtobuf.HasDefault ConsensusRegisterResponse_Status + +instance Hs.Bounded ConsensusRegisterResponse_Status where + minBound :: ConsensusRegisterResponse_Status +minBound = ConsensusRegisterResponse_Status ConsensusRegisterResponse_StatusSTATUS_UNSET - maxBound :: ConsensusRegisterResponse_Status -maxBound = ConsensusRegisterResponse_Status + maxBound :: ConsensusRegisterResponse_Status +maxBound = ConsensusRegisterResponse_Status ConsensusRegisterResponse_StatusNOT_READY - -instance Hs.Ord ConsensusRegisterResponse_Status where - compare :: ConsensusRegisterResponse_Status + +instance Hs.Ord ConsensusRegisterResponse_Status where + compare :: ConsensusRegisterResponse_Status -> ConsensusRegisterResponse_Status -> Ordering -compare x :: ConsensusRegisterResponse_Status -x y :: ConsensusRegisterResponse_Status -y - = Int32 -> Int32 -> Ordering +compare ConsensusRegisterResponse_Status +x ConsensusRegisterResponse_Status +y + = Int32 -> Int32 -> Ordering forall a. Ord a => a -> a -> Ordering -Hs.compare (ConsensusRegisterResponse_Status -> Int32 +Hs.compare (ConsensusRegisterResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum ConsensusRegisterResponse_Status -x) - (ConsensusRegisterResponse_Status -> Int32 +HsProtobuf.fromProtoEnum ConsensusRegisterResponse_Status +x) + (ConsensusRegisterResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum ConsensusRegisterResponse_Status -y) - -instance HsProtobuf.ProtoEnum ConsensusRegisterResponse_Status - where - toProtoEnumMay :: Int32 -> Maybe ConsensusRegisterResponse_Status -toProtoEnumMay 0 - = ConsensusRegisterResponse_Status +HsProtobuf.fromProtoEnum ConsensusRegisterResponse_Status +y) + +instance HsProtobuf.ProtoEnum ConsensusRegisterResponse_Status + where + toProtoEnumMay :: Int32 -> Maybe ConsensusRegisterResponse_Status +toProtoEnumMay Int32 +0 + = ConsensusRegisterResponse_Status -> Maybe ConsensusRegisterResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusRegisterResponse_Status +Hs.Just ConsensusRegisterResponse_Status ConsensusRegisterResponse_StatusSTATUS_UNSET - toProtoEnumMay 1 = ConsensusRegisterResponse_Status + toProtoEnumMay Int32 +1 = ConsensusRegisterResponse_Status -> Maybe ConsensusRegisterResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusRegisterResponse_Status +Hs.Just ConsensusRegisterResponse_Status ConsensusRegisterResponse_StatusOK - toProtoEnumMay 2 - = ConsensusRegisterResponse_Status + toProtoEnumMay Int32 +2 + = ConsensusRegisterResponse_Status -> Maybe ConsensusRegisterResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusRegisterResponse_Status +Hs.Just ConsensusRegisterResponse_Status ConsensusRegisterResponse_StatusBAD_REQUEST - toProtoEnumMay 3 - = ConsensusRegisterResponse_Status + toProtoEnumMay Int32 +3 + = ConsensusRegisterResponse_Status -> Maybe ConsensusRegisterResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusRegisterResponse_Status +Hs.Just ConsensusRegisterResponse_Status ConsensusRegisterResponse_StatusSERVICE_ERROR - toProtoEnumMay 4 - = ConsensusRegisterResponse_Status + toProtoEnumMay Int32 +4 + = ConsensusRegisterResponse_Status -> Maybe ConsensusRegisterResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusRegisterResponse_Status +Hs.Just ConsensusRegisterResponse_Status ConsensusRegisterResponse_StatusNOT_READY - toProtoEnumMay _ = Maybe ConsensusRegisterResponse_Status + toProtoEnumMay Int32 +_ = Maybe ConsensusRegisterResponse_Status forall a. Maybe a -Hs.Nothing - fromProtoEnum :: ConsensusRegisterResponse_Status -> Int32 -fromProtoEnum (ConsensusRegisterResponse_Status -ConsensusRegisterResponse_StatusSTATUS_UNSET) = 0 - fromProtoEnum (ConsensusRegisterResponse_Status -ConsensusRegisterResponse_StatusOK) = 1 - fromProtoEnum (ConsensusRegisterResponse_Status -ConsensusRegisterResponse_StatusBAD_REQUEST) = 2 - fromProtoEnum (ConsensusRegisterResponse_Status -ConsensusRegisterResponse_StatusSERVICE_ERROR) = 3 - fromProtoEnum (ConsensusRegisterResponse_Status -ConsensusRegisterResponse_StatusNOT_READY) = 4 - -instance HsJSONPB.ToJSONPB ConsensusRegisterResponse_Status where - toJSONPB :: ConsensusRegisterResponse_Status -> Options -> Value -toJSONPB x :: ConsensusRegisterResponse_Status -x _ = ConsensusRegisterResponse_Status -> Value +Hs.Nothing + fromProtoEnum :: ConsensusRegisterResponse_Status -> Int32 +fromProtoEnum (ConsensusRegisterResponse_Status +ConsensusRegisterResponse_StatusSTATUS_UNSET) = Int32 +0 + fromProtoEnum (ConsensusRegisterResponse_Status +ConsensusRegisterResponse_StatusOK) = Int32 +1 + fromProtoEnum (ConsensusRegisterResponse_Status +ConsensusRegisterResponse_StatusBAD_REQUEST) = Int32 +2 + fromProtoEnum (ConsensusRegisterResponse_Status +ConsensusRegisterResponse_StatusSERVICE_ERROR) = Int32 +3 + fromProtoEnum (ConsensusRegisterResponse_Status +ConsensusRegisterResponse_StatusNOT_READY) = Int32 +4 + +instance HsJSONPB.ToJSONPB ConsensusRegisterResponse_Status where + toJSONPB :: ConsensusRegisterResponse_Status -> Options -> Value +toJSONPB ConsensusRegisterResponse_Status +x Options +_ = ConsensusRegisterResponse_Status -> Value forall a. (Named a, Show a) => a -> Value -HsJSONPB.enumFieldString ConsensusRegisterResponse_Status -x - toEncodingPB :: ConsensusRegisterResponse_Status -> Options -> Encoding -toEncodingPB x :: ConsensusRegisterResponse_Status -x _ = ConsensusRegisterResponse_Status -> Encoding +HsJSONPB.enumFieldString ConsensusRegisterResponse_Status +x + toEncodingPB :: ConsensusRegisterResponse_Status -> Options -> Encoding +toEncodingPB ConsensusRegisterResponse_Status +x Options +_ = ConsensusRegisterResponse_Status -> Encoding forall a. (Named a, Show a) => a -> Encoding -HsJSONPB.enumFieldEncoding ConsensusRegisterResponse_Status -x - -instance HsJSONPB.FromJSONPB ConsensusRegisterResponse_Status where - parseJSONPB :: Value -> Parser ConsensusRegisterResponse_Status -parseJSONPB (HsJSONPB.String "STATUS_UNSET") - = ConsensusRegisterResponse_Status +HsJSONPB.enumFieldEncoding ConsensusRegisterResponse_Status +x + +instance HsJSONPB.FromJSONPB ConsensusRegisterResponse_Status where + parseJSONPB :: Value -> Parser ConsensusRegisterResponse_Status +parseJSONPB (HsJSONPB.String Text +"STATUS_UNSET") + = ConsensusRegisterResponse_Status -> Parser ConsensusRegisterResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusRegisterResponse_Status +Hs.pure ConsensusRegisterResponse_Status ConsensusRegisterResponse_StatusSTATUS_UNSET - parseJSONPB (HsJSONPB.String "OK") - = ConsensusRegisterResponse_Status + parseJSONPB (HsJSONPB.String Text +"OK") + = ConsensusRegisterResponse_Status -> Parser ConsensusRegisterResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusRegisterResponse_Status +Hs.pure ConsensusRegisterResponse_Status ConsensusRegisterResponse_StatusOK - parseJSONPB (HsJSONPB.String "BAD_REQUEST") - = ConsensusRegisterResponse_Status + parseJSONPB (HsJSONPB.String Text +"BAD_REQUEST") + = ConsensusRegisterResponse_Status -> Parser ConsensusRegisterResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusRegisterResponse_Status +Hs.pure ConsensusRegisterResponse_Status ConsensusRegisterResponse_StatusBAD_REQUEST - parseJSONPB (HsJSONPB.String "SERVICE_ERROR") - = ConsensusRegisterResponse_Status + parseJSONPB (HsJSONPB.String Text +"SERVICE_ERROR") + = ConsensusRegisterResponse_Status -> Parser ConsensusRegisterResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusRegisterResponse_Status +Hs.pure ConsensusRegisterResponse_Status ConsensusRegisterResponse_StatusSERVICE_ERROR - parseJSONPB (HsJSONPB.String "NOT_READY") - = ConsensusRegisterResponse_Status + parseJSONPB (HsJSONPB.String Text +"NOT_READY") + = ConsensusRegisterResponse_Status -> Parser ConsensusRegisterResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusRegisterResponse_Status +Hs.pure ConsensusRegisterResponse_Status ConsensusRegisterResponse_StatusNOT_READY - parseJSONPB v :: Value -v - = (String -> Value -> Parser ConsensusRegisterResponse_Status + parseJSONPB Value +v + = (String -> Value -> Parser ConsensusRegisterResponse_Status forall a. String -> Value -> Parser a -HsJSONPB.typeMismatch "ConsensusRegisterResponse_Status" Value -v) - -instance HsJSONPB.ToJSON ConsensusRegisterResponse_Status where - toJSON :: ConsensusRegisterResponse_Status -> Value -toJSON = ConsensusRegisterResponse_Status -> Value +HsJSONPB.typeMismatch String +"ConsensusRegisterResponse_Status" Value +v) + +instance HsJSONPB.ToJSON ConsensusRegisterResponse_Status where + toJSON :: ConsensusRegisterResponse_Status -> Value +toJSON = ConsensusRegisterResponse_Status -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ConsensusRegisterResponse_Status -> Encoding -toEncoding = ConsensusRegisterResponse_Status -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ConsensusRegisterResponse_Status -> Encoding +toEncoding = ConsensusRegisterResponse_Status -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ConsensusRegisterResponse_Status where - parseJSON :: Value -> Parser ConsensusRegisterResponse_Status -parseJSON = Value -> Parser ConsensusRegisterResponse_Status +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ConsensusRegisterResponse_Status where + parseJSON :: Value -> Parser ConsensusRegisterResponse_Status +parseJSON = Value -> Parser ConsensusRegisterResponse_Status forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsProtobuf.Finite ConsensusRegisterResponse_Status - -newtype ConsensusNotifyPeerConnected = ConsensusNotifyPeerConnected{ConsensusNotifyPeerConnected -> Maybe ConsensusPeerInfo +HsJSONPB.parseJSONPB + +instance HsProtobuf.Finite ConsensusRegisterResponse_Status + +newtype ConsensusNotifyPeerConnected = ConsensusNotifyPeerConnected{ConsensusNotifyPeerConnected -> Maybe ConsensusPeerInfo consensusNotifyPeerConnectedPeerInfo - :: - Hs.Maybe - Data.Sawtooth.Consensus.ConsensusPeerInfo} - deriving (Int -> ConsensusNotifyPeerConnected -> ShowS + :: + Hs.Maybe + Data.Sawtooth.Consensus.ConsensusPeerInfo} + deriving (Int -> ConsensusNotifyPeerConnected -> ShowS [ConsensusNotifyPeerConnected] -> ShowS ConsensusNotifyPeerConnected -> String (Int -> ConsensusNotifyPeerConnected -> ShowS) @@ -5007,7 +5349,7 @@ show :: ConsensusNotifyPeerConnected -> String $cshow :: ConsensusNotifyPeerConnected -> String showsPrec :: Int -> ConsensusNotifyPeerConnected -> ShowS $cshowsPrec :: Int -> ConsensusNotifyPeerConnected -> ShowS -Hs.Show, ConsensusNotifyPeerConnected +Hs.Show, ConsensusNotifyPeerConnected -> ConsensusNotifyPeerConnected -> Bool (ConsensusNotifyPeerConnected -> ConsensusNotifyPeerConnected -> Bool) @@ -5023,10 +5365,10 @@ $c/= :: ConsensusNotifyPeerConnected -> ConsensusNotifyPeerConnected -> Bool $c== :: ConsensusNotifyPeerConnected -> ConsensusNotifyPeerConnected -> Bool -Hs.Eq, Eq ConsensusNotifyPeerConnected -Eq ConsensusNotifyPeerConnected => -(ConsensusNotifyPeerConnected - -> ConsensusNotifyPeerConnected -> Ordering) +Hs.Eq, Eq ConsensusNotifyPeerConnected +Eq ConsensusNotifyPeerConnected +-> (ConsensusNotifyPeerConnected + -> ConsensusNotifyPeerConnected -> Ordering) -> (ConsensusNotifyPeerConnected -> ConsensusNotifyPeerConnected -> Bool) -> (ConsensusNotifyPeerConnected @@ -5047,8 +5389,8 @@ ConsensusNotifyPeerConnected ConsensusNotifyPeerConnected -> ConsensusNotifyPeerConnected -> ConsensusNotifyPeerConnected forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -5085,7 +5427,7 @@ compare :: ConsensusNotifyPeerConnected $ccompare :: ConsensusNotifyPeerConnected -> ConsensusNotifyPeerConnected -> Ordering $cp1Ord :: Eq ConsensusNotifyPeerConnected -Hs.Ord, (forall x. +Hs.Ord, (forall x. ConsensusNotifyPeerConnected -> Rep ConsensusNotifyPeerConnected x) -> (forall x. Rep ConsensusNotifyPeerConnected x -> ConsensusNotifyPeerConnected) @@ -5100,229 +5442,245 @@ $cto :: forall x. Rep ConsensusNotifyPeerConnected x -> ConsensusNotifyPeerConnected $cfrom :: forall x. ConsensusNotifyPeerConnected -> Rep ConsensusNotifyPeerConnected x -Hs.Generic, ConsensusNotifyPeerConnected -> () +Hs.Generic, ConsensusNotifyPeerConnected -> () (ConsensusNotifyPeerConnected -> ()) -> NFData ConsensusNotifyPeerConnected forall a. (a -> ()) -> NFData a rnf :: ConsensusNotifyPeerConnected -> () $crnf :: ConsensusNotifyPeerConnected -> () -Hs.NFData) - -instance HsProtobuf.Named ConsensusNotifyPeerConnected where - nameOf :: Proxy# ConsensusNotifyPeerConnected -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ConsensusNotifyPeerConnected where + nameOf :: Proxy# ConsensusNotifyPeerConnected -> string +nameOf Proxy# ConsensusNotifyPeerConnected +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ConsensusNotifyPeerConnected") - -instance HsProtobuf.HasDefault ConsensusNotifyPeerConnected - -instance HsProtobuf.Message ConsensusNotifyPeerConnected where - encodeMessage :: FieldNumber -> ConsensusNotifyPeerConnected -> MessageBuilder -encodeMessage _ - ConsensusNotifyPeerConnected{consensusNotifyPeerConnectedPeerInfo :: ConsensusNotifyPeerConnected -> Maybe ConsensusPeerInfo +Hs.fromString String +"ConsensusNotifyPeerConnected") + +instance HsProtobuf.HasDefault ConsensusNotifyPeerConnected + +instance HsProtobuf.Message ConsensusNotifyPeerConnected where + encodeMessage :: FieldNumber -> ConsensusNotifyPeerConnected -> MessageBuilder +encodeMessage FieldNumber +_ + ConsensusNotifyPeerConnected{consensusNotifyPeerConnectedPeerInfo :: ConsensusNotifyPeerConnected -> Maybe ConsensusPeerInfo consensusNotifyPeerConnectedPeerInfo = - Maybe ConsensusPeerInfo -consensusNotifyPeerConnectedPeerInfo} - = ([MessageBuilder] -> MessageBuilder + Maybe ConsensusPeerInfo +consensusNotifyPeerConnectedPeerInfo} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> Nested ConsensusPeerInfo -> MessageBuilder +Hs.mconcat + [(FieldNumber -> Nested ConsensusPeerInfo -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (Maybe ConsensusPeerInfo -> Nested ConsensusPeerInfo -forall a b. Coercible a b => a -> b -Hs.coerce @(Hs.Maybe Data.Sawtooth.Consensus.ConsensusPeerInfo) - @(HsProtobuf.Nested Data.Sawtooth.Consensus.ConsensusPeerInfo) - Maybe ConsensusPeerInfo -consensusNotifyPeerConnectedPeerInfo))]) - decodeMessage :: FieldNumber -> Parser RawMessage ConsensusNotifyPeerConnected -decodeMessage _ - = ((Maybe ConsensusPeerInfo -> ConsensusNotifyPeerConnected) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (Maybe ConsensusPeerInfo -> Nested ConsensusPeerInfo +Hs.coerce @(Hs.Maybe Data.Sawtooth.Consensus.ConsensusPeerInfo) + @(HsProtobuf.Nested Data.Sawtooth.Consensus.ConsensusPeerInfo) + Maybe ConsensusPeerInfo +consensusNotifyPeerConnectedPeerInfo))]) + decodeMessage :: FieldNumber -> Parser RawMessage ConsensusNotifyPeerConnected +decodeMessage FieldNumber +_ + = ((Maybe ConsensusPeerInfo -> ConsensusNotifyPeerConnected) -> Parser RawMessage (Maybe ConsensusPeerInfo -> ConsensusNotifyPeerConnected) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Maybe ConsensusPeerInfo -> ConsensusNotifyPeerConnected +Hs.pure Maybe ConsensusPeerInfo -> ConsensusNotifyPeerConnected ConsensusNotifyPeerConnected) Parser RawMessage (Maybe ConsensusPeerInfo -> ConsensusNotifyPeerConnected) -> Parser RawMessage (Maybe ConsensusPeerInfo) -> Parser RawMessage ConsensusNotifyPeerConnected forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (Nested ConsensusPeerInfo) +<*> + (Parser RawMessage (Nested ConsensusPeerInfo) -> Parser RawMessage (Maybe ConsensusPeerInfo) -forall a b. Coercible a b => a -> b -Hs.coerce - @(_ (HsProtobuf.Nested Data.Sawtooth.Consensus.ConsensusPeerInfo)) - @(_ (Hs.Maybe Data.Sawtooth.Consensus.ConsensusPeerInfo)) - (Parser RawField (Nested ConsensusPeerInfo) +Hs.coerce + @(_ (HsProtobuf.Nested Data.Sawtooth.Consensus.ConsensusPeerInfo)) + @(_ (Hs.Maybe Data.Sawtooth.Consensus.ConsensusPeerInfo)) + (Parser RawField (Nested ConsensusPeerInfo) -> FieldNumber -> Parser RawMessage (Nested ConsensusPeerInfo) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (Nested ConsensusPeerInfo) +HsProtobuf.at Parser RawField (Nested ConsensusPeerInfo) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1))) - dotProto :: Proxy# ConsensusNotifyPeerConnected -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1))) + dotProto :: Proxy# ConsensusNotifyPeerConnected -> [DotProtoField] +dotProto Proxy# ConsensusNotifyPeerConnected +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim - (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "ConsensusPeerInfo"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "peer_info") - [] - "")] - -instance HsJSONPB.ToJSONPB ConsensusNotifyPeerConnected where - toJSONPB :: ConsensusNotifyPeerConnected -> Options -> Value -toJSONPB (ConsensusNotifyPeerConnected f1 :: Maybe ConsensusPeerInfo -f1) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["peer_info" Text -> Maybe ConsensusPeerInfo -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim + (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"ConsensusPeerInfo"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"peer_info") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ConsensusNotifyPeerConnected where + toJSONPB :: ConsensusNotifyPeerConnected -> Options -> Value +toJSONPB (ConsensusNotifyPeerConnected Maybe ConsensusPeerInfo +f1) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"peer_info" Text -> Maybe ConsensusPeerInfo -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Maybe ConsensusPeerInfo -f1]) - toEncodingPB :: ConsensusNotifyPeerConnected -> Options -> Encoding -toEncodingPB (ConsensusNotifyPeerConnected f1 :: Maybe ConsensusPeerInfo -f1) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["peer_info" Text -> Maybe ConsensusPeerInfo -> Options -> Series +.= Maybe ConsensusPeerInfo +f1]) + toEncodingPB :: ConsensusNotifyPeerConnected -> Options -> Encoding +toEncodingPB (ConsensusNotifyPeerConnected Maybe ConsensusPeerInfo +f1) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"peer_info" Text -> Maybe ConsensusPeerInfo -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Maybe ConsensusPeerInfo -f1]) - -instance HsJSONPB.FromJSONPB ConsensusNotifyPeerConnected where - parseJSONPB :: Value -> Parser ConsensusNotifyPeerConnected -parseJSONPB - = (String +.= Maybe ConsensusPeerInfo +f1]) + +instance HsJSONPB.FromJSONPB ConsensusNotifyPeerConnected where + parseJSONPB :: Value -> Parser ConsensusNotifyPeerConnected +parseJSONPB + = (String -> (Object -> Parser ConsensusNotifyPeerConnected) -> Value -> Parser ConsensusNotifyPeerConnected forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ConsensusNotifyPeerConnected" - (\ obj :: Object -obj -> - ((Maybe ConsensusPeerInfo -> ConsensusNotifyPeerConnected) +HsJSONPB.withObject String +"ConsensusNotifyPeerConnected" + (\ Object +obj -> + ((Maybe ConsensusPeerInfo -> ConsensusNotifyPeerConnected) -> Parser (Maybe ConsensusPeerInfo -> ConsensusNotifyPeerConnected) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Maybe ConsensusPeerInfo -> ConsensusNotifyPeerConnected +Hs.pure Maybe ConsensusPeerInfo -> ConsensusNotifyPeerConnected ConsensusNotifyPeerConnected) Parser (Maybe ConsensusPeerInfo -> ConsensusNotifyPeerConnected) -> Parser (Maybe ConsensusPeerInfo) -> Parser ConsensusNotifyPeerConnected forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser (Maybe ConsensusPeerInfo) +<*> Object +obj Object -> Text -> Parser (Maybe ConsensusPeerInfo) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "peer_info")) - -instance HsJSONPB.ToJSON ConsensusNotifyPeerConnected where - toJSON :: ConsensusNotifyPeerConnected -> Value -toJSON = ConsensusNotifyPeerConnected -> Value +.: Text +"peer_info")) + +instance HsJSONPB.ToJSON ConsensusNotifyPeerConnected where + toJSON :: ConsensusNotifyPeerConnected -> Value +toJSON = ConsensusNotifyPeerConnected -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ConsensusNotifyPeerConnected -> Encoding -toEncoding = ConsensusNotifyPeerConnected -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ConsensusNotifyPeerConnected -> Encoding +toEncoding = ConsensusNotifyPeerConnected -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ConsensusNotifyPeerConnected where - parseJSON :: Value -> Parser ConsensusNotifyPeerConnected -parseJSON = Value -> Parser ConsensusNotifyPeerConnected +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ConsensusNotifyPeerConnected where + parseJSON :: Value -> Parser ConsensusNotifyPeerConnected +parseJSON = Value -> Parser ConsensusNotifyPeerConnected forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ConsensusNotifyPeerConnected where - declareNamedSchema :: Proxy ConsensusNotifyPeerConnected +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ConsensusNotifyPeerConnected where + declareNamedSchema :: Proxy ConsensusNotifyPeerConnected -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_peer_info :: Proxy (OverrideToSchema (Maybe ConsensusPeerInfo)) +declareNamedSchema Proxy ConsensusNotifyPeerConnected +_ + = do let declare_peer_info :: Proxy (OverrideToSchema (Maybe ConsensusPeerInfo)) -> Declare (Definitions Schema) (Referenced Schema) -declare_peer_info = Proxy (OverrideToSchema (Maybe ConsensusPeerInfo)) +declare_peer_info = Proxy (OverrideToSchema (Maybe ConsensusPeerInfo)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -consensusNotifyPeerConnectedPeerInfo <- Proxy (OverrideToSchema (Maybe ConsensusPeerInfo)) +HsJSONPB.declareSchemaRef + Referenced Schema +consensusNotifyPeerConnectedPeerInfo <- Proxy (OverrideToSchema (Maybe ConsensusPeerInfo)) -> Declare (Definitions Schema) (Referenced Schema) -declare_peer_info - Proxy (OverrideToSchema (Maybe ConsensusPeerInfo)) +declare_peer_info + Proxy (OverrideToSchema (Maybe ConsensusPeerInfo)) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ConsensusNotifyPeerConnected +Proxy.Proxy + let Proxy ConsensusNotifyPeerConnected _ = (Maybe ConsensusPeerInfo -> ConsensusNotifyPeerConnected) -> Proxy (Maybe ConsensusPeerInfo -> ConsensusNotifyPeerConnected) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Maybe ConsensusPeerInfo -> ConsensusNotifyPeerConnected +Hs.pure Maybe ConsensusPeerInfo -> ConsensusNotifyPeerConnected ConsensusNotifyPeerConnected Proxy (Maybe ConsensusPeerInfo -> ConsensusNotifyPeerConnected) -> Proxy (Maybe ConsensusPeerInfo) -> Proxy ConsensusNotifyPeerConnected forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema (Maybe ConsensusPeerInfo)) +<*> + (Proxy (OverrideToSchema (Maybe ConsensusPeerInfo)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Maybe ConsensusPeerInfo) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Maybe ConsensusPeerInfo)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Maybe ConsensusPeerInfo)) -> Declare (Definitions Schema) (Referenced Schema) -declare_peer_info - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_peer_info + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ConsensusNotifyPeerConnected", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ConsensusNotifyPeerConnected", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("peer_info", - Referenced Schema -consensusNotifyPeerConnectedPeerInfo)]}}) - -newtype ConsensusNotifyPeerDisconnected = ConsensusNotifyPeerDisconnected{ConsensusNotifyPeerDisconnected -> ByteString +HsJSONPB.insOrdFromList + [(Text +"peer_info", + Referenced Schema +consensusNotifyPeerConnectedPeerInfo)]}}) + +newtype ConsensusNotifyPeerDisconnected = ConsensusNotifyPeerDisconnected{ConsensusNotifyPeerDisconnected -> ByteString consensusNotifyPeerDisconnectedPeerId - :: Hs.ByteString} - deriving (Int -> ConsensusNotifyPeerDisconnected -> ShowS + :: Hs.ByteString} + deriving (Int -> ConsensusNotifyPeerDisconnected -> ShowS [ConsensusNotifyPeerDisconnected] -> ShowS ConsensusNotifyPeerDisconnected -> String (Int -> ConsensusNotifyPeerDisconnected -> ShowS) @@ -5337,7 +5695,7 @@ show :: ConsensusNotifyPeerDisconnected -> String $cshow :: ConsensusNotifyPeerDisconnected -> String showsPrec :: Int -> ConsensusNotifyPeerDisconnected -> ShowS $cshowsPrec :: Int -> ConsensusNotifyPeerDisconnected -> ShowS -Hs.Show, ConsensusNotifyPeerDisconnected +Hs.Show, ConsensusNotifyPeerDisconnected -> ConsensusNotifyPeerDisconnected -> Bool (ConsensusNotifyPeerDisconnected -> ConsensusNotifyPeerDisconnected -> Bool) @@ -5353,10 +5711,10 @@ $c/= :: ConsensusNotifyPeerDisconnected -> ConsensusNotifyPeerDisconnected -> Bool $c== :: ConsensusNotifyPeerDisconnected -> ConsensusNotifyPeerDisconnected -> Bool -Hs.Eq, Eq ConsensusNotifyPeerDisconnected -Eq ConsensusNotifyPeerDisconnected => -(ConsensusNotifyPeerDisconnected - -> ConsensusNotifyPeerDisconnected -> Ordering) +Hs.Eq, Eq ConsensusNotifyPeerDisconnected +Eq ConsensusNotifyPeerDisconnected +-> (ConsensusNotifyPeerDisconnected + -> ConsensusNotifyPeerDisconnected -> Ordering) -> (ConsensusNotifyPeerDisconnected -> ConsensusNotifyPeerDisconnected -> Bool) -> (ConsensusNotifyPeerDisconnected @@ -5380,8 +5738,8 @@ ConsensusNotifyPeerDisconnected -> ConsensusNotifyPeerDisconnected -> ConsensusNotifyPeerDisconnected forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -5422,7 +5780,7 @@ compare :: ConsensusNotifyPeerDisconnected $ccompare :: ConsensusNotifyPeerDisconnected -> ConsensusNotifyPeerDisconnected -> Ordering $cp1Ord :: Eq ConsensusNotifyPeerDisconnected -Hs.Ord, (forall x. +Hs.Ord, (forall x. ConsensusNotifyPeerDisconnected -> Rep ConsensusNotifyPeerDisconnected x) -> (forall x. @@ -5443,217 +5801,234 @@ Rep ConsensusNotifyPeerDisconnected x $cfrom :: forall x. ConsensusNotifyPeerDisconnected -> Rep ConsensusNotifyPeerDisconnected x -Hs.Generic, ConsensusNotifyPeerDisconnected -> () +Hs.Generic, ConsensusNotifyPeerDisconnected -> () (ConsensusNotifyPeerDisconnected -> ()) -> NFData ConsensusNotifyPeerDisconnected forall a. (a -> ()) -> NFData a rnf :: ConsensusNotifyPeerDisconnected -> () $crnf :: ConsensusNotifyPeerDisconnected -> () -Hs.NFData) - -instance HsProtobuf.Named ConsensusNotifyPeerDisconnected where - nameOf :: Proxy# ConsensusNotifyPeerDisconnected -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ConsensusNotifyPeerDisconnected where + nameOf :: Proxy# ConsensusNotifyPeerDisconnected -> string +nameOf Proxy# ConsensusNotifyPeerDisconnected +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ConsensusNotifyPeerDisconnected") - -instance HsProtobuf.HasDefault ConsensusNotifyPeerDisconnected - -instance HsProtobuf.Message ConsensusNotifyPeerDisconnected where - encodeMessage :: FieldNumber -> ConsensusNotifyPeerDisconnected -> MessageBuilder -encodeMessage _ - ConsensusNotifyPeerDisconnected{consensusNotifyPeerDisconnectedPeerId :: ConsensusNotifyPeerDisconnected -> ByteString +Hs.fromString String +"ConsensusNotifyPeerDisconnected") + +instance HsProtobuf.HasDefault ConsensusNotifyPeerDisconnected + +instance HsProtobuf.Message ConsensusNotifyPeerDisconnected where + encodeMessage :: FieldNumber -> ConsensusNotifyPeerDisconnected -> MessageBuilder +encodeMessage FieldNumber +_ + ConsensusNotifyPeerDisconnected{consensusNotifyPeerDisconnectedPeerId :: ConsensusNotifyPeerDisconnected -> ByteString consensusNotifyPeerDisconnectedPeerId - = ByteString -consensusNotifyPeerDisconnectedPeerId} - = ([MessageBuilder] -> MessageBuilder + = ByteString +consensusNotifyPeerDisconnectedPeerId} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> ByteString -> MessageBuilder +Hs.mconcat + [(FieldNumber -> ByteString -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - ByteString -consensusNotifyPeerDisconnectedPeerId)]) - decodeMessage :: FieldNumber -> Parser RawMessage ConsensusNotifyPeerDisconnected -decodeMessage _ - = ((ByteString -> ConsensusNotifyPeerDisconnected) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + ByteString +consensusNotifyPeerDisconnectedPeerId)]) + decodeMessage :: FieldNumber -> Parser RawMessage ConsensusNotifyPeerDisconnected +decodeMessage FieldNumber +_ + = ((ByteString -> ConsensusNotifyPeerDisconnected) -> Parser RawMessage (ByteString -> ConsensusNotifyPeerDisconnected) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString -> ConsensusNotifyPeerDisconnected +Hs.pure ByteString -> ConsensusNotifyPeerDisconnected ConsensusNotifyPeerDisconnected) Parser RawMessage (ByteString -> ConsensusNotifyPeerDisconnected) -> Parser RawMessage ByteString -> Parser RawMessage ConsensusNotifyPeerDisconnected forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField ByteString +<*> + (Parser RawField ByteString -> FieldNumber -> Parser RawMessage ByteString forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField ByteString +HsProtobuf.at Parser RawField ByteString forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - dotProto :: Proxy# ConsensusNotifyPeerDisconnected -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + dotProto :: Proxy# ConsensusNotifyPeerDisconnected -> [DotProtoField] +dotProto Proxy# ConsensusNotifyPeerDisconnected +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.Bytes) - (String -> DotProtoIdentifier -HsProtobuf.Single "peer_id") - [] - "")] - -instance HsJSONPB.ToJSONPB ConsensusNotifyPeerDisconnected where - toJSONPB :: ConsensusNotifyPeerDisconnected -> Options -> Value -toJSONPB (ConsensusNotifyPeerDisconnected f1 :: ByteString -f1) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["peer_id" Text -> ByteString -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.Bytes) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"peer_id") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ConsensusNotifyPeerDisconnected where + toJSONPB :: ConsensusNotifyPeerDisconnected -> Options -> Value +toJSONPB (ConsensusNotifyPeerDisconnected ByteString +f1) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"peer_id" Text -> ByteString -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f1]) - toEncodingPB :: ConsensusNotifyPeerDisconnected -> Options -> Encoding -toEncodingPB (ConsensusNotifyPeerDisconnected f1 :: ByteString -f1) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["peer_id" Text -> ByteString -> Options -> Series +.= ByteString +f1]) + toEncodingPB :: ConsensusNotifyPeerDisconnected -> Options -> Encoding +toEncodingPB (ConsensusNotifyPeerDisconnected ByteString +f1) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"peer_id" Text -> ByteString -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f1]) - -instance HsJSONPB.FromJSONPB ConsensusNotifyPeerDisconnected where - parseJSONPB :: Value -> Parser ConsensusNotifyPeerDisconnected -parseJSONPB - = (String +.= ByteString +f1]) + +instance HsJSONPB.FromJSONPB ConsensusNotifyPeerDisconnected where + parseJSONPB :: Value -> Parser ConsensusNotifyPeerDisconnected +parseJSONPB + = (String -> (Object -> Parser ConsensusNotifyPeerDisconnected) -> Value -> Parser ConsensusNotifyPeerDisconnected forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ConsensusNotifyPeerDisconnected" - (\ obj :: Object -obj -> - ((ByteString -> ConsensusNotifyPeerDisconnected) +HsJSONPB.withObject String +"ConsensusNotifyPeerDisconnected" + (\ Object +obj -> + ((ByteString -> ConsensusNotifyPeerDisconnected) -> Parser (ByteString -> ConsensusNotifyPeerDisconnected) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString -> ConsensusNotifyPeerDisconnected +Hs.pure ByteString -> ConsensusNotifyPeerDisconnected ConsensusNotifyPeerDisconnected) Parser (ByteString -> ConsensusNotifyPeerDisconnected) -> Parser ByteString -> Parser ConsensusNotifyPeerDisconnected forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser ByteString +<*> Object +obj Object -> Text -> Parser ByteString forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "peer_id")) - -instance HsJSONPB.ToJSON ConsensusNotifyPeerDisconnected where - toJSON :: ConsensusNotifyPeerDisconnected -> Value -toJSON = ConsensusNotifyPeerDisconnected -> Value +.: Text +"peer_id")) + +instance HsJSONPB.ToJSON ConsensusNotifyPeerDisconnected where + toJSON :: ConsensusNotifyPeerDisconnected -> Value +toJSON = ConsensusNotifyPeerDisconnected -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ConsensusNotifyPeerDisconnected -> Encoding -toEncoding = ConsensusNotifyPeerDisconnected -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ConsensusNotifyPeerDisconnected -> Encoding +toEncoding = ConsensusNotifyPeerDisconnected -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ConsensusNotifyPeerDisconnected where - parseJSON :: Value -> Parser ConsensusNotifyPeerDisconnected -parseJSON = Value -> Parser ConsensusNotifyPeerDisconnected +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ConsensusNotifyPeerDisconnected where + parseJSON :: Value -> Parser ConsensusNotifyPeerDisconnected +parseJSON = Value -> Parser ConsensusNotifyPeerDisconnected forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ConsensusNotifyPeerDisconnected where - declareNamedSchema :: Proxy ConsensusNotifyPeerDisconnected +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ConsensusNotifyPeerDisconnected where + declareNamedSchema :: Proxy ConsensusNotifyPeerDisconnected -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_peer_id :: Proxy (OverrideToSchema ByteString) +declareNamedSchema Proxy ConsensusNotifyPeerDisconnected +_ + = do let declare_peer_id :: Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_peer_id = Proxy (OverrideToSchema ByteString) +declare_peer_id = Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -consensusNotifyPeerDisconnectedPeerId <- Proxy (OverrideToSchema ByteString) +HsJSONPB.declareSchemaRef + Referenced Schema +consensusNotifyPeerDisconnectedPeerId <- Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_peer_id - Proxy (OverrideToSchema ByteString) +declare_peer_id + Proxy (OverrideToSchema ByteString) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ConsensusNotifyPeerDisconnected +Proxy.Proxy + let Proxy ConsensusNotifyPeerDisconnected _ = (ByteString -> ConsensusNotifyPeerDisconnected) -> Proxy (ByteString -> ConsensusNotifyPeerDisconnected) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString -> ConsensusNotifyPeerDisconnected +Hs.pure ByteString -> ConsensusNotifyPeerDisconnected ConsensusNotifyPeerDisconnected Proxy (ByteString -> ConsensusNotifyPeerDisconnected) -> Proxy ByteString -> Proxy ConsensusNotifyPeerDisconnected forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema ByteString) +<*> + (Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy ByteString forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) +HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_peer_id - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_peer_id + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ConsensusNotifyPeerDisconnected", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ConsensusNotifyPeerDisconnected", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("peer_id", - Referenced Schema -consensusNotifyPeerDisconnectedPeerId)]}}) - -data ConsensusNotifyPeerMessage = ConsensusNotifyPeerMessage{ConsensusNotifyPeerMessage -> Maybe ConsensusPeerMessage +HsJSONPB.insOrdFromList + [(Text +"peer_id", + Referenced Schema +consensusNotifyPeerDisconnectedPeerId)]}}) + +data ConsensusNotifyPeerMessage = ConsensusNotifyPeerMessage{ConsensusNotifyPeerMessage -> Maybe ConsensusPeerMessage consensusNotifyPeerMessageMessage - :: - Hs.Maybe - Data.Sawtooth.Consensus.ConsensusPeerMessage, - ConsensusNotifyPeerMessage -> ByteString + :: + Hs.Maybe + Data.Sawtooth.Consensus.ConsensusPeerMessage, + ConsensusNotifyPeerMessage -> ByteString consensusNotifyPeerMessageSenderId :: - Hs.ByteString} - deriving (Int -> ConsensusNotifyPeerMessage -> ShowS + Hs.ByteString} + deriving (Int -> ConsensusNotifyPeerMessage -> ShowS [ConsensusNotifyPeerMessage] -> ShowS ConsensusNotifyPeerMessage -> String (Int -> ConsensusNotifyPeerMessage -> ShowS) @@ -5668,7 +6043,7 @@ show :: ConsensusNotifyPeerMessage -> String $cshow :: ConsensusNotifyPeerMessage -> String showsPrec :: Int -> ConsensusNotifyPeerMessage -> ShowS $cshowsPrec :: Int -> ConsensusNotifyPeerMessage -> ShowS -Hs.Show, ConsensusNotifyPeerMessage -> ConsensusNotifyPeerMessage -> Bool +Hs.Show, ConsensusNotifyPeerMessage -> ConsensusNotifyPeerMessage -> Bool (ConsensusNotifyPeerMessage -> ConsensusNotifyPeerMessage -> Bool) -> (ConsensusNotifyPeerMessage -> ConsensusNotifyPeerMessage -> Bool) @@ -5678,10 +6053,10 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: ConsensusNotifyPeerMessage -> ConsensusNotifyPeerMessage -> Bool == :: ConsensusNotifyPeerMessage -> ConsensusNotifyPeerMessage -> Bool $c== :: ConsensusNotifyPeerMessage -> ConsensusNotifyPeerMessage -> Bool -Hs.Eq, Eq ConsensusNotifyPeerMessage -Eq ConsensusNotifyPeerMessage => -(ConsensusNotifyPeerMessage - -> ConsensusNotifyPeerMessage -> Ordering) +Hs.Eq, Eq ConsensusNotifyPeerMessage +Eq ConsensusNotifyPeerMessage +-> (ConsensusNotifyPeerMessage + -> ConsensusNotifyPeerMessage -> Ordering) -> (ConsensusNotifyPeerMessage -> ConsensusNotifyPeerMessage -> Bool) -> (ConsensusNotifyPeerMessage @@ -5701,8 +6076,8 @@ ConsensusNotifyPeerMessage ConsensusNotifyPeerMessage -> ConsensusNotifyPeerMessage -> ConsensusNotifyPeerMessage forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -5731,7 +6106,7 @@ compare :: ConsensusNotifyPeerMessage $ccompare :: ConsensusNotifyPeerMessage -> ConsensusNotifyPeerMessage -> Ordering $cp1Ord :: Eq ConsensusNotifyPeerMessage -Hs.Ord, (forall x. +Hs.Ord, (forall x. ConsensusNotifyPeerMessage -> Rep ConsensusNotifyPeerMessage x) -> (forall x. Rep ConsensusNotifyPeerMessage x -> ConsensusNotifyPeerMessage) @@ -5746,62 +6121,67 @@ $cto :: forall x. Rep ConsensusNotifyPeerMessage x -> ConsensusNotifyPeerMessage $cfrom :: forall x. ConsensusNotifyPeerMessage -> Rep ConsensusNotifyPeerMessage x -Hs.Generic, ConsensusNotifyPeerMessage -> () +Hs.Generic, ConsensusNotifyPeerMessage -> () (ConsensusNotifyPeerMessage -> ()) -> NFData ConsensusNotifyPeerMessage forall a. (a -> ()) -> NFData a rnf :: ConsensusNotifyPeerMessage -> () $crnf :: ConsensusNotifyPeerMessage -> () -Hs.NFData) - -instance HsProtobuf.Named ConsensusNotifyPeerMessage where - nameOf :: Proxy# ConsensusNotifyPeerMessage -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ConsensusNotifyPeerMessage where + nameOf :: Proxy# ConsensusNotifyPeerMessage -> string +nameOf Proxy# ConsensusNotifyPeerMessage +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ConsensusNotifyPeerMessage") - -instance HsProtobuf.HasDefault ConsensusNotifyPeerMessage - -instance HsProtobuf.Message ConsensusNotifyPeerMessage where - encodeMessage :: FieldNumber -> ConsensusNotifyPeerMessage -> MessageBuilder -encodeMessage _ - ConsensusNotifyPeerMessage{consensusNotifyPeerMessageMessage :: ConsensusNotifyPeerMessage -> Maybe ConsensusPeerMessage +Hs.fromString String +"ConsensusNotifyPeerMessage") + +instance HsProtobuf.HasDefault ConsensusNotifyPeerMessage + +instance HsProtobuf.Message ConsensusNotifyPeerMessage where + encodeMessage :: FieldNumber -> ConsensusNotifyPeerMessage -> MessageBuilder +encodeMessage FieldNumber +_ + ConsensusNotifyPeerMessage{consensusNotifyPeerMessageMessage :: ConsensusNotifyPeerMessage -> Maybe ConsensusPeerMessage consensusNotifyPeerMessageMessage = - Maybe ConsensusPeerMessage -consensusNotifyPeerMessageMessage, - consensusNotifyPeerMessageSenderId :: ConsensusNotifyPeerMessage -> ByteString + Maybe ConsensusPeerMessage +consensusNotifyPeerMessageMessage, + consensusNotifyPeerMessageSenderId :: ConsensusNotifyPeerMessage -> ByteString consensusNotifyPeerMessageSenderId = - ByteString -consensusNotifyPeerMessageSenderId} - = ([MessageBuilder] -> MessageBuilder + ByteString +consensusNotifyPeerMessageSenderId} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> Nested ConsensusPeerMessage -> MessageBuilder +Hs.mconcat + [(FieldNumber -> Nested ConsensusPeerMessage -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (Maybe ConsensusPeerMessage -> Nested ConsensusPeerMessage -forall a b. Coercible a b => a -> b -Hs.coerce @(Hs.Maybe Data.Sawtooth.Consensus.ConsensusPeerMessage) - @(HsProtobuf.Nested Data.Sawtooth.Consensus.ConsensusPeerMessage) - Maybe ConsensusPeerMessage -consensusNotifyPeerMessageMessage)), - (FieldNumber -> ByteString -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (Maybe ConsensusPeerMessage -> Nested ConsensusPeerMessage +Hs.coerce @(Hs.Maybe Data.Sawtooth.Consensus.ConsensusPeerMessage) + @(HsProtobuf.Nested Data.Sawtooth.Consensus.ConsensusPeerMessage) + Maybe ConsensusPeerMessage +consensusNotifyPeerMessageMessage)), + (FieldNumber -> ByteString -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - ByteString -consensusNotifyPeerMessageSenderId)]) - decodeMessage :: FieldNumber -> Parser RawMessage ConsensusNotifyPeerMessage -decodeMessage _ - = ((Maybe ConsensusPeerMessage +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + ByteString +consensusNotifyPeerMessageSenderId)]) + decodeMessage :: FieldNumber -> Parser RawMessage ConsensusNotifyPeerMessage +decodeMessage FieldNumber +_ + = ((Maybe ConsensusPeerMessage -> ByteString -> ConsensusNotifyPeerMessage) -> Parser RawMessage (Maybe ConsensusPeerMessage -> ByteString -> ConsensusNotifyPeerMessage) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Maybe ConsensusPeerMessage +Hs.pure Maybe ConsensusPeerMessage -> ByteString -> ConsensusNotifyPeerMessage ConsensusNotifyPeerMessage) Parser RawMessage @@ -5810,121 +6190,135 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Parser RawMessage (Maybe ConsensusPeerMessage) -> Parser RawMessage (ByteString -> ConsensusNotifyPeerMessage) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (Nested ConsensusPeerMessage) +<*> + (Parser RawMessage (Nested ConsensusPeerMessage) -> Parser RawMessage (Maybe ConsensusPeerMessage) -forall a b. Coercible a b => a -> b -Hs.coerce - @(_ (HsProtobuf.Nested Data.Sawtooth.Consensus.ConsensusPeerMessage)) - @(_ (Hs.Maybe Data.Sawtooth.Consensus.ConsensusPeerMessage)) - (Parser RawField (Nested ConsensusPeerMessage) +Hs.coerce + @(_ (HsProtobuf.Nested Data.Sawtooth.Consensus.ConsensusPeerMessage)) + @(_ (Hs.Maybe Data.Sawtooth.Consensus.ConsensusPeerMessage)) + (Parser RawField (Nested ConsensusPeerMessage) -> FieldNumber -> Parser RawMessage (Nested ConsensusPeerMessage) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (Nested ConsensusPeerMessage) +HsProtobuf.at Parser RawField (Nested ConsensusPeerMessage) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1))) - Parser RawMessage (ByteString -> ConsensusNotifyPeerMessage) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1))) + Parser RawMessage (ByteString -> ConsensusNotifyPeerMessage) -> Parser RawMessage ByteString -> Parser RawMessage ConsensusNotifyPeerMessage forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField ByteString +<*> + (Parser RawField ByteString -> FieldNumber -> Parser RawMessage ByteString forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField ByteString +HsProtobuf.at Parser RawField ByteString forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2)) - dotProto :: Proxy# ConsensusNotifyPeerMessage -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2)) + dotProto :: Proxy# ConsensusNotifyPeerMessage -> [DotProtoField] +dotProto Proxy# ConsensusNotifyPeerMessage +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim - (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "ConsensusPeerMessage"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "message") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim + (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"ConsensusPeerMessage"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"message") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.Bytes) - (String -> DotProtoIdentifier -HsProtobuf.Single "sender_id") - [] - "")] - -instance HsJSONPB.ToJSONPB ConsensusNotifyPeerMessage where - toJSONPB :: ConsensusNotifyPeerMessage -> Options -> Value -toJSONPB (ConsensusNotifyPeerMessage f1 :: Maybe ConsensusPeerMessage -f1 f2 :: ByteString -f2) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["message" Text -> Maybe ConsensusPeerMessage -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.Bytes) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"sender_id") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ConsensusNotifyPeerMessage where + toJSONPB :: ConsensusNotifyPeerMessage -> Options -> Value +toJSONPB (ConsensusNotifyPeerMessage Maybe ConsensusPeerMessage +f1 ByteString +f2) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"message" Text -> Maybe ConsensusPeerMessage -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Maybe ConsensusPeerMessage -f1, "sender_id" Text -> ByteString -> Options -> [Pair] +.= Maybe ConsensusPeerMessage +f1, Text +"sender_id" Text -> ByteString -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f2]) - toEncodingPB :: ConsensusNotifyPeerMessage -> Options -> Encoding -toEncodingPB (ConsensusNotifyPeerMessage f1 :: Maybe ConsensusPeerMessage -f1 f2 :: ByteString -f2) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["message" Text -> Maybe ConsensusPeerMessage -> Options -> Series +.= ByteString +f2]) + toEncodingPB :: ConsensusNotifyPeerMessage -> Options -> Encoding +toEncodingPB (ConsensusNotifyPeerMessage Maybe ConsensusPeerMessage +f1 ByteString +f2) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"message" Text -> Maybe ConsensusPeerMessage -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Maybe ConsensusPeerMessage -f1, "sender_id" Text -> ByteString -> Options -> Series +.= Maybe ConsensusPeerMessage +f1, Text +"sender_id" Text -> ByteString -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f2]) - -instance HsJSONPB.FromJSONPB ConsensusNotifyPeerMessage where - parseJSONPB :: Value -> Parser ConsensusNotifyPeerMessage -parseJSONPB - = (String +.= ByteString +f2]) + +instance HsJSONPB.FromJSONPB ConsensusNotifyPeerMessage where + parseJSONPB :: Value -> Parser ConsensusNotifyPeerMessage +parseJSONPB + = (String -> (Object -> Parser ConsensusNotifyPeerMessage) -> Value -> Parser ConsensusNotifyPeerMessage forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ConsensusNotifyPeerMessage" - (\ obj :: Object -obj -> - ((Maybe ConsensusPeerMessage +HsJSONPB.withObject String +"ConsensusNotifyPeerMessage" + (\ Object +obj -> + ((Maybe ConsensusPeerMessage -> ByteString -> ConsensusNotifyPeerMessage) -> Parser (Maybe ConsensusPeerMessage -> ByteString -> ConsensusNotifyPeerMessage) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Maybe ConsensusPeerMessage +Hs.pure Maybe ConsensusPeerMessage -> ByteString -> ConsensusNotifyPeerMessage ConsensusNotifyPeerMessage) Parser (Maybe ConsensusPeerMessage @@ -5932,78 +6326,81 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Parser (Maybe ConsensusPeerMessage) -> Parser (ByteString -> ConsensusNotifyPeerMessage) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser (Maybe ConsensusPeerMessage) +<*> Object +obj Object -> Text -> Parser (Maybe ConsensusPeerMessage) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "message" Parser (ByteString -> ConsensusNotifyPeerMessage) +.: Text +"message" Parser (ByteString -> ConsensusNotifyPeerMessage) -> Parser ByteString -> Parser ConsensusNotifyPeerMessage forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser ByteString +<*> + Object +obj Object -> Text -> Parser ByteString forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "sender_id")) - -instance HsJSONPB.ToJSON ConsensusNotifyPeerMessage where - toJSON :: ConsensusNotifyPeerMessage -> Value -toJSON = ConsensusNotifyPeerMessage -> Value +.: Text +"sender_id")) + +instance HsJSONPB.ToJSON ConsensusNotifyPeerMessage where + toJSON :: ConsensusNotifyPeerMessage -> Value +toJSON = ConsensusNotifyPeerMessage -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ConsensusNotifyPeerMessage -> Encoding -toEncoding = ConsensusNotifyPeerMessage -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ConsensusNotifyPeerMessage -> Encoding +toEncoding = ConsensusNotifyPeerMessage -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ConsensusNotifyPeerMessage where - parseJSON :: Value -> Parser ConsensusNotifyPeerMessage -parseJSON = Value -> Parser ConsensusNotifyPeerMessage +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ConsensusNotifyPeerMessage where + parseJSON :: Value -> Parser ConsensusNotifyPeerMessage +parseJSON = Value -> Parser ConsensusNotifyPeerMessage forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ConsensusNotifyPeerMessage where - declareNamedSchema :: Proxy ConsensusNotifyPeerMessage +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ConsensusNotifyPeerMessage where + declareNamedSchema :: Proxy ConsensusNotifyPeerMessage -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_message :: Proxy (OverrideToSchema (Maybe ConsensusPeerMessage)) +declareNamedSchema Proxy ConsensusNotifyPeerMessage +_ + = do let declare_message :: Proxy (OverrideToSchema (Maybe ConsensusPeerMessage)) -> Declare (Definitions Schema) (Referenced Schema) -declare_message = Proxy (OverrideToSchema (Maybe ConsensusPeerMessage)) +declare_message = Proxy (OverrideToSchema (Maybe ConsensusPeerMessage)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -consensusNotifyPeerMessageMessage <- Proxy (OverrideToSchema (Maybe ConsensusPeerMessage)) +HsJSONPB.declareSchemaRef + Referenced Schema +consensusNotifyPeerMessageMessage <- Proxy (OverrideToSchema (Maybe ConsensusPeerMessage)) -> Declare (Definitions Schema) (Referenced Schema) -declare_message Proxy (OverrideToSchema (Maybe ConsensusPeerMessage)) +declare_message Proxy (OverrideToSchema (Maybe ConsensusPeerMessage)) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_sender_id :: Proxy (OverrideToSchema ByteString) +Proxy.Proxy + let declare_sender_id :: Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_sender_id = Proxy (OverrideToSchema ByteString) +declare_sender_id = Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -consensusNotifyPeerMessageSenderId <- Proxy (OverrideToSchema ByteString) +HsJSONPB.declareSchemaRef + Referenced Schema +consensusNotifyPeerMessageSenderId <- Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_sender_id Proxy (OverrideToSchema ByteString) +declare_sender_id Proxy (OverrideToSchema ByteString) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ConsensusNotifyPeerMessage +Proxy.Proxy + let Proxy ConsensusNotifyPeerMessage _ = (Maybe ConsensusPeerMessage -> ByteString -> ConsensusNotifyPeerMessage) -> Proxy (Maybe ConsensusPeerMessage -> ByteString -> ConsensusNotifyPeerMessage) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Maybe ConsensusPeerMessage +Hs.pure Maybe ConsensusPeerMessage -> ByteString -> ConsensusNotifyPeerMessage ConsensusNotifyPeerMessage Proxy (Maybe ConsensusPeerMessage @@ -6011,67 +6408,70 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Proxy (Maybe ConsensusPeerMessage) -> Proxy (ByteString -> ConsensusNotifyPeerMessage) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema (Maybe ConsensusPeerMessage)) +<*> + (Proxy (OverrideToSchema (Maybe ConsensusPeerMessage)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Maybe ConsensusPeerMessage) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Maybe ConsensusPeerMessage)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Maybe ConsensusPeerMessage)) -> Declare (Definitions Schema) (Referenced Schema) -declare_message - Proxy (ByteString -> ConsensusNotifyPeerMessage) +declare_message + Proxy (ByteString -> ConsensusNotifyPeerMessage) -> Proxy ByteString -> Proxy ConsensusNotifyPeerMessage forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema ByteString) +<*> (Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy ByteString forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) +HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_sender_id - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_sender_id + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ConsensusNotifyPeerMessage", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ConsensusNotifyPeerMessage", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("message", - Referenced Schema -consensusNotifyPeerMessageMessage), - ("sender_id", - Referenced Schema -consensusNotifyPeerMessageSenderId)]}}) - -newtype ConsensusNotifyBlockNew = ConsensusNotifyBlockNew{ConsensusNotifyBlockNew -> Maybe ConsensusBlock +HsJSONPB.insOrdFromList + [(Text +"message", + Referenced Schema +consensusNotifyPeerMessageMessage), + (Text +"sender_id", + Referenced Schema +consensusNotifyPeerMessageSenderId)]}}) + +newtype ConsensusNotifyBlockNew = ConsensusNotifyBlockNew{ConsensusNotifyBlockNew -> Maybe ConsensusBlock consensusNotifyBlockNewBlock - :: - Hs.Maybe - Data.Sawtooth.Consensus.ConsensusBlock} - deriving (Int -> ConsensusNotifyBlockNew -> ShowS + :: + Hs.Maybe + Data.Sawtooth.Consensus.ConsensusBlock} + deriving (Int -> ConsensusNotifyBlockNew -> ShowS [ConsensusNotifyBlockNew] -> ShowS ConsensusNotifyBlockNew -> String (Int -> ConsensusNotifyBlockNew -> ShowS) @@ -6086,7 +6486,7 @@ show :: ConsensusNotifyBlockNew -> String $cshow :: ConsensusNotifyBlockNew -> String showsPrec :: Int -> ConsensusNotifyBlockNew -> ShowS $cshowsPrec :: Int -> ConsensusNotifyBlockNew -> ShowS -Hs.Show, ConsensusNotifyBlockNew -> ConsensusNotifyBlockNew -> Bool +Hs.Show, ConsensusNotifyBlockNew -> ConsensusNotifyBlockNew -> Bool (ConsensusNotifyBlockNew -> ConsensusNotifyBlockNew -> Bool) -> (ConsensusNotifyBlockNew -> ConsensusNotifyBlockNew -> Bool) -> Eq ConsensusNotifyBlockNew @@ -6095,9 +6495,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: ConsensusNotifyBlockNew -> ConsensusNotifyBlockNew -> Bool == :: ConsensusNotifyBlockNew -> ConsensusNotifyBlockNew -> Bool $c== :: ConsensusNotifyBlockNew -> ConsensusNotifyBlockNew -> Bool -Hs.Eq, Eq ConsensusNotifyBlockNew -Eq ConsensusNotifyBlockNew => -(ConsensusNotifyBlockNew -> ConsensusNotifyBlockNew -> Ordering) +Hs.Eq, Eq ConsensusNotifyBlockNew +Eq ConsensusNotifyBlockNew +-> (ConsensusNotifyBlockNew -> ConsensusNotifyBlockNew -> Ordering) -> (ConsensusNotifyBlockNew -> ConsensusNotifyBlockNew -> Bool) -> (ConsensusNotifyBlockNew -> ConsensusNotifyBlockNew -> Bool) -> (ConsensusNotifyBlockNew -> ConsensusNotifyBlockNew -> Bool) @@ -6112,8 +6512,8 @@ ConsensusNotifyBlockNew -> ConsensusNotifyBlockNew -> Ordering ConsensusNotifyBlockNew -> ConsensusNotifyBlockNew -> ConsensusNotifyBlockNew forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -6140,7 +6540,7 @@ $c< :: ConsensusNotifyBlockNew -> ConsensusNotifyBlockNew -> Bool compare :: ConsensusNotifyBlockNew -> ConsensusNotifyBlockNew -> Ordering $ccompare :: ConsensusNotifyBlockNew -> ConsensusNotifyBlockNew -> Ordering $cp1Ord :: Eq ConsensusNotifyBlockNew -Hs.Ord, (forall x. +Hs.Ord, (forall x. ConsensusNotifyBlockNew -> Rep ConsensusNotifyBlockNew x) -> (forall x. Rep ConsensusNotifyBlockNew x -> ConsensusNotifyBlockNew) @@ -6151,220 +6551,236 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep ConsensusNotifyBlockNew x -> ConsensusNotifyBlockNew $cfrom :: forall x. ConsensusNotifyBlockNew -> Rep ConsensusNotifyBlockNew x -Hs.Generic, ConsensusNotifyBlockNew -> () +Hs.Generic, ConsensusNotifyBlockNew -> () (ConsensusNotifyBlockNew -> ()) -> NFData ConsensusNotifyBlockNew forall a. (a -> ()) -> NFData a rnf :: ConsensusNotifyBlockNew -> () $crnf :: ConsensusNotifyBlockNew -> () -Hs.NFData) - -instance HsProtobuf.Named ConsensusNotifyBlockNew where - nameOf :: Proxy# ConsensusNotifyBlockNew -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ConsensusNotifyBlockNew where + nameOf :: Proxy# ConsensusNotifyBlockNew -> string +nameOf Proxy# ConsensusNotifyBlockNew +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ConsensusNotifyBlockNew") - -instance HsProtobuf.HasDefault ConsensusNotifyBlockNew - -instance HsProtobuf.Message ConsensusNotifyBlockNew where - encodeMessage :: FieldNumber -> ConsensusNotifyBlockNew -> MessageBuilder -encodeMessage _ - ConsensusNotifyBlockNew{consensusNotifyBlockNewBlock :: ConsensusNotifyBlockNew -> Maybe ConsensusBlock +Hs.fromString String +"ConsensusNotifyBlockNew") + +instance HsProtobuf.HasDefault ConsensusNotifyBlockNew + +instance HsProtobuf.Message ConsensusNotifyBlockNew where + encodeMessage :: FieldNumber -> ConsensusNotifyBlockNew -> MessageBuilder +encodeMessage FieldNumber +_ + ConsensusNotifyBlockNew{consensusNotifyBlockNewBlock :: ConsensusNotifyBlockNew -> Maybe ConsensusBlock consensusNotifyBlockNewBlock = - Maybe ConsensusBlock -consensusNotifyBlockNewBlock} - = ([MessageBuilder] -> MessageBuilder + Maybe ConsensusBlock +consensusNotifyBlockNewBlock} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> Nested ConsensusBlock -> MessageBuilder +Hs.mconcat + [(FieldNumber -> Nested ConsensusBlock -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (Maybe ConsensusBlock -> Nested ConsensusBlock -forall a b. Coercible a b => a -> b -Hs.coerce @(Hs.Maybe Data.Sawtooth.Consensus.ConsensusBlock) - @(HsProtobuf.Nested Data.Sawtooth.Consensus.ConsensusBlock) - Maybe ConsensusBlock -consensusNotifyBlockNewBlock))]) - decodeMessage :: FieldNumber -> Parser RawMessage ConsensusNotifyBlockNew -decodeMessage _ - = ((Maybe ConsensusBlock -> ConsensusNotifyBlockNew) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (Maybe ConsensusBlock -> Nested ConsensusBlock +Hs.coerce @(Hs.Maybe Data.Sawtooth.Consensus.ConsensusBlock) + @(HsProtobuf.Nested Data.Sawtooth.Consensus.ConsensusBlock) + Maybe ConsensusBlock +consensusNotifyBlockNewBlock))]) + decodeMessage :: FieldNumber -> Parser RawMessage ConsensusNotifyBlockNew +decodeMessage FieldNumber +_ + = ((Maybe ConsensusBlock -> ConsensusNotifyBlockNew) -> Parser RawMessage (Maybe ConsensusBlock -> ConsensusNotifyBlockNew) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Maybe ConsensusBlock -> ConsensusNotifyBlockNew +Hs.pure Maybe ConsensusBlock -> ConsensusNotifyBlockNew ConsensusNotifyBlockNew) Parser RawMessage (Maybe ConsensusBlock -> ConsensusNotifyBlockNew) -> Parser RawMessage (Maybe ConsensusBlock) -> Parser RawMessage ConsensusNotifyBlockNew forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (Nested ConsensusBlock) +<*> + (Parser RawMessage (Nested ConsensusBlock) -> Parser RawMessage (Maybe ConsensusBlock) -forall a b. Coercible a b => a -> b -Hs.coerce - @(_ (HsProtobuf.Nested Data.Sawtooth.Consensus.ConsensusBlock)) - @(_ (Hs.Maybe Data.Sawtooth.Consensus.ConsensusBlock)) - (Parser RawField (Nested ConsensusBlock) +Hs.coerce + @(_ (HsProtobuf.Nested Data.Sawtooth.Consensus.ConsensusBlock)) + @(_ (Hs.Maybe Data.Sawtooth.Consensus.ConsensusBlock)) + (Parser RawField (Nested ConsensusBlock) -> FieldNumber -> Parser RawMessage (Nested ConsensusBlock) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (Nested ConsensusBlock) +HsProtobuf.at Parser RawField (Nested ConsensusBlock) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1))) - dotProto :: Proxy# ConsensusNotifyBlockNew -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1))) + dotProto :: Proxy# ConsensusNotifyBlockNew -> [DotProtoField] +dotProto Proxy# ConsensusNotifyBlockNew +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim - (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "ConsensusBlock"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "block") - [] - "")] - -instance HsJSONPB.ToJSONPB ConsensusNotifyBlockNew where - toJSONPB :: ConsensusNotifyBlockNew -> Options -> Value -toJSONPB (ConsensusNotifyBlockNew f1 :: Maybe ConsensusBlock -f1) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["block" Text -> Maybe ConsensusBlock -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim + (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"ConsensusBlock"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"block") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ConsensusNotifyBlockNew where + toJSONPB :: ConsensusNotifyBlockNew -> Options -> Value +toJSONPB (ConsensusNotifyBlockNew Maybe ConsensusBlock +f1) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"block" Text -> Maybe ConsensusBlock -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Maybe ConsensusBlock -f1]) - toEncodingPB :: ConsensusNotifyBlockNew -> Options -> Encoding -toEncodingPB (ConsensusNotifyBlockNew f1 :: Maybe ConsensusBlock -f1) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["block" Text -> Maybe ConsensusBlock -> Options -> Series +.= Maybe ConsensusBlock +f1]) + toEncodingPB :: ConsensusNotifyBlockNew -> Options -> Encoding +toEncodingPB (ConsensusNotifyBlockNew Maybe ConsensusBlock +f1) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"block" Text -> Maybe ConsensusBlock -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Maybe ConsensusBlock -f1]) - -instance HsJSONPB.FromJSONPB ConsensusNotifyBlockNew where - parseJSONPB :: Value -> Parser ConsensusNotifyBlockNew -parseJSONPB - = (String +.= Maybe ConsensusBlock +f1]) + +instance HsJSONPB.FromJSONPB ConsensusNotifyBlockNew where + parseJSONPB :: Value -> Parser ConsensusNotifyBlockNew +parseJSONPB + = (String -> (Object -> Parser ConsensusNotifyBlockNew) -> Value -> Parser ConsensusNotifyBlockNew forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ConsensusNotifyBlockNew" - (\ obj :: Object -obj -> ((Maybe ConsensusBlock -> ConsensusNotifyBlockNew) +HsJSONPB.withObject String +"ConsensusNotifyBlockNew" + (\ Object +obj -> ((Maybe ConsensusBlock -> ConsensusNotifyBlockNew) -> Parser (Maybe ConsensusBlock -> ConsensusNotifyBlockNew) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Maybe ConsensusBlock -> ConsensusNotifyBlockNew +Hs.pure Maybe ConsensusBlock -> ConsensusNotifyBlockNew ConsensusNotifyBlockNew) Parser (Maybe ConsensusBlock -> ConsensusNotifyBlockNew) -> Parser (Maybe ConsensusBlock) -> Parser ConsensusNotifyBlockNew forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser (Maybe ConsensusBlock) +<*> Object +obj Object -> Text -> Parser (Maybe ConsensusBlock) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "block")) - -instance HsJSONPB.ToJSON ConsensusNotifyBlockNew where - toJSON :: ConsensusNotifyBlockNew -> Value -toJSON = ConsensusNotifyBlockNew -> Value +.: Text +"block")) + +instance HsJSONPB.ToJSON ConsensusNotifyBlockNew where + toJSON :: ConsensusNotifyBlockNew -> Value +toJSON = ConsensusNotifyBlockNew -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ConsensusNotifyBlockNew -> Encoding -toEncoding = ConsensusNotifyBlockNew -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ConsensusNotifyBlockNew -> Encoding +toEncoding = ConsensusNotifyBlockNew -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ConsensusNotifyBlockNew where - parseJSON :: Value -> Parser ConsensusNotifyBlockNew -parseJSON = Value -> Parser ConsensusNotifyBlockNew +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ConsensusNotifyBlockNew where + parseJSON :: Value -> Parser ConsensusNotifyBlockNew +parseJSON = Value -> Parser ConsensusNotifyBlockNew forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ConsensusNotifyBlockNew where - declareNamedSchema :: Proxy ConsensusNotifyBlockNew +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ConsensusNotifyBlockNew where + declareNamedSchema :: Proxy ConsensusNotifyBlockNew -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_block :: Proxy (OverrideToSchema (Maybe ConsensusBlock)) +declareNamedSchema Proxy ConsensusNotifyBlockNew +_ + = do let declare_block :: Proxy (OverrideToSchema (Maybe ConsensusBlock)) -> Declare (Definitions Schema) (Referenced Schema) -declare_block = Proxy (OverrideToSchema (Maybe ConsensusBlock)) +declare_block = Proxy (OverrideToSchema (Maybe ConsensusBlock)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -consensusNotifyBlockNewBlock <- Proxy (OverrideToSchema (Maybe ConsensusBlock)) +HsJSONPB.declareSchemaRef + Referenced Schema +consensusNotifyBlockNewBlock <- Proxy (OverrideToSchema (Maybe ConsensusBlock)) -> Declare (Definitions Schema) (Referenced Schema) -declare_block Proxy (OverrideToSchema (Maybe ConsensusBlock)) +declare_block Proxy (OverrideToSchema (Maybe ConsensusBlock)) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ConsensusNotifyBlockNew +Proxy.Proxy + let Proxy ConsensusNotifyBlockNew _ = (Maybe ConsensusBlock -> ConsensusNotifyBlockNew) -> Proxy (Maybe ConsensusBlock -> ConsensusNotifyBlockNew) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Maybe ConsensusBlock -> ConsensusNotifyBlockNew +Hs.pure Maybe ConsensusBlock -> ConsensusNotifyBlockNew ConsensusNotifyBlockNew Proxy (Maybe ConsensusBlock -> ConsensusNotifyBlockNew) -> Proxy (Maybe ConsensusBlock) -> Proxy ConsensusNotifyBlockNew forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema (Maybe ConsensusBlock)) +<*> + (Proxy (OverrideToSchema (Maybe ConsensusBlock)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Maybe ConsensusBlock) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Maybe ConsensusBlock)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Maybe ConsensusBlock)) -> Declare (Definitions Schema) (Referenced Schema) -declare_block - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_block + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ConsensusNotifyBlockNew", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ConsensusNotifyBlockNew", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("block", Referenced Schema -consensusNotifyBlockNewBlock)]}}) - -newtype ConsensusNotifyBlockValid = ConsensusNotifyBlockValid{ConsensusNotifyBlockValid -> ByteString +HsJSONPB.insOrdFromList + [(Text +"block", Referenced Schema +consensusNotifyBlockNewBlock)]}}) + +newtype ConsensusNotifyBlockValid = ConsensusNotifyBlockValid{ConsensusNotifyBlockValid -> ByteString consensusNotifyBlockValidBlockId - :: Hs.ByteString} - deriving (Int -> ConsensusNotifyBlockValid -> ShowS + :: Hs.ByteString} + deriving (Int -> ConsensusNotifyBlockValid -> ShowS [ConsensusNotifyBlockValid] -> ShowS ConsensusNotifyBlockValid -> String (Int -> ConsensusNotifyBlockValid -> ShowS) @@ -6379,7 +6795,7 @@ show :: ConsensusNotifyBlockValid -> String $cshow :: ConsensusNotifyBlockValid -> String showsPrec :: Int -> ConsensusNotifyBlockValid -> ShowS $cshowsPrec :: Int -> ConsensusNotifyBlockValid -> ShowS -Hs.Show, ConsensusNotifyBlockValid -> ConsensusNotifyBlockValid -> Bool +Hs.Show, ConsensusNotifyBlockValid -> ConsensusNotifyBlockValid -> Bool (ConsensusNotifyBlockValid -> ConsensusNotifyBlockValid -> Bool) -> (ConsensusNotifyBlockValid -> ConsensusNotifyBlockValid -> Bool) -> Eq ConsensusNotifyBlockValid @@ -6388,10 +6804,10 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: ConsensusNotifyBlockValid -> ConsensusNotifyBlockValid -> Bool == :: ConsensusNotifyBlockValid -> ConsensusNotifyBlockValid -> Bool $c== :: ConsensusNotifyBlockValid -> ConsensusNotifyBlockValid -> Bool -Hs.Eq, Eq ConsensusNotifyBlockValid -Eq ConsensusNotifyBlockValid => -(ConsensusNotifyBlockValid - -> ConsensusNotifyBlockValid -> Ordering) +Hs.Eq, Eq ConsensusNotifyBlockValid +Eq ConsensusNotifyBlockValid +-> (ConsensusNotifyBlockValid + -> ConsensusNotifyBlockValid -> Ordering) -> (ConsensusNotifyBlockValid -> ConsensusNotifyBlockValid -> Bool) -> (ConsensusNotifyBlockValid -> ConsensusNotifyBlockValid -> Bool) -> (ConsensusNotifyBlockValid -> ConsensusNotifyBlockValid -> Bool) @@ -6406,8 +6822,8 @@ ConsensusNotifyBlockValid -> ConsensusNotifyBlockValid -> Ordering ConsensusNotifyBlockValid -> ConsensusNotifyBlockValid -> ConsensusNotifyBlockValid forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -6434,7 +6850,7 @@ $c< :: ConsensusNotifyBlockValid -> ConsensusNotifyBlockValid -> Bool compare :: ConsensusNotifyBlockValid -> ConsensusNotifyBlockValid -> Ordering $ccompare :: ConsensusNotifyBlockValid -> ConsensusNotifyBlockValid -> Ordering $cp1Ord :: Eq ConsensusNotifyBlockValid -Hs.Ord, (forall x. +Hs.Ord, (forall x. ConsensusNotifyBlockValid -> Rep ConsensusNotifyBlockValid x) -> (forall x. Rep ConsensusNotifyBlockValid x -> ConsensusNotifyBlockValid) @@ -6449,210 +6865,227 @@ $cto :: forall x. Rep ConsensusNotifyBlockValid x -> ConsensusNotifyBlockValid $cfrom :: forall x. ConsensusNotifyBlockValid -> Rep ConsensusNotifyBlockValid x -Hs.Generic, ConsensusNotifyBlockValid -> () +Hs.Generic, ConsensusNotifyBlockValid -> () (ConsensusNotifyBlockValid -> ()) -> NFData ConsensusNotifyBlockValid forall a. (a -> ()) -> NFData a rnf :: ConsensusNotifyBlockValid -> () $crnf :: ConsensusNotifyBlockValid -> () -Hs.NFData) - -instance HsProtobuf.Named ConsensusNotifyBlockValid where - nameOf :: Proxy# ConsensusNotifyBlockValid -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ConsensusNotifyBlockValid where + nameOf :: Proxy# ConsensusNotifyBlockValid -> string +nameOf Proxy# ConsensusNotifyBlockValid +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ConsensusNotifyBlockValid") - -instance HsProtobuf.HasDefault ConsensusNotifyBlockValid - -instance HsProtobuf.Message ConsensusNotifyBlockValid where - encodeMessage :: FieldNumber -> ConsensusNotifyBlockValid -> MessageBuilder -encodeMessage _ - ConsensusNotifyBlockValid{consensusNotifyBlockValidBlockId :: ConsensusNotifyBlockValid -> ByteString +Hs.fromString String +"ConsensusNotifyBlockValid") + +instance HsProtobuf.HasDefault ConsensusNotifyBlockValid + +instance HsProtobuf.Message ConsensusNotifyBlockValid where + encodeMessage :: FieldNumber -> ConsensusNotifyBlockValid -> MessageBuilder +encodeMessage FieldNumber +_ + ConsensusNotifyBlockValid{consensusNotifyBlockValidBlockId :: ConsensusNotifyBlockValid -> ByteString consensusNotifyBlockValidBlockId = - ByteString -consensusNotifyBlockValidBlockId} - = ([MessageBuilder] -> MessageBuilder + ByteString +consensusNotifyBlockValidBlockId} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> ByteString -> MessageBuilder +Hs.mconcat + [(FieldNumber -> ByteString -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - ByteString -consensusNotifyBlockValidBlockId)]) - decodeMessage :: FieldNumber -> Parser RawMessage ConsensusNotifyBlockValid -decodeMessage _ - = ((ByteString -> ConsensusNotifyBlockValid) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + ByteString +consensusNotifyBlockValidBlockId)]) + decodeMessage :: FieldNumber -> Parser RawMessage ConsensusNotifyBlockValid +decodeMessage FieldNumber +_ + = ((ByteString -> ConsensusNotifyBlockValid) -> Parser RawMessage (ByteString -> ConsensusNotifyBlockValid) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString -> ConsensusNotifyBlockValid +Hs.pure ByteString -> ConsensusNotifyBlockValid ConsensusNotifyBlockValid) Parser RawMessage (ByteString -> ConsensusNotifyBlockValid) -> Parser RawMessage ByteString -> Parser RawMessage ConsensusNotifyBlockValid forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField ByteString +<*> + (Parser RawField ByteString -> FieldNumber -> Parser RawMessage ByteString forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField ByteString +HsProtobuf.at Parser RawField ByteString forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - dotProto :: Proxy# ConsensusNotifyBlockValid -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + dotProto :: Proxy# ConsensusNotifyBlockValid -> [DotProtoField] +dotProto Proxy# ConsensusNotifyBlockValid +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.Bytes) - (String -> DotProtoIdentifier -HsProtobuf.Single "block_id") - [] - "")] - -instance HsJSONPB.ToJSONPB ConsensusNotifyBlockValid where - toJSONPB :: ConsensusNotifyBlockValid -> Options -> Value -toJSONPB (ConsensusNotifyBlockValid f1 :: ByteString -f1) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["block_id" Text -> ByteString -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.Bytes) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"block_id") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ConsensusNotifyBlockValid where + toJSONPB :: ConsensusNotifyBlockValid -> Options -> Value +toJSONPB (ConsensusNotifyBlockValid ByteString +f1) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"block_id" Text -> ByteString -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f1]) - toEncodingPB :: ConsensusNotifyBlockValid -> Options -> Encoding -toEncodingPB (ConsensusNotifyBlockValid f1 :: ByteString -f1) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["block_id" Text -> ByteString -> Options -> Series +.= ByteString +f1]) + toEncodingPB :: ConsensusNotifyBlockValid -> Options -> Encoding +toEncodingPB (ConsensusNotifyBlockValid ByteString +f1) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"block_id" Text -> ByteString -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f1]) - -instance HsJSONPB.FromJSONPB ConsensusNotifyBlockValid where - parseJSONPB :: Value -> Parser ConsensusNotifyBlockValid -parseJSONPB - = (String +.= ByteString +f1]) + +instance HsJSONPB.FromJSONPB ConsensusNotifyBlockValid where + parseJSONPB :: Value -> Parser ConsensusNotifyBlockValid +parseJSONPB + = (String -> (Object -> Parser ConsensusNotifyBlockValid) -> Value -> Parser ConsensusNotifyBlockValid forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ConsensusNotifyBlockValid" - (\ obj :: Object -obj -> - ((ByteString -> ConsensusNotifyBlockValid) +HsJSONPB.withObject String +"ConsensusNotifyBlockValid" + (\ Object +obj -> + ((ByteString -> ConsensusNotifyBlockValid) -> Parser (ByteString -> ConsensusNotifyBlockValid) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString -> ConsensusNotifyBlockValid +Hs.pure ByteString -> ConsensusNotifyBlockValid ConsensusNotifyBlockValid) Parser (ByteString -> ConsensusNotifyBlockValid) -> Parser ByteString -> Parser ConsensusNotifyBlockValid forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser ByteString +<*> Object +obj Object -> Text -> Parser ByteString forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "block_id")) - -instance HsJSONPB.ToJSON ConsensusNotifyBlockValid where - toJSON :: ConsensusNotifyBlockValid -> Value -toJSON = ConsensusNotifyBlockValid -> Value +.: Text +"block_id")) + +instance HsJSONPB.ToJSON ConsensusNotifyBlockValid where + toJSON :: ConsensusNotifyBlockValid -> Value +toJSON = ConsensusNotifyBlockValid -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ConsensusNotifyBlockValid -> Encoding -toEncoding = ConsensusNotifyBlockValid -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ConsensusNotifyBlockValid -> Encoding +toEncoding = ConsensusNotifyBlockValid -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ConsensusNotifyBlockValid where - parseJSON :: Value -> Parser ConsensusNotifyBlockValid -parseJSON = Value -> Parser ConsensusNotifyBlockValid +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ConsensusNotifyBlockValid where + parseJSON :: Value -> Parser ConsensusNotifyBlockValid +parseJSON = Value -> Parser ConsensusNotifyBlockValid forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ConsensusNotifyBlockValid where - declareNamedSchema :: Proxy ConsensusNotifyBlockValid +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ConsensusNotifyBlockValid where + declareNamedSchema :: Proxy ConsensusNotifyBlockValid -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_block_id :: Proxy (OverrideToSchema ByteString) +declareNamedSchema Proxy ConsensusNotifyBlockValid +_ + = do let declare_block_id :: Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_block_id = Proxy (OverrideToSchema ByteString) +declare_block_id = Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -consensusNotifyBlockValidBlockId <- Proxy (OverrideToSchema ByteString) +HsJSONPB.declareSchemaRef + Referenced Schema +consensusNotifyBlockValidBlockId <- Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_block_id Proxy (OverrideToSchema ByteString) +declare_block_id Proxy (OverrideToSchema ByteString) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ConsensusNotifyBlockValid +Proxy.Proxy + let Proxy ConsensusNotifyBlockValid _ = (ByteString -> ConsensusNotifyBlockValid) -> Proxy (ByteString -> ConsensusNotifyBlockValid) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString -> ConsensusNotifyBlockValid +Hs.pure ByteString -> ConsensusNotifyBlockValid ConsensusNotifyBlockValid Proxy (ByteString -> ConsensusNotifyBlockValid) -> Proxy ByteString -> Proxy ConsensusNotifyBlockValid forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema ByteString) +<*> + (Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy ByteString forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) +HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_block_id - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_block_id + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ConsensusNotifyBlockValid", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ConsensusNotifyBlockValid", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("block_id", - Referenced Schema -consensusNotifyBlockValidBlockId)]}}) - -newtype ConsensusNotifyBlockInvalid = ConsensusNotifyBlockInvalid{ConsensusNotifyBlockInvalid -> ByteString +HsJSONPB.insOrdFromList + [(Text +"block_id", + Referenced Schema +consensusNotifyBlockValidBlockId)]}}) + +newtype ConsensusNotifyBlockInvalid = ConsensusNotifyBlockInvalid{ConsensusNotifyBlockInvalid -> ByteString consensusNotifyBlockInvalidBlockId - :: Hs.ByteString} - deriving (Int -> ConsensusNotifyBlockInvalid -> ShowS + :: Hs.ByteString} + deriving (Int -> ConsensusNotifyBlockInvalid -> ShowS [ConsensusNotifyBlockInvalid] -> ShowS ConsensusNotifyBlockInvalid -> String (Int -> ConsensusNotifyBlockInvalid -> ShowS) @@ -6667,7 +7100,7 @@ show :: ConsensusNotifyBlockInvalid -> String $cshow :: ConsensusNotifyBlockInvalid -> String showsPrec :: Int -> ConsensusNotifyBlockInvalid -> ShowS $cshowsPrec :: Int -> ConsensusNotifyBlockInvalid -> ShowS -Hs.Show, ConsensusNotifyBlockInvalid -> ConsensusNotifyBlockInvalid -> Bool +Hs.Show, ConsensusNotifyBlockInvalid -> ConsensusNotifyBlockInvalid -> Bool (ConsensusNotifyBlockInvalid -> ConsensusNotifyBlockInvalid -> Bool) -> (ConsensusNotifyBlockInvalid @@ -6678,10 +7111,10 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: ConsensusNotifyBlockInvalid -> ConsensusNotifyBlockInvalid -> Bool == :: ConsensusNotifyBlockInvalid -> ConsensusNotifyBlockInvalid -> Bool $c== :: ConsensusNotifyBlockInvalid -> ConsensusNotifyBlockInvalid -> Bool -Hs.Eq, Eq ConsensusNotifyBlockInvalid -Eq ConsensusNotifyBlockInvalid => -(ConsensusNotifyBlockInvalid - -> ConsensusNotifyBlockInvalid -> Ordering) +Hs.Eq, Eq ConsensusNotifyBlockInvalid +Eq ConsensusNotifyBlockInvalid +-> (ConsensusNotifyBlockInvalid + -> ConsensusNotifyBlockInvalid -> Ordering) -> (ConsensusNotifyBlockInvalid -> ConsensusNotifyBlockInvalid -> Bool) -> (ConsensusNotifyBlockInvalid @@ -6701,8 +7134,8 @@ ConsensusNotifyBlockInvalid ConsensusNotifyBlockInvalid -> ConsensusNotifyBlockInvalid -> ConsensusNotifyBlockInvalid forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -6731,7 +7164,7 @@ compare :: ConsensusNotifyBlockInvalid $ccompare :: ConsensusNotifyBlockInvalid -> ConsensusNotifyBlockInvalid -> Ordering $cp1Ord :: Eq ConsensusNotifyBlockInvalid -Hs.Ord, (forall x. +Hs.Ord, (forall x. ConsensusNotifyBlockInvalid -> Rep ConsensusNotifyBlockInvalid x) -> (forall x. Rep ConsensusNotifyBlockInvalid x -> ConsensusNotifyBlockInvalid) @@ -6746,210 +7179,227 @@ $cto :: forall x. Rep ConsensusNotifyBlockInvalid x -> ConsensusNotifyBlockInvalid $cfrom :: forall x. ConsensusNotifyBlockInvalid -> Rep ConsensusNotifyBlockInvalid x -Hs.Generic, ConsensusNotifyBlockInvalid -> () +Hs.Generic, ConsensusNotifyBlockInvalid -> () (ConsensusNotifyBlockInvalid -> ()) -> NFData ConsensusNotifyBlockInvalid forall a. (a -> ()) -> NFData a rnf :: ConsensusNotifyBlockInvalid -> () $crnf :: ConsensusNotifyBlockInvalid -> () -Hs.NFData) - -instance HsProtobuf.Named ConsensusNotifyBlockInvalid where - nameOf :: Proxy# ConsensusNotifyBlockInvalid -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ConsensusNotifyBlockInvalid where + nameOf :: Proxy# ConsensusNotifyBlockInvalid -> string +nameOf Proxy# ConsensusNotifyBlockInvalid +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ConsensusNotifyBlockInvalid") - -instance HsProtobuf.HasDefault ConsensusNotifyBlockInvalid - -instance HsProtobuf.Message ConsensusNotifyBlockInvalid where - encodeMessage :: FieldNumber -> ConsensusNotifyBlockInvalid -> MessageBuilder -encodeMessage _ - ConsensusNotifyBlockInvalid{consensusNotifyBlockInvalidBlockId :: ConsensusNotifyBlockInvalid -> ByteString +Hs.fromString String +"ConsensusNotifyBlockInvalid") + +instance HsProtobuf.HasDefault ConsensusNotifyBlockInvalid + +instance HsProtobuf.Message ConsensusNotifyBlockInvalid where + encodeMessage :: FieldNumber -> ConsensusNotifyBlockInvalid -> MessageBuilder +encodeMessage FieldNumber +_ + ConsensusNotifyBlockInvalid{consensusNotifyBlockInvalidBlockId :: ConsensusNotifyBlockInvalid -> ByteString consensusNotifyBlockInvalidBlockId = - ByteString -consensusNotifyBlockInvalidBlockId} - = ([MessageBuilder] -> MessageBuilder + ByteString +consensusNotifyBlockInvalidBlockId} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> ByteString -> MessageBuilder +Hs.mconcat + [(FieldNumber -> ByteString -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - ByteString -consensusNotifyBlockInvalidBlockId)]) - decodeMessage :: FieldNumber -> Parser RawMessage ConsensusNotifyBlockInvalid -decodeMessage _ - = ((ByteString -> ConsensusNotifyBlockInvalid) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + ByteString +consensusNotifyBlockInvalidBlockId)]) + decodeMessage :: FieldNumber -> Parser RawMessage ConsensusNotifyBlockInvalid +decodeMessage FieldNumber +_ + = ((ByteString -> ConsensusNotifyBlockInvalid) -> Parser RawMessage (ByteString -> ConsensusNotifyBlockInvalid) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString -> ConsensusNotifyBlockInvalid +Hs.pure ByteString -> ConsensusNotifyBlockInvalid ConsensusNotifyBlockInvalid) Parser RawMessage (ByteString -> ConsensusNotifyBlockInvalid) -> Parser RawMessage ByteString -> Parser RawMessage ConsensusNotifyBlockInvalid forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField ByteString +<*> + (Parser RawField ByteString -> FieldNumber -> Parser RawMessage ByteString forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField ByteString +HsProtobuf.at Parser RawField ByteString forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - dotProto :: Proxy# ConsensusNotifyBlockInvalid -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + dotProto :: Proxy# ConsensusNotifyBlockInvalid -> [DotProtoField] +dotProto Proxy# ConsensusNotifyBlockInvalid +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.Bytes) - (String -> DotProtoIdentifier -HsProtobuf.Single "block_id") - [] - "")] - -instance HsJSONPB.ToJSONPB ConsensusNotifyBlockInvalid where - toJSONPB :: ConsensusNotifyBlockInvalid -> Options -> Value -toJSONPB (ConsensusNotifyBlockInvalid f1 :: ByteString -f1) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["block_id" Text -> ByteString -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.Bytes) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"block_id") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ConsensusNotifyBlockInvalid where + toJSONPB :: ConsensusNotifyBlockInvalid -> Options -> Value +toJSONPB (ConsensusNotifyBlockInvalid ByteString +f1) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"block_id" Text -> ByteString -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f1]) - toEncodingPB :: ConsensusNotifyBlockInvalid -> Options -> Encoding -toEncodingPB (ConsensusNotifyBlockInvalid f1 :: ByteString -f1) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["block_id" Text -> ByteString -> Options -> Series +.= ByteString +f1]) + toEncodingPB :: ConsensusNotifyBlockInvalid -> Options -> Encoding +toEncodingPB (ConsensusNotifyBlockInvalid ByteString +f1) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"block_id" Text -> ByteString -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f1]) - -instance HsJSONPB.FromJSONPB ConsensusNotifyBlockInvalid where - parseJSONPB :: Value -> Parser ConsensusNotifyBlockInvalid -parseJSONPB - = (String +.= ByteString +f1]) + +instance HsJSONPB.FromJSONPB ConsensusNotifyBlockInvalid where + parseJSONPB :: Value -> Parser ConsensusNotifyBlockInvalid +parseJSONPB + = (String -> (Object -> Parser ConsensusNotifyBlockInvalid) -> Value -> Parser ConsensusNotifyBlockInvalid forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ConsensusNotifyBlockInvalid" - (\ obj :: Object -obj -> - ((ByteString -> ConsensusNotifyBlockInvalid) +HsJSONPB.withObject String +"ConsensusNotifyBlockInvalid" + (\ Object +obj -> + ((ByteString -> ConsensusNotifyBlockInvalid) -> Parser (ByteString -> ConsensusNotifyBlockInvalid) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString -> ConsensusNotifyBlockInvalid +Hs.pure ByteString -> ConsensusNotifyBlockInvalid ConsensusNotifyBlockInvalid) Parser (ByteString -> ConsensusNotifyBlockInvalid) -> Parser ByteString -> Parser ConsensusNotifyBlockInvalid forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser ByteString +<*> Object +obj Object -> Text -> Parser ByteString forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "block_id")) - -instance HsJSONPB.ToJSON ConsensusNotifyBlockInvalid where - toJSON :: ConsensusNotifyBlockInvalid -> Value -toJSON = ConsensusNotifyBlockInvalid -> Value +.: Text +"block_id")) + +instance HsJSONPB.ToJSON ConsensusNotifyBlockInvalid where + toJSON :: ConsensusNotifyBlockInvalid -> Value +toJSON = ConsensusNotifyBlockInvalid -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ConsensusNotifyBlockInvalid -> Encoding -toEncoding = ConsensusNotifyBlockInvalid -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ConsensusNotifyBlockInvalid -> Encoding +toEncoding = ConsensusNotifyBlockInvalid -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ConsensusNotifyBlockInvalid where - parseJSON :: Value -> Parser ConsensusNotifyBlockInvalid -parseJSON = Value -> Parser ConsensusNotifyBlockInvalid +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ConsensusNotifyBlockInvalid where + parseJSON :: Value -> Parser ConsensusNotifyBlockInvalid +parseJSON = Value -> Parser ConsensusNotifyBlockInvalid forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ConsensusNotifyBlockInvalid where - declareNamedSchema :: Proxy ConsensusNotifyBlockInvalid +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ConsensusNotifyBlockInvalid where + declareNamedSchema :: Proxy ConsensusNotifyBlockInvalid -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_block_id :: Proxy (OverrideToSchema ByteString) +declareNamedSchema Proxy ConsensusNotifyBlockInvalid +_ + = do let declare_block_id :: Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_block_id = Proxy (OverrideToSchema ByteString) +declare_block_id = Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -consensusNotifyBlockInvalidBlockId <- Proxy (OverrideToSchema ByteString) +HsJSONPB.declareSchemaRef + Referenced Schema +consensusNotifyBlockInvalidBlockId <- Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_block_id Proxy (OverrideToSchema ByteString) +declare_block_id Proxy (OverrideToSchema ByteString) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ConsensusNotifyBlockInvalid +Proxy.Proxy + let Proxy ConsensusNotifyBlockInvalid _ = (ByteString -> ConsensusNotifyBlockInvalid) -> Proxy (ByteString -> ConsensusNotifyBlockInvalid) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString -> ConsensusNotifyBlockInvalid +Hs.pure ByteString -> ConsensusNotifyBlockInvalid ConsensusNotifyBlockInvalid Proxy (ByteString -> ConsensusNotifyBlockInvalid) -> Proxy ByteString -> Proxy ConsensusNotifyBlockInvalid forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema ByteString) +<*> + (Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy ByteString forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) +HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_block_id - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_block_id + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ConsensusNotifyBlockInvalid", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ConsensusNotifyBlockInvalid", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("block_id", - Referenced Schema -consensusNotifyBlockInvalidBlockId)]}}) - -newtype ConsensusNotifyBlockCommit = ConsensusNotifyBlockCommit{ConsensusNotifyBlockCommit -> ByteString +HsJSONPB.insOrdFromList + [(Text +"block_id", + Referenced Schema +consensusNotifyBlockInvalidBlockId)]}}) + +newtype ConsensusNotifyBlockCommit = ConsensusNotifyBlockCommit{ConsensusNotifyBlockCommit -> ByteString consensusNotifyBlockCommitBlockId - :: Hs.ByteString} - deriving (Int -> ConsensusNotifyBlockCommit -> ShowS + :: Hs.ByteString} + deriving (Int -> ConsensusNotifyBlockCommit -> ShowS [ConsensusNotifyBlockCommit] -> ShowS ConsensusNotifyBlockCommit -> String (Int -> ConsensusNotifyBlockCommit -> ShowS) @@ -6964,7 +7414,7 @@ show :: ConsensusNotifyBlockCommit -> String $cshow :: ConsensusNotifyBlockCommit -> String showsPrec :: Int -> ConsensusNotifyBlockCommit -> ShowS $cshowsPrec :: Int -> ConsensusNotifyBlockCommit -> ShowS -Hs.Show, ConsensusNotifyBlockCommit -> ConsensusNotifyBlockCommit -> Bool +Hs.Show, ConsensusNotifyBlockCommit -> ConsensusNotifyBlockCommit -> Bool (ConsensusNotifyBlockCommit -> ConsensusNotifyBlockCommit -> Bool) -> (ConsensusNotifyBlockCommit -> ConsensusNotifyBlockCommit -> Bool) @@ -6974,10 +7424,10 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: ConsensusNotifyBlockCommit -> ConsensusNotifyBlockCommit -> Bool == :: ConsensusNotifyBlockCommit -> ConsensusNotifyBlockCommit -> Bool $c== :: ConsensusNotifyBlockCommit -> ConsensusNotifyBlockCommit -> Bool -Hs.Eq, Eq ConsensusNotifyBlockCommit -Eq ConsensusNotifyBlockCommit => -(ConsensusNotifyBlockCommit - -> ConsensusNotifyBlockCommit -> Ordering) +Hs.Eq, Eq ConsensusNotifyBlockCommit +Eq ConsensusNotifyBlockCommit +-> (ConsensusNotifyBlockCommit + -> ConsensusNotifyBlockCommit -> Ordering) -> (ConsensusNotifyBlockCommit -> ConsensusNotifyBlockCommit -> Bool) -> (ConsensusNotifyBlockCommit @@ -6997,8 +7447,8 @@ ConsensusNotifyBlockCommit ConsensusNotifyBlockCommit -> ConsensusNotifyBlockCommit -> ConsensusNotifyBlockCommit forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -7027,7 +7477,7 @@ compare :: ConsensusNotifyBlockCommit $ccompare :: ConsensusNotifyBlockCommit -> ConsensusNotifyBlockCommit -> Ordering $cp1Ord :: Eq ConsensusNotifyBlockCommit -Hs.Ord, (forall x. +Hs.Ord, (forall x. ConsensusNotifyBlockCommit -> Rep ConsensusNotifyBlockCommit x) -> (forall x. Rep ConsensusNotifyBlockCommit x -> ConsensusNotifyBlockCommit) @@ -7042,222 +7492,239 @@ $cto :: forall x. Rep ConsensusNotifyBlockCommit x -> ConsensusNotifyBlockCommit $cfrom :: forall x. ConsensusNotifyBlockCommit -> Rep ConsensusNotifyBlockCommit x -Hs.Generic, ConsensusNotifyBlockCommit -> () +Hs.Generic, ConsensusNotifyBlockCommit -> () (ConsensusNotifyBlockCommit -> ()) -> NFData ConsensusNotifyBlockCommit forall a. (a -> ()) -> NFData a rnf :: ConsensusNotifyBlockCommit -> () $crnf :: ConsensusNotifyBlockCommit -> () -Hs.NFData) - -instance HsProtobuf.Named ConsensusNotifyBlockCommit where - nameOf :: Proxy# ConsensusNotifyBlockCommit -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ConsensusNotifyBlockCommit where + nameOf :: Proxy# ConsensusNotifyBlockCommit -> string +nameOf Proxy# ConsensusNotifyBlockCommit +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ConsensusNotifyBlockCommit") - -instance HsProtobuf.HasDefault ConsensusNotifyBlockCommit - -instance HsProtobuf.Message ConsensusNotifyBlockCommit where - encodeMessage :: FieldNumber -> ConsensusNotifyBlockCommit -> MessageBuilder -encodeMessage _ - ConsensusNotifyBlockCommit{consensusNotifyBlockCommitBlockId :: ConsensusNotifyBlockCommit -> ByteString +Hs.fromString String +"ConsensusNotifyBlockCommit") + +instance HsProtobuf.HasDefault ConsensusNotifyBlockCommit + +instance HsProtobuf.Message ConsensusNotifyBlockCommit where + encodeMessage :: FieldNumber -> ConsensusNotifyBlockCommit -> MessageBuilder +encodeMessage FieldNumber +_ + ConsensusNotifyBlockCommit{consensusNotifyBlockCommitBlockId :: ConsensusNotifyBlockCommit -> ByteString consensusNotifyBlockCommitBlockId = - ByteString -consensusNotifyBlockCommitBlockId} - = ([MessageBuilder] -> MessageBuilder + ByteString +consensusNotifyBlockCommitBlockId} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> ByteString -> MessageBuilder +Hs.mconcat + [(FieldNumber -> ByteString -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - ByteString -consensusNotifyBlockCommitBlockId)]) - decodeMessage :: FieldNumber -> Parser RawMessage ConsensusNotifyBlockCommit -decodeMessage _ - = ((ByteString -> ConsensusNotifyBlockCommit) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + ByteString +consensusNotifyBlockCommitBlockId)]) + decodeMessage :: FieldNumber -> Parser RawMessage ConsensusNotifyBlockCommit +decodeMessage FieldNumber +_ + = ((ByteString -> ConsensusNotifyBlockCommit) -> Parser RawMessage (ByteString -> ConsensusNotifyBlockCommit) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString -> ConsensusNotifyBlockCommit +Hs.pure ByteString -> ConsensusNotifyBlockCommit ConsensusNotifyBlockCommit) Parser RawMessage (ByteString -> ConsensusNotifyBlockCommit) -> Parser RawMessage ByteString -> Parser RawMessage ConsensusNotifyBlockCommit forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField ByteString +<*> + (Parser RawField ByteString -> FieldNumber -> Parser RawMessage ByteString forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField ByteString +HsProtobuf.at Parser RawField ByteString forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - dotProto :: Proxy# ConsensusNotifyBlockCommit -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + dotProto :: Proxy# ConsensusNotifyBlockCommit -> [DotProtoField] +dotProto Proxy# ConsensusNotifyBlockCommit +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.Bytes) - (String -> DotProtoIdentifier -HsProtobuf.Single "block_id") - [] - "")] - -instance HsJSONPB.ToJSONPB ConsensusNotifyBlockCommit where - toJSONPB :: ConsensusNotifyBlockCommit -> Options -> Value -toJSONPB (ConsensusNotifyBlockCommit f1 :: ByteString -f1) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["block_id" Text -> ByteString -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.Bytes) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"block_id") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ConsensusNotifyBlockCommit where + toJSONPB :: ConsensusNotifyBlockCommit -> Options -> Value +toJSONPB (ConsensusNotifyBlockCommit ByteString +f1) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"block_id" Text -> ByteString -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f1]) - toEncodingPB :: ConsensusNotifyBlockCommit -> Options -> Encoding -toEncodingPB (ConsensusNotifyBlockCommit f1 :: ByteString -f1) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["block_id" Text -> ByteString -> Options -> Series +.= ByteString +f1]) + toEncodingPB :: ConsensusNotifyBlockCommit -> Options -> Encoding +toEncodingPB (ConsensusNotifyBlockCommit ByteString +f1) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"block_id" Text -> ByteString -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f1]) - -instance HsJSONPB.FromJSONPB ConsensusNotifyBlockCommit where - parseJSONPB :: Value -> Parser ConsensusNotifyBlockCommit -parseJSONPB - = (String +.= ByteString +f1]) + +instance HsJSONPB.FromJSONPB ConsensusNotifyBlockCommit where + parseJSONPB :: Value -> Parser ConsensusNotifyBlockCommit +parseJSONPB + = (String -> (Object -> Parser ConsensusNotifyBlockCommit) -> Value -> Parser ConsensusNotifyBlockCommit forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ConsensusNotifyBlockCommit" - (\ obj :: Object -obj -> - ((ByteString -> ConsensusNotifyBlockCommit) +HsJSONPB.withObject String +"ConsensusNotifyBlockCommit" + (\ Object +obj -> + ((ByteString -> ConsensusNotifyBlockCommit) -> Parser (ByteString -> ConsensusNotifyBlockCommit) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString -> ConsensusNotifyBlockCommit +Hs.pure ByteString -> ConsensusNotifyBlockCommit ConsensusNotifyBlockCommit) Parser (ByteString -> ConsensusNotifyBlockCommit) -> Parser ByteString -> Parser ConsensusNotifyBlockCommit forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser ByteString +<*> Object +obj Object -> Text -> Parser ByteString forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "block_id")) - -instance HsJSONPB.ToJSON ConsensusNotifyBlockCommit where - toJSON :: ConsensusNotifyBlockCommit -> Value -toJSON = ConsensusNotifyBlockCommit -> Value +.: Text +"block_id")) + +instance HsJSONPB.ToJSON ConsensusNotifyBlockCommit where + toJSON :: ConsensusNotifyBlockCommit -> Value +toJSON = ConsensusNotifyBlockCommit -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ConsensusNotifyBlockCommit -> Encoding -toEncoding = ConsensusNotifyBlockCommit -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ConsensusNotifyBlockCommit -> Encoding +toEncoding = ConsensusNotifyBlockCommit -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ConsensusNotifyBlockCommit where - parseJSON :: Value -> Parser ConsensusNotifyBlockCommit -parseJSON = Value -> Parser ConsensusNotifyBlockCommit +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ConsensusNotifyBlockCommit where + parseJSON :: Value -> Parser ConsensusNotifyBlockCommit +parseJSON = Value -> Parser ConsensusNotifyBlockCommit forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ConsensusNotifyBlockCommit where - declareNamedSchema :: Proxy ConsensusNotifyBlockCommit +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ConsensusNotifyBlockCommit where + declareNamedSchema :: Proxy ConsensusNotifyBlockCommit -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_block_id :: Proxy (OverrideToSchema ByteString) +declareNamedSchema Proxy ConsensusNotifyBlockCommit +_ + = do let declare_block_id :: Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_block_id = Proxy (OverrideToSchema ByteString) +declare_block_id = Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -consensusNotifyBlockCommitBlockId <- Proxy (OverrideToSchema ByteString) +HsJSONPB.declareSchemaRef + Referenced Schema +consensusNotifyBlockCommitBlockId <- Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_block_id Proxy (OverrideToSchema ByteString) +declare_block_id Proxy (OverrideToSchema ByteString) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ConsensusNotifyBlockCommit +Proxy.Proxy + let Proxy ConsensusNotifyBlockCommit _ = (ByteString -> ConsensusNotifyBlockCommit) -> Proxy (ByteString -> ConsensusNotifyBlockCommit) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString -> ConsensusNotifyBlockCommit +Hs.pure ByteString -> ConsensusNotifyBlockCommit ConsensusNotifyBlockCommit Proxy (ByteString -> ConsensusNotifyBlockCommit) -> Proxy ByteString -> Proxy ConsensusNotifyBlockCommit forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema ByteString) +<*> + (Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy ByteString forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) +HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_block_id - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_block_id + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ConsensusNotifyBlockCommit", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ConsensusNotifyBlockCommit", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("block_id", - Referenced Schema -consensusNotifyBlockCommitBlockId)]}}) - -data ConsensusNotifyEngineActivated = ConsensusNotifyEngineActivated{ConsensusNotifyEngineActivated -> Maybe ConsensusBlock +HsJSONPB.insOrdFromList + [(Text +"block_id", + Referenced Schema +consensusNotifyBlockCommitBlockId)]}}) + +data ConsensusNotifyEngineActivated = ConsensusNotifyEngineActivated{ConsensusNotifyEngineActivated -> Maybe ConsensusBlock consensusNotifyEngineActivatedChainHead - :: - Hs.Maybe - Data.Sawtooth.Consensus.ConsensusBlock, - ConsensusNotifyEngineActivated -> Vector ConsensusPeerInfo + :: + Hs.Maybe + Data.Sawtooth.Consensus.ConsensusBlock, + ConsensusNotifyEngineActivated -> Vector ConsensusPeerInfo consensusNotifyEngineActivatedPeers - :: - Hs.Vector - Data.Sawtooth.Consensus.ConsensusPeerInfo, - ConsensusNotifyEngineActivated -> Maybe ConsensusPeerInfo + :: + Hs.Vector + Data.Sawtooth.Consensus.ConsensusPeerInfo, + ConsensusNotifyEngineActivated -> Maybe ConsensusPeerInfo consensusNotifyEngineActivatedLocalPeerInfo - :: - Hs.Maybe - Data.Sawtooth.Consensus.ConsensusPeerInfo} - deriving (Int -> ConsensusNotifyEngineActivated -> ShowS + :: + Hs.Maybe + Data.Sawtooth.Consensus.ConsensusPeerInfo} + deriving (Int -> ConsensusNotifyEngineActivated -> ShowS [ConsensusNotifyEngineActivated] -> ShowS ConsensusNotifyEngineActivated -> String (Int -> ConsensusNotifyEngineActivated -> ShowS) @@ -7272,7 +7739,7 @@ show :: ConsensusNotifyEngineActivated -> String $cshow :: ConsensusNotifyEngineActivated -> String showsPrec :: Int -> ConsensusNotifyEngineActivated -> ShowS $cshowsPrec :: Int -> ConsensusNotifyEngineActivated -> ShowS -Hs.Show, ConsensusNotifyEngineActivated +Hs.Show, ConsensusNotifyEngineActivated -> ConsensusNotifyEngineActivated -> Bool (ConsensusNotifyEngineActivated -> ConsensusNotifyEngineActivated -> Bool) @@ -7288,10 +7755,10 @@ $c/= :: ConsensusNotifyEngineActivated -> ConsensusNotifyEngineActivated -> Bool $c== :: ConsensusNotifyEngineActivated -> ConsensusNotifyEngineActivated -> Bool -Hs.Eq, Eq ConsensusNotifyEngineActivated -Eq ConsensusNotifyEngineActivated => -(ConsensusNotifyEngineActivated - -> ConsensusNotifyEngineActivated -> Ordering) +Hs.Eq, Eq ConsensusNotifyEngineActivated +Eq ConsensusNotifyEngineActivated +-> (ConsensusNotifyEngineActivated + -> ConsensusNotifyEngineActivated -> Ordering) -> (ConsensusNotifyEngineActivated -> ConsensusNotifyEngineActivated -> Bool) -> (ConsensusNotifyEngineActivated @@ -7314,8 +7781,8 @@ ConsensusNotifyEngineActivated ConsensusNotifyEngineActivated -> ConsensusNotifyEngineActivated -> ConsensusNotifyEngineActivated forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -7352,7 +7819,7 @@ compare :: ConsensusNotifyEngineActivated $ccompare :: ConsensusNotifyEngineActivated -> ConsensusNotifyEngineActivated -> Ordering $cp1Ord :: Eq ConsensusNotifyEngineActivated -Hs.Ord, (forall x. +Hs.Ord, (forall x. ConsensusNotifyEngineActivated -> Rep ConsensusNotifyEngineActivated x) -> (forall x. @@ -7373,73 +7840,77 @@ Rep ConsensusNotifyEngineActivated x $cfrom :: forall x. ConsensusNotifyEngineActivated -> Rep ConsensusNotifyEngineActivated x -Hs.Generic, ConsensusNotifyEngineActivated -> () +Hs.Generic, ConsensusNotifyEngineActivated -> () (ConsensusNotifyEngineActivated -> ()) -> NFData ConsensusNotifyEngineActivated forall a. (a -> ()) -> NFData a rnf :: ConsensusNotifyEngineActivated -> () $crnf :: ConsensusNotifyEngineActivated -> () -Hs.NFData) - -instance HsProtobuf.Named ConsensusNotifyEngineActivated where - nameOf :: Proxy# ConsensusNotifyEngineActivated -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ConsensusNotifyEngineActivated where + nameOf :: Proxy# ConsensusNotifyEngineActivated -> string +nameOf Proxy# ConsensusNotifyEngineActivated +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ConsensusNotifyEngineActivated") - -instance HsProtobuf.HasDefault ConsensusNotifyEngineActivated - -instance HsProtobuf.Message ConsensusNotifyEngineActivated where - encodeMessage :: FieldNumber -> ConsensusNotifyEngineActivated -> MessageBuilder -encodeMessage _ - ConsensusNotifyEngineActivated{consensusNotifyEngineActivatedChainHead :: ConsensusNotifyEngineActivated -> Maybe ConsensusBlock +Hs.fromString String +"ConsensusNotifyEngineActivated") + +instance HsProtobuf.HasDefault ConsensusNotifyEngineActivated + +instance HsProtobuf.Message ConsensusNotifyEngineActivated where + encodeMessage :: FieldNumber -> ConsensusNotifyEngineActivated -> MessageBuilder +encodeMessage FieldNumber +_ + ConsensusNotifyEngineActivated{consensusNotifyEngineActivatedChainHead :: ConsensusNotifyEngineActivated -> Maybe ConsensusBlock consensusNotifyEngineActivatedChainHead - = Maybe ConsensusBlock -consensusNotifyEngineActivatedChainHead, - consensusNotifyEngineActivatedPeers :: ConsensusNotifyEngineActivated -> Vector ConsensusPeerInfo + = Maybe ConsensusBlock +consensusNotifyEngineActivatedChainHead, + consensusNotifyEngineActivatedPeers :: ConsensusNotifyEngineActivated -> Vector ConsensusPeerInfo consensusNotifyEngineActivatedPeers = - Vector ConsensusPeerInfo -consensusNotifyEngineActivatedPeers, - consensusNotifyEngineActivatedLocalPeerInfo :: ConsensusNotifyEngineActivated -> Maybe ConsensusPeerInfo + Vector ConsensusPeerInfo +consensusNotifyEngineActivatedPeers, + consensusNotifyEngineActivatedLocalPeerInfo :: ConsensusNotifyEngineActivated -> Maybe ConsensusPeerInfo consensusNotifyEngineActivatedLocalPeerInfo = - Maybe ConsensusPeerInfo -consensusNotifyEngineActivatedLocalPeerInfo} - = ([MessageBuilder] -> MessageBuilder + Maybe ConsensusPeerInfo +consensusNotifyEngineActivatedLocalPeerInfo} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> Nested ConsensusBlock -> MessageBuilder +Hs.mconcat + [(FieldNumber -> Nested ConsensusBlock -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (Maybe ConsensusBlock -> Nested ConsensusBlock -forall a b. Coercible a b => a -> b -Hs.coerce @(Hs.Maybe Data.Sawtooth.Consensus.ConsensusBlock) - @(HsProtobuf.Nested Data.Sawtooth.Consensus.ConsensusBlock) - Maybe ConsensusBlock -consensusNotifyEngineActivatedChainHead)), - (FieldNumber -> NestedVec ConsensusPeerInfo -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (Maybe ConsensusBlock -> Nested ConsensusBlock +Hs.coerce @(Hs.Maybe Data.Sawtooth.Consensus.ConsensusBlock) + @(HsProtobuf.Nested Data.Sawtooth.Consensus.ConsensusBlock) + Maybe ConsensusBlock +consensusNotifyEngineActivatedChainHead)), + (FieldNumber -> NestedVec ConsensusPeerInfo -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (Vector ConsensusPeerInfo -> NestedVec ConsensusPeerInfo -forall a b. Coercible a b => a -> b -Hs.coerce @(Hs.Vector Data.Sawtooth.Consensus.ConsensusPeerInfo) - @(HsProtobuf.NestedVec Data.Sawtooth.Consensus.ConsensusPeerInfo) - Vector ConsensusPeerInfo -consensusNotifyEngineActivatedPeers)), - (FieldNumber -> Nested ConsensusPeerInfo -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (Vector ConsensusPeerInfo -> NestedVec ConsensusPeerInfo +Hs.coerce @(Hs.Vector Data.Sawtooth.Consensus.ConsensusPeerInfo) + @(HsProtobuf.NestedVec Data.Sawtooth.Consensus.ConsensusPeerInfo) + Vector ConsensusPeerInfo +consensusNotifyEngineActivatedPeers)), + (FieldNumber -> Nested ConsensusPeerInfo -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - (Maybe ConsensusPeerInfo -> Nested ConsensusPeerInfo -forall a b. Coercible a b => a -> b -Hs.coerce @(Hs.Maybe Data.Sawtooth.Consensus.ConsensusPeerInfo) - @(HsProtobuf.Nested Data.Sawtooth.Consensus.ConsensusPeerInfo) - Maybe ConsensusPeerInfo -consensusNotifyEngineActivatedLocalPeerInfo))]) - decodeMessage :: FieldNumber -> Parser RawMessage ConsensusNotifyEngineActivated -decodeMessage _ - = ((Maybe ConsensusBlock +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + (Maybe ConsensusPeerInfo -> Nested ConsensusPeerInfo +Hs.coerce @(Hs.Maybe Data.Sawtooth.Consensus.ConsensusPeerInfo) + @(HsProtobuf.Nested Data.Sawtooth.Consensus.ConsensusPeerInfo) + Maybe ConsensusPeerInfo +consensusNotifyEngineActivatedLocalPeerInfo))]) + decodeMessage :: FieldNumber -> Parser RawMessage ConsensusNotifyEngineActivated +decodeMessage FieldNumber +_ + = ((Maybe ConsensusBlock -> Vector ConsensusPeerInfo -> Maybe ConsensusPeerInfo -> ConsensusNotifyEngineActivated) @@ -7450,7 +7921,7 @@ forall a b. Coercible a b => a -> b -> Maybe ConsensusPeerInfo -> ConsensusNotifyEngineActivated) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Maybe ConsensusBlock +Hs.pure Maybe ConsensusBlock -> Vector ConsensusPeerInfo -> Maybe ConsensusPeerInfo -> ConsensusNotifyEngineActivated @@ -7466,22 +7937,22 @@ forall (f :: * -> *) a. Applicative f => a -> f a (Vector ConsensusPeerInfo -> Maybe ConsensusPeerInfo -> ConsensusNotifyEngineActivated) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (Nested ConsensusBlock) +<*> + (Parser RawMessage (Nested ConsensusBlock) -> Parser RawMessage (Maybe ConsensusBlock) -forall a b. Coercible a b => a -> b -Hs.coerce - @(_ (HsProtobuf.Nested Data.Sawtooth.Consensus.ConsensusBlock)) - @(_ (Hs.Maybe Data.Sawtooth.Consensus.ConsensusBlock)) - (Parser RawField (Nested ConsensusBlock) +Hs.coerce + @(_ (HsProtobuf.Nested Data.Sawtooth.Consensus.ConsensusBlock)) + @(_ (Hs.Maybe Data.Sawtooth.Consensus.ConsensusBlock)) + (Parser RawField (Nested ConsensusBlock) -> FieldNumber -> Parser RawMessage (Nested ConsensusBlock) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (Nested ConsensusBlock) +HsProtobuf.at Parser RawField (Nested ConsensusBlock) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1))) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1))) + Parser RawMessage (Vector ConsensusPeerInfo -> Maybe ConsensusPeerInfo -> ConsensusNotifyEngineActivated) @@ -7490,156 +7961,176 @@ forall a. MessageField a => Parser RawField a RawMessage (Maybe ConsensusPeerInfo -> ConsensusNotifyEngineActivated) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (NestedVec ConsensusPeerInfo) +<*> + (Parser RawMessage (NestedVec ConsensusPeerInfo) -> Parser RawMessage (Vector ConsensusPeerInfo) -forall a b. Coercible a b => a -> b -Hs.coerce - @(_ (HsProtobuf.NestedVec Data.Sawtooth.Consensus.ConsensusPeerInfo)) - @(_ (Hs.Vector Data.Sawtooth.Consensus.ConsensusPeerInfo)) - (Parser RawField (NestedVec ConsensusPeerInfo) +Hs.coerce + @(_ (HsProtobuf.NestedVec Data.Sawtooth.Consensus.ConsensusPeerInfo)) + @(_ (Hs.Vector Data.Sawtooth.Consensus.ConsensusPeerInfo)) + (Parser RawField (NestedVec ConsensusPeerInfo) -> FieldNumber -> Parser RawMessage (NestedVec ConsensusPeerInfo) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (NestedVec ConsensusPeerInfo) +HsProtobuf.at Parser RawField (NestedVec ConsensusPeerInfo) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2))) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2))) + Parser RawMessage (Maybe ConsensusPeerInfo -> ConsensusNotifyEngineActivated) -> Parser RawMessage (Maybe ConsensusPeerInfo) -> Parser RawMessage ConsensusNotifyEngineActivated forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (Nested ConsensusPeerInfo) +<*> + (Parser RawMessage (Nested ConsensusPeerInfo) -> Parser RawMessage (Maybe ConsensusPeerInfo) -forall a b. Coercible a b => a -> b -Hs.coerce - @(_ (HsProtobuf.Nested Data.Sawtooth.Consensus.ConsensusPeerInfo)) - @(_ (Hs.Maybe Data.Sawtooth.Consensus.ConsensusPeerInfo)) - (Parser RawField (Nested ConsensusPeerInfo) +Hs.coerce + @(_ (HsProtobuf.Nested Data.Sawtooth.Consensus.ConsensusPeerInfo)) + @(_ (Hs.Maybe Data.Sawtooth.Consensus.ConsensusPeerInfo)) + (Parser RawField (Nested ConsensusPeerInfo) -> FieldNumber -> Parser RawMessage (Nested ConsensusPeerInfo) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (Nested ConsensusPeerInfo) +HsProtobuf.at Parser RawField (Nested ConsensusPeerInfo) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3))) - dotProto :: Proxy# ConsensusNotifyEngineActivated -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3))) + dotProto :: Proxy# ConsensusNotifyEngineActivated -> [DotProtoField] +dotProto Proxy# ConsensusNotifyEngineActivated +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim - (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "ConsensusBlock"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "chain_head") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim + (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"ConsensusBlock"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"chain_head") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Repeated - (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "ConsensusPeerInfo"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "peers") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Repeated + (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"ConsensusPeerInfo"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"peers") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim - (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "ConsensusPeerInfo"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "local_peer_info") - [] - "")] - -instance HsJSONPB.ToJSONPB ConsensusNotifyEngineActivated where - toJSONPB :: ConsensusNotifyEngineActivated -> Options -> Value -toJSONPB (ConsensusNotifyEngineActivated f1 :: Maybe ConsensusBlock -f1 f2 :: Vector ConsensusPeerInfo -f2 f3 :: Maybe ConsensusPeerInfo -f3) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object - ["chain_head" Text -> Maybe ConsensusBlock -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim + (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"ConsensusPeerInfo"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"local_peer_info") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ConsensusNotifyEngineActivated where + toJSONPB :: ConsensusNotifyEngineActivated -> Options -> Value +toJSONPB (ConsensusNotifyEngineActivated Maybe ConsensusBlock +f1 Vector ConsensusPeerInfo +f2 Maybe ConsensusPeerInfo +f3) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object + [Text +"chain_head" Text -> Maybe ConsensusBlock -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Maybe ConsensusBlock -f1, "peers" Text -> Vector ConsensusPeerInfo -> Options -> [Pair] +.= Maybe ConsensusBlock +f1, Text +"peers" Text -> Vector ConsensusPeerInfo -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector ConsensusPeerInfo -f2, "local_peer_info" Text -> Maybe ConsensusPeerInfo -> Options -> [Pair] +.= Vector ConsensusPeerInfo +f2, Text +"local_peer_info" Text -> Maybe ConsensusPeerInfo -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Maybe ConsensusPeerInfo -f3]) - toEncodingPB :: ConsensusNotifyEngineActivated -> Options -> Encoding -toEncodingPB (ConsensusNotifyEngineActivated f1 :: Maybe ConsensusBlock -f1 f2 :: Vector ConsensusPeerInfo -f2 f3 :: Maybe ConsensusPeerInfo -f3) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs - ["chain_head" Text -> Maybe ConsensusBlock -> Options -> Series +.= Maybe ConsensusPeerInfo +f3]) + toEncodingPB :: ConsensusNotifyEngineActivated -> Options -> Encoding +toEncodingPB (ConsensusNotifyEngineActivated Maybe ConsensusBlock +f1 Vector ConsensusPeerInfo +f2 Maybe ConsensusPeerInfo +f3) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs + [Text +"chain_head" Text -> Maybe ConsensusBlock -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Maybe ConsensusBlock -f1, "peers" Text -> Vector ConsensusPeerInfo -> Options -> Series +.= Maybe ConsensusBlock +f1, Text +"peers" Text -> Vector ConsensusPeerInfo -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector ConsensusPeerInfo -f2, "local_peer_info" Text -> Maybe ConsensusPeerInfo -> Options -> Series +.= Vector ConsensusPeerInfo +f2, Text +"local_peer_info" Text -> Maybe ConsensusPeerInfo -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Maybe ConsensusPeerInfo -f3]) - -instance HsJSONPB.FromJSONPB ConsensusNotifyEngineActivated where - parseJSONPB :: Value -> Parser ConsensusNotifyEngineActivated -parseJSONPB - = (String +.= Maybe ConsensusPeerInfo +f3]) + +instance HsJSONPB.FromJSONPB ConsensusNotifyEngineActivated where + parseJSONPB :: Value -> Parser ConsensusNotifyEngineActivated +parseJSONPB + = (String -> (Object -> Parser ConsensusNotifyEngineActivated) -> Value -> Parser ConsensusNotifyEngineActivated forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ConsensusNotifyEngineActivated" - (\ obj :: Object -obj -> - ((Maybe ConsensusBlock +HsJSONPB.withObject String +"ConsensusNotifyEngineActivated" + (\ Object +obj -> + ((Maybe ConsensusBlock -> Vector ConsensusPeerInfo -> Maybe ConsensusPeerInfo -> ConsensusNotifyEngineActivated) @@ -7649,7 +8140,7 @@ forall a. String -> (Object -> Parser a) -> Value -> Parser a -> Maybe ConsensusPeerInfo -> ConsensusNotifyEngineActivated) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Maybe ConsensusBlock +Hs.pure Maybe ConsensusBlock -> Vector ConsensusPeerInfo -> Maybe ConsensusPeerInfo -> ConsensusNotifyEngineActivated @@ -7663,101 +8154,105 @@ forall (f :: * -> *) a. Applicative f => a -> f a (Vector ConsensusPeerInfo -> Maybe ConsensusPeerInfo -> ConsensusNotifyEngineActivated) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser (Maybe ConsensusBlock) +<*> Object +obj Object -> Text -> Parser (Maybe ConsensusBlock) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "chain_head" - Parser +.: Text +"chain_head" + Parser (Vector ConsensusPeerInfo -> Maybe ConsensusPeerInfo -> ConsensusNotifyEngineActivated) -> Parser (Vector ConsensusPeerInfo) -> Parser (Maybe ConsensusPeerInfo -> ConsensusNotifyEngineActivated) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser (Vector ConsensusPeerInfo) +<*> Object +obj Object -> Text -> Parser (Vector ConsensusPeerInfo) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "peers" - Parser (Maybe ConsensusPeerInfo -> ConsensusNotifyEngineActivated) +.: Text +"peers" + Parser (Maybe ConsensusPeerInfo -> ConsensusNotifyEngineActivated) -> Parser (Maybe ConsensusPeerInfo) -> Parser ConsensusNotifyEngineActivated forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser (Maybe ConsensusPeerInfo) +<*> Object +obj Object -> Text -> Parser (Maybe ConsensusPeerInfo) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "local_peer_info")) - -instance HsJSONPB.ToJSON ConsensusNotifyEngineActivated where - toJSON :: ConsensusNotifyEngineActivated -> Value -toJSON = ConsensusNotifyEngineActivated -> Value +.: Text +"local_peer_info")) + +instance HsJSONPB.ToJSON ConsensusNotifyEngineActivated where + toJSON :: ConsensusNotifyEngineActivated -> Value +toJSON = ConsensusNotifyEngineActivated -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ConsensusNotifyEngineActivated -> Encoding -toEncoding = ConsensusNotifyEngineActivated -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ConsensusNotifyEngineActivated -> Encoding +toEncoding = ConsensusNotifyEngineActivated -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ConsensusNotifyEngineActivated where - parseJSON :: Value -> Parser ConsensusNotifyEngineActivated -parseJSON = Value -> Parser ConsensusNotifyEngineActivated +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ConsensusNotifyEngineActivated where + parseJSON :: Value -> Parser ConsensusNotifyEngineActivated +parseJSON = Value -> Parser ConsensusNotifyEngineActivated forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ConsensusNotifyEngineActivated where - declareNamedSchema :: Proxy ConsensusNotifyEngineActivated +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ConsensusNotifyEngineActivated where + declareNamedSchema :: Proxy ConsensusNotifyEngineActivated -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_chain_head :: Proxy (OverrideToSchema (Maybe ConsensusBlock)) +declareNamedSchema Proxy ConsensusNotifyEngineActivated +_ + = do let declare_chain_head :: Proxy (OverrideToSchema (Maybe ConsensusBlock)) -> Declare (Definitions Schema) (Referenced Schema) -declare_chain_head = Proxy (OverrideToSchema (Maybe ConsensusBlock)) +declare_chain_head = Proxy (OverrideToSchema (Maybe ConsensusBlock)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -consensusNotifyEngineActivatedChainHead <- Proxy (OverrideToSchema (Maybe ConsensusBlock)) +HsJSONPB.declareSchemaRef + Referenced Schema +consensusNotifyEngineActivatedChainHead <- Proxy (OverrideToSchema (Maybe ConsensusBlock)) -> Declare (Definitions Schema) (Referenced Schema) -declare_chain_head - Proxy (OverrideToSchema (Maybe ConsensusBlock)) +declare_chain_head + Proxy (OverrideToSchema (Maybe ConsensusBlock)) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_peers :: Proxy (OverrideToSchema (Vector ConsensusPeerInfo)) +Proxy.Proxy + let declare_peers :: Proxy (OverrideToSchema (Vector ConsensusPeerInfo)) -> Declare (Definitions Schema) (Referenced Schema) -declare_peers = Proxy (OverrideToSchema (Vector ConsensusPeerInfo)) +declare_peers = Proxy (OverrideToSchema (Vector ConsensusPeerInfo)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -consensusNotifyEngineActivatedPeers <- Proxy (OverrideToSchema (Vector ConsensusPeerInfo)) +HsJSONPB.declareSchemaRef + Referenced Schema +consensusNotifyEngineActivatedPeers <- Proxy (OverrideToSchema (Vector ConsensusPeerInfo)) -> Declare (Definitions Schema) (Referenced Schema) -declare_peers Proxy (OverrideToSchema (Vector ConsensusPeerInfo)) +declare_peers Proxy (OverrideToSchema (Vector ConsensusPeerInfo)) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_local_peer_info :: Proxy (OverrideToSchema (Maybe ConsensusPeerInfo)) +Proxy.Proxy + let declare_local_peer_info :: Proxy (OverrideToSchema (Maybe ConsensusPeerInfo)) -> Declare (Definitions Schema) (Referenced Schema) -declare_local_peer_info = Proxy (OverrideToSchema (Maybe ConsensusPeerInfo)) +declare_local_peer_info = Proxy (OverrideToSchema (Maybe ConsensusPeerInfo)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -consensusNotifyEngineActivatedLocalPeerInfo <- Proxy (OverrideToSchema (Maybe ConsensusPeerInfo)) +HsJSONPB.declareSchemaRef + Referenced Schema +consensusNotifyEngineActivatedLocalPeerInfo <- Proxy (OverrideToSchema (Maybe ConsensusPeerInfo)) -> Declare (Definitions Schema) (Referenced Schema) -declare_local_peer_info - Proxy (OverrideToSchema (Maybe ConsensusPeerInfo)) +declare_local_peer_info + Proxy (OverrideToSchema (Maybe ConsensusPeerInfo)) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ConsensusNotifyEngineActivated +Proxy.Proxy + let Proxy ConsensusNotifyEngineActivated _ = (Maybe ConsensusBlock -> Vector ConsensusPeerInfo -> Maybe ConsensusPeerInfo @@ -7768,7 +8263,7 @@ forall k (t :: k). Proxy t -> Maybe ConsensusPeerInfo -> ConsensusNotifyEngineActivated) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Maybe ConsensusBlock +Hs.pure Maybe ConsensusBlock -> Vector ConsensusPeerInfo -> Maybe ConsensusPeerInfo -> ConsensusNotifyEngineActivated @@ -7782,81 +8277,85 @@ forall (f :: * -> *) a. Applicative f => a -> f a (Vector ConsensusPeerInfo -> Maybe ConsensusPeerInfo -> ConsensusNotifyEngineActivated) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema (Maybe ConsensusBlock)) +<*> + (Proxy (OverrideToSchema (Maybe ConsensusBlock)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Maybe ConsensusBlock) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Maybe ConsensusBlock)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Maybe ConsensusBlock)) -> Declare (Definitions Schema) (Referenced Schema) -declare_chain_head - Proxy +declare_chain_head + Proxy (Vector ConsensusPeerInfo -> Maybe ConsensusPeerInfo -> ConsensusNotifyEngineActivated) -> Proxy (Vector ConsensusPeerInfo) -> Proxy (Maybe ConsensusPeerInfo -> ConsensusNotifyEngineActivated) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema (Vector ConsensusPeerInfo)) +<*> (Proxy (OverrideToSchema (Vector ConsensusPeerInfo)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Vector ConsensusPeerInfo) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Vector ConsensusPeerInfo)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Vector ConsensusPeerInfo)) -> Declare (Definitions Schema) (Referenced Schema) -declare_peers - Proxy (Maybe ConsensusPeerInfo -> ConsensusNotifyEngineActivated) +declare_peers + Proxy (Maybe ConsensusPeerInfo -> ConsensusNotifyEngineActivated) -> Proxy (Maybe ConsensusPeerInfo) -> Proxy ConsensusNotifyEngineActivated forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema (Maybe ConsensusPeerInfo)) +<*> (Proxy (OverrideToSchema (Maybe ConsensusPeerInfo)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Maybe ConsensusPeerInfo) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Maybe ConsensusPeerInfo)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Maybe ConsensusPeerInfo)) -> Declare (Definitions Schema) (Referenced Schema) -declare_local_peer_info - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_local_peer_info + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ConsensusNotifyEngineActivated", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ConsensusNotifyEngineActivated", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("chain_head", - Referenced Schema -consensusNotifyEngineActivatedChainHead), - ("peers", - Referenced Schema -consensusNotifyEngineActivatedPeers), - ("local_peer_info", - Referenced Schema -consensusNotifyEngineActivatedLocalPeerInfo)]}}) - -data ConsensusNotifyEngineDeactivated = ConsensusNotifyEngineDeactivated{} - deriving (Int -> ConsensusNotifyEngineDeactivated -> ShowS +HsJSONPB.insOrdFromList + [(Text +"chain_head", + Referenced Schema +consensusNotifyEngineActivatedChainHead), + (Text +"peers", + Referenced Schema +consensusNotifyEngineActivatedPeers), + (Text +"local_peer_info", + Referenced Schema +consensusNotifyEngineActivatedLocalPeerInfo)]}}) + +data ConsensusNotifyEngineDeactivated = ConsensusNotifyEngineDeactivated{} + deriving (Int -> ConsensusNotifyEngineDeactivated -> ShowS [ConsensusNotifyEngineDeactivated] -> ShowS ConsensusNotifyEngineDeactivated -> String (Int -> ConsensusNotifyEngineDeactivated -> ShowS) @@ -7871,7 +8370,7 @@ show :: ConsensusNotifyEngineDeactivated -> String $cshow :: ConsensusNotifyEngineDeactivated -> String showsPrec :: Int -> ConsensusNotifyEngineDeactivated -> ShowS $cshowsPrec :: Int -> ConsensusNotifyEngineDeactivated -> ShowS -Hs.Show, ConsensusNotifyEngineDeactivated +Hs.Show, ConsensusNotifyEngineDeactivated -> ConsensusNotifyEngineDeactivated -> Bool (ConsensusNotifyEngineDeactivated -> ConsensusNotifyEngineDeactivated -> Bool) @@ -7887,10 +8386,10 @@ $c/= :: ConsensusNotifyEngineDeactivated -> ConsensusNotifyEngineDeactivated -> Bool $c== :: ConsensusNotifyEngineDeactivated -> ConsensusNotifyEngineDeactivated -> Bool -Hs.Eq, Eq ConsensusNotifyEngineDeactivated -Eq ConsensusNotifyEngineDeactivated => -(ConsensusNotifyEngineDeactivated - -> ConsensusNotifyEngineDeactivated -> Ordering) +Hs.Eq, Eq ConsensusNotifyEngineDeactivated +Eq ConsensusNotifyEngineDeactivated +-> (ConsensusNotifyEngineDeactivated + -> ConsensusNotifyEngineDeactivated -> Ordering) -> (ConsensusNotifyEngineDeactivated -> ConsensusNotifyEngineDeactivated -> Bool) -> (ConsensusNotifyEngineDeactivated @@ -7914,8 +8413,8 @@ ConsensusNotifyEngineDeactivated -> ConsensusNotifyEngineDeactivated -> ConsensusNotifyEngineDeactivated forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -7956,7 +8455,7 @@ compare :: ConsensusNotifyEngineDeactivated $ccompare :: ConsensusNotifyEngineDeactivated -> ConsensusNotifyEngineDeactivated -> Ordering $cp1Ord :: Eq ConsensusNotifyEngineDeactivated -Hs.Ord, (forall x. +Hs.Ord, (forall x. ConsensusNotifyEngineDeactivated -> Rep ConsensusNotifyEngineDeactivated x) -> (forall x. @@ -7977,117 +8476,125 @@ Rep ConsensusNotifyEngineDeactivated x $cfrom :: forall x. ConsensusNotifyEngineDeactivated -> Rep ConsensusNotifyEngineDeactivated x -Hs.Generic, ConsensusNotifyEngineDeactivated -> () +Hs.Generic, ConsensusNotifyEngineDeactivated -> () (ConsensusNotifyEngineDeactivated -> ()) -> NFData ConsensusNotifyEngineDeactivated forall a. (a -> ()) -> NFData a rnf :: ConsensusNotifyEngineDeactivated -> () $crnf :: ConsensusNotifyEngineDeactivated -> () -Hs.NFData) - -instance HsProtobuf.Named ConsensusNotifyEngineDeactivated where - nameOf :: Proxy# ConsensusNotifyEngineDeactivated -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ConsensusNotifyEngineDeactivated where + nameOf :: Proxy# ConsensusNotifyEngineDeactivated -> string +nameOf Proxy# ConsensusNotifyEngineDeactivated +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ConsensusNotifyEngineDeactivated") - -instance HsProtobuf.HasDefault ConsensusNotifyEngineDeactivated - -instance HsProtobuf.Message ConsensusNotifyEngineDeactivated where - encodeMessage :: FieldNumber -> ConsensusNotifyEngineDeactivated -> MessageBuilder -encodeMessage _ ConsensusNotifyEngineDeactivated{} - = ([MessageBuilder] -> MessageBuilder +Hs.fromString String +"ConsensusNotifyEngineDeactivated") + +instance HsProtobuf.HasDefault ConsensusNotifyEngineDeactivated + +instance HsProtobuf.Message ConsensusNotifyEngineDeactivated where + encodeMessage :: FieldNumber -> ConsensusNotifyEngineDeactivated -> MessageBuilder +encodeMessage FieldNumber +_ ConsensusNotifyEngineDeactivated{} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat []) - decodeMessage :: FieldNumber -> Parser RawMessage ConsensusNotifyEngineDeactivated -decodeMessage _ = (ConsensusNotifyEngineDeactivated +Hs.mconcat []) + decodeMessage :: FieldNumber -> Parser RawMessage ConsensusNotifyEngineDeactivated +decodeMessage FieldNumber +_ = (ConsensusNotifyEngineDeactivated -> Parser RawMessage ConsensusNotifyEngineDeactivated forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusNotifyEngineDeactivated +Hs.pure ConsensusNotifyEngineDeactivated ConsensusNotifyEngineDeactivated) - dotProto :: Proxy# ConsensusNotifyEngineDeactivated -> [DotProtoField] -dotProto _ = [] - -instance HsJSONPB.ToJSONPB ConsensusNotifyEngineDeactivated where - toJSONPB :: ConsensusNotifyEngineDeactivated -> Options -> Value -toJSONPB (ConsensusNotifyEngineDeactivated + dotProto :: Proxy# ConsensusNotifyEngineDeactivated -> [DotProtoField] +dotProto Proxy# ConsensusNotifyEngineDeactivated +_ = [] + +instance HsJSONPB.ToJSONPB ConsensusNotifyEngineDeactivated where + toJSONPB :: ConsensusNotifyEngineDeactivated -> Options -> Value +toJSONPB (ConsensusNotifyEngineDeactivated ConsensusNotifyEngineDeactivated) = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object []) - toEncodingPB :: ConsensusNotifyEngineDeactivated -> Options -> Encoding -toEncodingPB (ConsensusNotifyEngineDeactivated +HsJSONPB.object []) + toEncodingPB :: ConsensusNotifyEngineDeactivated -> Options -> Encoding +toEncodingPB (ConsensusNotifyEngineDeactivated ConsensusNotifyEngineDeactivated) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs []) - -instance HsJSONPB.FromJSONPB ConsensusNotifyEngineDeactivated where - parseJSONPB :: Value -> Parser ConsensusNotifyEngineDeactivated -parseJSONPB - = (String + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs []) + +instance HsJSONPB.FromJSONPB ConsensusNotifyEngineDeactivated where + parseJSONPB :: Value -> Parser ConsensusNotifyEngineDeactivated +parseJSONPB + = (String -> (Object -> Parser ConsensusNotifyEngineDeactivated) -> Value -> Parser ConsensusNotifyEngineDeactivated forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ConsensusNotifyEngineDeactivated" - (\ obj :: Object -obj -> (ConsensusNotifyEngineDeactivated +HsJSONPB.withObject String +"ConsensusNotifyEngineDeactivated" + (\ Object +obj -> (ConsensusNotifyEngineDeactivated -> Parser ConsensusNotifyEngineDeactivated forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusNotifyEngineDeactivated +Hs.pure ConsensusNotifyEngineDeactivated ConsensusNotifyEngineDeactivated))) - -instance HsJSONPB.ToJSON ConsensusNotifyEngineDeactivated where - toJSON :: ConsensusNotifyEngineDeactivated -> Value -toJSON = ConsensusNotifyEngineDeactivated -> Value + +instance HsJSONPB.ToJSON ConsensusNotifyEngineDeactivated where + toJSON :: ConsensusNotifyEngineDeactivated -> Value +toJSON = ConsensusNotifyEngineDeactivated -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ConsensusNotifyEngineDeactivated -> Encoding -toEncoding = ConsensusNotifyEngineDeactivated -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ConsensusNotifyEngineDeactivated -> Encoding +toEncoding = ConsensusNotifyEngineDeactivated -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ConsensusNotifyEngineDeactivated where - parseJSON :: Value -> Parser ConsensusNotifyEngineDeactivated -parseJSON = Value -> Parser ConsensusNotifyEngineDeactivated +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ConsensusNotifyEngineDeactivated where + parseJSON :: Value -> Parser ConsensusNotifyEngineDeactivated +parseJSON = Value -> Parser ConsensusNotifyEngineDeactivated forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ConsensusNotifyEngineDeactivated where - declareNamedSchema :: Proxy ConsensusNotifyEngineDeactivated +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ConsensusNotifyEngineDeactivated where + declareNamedSchema :: Proxy ConsensusNotifyEngineDeactivated -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do NamedSchema -> Declare (Definitions Schema) NamedSchema +declareNamedSchema Proxy ConsensusNotifyEngineDeactivated +_ + = do NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ConsensusNotifyEngineDeactivated", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ConsensusNotifyEngineDeactivated", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList []}}) - -data ConsensusNotifyAck = ConsensusNotifyAck{} - deriving (Int -> ConsensusNotifyAck -> ShowS +HsJSONPB.insOrdFromList []}}) + +data ConsensusNotifyAck = ConsensusNotifyAck{} + deriving (Int -> ConsensusNotifyAck -> ShowS [ConsensusNotifyAck] -> ShowS ConsensusNotifyAck -> String (Int -> ConsensusNotifyAck -> ShowS) @@ -8102,7 +8609,7 @@ show :: ConsensusNotifyAck -> String $cshow :: ConsensusNotifyAck -> String showsPrec :: Int -> ConsensusNotifyAck -> ShowS $cshowsPrec :: Int -> ConsensusNotifyAck -> ShowS -Hs.Show, ConsensusNotifyAck -> ConsensusNotifyAck -> Bool +Hs.Show, ConsensusNotifyAck -> ConsensusNotifyAck -> Bool (ConsensusNotifyAck -> ConsensusNotifyAck -> Bool) -> (ConsensusNotifyAck -> ConsensusNotifyAck -> Bool) -> Eq ConsensusNotifyAck @@ -8111,9 +8618,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: ConsensusNotifyAck -> ConsensusNotifyAck -> Bool == :: ConsensusNotifyAck -> ConsensusNotifyAck -> Bool $c== :: ConsensusNotifyAck -> ConsensusNotifyAck -> Bool -Hs.Eq, Eq ConsensusNotifyAck -Eq ConsensusNotifyAck => -(ConsensusNotifyAck -> ConsensusNotifyAck -> Ordering) +Hs.Eq, Eq ConsensusNotifyAck +Eq ConsensusNotifyAck +-> (ConsensusNotifyAck -> ConsensusNotifyAck -> Ordering) -> (ConsensusNotifyAck -> ConsensusNotifyAck -> Bool) -> (ConsensusNotifyAck -> ConsensusNotifyAck -> Bool) -> (ConsensusNotifyAck -> ConsensusNotifyAck -> Bool) @@ -8125,8 +8632,8 @@ ConsensusNotifyAck -> ConsensusNotifyAck -> Bool ConsensusNotifyAck -> ConsensusNotifyAck -> Ordering ConsensusNotifyAck -> ConsensusNotifyAck -> ConsensusNotifyAck forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -8149,7 +8656,7 @@ $c< :: ConsensusNotifyAck -> ConsensusNotifyAck -> Bool compare :: ConsensusNotifyAck -> ConsensusNotifyAck -> Ordering $ccompare :: ConsensusNotifyAck -> ConsensusNotifyAck -> Ordering $cp1Ord :: Eq ConsensusNotifyAck -Hs.Ord, (forall x. ConsensusNotifyAck -> Rep ConsensusNotifyAck x) +Hs.Ord, (forall x. ConsensusNotifyAck -> Rep ConsensusNotifyAck x) -> (forall x. Rep ConsensusNotifyAck x -> ConsensusNotifyAck) -> Generic ConsensusNotifyAck forall x. Rep ConsensusNotifyAck x -> ConsensusNotifyAck @@ -8158,119 +8665,127 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep ConsensusNotifyAck x -> ConsensusNotifyAck $cfrom :: forall x. ConsensusNotifyAck -> Rep ConsensusNotifyAck x -Hs.Generic, ConsensusNotifyAck -> () +Hs.Generic, ConsensusNotifyAck -> () (ConsensusNotifyAck -> ()) -> NFData ConsensusNotifyAck forall a. (a -> ()) -> NFData a rnf :: ConsensusNotifyAck -> () $crnf :: ConsensusNotifyAck -> () -Hs.NFData) - -instance HsProtobuf.Named ConsensusNotifyAck where - nameOf :: Proxy# ConsensusNotifyAck -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ConsensusNotifyAck where + nameOf :: Proxy# ConsensusNotifyAck -> string +nameOf Proxy# ConsensusNotifyAck +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ConsensusNotifyAck") - -instance HsProtobuf.HasDefault ConsensusNotifyAck - -instance HsProtobuf.Message ConsensusNotifyAck where - encodeMessage :: FieldNumber -> ConsensusNotifyAck -> MessageBuilder -encodeMessage _ ConsensusNotifyAck{} = ([MessageBuilder] -> MessageBuilder +Hs.fromString String +"ConsensusNotifyAck") + +instance HsProtobuf.HasDefault ConsensusNotifyAck + +instance HsProtobuf.Message ConsensusNotifyAck where + encodeMessage :: FieldNumber -> ConsensusNotifyAck -> MessageBuilder +encodeMessage FieldNumber +_ ConsensusNotifyAck{} = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat []) - decodeMessage :: FieldNumber -> Parser RawMessage ConsensusNotifyAck -decodeMessage _ = (ConsensusNotifyAck -> Parser RawMessage ConsensusNotifyAck +Hs.mconcat []) + decodeMessage :: FieldNumber -> Parser RawMessage ConsensusNotifyAck +decodeMessage FieldNumber +_ = (ConsensusNotifyAck -> Parser RawMessage ConsensusNotifyAck forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusNotifyAck +Hs.pure ConsensusNotifyAck ConsensusNotifyAck) - dotProto :: Proxy# ConsensusNotifyAck -> [DotProtoField] -dotProto _ = [] - -instance HsJSONPB.ToJSONPB ConsensusNotifyAck where - toJSONPB :: ConsensusNotifyAck -> Options -> Value -toJSONPB (ConsensusNotifyAck + dotProto :: Proxy# ConsensusNotifyAck -> [DotProtoField] +dotProto Proxy# ConsensusNotifyAck +_ = [] + +instance HsJSONPB.ToJSONPB ConsensusNotifyAck where + toJSONPB :: ConsensusNotifyAck -> Options -> Value +toJSONPB (ConsensusNotifyAck ConsensusNotifyAck) = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object []) - toEncodingPB :: ConsensusNotifyAck -> Options -> Encoding -toEncodingPB (ConsensusNotifyAck +HsJSONPB.object []) + toEncodingPB :: ConsensusNotifyAck -> Options -> Encoding +toEncodingPB (ConsensusNotifyAck ConsensusNotifyAck) = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs []) - -instance HsJSONPB.FromJSONPB ConsensusNotifyAck where - parseJSONPB :: Value -> Parser ConsensusNotifyAck -parseJSONPB - = (String +HsJSONPB.pairs []) + +instance HsJSONPB.FromJSONPB ConsensusNotifyAck where + parseJSONPB :: Value -> Parser ConsensusNotifyAck +parseJSONPB + = (String -> (Object -> Parser ConsensusNotifyAck) -> Value -> Parser ConsensusNotifyAck forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ConsensusNotifyAck" - (\ obj :: Object -obj -> (ConsensusNotifyAck -> Parser ConsensusNotifyAck +HsJSONPB.withObject String +"ConsensusNotifyAck" + (\ Object +obj -> (ConsensusNotifyAck -> Parser ConsensusNotifyAck forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusNotifyAck +Hs.pure ConsensusNotifyAck ConsensusNotifyAck))) - -instance HsJSONPB.ToJSON ConsensusNotifyAck where - toJSON :: ConsensusNotifyAck -> Value -toJSON = ConsensusNotifyAck -> Value + +instance HsJSONPB.ToJSON ConsensusNotifyAck where + toJSON :: ConsensusNotifyAck -> Value +toJSON = ConsensusNotifyAck -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ConsensusNotifyAck -> Encoding -toEncoding = ConsensusNotifyAck -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ConsensusNotifyAck -> Encoding +toEncoding = ConsensusNotifyAck -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ConsensusNotifyAck where - parseJSON :: Value -> Parser ConsensusNotifyAck -parseJSON = Value -> Parser ConsensusNotifyAck +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ConsensusNotifyAck where + parseJSON :: Value -> Parser ConsensusNotifyAck +parseJSON = Value -> Parser ConsensusNotifyAck forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ConsensusNotifyAck where - declareNamedSchema :: Proxy ConsensusNotifyAck +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ConsensusNotifyAck where + declareNamedSchema :: Proxy ConsensusNotifyAck -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do NamedSchema -> Declare (Definitions Schema) NamedSchema +declareNamedSchema Proxy ConsensusNotifyAck +_ + = do NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ConsensusNotifyAck", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ConsensusNotifyAck", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList []}}) - -data ConsensusSendToRequest = ConsensusSendToRequest{ConsensusSendToRequest -> ByteString +HsJSONPB.insOrdFromList []}}) + +data ConsensusSendToRequest = ConsensusSendToRequest{ConsensusSendToRequest -> ByteString consensusSendToRequestContent - :: Hs.ByteString, - ConsensusSendToRequest -> Text -consensusSendToRequestMessageType :: Hs.Text, - ConsensusSendToRequest -> ByteString + :: Hs.ByteString, + ConsensusSendToRequest -> Text +consensusSendToRequestMessageType :: Hs.Text, + ConsensusSendToRequest -> ByteString consensusSendToRequestReceiverId :: - Hs.ByteString} - deriving (Int -> ConsensusSendToRequest -> ShowS + Hs.ByteString} + deriving (Int -> ConsensusSendToRequest -> ShowS [ConsensusSendToRequest] -> ShowS ConsensusSendToRequest -> String (Int -> ConsensusSendToRequest -> ShowS) @@ -8285,7 +8800,7 @@ show :: ConsensusSendToRequest -> String $cshow :: ConsensusSendToRequest -> String showsPrec :: Int -> ConsensusSendToRequest -> ShowS $cshowsPrec :: Int -> ConsensusSendToRequest -> ShowS -Hs.Show, ConsensusSendToRequest -> ConsensusSendToRequest -> Bool +Hs.Show, ConsensusSendToRequest -> ConsensusSendToRequest -> Bool (ConsensusSendToRequest -> ConsensusSendToRequest -> Bool) -> (ConsensusSendToRequest -> ConsensusSendToRequest -> Bool) -> Eq ConsensusSendToRequest @@ -8294,9 +8809,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: ConsensusSendToRequest -> ConsensusSendToRequest -> Bool == :: ConsensusSendToRequest -> ConsensusSendToRequest -> Bool $c== :: ConsensusSendToRequest -> ConsensusSendToRequest -> Bool -Hs.Eq, Eq ConsensusSendToRequest -Eq ConsensusSendToRequest => -(ConsensusSendToRequest -> ConsensusSendToRequest -> Ordering) +Hs.Eq, Eq ConsensusSendToRequest +Eq ConsensusSendToRequest +-> (ConsensusSendToRequest -> ConsensusSendToRequest -> Ordering) -> (ConsensusSendToRequest -> ConsensusSendToRequest -> Bool) -> (ConsensusSendToRequest -> ConsensusSendToRequest -> Bool) -> (ConsensusSendToRequest -> ConsensusSendToRequest -> Bool) @@ -8311,8 +8826,8 @@ ConsensusSendToRequest -> ConsensusSendToRequest -> Ordering ConsensusSendToRequest -> ConsensusSendToRequest -> ConsensusSendToRequest forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -8339,7 +8854,7 @@ $c< :: ConsensusSendToRequest -> ConsensusSendToRequest -> Bool compare :: ConsensusSendToRequest -> ConsensusSendToRequest -> Ordering $ccompare :: ConsensusSendToRequest -> ConsensusSendToRequest -> Ordering $cp1Ord :: Eq ConsensusSendToRequest -Hs.Ord, (forall x. ConsensusSendToRequest -> Rep ConsensusSendToRequest x) +Hs.Ord, (forall x. ConsensusSendToRequest -> Rep ConsensusSendToRequest x) -> (forall x. Rep ConsensusSendToRequest x -> ConsensusSendToRequest) -> Generic ConsensusSendToRequest @@ -8349,393 +8864,428 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep ConsensusSendToRequest x -> ConsensusSendToRequest $cfrom :: forall x. ConsensusSendToRequest -> Rep ConsensusSendToRequest x -Hs.Generic, ConsensusSendToRequest -> () +Hs.Generic, ConsensusSendToRequest -> () (ConsensusSendToRequest -> ()) -> NFData ConsensusSendToRequest forall a. (a -> ()) -> NFData a rnf :: ConsensusSendToRequest -> () $crnf :: ConsensusSendToRequest -> () -Hs.NFData) - -instance HsProtobuf.Named ConsensusSendToRequest where - nameOf :: Proxy# ConsensusSendToRequest -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ConsensusSendToRequest where + nameOf :: Proxy# ConsensusSendToRequest -> string +nameOf Proxy# ConsensusSendToRequest +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ConsensusSendToRequest") - -instance HsProtobuf.HasDefault ConsensusSendToRequest - -instance HsProtobuf.Message ConsensusSendToRequest where - encodeMessage :: FieldNumber -> ConsensusSendToRequest -> MessageBuilder -encodeMessage _ - ConsensusSendToRequest{consensusSendToRequestContent :: ConsensusSendToRequest -> ByteString +Hs.fromString String +"ConsensusSendToRequest") + +instance HsProtobuf.HasDefault ConsensusSendToRequest + +instance HsProtobuf.Message ConsensusSendToRequest where + encodeMessage :: FieldNumber -> ConsensusSendToRequest -> MessageBuilder +encodeMessage FieldNumber +_ + ConsensusSendToRequest{consensusSendToRequestContent :: ConsensusSendToRequest -> ByteString consensusSendToRequestContent = - ByteString -consensusSendToRequestContent, - consensusSendToRequestMessageType :: ConsensusSendToRequest -> Text + ByteString +consensusSendToRequestContent, + consensusSendToRequestMessageType :: ConsensusSendToRequest -> Text consensusSendToRequestMessageType = - Text -consensusSendToRequestMessageType, - consensusSendToRequestReceiverId :: ConsensusSendToRequest -> ByteString + Text +consensusSendToRequestMessageType, + consensusSendToRequestReceiverId :: ConsensusSendToRequest -> ByteString consensusSendToRequestReceiverId = - ByteString -consensusSendToRequestReceiverId} - = ([MessageBuilder] -> MessageBuilder + ByteString +consensusSendToRequestReceiverId} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> ByteString -> MessageBuilder +Hs.mconcat + [(FieldNumber -> ByteString -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - ByteString -consensusSendToRequestContent), - (FieldNumber -> Text -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + ByteString +consensusSendToRequestContent), + (FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - Text -consensusSendToRequestMessageType), - (FieldNumber -> ByteString -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + Text +consensusSendToRequestMessageType), + (FieldNumber -> ByteString -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - ByteString -consensusSendToRequestReceiverId)]) - decodeMessage :: FieldNumber -> Parser RawMessage ConsensusSendToRequest -decodeMessage _ - = ((ByteString -> Text -> ByteString -> ConsensusSendToRequest) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + ByteString +consensusSendToRequestReceiverId)]) + decodeMessage :: FieldNumber -> Parser RawMessage ConsensusSendToRequest +decodeMessage FieldNumber +_ + = ((ByteString -> Text -> ByteString -> ConsensusSendToRequest) -> Parser RawMessage (ByteString -> Text -> ByteString -> ConsensusSendToRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString -> Text -> ByteString -> ConsensusSendToRequest +Hs.pure ByteString -> Text -> ByteString -> ConsensusSendToRequest ConsensusSendToRequest) Parser RawMessage (ByteString -> Text -> ByteString -> ConsensusSendToRequest) -> Parser RawMessage ByteString -> Parser RawMessage (Text -> ByteString -> ConsensusSendToRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField ByteString +<*> + (Parser RawField ByteString -> FieldNumber -> Parser RawMessage ByteString forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField ByteString +HsProtobuf.at Parser RawField ByteString forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser RawMessage (Text -> ByteString -> ConsensusSendToRequest) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (Text -> ByteString -> ConsensusSendToRequest) -> Parser RawMessage Text -> Parser RawMessage (ByteString -> ConsensusSendToRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3)) - Parser RawMessage (ByteString -> ConsensusSendToRequest) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3)) + Parser RawMessage (ByteString -> ConsensusSendToRequest) -> Parser RawMessage ByteString -> Parser RawMessage ConsensusSendToRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField ByteString +<*> + (Parser RawField ByteString -> FieldNumber -> Parser RawMessage ByteString forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField ByteString +HsProtobuf.at Parser RawField ByteString forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2)) - dotProto :: Proxy# ConsensusSendToRequest -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2)) + dotProto :: Proxy# ConsensusSendToRequest -> [DotProtoField] +dotProto Proxy# ConsensusSendToRequest +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.Bytes) - (String -> DotProtoIdentifier -HsProtobuf.Single "content") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.Bytes) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"content") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "message_type") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"message_type") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.Bytes) - (String -> DotProtoIdentifier -HsProtobuf.Single "receiver_id") - [] - "")] - -instance HsJSONPB.ToJSONPB ConsensusSendToRequest where - toJSONPB :: ConsensusSendToRequest -> Options -> Value -toJSONPB (ConsensusSendToRequest f1 :: ByteString -f1 f3 :: Text -f3 f2 :: ByteString -f2) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object - ["content" Text -> ByteString -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.Bytes) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"receiver_id") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ConsensusSendToRequest where + toJSONPB :: ConsensusSendToRequest -> Options -> Value +toJSONPB (ConsensusSendToRequest ByteString +f1 Text +f3 ByteString +f2) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object + [Text +"content" Text -> ByteString -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f1, "message_type" Text -> Text -> Options -> [Pair] +.= ByteString +f1, Text +"message_type" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f3, "receiver_id" Text -> ByteString -> Options -> [Pair] +.= Text +f3, Text +"receiver_id" Text -> ByteString -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f2]) - toEncodingPB :: ConsensusSendToRequest -> Options -> Encoding -toEncodingPB (ConsensusSendToRequest f1 :: ByteString -f1 f3 :: Text -f3 f2 :: ByteString -f2) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs - ["content" Text -> ByteString -> Options -> Series +.= ByteString +f2]) + toEncodingPB :: ConsensusSendToRequest -> Options -> Encoding +toEncodingPB (ConsensusSendToRequest ByteString +f1 Text +f3 ByteString +f2) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs + [Text +"content" Text -> ByteString -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f1, "message_type" Text -> Text -> Options -> Series +.= ByteString +f1, Text +"message_type" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f3, "receiver_id" Text -> ByteString -> Options -> Series +.= Text +f3, Text +"receiver_id" Text -> ByteString -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f2]) - -instance HsJSONPB.FromJSONPB ConsensusSendToRequest where - parseJSONPB :: Value -> Parser ConsensusSendToRequest -parseJSONPB - = (String +.= ByteString +f2]) + +instance HsJSONPB.FromJSONPB ConsensusSendToRequest where + parseJSONPB :: Value -> Parser ConsensusSendToRequest +parseJSONPB + = (String -> (Object -> Parser ConsensusSendToRequest) -> Value -> Parser ConsensusSendToRequest forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ConsensusSendToRequest" - (\ obj :: Object -obj -> - ((ByteString -> Text -> ByteString -> ConsensusSendToRequest) +HsJSONPB.withObject String +"ConsensusSendToRequest" + (\ Object +obj -> + ((ByteString -> Text -> ByteString -> ConsensusSendToRequest) -> Parser (ByteString -> Text -> ByteString -> ConsensusSendToRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString -> Text -> ByteString -> ConsensusSendToRequest +Hs.pure ByteString -> Text -> ByteString -> ConsensusSendToRequest ConsensusSendToRequest) Parser (ByteString -> Text -> ByteString -> ConsensusSendToRequest) -> Parser ByteString -> Parser (Text -> ByteString -> ConsensusSendToRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser ByteString +<*> Object +obj Object -> Text -> Parser ByteString forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "content" Parser (Text -> ByteString -> ConsensusSendToRequest) +.: Text +"content" Parser (Text -> ByteString -> ConsensusSendToRequest) -> Parser Text -> Parser (ByteString -> ConsensusSendToRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser Text +<*> + Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "message_type" - Parser (ByteString -> ConsensusSendToRequest) +.: Text +"message_type" + Parser (ByteString -> ConsensusSendToRequest) -> Parser ByteString -> Parser ConsensusSendToRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser ByteString +<*> Object +obj Object -> Text -> Parser ByteString forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "receiver_id")) - -instance HsJSONPB.ToJSON ConsensusSendToRequest where - toJSON :: ConsensusSendToRequest -> Value -toJSON = ConsensusSendToRequest -> Value +.: Text +"receiver_id")) + +instance HsJSONPB.ToJSON ConsensusSendToRequest where + toJSON :: ConsensusSendToRequest -> Value +toJSON = ConsensusSendToRequest -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ConsensusSendToRequest -> Encoding -toEncoding = ConsensusSendToRequest -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ConsensusSendToRequest -> Encoding +toEncoding = ConsensusSendToRequest -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ConsensusSendToRequest where - parseJSON :: Value -> Parser ConsensusSendToRequest -parseJSON = Value -> Parser ConsensusSendToRequest +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ConsensusSendToRequest where + parseJSON :: Value -> Parser ConsensusSendToRequest +parseJSON = Value -> Parser ConsensusSendToRequest forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ConsensusSendToRequest where - declareNamedSchema :: Proxy ConsensusSendToRequest +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ConsensusSendToRequest where + declareNamedSchema :: Proxy ConsensusSendToRequest -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_content :: Proxy (OverrideToSchema ByteString) +declareNamedSchema Proxy ConsensusSendToRequest +_ + = do let declare_content :: Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_content = Proxy (OverrideToSchema ByteString) +declare_content = Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -consensusSendToRequestContent <- Proxy (OverrideToSchema ByteString) +HsJSONPB.declareSchemaRef + Referenced Schema +consensusSendToRequestContent <- Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_content Proxy (OverrideToSchema ByteString) +declare_content Proxy (OverrideToSchema ByteString) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_message_type :: Proxy (OverrideToSchema Text) +Proxy.Proxy + let declare_message_type :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_message_type = Proxy (OverrideToSchema Text) +declare_message_type = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -consensusSendToRequestMessageType <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +consensusSendToRequestMessageType <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_message_type - Proxy (OverrideToSchema Text) +declare_message_type + Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_receiver_id :: Proxy (OverrideToSchema ByteString) +Proxy.Proxy + let declare_receiver_id :: Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_receiver_id = Proxy (OverrideToSchema ByteString) +declare_receiver_id = Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -consensusSendToRequestReceiverId <- Proxy (OverrideToSchema ByteString) +HsJSONPB.declareSchemaRef + Referenced Schema +consensusSendToRequestReceiverId <- Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_receiver_id Proxy (OverrideToSchema ByteString) +declare_receiver_id Proxy (OverrideToSchema ByteString) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ConsensusSendToRequest +Proxy.Proxy + let Proxy ConsensusSendToRequest _ = (ByteString -> Text -> ByteString -> ConsensusSendToRequest) -> Proxy (ByteString -> Text -> ByteString -> ConsensusSendToRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString -> Text -> ByteString -> ConsensusSendToRequest +Hs.pure ByteString -> Text -> ByteString -> ConsensusSendToRequest ConsensusSendToRequest Proxy (ByteString -> Text -> ByteString -> ConsensusSendToRequest) -> Proxy ByteString -> Proxy (Text -> ByteString -> ConsensusSendToRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema ByteString) +<*> + (Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy ByteString forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) +HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_content - Proxy (Text -> ByteString -> ConsensusSendToRequest) +declare_content + Proxy (Text -> ByteString -> ConsensusSendToRequest) -> Proxy Text -> Proxy (ByteString -> ConsensusSendToRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema Text) +<*> (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_message_type - Proxy (ByteString -> ConsensusSendToRequest) +declare_message_type + Proxy (ByteString -> ConsensusSendToRequest) -> Proxy ByteString -> Proxy ConsensusSendToRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema ByteString) +<*> (Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy ByteString forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) +HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_receiver_id - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_receiver_id + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ConsensusSendToRequest", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ConsensusSendToRequest", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("content", Referenced Schema -consensusSendToRequestContent), - ("message_type", - Referenced Schema -consensusSendToRequestMessageType), - ("receiver_id", - Referenced Schema -consensusSendToRequestReceiverId)]}}) - -newtype ConsensusSendToResponse = ConsensusSendToResponse{ConsensusSendToResponse +HsJSONPB.insOrdFromList + [(Text +"content", Referenced Schema +consensusSendToRequestContent), + (Text +"message_type", + Referenced Schema +consensusSendToRequestMessageType), + (Text +"receiver_id", + Referenced Schema +consensusSendToRequestReceiverId)]}}) + +newtype ConsensusSendToResponse = ConsensusSendToResponse{ConsensusSendToResponse -> Enumerated ConsensusSendToResponse_Status consensusSendToResponseStatus - :: - HsProtobuf.Enumerated - Data.Sawtooth.Consensus.ConsensusSendToResponse_Status} - deriving (Int -> ConsensusSendToResponse -> ShowS + :: + HsProtobuf.Enumerated + Data.Sawtooth.Consensus.ConsensusSendToResponse_Status} + deriving (Int -> ConsensusSendToResponse -> ShowS [ConsensusSendToResponse] -> ShowS ConsensusSendToResponse -> String (Int -> ConsensusSendToResponse -> ShowS) @@ -8750,7 +9300,7 @@ show :: ConsensusSendToResponse -> String $cshow :: ConsensusSendToResponse -> String showsPrec :: Int -> ConsensusSendToResponse -> ShowS $cshowsPrec :: Int -> ConsensusSendToResponse -> ShowS -Hs.Show, ConsensusSendToResponse -> ConsensusSendToResponse -> Bool +Hs.Show, ConsensusSendToResponse -> ConsensusSendToResponse -> Bool (ConsensusSendToResponse -> ConsensusSendToResponse -> Bool) -> (ConsensusSendToResponse -> ConsensusSendToResponse -> Bool) -> Eq ConsensusSendToResponse @@ -8759,9 +9309,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: ConsensusSendToResponse -> ConsensusSendToResponse -> Bool == :: ConsensusSendToResponse -> ConsensusSendToResponse -> Bool $c== :: ConsensusSendToResponse -> ConsensusSendToResponse -> Bool -Hs.Eq, Eq ConsensusSendToResponse -Eq ConsensusSendToResponse => -(ConsensusSendToResponse -> ConsensusSendToResponse -> Ordering) +Hs.Eq, Eq ConsensusSendToResponse +Eq ConsensusSendToResponse +-> (ConsensusSendToResponse -> ConsensusSendToResponse -> Ordering) -> (ConsensusSendToResponse -> ConsensusSendToResponse -> Bool) -> (ConsensusSendToResponse -> ConsensusSendToResponse -> Bool) -> (ConsensusSendToResponse -> ConsensusSendToResponse -> Bool) @@ -8776,8 +9326,8 @@ ConsensusSendToResponse -> ConsensusSendToResponse -> Ordering ConsensusSendToResponse -> ConsensusSendToResponse -> ConsensusSendToResponse forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -8804,7 +9354,7 @@ $c< :: ConsensusSendToResponse -> ConsensusSendToResponse -> Bool compare :: ConsensusSendToResponse -> ConsensusSendToResponse -> Ordering $ccompare :: ConsensusSendToResponse -> ConsensusSendToResponse -> Ordering $cp1Ord :: Eq ConsensusSendToResponse -Hs.Ord, (forall x. +Hs.Ord, (forall x. ConsensusSendToResponse -> Rep ConsensusSendToResponse x) -> (forall x. Rep ConsensusSendToResponse x -> ConsensusSendToResponse) @@ -8815,49 +9365,54 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep ConsensusSendToResponse x -> ConsensusSendToResponse $cfrom :: forall x. ConsensusSendToResponse -> Rep ConsensusSendToResponse x -Hs.Generic, ConsensusSendToResponse -> () +Hs.Generic, ConsensusSendToResponse -> () (ConsensusSendToResponse -> ()) -> NFData ConsensusSendToResponse forall a. (a -> ()) -> NFData a rnf :: ConsensusSendToResponse -> () $crnf :: ConsensusSendToResponse -> () -Hs.NFData) - -instance HsProtobuf.Named ConsensusSendToResponse where - nameOf :: Proxy# ConsensusSendToResponse -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ConsensusSendToResponse where + nameOf :: Proxy# ConsensusSendToResponse -> string +nameOf Proxy# ConsensusSendToResponse +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ConsensusSendToResponse") - -instance HsProtobuf.HasDefault ConsensusSendToResponse - -instance HsProtobuf.Message ConsensusSendToResponse where - encodeMessage :: FieldNumber -> ConsensusSendToResponse -> MessageBuilder -encodeMessage _ - ConsensusSendToResponse{consensusSendToResponseStatus :: ConsensusSendToResponse +Hs.fromString String +"ConsensusSendToResponse") + +instance HsProtobuf.HasDefault ConsensusSendToResponse + +instance HsProtobuf.Message ConsensusSendToResponse where + encodeMessage :: FieldNumber -> ConsensusSendToResponse -> MessageBuilder +encodeMessage FieldNumber +_ + ConsensusSendToResponse{consensusSendToResponseStatus :: ConsensusSendToResponse -> Enumerated ConsensusSendToResponse_Status consensusSendToResponseStatus = - Enumerated ConsensusSendToResponse_Status -consensusSendToResponseStatus} - = ([MessageBuilder] -> MessageBuilder + Enumerated ConsensusSendToResponse_Status +consensusSendToResponseStatus} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber +Hs.mconcat + [(FieldNumber -> Enumerated ConsensusSendToResponse_Status -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Enumerated ConsensusSendToResponse_Status -consensusSendToResponseStatus)]) - decodeMessage :: FieldNumber -> Parser RawMessage ConsensusSendToResponse -decodeMessage _ - = ((Enumerated ConsensusSendToResponse_Status +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Enumerated ConsensusSendToResponse_Status +consensusSendToResponseStatus)]) + decodeMessage :: FieldNumber -> Parser RawMessage ConsensusSendToResponse +decodeMessage FieldNumber +_ + = ((Enumerated ConsensusSendToResponse_Status -> ConsensusSendToResponse) -> Parser RawMessage (Enumerated ConsensusSendToResponse_Status -> ConsensusSendToResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ConsensusSendToResponse_Status +Hs.pure Enumerated ConsensusSendToResponse_Status -> ConsensusSendToResponse ConsensusSendToResponse) Parser RawMessage @@ -8866,76 +9421,85 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Parser RawMessage (Enumerated ConsensusSendToResponse_Status) -> Parser RawMessage ConsensusSendToResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField (Enumerated ConsensusSendToResponse_Status) +<*> + (Parser RawField (Enumerated ConsensusSendToResponse_Status) -> FieldNumber -> Parser RawMessage (Enumerated ConsensusSendToResponse_Status) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (Enumerated ConsensusSendToResponse_Status) +HsProtobuf.at Parser RawField (Enumerated ConsensusSendToResponse_Status) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - dotProto :: Proxy# ConsensusSendToResponse -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + dotProto :: Proxy# ConsensusSendToResponse -> [DotProtoField] +dotProto Proxy# ConsensusSendToResponse +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "Status"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "status") - [] - "")] - -instance HsJSONPB.ToJSONPB ConsensusSendToResponse where - toJSONPB :: ConsensusSendToResponse -> Options -> Value -toJSONPB (ConsensusSendToResponse f1 :: Enumerated ConsensusSendToResponse_Status -f1) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["status" Text +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"Status"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"status") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ConsensusSendToResponse where + toJSONPB :: ConsensusSendToResponse -> Options -> Value +toJSONPB (ConsensusSendToResponse Enumerated ConsensusSendToResponse_Status +f1) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"status" Text -> Enumerated ConsensusSendToResponse_Status -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated ConsensusSendToResponse_Status -f1]) - toEncodingPB :: ConsensusSendToResponse -> Options -> Encoding -toEncodingPB (ConsensusSendToResponse f1 :: Enumerated ConsensusSendToResponse_Status -f1) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["status" Text +.= Enumerated ConsensusSendToResponse_Status +f1]) + toEncodingPB :: ConsensusSendToResponse -> Options -> Encoding +toEncodingPB (ConsensusSendToResponse Enumerated ConsensusSendToResponse_Status +f1) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"status" Text -> Enumerated ConsensusSendToResponse_Status -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated ConsensusSendToResponse_Status -f1]) - -instance HsJSONPB.FromJSONPB ConsensusSendToResponse where - parseJSONPB :: Value -> Parser ConsensusSendToResponse -parseJSONPB - = (String +.= Enumerated ConsensusSendToResponse_Status +f1]) + +instance HsJSONPB.FromJSONPB ConsensusSendToResponse where + parseJSONPB :: Value -> Parser ConsensusSendToResponse +parseJSONPB + = (String -> (Object -> Parser ConsensusSendToResponse) -> Value -> Parser ConsensusSendToResponse forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ConsensusSendToResponse" - (\ obj :: Object -obj -> ((Enumerated ConsensusSendToResponse_Status +HsJSONPB.withObject String +"ConsensusSendToResponse" + (\ Object +obj -> ((Enumerated ConsensusSendToResponse_Status -> ConsensusSendToResponse) -> Parser (Enumerated ConsensusSendToResponse_Status -> ConsensusSendToResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ConsensusSendToResponse_Status +Hs.pure Enumerated ConsensusSendToResponse_Status -> ConsensusSendToResponse ConsensusSendToResponse) Parser (Enumerated ConsensusSendToResponse_Status @@ -8943,60 +9507,62 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Parser (Enumerated ConsensusSendToResponse_Status) -> Parser ConsensusSendToResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object +<*> Object +obj Object -> Text -> Parser (Enumerated ConsensusSendToResponse_Status) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "status")) - -instance HsJSONPB.ToJSON ConsensusSendToResponse where - toJSON :: ConsensusSendToResponse -> Value -toJSON = ConsensusSendToResponse -> Value +.: Text +"status")) + +instance HsJSONPB.ToJSON ConsensusSendToResponse where + toJSON :: ConsensusSendToResponse -> Value +toJSON = ConsensusSendToResponse -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ConsensusSendToResponse -> Encoding -toEncoding = ConsensusSendToResponse -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ConsensusSendToResponse -> Encoding +toEncoding = ConsensusSendToResponse -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ConsensusSendToResponse where - parseJSON :: Value -> Parser ConsensusSendToResponse -parseJSON = Value -> Parser ConsensusSendToResponse +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ConsensusSendToResponse where + parseJSON :: Value -> Parser ConsensusSendToResponse +parseJSON = Value -> Parser ConsensusSendToResponse forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ConsensusSendToResponse where - declareNamedSchema :: Proxy ConsensusSendToResponse +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ConsensusSendToResponse where + declareNamedSchema :: Proxy ConsensusSendToResponse -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_status :: Proxy +declareNamedSchema Proxy ConsensusSendToResponse +_ + = do let declare_status :: Proxy (OverrideToSchema (Enumerated ConsensusSendToResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status = Proxy +declare_status = Proxy (OverrideToSchema (Enumerated ConsensusSendToResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -consensusSendToResponseStatus <- Proxy +HsJSONPB.declareSchemaRef + Referenced Schema +consensusSendToResponseStatus <- Proxy (OverrideToSchema (Enumerated ConsensusSendToResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status Proxy +declare_status Proxy (OverrideToSchema (Enumerated ConsensusSendToResponse_Status)) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ConsensusSendToResponse +Proxy.Proxy + let Proxy ConsensusSendToResponse _ = (Enumerated ConsensusSendToResponse_Status -> ConsensusSendToResponse) -> Proxy (Enumerated ConsensusSendToResponse_Status -> ConsensusSendToResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ConsensusSendToResponse_Status +Hs.pure Enumerated ConsensusSendToResponse_Status -> ConsensusSendToResponse ConsensusSendToResponse Proxy (Enumerated ConsensusSendToResponse_Status @@ -9004,58 +9570,60 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Proxy (Enumerated ConsensusSendToResponse_Status) -> Proxy ConsensusSendToResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy +<*> + (Proxy (OverrideToSchema (Enumerated ConsensusSendToResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Enumerated ConsensusSendToResponse_Status) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy +HsJSONPB.asProxy Proxy (OverrideToSchema (Enumerated ConsensusSendToResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_status + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ConsensusSendToResponse", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ConsensusSendToResponse", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("status", - Referenced Schema -consensusSendToResponseStatus)]}}) - -data ConsensusSendToResponse_Status = ConsensusSendToResponse_StatusSTATUS_UNSET - | ConsensusSendToResponse_StatusOK - | ConsensusSendToResponse_StatusBAD_REQUEST - | ConsensusSendToResponse_StatusSERVICE_ERROR - | ConsensusSendToResponse_StatusNOT_READY - | ConsensusSendToResponse_StatusUNKNOWN_PEER - | ConsensusSendToResponse_StatusNOT_ACTIVE_ENGINE - deriving (Int -> ConsensusSendToResponse_Status -> ShowS +HsJSONPB.insOrdFromList + [(Text +"status", + Referenced Schema +consensusSendToResponseStatus)]}}) + +data ConsensusSendToResponse_Status = ConsensusSendToResponse_StatusSTATUS_UNSET + | ConsensusSendToResponse_StatusOK + | ConsensusSendToResponse_StatusBAD_REQUEST + | ConsensusSendToResponse_StatusSERVICE_ERROR + | ConsensusSendToResponse_StatusNOT_READY + | ConsensusSendToResponse_StatusUNKNOWN_PEER + | ConsensusSendToResponse_StatusNOT_ACTIVE_ENGINE + deriving (Int -> ConsensusSendToResponse_Status -> ShowS [ConsensusSendToResponse_Status] -> ShowS ConsensusSendToResponse_Status -> String (Int -> ConsensusSendToResponse_Status -> ShowS) @@ -9070,7 +9638,7 @@ show :: ConsensusSendToResponse_Status -> String $cshow :: ConsensusSendToResponse_Status -> String showsPrec :: Int -> ConsensusSendToResponse_Status -> ShowS $cshowsPrec :: Int -> ConsensusSendToResponse_Status -> ShowS -Hs.Show, ConsensusSendToResponse_Status +Hs.Show, ConsensusSendToResponse_Status -> ConsensusSendToResponse_Status -> Bool (ConsensusSendToResponse_Status -> ConsensusSendToResponse_Status -> Bool) @@ -9086,7 +9654,7 @@ $c/= :: ConsensusSendToResponse_Status -> ConsensusSendToResponse_Status -> Bool $c== :: ConsensusSendToResponse_Status -> ConsensusSendToResponse_Status -> Bool -Hs.Eq, (forall x. +Hs.Eq, (forall x. ConsensusSendToResponse_Status -> Rep ConsensusSendToResponse_Status x) -> (forall x. @@ -9107,198 +9675,225 @@ Rep ConsensusSendToResponse_Status x $cfrom :: forall x. ConsensusSendToResponse_Status -> Rep ConsensusSendToResponse_Status x -Hs.Generic, ConsensusSendToResponse_Status -> () +Hs.Generic, ConsensusSendToResponse_Status -> () (ConsensusSendToResponse_Status -> ()) -> NFData ConsensusSendToResponse_Status forall a. (a -> ()) -> NFData a rnf :: ConsensusSendToResponse_Status -> () $crnf :: ConsensusSendToResponse_Status -> () -Hs.NFData) - -instance HsProtobuf.Named ConsensusSendToResponse_Status where - nameOf :: Proxy# ConsensusSendToResponse_Status -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ConsensusSendToResponse_Status where + nameOf :: Proxy# ConsensusSendToResponse_Status -> string +nameOf Proxy# ConsensusSendToResponse_Status +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ConsensusSendToResponse_Status") - -instance HsProtobuf.HasDefault ConsensusSendToResponse_Status - -instance Hs.Bounded ConsensusSendToResponse_Status where - minBound :: ConsensusSendToResponse_Status -minBound = ConsensusSendToResponse_Status +Hs.fromString String +"ConsensusSendToResponse_Status") + +instance HsProtobuf.HasDefault ConsensusSendToResponse_Status + +instance Hs.Bounded ConsensusSendToResponse_Status where + minBound :: ConsensusSendToResponse_Status +minBound = ConsensusSendToResponse_Status ConsensusSendToResponse_StatusSTATUS_UNSET - maxBound :: ConsensusSendToResponse_Status -maxBound = ConsensusSendToResponse_Status + maxBound :: ConsensusSendToResponse_Status +maxBound = ConsensusSendToResponse_Status ConsensusSendToResponse_StatusNOT_ACTIVE_ENGINE - -instance Hs.Ord ConsensusSendToResponse_Status where - compare :: ConsensusSendToResponse_Status + +instance Hs.Ord ConsensusSendToResponse_Status where + compare :: ConsensusSendToResponse_Status -> ConsensusSendToResponse_Status -> Ordering -compare x :: ConsensusSendToResponse_Status -x y :: ConsensusSendToResponse_Status -y - = Int32 -> Int32 -> Ordering +compare ConsensusSendToResponse_Status +x ConsensusSendToResponse_Status +y + = Int32 -> Int32 -> Ordering forall a. Ord a => a -> a -> Ordering -Hs.compare (ConsensusSendToResponse_Status -> Int32 +Hs.compare (ConsensusSendToResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum ConsensusSendToResponse_Status -x) - (ConsensusSendToResponse_Status -> Int32 +HsProtobuf.fromProtoEnum ConsensusSendToResponse_Status +x) + (ConsensusSendToResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum ConsensusSendToResponse_Status -y) - -instance HsProtobuf.ProtoEnum ConsensusSendToResponse_Status where - toProtoEnumMay :: Int32 -> Maybe ConsensusSendToResponse_Status -toProtoEnumMay 0 - = ConsensusSendToResponse_Status +HsProtobuf.fromProtoEnum ConsensusSendToResponse_Status +y) + +instance HsProtobuf.ProtoEnum ConsensusSendToResponse_Status where + toProtoEnumMay :: Int32 -> Maybe ConsensusSendToResponse_Status +toProtoEnumMay Int32 +0 + = ConsensusSendToResponse_Status -> Maybe ConsensusSendToResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusSendToResponse_Status +Hs.Just ConsensusSendToResponse_Status ConsensusSendToResponse_StatusSTATUS_UNSET - toProtoEnumMay 1 = ConsensusSendToResponse_Status + toProtoEnumMay Int32 +1 = ConsensusSendToResponse_Status -> Maybe ConsensusSendToResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusSendToResponse_Status +Hs.Just ConsensusSendToResponse_Status ConsensusSendToResponse_StatusOK - toProtoEnumMay 2 - = ConsensusSendToResponse_Status + toProtoEnumMay Int32 +2 + = ConsensusSendToResponse_Status -> Maybe ConsensusSendToResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusSendToResponse_Status +Hs.Just ConsensusSendToResponse_Status ConsensusSendToResponse_StatusBAD_REQUEST - toProtoEnumMay 3 - = ConsensusSendToResponse_Status + toProtoEnumMay Int32 +3 + = ConsensusSendToResponse_Status -> Maybe ConsensusSendToResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusSendToResponse_Status +Hs.Just ConsensusSendToResponse_Status ConsensusSendToResponse_StatusSERVICE_ERROR - toProtoEnumMay 4 = ConsensusSendToResponse_Status + toProtoEnumMay Int32 +4 = ConsensusSendToResponse_Status -> Maybe ConsensusSendToResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusSendToResponse_Status +Hs.Just ConsensusSendToResponse_Status ConsensusSendToResponse_StatusNOT_READY - toProtoEnumMay 5 - = ConsensusSendToResponse_Status + toProtoEnumMay Int32 +5 + = ConsensusSendToResponse_Status -> Maybe ConsensusSendToResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusSendToResponse_Status +Hs.Just ConsensusSendToResponse_Status ConsensusSendToResponse_StatusUNKNOWN_PEER - toProtoEnumMay 6 - = ConsensusSendToResponse_Status + toProtoEnumMay Int32 +6 + = ConsensusSendToResponse_Status -> Maybe ConsensusSendToResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusSendToResponse_Status +Hs.Just ConsensusSendToResponse_Status ConsensusSendToResponse_StatusNOT_ACTIVE_ENGINE - toProtoEnumMay _ = Maybe ConsensusSendToResponse_Status + toProtoEnumMay Int32 +_ = Maybe ConsensusSendToResponse_Status forall a. Maybe a -Hs.Nothing - fromProtoEnum :: ConsensusSendToResponse_Status -> Int32 -fromProtoEnum (ConsensusSendToResponse_Status -ConsensusSendToResponse_StatusSTATUS_UNSET) = 0 - fromProtoEnum (ConsensusSendToResponse_Status -ConsensusSendToResponse_StatusOK) = 1 - fromProtoEnum (ConsensusSendToResponse_Status -ConsensusSendToResponse_StatusBAD_REQUEST) = 2 - fromProtoEnum (ConsensusSendToResponse_Status -ConsensusSendToResponse_StatusSERVICE_ERROR) = 3 - fromProtoEnum (ConsensusSendToResponse_Status -ConsensusSendToResponse_StatusNOT_READY) = 4 - fromProtoEnum (ConsensusSendToResponse_Status -ConsensusSendToResponse_StatusUNKNOWN_PEER) = 5 - fromProtoEnum (ConsensusSendToResponse_Status -ConsensusSendToResponse_StatusNOT_ACTIVE_ENGINE) = 6 - -instance HsJSONPB.ToJSONPB ConsensusSendToResponse_Status where - toJSONPB :: ConsensusSendToResponse_Status -> Options -> Value -toJSONPB x :: ConsensusSendToResponse_Status -x _ = ConsensusSendToResponse_Status -> Value +Hs.Nothing + fromProtoEnum :: ConsensusSendToResponse_Status -> Int32 +fromProtoEnum (ConsensusSendToResponse_Status +ConsensusSendToResponse_StatusSTATUS_UNSET) = Int32 +0 + fromProtoEnum (ConsensusSendToResponse_Status +ConsensusSendToResponse_StatusOK) = Int32 +1 + fromProtoEnum (ConsensusSendToResponse_Status +ConsensusSendToResponse_StatusBAD_REQUEST) = Int32 +2 + fromProtoEnum (ConsensusSendToResponse_Status +ConsensusSendToResponse_StatusSERVICE_ERROR) = Int32 +3 + fromProtoEnum (ConsensusSendToResponse_Status +ConsensusSendToResponse_StatusNOT_READY) = Int32 +4 + fromProtoEnum (ConsensusSendToResponse_Status +ConsensusSendToResponse_StatusUNKNOWN_PEER) = Int32 +5 + fromProtoEnum (ConsensusSendToResponse_Status +ConsensusSendToResponse_StatusNOT_ACTIVE_ENGINE) = Int32 +6 + +instance HsJSONPB.ToJSONPB ConsensusSendToResponse_Status where + toJSONPB :: ConsensusSendToResponse_Status -> Options -> Value +toJSONPB ConsensusSendToResponse_Status +x Options +_ = ConsensusSendToResponse_Status -> Value forall a. (Named a, Show a) => a -> Value -HsJSONPB.enumFieldString ConsensusSendToResponse_Status -x - toEncodingPB :: ConsensusSendToResponse_Status -> Options -> Encoding -toEncodingPB x :: ConsensusSendToResponse_Status -x _ = ConsensusSendToResponse_Status -> Encoding +HsJSONPB.enumFieldString ConsensusSendToResponse_Status +x + toEncodingPB :: ConsensusSendToResponse_Status -> Options -> Encoding +toEncodingPB ConsensusSendToResponse_Status +x Options +_ = ConsensusSendToResponse_Status -> Encoding forall a. (Named a, Show a) => a -> Encoding -HsJSONPB.enumFieldEncoding ConsensusSendToResponse_Status -x - -instance HsJSONPB.FromJSONPB ConsensusSendToResponse_Status where - parseJSONPB :: Value -> Parser ConsensusSendToResponse_Status -parseJSONPB (HsJSONPB.String "STATUS_UNSET") - = ConsensusSendToResponse_Status +HsJSONPB.enumFieldEncoding ConsensusSendToResponse_Status +x + +instance HsJSONPB.FromJSONPB ConsensusSendToResponse_Status where + parseJSONPB :: Value -> Parser ConsensusSendToResponse_Status +parseJSONPB (HsJSONPB.String Text +"STATUS_UNSET") + = ConsensusSendToResponse_Status -> Parser ConsensusSendToResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusSendToResponse_Status +Hs.pure ConsensusSendToResponse_Status ConsensusSendToResponse_StatusSTATUS_UNSET - parseJSONPB (HsJSONPB.String "OK") - = ConsensusSendToResponse_Status + parseJSONPB (HsJSONPB.String Text +"OK") + = ConsensusSendToResponse_Status -> Parser ConsensusSendToResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusSendToResponse_Status +Hs.pure ConsensusSendToResponse_Status ConsensusSendToResponse_StatusOK - parseJSONPB (HsJSONPB.String "BAD_REQUEST") - = ConsensusSendToResponse_Status + parseJSONPB (HsJSONPB.String Text +"BAD_REQUEST") + = ConsensusSendToResponse_Status -> Parser ConsensusSendToResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusSendToResponse_Status +Hs.pure ConsensusSendToResponse_Status ConsensusSendToResponse_StatusBAD_REQUEST - parseJSONPB (HsJSONPB.String "SERVICE_ERROR") - = ConsensusSendToResponse_Status + parseJSONPB (HsJSONPB.String Text +"SERVICE_ERROR") + = ConsensusSendToResponse_Status -> Parser ConsensusSendToResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusSendToResponse_Status +Hs.pure ConsensusSendToResponse_Status ConsensusSendToResponse_StatusSERVICE_ERROR - parseJSONPB (HsJSONPB.String "NOT_READY") - = ConsensusSendToResponse_Status + parseJSONPB (HsJSONPB.String Text +"NOT_READY") + = ConsensusSendToResponse_Status -> Parser ConsensusSendToResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusSendToResponse_Status +Hs.pure ConsensusSendToResponse_Status ConsensusSendToResponse_StatusNOT_READY - parseJSONPB (HsJSONPB.String "UNKNOWN_PEER") - = ConsensusSendToResponse_Status + parseJSONPB (HsJSONPB.String Text +"UNKNOWN_PEER") + = ConsensusSendToResponse_Status -> Parser ConsensusSendToResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusSendToResponse_Status +Hs.pure ConsensusSendToResponse_Status ConsensusSendToResponse_StatusUNKNOWN_PEER - parseJSONPB (HsJSONPB.String "NOT_ACTIVE_ENGINE") - = ConsensusSendToResponse_Status + parseJSONPB (HsJSONPB.String Text +"NOT_ACTIVE_ENGINE") + = ConsensusSendToResponse_Status -> Parser ConsensusSendToResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusSendToResponse_Status +Hs.pure ConsensusSendToResponse_Status ConsensusSendToResponse_StatusNOT_ACTIVE_ENGINE - parseJSONPB v :: Value -v - = (String -> Value -> Parser ConsensusSendToResponse_Status + parseJSONPB Value +v + = (String -> Value -> Parser ConsensusSendToResponse_Status forall a. String -> Value -> Parser a -HsJSONPB.typeMismatch "ConsensusSendToResponse_Status" Value -v) - -instance HsJSONPB.ToJSON ConsensusSendToResponse_Status where - toJSON :: ConsensusSendToResponse_Status -> Value -toJSON = ConsensusSendToResponse_Status -> Value +HsJSONPB.typeMismatch String +"ConsensusSendToResponse_Status" Value +v) + +instance HsJSONPB.ToJSON ConsensusSendToResponse_Status where + toJSON :: ConsensusSendToResponse_Status -> Value +toJSON = ConsensusSendToResponse_Status -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ConsensusSendToResponse_Status -> Encoding -toEncoding = ConsensusSendToResponse_Status -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ConsensusSendToResponse_Status -> Encoding +toEncoding = ConsensusSendToResponse_Status -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ConsensusSendToResponse_Status where - parseJSON :: Value -> Parser ConsensusSendToResponse_Status -parseJSON = Value -> Parser ConsensusSendToResponse_Status +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ConsensusSendToResponse_Status where + parseJSON :: Value -> Parser ConsensusSendToResponse_Status +parseJSON = Value -> Parser ConsensusSendToResponse_Status forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsProtobuf.Finite ConsensusSendToResponse_Status - -data ConsensusBroadcastRequest = ConsensusBroadcastRequest{ConsensusBroadcastRequest -> ByteString +HsJSONPB.parseJSONPB + +instance HsProtobuf.Finite ConsensusSendToResponse_Status + +data ConsensusBroadcastRequest = ConsensusBroadcastRequest{ConsensusBroadcastRequest -> ByteString consensusBroadcastRequestContent - :: Hs.ByteString, - ConsensusBroadcastRequest -> Text + :: Hs.ByteString, + ConsensusBroadcastRequest -> Text consensusBroadcastRequestMessageType :: - Hs.Text} - deriving (Int -> ConsensusBroadcastRequest -> ShowS + Hs.Text} + deriving (Int -> ConsensusBroadcastRequest -> ShowS [ConsensusBroadcastRequest] -> ShowS ConsensusBroadcastRequest -> String (Int -> ConsensusBroadcastRequest -> ShowS) @@ -9313,7 +9908,7 @@ show :: ConsensusBroadcastRequest -> String $cshow :: ConsensusBroadcastRequest -> String showsPrec :: Int -> ConsensusBroadcastRequest -> ShowS $cshowsPrec :: Int -> ConsensusBroadcastRequest -> ShowS -Hs.Show, ConsensusBroadcastRequest -> ConsensusBroadcastRequest -> Bool +Hs.Show, ConsensusBroadcastRequest -> ConsensusBroadcastRequest -> Bool (ConsensusBroadcastRequest -> ConsensusBroadcastRequest -> Bool) -> (ConsensusBroadcastRequest -> ConsensusBroadcastRequest -> Bool) -> Eq ConsensusBroadcastRequest @@ -9322,10 +9917,10 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: ConsensusBroadcastRequest -> ConsensusBroadcastRequest -> Bool == :: ConsensusBroadcastRequest -> ConsensusBroadcastRequest -> Bool $c== :: ConsensusBroadcastRequest -> ConsensusBroadcastRequest -> Bool -Hs.Eq, Eq ConsensusBroadcastRequest -Eq ConsensusBroadcastRequest => -(ConsensusBroadcastRequest - -> ConsensusBroadcastRequest -> Ordering) +Hs.Eq, Eq ConsensusBroadcastRequest +Eq ConsensusBroadcastRequest +-> (ConsensusBroadcastRequest + -> ConsensusBroadcastRequest -> Ordering) -> (ConsensusBroadcastRequest -> ConsensusBroadcastRequest -> Bool) -> (ConsensusBroadcastRequest -> ConsensusBroadcastRequest -> Bool) -> (ConsensusBroadcastRequest -> ConsensusBroadcastRequest -> Bool) @@ -9340,8 +9935,8 @@ ConsensusBroadcastRequest -> ConsensusBroadcastRequest -> Ordering ConsensusBroadcastRequest -> ConsensusBroadcastRequest -> ConsensusBroadcastRequest forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -9368,7 +9963,7 @@ $c< :: ConsensusBroadcastRequest -> ConsensusBroadcastRequest -> Bool compare :: ConsensusBroadcastRequest -> ConsensusBroadcastRequest -> Ordering $ccompare :: ConsensusBroadcastRequest -> ConsensusBroadcastRequest -> Ordering $cp1Ord :: Eq ConsensusBroadcastRequest -Hs.Ord, (forall x. +Hs.Ord, (forall x. ConsensusBroadcastRequest -> Rep ConsensusBroadcastRequest x) -> (forall x. Rep ConsensusBroadcastRequest x -> ConsensusBroadcastRequest) @@ -9383,300 +9978,326 @@ $cto :: forall x. Rep ConsensusBroadcastRequest x -> ConsensusBroadcastRequest $cfrom :: forall x. ConsensusBroadcastRequest -> Rep ConsensusBroadcastRequest x -Hs.Generic, ConsensusBroadcastRequest -> () +Hs.Generic, ConsensusBroadcastRequest -> () (ConsensusBroadcastRequest -> ()) -> NFData ConsensusBroadcastRequest forall a. (a -> ()) -> NFData a rnf :: ConsensusBroadcastRequest -> () $crnf :: ConsensusBroadcastRequest -> () -Hs.NFData) - -instance HsProtobuf.Named ConsensusBroadcastRequest where - nameOf :: Proxy# ConsensusBroadcastRequest -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ConsensusBroadcastRequest where + nameOf :: Proxy# ConsensusBroadcastRequest -> string +nameOf Proxy# ConsensusBroadcastRequest +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ConsensusBroadcastRequest") - -instance HsProtobuf.HasDefault ConsensusBroadcastRequest - -instance HsProtobuf.Message ConsensusBroadcastRequest where - encodeMessage :: FieldNumber -> ConsensusBroadcastRequest -> MessageBuilder -encodeMessage _ - ConsensusBroadcastRequest{consensusBroadcastRequestContent :: ConsensusBroadcastRequest -> ByteString +Hs.fromString String +"ConsensusBroadcastRequest") + +instance HsProtobuf.HasDefault ConsensusBroadcastRequest + +instance HsProtobuf.Message ConsensusBroadcastRequest where + encodeMessage :: FieldNumber -> ConsensusBroadcastRequest -> MessageBuilder +encodeMessage FieldNumber +_ + ConsensusBroadcastRequest{consensusBroadcastRequestContent :: ConsensusBroadcastRequest -> ByteString consensusBroadcastRequestContent = - ByteString -consensusBroadcastRequestContent, - consensusBroadcastRequestMessageType :: ConsensusBroadcastRequest -> Text + ByteString +consensusBroadcastRequestContent, + consensusBroadcastRequestMessageType :: ConsensusBroadcastRequest -> Text consensusBroadcastRequestMessageType = - Text -consensusBroadcastRequestMessageType} - = ([MessageBuilder] -> MessageBuilder + Text +consensusBroadcastRequestMessageType} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> ByteString -> MessageBuilder +Hs.mconcat + [(FieldNumber -> ByteString -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - ByteString -consensusBroadcastRequestContent), - (FieldNumber -> Text -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + ByteString +consensusBroadcastRequestContent), + (FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - Text -consensusBroadcastRequestMessageType)]) - decodeMessage :: FieldNumber -> Parser RawMessage ConsensusBroadcastRequest -decodeMessage _ - = ((ByteString -> Text -> ConsensusBroadcastRequest) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + Text +consensusBroadcastRequestMessageType)]) + decodeMessage :: FieldNumber -> Parser RawMessage ConsensusBroadcastRequest +decodeMessage FieldNumber +_ + = ((ByteString -> Text -> ConsensusBroadcastRequest) -> Parser RawMessage (ByteString -> Text -> ConsensusBroadcastRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString -> Text -> ConsensusBroadcastRequest +Hs.pure ByteString -> Text -> ConsensusBroadcastRequest ConsensusBroadcastRequest) Parser RawMessage (ByteString -> Text -> ConsensusBroadcastRequest) -> Parser RawMessage ByteString -> Parser RawMessage (Text -> ConsensusBroadcastRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField ByteString +<*> + (Parser RawField ByteString -> FieldNumber -> Parser RawMessage ByteString forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField ByteString +HsProtobuf.at Parser RawField ByteString forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser RawMessage (Text -> ConsensusBroadcastRequest) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (Text -> ConsensusBroadcastRequest) -> Parser RawMessage Text -> Parser RawMessage ConsensusBroadcastRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2)) - dotProto :: Proxy# ConsensusBroadcastRequest -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2)) + dotProto :: Proxy# ConsensusBroadcastRequest -> [DotProtoField] +dotProto Proxy# ConsensusBroadcastRequest +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.Bytes) - (String -> DotProtoIdentifier -HsProtobuf.Single "content") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.Bytes) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"content") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "message_type") - [] - "")] - -instance HsJSONPB.ToJSONPB ConsensusBroadcastRequest where - toJSONPB :: ConsensusBroadcastRequest -> Options -> Value -toJSONPB (ConsensusBroadcastRequest f1 :: ByteString -f1 f2 :: Text -f2) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["content" Text -> ByteString -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"message_type") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ConsensusBroadcastRequest where + toJSONPB :: ConsensusBroadcastRequest -> Options -> Value +toJSONPB (ConsensusBroadcastRequest ByteString +f1 Text +f2) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"content" Text -> ByteString -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f1, "message_type" Text -> Text -> Options -> [Pair] +.= ByteString +f1, Text +"message_type" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f2]) - toEncodingPB :: ConsensusBroadcastRequest -> Options -> Encoding -toEncodingPB (ConsensusBroadcastRequest f1 :: ByteString -f1 f2 :: Text -f2) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["content" Text -> ByteString -> Options -> Series +.= Text +f2]) + toEncodingPB :: ConsensusBroadcastRequest -> Options -> Encoding +toEncodingPB (ConsensusBroadcastRequest ByteString +f1 Text +f2) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"content" Text -> ByteString -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f1, "message_type" Text -> Text -> Options -> Series +.= ByteString +f1, Text +"message_type" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f2]) - -instance HsJSONPB.FromJSONPB ConsensusBroadcastRequest where - parseJSONPB :: Value -> Parser ConsensusBroadcastRequest -parseJSONPB - = (String +.= Text +f2]) + +instance HsJSONPB.FromJSONPB ConsensusBroadcastRequest where + parseJSONPB :: Value -> Parser ConsensusBroadcastRequest +parseJSONPB + = (String -> (Object -> Parser ConsensusBroadcastRequest) -> Value -> Parser ConsensusBroadcastRequest forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ConsensusBroadcastRequest" - (\ obj :: Object -obj -> - ((ByteString -> Text -> ConsensusBroadcastRequest) +HsJSONPB.withObject String +"ConsensusBroadcastRequest" + (\ Object +obj -> + ((ByteString -> Text -> ConsensusBroadcastRequest) -> Parser (ByteString -> Text -> ConsensusBroadcastRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString -> Text -> ConsensusBroadcastRequest +Hs.pure ByteString -> Text -> ConsensusBroadcastRequest ConsensusBroadcastRequest) Parser (ByteString -> Text -> ConsensusBroadcastRequest) -> Parser ByteString -> Parser (Text -> ConsensusBroadcastRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser ByteString +<*> Object +obj Object -> Text -> Parser ByteString forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "content" Parser (Text -> ConsensusBroadcastRequest) +.: Text +"content" Parser (Text -> ConsensusBroadcastRequest) -> Parser Text -> Parser ConsensusBroadcastRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser Text +<*> + Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "message_type")) - -instance HsJSONPB.ToJSON ConsensusBroadcastRequest where - toJSON :: ConsensusBroadcastRequest -> Value -toJSON = ConsensusBroadcastRequest -> Value +.: Text +"message_type")) + +instance HsJSONPB.ToJSON ConsensusBroadcastRequest where + toJSON :: ConsensusBroadcastRequest -> Value +toJSON = ConsensusBroadcastRequest -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ConsensusBroadcastRequest -> Encoding -toEncoding = ConsensusBroadcastRequest -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ConsensusBroadcastRequest -> Encoding +toEncoding = ConsensusBroadcastRequest -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ConsensusBroadcastRequest where - parseJSON :: Value -> Parser ConsensusBroadcastRequest -parseJSON = Value -> Parser ConsensusBroadcastRequest +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ConsensusBroadcastRequest where + parseJSON :: Value -> Parser ConsensusBroadcastRequest +parseJSON = Value -> Parser ConsensusBroadcastRequest forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ConsensusBroadcastRequest where - declareNamedSchema :: Proxy ConsensusBroadcastRequest +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ConsensusBroadcastRequest where + declareNamedSchema :: Proxy ConsensusBroadcastRequest -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_content :: Proxy (OverrideToSchema ByteString) +declareNamedSchema Proxy ConsensusBroadcastRequest +_ + = do let declare_content :: Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_content = Proxy (OverrideToSchema ByteString) +declare_content = Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -consensusBroadcastRequestContent <- Proxy (OverrideToSchema ByteString) +HsJSONPB.declareSchemaRef + Referenced Schema +consensusBroadcastRequestContent <- Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_content Proxy (OverrideToSchema ByteString) +declare_content Proxy (OverrideToSchema ByteString) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_message_type :: Proxy (OverrideToSchema Text) +Proxy.Proxy + let declare_message_type :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_message_type = Proxy (OverrideToSchema Text) +declare_message_type = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -consensusBroadcastRequestMessageType <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +consensusBroadcastRequestMessageType <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_message_type - Proxy (OverrideToSchema Text) +declare_message_type + Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ConsensusBroadcastRequest +Proxy.Proxy + let Proxy ConsensusBroadcastRequest _ = (ByteString -> Text -> ConsensusBroadcastRequest) -> Proxy (ByteString -> Text -> ConsensusBroadcastRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString -> Text -> ConsensusBroadcastRequest +Hs.pure ByteString -> Text -> ConsensusBroadcastRequest ConsensusBroadcastRequest Proxy (ByteString -> Text -> ConsensusBroadcastRequest) -> Proxy ByteString -> Proxy (Text -> ConsensusBroadcastRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema ByteString) +<*> + (Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy ByteString forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) +HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_content - Proxy (Text -> ConsensusBroadcastRequest) +declare_content + Proxy (Text -> ConsensusBroadcastRequest) -> Proxy Text -> Proxy ConsensusBroadcastRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema Text) +<*> (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_message_type - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_message_type + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ConsensusBroadcastRequest", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ConsensusBroadcastRequest", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("content", - Referenced Schema -consensusBroadcastRequestContent), - ("message_type", - Referenced Schema -consensusBroadcastRequestMessageType)]}}) - -newtype ConsensusBroadcastResponse = ConsensusBroadcastResponse{ConsensusBroadcastResponse +HsJSONPB.insOrdFromList + [(Text +"content", + Referenced Schema +consensusBroadcastRequestContent), + (Text +"message_type", + Referenced Schema +consensusBroadcastRequestMessageType)]}}) + +newtype ConsensusBroadcastResponse = ConsensusBroadcastResponse{ConsensusBroadcastResponse -> Enumerated ConsensusBroadcastResponse_Status consensusBroadcastResponseStatus - :: - HsProtobuf.Enumerated - Data.Sawtooth.Consensus.ConsensusBroadcastResponse_Status} - deriving (Int -> ConsensusBroadcastResponse -> ShowS + :: + HsProtobuf.Enumerated + Data.Sawtooth.Consensus.ConsensusBroadcastResponse_Status} + deriving (Int -> ConsensusBroadcastResponse -> ShowS [ConsensusBroadcastResponse] -> ShowS ConsensusBroadcastResponse -> String (Int -> ConsensusBroadcastResponse -> ShowS) @@ -9691,7 +10312,7 @@ show :: ConsensusBroadcastResponse -> String $cshow :: ConsensusBroadcastResponse -> String showsPrec :: Int -> ConsensusBroadcastResponse -> ShowS $cshowsPrec :: Int -> ConsensusBroadcastResponse -> ShowS -Hs.Show, ConsensusBroadcastResponse -> ConsensusBroadcastResponse -> Bool +Hs.Show, ConsensusBroadcastResponse -> ConsensusBroadcastResponse -> Bool (ConsensusBroadcastResponse -> ConsensusBroadcastResponse -> Bool) -> (ConsensusBroadcastResponse -> ConsensusBroadcastResponse -> Bool) @@ -9701,10 +10322,10 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: ConsensusBroadcastResponse -> ConsensusBroadcastResponse -> Bool == :: ConsensusBroadcastResponse -> ConsensusBroadcastResponse -> Bool $c== :: ConsensusBroadcastResponse -> ConsensusBroadcastResponse -> Bool -Hs.Eq, Eq ConsensusBroadcastResponse -Eq ConsensusBroadcastResponse => -(ConsensusBroadcastResponse - -> ConsensusBroadcastResponse -> Ordering) +Hs.Eq, Eq ConsensusBroadcastResponse +Eq ConsensusBroadcastResponse +-> (ConsensusBroadcastResponse + -> ConsensusBroadcastResponse -> Ordering) -> (ConsensusBroadcastResponse -> ConsensusBroadcastResponse -> Bool) -> (ConsensusBroadcastResponse @@ -9724,8 +10345,8 @@ ConsensusBroadcastResponse ConsensusBroadcastResponse -> ConsensusBroadcastResponse -> ConsensusBroadcastResponse forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -9754,7 +10375,7 @@ compare :: ConsensusBroadcastResponse $ccompare :: ConsensusBroadcastResponse -> ConsensusBroadcastResponse -> Ordering $cp1Ord :: Eq ConsensusBroadcastResponse -Hs.Ord, (forall x. +Hs.Ord, (forall x. ConsensusBroadcastResponse -> Rep ConsensusBroadcastResponse x) -> (forall x. Rep ConsensusBroadcastResponse x -> ConsensusBroadcastResponse) @@ -9769,50 +10390,55 @@ $cto :: forall x. Rep ConsensusBroadcastResponse x -> ConsensusBroadcastResponse $cfrom :: forall x. ConsensusBroadcastResponse -> Rep ConsensusBroadcastResponse x -Hs.Generic, ConsensusBroadcastResponse -> () +Hs.Generic, ConsensusBroadcastResponse -> () (ConsensusBroadcastResponse -> ()) -> NFData ConsensusBroadcastResponse forall a. (a -> ()) -> NFData a rnf :: ConsensusBroadcastResponse -> () $crnf :: ConsensusBroadcastResponse -> () -Hs.NFData) - -instance HsProtobuf.Named ConsensusBroadcastResponse where - nameOf :: Proxy# ConsensusBroadcastResponse -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ConsensusBroadcastResponse where + nameOf :: Proxy# ConsensusBroadcastResponse -> string +nameOf Proxy# ConsensusBroadcastResponse +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ConsensusBroadcastResponse") - -instance HsProtobuf.HasDefault ConsensusBroadcastResponse - -instance HsProtobuf.Message ConsensusBroadcastResponse where - encodeMessage :: FieldNumber -> ConsensusBroadcastResponse -> MessageBuilder -encodeMessage _ - ConsensusBroadcastResponse{consensusBroadcastResponseStatus :: ConsensusBroadcastResponse +Hs.fromString String +"ConsensusBroadcastResponse") + +instance HsProtobuf.HasDefault ConsensusBroadcastResponse + +instance HsProtobuf.Message ConsensusBroadcastResponse where + encodeMessage :: FieldNumber -> ConsensusBroadcastResponse -> MessageBuilder +encodeMessage FieldNumber +_ + ConsensusBroadcastResponse{consensusBroadcastResponseStatus :: ConsensusBroadcastResponse -> Enumerated ConsensusBroadcastResponse_Status consensusBroadcastResponseStatus = - Enumerated ConsensusBroadcastResponse_Status -consensusBroadcastResponseStatus} - = ([MessageBuilder] -> MessageBuilder + Enumerated ConsensusBroadcastResponse_Status +consensusBroadcastResponseStatus} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber +Hs.mconcat + [(FieldNumber -> Enumerated ConsensusBroadcastResponse_Status -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Enumerated ConsensusBroadcastResponse_Status -consensusBroadcastResponseStatus)]) - decodeMessage :: FieldNumber -> Parser RawMessage ConsensusBroadcastResponse -decodeMessage _ - = ((Enumerated ConsensusBroadcastResponse_Status +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Enumerated ConsensusBroadcastResponse_Status +consensusBroadcastResponseStatus)]) + decodeMessage :: FieldNumber -> Parser RawMessage ConsensusBroadcastResponse +decodeMessage FieldNumber +_ + = ((Enumerated ConsensusBroadcastResponse_Status -> ConsensusBroadcastResponse) -> Parser RawMessage (Enumerated ConsensusBroadcastResponse_Status -> ConsensusBroadcastResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ConsensusBroadcastResponse_Status +Hs.pure Enumerated ConsensusBroadcastResponse_Status -> ConsensusBroadcastResponse ConsensusBroadcastResponse) Parser RawMessage @@ -9821,81 +10447,90 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Parser RawMessage (Enumerated ConsensusBroadcastResponse_Status) -> Parser RawMessage ConsensusBroadcastResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField (Enumerated ConsensusBroadcastResponse_Status) +<*> + (Parser RawField (Enumerated ConsensusBroadcastResponse_Status) -> FieldNumber -> Parser RawMessage (Enumerated ConsensusBroadcastResponse_Status) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (Enumerated ConsensusBroadcastResponse_Status) +HsProtobuf.at Parser RawField (Enumerated ConsensusBroadcastResponse_Status) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - dotProto :: Proxy# ConsensusBroadcastResponse -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + dotProto :: Proxy# ConsensusBroadcastResponse -> [DotProtoField] +dotProto Proxy# ConsensusBroadcastResponse +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "Status"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "status") - [] - "")] - -instance HsJSONPB.ToJSONPB ConsensusBroadcastResponse where - toJSONPB :: ConsensusBroadcastResponse -> Options -> Value -toJSONPB (ConsensusBroadcastResponse f1 :: Enumerated ConsensusBroadcastResponse_Status -f1) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["status" Text +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"Status"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"status") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ConsensusBroadcastResponse where + toJSONPB :: ConsensusBroadcastResponse -> Options -> Value +toJSONPB (ConsensusBroadcastResponse Enumerated ConsensusBroadcastResponse_Status +f1) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"status" Text -> Enumerated ConsensusBroadcastResponse_Status -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated ConsensusBroadcastResponse_Status -f1]) - toEncodingPB :: ConsensusBroadcastResponse -> Options -> Encoding -toEncodingPB (ConsensusBroadcastResponse f1 :: Enumerated ConsensusBroadcastResponse_Status -f1) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["status" Text +.= Enumerated ConsensusBroadcastResponse_Status +f1]) + toEncodingPB :: ConsensusBroadcastResponse -> Options -> Encoding +toEncodingPB (ConsensusBroadcastResponse Enumerated ConsensusBroadcastResponse_Status +f1) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"status" Text -> Enumerated ConsensusBroadcastResponse_Status -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated ConsensusBroadcastResponse_Status -f1]) - -instance HsJSONPB.FromJSONPB ConsensusBroadcastResponse where - parseJSONPB :: Value -> Parser ConsensusBroadcastResponse -parseJSONPB - = (String +.= Enumerated ConsensusBroadcastResponse_Status +f1]) + +instance HsJSONPB.FromJSONPB ConsensusBroadcastResponse where + parseJSONPB :: Value -> Parser ConsensusBroadcastResponse +parseJSONPB + = (String -> (Object -> Parser ConsensusBroadcastResponse) -> Value -> Parser ConsensusBroadcastResponse forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ConsensusBroadcastResponse" - (\ obj :: Object -obj -> - ((Enumerated ConsensusBroadcastResponse_Status +HsJSONPB.withObject String +"ConsensusBroadcastResponse" + (\ Object +obj -> + ((Enumerated ConsensusBroadcastResponse_Status -> ConsensusBroadcastResponse) -> Parser (Enumerated ConsensusBroadcastResponse_Status -> ConsensusBroadcastResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ConsensusBroadcastResponse_Status +Hs.pure Enumerated ConsensusBroadcastResponse_Status -> ConsensusBroadcastResponse ConsensusBroadcastResponse) Parser (Enumerated ConsensusBroadcastResponse_Status @@ -9903,60 +10538,62 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Parser (Enumerated ConsensusBroadcastResponse_Status) -> Parser ConsensusBroadcastResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object +<*> Object +obj Object -> Text -> Parser (Enumerated ConsensusBroadcastResponse_Status) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "status")) - -instance HsJSONPB.ToJSON ConsensusBroadcastResponse where - toJSON :: ConsensusBroadcastResponse -> Value -toJSON = ConsensusBroadcastResponse -> Value +.: Text +"status")) + +instance HsJSONPB.ToJSON ConsensusBroadcastResponse where + toJSON :: ConsensusBroadcastResponse -> Value +toJSON = ConsensusBroadcastResponse -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ConsensusBroadcastResponse -> Encoding -toEncoding = ConsensusBroadcastResponse -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ConsensusBroadcastResponse -> Encoding +toEncoding = ConsensusBroadcastResponse -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ConsensusBroadcastResponse where - parseJSON :: Value -> Parser ConsensusBroadcastResponse -parseJSON = Value -> Parser ConsensusBroadcastResponse +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ConsensusBroadcastResponse where + parseJSON :: Value -> Parser ConsensusBroadcastResponse +parseJSON = Value -> Parser ConsensusBroadcastResponse forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ConsensusBroadcastResponse where - declareNamedSchema :: Proxy ConsensusBroadcastResponse +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ConsensusBroadcastResponse where + declareNamedSchema :: Proxy ConsensusBroadcastResponse -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_status :: Proxy +declareNamedSchema Proxy ConsensusBroadcastResponse +_ + = do let declare_status :: Proxy (OverrideToSchema (Enumerated ConsensusBroadcastResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status = Proxy +declare_status = Proxy (OverrideToSchema (Enumerated ConsensusBroadcastResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -consensusBroadcastResponseStatus <- Proxy +HsJSONPB.declareSchemaRef + Referenced Schema +consensusBroadcastResponseStatus <- Proxy (OverrideToSchema (Enumerated ConsensusBroadcastResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status Proxy +declare_status Proxy (OverrideToSchema (Enumerated ConsensusBroadcastResponse_Status)) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ConsensusBroadcastResponse +Proxy.Proxy + let Proxy ConsensusBroadcastResponse _ = (Enumerated ConsensusBroadcastResponse_Status -> ConsensusBroadcastResponse) -> Proxy (Enumerated ConsensusBroadcastResponse_Status -> ConsensusBroadcastResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ConsensusBroadcastResponse_Status +Hs.pure Enumerated ConsensusBroadcastResponse_Status -> ConsensusBroadcastResponse ConsensusBroadcastResponse Proxy (Enumerated ConsensusBroadcastResponse_Status @@ -9964,57 +10601,59 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Proxy (Enumerated ConsensusBroadcastResponse_Status) -> Proxy ConsensusBroadcastResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy +<*> + (Proxy (OverrideToSchema (Enumerated ConsensusBroadcastResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Enumerated ConsensusBroadcastResponse_Status) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy +HsJSONPB.asProxy Proxy (OverrideToSchema (Enumerated ConsensusBroadcastResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_status + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ConsensusBroadcastResponse", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ConsensusBroadcastResponse", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("status", - Referenced Schema -consensusBroadcastResponseStatus)]}}) - -data ConsensusBroadcastResponse_Status = ConsensusBroadcastResponse_StatusSTATUS_UNSET - | ConsensusBroadcastResponse_StatusOK - | ConsensusBroadcastResponse_StatusBAD_REQUEST - | ConsensusBroadcastResponse_StatusSERVICE_ERROR - | ConsensusBroadcastResponse_StatusNOT_READY - | ConsensusBroadcastResponse_StatusNOT_ACTIVE_ENGINE - deriving (Int -> ConsensusBroadcastResponse_Status -> ShowS +HsJSONPB.insOrdFromList + [(Text +"status", + Referenced Schema +consensusBroadcastResponseStatus)]}}) + +data ConsensusBroadcastResponse_Status = ConsensusBroadcastResponse_StatusSTATUS_UNSET + | ConsensusBroadcastResponse_StatusOK + | ConsensusBroadcastResponse_StatusBAD_REQUEST + | ConsensusBroadcastResponse_StatusSERVICE_ERROR + | ConsensusBroadcastResponse_StatusNOT_READY + | ConsensusBroadcastResponse_StatusNOT_ACTIVE_ENGINE + deriving (Int -> ConsensusBroadcastResponse_Status -> ShowS [ConsensusBroadcastResponse_Status] -> ShowS ConsensusBroadcastResponse_Status -> String (Int -> ConsensusBroadcastResponse_Status -> ShowS) @@ -10029,7 +10668,7 @@ show :: ConsensusBroadcastResponse_Status -> String $cshow :: ConsensusBroadcastResponse_Status -> String showsPrec :: Int -> ConsensusBroadcastResponse_Status -> ShowS $cshowsPrec :: Int -> ConsensusBroadcastResponse_Status -> ShowS -Hs.Show, ConsensusBroadcastResponse_Status +Hs.Show, ConsensusBroadcastResponse_Status -> ConsensusBroadcastResponse_Status -> Bool (ConsensusBroadcastResponse_Status -> ConsensusBroadcastResponse_Status -> Bool) @@ -10045,7 +10684,7 @@ $c/= :: ConsensusBroadcastResponse_Status -> ConsensusBroadcastResponse_Status -> Bool $c== :: ConsensusBroadcastResponse_Status -> ConsensusBroadcastResponse_Status -> Bool -Hs.Eq, (forall x. +Hs.Eq, (forall x. ConsensusBroadcastResponse_Status -> Rep ConsensusBroadcastResponse_Status x) -> (forall x. @@ -10066,185 +10705,209 @@ Rep ConsensusBroadcastResponse_Status x $cfrom :: forall x. ConsensusBroadcastResponse_Status -> Rep ConsensusBroadcastResponse_Status x -Hs.Generic, ConsensusBroadcastResponse_Status -> () +Hs.Generic, ConsensusBroadcastResponse_Status -> () (ConsensusBroadcastResponse_Status -> ()) -> NFData ConsensusBroadcastResponse_Status forall a. (a -> ()) -> NFData a rnf :: ConsensusBroadcastResponse_Status -> () $crnf :: ConsensusBroadcastResponse_Status -> () -Hs.NFData) - -instance HsProtobuf.Named ConsensusBroadcastResponse_Status where - nameOf :: Proxy# ConsensusBroadcastResponse_Status -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ConsensusBroadcastResponse_Status where + nameOf :: Proxy# ConsensusBroadcastResponse_Status -> string +nameOf Proxy# ConsensusBroadcastResponse_Status +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ConsensusBroadcastResponse_Status") - -instance HsProtobuf.HasDefault ConsensusBroadcastResponse_Status - -instance Hs.Bounded ConsensusBroadcastResponse_Status where - minBound :: ConsensusBroadcastResponse_Status -minBound = ConsensusBroadcastResponse_Status +Hs.fromString String +"ConsensusBroadcastResponse_Status") + +instance HsProtobuf.HasDefault ConsensusBroadcastResponse_Status + +instance Hs.Bounded ConsensusBroadcastResponse_Status where + minBound :: ConsensusBroadcastResponse_Status +minBound = ConsensusBroadcastResponse_Status ConsensusBroadcastResponse_StatusSTATUS_UNSET - maxBound :: ConsensusBroadcastResponse_Status -maxBound = ConsensusBroadcastResponse_Status + maxBound :: ConsensusBroadcastResponse_Status +maxBound = ConsensusBroadcastResponse_Status ConsensusBroadcastResponse_StatusNOT_ACTIVE_ENGINE - -instance Hs.Ord ConsensusBroadcastResponse_Status where - compare :: ConsensusBroadcastResponse_Status + +instance Hs.Ord ConsensusBroadcastResponse_Status where + compare :: ConsensusBroadcastResponse_Status -> ConsensusBroadcastResponse_Status -> Ordering -compare x :: ConsensusBroadcastResponse_Status -x y :: ConsensusBroadcastResponse_Status -y - = Int32 -> Int32 -> Ordering +compare ConsensusBroadcastResponse_Status +x ConsensusBroadcastResponse_Status +y + = Int32 -> Int32 -> Ordering forall a. Ord a => a -> a -> Ordering -Hs.compare (ConsensusBroadcastResponse_Status -> Int32 +Hs.compare (ConsensusBroadcastResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum ConsensusBroadcastResponse_Status -x) - (ConsensusBroadcastResponse_Status -> Int32 +HsProtobuf.fromProtoEnum ConsensusBroadcastResponse_Status +x) + (ConsensusBroadcastResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum ConsensusBroadcastResponse_Status -y) - -instance HsProtobuf.ProtoEnum ConsensusBroadcastResponse_Status - where - toProtoEnumMay :: Int32 -> Maybe ConsensusBroadcastResponse_Status -toProtoEnumMay 0 - = ConsensusBroadcastResponse_Status +HsProtobuf.fromProtoEnum ConsensusBroadcastResponse_Status +y) + +instance HsProtobuf.ProtoEnum ConsensusBroadcastResponse_Status + where + toProtoEnumMay :: Int32 -> Maybe ConsensusBroadcastResponse_Status +toProtoEnumMay Int32 +0 + = ConsensusBroadcastResponse_Status -> Maybe ConsensusBroadcastResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusBroadcastResponse_Status +Hs.Just ConsensusBroadcastResponse_Status ConsensusBroadcastResponse_StatusSTATUS_UNSET - toProtoEnumMay 1 = ConsensusBroadcastResponse_Status + toProtoEnumMay Int32 +1 = ConsensusBroadcastResponse_Status -> Maybe ConsensusBroadcastResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusBroadcastResponse_Status +Hs.Just ConsensusBroadcastResponse_Status ConsensusBroadcastResponse_StatusOK - toProtoEnumMay 2 - = ConsensusBroadcastResponse_Status + toProtoEnumMay Int32 +2 + = ConsensusBroadcastResponse_Status -> Maybe ConsensusBroadcastResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusBroadcastResponse_Status +Hs.Just ConsensusBroadcastResponse_Status ConsensusBroadcastResponse_StatusBAD_REQUEST - toProtoEnumMay 3 - = ConsensusBroadcastResponse_Status + toProtoEnumMay Int32 +3 + = ConsensusBroadcastResponse_Status -> Maybe ConsensusBroadcastResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusBroadcastResponse_Status +Hs.Just ConsensusBroadcastResponse_Status ConsensusBroadcastResponse_StatusSERVICE_ERROR - toProtoEnumMay 4 - = ConsensusBroadcastResponse_Status + toProtoEnumMay Int32 +4 + = ConsensusBroadcastResponse_Status -> Maybe ConsensusBroadcastResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusBroadcastResponse_Status +Hs.Just ConsensusBroadcastResponse_Status ConsensusBroadcastResponse_StatusNOT_READY - toProtoEnumMay 5 - = ConsensusBroadcastResponse_Status + toProtoEnumMay Int32 +5 + = ConsensusBroadcastResponse_Status -> Maybe ConsensusBroadcastResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusBroadcastResponse_Status +Hs.Just ConsensusBroadcastResponse_Status ConsensusBroadcastResponse_StatusNOT_ACTIVE_ENGINE - toProtoEnumMay _ = Maybe ConsensusBroadcastResponse_Status + toProtoEnumMay Int32 +_ = Maybe ConsensusBroadcastResponse_Status forall a. Maybe a -Hs.Nothing - fromProtoEnum :: ConsensusBroadcastResponse_Status -> Int32 -fromProtoEnum (ConsensusBroadcastResponse_Status -ConsensusBroadcastResponse_StatusSTATUS_UNSET) = 0 - fromProtoEnum (ConsensusBroadcastResponse_Status -ConsensusBroadcastResponse_StatusOK) = 1 - fromProtoEnum (ConsensusBroadcastResponse_Status -ConsensusBroadcastResponse_StatusBAD_REQUEST) = 2 - fromProtoEnum (ConsensusBroadcastResponse_Status -ConsensusBroadcastResponse_StatusSERVICE_ERROR) = 3 - fromProtoEnum (ConsensusBroadcastResponse_Status -ConsensusBroadcastResponse_StatusNOT_READY) = 4 - fromProtoEnum (ConsensusBroadcastResponse_Status +Hs.Nothing + fromProtoEnum :: ConsensusBroadcastResponse_Status -> Int32 +fromProtoEnum (ConsensusBroadcastResponse_Status +ConsensusBroadcastResponse_StatusSTATUS_UNSET) = Int32 +0 + fromProtoEnum (ConsensusBroadcastResponse_Status +ConsensusBroadcastResponse_StatusOK) = Int32 +1 + fromProtoEnum (ConsensusBroadcastResponse_Status +ConsensusBroadcastResponse_StatusBAD_REQUEST) = Int32 +2 + fromProtoEnum (ConsensusBroadcastResponse_Status +ConsensusBroadcastResponse_StatusSERVICE_ERROR) = Int32 +3 + fromProtoEnum (ConsensusBroadcastResponse_Status +ConsensusBroadcastResponse_StatusNOT_READY) = Int32 +4 + fromProtoEnum (ConsensusBroadcastResponse_Status ConsensusBroadcastResponse_StatusNOT_ACTIVE_ENGINE) - = 5 - -instance HsJSONPB.ToJSONPB ConsensusBroadcastResponse_Status where - toJSONPB :: ConsensusBroadcastResponse_Status -> Options -> Value -toJSONPB x :: ConsensusBroadcastResponse_Status -x _ = ConsensusBroadcastResponse_Status -> Value + = Int32 +5 + +instance HsJSONPB.ToJSONPB ConsensusBroadcastResponse_Status where + toJSONPB :: ConsensusBroadcastResponse_Status -> Options -> Value +toJSONPB ConsensusBroadcastResponse_Status +x Options +_ = ConsensusBroadcastResponse_Status -> Value forall a. (Named a, Show a) => a -> Value -HsJSONPB.enumFieldString ConsensusBroadcastResponse_Status -x - toEncodingPB :: ConsensusBroadcastResponse_Status -> Options -> Encoding -toEncodingPB x :: ConsensusBroadcastResponse_Status -x _ = ConsensusBroadcastResponse_Status -> Encoding +HsJSONPB.enumFieldString ConsensusBroadcastResponse_Status +x + toEncodingPB :: ConsensusBroadcastResponse_Status -> Options -> Encoding +toEncodingPB ConsensusBroadcastResponse_Status +x Options +_ = ConsensusBroadcastResponse_Status -> Encoding forall a. (Named a, Show a) => a -> Encoding -HsJSONPB.enumFieldEncoding ConsensusBroadcastResponse_Status -x - -instance HsJSONPB.FromJSONPB ConsensusBroadcastResponse_Status - where - parseJSONPB :: Value -> Parser ConsensusBroadcastResponse_Status -parseJSONPB (HsJSONPB.String "STATUS_UNSET") - = ConsensusBroadcastResponse_Status +HsJSONPB.enumFieldEncoding ConsensusBroadcastResponse_Status +x + +instance HsJSONPB.FromJSONPB ConsensusBroadcastResponse_Status + where + parseJSONPB :: Value -> Parser ConsensusBroadcastResponse_Status +parseJSONPB (HsJSONPB.String Text +"STATUS_UNSET") + = ConsensusBroadcastResponse_Status -> Parser ConsensusBroadcastResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusBroadcastResponse_Status +Hs.pure ConsensusBroadcastResponse_Status ConsensusBroadcastResponse_StatusSTATUS_UNSET - parseJSONPB (HsJSONPB.String "OK") - = ConsensusBroadcastResponse_Status + parseJSONPB (HsJSONPB.String Text +"OK") + = ConsensusBroadcastResponse_Status -> Parser ConsensusBroadcastResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusBroadcastResponse_Status +Hs.pure ConsensusBroadcastResponse_Status ConsensusBroadcastResponse_StatusOK - parseJSONPB (HsJSONPB.String "BAD_REQUEST") - = ConsensusBroadcastResponse_Status + parseJSONPB (HsJSONPB.String Text +"BAD_REQUEST") + = ConsensusBroadcastResponse_Status -> Parser ConsensusBroadcastResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusBroadcastResponse_Status +Hs.pure ConsensusBroadcastResponse_Status ConsensusBroadcastResponse_StatusBAD_REQUEST - parseJSONPB (HsJSONPB.String "SERVICE_ERROR") - = ConsensusBroadcastResponse_Status + parseJSONPB (HsJSONPB.String Text +"SERVICE_ERROR") + = ConsensusBroadcastResponse_Status -> Parser ConsensusBroadcastResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusBroadcastResponse_Status +Hs.pure ConsensusBroadcastResponse_Status ConsensusBroadcastResponse_StatusSERVICE_ERROR - parseJSONPB (HsJSONPB.String "NOT_READY") - = ConsensusBroadcastResponse_Status + parseJSONPB (HsJSONPB.String Text +"NOT_READY") + = ConsensusBroadcastResponse_Status -> Parser ConsensusBroadcastResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusBroadcastResponse_Status +Hs.pure ConsensusBroadcastResponse_Status ConsensusBroadcastResponse_StatusNOT_READY - parseJSONPB (HsJSONPB.String "NOT_ACTIVE_ENGINE") - = ConsensusBroadcastResponse_Status + parseJSONPB (HsJSONPB.String Text +"NOT_ACTIVE_ENGINE") + = ConsensusBroadcastResponse_Status -> Parser ConsensusBroadcastResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusBroadcastResponse_Status +Hs.pure ConsensusBroadcastResponse_Status ConsensusBroadcastResponse_StatusNOT_ACTIVE_ENGINE - parseJSONPB v :: Value -v - = (String -> Value -> Parser ConsensusBroadcastResponse_Status + parseJSONPB Value +v + = (String -> Value -> Parser ConsensusBroadcastResponse_Status forall a. String -> Value -> Parser a -HsJSONPB.typeMismatch "ConsensusBroadcastResponse_Status" Value -v) - -instance HsJSONPB.ToJSON ConsensusBroadcastResponse_Status where - toJSON :: ConsensusBroadcastResponse_Status -> Value -toJSON = ConsensusBroadcastResponse_Status -> Value +HsJSONPB.typeMismatch String +"ConsensusBroadcastResponse_Status" Value +v) + +instance HsJSONPB.ToJSON ConsensusBroadcastResponse_Status where + toJSON :: ConsensusBroadcastResponse_Status -> Value +toJSON = ConsensusBroadcastResponse_Status -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ConsensusBroadcastResponse_Status -> Encoding -toEncoding = ConsensusBroadcastResponse_Status -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ConsensusBroadcastResponse_Status -> Encoding +toEncoding = ConsensusBroadcastResponse_Status -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ConsensusBroadcastResponse_Status where - parseJSON :: Value -> Parser ConsensusBroadcastResponse_Status -parseJSON = Value -> Parser ConsensusBroadcastResponse_Status +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ConsensusBroadcastResponse_Status where + parseJSON :: Value -> Parser ConsensusBroadcastResponse_Status +parseJSON = Value -> Parser ConsensusBroadcastResponse_Status forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsProtobuf.Finite ConsensusBroadcastResponse_Status - -newtype ConsensusInitializeBlockRequest = ConsensusInitializeBlockRequest{ConsensusInitializeBlockRequest -> ByteString +HsJSONPB.parseJSONPB + +instance HsProtobuf.Finite ConsensusBroadcastResponse_Status + +newtype ConsensusInitializeBlockRequest = ConsensusInitializeBlockRequest{ConsensusInitializeBlockRequest -> ByteString consensusInitializeBlockRequestPreviousId - :: Hs.ByteString} - deriving (Int -> ConsensusInitializeBlockRequest -> ShowS + :: Hs.ByteString} + deriving (Int -> ConsensusInitializeBlockRequest -> ShowS [ConsensusInitializeBlockRequest] -> ShowS ConsensusInitializeBlockRequest -> String (Int -> ConsensusInitializeBlockRequest -> ShowS) @@ -10259,7 +10922,7 @@ show :: ConsensusInitializeBlockRequest -> String $cshow :: ConsensusInitializeBlockRequest -> String showsPrec :: Int -> ConsensusInitializeBlockRequest -> ShowS $cshowsPrec :: Int -> ConsensusInitializeBlockRequest -> ShowS -Hs.Show, ConsensusInitializeBlockRequest +Hs.Show, ConsensusInitializeBlockRequest -> ConsensusInitializeBlockRequest -> Bool (ConsensusInitializeBlockRequest -> ConsensusInitializeBlockRequest -> Bool) @@ -10275,10 +10938,10 @@ $c/= :: ConsensusInitializeBlockRequest -> ConsensusInitializeBlockRequest -> Bool $c== :: ConsensusInitializeBlockRequest -> ConsensusInitializeBlockRequest -> Bool -Hs.Eq, Eq ConsensusInitializeBlockRequest -Eq ConsensusInitializeBlockRequest => -(ConsensusInitializeBlockRequest - -> ConsensusInitializeBlockRequest -> Ordering) +Hs.Eq, Eq ConsensusInitializeBlockRequest +Eq ConsensusInitializeBlockRequest +-> (ConsensusInitializeBlockRequest + -> ConsensusInitializeBlockRequest -> Ordering) -> (ConsensusInitializeBlockRequest -> ConsensusInitializeBlockRequest -> Bool) -> (ConsensusInitializeBlockRequest @@ -10302,8 +10965,8 @@ ConsensusInitializeBlockRequest -> ConsensusInitializeBlockRequest -> ConsensusInitializeBlockRequest forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -10344,7 +11007,7 @@ compare :: ConsensusInitializeBlockRequest $ccompare :: ConsensusInitializeBlockRequest -> ConsensusInitializeBlockRequest -> Ordering $cp1Ord :: Eq ConsensusInitializeBlockRequest -Hs.Ord, (forall x. +Hs.Ord, (forall x. ConsensusInitializeBlockRequest -> Rep ConsensusInitializeBlockRequest x) -> (forall x. @@ -10365,216 +11028,233 @@ Rep ConsensusInitializeBlockRequest x $cfrom :: forall x. ConsensusInitializeBlockRequest -> Rep ConsensusInitializeBlockRequest x -Hs.Generic, ConsensusInitializeBlockRequest -> () +Hs.Generic, ConsensusInitializeBlockRequest -> () (ConsensusInitializeBlockRequest -> ()) -> NFData ConsensusInitializeBlockRequest forall a. (a -> ()) -> NFData a rnf :: ConsensusInitializeBlockRequest -> () $crnf :: ConsensusInitializeBlockRequest -> () -Hs.NFData) - -instance HsProtobuf.Named ConsensusInitializeBlockRequest where - nameOf :: Proxy# ConsensusInitializeBlockRequest -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ConsensusInitializeBlockRequest where + nameOf :: Proxy# ConsensusInitializeBlockRequest -> string +nameOf Proxy# ConsensusInitializeBlockRequest +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ConsensusInitializeBlockRequest") - -instance HsProtobuf.HasDefault ConsensusInitializeBlockRequest - -instance HsProtobuf.Message ConsensusInitializeBlockRequest where - encodeMessage :: FieldNumber -> ConsensusInitializeBlockRequest -> MessageBuilder -encodeMessage _ - ConsensusInitializeBlockRequest{consensusInitializeBlockRequestPreviousId :: ConsensusInitializeBlockRequest -> ByteString +Hs.fromString String +"ConsensusInitializeBlockRequest") + +instance HsProtobuf.HasDefault ConsensusInitializeBlockRequest + +instance HsProtobuf.Message ConsensusInitializeBlockRequest where + encodeMessage :: FieldNumber -> ConsensusInitializeBlockRequest -> MessageBuilder +encodeMessage FieldNumber +_ + ConsensusInitializeBlockRequest{consensusInitializeBlockRequestPreviousId :: ConsensusInitializeBlockRequest -> ByteString consensusInitializeBlockRequestPreviousId - = ByteString -consensusInitializeBlockRequestPreviousId} - = ([MessageBuilder] -> MessageBuilder + = ByteString +consensusInitializeBlockRequestPreviousId} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> ByteString -> MessageBuilder +Hs.mconcat + [(FieldNumber -> ByteString -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - ByteString -consensusInitializeBlockRequestPreviousId)]) - decodeMessage :: FieldNumber -> Parser RawMessage ConsensusInitializeBlockRequest -decodeMessage _ - = ((ByteString -> ConsensusInitializeBlockRequest) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + ByteString +consensusInitializeBlockRequestPreviousId)]) + decodeMessage :: FieldNumber -> Parser RawMessage ConsensusInitializeBlockRequest +decodeMessage FieldNumber +_ + = ((ByteString -> ConsensusInitializeBlockRequest) -> Parser RawMessage (ByteString -> ConsensusInitializeBlockRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString -> ConsensusInitializeBlockRequest +Hs.pure ByteString -> ConsensusInitializeBlockRequest ConsensusInitializeBlockRequest) Parser RawMessage (ByteString -> ConsensusInitializeBlockRequest) -> Parser RawMessage ByteString -> Parser RawMessage ConsensusInitializeBlockRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField ByteString +<*> + (Parser RawField ByteString -> FieldNumber -> Parser RawMessage ByteString forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField ByteString +HsProtobuf.at Parser RawField ByteString forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - dotProto :: Proxy# ConsensusInitializeBlockRequest -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + dotProto :: Proxy# ConsensusInitializeBlockRequest -> [DotProtoField] +dotProto Proxy# ConsensusInitializeBlockRequest +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.Bytes) - (String -> DotProtoIdentifier -HsProtobuf.Single "previous_id") - [] - "")] - -instance HsJSONPB.ToJSONPB ConsensusInitializeBlockRequest where - toJSONPB :: ConsensusInitializeBlockRequest -> Options -> Value -toJSONPB (ConsensusInitializeBlockRequest f1 :: ByteString -f1) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["previous_id" Text -> ByteString -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.Bytes) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"previous_id") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ConsensusInitializeBlockRequest where + toJSONPB :: ConsensusInitializeBlockRequest -> Options -> Value +toJSONPB (ConsensusInitializeBlockRequest ByteString +f1) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"previous_id" Text -> ByteString -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f1]) - toEncodingPB :: ConsensusInitializeBlockRequest -> Options -> Encoding -toEncodingPB (ConsensusInitializeBlockRequest f1 :: ByteString -f1) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["previous_id" Text -> ByteString -> Options -> Series +.= ByteString +f1]) + toEncodingPB :: ConsensusInitializeBlockRequest -> Options -> Encoding +toEncodingPB (ConsensusInitializeBlockRequest ByteString +f1) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"previous_id" Text -> ByteString -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f1]) - -instance HsJSONPB.FromJSONPB ConsensusInitializeBlockRequest where - parseJSONPB :: Value -> Parser ConsensusInitializeBlockRequest -parseJSONPB - = (String +.= ByteString +f1]) + +instance HsJSONPB.FromJSONPB ConsensusInitializeBlockRequest where + parseJSONPB :: Value -> Parser ConsensusInitializeBlockRequest +parseJSONPB + = (String -> (Object -> Parser ConsensusInitializeBlockRequest) -> Value -> Parser ConsensusInitializeBlockRequest forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ConsensusInitializeBlockRequest" - (\ obj :: Object -obj -> - ((ByteString -> ConsensusInitializeBlockRequest) +HsJSONPB.withObject String +"ConsensusInitializeBlockRequest" + (\ Object +obj -> + ((ByteString -> ConsensusInitializeBlockRequest) -> Parser (ByteString -> ConsensusInitializeBlockRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString -> ConsensusInitializeBlockRequest +Hs.pure ByteString -> ConsensusInitializeBlockRequest ConsensusInitializeBlockRequest) Parser (ByteString -> ConsensusInitializeBlockRequest) -> Parser ByteString -> Parser ConsensusInitializeBlockRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser ByteString +<*> + Object +obj Object -> Text -> Parser ByteString forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "previous_id")) - -instance HsJSONPB.ToJSON ConsensusInitializeBlockRequest where - toJSON :: ConsensusInitializeBlockRequest -> Value -toJSON = ConsensusInitializeBlockRequest -> Value +.: Text +"previous_id")) + +instance HsJSONPB.ToJSON ConsensusInitializeBlockRequest where + toJSON :: ConsensusInitializeBlockRequest -> Value +toJSON = ConsensusInitializeBlockRequest -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ConsensusInitializeBlockRequest -> Encoding -toEncoding = ConsensusInitializeBlockRequest -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ConsensusInitializeBlockRequest -> Encoding +toEncoding = ConsensusInitializeBlockRequest -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ConsensusInitializeBlockRequest where - parseJSON :: Value -> Parser ConsensusInitializeBlockRequest -parseJSON = Value -> Parser ConsensusInitializeBlockRequest +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ConsensusInitializeBlockRequest where + parseJSON :: Value -> Parser ConsensusInitializeBlockRequest +parseJSON = Value -> Parser ConsensusInitializeBlockRequest forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ConsensusInitializeBlockRequest where - declareNamedSchema :: Proxy ConsensusInitializeBlockRequest +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ConsensusInitializeBlockRequest where + declareNamedSchema :: Proxy ConsensusInitializeBlockRequest -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_previous_id :: Proxy (OverrideToSchema ByteString) +declareNamedSchema Proxy ConsensusInitializeBlockRequest +_ + = do let declare_previous_id :: Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_previous_id = Proxy (OverrideToSchema ByteString) +declare_previous_id = Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -consensusInitializeBlockRequestPreviousId <- Proxy (OverrideToSchema ByteString) +HsJSONPB.declareSchemaRef + Referenced Schema +consensusInitializeBlockRequestPreviousId <- Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_previous_id - Proxy (OverrideToSchema ByteString) +declare_previous_id + Proxy (OverrideToSchema ByteString) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ConsensusInitializeBlockRequest +Proxy.Proxy + let Proxy ConsensusInitializeBlockRequest _ = (ByteString -> ConsensusInitializeBlockRequest) -> Proxy (ByteString -> ConsensusInitializeBlockRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString -> ConsensusInitializeBlockRequest +Hs.pure ByteString -> ConsensusInitializeBlockRequest ConsensusInitializeBlockRequest Proxy (ByteString -> ConsensusInitializeBlockRequest) -> Proxy ByteString -> Proxy ConsensusInitializeBlockRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema ByteString) +<*> + (Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy ByteString forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) +HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_previous_id - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_previous_id + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ConsensusInitializeBlockRequest", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ConsensusInitializeBlockRequest", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("previous_id", - Referenced Schema -consensusInitializeBlockRequestPreviousId)]}}) - -newtype ConsensusInitializeBlockResponse = ConsensusInitializeBlockResponse{ConsensusInitializeBlockResponse +HsJSONPB.insOrdFromList + [(Text +"previous_id", + Referenced Schema +consensusInitializeBlockRequestPreviousId)]}}) + +newtype ConsensusInitializeBlockResponse = ConsensusInitializeBlockResponse{ConsensusInitializeBlockResponse -> Enumerated ConsensusInitializeBlockResponse_Status consensusInitializeBlockResponseStatus - :: - HsProtobuf.Enumerated - Data.Sawtooth.Consensus.ConsensusInitializeBlockResponse_Status} - deriving (Int -> ConsensusInitializeBlockResponse -> ShowS + :: + HsProtobuf.Enumerated + Data.Sawtooth.Consensus.ConsensusInitializeBlockResponse_Status} + deriving (Int -> ConsensusInitializeBlockResponse -> ShowS [ConsensusInitializeBlockResponse] -> ShowS ConsensusInitializeBlockResponse -> String (Int -> ConsensusInitializeBlockResponse -> ShowS) @@ -10589,7 +11269,7 @@ show :: ConsensusInitializeBlockResponse -> String $cshow :: ConsensusInitializeBlockResponse -> String showsPrec :: Int -> ConsensusInitializeBlockResponse -> ShowS $cshowsPrec :: Int -> ConsensusInitializeBlockResponse -> ShowS -Hs.Show, ConsensusInitializeBlockResponse +Hs.Show, ConsensusInitializeBlockResponse -> ConsensusInitializeBlockResponse -> Bool (ConsensusInitializeBlockResponse -> ConsensusInitializeBlockResponse -> Bool) @@ -10605,10 +11285,10 @@ $c/= :: ConsensusInitializeBlockResponse -> ConsensusInitializeBlockResponse -> Bool $c== :: ConsensusInitializeBlockResponse -> ConsensusInitializeBlockResponse -> Bool -Hs.Eq, Eq ConsensusInitializeBlockResponse -Eq ConsensusInitializeBlockResponse => -(ConsensusInitializeBlockResponse - -> ConsensusInitializeBlockResponse -> Ordering) +Hs.Eq, Eq ConsensusInitializeBlockResponse +Eq ConsensusInitializeBlockResponse +-> (ConsensusInitializeBlockResponse + -> ConsensusInitializeBlockResponse -> Ordering) -> (ConsensusInitializeBlockResponse -> ConsensusInitializeBlockResponse -> Bool) -> (ConsensusInitializeBlockResponse @@ -10632,8 +11312,8 @@ ConsensusInitializeBlockResponse -> ConsensusInitializeBlockResponse -> ConsensusInitializeBlockResponse forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -10674,7 +11354,7 @@ compare :: ConsensusInitializeBlockResponse $ccompare :: ConsensusInitializeBlockResponse -> ConsensusInitializeBlockResponse -> Ordering $cp1Ord :: Eq ConsensusInitializeBlockResponse -Hs.Ord, (forall x. +Hs.Ord, (forall x. ConsensusInitializeBlockResponse -> Rep ConsensusInitializeBlockResponse x) -> (forall x. @@ -10695,51 +11375,56 @@ Rep ConsensusInitializeBlockResponse x $cfrom :: forall x. ConsensusInitializeBlockResponse -> Rep ConsensusInitializeBlockResponse x -Hs.Generic, ConsensusInitializeBlockResponse -> () +Hs.Generic, ConsensusInitializeBlockResponse -> () (ConsensusInitializeBlockResponse -> ()) -> NFData ConsensusInitializeBlockResponse forall a. (a -> ()) -> NFData a rnf :: ConsensusInitializeBlockResponse -> () $crnf :: ConsensusInitializeBlockResponse -> () -Hs.NFData) - -instance HsProtobuf.Named ConsensusInitializeBlockResponse where - nameOf :: Proxy# ConsensusInitializeBlockResponse -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ConsensusInitializeBlockResponse where + nameOf :: Proxy# ConsensusInitializeBlockResponse -> string +nameOf Proxy# ConsensusInitializeBlockResponse +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ConsensusInitializeBlockResponse") - -instance HsProtobuf.HasDefault ConsensusInitializeBlockResponse - -instance HsProtobuf.Message ConsensusInitializeBlockResponse where - encodeMessage :: FieldNumber -> ConsensusInitializeBlockResponse -> MessageBuilder -encodeMessage _ - ConsensusInitializeBlockResponse{consensusInitializeBlockResponseStatus :: ConsensusInitializeBlockResponse +Hs.fromString String +"ConsensusInitializeBlockResponse") + +instance HsProtobuf.HasDefault ConsensusInitializeBlockResponse + +instance HsProtobuf.Message ConsensusInitializeBlockResponse where + encodeMessage :: FieldNumber -> ConsensusInitializeBlockResponse -> MessageBuilder +encodeMessage FieldNumber +_ + ConsensusInitializeBlockResponse{consensusInitializeBlockResponseStatus :: ConsensusInitializeBlockResponse -> Enumerated ConsensusInitializeBlockResponse_Status consensusInitializeBlockResponseStatus - = Enumerated ConsensusInitializeBlockResponse_Status -consensusInitializeBlockResponseStatus} - = ([MessageBuilder] -> MessageBuilder + = Enumerated ConsensusInitializeBlockResponse_Status +consensusInitializeBlockResponseStatus} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber +Hs.mconcat + [(FieldNumber -> Enumerated ConsensusInitializeBlockResponse_Status -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Enumerated ConsensusInitializeBlockResponse_Status -consensusInitializeBlockResponseStatus)]) - decodeMessage :: FieldNumber -> Parser RawMessage ConsensusInitializeBlockResponse -decodeMessage _ - = ((Enumerated ConsensusInitializeBlockResponse_Status +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Enumerated ConsensusInitializeBlockResponse_Status +consensusInitializeBlockResponseStatus)]) + decodeMessage :: FieldNumber -> Parser RawMessage ConsensusInitializeBlockResponse +decodeMessage FieldNumber +_ + = ((Enumerated ConsensusInitializeBlockResponse_Status -> ConsensusInitializeBlockResponse) -> Parser RawMessage (Enumerated ConsensusInitializeBlockResponse_Status -> ConsensusInitializeBlockResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ConsensusInitializeBlockResponse_Status +Hs.pure Enumerated ConsensusInitializeBlockResponse_Status -> ConsensusInitializeBlockResponse ConsensusInitializeBlockResponse) Parser RawMessage @@ -10749,84 +11434,93 @@ forall (f :: * -> *) a. Applicative f => a -> f a RawMessage (Enumerated ConsensusInitializeBlockResponse_Status) -> Parser RawMessage ConsensusInitializeBlockResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser +<*> + (Parser RawField (Enumerated ConsensusInitializeBlockResponse_Status) -> FieldNumber -> Parser RawMessage (Enumerated ConsensusInitializeBlockResponse_Status) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser +HsProtobuf.at Parser RawField (Enumerated ConsensusInitializeBlockResponse_Status) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - dotProto :: Proxy# ConsensusInitializeBlockResponse -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + dotProto :: Proxy# ConsensusInitializeBlockResponse -> [DotProtoField] +dotProto Proxy# ConsensusInitializeBlockResponse +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "Status"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "status") - [] - "")] - -instance HsJSONPB.ToJSONPB ConsensusInitializeBlockResponse where - toJSONPB :: ConsensusInitializeBlockResponse -> Options -> Value -toJSONPB (ConsensusInitializeBlockResponse f1 :: Enumerated ConsensusInitializeBlockResponse_Status -f1) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["status" Text +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"Status"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"status") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ConsensusInitializeBlockResponse where + toJSONPB :: ConsensusInitializeBlockResponse -> Options -> Value +toJSONPB (ConsensusInitializeBlockResponse Enumerated ConsensusInitializeBlockResponse_Status +f1) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"status" Text -> Enumerated ConsensusInitializeBlockResponse_Status -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated ConsensusInitializeBlockResponse_Status -f1]) - toEncodingPB :: ConsensusInitializeBlockResponse -> Options -> Encoding -toEncodingPB (ConsensusInitializeBlockResponse f1 :: Enumerated ConsensusInitializeBlockResponse_Status -f1) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["status" Text +.= Enumerated ConsensusInitializeBlockResponse_Status +f1]) + toEncodingPB :: ConsensusInitializeBlockResponse -> Options -> Encoding +toEncodingPB (ConsensusInitializeBlockResponse Enumerated ConsensusInitializeBlockResponse_Status +f1) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"status" Text -> Enumerated ConsensusInitializeBlockResponse_Status -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated ConsensusInitializeBlockResponse_Status -f1]) - -instance HsJSONPB.FromJSONPB ConsensusInitializeBlockResponse where - parseJSONPB :: Value -> Parser ConsensusInitializeBlockResponse -parseJSONPB - = (String +.= Enumerated ConsensusInitializeBlockResponse_Status +f1]) + +instance HsJSONPB.FromJSONPB ConsensusInitializeBlockResponse where + parseJSONPB :: Value -> Parser ConsensusInitializeBlockResponse +parseJSONPB + = (String -> (Object -> Parser ConsensusInitializeBlockResponse) -> Value -> Parser ConsensusInitializeBlockResponse forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ConsensusInitializeBlockResponse" - (\ obj :: Object -obj -> - ((Enumerated ConsensusInitializeBlockResponse_Status +HsJSONPB.withObject String +"ConsensusInitializeBlockResponse" + (\ Object +obj -> + ((Enumerated ConsensusInitializeBlockResponse_Status -> ConsensusInitializeBlockResponse) -> Parser (Enumerated ConsensusInitializeBlockResponse_Status -> ConsensusInitializeBlockResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ConsensusInitializeBlockResponse_Status +Hs.pure Enumerated ConsensusInitializeBlockResponse_Status -> ConsensusInitializeBlockResponse ConsensusInitializeBlockResponse) Parser (Enumerated ConsensusInitializeBlockResponse_Status @@ -10834,66 +11528,68 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Parser (Enumerated ConsensusInitializeBlockResponse_Status) -> Parser ConsensusInitializeBlockResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object +<*> Object +obj Object -> Text -> Parser (Enumerated ConsensusInitializeBlockResponse_Status) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "status")) - -instance HsJSONPB.ToJSON ConsensusInitializeBlockResponse where - toJSON :: ConsensusInitializeBlockResponse -> Value -toJSON = ConsensusInitializeBlockResponse -> Value +.: Text +"status")) + +instance HsJSONPB.ToJSON ConsensusInitializeBlockResponse where + toJSON :: ConsensusInitializeBlockResponse -> Value +toJSON = ConsensusInitializeBlockResponse -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ConsensusInitializeBlockResponse -> Encoding -toEncoding = ConsensusInitializeBlockResponse -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ConsensusInitializeBlockResponse -> Encoding +toEncoding = ConsensusInitializeBlockResponse -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ConsensusInitializeBlockResponse where - parseJSON :: Value -> Parser ConsensusInitializeBlockResponse -parseJSON = Value -> Parser ConsensusInitializeBlockResponse +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ConsensusInitializeBlockResponse where + parseJSON :: Value -> Parser ConsensusInitializeBlockResponse +parseJSON = Value -> Parser ConsensusInitializeBlockResponse forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ConsensusInitializeBlockResponse where - declareNamedSchema :: Proxy ConsensusInitializeBlockResponse +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ConsensusInitializeBlockResponse where + declareNamedSchema :: Proxy ConsensusInitializeBlockResponse -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_status :: Proxy +declareNamedSchema Proxy ConsensusInitializeBlockResponse +_ + = do let declare_status :: Proxy (OverrideToSchema (Enumerated ConsensusInitializeBlockResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status = Proxy +declare_status = Proxy (OverrideToSchema (Enumerated ConsensusInitializeBlockResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -consensusInitializeBlockResponseStatus <- Proxy +HsJSONPB.declareSchemaRef + Referenced Schema +consensusInitializeBlockResponseStatus <- Proxy (OverrideToSchema (Enumerated ConsensusInitializeBlockResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status - Proxy +declare_status + Proxy (OverrideToSchema (Enumerated ConsensusInitializeBlockResponse_Status)) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ConsensusInitializeBlockResponse +Proxy.Proxy + let Proxy ConsensusInitializeBlockResponse _ = (Enumerated ConsensusInitializeBlockResponse_Status -> ConsensusInitializeBlockResponse) -> Proxy (Enumerated ConsensusInitializeBlockResponse_Status -> ConsensusInitializeBlockResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ConsensusInitializeBlockResponse_Status +Hs.pure Enumerated ConsensusInitializeBlockResponse_Status -> ConsensusInitializeBlockResponse ConsensusInitializeBlockResponse Proxy (Enumerated ConsensusInitializeBlockResponse_Status @@ -10901,61 +11597,63 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Proxy (Enumerated ConsensusInitializeBlockResponse_Status) -> Proxy ConsensusInitializeBlockResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy +<*> + (Proxy (OverrideToSchema (Enumerated ConsensusInitializeBlockResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Enumerated ConsensusInitializeBlockResponse_Status) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy +HsJSONPB.asProxy Proxy (OverrideToSchema (Enumerated ConsensusInitializeBlockResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_status + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ConsensusInitializeBlockResponse", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ConsensusInitializeBlockResponse", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("status", - Referenced Schema -consensusInitializeBlockResponseStatus)]}}) - -data ConsensusInitializeBlockResponse_Status = ConsensusInitializeBlockResponse_StatusSTATUS_UNSET - | ConsensusInitializeBlockResponse_StatusOK - | ConsensusInitializeBlockResponse_StatusBAD_REQUEST - | ConsensusInitializeBlockResponse_StatusSERVICE_ERROR - | ConsensusInitializeBlockResponse_StatusNOT_READY - | ConsensusInitializeBlockResponse_StatusINVALID_STATE - | ConsensusInitializeBlockResponse_StatusUNKNOWN_BLOCK - | ConsensusInitializeBlockResponse_StatusNOT_ACTIVE_ENGINE - deriving (Int -> ConsensusInitializeBlockResponse_Status -> ShowS +HsJSONPB.insOrdFromList + [(Text +"status", + Referenced Schema +consensusInitializeBlockResponseStatus)]}}) + +data ConsensusInitializeBlockResponse_Status = ConsensusInitializeBlockResponse_StatusSTATUS_UNSET + | ConsensusInitializeBlockResponse_StatusOK + | ConsensusInitializeBlockResponse_StatusBAD_REQUEST + | ConsensusInitializeBlockResponse_StatusSERVICE_ERROR + | ConsensusInitializeBlockResponse_StatusNOT_READY + | ConsensusInitializeBlockResponse_StatusINVALID_STATE + | ConsensusInitializeBlockResponse_StatusUNKNOWN_BLOCK + | ConsensusInitializeBlockResponse_StatusNOT_ACTIVE_ENGINE + deriving (Int -> ConsensusInitializeBlockResponse_Status -> ShowS [ConsensusInitializeBlockResponse_Status] -> ShowS ConsensusInitializeBlockResponse_Status -> String (Int -> ConsensusInitializeBlockResponse_Status -> ShowS) @@ -10970,7 +11668,7 @@ show :: ConsensusInitializeBlockResponse_Status -> String $cshow :: ConsensusInitializeBlockResponse_Status -> String showsPrec :: Int -> ConsensusInitializeBlockResponse_Status -> ShowS $cshowsPrec :: Int -> ConsensusInitializeBlockResponse_Status -> ShowS -Hs.Show, ConsensusInitializeBlockResponse_Status +Hs.Show, ConsensusInitializeBlockResponse_Status -> ConsensusInitializeBlockResponse_Status -> Bool (ConsensusInitializeBlockResponse_Status -> ConsensusInitializeBlockResponse_Status -> Bool) @@ -10986,7 +11684,7 @@ $c/= :: ConsensusInitializeBlockResponse_Status -> ConsensusInitializeBlockResponse_Status -> Bool $c== :: ConsensusInitializeBlockResponse_Status -> ConsensusInitializeBlockResponse_Status -> Bool -Hs.Eq, (forall x. +Hs.Eq, (forall x. ConsensusInitializeBlockResponse_Status -> Rep ConsensusInitializeBlockResponse_Status x) -> (forall x. @@ -11007,225 +11705,255 @@ Rep ConsensusInitializeBlockResponse_Status x $cfrom :: forall x. ConsensusInitializeBlockResponse_Status -> Rep ConsensusInitializeBlockResponse_Status x -Hs.Generic, ConsensusInitializeBlockResponse_Status -> () +Hs.Generic, ConsensusInitializeBlockResponse_Status -> () (ConsensusInitializeBlockResponse_Status -> ()) -> NFData ConsensusInitializeBlockResponse_Status forall a. (a -> ()) -> NFData a rnf :: ConsensusInitializeBlockResponse_Status -> () $crnf :: ConsensusInitializeBlockResponse_Status -> () -Hs.NFData) - -instance HsProtobuf.Named ConsensusInitializeBlockResponse_Status - where - nameOf :: Proxy# ConsensusInitializeBlockResponse_Status -> string -nameOf _ - = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ConsensusInitializeBlockResponse_Status + where + nameOf :: Proxy# ConsensusInitializeBlockResponse_Status -> string +nameOf Proxy# ConsensusInitializeBlockResponse_Status +_ + = (String -> string forall a. IsString a => String -> a -Hs.fromString "ConsensusInitializeBlockResponse_Status") - -instance HsProtobuf.HasDefault - ConsensusInitializeBlockResponse_Status - -instance Hs.Bounded ConsensusInitializeBlockResponse_Status where - minBound :: ConsensusInitializeBlockResponse_Status -minBound = ConsensusInitializeBlockResponse_Status +Hs.fromString String +"ConsensusInitializeBlockResponse_Status") + +instance HsProtobuf.HasDefault + ConsensusInitializeBlockResponse_Status + +instance Hs.Bounded ConsensusInitializeBlockResponse_Status where + minBound :: ConsensusInitializeBlockResponse_Status +minBound = ConsensusInitializeBlockResponse_Status ConsensusInitializeBlockResponse_StatusSTATUS_UNSET - maxBound :: ConsensusInitializeBlockResponse_Status -maxBound = ConsensusInitializeBlockResponse_Status + maxBound :: ConsensusInitializeBlockResponse_Status +maxBound = ConsensusInitializeBlockResponse_Status ConsensusInitializeBlockResponse_StatusNOT_ACTIVE_ENGINE - -instance Hs.Ord ConsensusInitializeBlockResponse_Status where - compare :: ConsensusInitializeBlockResponse_Status + +instance Hs.Ord ConsensusInitializeBlockResponse_Status where + compare :: ConsensusInitializeBlockResponse_Status -> ConsensusInitializeBlockResponse_Status -> Ordering -compare x :: ConsensusInitializeBlockResponse_Status -x y :: ConsensusInitializeBlockResponse_Status -y - = Int32 -> Int32 -> Ordering +compare ConsensusInitializeBlockResponse_Status +x ConsensusInitializeBlockResponse_Status +y + = Int32 -> Int32 -> Ordering forall a. Ord a => a -> a -> Ordering -Hs.compare (ConsensusInitializeBlockResponse_Status -> Int32 +Hs.compare (ConsensusInitializeBlockResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum ConsensusInitializeBlockResponse_Status -x) - (ConsensusInitializeBlockResponse_Status -> Int32 +HsProtobuf.fromProtoEnum ConsensusInitializeBlockResponse_Status +x) + (ConsensusInitializeBlockResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum ConsensusInitializeBlockResponse_Status -y) - -instance HsProtobuf.ProtoEnum - ConsensusInitializeBlockResponse_Status where - toProtoEnumMay :: Int32 -> Maybe ConsensusInitializeBlockResponse_Status -toProtoEnumMay 0 - = ConsensusInitializeBlockResponse_Status +HsProtobuf.fromProtoEnum ConsensusInitializeBlockResponse_Status +y) + +instance HsProtobuf.ProtoEnum + ConsensusInitializeBlockResponse_Status where + toProtoEnumMay :: Int32 -> Maybe ConsensusInitializeBlockResponse_Status +toProtoEnumMay Int32 +0 + = ConsensusInitializeBlockResponse_Status -> Maybe ConsensusInitializeBlockResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusInitializeBlockResponse_Status +Hs.Just ConsensusInitializeBlockResponse_Status ConsensusInitializeBlockResponse_StatusSTATUS_UNSET - toProtoEnumMay 1 - = ConsensusInitializeBlockResponse_Status + toProtoEnumMay Int32 +1 + = ConsensusInitializeBlockResponse_Status -> Maybe ConsensusInitializeBlockResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusInitializeBlockResponse_Status +Hs.Just ConsensusInitializeBlockResponse_Status ConsensusInitializeBlockResponse_StatusOK - toProtoEnumMay 2 - = ConsensusInitializeBlockResponse_Status + toProtoEnumMay Int32 +2 + = ConsensusInitializeBlockResponse_Status -> Maybe ConsensusInitializeBlockResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusInitializeBlockResponse_Status +Hs.Just ConsensusInitializeBlockResponse_Status ConsensusInitializeBlockResponse_StatusBAD_REQUEST - toProtoEnumMay 3 - = ConsensusInitializeBlockResponse_Status + toProtoEnumMay Int32 +3 + = ConsensusInitializeBlockResponse_Status -> Maybe ConsensusInitializeBlockResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusInitializeBlockResponse_Status +Hs.Just ConsensusInitializeBlockResponse_Status ConsensusInitializeBlockResponse_StatusSERVICE_ERROR - toProtoEnumMay 4 - = ConsensusInitializeBlockResponse_Status + toProtoEnumMay Int32 +4 + = ConsensusInitializeBlockResponse_Status -> Maybe ConsensusInitializeBlockResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusInitializeBlockResponse_Status +Hs.Just ConsensusInitializeBlockResponse_Status ConsensusInitializeBlockResponse_StatusNOT_READY - toProtoEnumMay 5 - = ConsensusInitializeBlockResponse_Status + toProtoEnumMay Int32 +5 + = ConsensusInitializeBlockResponse_Status -> Maybe ConsensusInitializeBlockResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusInitializeBlockResponse_Status +Hs.Just ConsensusInitializeBlockResponse_Status ConsensusInitializeBlockResponse_StatusINVALID_STATE - toProtoEnumMay 6 - = ConsensusInitializeBlockResponse_Status + toProtoEnumMay Int32 +6 + = ConsensusInitializeBlockResponse_Status -> Maybe ConsensusInitializeBlockResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusInitializeBlockResponse_Status +Hs.Just ConsensusInitializeBlockResponse_Status ConsensusInitializeBlockResponse_StatusUNKNOWN_BLOCK - toProtoEnumMay 7 - = ConsensusInitializeBlockResponse_Status + toProtoEnumMay Int32 +7 + = ConsensusInitializeBlockResponse_Status -> Maybe ConsensusInitializeBlockResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusInitializeBlockResponse_Status +Hs.Just ConsensusInitializeBlockResponse_Status ConsensusInitializeBlockResponse_StatusNOT_ACTIVE_ENGINE - toProtoEnumMay _ = Maybe ConsensusInitializeBlockResponse_Status + toProtoEnumMay Int32 +_ = Maybe ConsensusInitializeBlockResponse_Status forall a. Maybe a -Hs.Nothing - fromProtoEnum :: ConsensusInitializeBlockResponse_Status -> Int32 -fromProtoEnum (ConsensusInitializeBlockResponse_Status +Hs.Nothing + fromProtoEnum :: ConsensusInitializeBlockResponse_Status -> Int32 +fromProtoEnum (ConsensusInitializeBlockResponse_Status ConsensusInitializeBlockResponse_StatusSTATUS_UNSET) - = 0 - fromProtoEnum (ConsensusInitializeBlockResponse_Status -ConsensusInitializeBlockResponse_StatusOK) = 1 - fromProtoEnum (ConsensusInitializeBlockResponse_Status + = Int32 +0 + fromProtoEnum (ConsensusInitializeBlockResponse_Status +ConsensusInitializeBlockResponse_StatusOK) = Int32 +1 + fromProtoEnum (ConsensusInitializeBlockResponse_Status ConsensusInitializeBlockResponse_StatusBAD_REQUEST) - = 2 - fromProtoEnum - (ConsensusInitializeBlockResponse_Status -ConsensusInitializeBlockResponse_StatusSERVICE_ERROR) = 3 - fromProtoEnum (ConsensusInitializeBlockResponse_Status + = Int32 +2 + fromProtoEnum + (ConsensusInitializeBlockResponse_Status +ConsensusInitializeBlockResponse_StatusSERVICE_ERROR) = Int32 +3 + fromProtoEnum (ConsensusInitializeBlockResponse_Status ConsensusInitializeBlockResponse_StatusNOT_READY) - = 4 - fromProtoEnum - (ConsensusInitializeBlockResponse_Status -ConsensusInitializeBlockResponse_StatusINVALID_STATE) = 5 - fromProtoEnum - (ConsensusInitializeBlockResponse_Status -ConsensusInitializeBlockResponse_StatusUNKNOWN_BLOCK) = 6 - fromProtoEnum - (ConsensusInitializeBlockResponse_Status -ConsensusInitializeBlockResponse_StatusNOT_ACTIVE_ENGINE) = 7 - -instance HsJSONPB.ToJSONPB ConsensusInitializeBlockResponse_Status - where - toJSONPB :: ConsensusInitializeBlockResponse_Status -> Options -> Value -toJSONPB x :: ConsensusInitializeBlockResponse_Status -x _ = ConsensusInitializeBlockResponse_Status -> Value + = Int32 +4 + fromProtoEnum + (ConsensusInitializeBlockResponse_Status +ConsensusInitializeBlockResponse_StatusINVALID_STATE) = Int32 +5 + fromProtoEnum + (ConsensusInitializeBlockResponse_Status +ConsensusInitializeBlockResponse_StatusUNKNOWN_BLOCK) = Int32 +6 + fromProtoEnum + (ConsensusInitializeBlockResponse_Status +ConsensusInitializeBlockResponse_StatusNOT_ACTIVE_ENGINE) = Int32 +7 + +instance HsJSONPB.ToJSONPB ConsensusInitializeBlockResponse_Status + where + toJSONPB :: ConsensusInitializeBlockResponse_Status -> Options -> Value +toJSONPB ConsensusInitializeBlockResponse_Status +x Options +_ = ConsensusInitializeBlockResponse_Status -> Value forall a. (Named a, Show a) => a -> Value -HsJSONPB.enumFieldString ConsensusInitializeBlockResponse_Status -x - toEncodingPB :: ConsensusInitializeBlockResponse_Status -> Options -> Encoding -toEncodingPB x :: ConsensusInitializeBlockResponse_Status -x _ = ConsensusInitializeBlockResponse_Status -> Encoding +HsJSONPB.enumFieldString ConsensusInitializeBlockResponse_Status +x + toEncodingPB :: ConsensusInitializeBlockResponse_Status -> Options -> Encoding +toEncodingPB ConsensusInitializeBlockResponse_Status +x Options +_ = ConsensusInitializeBlockResponse_Status -> Encoding forall a. (Named a, Show a) => a -> Encoding -HsJSONPB.enumFieldEncoding ConsensusInitializeBlockResponse_Status -x - -instance HsJSONPB.FromJSONPB - ConsensusInitializeBlockResponse_Status where - parseJSONPB :: Value -> Parser ConsensusInitializeBlockResponse_Status -parseJSONPB (HsJSONPB.String "STATUS_UNSET") - = ConsensusInitializeBlockResponse_Status +HsJSONPB.enumFieldEncoding ConsensusInitializeBlockResponse_Status +x + +instance HsJSONPB.FromJSONPB + ConsensusInitializeBlockResponse_Status where + parseJSONPB :: Value -> Parser ConsensusInitializeBlockResponse_Status +parseJSONPB (HsJSONPB.String Text +"STATUS_UNSET") + = ConsensusInitializeBlockResponse_Status -> Parser ConsensusInitializeBlockResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusInitializeBlockResponse_Status +Hs.pure ConsensusInitializeBlockResponse_Status ConsensusInitializeBlockResponse_StatusSTATUS_UNSET - parseJSONPB (HsJSONPB.String "OK") - = ConsensusInitializeBlockResponse_Status + parseJSONPB (HsJSONPB.String Text +"OK") + = ConsensusInitializeBlockResponse_Status -> Parser ConsensusInitializeBlockResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusInitializeBlockResponse_Status +Hs.pure ConsensusInitializeBlockResponse_Status ConsensusInitializeBlockResponse_StatusOK - parseJSONPB (HsJSONPB.String "BAD_REQUEST") - = ConsensusInitializeBlockResponse_Status + parseJSONPB (HsJSONPB.String Text +"BAD_REQUEST") + = ConsensusInitializeBlockResponse_Status -> Parser ConsensusInitializeBlockResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusInitializeBlockResponse_Status +Hs.pure ConsensusInitializeBlockResponse_Status ConsensusInitializeBlockResponse_StatusBAD_REQUEST - parseJSONPB (HsJSONPB.String "SERVICE_ERROR") - = ConsensusInitializeBlockResponse_Status + parseJSONPB (HsJSONPB.String Text +"SERVICE_ERROR") + = ConsensusInitializeBlockResponse_Status -> Parser ConsensusInitializeBlockResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusInitializeBlockResponse_Status +Hs.pure ConsensusInitializeBlockResponse_Status ConsensusInitializeBlockResponse_StatusSERVICE_ERROR - parseJSONPB (HsJSONPB.String "NOT_READY") - = ConsensusInitializeBlockResponse_Status + parseJSONPB (HsJSONPB.String Text +"NOT_READY") + = ConsensusInitializeBlockResponse_Status -> Parser ConsensusInitializeBlockResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusInitializeBlockResponse_Status +Hs.pure ConsensusInitializeBlockResponse_Status ConsensusInitializeBlockResponse_StatusNOT_READY - parseJSONPB (HsJSONPB.String "INVALID_STATE") - = ConsensusInitializeBlockResponse_Status + parseJSONPB (HsJSONPB.String Text +"INVALID_STATE") + = ConsensusInitializeBlockResponse_Status -> Parser ConsensusInitializeBlockResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusInitializeBlockResponse_Status +Hs.pure ConsensusInitializeBlockResponse_Status ConsensusInitializeBlockResponse_StatusINVALID_STATE - parseJSONPB (HsJSONPB.String "UNKNOWN_BLOCK") - = ConsensusInitializeBlockResponse_Status + parseJSONPB (HsJSONPB.String Text +"UNKNOWN_BLOCK") + = ConsensusInitializeBlockResponse_Status -> Parser ConsensusInitializeBlockResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusInitializeBlockResponse_Status +Hs.pure ConsensusInitializeBlockResponse_Status ConsensusInitializeBlockResponse_StatusUNKNOWN_BLOCK - parseJSONPB (HsJSONPB.String "NOT_ACTIVE_ENGINE") - = ConsensusInitializeBlockResponse_Status + parseJSONPB (HsJSONPB.String Text +"NOT_ACTIVE_ENGINE") + = ConsensusInitializeBlockResponse_Status -> Parser ConsensusInitializeBlockResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusInitializeBlockResponse_Status +Hs.pure ConsensusInitializeBlockResponse_Status ConsensusInitializeBlockResponse_StatusNOT_ACTIVE_ENGINE - parseJSONPB v :: Value -v - = (String -> Value -> Parser ConsensusInitializeBlockResponse_Status + parseJSONPB Value +v + = (String -> Value -> Parser ConsensusInitializeBlockResponse_Status forall a. String -> Value -> Parser a -HsJSONPB.typeMismatch "ConsensusInitializeBlockResponse_Status" - Value -v) - -instance HsJSONPB.ToJSON ConsensusInitializeBlockResponse_Status - where - toJSON :: ConsensusInitializeBlockResponse_Status -> Value -toJSON = ConsensusInitializeBlockResponse_Status -> Value +HsJSONPB.typeMismatch String +"ConsensusInitializeBlockResponse_Status" + Value +v) + +instance HsJSONPB.ToJSON ConsensusInitializeBlockResponse_Status + where + toJSON :: ConsensusInitializeBlockResponse_Status -> Value +toJSON = ConsensusInitializeBlockResponse_Status -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ConsensusInitializeBlockResponse_Status -> Encoding -toEncoding = ConsensusInitializeBlockResponse_Status -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ConsensusInitializeBlockResponse_Status -> Encoding +toEncoding = ConsensusInitializeBlockResponse_Status -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ConsensusInitializeBlockResponse_Status - where - parseJSON :: Value -> Parser ConsensusInitializeBlockResponse_Status -parseJSON = Value -> Parser ConsensusInitializeBlockResponse_Status +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ConsensusInitializeBlockResponse_Status + where + parseJSON :: Value -> Parser ConsensusInitializeBlockResponse_Status +parseJSON = Value -> Parser ConsensusInitializeBlockResponse_Status forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsProtobuf.Finite ConsensusInitializeBlockResponse_Status - -data ConsensusSummarizeBlockRequest = ConsensusSummarizeBlockRequest{} - deriving (Int -> ConsensusSummarizeBlockRequest -> ShowS +HsJSONPB.parseJSONPB + +instance HsProtobuf.Finite ConsensusInitializeBlockResponse_Status + +data ConsensusSummarizeBlockRequest = ConsensusSummarizeBlockRequest{} + deriving (Int -> ConsensusSummarizeBlockRequest -> ShowS [ConsensusSummarizeBlockRequest] -> ShowS ConsensusSummarizeBlockRequest -> String (Int -> ConsensusSummarizeBlockRequest -> ShowS) @@ -11240,7 +11968,7 @@ show :: ConsensusSummarizeBlockRequest -> String $cshow :: ConsensusSummarizeBlockRequest -> String showsPrec :: Int -> ConsensusSummarizeBlockRequest -> ShowS $cshowsPrec :: Int -> ConsensusSummarizeBlockRequest -> ShowS -Hs.Show, ConsensusSummarizeBlockRequest +Hs.Show, ConsensusSummarizeBlockRequest -> ConsensusSummarizeBlockRequest -> Bool (ConsensusSummarizeBlockRequest -> ConsensusSummarizeBlockRequest -> Bool) @@ -11256,10 +11984,10 @@ $c/= :: ConsensusSummarizeBlockRequest -> ConsensusSummarizeBlockRequest -> Bool $c== :: ConsensusSummarizeBlockRequest -> ConsensusSummarizeBlockRequest -> Bool -Hs.Eq, Eq ConsensusSummarizeBlockRequest -Eq ConsensusSummarizeBlockRequest => -(ConsensusSummarizeBlockRequest - -> ConsensusSummarizeBlockRequest -> Ordering) +Hs.Eq, Eq ConsensusSummarizeBlockRequest +Eq ConsensusSummarizeBlockRequest +-> (ConsensusSummarizeBlockRequest + -> ConsensusSummarizeBlockRequest -> Ordering) -> (ConsensusSummarizeBlockRequest -> ConsensusSummarizeBlockRequest -> Bool) -> (ConsensusSummarizeBlockRequest @@ -11282,8 +12010,8 @@ ConsensusSummarizeBlockRequest ConsensusSummarizeBlockRequest -> ConsensusSummarizeBlockRequest -> ConsensusSummarizeBlockRequest forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -11320,7 +12048,7 @@ compare :: ConsensusSummarizeBlockRequest $ccompare :: ConsensusSummarizeBlockRequest -> ConsensusSummarizeBlockRequest -> Ordering $cp1Ord :: Eq ConsensusSummarizeBlockRequest -Hs.Ord, (forall x. +Hs.Ord, (forall x. ConsensusSummarizeBlockRequest -> Rep ConsensusSummarizeBlockRequest x) -> (forall x. @@ -11341,123 +12069,131 @@ Rep ConsensusSummarizeBlockRequest x $cfrom :: forall x. ConsensusSummarizeBlockRequest -> Rep ConsensusSummarizeBlockRequest x -Hs.Generic, ConsensusSummarizeBlockRequest -> () +Hs.Generic, ConsensusSummarizeBlockRequest -> () (ConsensusSummarizeBlockRequest -> ()) -> NFData ConsensusSummarizeBlockRequest forall a. (a -> ()) -> NFData a rnf :: ConsensusSummarizeBlockRequest -> () $crnf :: ConsensusSummarizeBlockRequest -> () -Hs.NFData) - -instance HsProtobuf.Named ConsensusSummarizeBlockRequest where - nameOf :: Proxy# ConsensusSummarizeBlockRequest -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ConsensusSummarizeBlockRequest where + nameOf :: Proxy# ConsensusSummarizeBlockRequest -> string +nameOf Proxy# ConsensusSummarizeBlockRequest +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ConsensusSummarizeBlockRequest") - -instance HsProtobuf.HasDefault ConsensusSummarizeBlockRequest - -instance HsProtobuf.Message ConsensusSummarizeBlockRequest where - encodeMessage :: FieldNumber -> ConsensusSummarizeBlockRequest -> MessageBuilder -encodeMessage _ ConsensusSummarizeBlockRequest{} = ([MessageBuilder] -> MessageBuilder +Hs.fromString String +"ConsensusSummarizeBlockRequest") + +instance HsProtobuf.HasDefault ConsensusSummarizeBlockRequest + +instance HsProtobuf.Message ConsensusSummarizeBlockRequest where + encodeMessage :: FieldNumber -> ConsensusSummarizeBlockRequest -> MessageBuilder +encodeMessage FieldNumber +_ ConsensusSummarizeBlockRequest{} = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat []) - decodeMessage :: FieldNumber -> Parser RawMessage ConsensusSummarizeBlockRequest -decodeMessage _ = (ConsensusSummarizeBlockRequest +Hs.mconcat []) + decodeMessage :: FieldNumber -> Parser RawMessage ConsensusSummarizeBlockRequest +decodeMessage FieldNumber +_ = (ConsensusSummarizeBlockRequest -> Parser RawMessage ConsensusSummarizeBlockRequest forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusSummarizeBlockRequest +Hs.pure ConsensusSummarizeBlockRequest ConsensusSummarizeBlockRequest) - dotProto :: Proxy# ConsensusSummarizeBlockRequest -> [DotProtoField] -dotProto _ = [] - -instance HsJSONPB.ToJSONPB ConsensusSummarizeBlockRequest where - toJSONPB :: ConsensusSummarizeBlockRequest -> Options -> Value -toJSONPB (ConsensusSummarizeBlockRequest + dotProto :: Proxy# ConsensusSummarizeBlockRequest -> [DotProtoField] +dotProto Proxy# ConsensusSummarizeBlockRequest +_ = [] + +instance HsJSONPB.ToJSONPB ConsensusSummarizeBlockRequest where + toJSONPB :: ConsensusSummarizeBlockRequest -> Options -> Value +toJSONPB (ConsensusSummarizeBlockRequest ConsensusSummarizeBlockRequest) = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object []) - toEncodingPB :: ConsensusSummarizeBlockRequest -> Options -> Encoding -toEncodingPB (ConsensusSummarizeBlockRequest +HsJSONPB.object []) + toEncodingPB :: ConsensusSummarizeBlockRequest -> Options -> Encoding +toEncodingPB (ConsensusSummarizeBlockRequest ConsensusSummarizeBlockRequest) = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs []) - -instance HsJSONPB.FromJSONPB ConsensusSummarizeBlockRequest where - parseJSONPB :: Value -> Parser ConsensusSummarizeBlockRequest -parseJSONPB - = (String +HsJSONPB.pairs []) + +instance HsJSONPB.FromJSONPB ConsensusSummarizeBlockRequest where + parseJSONPB :: Value -> Parser ConsensusSummarizeBlockRequest +parseJSONPB + = (String -> (Object -> Parser ConsensusSummarizeBlockRequest) -> Value -> Parser ConsensusSummarizeBlockRequest forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ConsensusSummarizeBlockRequest" - (\ obj :: Object -obj -> (ConsensusSummarizeBlockRequest +HsJSONPB.withObject String +"ConsensusSummarizeBlockRequest" + (\ Object +obj -> (ConsensusSummarizeBlockRequest -> Parser ConsensusSummarizeBlockRequest forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusSummarizeBlockRequest +Hs.pure ConsensusSummarizeBlockRequest ConsensusSummarizeBlockRequest))) - -instance HsJSONPB.ToJSON ConsensusSummarizeBlockRequest where - toJSON :: ConsensusSummarizeBlockRequest -> Value -toJSON = ConsensusSummarizeBlockRequest -> Value + +instance HsJSONPB.ToJSON ConsensusSummarizeBlockRequest where + toJSON :: ConsensusSummarizeBlockRequest -> Value +toJSON = ConsensusSummarizeBlockRequest -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ConsensusSummarizeBlockRequest -> Encoding -toEncoding = ConsensusSummarizeBlockRequest -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ConsensusSummarizeBlockRequest -> Encoding +toEncoding = ConsensusSummarizeBlockRequest -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ConsensusSummarizeBlockRequest where - parseJSON :: Value -> Parser ConsensusSummarizeBlockRequest -parseJSON = Value -> Parser ConsensusSummarizeBlockRequest +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ConsensusSummarizeBlockRequest where + parseJSON :: Value -> Parser ConsensusSummarizeBlockRequest +parseJSON = Value -> Parser ConsensusSummarizeBlockRequest forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ConsensusSummarizeBlockRequest where - declareNamedSchema :: Proxy ConsensusSummarizeBlockRequest +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ConsensusSummarizeBlockRequest where + declareNamedSchema :: Proxy ConsensusSummarizeBlockRequest -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do NamedSchema -> Declare (Definitions Schema) NamedSchema +declareNamedSchema Proxy ConsensusSummarizeBlockRequest +_ + = do NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ConsensusSummarizeBlockRequest", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ConsensusSummarizeBlockRequest", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList []}}) - -data ConsensusSummarizeBlockResponse = ConsensusSummarizeBlockResponse{ConsensusSummarizeBlockResponse +HsJSONPB.insOrdFromList []}}) + +data ConsensusSummarizeBlockResponse = ConsensusSummarizeBlockResponse{ConsensusSummarizeBlockResponse -> Enumerated ConsensusSummarizeBlockResponse_Status consensusSummarizeBlockResponseStatus - :: - HsProtobuf.Enumerated - Data.Sawtooth.Consensus.ConsensusSummarizeBlockResponse_Status, - ConsensusSummarizeBlockResponse -> ByteString + :: + HsProtobuf.Enumerated + Data.Sawtooth.Consensus.ConsensusSummarizeBlockResponse_Status, + ConsensusSummarizeBlockResponse -> ByteString consensusSummarizeBlockResponseSummary - :: Hs.ByteString} - deriving (Int -> ConsensusSummarizeBlockResponse -> ShowS + :: Hs.ByteString} + deriving (Int -> ConsensusSummarizeBlockResponse -> ShowS [ConsensusSummarizeBlockResponse] -> ShowS ConsensusSummarizeBlockResponse -> String (Int -> ConsensusSummarizeBlockResponse -> ShowS) @@ -11472,7 +12208,7 @@ show :: ConsensusSummarizeBlockResponse -> String $cshow :: ConsensusSummarizeBlockResponse -> String showsPrec :: Int -> ConsensusSummarizeBlockResponse -> ShowS $cshowsPrec :: Int -> ConsensusSummarizeBlockResponse -> ShowS -Hs.Show, ConsensusSummarizeBlockResponse +Hs.Show, ConsensusSummarizeBlockResponse -> ConsensusSummarizeBlockResponse -> Bool (ConsensusSummarizeBlockResponse -> ConsensusSummarizeBlockResponse -> Bool) @@ -11488,10 +12224,10 @@ $c/= :: ConsensusSummarizeBlockResponse -> ConsensusSummarizeBlockResponse -> Bool $c== :: ConsensusSummarizeBlockResponse -> ConsensusSummarizeBlockResponse -> Bool -Hs.Eq, Eq ConsensusSummarizeBlockResponse -Eq ConsensusSummarizeBlockResponse => -(ConsensusSummarizeBlockResponse - -> ConsensusSummarizeBlockResponse -> Ordering) +Hs.Eq, Eq ConsensusSummarizeBlockResponse +Eq ConsensusSummarizeBlockResponse +-> (ConsensusSummarizeBlockResponse + -> ConsensusSummarizeBlockResponse -> Ordering) -> (ConsensusSummarizeBlockResponse -> ConsensusSummarizeBlockResponse -> Bool) -> (ConsensusSummarizeBlockResponse @@ -11515,8 +12251,8 @@ ConsensusSummarizeBlockResponse -> ConsensusSummarizeBlockResponse -> ConsensusSummarizeBlockResponse forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -11557,7 +12293,7 @@ compare :: ConsensusSummarizeBlockResponse $ccompare :: ConsensusSummarizeBlockResponse -> ConsensusSummarizeBlockResponse -> Ordering $cp1Ord :: Eq ConsensusSummarizeBlockResponse -Hs.Ord, (forall x. +Hs.Ord, (forall x. ConsensusSummarizeBlockResponse -> Rep ConsensusSummarizeBlockResponse x) -> (forall x. @@ -11578,61 +12314,67 @@ Rep ConsensusSummarizeBlockResponse x $cfrom :: forall x. ConsensusSummarizeBlockResponse -> Rep ConsensusSummarizeBlockResponse x -Hs.Generic, ConsensusSummarizeBlockResponse -> () +Hs.Generic, ConsensusSummarizeBlockResponse -> () (ConsensusSummarizeBlockResponse -> ()) -> NFData ConsensusSummarizeBlockResponse forall a. (a -> ()) -> NFData a rnf :: ConsensusSummarizeBlockResponse -> () $crnf :: ConsensusSummarizeBlockResponse -> () -Hs.NFData) - -instance HsProtobuf.Named ConsensusSummarizeBlockResponse where - nameOf :: Proxy# ConsensusSummarizeBlockResponse -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ConsensusSummarizeBlockResponse where + nameOf :: Proxy# ConsensusSummarizeBlockResponse -> string +nameOf Proxy# ConsensusSummarizeBlockResponse +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ConsensusSummarizeBlockResponse") - -instance HsProtobuf.HasDefault ConsensusSummarizeBlockResponse - -instance HsProtobuf.Message ConsensusSummarizeBlockResponse where - encodeMessage :: FieldNumber -> ConsensusSummarizeBlockResponse -> MessageBuilder -encodeMessage _ - ConsensusSummarizeBlockResponse{consensusSummarizeBlockResponseStatus :: ConsensusSummarizeBlockResponse +Hs.fromString String +"ConsensusSummarizeBlockResponse") + +instance HsProtobuf.HasDefault ConsensusSummarizeBlockResponse + +instance HsProtobuf.Message ConsensusSummarizeBlockResponse where + encodeMessage :: FieldNumber -> ConsensusSummarizeBlockResponse -> MessageBuilder +encodeMessage FieldNumber +_ + ConsensusSummarizeBlockResponse{consensusSummarizeBlockResponseStatus :: ConsensusSummarizeBlockResponse -> Enumerated ConsensusSummarizeBlockResponse_Status consensusSummarizeBlockResponseStatus - = Enumerated ConsensusSummarizeBlockResponse_Status -consensusSummarizeBlockResponseStatus, - consensusSummarizeBlockResponseSummary :: ConsensusSummarizeBlockResponse -> ByteString + = Enumerated ConsensusSummarizeBlockResponse_Status +consensusSummarizeBlockResponseStatus, + consensusSummarizeBlockResponseSummary :: ConsensusSummarizeBlockResponse -> ByteString consensusSummarizeBlockResponseSummary = - ByteString -consensusSummarizeBlockResponseSummary} - = ([MessageBuilder] -> MessageBuilder + ByteString +consensusSummarizeBlockResponseSummary} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber +Hs.mconcat + [(FieldNumber -> Enumerated ConsensusSummarizeBlockResponse_Status -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Enumerated ConsensusSummarizeBlockResponse_Status -consensusSummarizeBlockResponseStatus), - (FieldNumber -> ByteString -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Enumerated ConsensusSummarizeBlockResponse_Status +consensusSummarizeBlockResponseStatus), + (FieldNumber -> ByteString -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - ByteString -consensusSummarizeBlockResponseSummary)]) - decodeMessage :: FieldNumber -> Parser RawMessage ConsensusSummarizeBlockResponse -decodeMessage _ - = ((Enumerated ConsensusSummarizeBlockResponse_Status +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + ByteString +consensusSummarizeBlockResponseSummary)]) + decodeMessage :: FieldNumber -> Parser RawMessage ConsensusSummarizeBlockResponse +decodeMessage FieldNumber +_ + = ((Enumerated ConsensusSummarizeBlockResponse_Status -> ByteString -> ConsensusSummarizeBlockResponse) -> Parser RawMessage (Enumerated ConsensusSummarizeBlockResponse_Status -> ByteString -> ConsensusSummarizeBlockResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ConsensusSummarizeBlockResponse_Status +Hs.pure Enumerated ConsensusSummarizeBlockResponse_Status -> ByteString -> ConsensusSummarizeBlockResponse ConsensusSummarizeBlockResponse) Parser RawMessage @@ -11643,122 +12385,137 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Parser RawMessage (ByteString -> ConsensusSummarizeBlockResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField (Enumerated ConsensusSummarizeBlockResponse_Status) +<*> + (Parser RawField (Enumerated ConsensusSummarizeBlockResponse_Status) -> FieldNumber -> Parser RawMessage (Enumerated ConsensusSummarizeBlockResponse_Status) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (Enumerated ConsensusSummarizeBlockResponse_Status) +HsProtobuf.at Parser RawField (Enumerated ConsensusSummarizeBlockResponse_Status) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser RawMessage (ByteString -> ConsensusSummarizeBlockResponse) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (ByteString -> ConsensusSummarizeBlockResponse) -> Parser RawMessage ByteString -> Parser RawMessage ConsensusSummarizeBlockResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField ByteString +<*> + (Parser RawField ByteString -> FieldNumber -> Parser RawMessage ByteString forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField ByteString +HsProtobuf.at Parser RawField ByteString forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2)) - dotProto :: Proxy# ConsensusSummarizeBlockResponse -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2)) + dotProto :: Proxy# ConsensusSummarizeBlockResponse -> [DotProtoField] +dotProto Proxy# ConsensusSummarizeBlockResponse +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "Status"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "status") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"Status"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"status") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.Bytes) - (String -> DotProtoIdentifier -HsProtobuf.Single "summary") - [] - "")] - -instance HsJSONPB.ToJSONPB ConsensusSummarizeBlockResponse where - toJSONPB :: ConsensusSummarizeBlockResponse -> Options -> Value -toJSONPB (ConsensusSummarizeBlockResponse f1 :: Enumerated ConsensusSummarizeBlockResponse_Status -f1 f2 :: ByteString -f2) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["status" Text +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.Bytes) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"summary") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ConsensusSummarizeBlockResponse where + toJSONPB :: ConsensusSummarizeBlockResponse -> Options -> Value +toJSONPB (ConsensusSummarizeBlockResponse Enumerated ConsensusSummarizeBlockResponse_Status +f1 ByteString +f2) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"status" Text -> Enumerated ConsensusSummarizeBlockResponse_Status -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated ConsensusSummarizeBlockResponse_Status -f1, "summary" Text -> ByteString -> Options -> [Pair] +.= Enumerated ConsensusSummarizeBlockResponse_Status +f1, Text +"summary" Text -> ByteString -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f2]) - toEncodingPB :: ConsensusSummarizeBlockResponse -> Options -> Encoding -toEncodingPB (ConsensusSummarizeBlockResponse f1 :: Enumerated ConsensusSummarizeBlockResponse_Status -f1 f2 :: ByteString -f2) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["status" Text +.= ByteString +f2]) + toEncodingPB :: ConsensusSummarizeBlockResponse -> Options -> Encoding +toEncodingPB (ConsensusSummarizeBlockResponse Enumerated ConsensusSummarizeBlockResponse_Status +f1 ByteString +f2) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"status" Text -> Enumerated ConsensusSummarizeBlockResponse_Status -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated ConsensusSummarizeBlockResponse_Status -f1, "summary" Text -> ByteString -> Options -> Series +.= Enumerated ConsensusSummarizeBlockResponse_Status +f1, Text +"summary" Text -> ByteString -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f2]) - -instance HsJSONPB.FromJSONPB ConsensusSummarizeBlockResponse where - parseJSONPB :: Value -> Parser ConsensusSummarizeBlockResponse -parseJSONPB - = (String +.= ByteString +f2]) + +instance HsJSONPB.FromJSONPB ConsensusSummarizeBlockResponse where + parseJSONPB :: Value -> Parser ConsensusSummarizeBlockResponse +parseJSONPB + = (String -> (Object -> Parser ConsensusSummarizeBlockResponse) -> Value -> Parser ConsensusSummarizeBlockResponse forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ConsensusSummarizeBlockResponse" - (\ obj :: Object -obj -> - ((Enumerated ConsensusSummarizeBlockResponse_Status +HsJSONPB.withObject String +"ConsensusSummarizeBlockResponse" + (\ Object +obj -> + ((Enumerated ConsensusSummarizeBlockResponse_Status -> ByteString -> ConsensusSummarizeBlockResponse) -> Parser (Enumerated ConsensusSummarizeBlockResponse_Status -> ByteString -> ConsensusSummarizeBlockResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ConsensusSummarizeBlockResponse_Status +Hs.pure Enumerated ConsensusSummarizeBlockResponse_Status -> ByteString -> ConsensusSummarizeBlockResponse ConsensusSummarizeBlockResponse) Parser (Enumerated ConsensusSummarizeBlockResponse_Status @@ -11766,89 +12523,92 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Parser (Enumerated ConsensusSummarizeBlockResponse_Status) -> Parser (ByteString -> ConsensusSummarizeBlockResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object +<*> Object +obj Object -> Text -> Parser (Enumerated ConsensusSummarizeBlockResponse_Status) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "status" Parser (ByteString -> ConsensusSummarizeBlockResponse) +.: Text +"status" Parser (ByteString -> ConsensusSummarizeBlockResponse) -> Parser ByteString -> Parser ConsensusSummarizeBlockResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser ByteString +<*> + Object +obj Object -> Text -> Parser ByteString forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "summary")) - -instance HsJSONPB.ToJSON ConsensusSummarizeBlockResponse where - toJSON :: ConsensusSummarizeBlockResponse -> Value -toJSON = ConsensusSummarizeBlockResponse -> Value +.: Text +"summary")) + +instance HsJSONPB.ToJSON ConsensusSummarizeBlockResponse where + toJSON :: ConsensusSummarizeBlockResponse -> Value +toJSON = ConsensusSummarizeBlockResponse -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ConsensusSummarizeBlockResponse -> Encoding -toEncoding = ConsensusSummarizeBlockResponse -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ConsensusSummarizeBlockResponse -> Encoding +toEncoding = ConsensusSummarizeBlockResponse -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ConsensusSummarizeBlockResponse where - parseJSON :: Value -> Parser ConsensusSummarizeBlockResponse -parseJSON = Value -> Parser ConsensusSummarizeBlockResponse +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ConsensusSummarizeBlockResponse where + parseJSON :: Value -> Parser ConsensusSummarizeBlockResponse +parseJSON = Value -> Parser ConsensusSummarizeBlockResponse forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ConsensusSummarizeBlockResponse where - declareNamedSchema :: Proxy ConsensusSummarizeBlockResponse +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ConsensusSummarizeBlockResponse where + declareNamedSchema :: Proxy ConsensusSummarizeBlockResponse -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_status :: Proxy +declareNamedSchema Proxy ConsensusSummarizeBlockResponse +_ + = do let declare_status :: Proxy (OverrideToSchema (Enumerated ConsensusSummarizeBlockResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status = Proxy +declare_status = Proxy (OverrideToSchema (Enumerated ConsensusSummarizeBlockResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -consensusSummarizeBlockResponseStatus <- Proxy +HsJSONPB.declareSchemaRef + Referenced Schema +consensusSummarizeBlockResponseStatus <- Proxy (OverrideToSchema (Enumerated ConsensusSummarizeBlockResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status Proxy +declare_status Proxy (OverrideToSchema (Enumerated ConsensusSummarizeBlockResponse_Status)) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_summary :: Proxy (OverrideToSchema ByteString) +Proxy.Proxy + let declare_summary :: Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_summary = Proxy (OverrideToSchema ByteString) +declare_summary = Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -consensusSummarizeBlockResponseSummary <- Proxy (OverrideToSchema ByteString) +HsJSONPB.declareSchemaRef + Referenced Schema +consensusSummarizeBlockResponseSummary <- Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_summary - Proxy (OverrideToSchema ByteString) +declare_summary + Proxy (OverrideToSchema ByteString) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ConsensusSummarizeBlockResponse +Proxy.Proxy + let Proxy ConsensusSummarizeBlockResponse _ = (Enumerated ConsensusSummarizeBlockResponse_Status -> ByteString -> ConsensusSummarizeBlockResponse) -> Proxy (Enumerated ConsensusSummarizeBlockResponse_Status -> ByteString -> ConsensusSummarizeBlockResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ConsensusSummarizeBlockResponse_Status +Hs.pure Enumerated ConsensusSummarizeBlockResponse_Status -> ByteString -> ConsensusSummarizeBlockResponse ConsensusSummarizeBlockResponse Proxy (Enumerated ConsensusSummarizeBlockResponse_Status @@ -11856,74 +12616,77 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Proxy (Enumerated ConsensusSummarizeBlockResponse_Status) -> Proxy (ByteString -> ConsensusSummarizeBlockResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy +<*> + (Proxy (OverrideToSchema (Enumerated ConsensusSummarizeBlockResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Enumerated ConsensusSummarizeBlockResponse_Status) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy +HsJSONPB.asProxy Proxy (OverrideToSchema (Enumerated ConsensusSummarizeBlockResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status - Proxy (ByteString -> ConsensusSummarizeBlockResponse) +declare_status + Proxy (ByteString -> ConsensusSummarizeBlockResponse) -> Proxy ByteString -> Proxy ConsensusSummarizeBlockResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema ByteString) +<*> (Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy ByteString forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) +HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_summary - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_summary + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ConsensusSummarizeBlockResponse", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ConsensusSummarizeBlockResponse", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("status", - Referenced Schema -consensusSummarizeBlockResponseStatus), - ("summary", - Referenced Schema -consensusSummarizeBlockResponseSummary)]}}) - -data ConsensusSummarizeBlockResponse_Status = ConsensusSummarizeBlockResponse_StatusSTATUS_UNSET - | ConsensusSummarizeBlockResponse_StatusOK - | ConsensusSummarizeBlockResponse_StatusBAD_REQUEST - | ConsensusSummarizeBlockResponse_StatusSERVICE_ERROR - | ConsensusSummarizeBlockResponse_StatusNOT_READY - | ConsensusSummarizeBlockResponse_StatusINVALID_STATE - | ConsensusSummarizeBlockResponse_StatusBLOCK_NOT_READY - | ConsensusSummarizeBlockResponse_StatusNOT_ACTIVE_ENGINE - deriving (Int -> ConsensusSummarizeBlockResponse_Status -> ShowS +HsJSONPB.insOrdFromList + [(Text +"status", + Referenced Schema +consensusSummarizeBlockResponseStatus), + (Text +"summary", + Referenced Schema +consensusSummarizeBlockResponseSummary)]}}) + +data ConsensusSummarizeBlockResponse_Status = ConsensusSummarizeBlockResponse_StatusSTATUS_UNSET + | ConsensusSummarizeBlockResponse_StatusOK + | ConsensusSummarizeBlockResponse_StatusBAD_REQUEST + | ConsensusSummarizeBlockResponse_StatusSERVICE_ERROR + | ConsensusSummarizeBlockResponse_StatusNOT_READY + | ConsensusSummarizeBlockResponse_StatusINVALID_STATE + | ConsensusSummarizeBlockResponse_StatusBLOCK_NOT_READY + | ConsensusSummarizeBlockResponse_StatusNOT_ACTIVE_ENGINE + deriving (Int -> ConsensusSummarizeBlockResponse_Status -> ShowS [ConsensusSummarizeBlockResponse_Status] -> ShowS ConsensusSummarizeBlockResponse_Status -> String (Int -> ConsensusSummarizeBlockResponse_Status -> ShowS) @@ -11938,7 +12701,7 @@ show :: ConsensusSummarizeBlockResponse_Status -> String $cshow :: ConsensusSummarizeBlockResponse_Status -> String showsPrec :: Int -> ConsensusSummarizeBlockResponse_Status -> ShowS $cshowsPrec :: Int -> ConsensusSummarizeBlockResponse_Status -> ShowS -Hs.Show, ConsensusSummarizeBlockResponse_Status +Hs.Show, ConsensusSummarizeBlockResponse_Status -> ConsensusSummarizeBlockResponse_Status -> Bool (ConsensusSummarizeBlockResponse_Status -> ConsensusSummarizeBlockResponse_Status -> Bool) @@ -11954,7 +12717,7 @@ $c/= :: ConsensusSummarizeBlockResponse_Status -> ConsensusSummarizeBlockResponse_Status -> Bool $c== :: ConsensusSummarizeBlockResponse_Status -> ConsensusSummarizeBlockResponse_Status -> Bool -Hs.Eq, (forall x. +Hs.Eq, (forall x. ConsensusSummarizeBlockResponse_Status -> Rep ConsensusSummarizeBlockResponse_Status x) -> (forall x. @@ -11975,224 +12738,254 @@ Rep ConsensusSummarizeBlockResponse_Status x $cfrom :: forall x. ConsensusSummarizeBlockResponse_Status -> Rep ConsensusSummarizeBlockResponse_Status x -Hs.Generic, ConsensusSummarizeBlockResponse_Status -> () +Hs.Generic, ConsensusSummarizeBlockResponse_Status -> () (ConsensusSummarizeBlockResponse_Status -> ()) -> NFData ConsensusSummarizeBlockResponse_Status forall a. (a -> ()) -> NFData a rnf :: ConsensusSummarizeBlockResponse_Status -> () $crnf :: ConsensusSummarizeBlockResponse_Status -> () -Hs.NFData) - -instance HsProtobuf.Named ConsensusSummarizeBlockResponse_Status - where - nameOf :: Proxy# ConsensusSummarizeBlockResponse_Status -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ConsensusSummarizeBlockResponse_Status + where + nameOf :: Proxy# ConsensusSummarizeBlockResponse_Status -> string +nameOf Proxy# ConsensusSummarizeBlockResponse_Status +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ConsensusSummarizeBlockResponse_Status") - -instance HsProtobuf.HasDefault - ConsensusSummarizeBlockResponse_Status - -instance Hs.Bounded ConsensusSummarizeBlockResponse_Status where - minBound :: ConsensusSummarizeBlockResponse_Status -minBound = ConsensusSummarizeBlockResponse_Status +Hs.fromString String +"ConsensusSummarizeBlockResponse_Status") + +instance HsProtobuf.HasDefault + ConsensusSummarizeBlockResponse_Status + +instance Hs.Bounded ConsensusSummarizeBlockResponse_Status where + minBound :: ConsensusSummarizeBlockResponse_Status +minBound = ConsensusSummarizeBlockResponse_Status ConsensusSummarizeBlockResponse_StatusSTATUS_UNSET - maxBound :: ConsensusSummarizeBlockResponse_Status -maxBound = ConsensusSummarizeBlockResponse_Status + maxBound :: ConsensusSummarizeBlockResponse_Status +maxBound = ConsensusSummarizeBlockResponse_Status ConsensusSummarizeBlockResponse_StatusNOT_ACTIVE_ENGINE - -instance Hs.Ord ConsensusSummarizeBlockResponse_Status where - compare :: ConsensusSummarizeBlockResponse_Status + +instance Hs.Ord ConsensusSummarizeBlockResponse_Status where + compare :: ConsensusSummarizeBlockResponse_Status -> ConsensusSummarizeBlockResponse_Status -> Ordering -compare x :: ConsensusSummarizeBlockResponse_Status -x y :: ConsensusSummarizeBlockResponse_Status -y - = Int32 -> Int32 -> Ordering +compare ConsensusSummarizeBlockResponse_Status +x ConsensusSummarizeBlockResponse_Status +y + = Int32 -> Int32 -> Ordering forall a. Ord a => a -> a -> Ordering -Hs.compare (ConsensusSummarizeBlockResponse_Status -> Int32 +Hs.compare (ConsensusSummarizeBlockResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum ConsensusSummarizeBlockResponse_Status -x) - (ConsensusSummarizeBlockResponse_Status -> Int32 +HsProtobuf.fromProtoEnum ConsensusSummarizeBlockResponse_Status +x) + (ConsensusSummarizeBlockResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum ConsensusSummarizeBlockResponse_Status -y) - -instance HsProtobuf.ProtoEnum - ConsensusSummarizeBlockResponse_Status where - toProtoEnumMay :: Int32 -> Maybe ConsensusSummarizeBlockResponse_Status -toProtoEnumMay 0 - = ConsensusSummarizeBlockResponse_Status +HsProtobuf.fromProtoEnum ConsensusSummarizeBlockResponse_Status +y) + +instance HsProtobuf.ProtoEnum + ConsensusSummarizeBlockResponse_Status where + toProtoEnumMay :: Int32 -> Maybe ConsensusSummarizeBlockResponse_Status +toProtoEnumMay Int32 +0 + = ConsensusSummarizeBlockResponse_Status -> Maybe ConsensusSummarizeBlockResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusSummarizeBlockResponse_Status +Hs.Just ConsensusSummarizeBlockResponse_Status ConsensusSummarizeBlockResponse_StatusSTATUS_UNSET - toProtoEnumMay 1 = ConsensusSummarizeBlockResponse_Status + toProtoEnumMay Int32 +1 = ConsensusSummarizeBlockResponse_Status -> Maybe ConsensusSummarizeBlockResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusSummarizeBlockResponse_Status +Hs.Just ConsensusSummarizeBlockResponse_Status ConsensusSummarizeBlockResponse_StatusOK - toProtoEnumMay 2 - = ConsensusSummarizeBlockResponse_Status + toProtoEnumMay Int32 +2 + = ConsensusSummarizeBlockResponse_Status -> Maybe ConsensusSummarizeBlockResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusSummarizeBlockResponse_Status +Hs.Just ConsensusSummarizeBlockResponse_Status ConsensusSummarizeBlockResponse_StatusBAD_REQUEST - toProtoEnumMay 3 - = ConsensusSummarizeBlockResponse_Status + toProtoEnumMay Int32 +3 + = ConsensusSummarizeBlockResponse_Status -> Maybe ConsensusSummarizeBlockResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusSummarizeBlockResponse_Status +Hs.Just ConsensusSummarizeBlockResponse_Status ConsensusSummarizeBlockResponse_StatusSERVICE_ERROR - toProtoEnumMay 4 - = ConsensusSummarizeBlockResponse_Status + toProtoEnumMay Int32 +4 + = ConsensusSummarizeBlockResponse_Status -> Maybe ConsensusSummarizeBlockResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusSummarizeBlockResponse_Status +Hs.Just ConsensusSummarizeBlockResponse_Status ConsensusSummarizeBlockResponse_StatusNOT_READY - toProtoEnumMay 5 - = ConsensusSummarizeBlockResponse_Status + toProtoEnumMay Int32 +5 + = ConsensusSummarizeBlockResponse_Status -> Maybe ConsensusSummarizeBlockResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusSummarizeBlockResponse_Status +Hs.Just ConsensusSummarizeBlockResponse_Status ConsensusSummarizeBlockResponse_StatusINVALID_STATE - toProtoEnumMay 6 - = ConsensusSummarizeBlockResponse_Status + toProtoEnumMay Int32 +6 + = ConsensusSummarizeBlockResponse_Status -> Maybe ConsensusSummarizeBlockResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusSummarizeBlockResponse_Status +Hs.Just ConsensusSummarizeBlockResponse_Status ConsensusSummarizeBlockResponse_StatusBLOCK_NOT_READY - toProtoEnumMay 7 - = ConsensusSummarizeBlockResponse_Status + toProtoEnumMay Int32 +7 + = ConsensusSummarizeBlockResponse_Status -> Maybe ConsensusSummarizeBlockResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusSummarizeBlockResponse_Status +Hs.Just ConsensusSummarizeBlockResponse_Status ConsensusSummarizeBlockResponse_StatusNOT_ACTIVE_ENGINE - toProtoEnumMay _ = Maybe ConsensusSummarizeBlockResponse_Status + toProtoEnumMay Int32 +_ = Maybe ConsensusSummarizeBlockResponse_Status forall a. Maybe a -Hs.Nothing - fromProtoEnum :: ConsensusSummarizeBlockResponse_Status -> Int32 -fromProtoEnum (ConsensusSummarizeBlockResponse_Status +Hs.Nothing + fromProtoEnum :: ConsensusSummarizeBlockResponse_Status -> Int32 +fromProtoEnum (ConsensusSummarizeBlockResponse_Status ConsensusSummarizeBlockResponse_StatusSTATUS_UNSET) - = 0 - fromProtoEnum (ConsensusSummarizeBlockResponse_Status -ConsensusSummarizeBlockResponse_StatusOK) = 1 - fromProtoEnum (ConsensusSummarizeBlockResponse_Status + = Int32 +0 + fromProtoEnum (ConsensusSummarizeBlockResponse_Status +ConsensusSummarizeBlockResponse_StatusOK) = Int32 +1 + fromProtoEnum (ConsensusSummarizeBlockResponse_Status ConsensusSummarizeBlockResponse_StatusBAD_REQUEST) - = 2 - fromProtoEnum (ConsensusSummarizeBlockResponse_Status + = Int32 +2 + fromProtoEnum (ConsensusSummarizeBlockResponse_Status ConsensusSummarizeBlockResponse_StatusSERVICE_ERROR) - = 3 - fromProtoEnum (ConsensusSummarizeBlockResponse_Status -ConsensusSummarizeBlockResponse_StatusNOT_READY) = 4 - fromProtoEnum (ConsensusSummarizeBlockResponse_Status + = Int32 +3 + fromProtoEnum (ConsensusSummarizeBlockResponse_Status +ConsensusSummarizeBlockResponse_StatusNOT_READY) = Int32 +4 + fromProtoEnum (ConsensusSummarizeBlockResponse_Status ConsensusSummarizeBlockResponse_StatusINVALID_STATE) - = 5 - fromProtoEnum - (ConsensusSummarizeBlockResponse_Status -ConsensusSummarizeBlockResponse_StatusBLOCK_NOT_READY) = 6 - fromProtoEnum - (ConsensusSummarizeBlockResponse_Status -ConsensusSummarizeBlockResponse_StatusNOT_ACTIVE_ENGINE) = 7 - -instance HsJSONPB.ToJSONPB ConsensusSummarizeBlockResponse_Status - where - toJSONPB :: ConsensusSummarizeBlockResponse_Status -> Options -> Value -toJSONPB x :: ConsensusSummarizeBlockResponse_Status -x _ = ConsensusSummarizeBlockResponse_Status -> Value + = Int32 +5 + fromProtoEnum + (ConsensusSummarizeBlockResponse_Status +ConsensusSummarizeBlockResponse_StatusBLOCK_NOT_READY) = Int32 +6 + fromProtoEnum + (ConsensusSummarizeBlockResponse_Status +ConsensusSummarizeBlockResponse_StatusNOT_ACTIVE_ENGINE) = Int32 +7 + +instance HsJSONPB.ToJSONPB ConsensusSummarizeBlockResponse_Status + where + toJSONPB :: ConsensusSummarizeBlockResponse_Status -> Options -> Value +toJSONPB ConsensusSummarizeBlockResponse_Status +x Options +_ = ConsensusSummarizeBlockResponse_Status -> Value forall a. (Named a, Show a) => a -> Value -HsJSONPB.enumFieldString ConsensusSummarizeBlockResponse_Status -x - toEncodingPB :: ConsensusSummarizeBlockResponse_Status -> Options -> Encoding -toEncodingPB x :: ConsensusSummarizeBlockResponse_Status -x _ = ConsensusSummarizeBlockResponse_Status -> Encoding +HsJSONPB.enumFieldString ConsensusSummarizeBlockResponse_Status +x + toEncodingPB :: ConsensusSummarizeBlockResponse_Status -> Options -> Encoding +toEncodingPB ConsensusSummarizeBlockResponse_Status +x Options +_ = ConsensusSummarizeBlockResponse_Status -> Encoding forall a. (Named a, Show a) => a -> Encoding -HsJSONPB.enumFieldEncoding ConsensusSummarizeBlockResponse_Status -x - -instance HsJSONPB.FromJSONPB ConsensusSummarizeBlockResponse_Status - where - parseJSONPB :: Value -> Parser ConsensusSummarizeBlockResponse_Status -parseJSONPB (HsJSONPB.String "STATUS_UNSET") - = ConsensusSummarizeBlockResponse_Status +HsJSONPB.enumFieldEncoding ConsensusSummarizeBlockResponse_Status +x + +instance HsJSONPB.FromJSONPB ConsensusSummarizeBlockResponse_Status + where + parseJSONPB :: Value -> Parser ConsensusSummarizeBlockResponse_Status +parseJSONPB (HsJSONPB.String Text +"STATUS_UNSET") + = ConsensusSummarizeBlockResponse_Status -> Parser ConsensusSummarizeBlockResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusSummarizeBlockResponse_Status +Hs.pure ConsensusSummarizeBlockResponse_Status ConsensusSummarizeBlockResponse_StatusSTATUS_UNSET - parseJSONPB (HsJSONPB.String "OK") - = ConsensusSummarizeBlockResponse_Status + parseJSONPB (HsJSONPB.String Text +"OK") + = ConsensusSummarizeBlockResponse_Status -> Parser ConsensusSummarizeBlockResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusSummarizeBlockResponse_Status +Hs.pure ConsensusSummarizeBlockResponse_Status ConsensusSummarizeBlockResponse_StatusOK - parseJSONPB (HsJSONPB.String "BAD_REQUEST") - = ConsensusSummarizeBlockResponse_Status + parseJSONPB (HsJSONPB.String Text +"BAD_REQUEST") + = ConsensusSummarizeBlockResponse_Status -> Parser ConsensusSummarizeBlockResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusSummarizeBlockResponse_Status +Hs.pure ConsensusSummarizeBlockResponse_Status ConsensusSummarizeBlockResponse_StatusBAD_REQUEST - parseJSONPB (HsJSONPB.String "SERVICE_ERROR") - = ConsensusSummarizeBlockResponse_Status + parseJSONPB (HsJSONPB.String Text +"SERVICE_ERROR") + = ConsensusSummarizeBlockResponse_Status -> Parser ConsensusSummarizeBlockResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusSummarizeBlockResponse_Status +Hs.pure ConsensusSummarizeBlockResponse_Status ConsensusSummarizeBlockResponse_StatusSERVICE_ERROR - parseJSONPB (HsJSONPB.String "NOT_READY") - = ConsensusSummarizeBlockResponse_Status + parseJSONPB (HsJSONPB.String Text +"NOT_READY") + = ConsensusSummarizeBlockResponse_Status -> Parser ConsensusSummarizeBlockResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusSummarizeBlockResponse_Status +Hs.pure ConsensusSummarizeBlockResponse_Status ConsensusSummarizeBlockResponse_StatusNOT_READY - parseJSONPB (HsJSONPB.String "INVALID_STATE") - = ConsensusSummarizeBlockResponse_Status + parseJSONPB (HsJSONPB.String Text +"INVALID_STATE") + = ConsensusSummarizeBlockResponse_Status -> Parser ConsensusSummarizeBlockResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusSummarizeBlockResponse_Status +Hs.pure ConsensusSummarizeBlockResponse_Status ConsensusSummarizeBlockResponse_StatusINVALID_STATE - parseJSONPB (HsJSONPB.String "BLOCK_NOT_READY") - = ConsensusSummarizeBlockResponse_Status + parseJSONPB (HsJSONPB.String Text +"BLOCK_NOT_READY") + = ConsensusSummarizeBlockResponse_Status -> Parser ConsensusSummarizeBlockResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusSummarizeBlockResponse_Status +Hs.pure ConsensusSummarizeBlockResponse_Status ConsensusSummarizeBlockResponse_StatusBLOCK_NOT_READY - parseJSONPB (HsJSONPB.String "NOT_ACTIVE_ENGINE") - = ConsensusSummarizeBlockResponse_Status + parseJSONPB (HsJSONPB.String Text +"NOT_ACTIVE_ENGINE") + = ConsensusSummarizeBlockResponse_Status -> Parser ConsensusSummarizeBlockResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusSummarizeBlockResponse_Status +Hs.pure ConsensusSummarizeBlockResponse_Status ConsensusSummarizeBlockResponse_StatusNOT_ACTIVE_ENGINE - parseJSONPB v :: Value -v - = (String -> Value -> Parser ConsensusSummarizeBlockResponse_Status + parseJSONPB Value +v + = (String -> Value -> Parser ConsensusSummarizeBlockResponse_Status forall a. String -> Value -> Parser a -HsJSONPB.typeMismatch "ConsensusSummarizeBlockResponse_Status" - Value -v) - -instance HsJSONPB.ToJSON ConsensusSummarizeBlockResponse_Status - where - toJSON :: ConsensusSummarizeBlockResponse_Status -> Value -toJSON = ConsensusSummarizeBlockResponse_Status -> Value +HsJSONPB.typeMismatch String +"ConsensusSummarizeBlockResponse_Status" + Value +v) + +instance HsJSONPB.ToJSON ConsensusSummarizeBlockResponse_Status + where + toJSON :: ConsensusSummarizeBlockResponse_Status -> Value +toJSON = ConsensusSummarizeBlockResponse_Status -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ConsensusSummarizeBlockResponse_Status -> Encoding -toEncoding = ConsensusSummarizeBlockResponse_Status -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ConsensusSummarizeBlockResponse_Status -> Encoding +toEncoding = ConsensusSummarizeBlockResponse_Status -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ConsensusSummarizeBlockResponse_Status - where - parseJSON :: Value -> Parser ConsensusSummarizeBlockResponse_Status -parseJSON = Value -> Parser ConsensusSummarizeBlockResponse_Status +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ConsensusSummarizeBlockResponse_Status + where + parseJSON :: Value -> Parser ConsensusSummarizeBlockResponse_Status +parseJSON = Value -> Parser ConsensusSummarizeBlockResponse_Status forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsProtobuf.Finite ConsensusSummarizeBlockResponse_Status - -newtype ConsensusFinalizeBlockRequest = ConsensusFinalizeBlockRequest{ConsensusFinalizeBlockRequest -> ByteString +HsJSONPB.parseJSONPB + +instance HsProtobuf.Finite ConsensusSummarizeBlockResponse_Status + +newtype ConsensusFinalizeBlockRequest = ConsensusFinalizeBlockRequest{ConsensusFinalizeBlockRequest -> ByteString consensusFinalizeBlockRequestData - :: Hs.ByteString} - deriving (Int -> ConsensusFinalizeBlockRequest -> ShowS + :: Hs.ByteString} + deriving (Int -> ConsensusFinalizeBlockRequest -> ShowS [ConsensusFinalizeBlockRequest] -> ShowS ConsensusFinalizeBlockRequest -> String (Int -> ConsensusFinalizeBlockRequest -> ShowS) @@ -12207,7 +13000,7 @@ show :: ConsensusFinalizeBlockRequest -> String $cshow :: ConsensusFinalizeBlockRequest -> String showsPrec :: Int -> ConsensusFinalizeBlockRequest -> ShowS $cshowsPrec :: Int -> ConsensusFinalizeBlockRequest -> ShowS -Hs.Show, ConsensusFinalizeBlockRequest +Hs.Show, ConsensusFinalizeBlockRequest -> ConsensusFinalizeBlockRequest -> Bool (ConsensusFinalizeBlockRequest -> ConsensusFinalizeBlockRequest -> Bool) @@ -12223,10 +13016,10 @@ $c/= :: ConsensusFinalizeBlockRequest -> ConsensusFinalizeBlockRequest -> Bool $c== :: ConsensusFinalizeBlockRequest -> ConsensusFinalizeBlockRequest -> Bool -Hs.Eq, Eq ConsensusFinalizeBlockRequest -Eq ConsensusFinalizeBlockRequest => -(ConsensusFinalizeBlockRequest - -> ConsensusFinalizeBlockRequest -> Ordering) +Hs.Eq, Eq ConsensusFinalizeBlockRequest +Eq ConsensusFinalizeBlockRequest +-> (ConsensusFinalizeBlockRequest + -> ConsensusFinalizeBlockRequest -> Ordering) -> (ConsensusFinalizeBlockRequest -> ConsensusFinalizeBlockRequest -> Bool) -> (ConsensusFinalizeBlockRequest @@ -12247,8 +13040,8 @@ ConsensusFinalizeBlockRequest ConsensusFinalizeBlockRequest -> ConsensusFinalizeBlockRequest -> ConsensusFinalizeBlockRequest forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -12285,7 +13078,7 @@ compare :: ConsensusFinalizeBlockRequest $ccompare :: ConsensusFinalizeBlockRequest -> ConsensusFinalizeBlockRequest -> Ordering $cp1Ord :: Eq ConsensusFinalizeBlockRequest -Hs.Ord, (forall x. +Hs.Ord, (forall x. ConsensusFinalizeBlockRequest -> Rep ConsensusFinalizeBlockRequest x) -> (forall x. @@ -12306,216 +13099,233 @@ Rep ConsensusFinalizeBlockRequest x $cfrom :: forall x. ConsensusFinalizeBlockRequest -> Rep ConsensusFinalizeBlockRequest x -Hs.Generic, ConsensusFinalizeBlockRequest -> () +Hs.Generic, ConsensusFinalizeBlockRequest -> () (ConsensusFinalizeBlockRequest -> ()) -> NFData ConsensusFinalizeBlockRequest forall a. (a -> ()) -> NFData a rnf :: ConsensusFinalizeBlockRequest -> () $crnf :: ConsensusFinalizeBlockRequest -> () -Hs.NFData) - -instance HsProtobuf.Named ConsensusFinalizeBlockRequest where - nameOf :: Proxy# ConsensusFinalizeBlockRequest -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ConsensusFinalizeBlockRequest where + nameOf :: Proxy# ConsensusFinalizeBlockRequest -> string +nameOf Proxy# ConsensusFinalizeBlockRequest +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ConsensusFinalizeBlockRequest") - -instance HsProtobuf.HasDefault ConsensusFinalizeBlockRequest - -instance HsProtobuf.Message ConsensusFinalizeBlockRequest where - encodeMessage :: FieldNumber -> ConsensusFinalizeBlockRequest -> MessageBuilder -encodeMessage _ - ConsensusFinalizeBlockRequest{consensusFinalizeBlockRequestData :: ConsensusFinalizeBlockRequest -> ByteString +Hs.fromString String +"ConsensusFinalizeBlockRequest") + +instance HsProtobuf.HasDefault ConsensusFinalizeBlockRequest + +instance HsProtobuf.Message ConsensusFinalizeBlockRequest where + encodeMessage :: FieldNumber -> ConsensusFinalizeBlockRequest -> MessageBuilder +encodeMessage FieldNumber +_ + ConsensusFinalizeBlockRequest{consensusFinalizeBlockRequestData :: ConsensusFinalizeBlockRequest -> ByteString consensusFinalizeBlockRequestData = - ByteString -consensusFinalizeBlockRequestData} - = ([MessageBuilder] -> MessageBuilder + ByteString +consensusFinalizeBlockRequestData} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> ByteString -> MessageBuilder +Hs.mconcat + [(FieldNumber -> ByteString -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - ByteString -consensusFinalizeBlockRequestData)]) - decodeMessage :: FieldNumber -> Parser RawMessage ConsensusFinalizeBlockRequest -decodeMessage _ - = ((ByteString -> ConsensusFinalizeBlockRequest) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + ByteString +consensusFinalizeBlockRequestData)]) + decodeMessage :: FieldNumber -> Parser RawMessage ConsensusFinalizeBlockRequest +decodeMessage FieldNumber +_ + = ((ByteString -> ConsensusFinalizeBlockRequest) -> Parser RawMessage (ByteString -> ConsensusFinalizeBlockRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString -> ConsensusFinalizeBlockRequest +Hs.pure ByteString -> ConsensusFinalizeBlockRequest ConsensusFinalizeBlockRequest) Parser RawMessage (ByteString -> ConsensusFinalizeBlockRequest) -> Parser RawMessage ByteString -> Parser RawMessage ConsensusFinalizeBlockRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField ByteString +<*> + (Parser RawField ByteString -> FieldNumber -> Parser RawMessage ByteString forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField ByteString +HsProtobuf.at Parser RawField ByteString forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - dotProto :: Proxy# ConsensusFinalizeBlockRequest -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + dotProto :: Proxy# ConsensusFinalizeBlockRequest -> [DotProtoField] +dotProto Proxy# ConsensusFinalizeBlockRequest +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.Bytes) - (String -> DotProtoIdentifier -HsProtobuf.Single "data") - [] - "")] - -instance HsJSONPB.ToJSONPB ConsensusFinalizeBlockRequest where - toJSONPB :: ConsensusFinalizeBlockRequest -> Options -> Value -toJSONPB (ConsensusFinalizeBlockRequest f1 :: ByteString -f1) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["data" Text -> ByteString -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.Bytes) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"data") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ConsensusFinalizeBlockRequest where + toJSONPB :: ConsensusFinalizeBlockRequest -> Options -> Value +toJSONPB (ConsensusFinalizeBlockRequest ByteString +f1) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"data" Text -> ByteString -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f1]) - toEncodingPB :: ConsensusFinalizeBlockRequest -> Options -> Encoding -toEncodingPB (ConsensusFinalizeBlockRequest f1 :: ByteString -f1) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["data" Text -> ByteString -> Options -> Series +.= ByteString +f1]) + toEncodingPB :: ConsensusFinalizeBlockRequest -> Options -> Encoding +toEncodingPB (ConsensusFinalizeBlockRequest ByteString +f1) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"data" Text -> ByteString -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f1]) - -instance HsJSONPB.FromJSONPB ConsensusFinalizeBlockRequest where - parseJSONPB :: Value -> Parser ConsensusFinalizeBlockRequest -parseJSONPB - = (String +.= ByteString +f1]) + +instance HsJSONPB.FromJSONPB ConsensusFinalizeBlockRequest where + parseJSONPB :: Value -> Parser ConsensusFinalizeBlockRequest +parseJSONPB + = (String -> (Object -> Parser ConsensusFinalizeBlockRequest) -> Value -> Parser ConsensusFinalizeBlockRequest forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ConsensusFinalizeBlockRequest" - (\ obj :: Object -obj -> - ((ByteString -> ConsensusFinalizeBlockRequest) +HsJSONPB.withObject String +"ConsensusFinalizeBlockRequest" + (\ Object +obj -> + ((ByteString -> ConsensusFinalizeBlockRequest) -> Parser (ByteString -> ConsensusFinalizeBlockRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString -> ConsensusFinalizeBlockRequest +Hs.pure ByteString -> ConsensusFinalizeBlockRequest ConsensusFinalizeBlockRequest) Parser (ByteString -> ConsensusFinalizeBlockRequest) -> Parser ByteString -> Parser ConsensusFinalizeBlockRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser ByteString +<*> Object +obj Object -> Text -> Parser ByteString forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "data")) - -instance HsJSONPB.ToJSON ConsensusFinalizeBlockRequest where - toJSON :: ConsensusFinalizeBlockRequest -> Value -toJSON = ConsensusFinalizeBlockRequest -> Value +.: Text +"data")) + +instance HsJSONPB.ToJSON ConsensusFinalizeBlockRequest where + toJSON :: ConsensusFinalizeBlockRequest -> Value +toJSON = ConsensusFinalizeBlockRequest -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ConsensusFinalizeBlockRequest -> Encoding -toEncoding = ConsensusFinalizeBlockRequest -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ConsensusFinalizeBlockRequest -> Encoding +toEncoding = ConsensusFinalizeBlockRequest -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ConsensusFinalizeBlockRequest where - parseJSON :: Value -> Parser ConsensusFinalizeBlockRequest -parseJSON = Value -> Parser ConsensusFinalizeBlockRequest +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ConsensusFinalizeBlockRequest where + parseJSON :: Value -> Parser ConsensusFinalizeBlockRequest +parseJSON = Value -> Parser ConsensusFinalizeBlockRequest forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ConsensusFinalizeBlockRequest where - declareNamedSchema :: Proxy ConsensusFinalizeBlockRequest +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ConsensusFinalizeBlockRequest where + declareNamedSchema :: Proxy ConsensusFinalizeBlockRequest -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_data :: Proxy (OverrideToSchema ByteString) +declareNamedSchema Proxy ConsensusFinalizeBlockRequest +_ + = do let declare_data :: Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_data = Proxy (OverrideToSchema ByteString) +declare_data = Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -consensusFinalizeBlockRequestData <- Proxy (OverrideToSchema ByteString) +HsJSONPB.declareSchemaRef + Referenced Schema +consensusFinalizeBlockRequestData <- Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_data Proxy (OverrideToSchema ByteString) +declare_data Proxy (OverrideToSchema ByteString) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ConsensusFinalizeBlockRequest +Proxy.Proxy + let Proxy ConsensusFinalizeBlockRequest _ = (ByteString -> ConsensusFinalizeBlockRequest) -> Proxy (ByteString -> ConsensusFinalizeBlockRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString -> ConsensusFinalizeBlockRequest +Hs.pure ByteString -> ConsensusFinalizeBlockRequest ConsensusFinalizeBlockRequest Proxy (ByteString -> ConsensusFinalizeBlockRequest) -> Proxy ByteString -> Proxy ConsensusFinalizeBlockRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema ByteString) +<*> + (Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy ByteString forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) +HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_data - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_data + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ConsensusFinalizeBlockRequest", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ConsensusFinalizeBlockRequest", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("data", - Referenced Schema -consensusFinalizeBlockRequestData)]}}) - -data ConsensusFinalizeBlockResponse = ConsensusFinalizeBlockResponse{ConsensusFinalizeBlockResponse +HsJSONPB.insOrdFromList + [(Text +"data", + Referenced Schema +consensusFinalizeBlockRequestData)]}}) + +data ConsensusFinalizeBlockResponse = ConsensusFinalizeBlockResponse{ConsensusFinalizeBlockResponse -> Enumerated ConsensusFinalizeBlockResponse_Status consensusFinalizeBlockResponseStatus - :: - HsProtobuf.Enumerated - Data.Sawtooth.Consensus.ConsensusFinalizeBlockResponse_Status, - ConsensusFinalizeBlockResponse -> ByteString + :: + HsProtobuf.Enumerated + Data.Sawtooth.Consensus.ConsensusFinalizeBlockResponse_Status, + ConsensusFinalizeBlockResponse -> ByteString consensusFinalizeBlockResponseBlockId - :: Hs.ByteString} - deriving (Int -> ConsensusFinalizeBlockResponse -> ShowS + :: Hs.ByteString} + deriving (Int -> ConsensusFinalizeBlockResponse -> ShowS [ConsensusFinalizeBlockResponse] -> ShowS ConsensusFinalizeBlockResponse -> String (Int -> ConsensusFinalizeBlockResponse -> ShowS) @@ -12530,7 +13340,7 @@ show :: ConsensusFinalizeBlockResponse -> String $cshow :: ConsensusFinalizeBlockResponse -> String showsPrec :: Int -> ConsensusFinalizeBlockResponse -> ShowS $cshowsPrec :: Int -> ConsensusFinalizeBlockResponse -> ShowS -Hs.Show, ConsensusFinalizeBlockResponse +Hs.Show, ConsensusFinalizeBlockResponse -> ConsensusFinalizeBlockResponse -> Bool (ConsensusFinalizeBlockResponse -> ConsensusFinalizeBlockResponse -> Bool) @@ -12546,10 +13356,10 @@ $c/= :: ConsensusFinalizeBlockResponse -> ConsensusFinalizeBlockResponse -> Bool $c== :: ConsensusFinalizeBlockResponse -> ConsensusFinalizeBlockResponse -> Bool -Hs.Eq, Eq ConsensusFinalizeBlockResponse -Eq ConsensusFinalizeBlockResponse => -(ConsensusFinalizeBlockResponse - -> ConsensusFinalizeBlockResponse -> Ordering) +Hs.Eq, Eq ConsensusFinalizeBlockResponse +Eq ConsensusFinalizeBlockResponse +-> (ConsensusFinalizeBlockResponse + -> ConsensusFinalizeBlockResponse -> Ordering) -> (ConsensusFinalizeBlockResponse -> ConsensusFinalizeBlockResponse -> Bool) -> (ConsensusFinalizeBlockResponse @@ -12572,8 +13382,8 @@ ConsensusFinalizeBlockResponse ConsensusFinalizeBlockResponse -> ConsensusFinalizeBlockResponse -> ConsensusFinalizeBlockResponse forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -12610,7 +13420,7 @@ compare :: ConsensusFinalizeBlockResponse $ccompare :: ConsensusFinalizeBlockResponse -> ConsensusFinalizeBlockResponse -> Ordering $cp1Ord :: Eq ConsensusFinalizeBlockResponse -Hs.Ord, (forall x. +Hs.Ord, (forall x. ConsensusFinalizeBlockResponse -> Rep ConsensusFinalizeBlockResponse x) -> (forall x. @@ -12631,61 +13441,67 @@ Rep ConsensusFinalizeBlockResponse x $cfrom :: forall x. ConsensusFinalizeBlockResponse -> Rep ConsensusFinalizeBlockResponse x -Hs.Generic, ConsensusFinalizeBlockResponse -> () +Hs.Generic, ConsensusFinalizeBlockResponse -> () (ConsensusFinalizeBlockResponse -> ()) -> NFData ConsensusFinalizeBlockResponse forall a. (a -> ()) -> NFData a rnf :: ConsensusFinalizeBlockResponse -> () $crnf :: ConsensusFinalizeBlockResponse -> () -Hs.NFData) - -instance HsProtobuf.Named ConsensusFinalizeBlockResponse where - nameOf :: Proxy# ConsensusFinalizeBlockResponse -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ConsensusFinalizeBlockResponse where + nameOf :: Proxy# ConsensusFinalizeBlockResponse -> string +nameOf Proxy# ConsensusFinalizeBlockResponse +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ConsensusFinalizeBlockResponse") - -instance HsProtobuf.HasDefault ConsensusFinalizeBlockResponse - -instance HsProtobuf.Message ConsensusFinalizeBlockResponse where - encodeMessage :: FieldNumber -> ConsensusFinalizeBlockResponse -> MessageBuilder -encodeMessage _ - ConsensusFinalizeBlockResponse{consensusFinalizeBlockResponseStatus :: ConsensusFinalizeBlockResponse +Hs.fromString String +"ConsensusFinalizeBlockResponse") + +instance HsProtobuf.HasDefault ConsensusFinalizeBlockResponse + +instance HsProtobuf.Message ConsensusFinalizeBlockResponse where + encodeMessage :: FieldNumber -> ConsensusFinalizeBlockResponse -> MessageBuilder +encodeMessage FieldNumber +_ + ConsensusFinalizeBlockResponse{consensusFinalizeBlockResponseStatus :: ConsensusFinalizeBlockResponse -> Enumerated ConsensusFinalizeBlockResponse_Status consensusFinalizeBlockResponseStatus - = Enumerated ConsensusFinalizeBlockResponse_Status -consensusFinalizeBlockResponseStatus, - consensusFinalizeBlockResponseBlockId :: ConsensusFinalizeBlockResponse -> ByteString + = Enumerated ConsensusFinalizeBlockResponse_Status +consensusFinalizeBlockResponseStatus, + consensusFinalizeBlockResponseBlockId :: ConsensusFinalizeBlockResponse -> ByteString consensusFinalizeBlockResponseBlockId = - ByteString -consensusFinalizeBlockResponseBlockId} - = ([MessageBuilder] -> MessageBuilder + ByteString +consensusFinalizeBlockResponseBlockId} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber +Hs.mconcat + [(FieldNumber -> Enumerated ConsensusFinalizeBlockResponse_Status -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Enumerated ConsensusFinalizeBlockResponse_Status -consensusFinalizeBlockResponseStatus), - (FieldNumber -> ByteString -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Enumerated ConsensusFinalizeBlockResponse_Status +consensusFinalizeBlockResponseStatus), + (FieldNumber -> ByteString -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - ByteString -consensusFinalizeBlockResponseBlockId)]) - decodeMessage :: FieldNumber -> Parser RawMessage ConsensusFinalizeBlockResponse -decodeMessage _ - = ((Enumerated ConsensusFinalizeBlockResponse_Status +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + ByteString +consensusFinalizeBlockResponseBlockId)]) + decodeMessage :: FieldNumber -> Parser RawMessage ConsensusFinalizeBlockResponse +decodeMessage FieldNumber +_ + = ((Enumerated ConsensusFinalizeBlockResponse_Status -> ByteString -> ConsensusFinalizeBlockResponse) -> Parser RawMessage (Enumerated ConsensusFinalizeBlockResponse_Status -> ByteString -> ConsensusFinalizeBlockResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ConsensusFinalizeBlockResponse_Status +Hs.pure Enumerated ConsensusFinalizeBlockResponse_Status -> ByteString -> ConsensusFinalizeBlockResponse ConsensusFinalizeBlockResponse) Parser RawMessage @@ -12695,122 +13511,137 @@ forall (f :: * -> *) a. Applicative f => a -> f a RawMessage (Enumerated ConsensusFinalizeBlockResponse_Status) -> Parser RawMessage (ByteString -> ConsensusFinalizeBlockResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField (Enumerated ConsensusFinalizeBlockResponse_Status) +<*> + (Parser RawField (Enumerated ConsensusFinalizeBlockResponse_Status) -> FieldNumber -> Parser RawMessage (Enumerated ConsensusFinalizeBlockResponse_Status) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (Enumerated ConsensusFinalizeBlockResponse_Status) +HsProtobuf.at Parser RawField (Enumerated ConsensusFinalizeBlockResponse_Status) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser RawMessage (ByteString -> ConsensusFinalizeBlockResponse) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (ByteString -> ConsensusFinalizeBlockResponse) -> Parser RawMessage ByteString -> Parser RawMessage ConsensusFinalizeBlockResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField ByteString +<*> + (Parser RawField ByteString -> FieldNumber -> Parser RawMessage ByteString forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField ByteString +HsProtobuf.at Parser RawField ByteString forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2)) - dotProto :: Proxy# ConsensusFinalizeBlockResponse -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2)) + dotProto :: Proxy# ConsensusFinalizeBlockResponse -> [DotProtoField] +dotProto Proxy# ConsensusFinalizeBlockResponse +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "Status"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "status") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"Status"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"status") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.Bytes) - (String -> DotProtoIdentifier -HsProtobuf.Single "block_id") - [] - "")] - -instance HsJSONPB.ToJSONPB ConsensusFinalizeBlockResponse where - toJSONPB :: ConsensusFinalizeBlockResponse -> Options -> Value -toJSONPB (ConsensusFinalizeBlockResponse f1 :: Enumerated ConsensusFinalizeBlockResponse_Status -f1 f2 :: ByteString -f2) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["status" Text +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.Bytes) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"block_id") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ConsensusFinalizeBlockResponse where + toJSONPB :: ConsensusFinalizeBlockResponse -> Options -> Value +toJSONPB (ConsensusFinalizeBlockResponse Enumerated ConsensusFinalizeBlockResponse_Status +f1 ByteString +f2) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"status" Text -> Enumerated ConsensusFinalizeBlockResponse_Status -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated ConsensusFinalizeBlockResponse_Status -f1, "block_id" Text -> ByteString -> Options -> [Pair] +.= Enumerated ConsensusFinalizeBlockResponse_Status +f1, Text +"block_id" Text -> ByteString -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f2]) - toEncodingPB :: ConsensusFinalizeBlockResponse -> Options -> Encoding -toEncodingPB (ConsensusFinalizeBlockResponse f1 :: Enumerated ConsensusFinalizeBlockResponse_Status -f1 f2 :: ByteString -f2) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["status" Text +.= ByteString +f2]) + toEncodingPB :: ConsensusFinalizeBlockResponse -> Options -> Encoding +toEncodingPB (ConsensusFinalizeBlockResponse Enumerated ConsensusFinalizeBlockResponse_Status +f1 ByteString +f2) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"status" Text -> Enumerated ConsensusFinalizeBlockResponse_Status -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated ConsensusFinalizeBlockResponse_Status -f1, "block_id" Text -> ByteString -> Options -> Series +.= Enumerated ConsensusFinalizeBlockResponse_Status +f1, Text +"block_id" Text -> ByteString -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f2]) - -instance HsJSONPB.FromJSONPB ConsensusFinalizeBlockResponse where - parseJSONPB :: Value -> Parser ConsensusFinalizeBlockResponse -parseJSONPB - = (String +.= ByteString +f2]) + +instance HsJSONPB.FromJSONPB ConsensusFinalizeBlockResponse where + parseJSONPB :: Value -> Parser ConsensusFinalizeBlockResponse +parseJSONPB + = (String -> (Object -> Parser ConsensusFinalizeBlockResponse) -> Value -> Parser ConsensusFinalizeBlockResponse forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ConsensusFinalizeBlockResponse" - (\ obj :: Object -obj -> - ((Enumerated ConsensusFinalizeBlockResponse_Status +HsJSONPB.withObject String +"ConsensusFinalizeBlockResponse" + (\ Object +obj -> + ((Enumerated ConsensusFinalizeBlockResponse_Status -> ByteString -> ConsensusFinalizeBlockResponse) -> Parser (Enumerated ConsensusFinalizeBlockResponse_Status -> ByteString -> ConsensusFinalizeBlockResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ConsensusFinalizeBlockResponse_Status +Hs.pure Enumerated ConsensusFinalizeBlockResponse_Status -> ByteString -> ConsensusFinalizeBlockResponse ConsensusFinalizeBlockResponse) Parser (Enumerated ConsensusFinalizeBlockResponse_Status @@ -12818,89 +13649,92 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Parser (Enumerated ConsensusFinalizeBlockResponse_Status) -> Parser (ByteString -> ConsensusFinalizeBlockResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object +<*> Object +obj Object -> Text -> Parser (Enumerated ConsensusFinalizeBlockResponse_Status) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "status" Parser (ByteString -> ConsensusFinalizeBlockResponse) +.: Text +"status" Parser (ByteString -> ConsensusFinalizeBlockResponse) -> Parser ByteString -> Parser ConsensusFinalizeBlockResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser ByteString +<*> + Object +obj Object -> Text -> Parser ByteString forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "block_id")) - -instance HsJSONPB.ToJSON ConsensusFinalizeBlockResponse where - toJSON :: ConsensusFinalizeBlockResponse -> Value -toJSON = ConsensusFinalizeBlockResponse -> Value +.: Text +"block_id")) + +instance HsJSONPB.ToJSON ConsensusFinalizeBlockResponse where + toJSON :: ConsensusFinalizeBlockResponse -> Value +toJSON = ConsensusFinalizeBlockResponse -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ConsensusFinalizeBlockResponse -> Encoding -toEncoding = ConsensusFinalizeBlockResponse -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ConsensusFinalizeBlockResponse -> Encoding +toEncoding = ConsensusFinalizeBlockResponse -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ConsensusFinalizeBlockResponse where - parseJSON :: Value -> Parser ConsensusFinalizeBlockResponse -parseJSON = Value -> Parser ConsensusFinalizeBlockResponse +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ConsensusFinalizeBlockResponse where + parseJSON :: Value -> Parser ConsensusFinalizeBlockResponse +parseJSON = Value -> Parser ConsensusFinalizeBlockResponse forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ConsensusFinalizeBlockResponse where - declareNamedSchema :: Proxy ConsensusFinalizeBlockResponse +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ConsensusFinalizeBlockResponse where + declareNamedSchema :: Proxy ConsensusFinalizeBlockResponse -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_status :: Proxy +declareNamedSchema Proxy ConsensusFinalizeBlockResponse +_ + = do let declare_status :: Proxy (OverrideToSchema (Enumerated ConsensusFinalizeBlockResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status = Proxy +declare_status = Proxy (OverrideToSchema (Enumerated ConsensusFinalizeBlockResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -consensusFinalizeBlockResponseStatus <- Proxy +HsJSONPB.declareSchemaRef + Referenced Schema +consensusFinalizeBlockResponseStatus <- Proxy (OverrideToSchema (Enumerated ConsensusFinalizeBlockResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status Proxy +declare_status Proxy (OverrideToSchema (Enumerated ConsensusFinalizeBlockResponse_Status)) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_block_id :: Proxy (OverrideToSchema ByteString) +Proxy.Proxy + let declare_block_id :: Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_block_id = Proxy (OverrideToSchema ByteString) +declare_block_id = Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -consensusFinalizeBlockResponseBlockId <- Proxy (OverrideToSchema ByteString) +HsJSONPB.declareSchemaRef + Referenced Schema +consensusFinalizeBlockResponseBlockId <- Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_block_id - Proxy (OverrideToSchema ByteString) +declare_block_id + Proxy (OverrideToSchema ByteString) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ConsensusFinalizeBlockResponse +Proxy.Proxy + let Proxy ConsensusFinalizeBlockResponse _ = (Enumerated ConsensusFinalizeBlockResponse_Status -> ByteString -> ConsensusFinalizeBlockResponse) -> Proxy (Enumerated ConsensusFinalizeBlockResponse_Status -> ByteString -> ConsensusFinalizeBlockResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ConsensusFinalizeBlockResponse_Status +Hs.pure Enumerated ConsensusFinalizeBlockResponse_Status -> ByteString -> ConsensusFinalizeBlockResponse ConsensusFinalizeBlockResponse Proxy (Enumerated ConsensusFinalizeBlockResponse_Status @@ -12908,74 +13742,77 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Proxy (Enumerated ConsensusFinalizeBlockResponse_Status) -> Proxy (ByteString -> ConsensusFinalizeBlockResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy +<*> + (Proxy (OverrideToSchema (Enumerated ConsensusFinalizeBlockResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Enumerated ConsensusFinalizeBlockResponse_Status) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy +HsJSONPB.asProxy Proxy (OverrideToSchema (Enumerated ConsensusFinalizeBlockResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status - Proxy (ByteString -> ConsensusFinalizeBlockResponse) +declare_status + Proxy (ByteString -> ConsensusFinalizeBlockResponse) -> Proxy ByteString -> Proxy ConsensusFinalizeBlockResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema ByteString) +<*> (Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy ByteString forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) +HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_block_id - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_block_id + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ConsensusFinalizeBlockResponse", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ConsensusFinalizeBlockResponse", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("status", - Referenced Schema -consensusFinalizeBlockResponseStatus), - ("block_id", - Referenced Schema -consensusFinalizeBlockResponseBlockId)]}}) - -data ConsensusFinalizeBlockResponse_Status = ConsensusFinalizeBlockResponse_StatusSTATUS_UNSET - | ConsensusFinalizeBlockResponse_StatusOK - | ConsensusFinalizeBlockResponse_StatusBAD_REQUEST - | ConsensusFinalizeBlockResponse_StatusSERVICE_ERROR - | ConsensusFinalizeBlockResponse_StatusNOT_READY - | ConsensusFinalizeBlockResponse_StatusINVALID_STATE - | ConsensusFinalizeBlockResponse_StatusBLOCK_NOT_READY - | ConsensusFinalizeBlockResponse_StatusNOT_ACTIVE_ENGINE - deriving (Int -> ConsensusFinalizeBlockResponse_Status -> ShowS +HsJSONPB.insOrdFromList + [(Text +"status", + Referenced Schema +consensusFinalizeBlockResponseStatus), + (Text +"block_id", + Referenced Schema +consensusFinalizeBlockResponseBlockId)]}}) + +data ConsensusFinalizeBlockResponse_Status = ConsensusFinalizeBlockResponse_StatusSTATUS_UNSET + | ConsensusFinalizeBlockResponse_StatusOK + | ConsensusFinalizeBlockResponse_StatusBAD_REQUEST + | ConsensusFinalizeBlockResponse_StatusSERVICE_ERROR + | ConsensusFinalizeBlockResponse_StatusNOT_READY + | ConsensusFinalizeBlockResponse_StatusINVALID_STATE + | ConsensusFinalizeBlockResponse_StatusBLOCK_NOT_READY + | ConsensusFinalizeBlockResponse_StatusNOT_ACTIVE_ENGINE + deriving (Int -> ConsensusFinalizeBlockResponse_Status -> ShowS [ConsensusFinalizeBlockResponse_Status] -> ShowS ConsensusFinalizeBlockResponse_Status -> String (Int -> ConsensusFinalizeBlockResponse_Status -> ShowS) @@ -12990,7 +13827,7 @@ show :: ConsensusFinalizeBlockResponse_Status -> String $cshow :: ConsensusFinalizeBlockResponse_Status -> String showsPrec :: Int -> ConsensusFinalizeBlockResponse_Status -> ShowS $cshowsPrec :: Int -> ConsensusFinalizeBlockResponse_Status -> ShowS -Hs.Show, ConsensusFinalizeBlockResponse_Status +Hs.Show, ConsensusFinalizeBlockResponse_Status -> ConsensusFinalizeBlockResponse_Status -> Bool (ConsensusFinalizeBlockResponse_Status -> ConsensusFinalizeBlockResponse_Status -> Bool) @@ -13006,7 +13843,7 @@ $c/= :: ConsensusFinalizeBlockResponse_Status -> ConsensusFinalizeBlockResponse_Status -> Bool $c== :: ConsensusFinalizeBlockResponse_Status -> ConsensusFinalizeBlockResponse_Status -> Bool -Hs.Eq, (forall x. +Hs.Eq, (forall x. ConsensusFinalizeBlockResponse_Status -> Rep ConsensusFinalizeBlockResponse_Status x) -> (forall x. @@ -13027,221 +13864,251 @@ Rep ConsensusFinalizeBlockResponse_Status x $cfrom :: forall x. ConsensusFinalizeBlockResponse_Status -> Rep ConsensusFinalizeBlockResponse_Status x -Hs.Generic, ConsensusFinalizeBlockResponse_Status -> () +Hs.Generic, ConsensusFinalizeBlockResponse_Status -> () (ConsensusFinalizeBlockResponse_Status -> ()) -> NFData ConsensusFinalizeBlockResponse_Status forall a. (a -> ()) -> NFData a rnf :: ConsensusFinalizeBlockResponse_Status -> () $crnf :: ConsensusFinalizeBlockResponse_Status -> () -Hs.NFData) - -instance HsProtobuf.Named ConsensusFinalizeBlockResponse_Status - where - nameOf :: Proxy# ConsensusFinalizeBlockResponse_Status -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ConsensusFinalizeBlockResponse_Status + where + nameOf :: Proxy# ConsensusFinalizeBlockResponse_Status -> string +nameOf Proxy# ConsensusFinalizeBlockResponse_Status +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ConsensusFinalizeBlockResponse_Status") - -instance HsProtobuf.HasDefault - ConsensusFinalizeBlockResponse_Status - -instance Hs.Bounded ConsensusFinalizeBlockResponse_Status where - minBound :: ConsensusFinalizeBlockResponse_Status -minBound = ConsensusFinalizeBlockResponse_Status +Hs.fromString String +"ConsensusFinalizeBlockResponse_Status") + +instance HsProtobuf.HasDefault + ConsensusFinalizeBlockResponse_Status + +instance Hs.Bounded ConsensusFinalizeBlockResponse_Status where + minBound :: ConsensusFinalizeBlockResponse_Status +minBound = ConsensusFinalizeBlockResponse_Status ConsensusFinalizeBlockResponse_StatusSTATUS_UNSET - maxBound :: ConsensusFinalizeBlockResponse_Status -maxBound = ConsensusFinalizeBlockResponse_Status + maxBound :: ConsensusFinalizeBlockResponse_Status +maxBound = ConsensusFinalizeBlockResponse_Status ConsensusFinalizeBlockResponse_StatusNOT_ACTIVE_ENGINE - -instance Hs.Ord ConsensusFinalizeBlockResponse_Status where - compare :: ConsensusFinalizeBlockResponse_Status + +instance Hs.Ord ConsensusFinalizeBlockResponse_Status where + compare :: ConsensusFinalizeBlockResponse_Status -> ConsensusFinalizeBlockResponse_Status -> Ordering -compare x :: ConsensusFinalizeBlockResponse_Status -x y :: ConsensusFinalizeBlockResponse_Status -y - = Int32 -> Int32 -> Ordering +compare ConsensusFinalizeBlockResponse_Status +x ConsensusFinalizeBlockResponse_Status +y + = Int32 -> Int32 -> Ordering forall a. Ord a => a -> a -> Ordering -Hs.compare (ConsensusFinalizeBlockResponse_Status -> Int32 +Hs.compare (ConsensusFinalizeBlockResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum ConsensusFinalizeBlockResponse_Status -x) - (ConsensusFinalizeBlockResponse_Status -> Int32 +HsProtobuf.fromProtoEnum ConsensusFinalizeBlockResponse_Status +x) + (ConsensusFinalizeBlockResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum ConsensusFinalizeBlockResponse_Status -y) - -instance HsProtobuf.ProtoEnum ConsensusFinalizeBlockResponse_Status - where - toProtoEnumMay :: Int32 -> Maybe ConsensusFinalizeBlockResponse_Status -toProtoEnumMay 0 - = ConsensusFinalizeBlockResponse_Status +HsProtobuf.fromProtoEnum ConsensusFinalizeBlockResponse_Status +y) + +instance HsProtobuf.ProtoEnum ConsensusFinalizeBlockResponse_Status + where + toProtoEnumMay :: Int32 -> Maybe ConsensusFinalizeBlockResponse_Status +toProtoEnumMay Int32 +0 + = ConsensusFinalizeBlockResponse_Status -> Maybe ConsensusFinalizeBlockResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusFinalizeBlockResponse_Status +Hs.Just ConsensusFinalizeBlockResponse_Status ConsensusFinalizeBlockResponse_StatusSTATUS_UNSET - toProtoEnumMay 1 = ConsensusFinalizeBlockResponse_Status + toProtoEnumMay Int32 +1 = ConsensusFinalizeBlockResponse_Status -> Maybe ConsensusFinalizeBlockResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusFinalizeBlockResponse_Status +Hs.Just ConsensusFinalizeBlockResponse_Status ConsensusFinalizeBlockResponse_StatusOK - toProtoEnumMay 2 - = ConsensusFinalizeBlockResponse_Status + toProtoEnumMay Int32 +2 + = ConsensusFinalizeBlockResponse_Status -> Maybe ConsensusFinalizeBlockResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusFinalizeBlockResponse_Status +Hs.Just ConsensusFinalizeBlockResponse_Status ConsensusFinalizeBlockResponse_StatusBAD_REQUEST - toProtoEnumMay 3 - = ConsensusFinalizeBlockResponse_Status + toProtoEnumMay Int32 +3 + = ConsensusFinalizeBlockResponse_Status -> Maybe ConsensusFinalizeBlockResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusFinalizeBlockResponse_Status +Hs.Just ConsensusFinalizeBlockResponse_Status ConsensusFinalizeBlockResponse_StatusSERVICE_ERROR - toProtoEnumMay 4 - = ConsensusFinalizeBlockResponse_Status + toProtoEnumMay Int32 +4 + = ConsensusFinalizeBlockResponse_Status -> Maybe ConsensusFinalizeBlockResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusFinalizeBlockResponse_Status +Hs.Just ConsensusFinalizeBlockResponse_Status ConsensusFinalizeBlockResponse_StatusNOT_READY - toProtoEnumMay 5 - = ConsensusFinalizeBlockResponse_Status + toProtoEnumMay Int32 +5 + = ConsensusFinalizeBlockResponse_Status -> Maybe ConsensusFinalizeBlockResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusFinalizeBlockResponse_Status +Hs.Just ConsensusFinalizeBlockResponse_Status ConsensusFinalizeBlockResponse_StatusINVALID_STATE - toProtoEnumMay 6 - = ConsensusFinalizeBlockResponse_Status + toProtoEnumMay Int32 +6 + = ConsensusFinalizeBlockResponse_Status -> Maybe ConsensusFinalizeBlockResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusFinalizeBlockResponse_Status +Hs.Just ConsensusFinalizeBlockResponse_Status ConsensusFinalizeBlockResponse_StatusBLOCK_NOT_READY - toProtoEnumMay 7 - = ConsensusFinalizeBlockResponse_Status + toProtoEnumMay Int32 +7 + = ConsensusFinalizeBlockResponse_Status -> Maybe ConsensusFinalizeBlockResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusFinalizeBlockResponse_Status +Hs.Just ConsensusFinalizeBlockResponse_Status ConsensusFinalizeBlockResponse_StatusNOT_ACTIVE_ENGINE - toProtoEnumMay _ = Maybe ConsensusFinalizeBlockResponse_Status + toProtoEnumMay Int32 +_ = Maybe ConsensusFinalizeBlockResponse_Status forall a. Maybe a -Hs.Nothing - fromProtoEnum :: ConsensusFinalizeBlockResponse_Status -> Int32 -fromProtoEnum (ConsensusFinalizeBlockResponse_Status +Hs.Nothing + fromProtoEnum :: ConsensusFinalizeBlockResponse_Status -> Int32 +fromProtoEnum (ConsensusFinalizeBlockResponse_Status ConsensusFinalizeBlockResponse_StatusSTATUS_UNSET) - = 0 - fromProtoEnum (ConsensusFinalizeBlockResponse_Status -ConsensusFinalizeBlockResponse_StatusOK) = 1 - fromProtoEnum (ConsensusFinalizeBlockResponse_Status + = Int32 +0 + fromProtoEnum (ConsensusFinalizeBlockResponse_Status +ConsensusFinalizeBlockResponse_StatusOK) = Int32 +1 + fromProtoEnum (ConsensusFinalizeBlockResponse_Status ConsensusFinalizeBlockResponse_StatusBAD_REQUEST) - = 2 - fromProtoEnum (ConsensusFinalizeBlockResponse_Status + = Int32 +2 + fromProtoEnum (ConsensusFinalizeBlockResponse_Status ConsensusFinalizeBlockResponse_StatusSERVICE_ERROR) - = 3 - fromProtoEnum (ConsensusFinalizeBlockResponse_Status -ConsensusFinalizeBlockResponse_StatusNOT_READY) = 4 - fromProtoEnum (ConsensusFinalizeBlockResponse_Status + = Int32 +3 + fromProtoEnum (ConsensusFinalizeBlockResponse_Status +ConsensusFinalizeBlockResponse_StatusNOT_READY) = Int32 +4 + fromProtoEnum (ConsensusFinalizeBlockResponse_Status ConsensusFinalizeBlockResponse_StatusINVALID_STATE) - = 5 - fromProtoEnum - (ConsensusFinalizeBlockResponse_Status -ConsensusFinalizeBlockResponse_StatusBLOCK_NOT_READY) = 6 - fromProtoEnum - (ConsensusFinalizeBlockResponse_Status -ConsensusFinalizeBlockResponse_StatusNOT_ACTIVE_ENGINE) = 7 - -instance HsJSONPB.ToJSONPB ConsensusFinalizeBlockResponse_Status - where - toJSONPB :: ConsensusFinalizeBlockResponse_Status -> Options -> Value -toJSONPB x :: ConsensusFinalizeBlockResponse_Status -x _ = ConsensusFinalizeBlockResponse_Status -> Value + = Int32 +5 + fromProtoEnum + (ConsensusFinalizeBlockResponse_Status +ConsensusFinalizeBlockResponse_StatusBLOCK_NOT_READY) = Int32 +6 + fromProtoEnum + (ConsensusFinalizeBlockResponse_Status +ConsensusFinalizeBlockResponse_StatusNOT_ACTIVE_ENGINE) = Int32 +7 + +instance HsJSONPB.ToJSONPB ConsensusFinalizeBlockResponse_Status + where + toJSONPB :: ConsensusFinalizeBlockResponse_Status -> Options -> Value +toJSONPB ConsensusFinalizeBlockResponse_Status +x Options +_ = ConsensusFinalizeBlockResponse_Status -> Value forall a. (Named a, Show a) => a -> Value -HsJSONPB.enumFieldString ConsensusFinalizeBlockResponse_Status -x - toEncodingPB :: ConsensusFinalizeBlockResponse_Status -> Options -> Encoding -toEncodingPB x :: ConsensusFinalizeBlockResponse_Status -x _ = ConsensusFinalizeBlockResponse_Status -> Encoding +HsJSONPB.enumFieldString ConsensusFinalizeBlockResponse_Status +x + toEncodingPB :: ConsensusFinalizeBlockResponse_Status -> Options -> Encoding +toEncodingPB ConsensusFinalizeBlockResponse_Status +x Options +_ = ConsensusFinalizeBlockResponse_Status -> Encoding forall a. (Named a, Show a) => a -> Encoding -HsJSONPB.enumFieldEncoding ConsensusFinalizeBlockResponse_Status -x - -instance HsJSONPB.FromJSONPB ConsensusFinalizeBlockResponse_Status - where - parseJSONPB :: Value -> Parser ConsensusFinalizeBlockResponse_Status -parseJSONPB (HsJSONPB.String "STATUS_UNSET") - = ConsensusFinalizeBlockResponse_Status +HsJSONPB.enumFieldEncoding ConsensusFinalizeBlockResponse_Status +x + +instance HsJSONPB.FromJSONPB ConsensusFinalizeBlockResponse_Status + where + parseJSONPB :: Value -> Parser ConsensusFinalizeBlockResponse_Status +parseJSONPB (HsJSONPB.String Text +"STATUS_UNSET") + = ConsensusFinalizeBlockResponse_Status -> Parser ConsensusFinalizeBlockResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusFinalizeBlockResponse_Status +Hs.pure ConsensusFinalizeBlockResponse_Status ConsensusFinalizeBlockResponse_StatusSTATUS_UNSET - parseJSONPB (HsJSONPB.String "OK") - = ConsensusFinalizeBlockResponse_Status + parseJSONPB (HsJSONPB.String Text +"OK") + = ConsensusFinalizeBlockResponse_Status -> Parser ConsensusFinalizeBlockResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusFinalizeBlockResponse_Status +Hs.pure ConsensusFinalizeBlockResponse_Status ConsensusFinalizeBlockResponse_StatusOK - parseJSONPB (HsJSONPB.String "BAD_REQUEST") - = ConsensusFinalizeBlockResponse_Status + parseJSONPB (HsJSONPB.String Text +"BAD_REQUEST") + = ConsensusFinalizeBlockResponse_Status -> Parser ConsensusFinalizeBlockResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusFinalizeBlockResponse_Status +Hs.pure ConsensusFinalizeBlockResponse_Status ConsensusFinalizeBlockResponse_StatusBAD_REQUEST - parseJSONPB (HsJSONPB.String "SERVICE_ERROR") - = ConsensusFinalizeBlockResponse_Status + parseJSONPB (HsJSONPB.String Text +"SERVICE_ERROR") + = ConsensusFinalizeBlockResponse_Status -> Parser ConsensusFinalizeBlockResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusFinalizeBlockResponse_Status +Hs.pure ConsensusFinalizeBlockResponse_Status ConsensusFinalizeBlockResponse_StatusSERVICE_ERROR - parseJSONPB (HsJSONPB.String "NOT_READY") - = ConsensusFinalizeBlockResponse_Status + parseJSONPB (HsJSONPB.String Text +"NOT_READY") + = ConsensusFinalizeBlockResponse_Status -> Parser ConsensusFinalizeBlockResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusFinalizeBlockResponse_Status +Hs.pure ConsensusFinalizeBlockResponse_Status ConsensusFinalizeBlockResponse_StatusNOT_READY - parseJSONPB (HsJSONPB.String "INVALID_STATE") - = ConsensusFinalizeBlockResponse_Status + parseJSONPB (HsJSONPB.String Text +"INVALID_STATE") + = ConsensusFinalizeBlockResponse_Status -> Parser ConsensusFinalizeBlockResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusFinalizeBlockResponse_Status +Hs.pure ConsensusFinalizeBlockResponse_Status ConsensusFinalizeBlockResponse_StatusINVALID_STATE - parseJSONPB (HsJSONPB.String "BLOCK_NOT_READY") - = ConsensusFinalizeBlockResponse_Status + parseJSONPB (HsJSONPB.String Text +"BLOCK_NOT_READY") + = ConsensusFinalizeBlockResponse_Status -> Parser ConsensusFinalizeBlockResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusFinalizeBlockResponse_Status +Hs.pure ConsensusFinalizeBlockResponse_Status ConsensusFinalizeBlockResponse_StatusBLOCK_NOT_READY - parseJSONPB (HsJSONPB.String "NOT_ACTIVE_ENGINE") - = ConsensusFinalizeBlockResponse_Status + parseJSONPB (HsJSONPB.String Text +"NOT_ACTIVE_ENGINE") + = ConsensusFinalizeBlockResponse_Status -> Parser ConsensusFinalizeBlockResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusFinalizeBlockResponse_Status +Hs.pure ConsensusFinalizeBlockResponse_Status ConsensusFinalizeBlockResponse_StatusNOT_ACTIVE_ENGINE - parseJSONPB v :: Value -v - = (String -> Value -> Parser ConsensusFinalizeBlockResponse_Status + parseJSONPB Value +v + = (String -> Value -> Parser ConsensusFinalizeBlockResponse_Status forall a. String -> Value -> Parser a -HsJSONPB.typeMismatch "ConsensusFinalizeBlockResponse_Status" Value -v) - -instance HsJSONPB.ToJSON ConsensusFinalizeBlockResponse_Status - where - toJSON :: ConsensusFinalizeBlockResponse_Status -> Value -toJSON = ConsensusFinalizeBlockResponse_Status -> Value +HsJSONPB.typeMismatch String +"ConsensusFinalizeBlockResponse_Status" Value +v) + +instance HsJSONPB.ToJSON ConsensusFinalizeBlockResponse_Status + where + toJSON :: ConsensusFinalizeBlockResponse_Status -> Value +toJSON = ConsensusFinalizeBlockResponse_Status -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ConsensusFinalizeBlockResponse_Status -> Encoding -toEncoding = ConsensusFinalizeBlockResponse_Status -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ConsensusFinalizeBlockResponse_Status -> Encoding +toEncoding = ConsensusFinalizeBlockResponse_Status -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ConsensusFinalizeBlockResponse_Status - where - parseJSON :: Value -> Parser ConsensusFinalizeBlockResponse_Status -parseJSON = Value -> Parser ConsensusFinalizeBlockResponse_Status +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ConsensusFinalizeBlockResponse_Status + where + parseJSON :: Value -> Parser ConsensusFinalizeBlockResponse_Status +parseJSON = Value -> Parser ConsensusFinalizeBlockResponse_Status forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsProtobuf.Finite ConsensusFinalizeBlockResponse_Status - -data ConsensusCancelBlockRequest = ConsensusCancelBlockRequest{} - deriving (Int -> ConsensusCancelBlockRequest -> ShowS +HsJSONPB.parseJSONPB + +instance HsProtobuf.Finite ConsensusFinalizeBlockResponse_Status + +data ConsensusCancelBlockRequest = ConsensusCancelBlockRequest{} + deriving (Int -> ConsensusCancelBlockRequest -> ShowS [ConsensusCancelBlockRequest] -> ShowS ConsensusCancelBlockRequest -> String (Int -> ConsensusCancelBlockRequest -> ShowS) @@ -13256,7 +14123,7 @@ show :: ConsensusCancelBlockRequest -> String $cshow :: ConsensusCancelBlockRequest -> String showsPrec :: Int -> ConsensusCancelBlockRequest -> ShowS $cshowsPrec :: Int -> ConsensusCancelBlockRequest -> ShowS -Hs.Show, ConsensusCancelBlockRequest -> ConsensusCancelBlockRequest -> Bool +Hs.Show, ConsensusCancelBlockRequest -> ConsensusCancelBlockRequest -> Bool (ConsensusCancelBlockRequest -> ConsensusCancelBlockRequest -> Bool) -> (ConsensusCancelBlockRequest @@ -13267,10 +14134,10 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: ConsensusCancelBlockRequest -> ConsensusCancelBlockRequest -> Bool == :: ConsensusCancelBlockRequest -> ConsensusCancelBlockRequest -> Bool $c== :: ConsensusCancelBlockRequest -> ConsensusCancelBlockRequest -> Bool -Hs.Eq, Eq ConsensusCancelBlockRequest -Eq ConsensusCancelBlockRequest => -(ConsensusCancelBlockRequest - -> ConsensusCancelBlockRequest -> Ordering) +Hs.Eq, Eq ConsensusCancelBlockRequest +Eq ConsensusCancelBlockRequest +-> (ConsensusCancelBlockRequest + -> ConsensusCancelBlockRequest -> Ordering) -> (ConsensusCancelBlockRequest -> ConsensusCancelBlockRequest -> Bool) -> (ConsensusCancelBlockRequest @@ -13290,8 +14157,8 @@ ConsensusCancelBlockRequest ConsensusCancelBlockRequest -> ConsensusCancelBlockRequest -> ConsensusCancelBlockRequest forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -13320,7 +14187,7 @@ compare :: ConsensusCancelBlockRequest $ccompare :: ConsensusCancelBlockRequest -> ConsensusCancelBlockRequest -> Ordering $cp1Ord :: Eq ConsensusCancelBlockRequest -Hs.Ord, (forall x. +Hs.Ord, (forall x. ConsensusCancelBlockRequest -> Rep ConsensusCancelBlockRequest x) -> (forall x. Rep ConsensusCancelBlockRequest x -> ConsensusCancelBlockRequest) @@ -13335,119 +14202,127 @@ $cto :: forall x. Rep ConsensusCancelBlockRequest x -> ConsensusCancelBlockRequest $cfrom :: forall x. ConsensusCancelBlockRequest -> Rep ConsensusCancelBlockRequest x -Hs.Generic, ConsensusCancelBlockRequest -> () +Hs.Generic, ConsensusCancelBlockRequest -> () (ConsensusCancelBlockRequest -> ()) -> NFData ConsensusCancelBlockRequest forall a. (a -> ()) -> NFData a rnf :: ConsensusCancelBlockRequest -> () $crnf :: ConsensusCancelBlockRequest -> () -Hs.NFData) - -instance HsProtobuf.Named ConsensusCancelBlockRequest where - nameOf :: Proxy# ConsensusCancelBlockRequest -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ConsensusCancelBlockRequest where + nameOf :: Proxy# ConsensusCancelBlockRequest -> string +nameOf Proxy# ConsensusCancelBlockRequest +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ConsensusCancelBlockRequest") - -instance HsProtobuf.HasDefault ConsensusCancelBlockRequest - -instance HsProtobuf.Message ConsensusCancelBlockRequest where - encodeMessage :: FieldNumber -> ConsensusCancelBlockRequest -> MessageBuilder -encodeMessage _ ConsensusCancelBlockRequest{} = ([MessageBuilder] -> MessageBuilder +Hs.fromString String +"ConsensusCancelBlockRequest") + +instance HsProtobuf.HasDefault ConsensusCancelBlockRequest + +instance HsProtobuf.Message ConsensusCancelBlockRequest where + encodeMessage :: FieldNumber -> ConsensusCancelBlockRequest -> MessageBuilder +encodeMessage FieldNumber +_ ConsensusCancelBlockRequest{} = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat []) - decodeMessage :: FieldNumber -> Parser RawMessage ConsensusCancelBlockRequest -decodeMessage _ = (ConsensusCancelBlockRequest +Hs.mconcat []) + decodeMessage :: FieldNumber -> Parser RawMessage ConsensusCancelBlockRequest +decodeMessage FieldNumber +_ = (ConsensusCancelBlockRequest -> Parser RawMessage ConsensusCancelBlockRequest forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusCancelBlockRequest +Hs.pure ConsensusCancelBlockRequest ConsensusCancelBlockRequest) - dotProto :: Proxy# ConsensusCancelBlockRequest -> [DotProtoField] -dotProto _ = [] - -instance HsJSONPB.ToJSONPB ConsensusCancelBlockRequest where - toJSONPB :: ConsensusCancelBlockRequest -> Options -> Value -toJSONPB (ConsensusCancelBlockRequest + dotProto :: Proxy# ConsensusCancelBlockRequest -> [DotProtoField] +dotProto Proxy# ConsensusCancelBlockRequest +_ = [] + +instance HsJSONPB.ToJSONPB ConsensusCancelBlockRequest where + toJSONPB :: ConsensusCancelBlockRequest -> Options -> Value +toJSONPB (ConsensusCancelBlockRequest ConsensusCancelBlockRequest) = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object []) - toEncodingPB :: ConsensusCancelBlockRequest -> Options -> Encoding -toEncodingPB (ConsensusCancelBlockRequest +HsJSONPB.object []) + toEncodingPB :: ConsensusCancelBlockRequest -> Options -> Encoding +toEncodingPB (ConsensusCancelBlockRequest ConsensusCancelBlockRequest) = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs []) - -instance HsJSONPB.FromJSONPB ConsensusCancelBlockRequest where - parseJSONPB :: Value -> Parser ConsensusCancelBlockRequest -parseJSONPB - = (String +HsJSONPB.pairs []) + +instance HsJSONPB.FromJSONPB ConsensusCancelBlockRequest where + parseJSONPB :: Value -> Parser ConsensusCancelBlockRequest +parseJSONPB + = (String -> (Object -> Parser ConsensusCancelBlockRequest) -> Value -> Parser ConsensusCancelBlockRequest forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ConsensusCancelBlockRequest" - (\ obj :: Object -obj -> (ConsensusCancelBlockRequest -> Parser ConsensusCancelBlockRequest +HsJSONPB.withObject String +"ConsensusCancelBlockRequest" + (\ Object +obj -> (ConsensusCancelBlockRequest -> Parser ConsensusCancelBlockRequest forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusCancelBlockRequest +Hs.pure ConsensusCancelBlockRequest ConsensusCancelBlockRequest))) - -instance HsJSONPB.ToJSON ConsensusCancelBlockRequest where - toJSON :: ConsensusCancelBlockRequest -> Value -toJSON = ConsensusCancelBlockRequest -> Value + +instance HsJSONPB.ToJSON ConsensusCancelBlockRequest where + toJSON :: ConsensusCancelBlockRequest -> Value +toJSON = ConsensusCancelBlockRequest -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ConsensusCancelBlockRequest -> Encoding -toEncoding = ConsensusCancelBlockRequest -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ConsensusCancelBlockRequest -> Encoding +toEncoding = ConsensusCancelBlockRequest -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ConsensusCancelBlockRequest where - parseJSON :: Value -> Parser ConsensusCancelBlockRequest -parseJSON = Value -> Parser ConsensusCancelBlockRequest +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ConsensusCancelBlockRequest where + parseJSON :: Value -> Parser ConsensusCancelBlockRequest +parseJSON = Value -> Parser ConsensusCancelBlockRequest forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ConsensusCancelBlockRequest where - declareNamedSchema :: Proxy ConsensusCancelBlockRequest +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ConsensusCancelBlockRequest where + declareNamedSchema :: Proxy ConsensusCancelBlockRequest -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do NamedSchema -> Declare (Definitions Schema) NamedSchema +declareNamedSchema Proxy ConsensusCancelBlockRequest +_ + = do NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ConsensusCancelBlockRequest", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ConsensusCancelBlockRequest", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList []}}) - -newtype ConsensusCancelBlockResponse = ConsensusCancelBlockResponse{ConsensusCancelBlockResponse +HsJSONPB.insOrdFromList []}}) + +newtype ConsensusCancelBlockResponse = ConsensusCancelBlockResponse{ConsensusCancelBlockResponse -> Enumerated ConsensusCancelBlockResponse_Status consensusCancelBlockResponseStatus - :: - HsProtobuf.Enumerated - Data.Sawtooth.Consensus.ConsensusCancelBlockResponse_Status} - deriving (Int -> ConsensusCancelBlockResponse -> ShowS + :: + HsProtobuf.Enumerated + Data.Sawtooth.Consensus.ConsensusCancelBlockResponse_Status} + deriving (Int -> ConsensusCancelBlockResponse -> ShowS [ConsensusCancelBlockResponse] -> ShowS ConsensusCancelBlockResponse -> String (Int -> ConsensusCancelBlockResponse -> ShowS) @@ -13462,7 +14337,7 @@ show :: ConsensusCancelBlockResponse -> String $cshow :: ConsensusCancelBlockResponse -> String showsPrec :: Int -> ConsensusCancelBlockResponse -> ShowS $cshowsPrec :: Int -> ConsensusCancelBlockResponse -> ShowS -Hs.Show, ConsensusCancelBlockResponse +Hs.Show, ConsensusCancelBlockResponse -> ConsensusCancelBlockResponse -> Bool (ConsensusCancelBlockResponse -> ConsensusCancelBlockResponse -> Bool) @@ -13478,10 +14353,10 @@ $c/= :: ConsensusCancelBlockResponse -> ConsensusCancelBlockResponse -> Bool $c== :: ConsensusCancelBlockResponse -> ConsensusCancelBlockResponse -> Bool -Hs.Eq, Eq ConsensusCancelBlockResponse -Eq ConsensusCancelBlockResponse => -(ConsensusCancelBlockResponse - -> ConsensusCancelBlockResponse -> Ordering) +Hs.Eq, Eq ConsensusCancelBlockResponse +Eq ConsensusCancelBlockResponse +-> (ConsensusCancelBlockResponse + -> ConsensusCancelBlockResponse -> Ordering) -> (ConsensusCancelBlockResponse -> ConsensusCancelBlockResponse -> Bool) -> (ConsensusCancelBlockResponse @@ -13502,8 +14377,8 @@ ConsensusCancelBlockResponse ConsensusCancelBlockResponse -> ConsensusCancelBlockResponse -> ConsensusCancelBlockResponse forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -13540,7 +14415,7 @@ compare :: ConsensusCancelBlockResponse $ccompare :: ConsensusCancelBlockResponse -> ConsensusCancelBlockResponse -> Ordering $cp1Ord :: Eq ConsensusCancelBlockResponse -Hs.Ord, (forall x. +Hs.Ord, (forall x. ConsensusCancelBlockResponse -> Rep ConsensusCancelBlockResponse x) -> (forall x. Rep ConsensusCancelBlockResponse x -> ConsensusCancelBlockResponse) @@ -13555,50 +14430,55 @@ $cto :: forall x. Rep ConsensusCancelBlockResponse x -> ConsensusCancelBlockResponse $cfrom :: forall x. ConsensusCancelBlockResponse -> Rep ConsensusCancelBlockResponse x -Hs.Generic, ConsensusCancelBlockResponse -> () +Hs.Generic, ConsensusCancelBlockResponse -> () (ConsensusCancelBlockResponse -> ()) -> NFData ConsensusCancelBlockResponse forall a. (a -> ()) -> NFData a rnf :: ConsensusCancelBlockResponse -> () $crnf :: ConsensusCancelBlockResponse -> () -Hs.NFData) - -instance HsProtobuf.Named ConsensusCancelBlockResponse where - nameOf :: Proxy# ConsensusCancelBlockResponse -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ConsensusCancelBlockResponse where + nameOf :: Proxy# ConsensusCancelBlockResponse -> string +nameOf Proxy# ConsensusCancelBlockResponse +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ConsensusCancelBlockResponse") - -instance HsProtobuf.HasDefault ConsensusCancelBlockResponse - -instance HsProtobuf.Message ConsensusCancelBlockResponse where - encodeMessage :: FieldNumber -> ConsensusCancelBlockResponse -> MessageBuilder -encodeMessage _ - ConsensusCancelBlockResponse{consensusCancelBlockResponseStatus :: ConsensusCancelBlockResponse +Hs.fromString String +"ConsensusCancelBlockResponse") + +instance HsProtobuf.HasDefault ConsensusCancelBlockResponse + +instance HsProtobuf.Message ConsensusCancelBlockResponse where + encodeMessage :: FieldNumber -> ConsensusCancelBlockResponse -> MessageBuilder +encodeMessage FieldNumber +_ + ConsensusCancelBlockResponse{consensusCancelBlockResponseStatus :: ConsensusCancelBlockResponse -> Enumerated ConsensusCancelBlockResponse_Status consensusCancelBlockResponseStatus = - Enumerated ConsensusCancelBlockResponse_Status -consensusCancelBlockResponseStatus} - = ([MessageBuilder] -> MessageBuilder + Enumerated ConsensusCancelBlockResponse_Status +consensusCancelBlockResponseStatus} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber +Hs.mconcat + [(FieldNumber -> Enumerated ConsensusCancelBlockResponse_Status -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Enumerated ConsensusCancelBlockResponse_Status -consensusCancelBlockResponseStatus)]) - decodeMessage :: FieldNumber -> Parser RawMessage ConsensusCancelBlockResponse -decodeMessage _ - = ((Enumerated ConsensusCancelBlockResponse_Status +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Enumerated ConsensusCancelBlockResponse_Status +consensusCancelBlockResponseStatus)]) + decodeMessage :: FieldNumber -> Parser RawMessage ConsensusCancelBlockResponse +decodeMessage FieldNumber +_ + = ((Enumerated ConsensusCancelBlockResponse_Status -> ConsensusCancelBlockResponse) -> Parser RawMessage (Enumerated ConsensusCancelBlockResponse_Status -> ConsensusCancelBlockResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ConsensusCancelBlockResponse_Status +Hs.pure Enumerated ConsensusCancelBlockResponse_Status -> ConsensusCancelBlockResponse ConsensusCancelBlockResponse) Parser RawMessage @@ -13608,82 +14488,91 @@ forall (f :: * -> *) a. Applicative f => a -> f a RawMessage (Enumerated ConsensusCancelBlockResponse_Status) -> Parser RawMessage ConsensusCancelBlockResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField (Enumerated ConsensusCancelBlockResponse_Status) +<*> + (Parser RawField (Enumerated ConsensusCancelBlockResponse_Status) -> FieldNumber -> Parser RawMessage (Enumerated ConsensusCancelBlockResponse_Status) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (Enumerated ConsensusCancelBlockResponse_Status) +HsProtobuf.at Parser RawField (Enumerated ConsensusCancelBlockResponse_Status) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - dotProto :: Proxy# ConsensusCancelBlockResponse -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + dotProto :: Proxy# ConsensusCancelBlockResponse -> [DotProtoField] +dotProto Proxy# ConsensusCancelBlockResponse +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "Status"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "status") - [] - "")] - -instance HsJSONPB.ToJSONPB ConsensusCancelBlockResponse where - toJSONPB :: ConsensusCancelBlockResponse -> Options -> Value -toJSONPB (ConsensusCancelBlockResponse f1 :: Enumerated ConsensusCancelBlockResponse_Status -f1) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["status" Text +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"Status"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"status") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ConsensusCancelBlockResponse where + toJSONPB :: ConsensusCancelBlockResponse -> Options -> Value +toJSONPB (ConsensusCancelBlockResponse Enumerated ConsensusCancelBlockResponse_Status +f1) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"status" Text -> Enumerated ConsensusCancelBlockResponse_Status -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated ConsensusCancelBlockResponse_Status -f1]) - toEncodingPB :: ConsensusCancelBlockResponse -> Options -> Encoding -toEncodingPB (ConsensusCancelBlockResponse f1 :: Enumerated ConsensusCancelBlockResponse_Status -f1) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["status" Text +.= Enumerated ConsensusCancelBlockResponse_Status +f1]) + toEncodingPB :: ConsensusCancelBlockResponse -> Options -> Encoding +toEncodingPB (ConsensusCancelBlockResponse Enumerated ConsensusCancelBlockResponse_Status +f1) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"status" Text -> Enumerated ConsensusCancelBlockResponse_Status -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated ConsensusCancelBlockResponse_Status -f1]) - -instance HsJSONPB.FromJSONPB ConsensusCancelBlockResponse where - parseJSONPB :: Value -> Parser ConsensusCancelBlockResponse -parseJSONPB - = (String +.= Enumerated ConsensusCancelBlockResponse_Status +f1]) + +instance HsJSONPB.FromJSONPB ConsensusCancelBlockResponse where + parseJSONPB :: Value -> Parser ConsensusCancelBlockResponse +parseJSONPB + = (String -> (Object -> Parser ConsensusCancelBlockResponse) -> Value -> Parser ConsensusCancelBlockResponse forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ConsensusCancelBlockResponse" - (\ obj :: Object -obj -> - ((Enumerated ConsensusCancelBlockResponse_Status +HsJSONPB.withObject String +"ConsensusCancelBlockResponse" + (\ Object +obj -> + ((Enumerated ConsensusCancelBlockResponse_Status -> ConsensusCancelBlockResponse) -> Parser (Enumerated ConsensusCancelBlockResponse_Status -> ConsensusCancelBlockResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ConsensusCancelBlockResponse_Status +Hs.pure Enumerated ConsensusCancelBlockResponse_Status -> ConsensusCancelBlockResponse ConsensusCancelBlockResponse) Parser (Enumerated ConsensusCancelBlockResponse_Status @@ -13691,60 +14580,62 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Parser (Enumerated ConsensusCancelBlockResponse_Status) -> Parser ConsensusCancelBlockResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object +<*> Object +obj Object -> Text -> Parser (Enumerated ConsensusCancelBlockResponse_Status) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "status")) - -instance HsJSONPB.ToJSON ConsensusCancelBlockResponse where - toJSON :: ConsensusCancelBlockResponse -> Value -toJSON = ConsensusCancelBlockResponse -> Value +.: Text +"status")) + +instance HsJSONPB.ToJSON ConsensusCancelBlockResponse where + toJSON :: ConsensusCancelBlockResponse -> Value +toJSON = ConsensusCancelBlockResponse -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ConsensusCancelBlockResponse -> Encoding -toEncoding = ConsensusCancelBlockResponse -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ConsensusCancelBlockResponse -> Encoding +toEncoding = ConsensusCancelBlockResponse -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ConsensusCancelBlockResponse where - parseJSON :: Value -> Parser ConsensusCancelBlockResponse -parseJSON = Value -> Parser ConsensusCancelBlockResponse +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ConsensusCancelBlockResponse where + parseJSON :: Value -> Parser ConsensusCancelBlockResponse +parseJSON = Value -> Parser ConsensusCancelBlockResponse forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ConsensusCancelBlockResponse where - declareNamedSchema :: Proxy ConsensusCancelBlockResponse +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ConsensusCancelBlockResponse where + declareNamedSchema :: Proxy ConsensusCancelBlockResponse -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_status :: Proxy +declareNamedSchema Proxy ConsensusCancelBlockResponse +_ + = do let declare_status :: Proxy (OverrideToSchema (Enumerated ConsensusCancelBlockResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status = Proxy +declare_status = Proxy (OverrideToSchema (Enumerated ConsensusCancelBlockResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -consensusCancelBlockResponseStatus <- Proxy +HsJSONPB.declareSchemaRef + Referenced Schema +consensusCancelBlockResponseStatus <- Proxy (OverrideToSchema (Enumerated ConsensusCancelBlockResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status Proxy +declare_status Proxy (OverrideToSchema (Enumerated ConsensusCancelBlockResponse_Status)) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ConsensusCancelBlockResponse +Proxy.Proxy + let Proxy ConsensusCancelBlockResponse _ = (Enumerated ConsensusCancelBlockResponse_Status -> ConsensusCancelBlockResponse) -> Proxy (Enumerated ConsensusCancelBlockResponse_Status -> ConsensusCancelBlockResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ConsensusCancelBlockResponse_Status +Hs.pure Enumerated ConsensusCancelBlockResponse_Status -> ConsensusCancelBlockResponse ConsensusCancelBlockResponse Proxy (Enumerated ConsensusCancelBlockResponse_Status @@ -13752,58 +14643,60 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Proxy (Enumerated ConsensusCancelBlockResponse_Status) -> Proxy ConsensusCancelBlockResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy +<*> + (Proxy (OverrideToSchema (Enumerated ConsensusCancelBlockResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Enumerated ConsensusCancelBlockResponse_Status) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy +HsJSONPB.asProxy Proxy (OverrideToSchema (Enumerated ConsensusCancelBlockResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_status + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ConsensusCancelBlockResponse", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ConsensusCancelBlockResponse", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("status", - Referenced Schema -consensusCancelBlockResponseStatus)]}}) - -data ConsensusCancelBlockResponse_Status = ConsensusCancelBlockResponse_StatusSTATUS_UNSET - | ConsensusCancelBlockResponse_StatusOK - | ConsensusCancelBlockResponse_StatusBAD_REQUEST - | ConsensusCancelBlockResponse_StatusSERVICE_ERROR - | ConsensusCancelBlockResponse_StatusNOT_READY - | ConsensusCancelBlockResponse_StatusINVALID_STATE - | ConsensusCancelBlockResponse_StatusNOT_ACTIVE_ENGINE - deriving (Int -> ConsensusCancelBlockResponse_Status -> ShowS +HsJSONPB.insOrdFromList + [(Text +"status", + Referenced Schema +consensusCancelBlockResponseStatus)]}}) + +data ConsensusCancelBlockResponse_Status = ConsensusCancelBlockResponse_StatusSTATUS_UNSET + | ConsensusCancelBlockResponse_StatusOK + | ConsensusCancelBlockResponse_StatusBAD_REQUEST + | ConsensusCancelBlockResponse_StatusSERVICE_ERROR + | ConsensusCancelBlockResponse_StatusNOT_READY + | ConsensusCancelBlockResponse_StatusINVALID_STATE + | ConsensusCancelBlockResponse_StatusNOT_ACTIVE_ENGINE + deriving (Int -> ConsensusCancelBlockResponse_Status -> ShowS [ConsensusCancelBlockResponse_Status] -> ShowS ConsensusCancelBlockResponse_Status -> String (Int -> ConsensusCancelBlockResponse_Status -> ShowS) @@ -13818,7 +14711,7 @@ show :: ConsensusCancelBlockResponse_Status -> String $cshow :: ConsensusCancelBlockResponse_Status -> String showsPrec :: Int -> ConsensusCancelBlockResponse_Status -> ShowS $cshowsPrec :: Int -> ConsensusCancelBlockResponse_Status -> ShowS -Hs.Show, ConsensusCancelBlockResponse_Status +Hs.Show, ConsensusCancelBlockResponse_Status -> ConsensusCancelBlockResponse_Status -> Bool (ConsensusCancelBlockResponse_Status -> ConsensusCancelBlockResponse_Status -> Bool) @@ -13834,7 +14727,7 @@ $c/= :: ConsensusCancelBlockResponse_Status -> ConsensusCancelBlockResponse_Status -> Bool $c== :: ConsensusCancelBlockResponse_Status -> ConsensusCancelBlockResponse_Status -> Bool -Hs.Eq, (forall x. +Hs.Eq, (forall x. ConsensusCancelBlockResponse_Status -> Rep ConsensusCancelBlockResponse_Status x) -> (forall x. @@ -13855,203 +14748,230 @@ Rep ConsensusCancelBlockResponse_Status x $cfrom :: forall x. ConsensusCancelBlockResponse_Status -> Rep ConsensusCancelBlockResponse_Status x -Hs.Generic, ConsensusCancelBlockResponse_Status -> () +Hs.Generic, ConsensusCancelBlockResponse_Status -> () (ConsensusCancelBlockResponse_Status -> ()) -> NFData ConsensusCancelBlockResponse_Status forall a. (a -> ()) -> NFData a rnf :: ConsensusCancelBlockResponse_Status -> () $crnf :: ConsensusCancelBlockResponse_Status -> () -Hs.NFData) - -instance HsProtobuf.Named ConsensusCancelBlockResponse_Status where - nameOf :: Proxy# ConsensusCancelBlockResponse_Status -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ConsensusCancelBlockResponse_Status where + nameOf :: Proxy# ConsensusCancelBlockResponse_Status -> string +nameOf Proxy# ConsensusCancelBlockResponse_Status +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ConsensusCancelBlockResponse_Status") - -instance HsProtobuf.HasDefault ConsensusCancelBlockResponse_Status - -instance Hs.Bounded ConsensusCancelBlockResponse_Status where - minBound :: ConsensusCancelBlockResponse_Status -minBound = ConsensusCancelBlockResponse_Status +Hs.fromString String +"ConsensusCancelBlockResponse_Status") + +instance HsProtobuf.HasDefault ConsensusCancelBlockResponse_Status + +instance Hs.Bounded ConsensusCancelBlockResponse_Status where + minBound :: ConsensusCancelBlockResponse_Status +minBound = ConsensusCancelBlockResponse_Status ConsensusCancelBlockResponse_StatusSTATUS_UNSET - maxBound :: ConsensusCancelBlockResponse_Status -maxBound = ConsensusCancelBlockResponse_Status + maxBound :: ConsensusCancelBlockResponse_Status +maxBound = ConsensusCancelBlockResponse_Status ConsensusCancelBlockResponse_StatusNOT_ACTIVE_ENGINE - -instance Hs.Ord ConsensusCancelBlockResponse_Status where - compare :: ConsensusCancelBlockResponse_Status + +instance Hs.Ord ConsensusCancelBlockResponse_Status where + compare :: ConsensusCancelBlockResponse_Status -> ConsensusCancelBlockResponse_Status -> Ordering -compare x :: ConsensusCancelBlockResponse_Status -x y :: ConsensusCancelBlockResponse_Status -y - = Int32 -> Int32 -> Ordering +compare ConsensusCancelBlockResponse_Status +x ConsensusCancelBlockResponse_Status +y + = Int32 -> Int32 -> Ordering forall a. Ord a => a -> a -> Ordering -Hs.compare (ConsensusCancelBlockResponse_Status -> Int32 +Hs.compare (ConsensusCancelBlockResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum ConsensusCancelBlockResponse_Status -x) - (ConsensusCancelBlockResponse_Status -> Int32 +HsProtobuf.fromProtoEnum ConsensusCancelBlockResponse_Status +x) + (ConsensusCancelBlockResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum ConsensusCancelBlockResponse_Status -y) - -instance HsProtobuf.ProtoEnum ConsensusCancelBlockResponse_Status - where - toProtoEnumMay :: Int32 -> Maybe ConsensusCancelBlockResponse_Status -toProtoEnumMay 0 - = ConsensusCancelBlockResponse_Status +HsProtobuf.fromProtoEnum ConsensusCancelBlockResponse_Status +y) + +instance HsProtobuf.ProtoEnum ConsensusCancelBlockResponse_Status + where + toProtoEnumMay :: Int32 -> Maybe ConsensusCancelBlockResponse_Status +toProtoEnumMay Int32 +0 + = ConsensusCancelBlockResponse_Status -> Maybe ConsensusCancelBlockResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusCancelBlockResponse_Status +Hs.Just ConsensusCancelBlockResponse_Status ConsensusCancelBlockResponse_StatusSTATUS_UNSET - toProtoEnumMay 1 = ConsensusCancelBlockResponse_Status + toProtoEnumMay Int32 +1 = ConsensusCancelBlockResponse_Status -> Maybe ConsensusCancelBlockResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusCancelBlockResponse_Status +Hs.Just ConsensusCancelBlockResponse_Status ConsensusCancelBlockResponse_StatusOK - toProtoEnumMay 2 - = ConsensusCancelBlockResponse_Status + toProtoEnumMay Int32 +2 + = ConsensusCancelBlockResponse_Status -> Maybe ConsensusCancelBlockResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusCancelBlockResponse_Status +Hs.Just ConsensusCancelBlockResponse_Status ConsensusCancelBlockResponse_StatusBAD_REQUEST - toProtoEnumMay 3 - = ConsensusCancelBlockResponse_Status + toProtoEnumMay Int32 +3 + = ConsensusCancelBlockResponse_Status -> Maybe ConsensusCancelBlockResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusCancelBlockResponse_Status +Hs.Just ConsensusCancelBlockResponse_Status ConsensusCancelBlockResponse_StatusSERVICE_ERROR - toProtoEnumMay 4 - = ConsensusCancelBlockResponse_Status + toProtoEnumMay Int32 +4 + = ConsensusCancelBlockResponse_Status -> Maybe ConsensusCancelBlockResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusCancelBlockResponse_Status +Hs.Just ConsensusCancelBlockResponse_Status ConsensusCancelBlockResponse_StatusNOT_READY - toProtoEnumMay 5 - = ConsensusCancelBlockResponse_Status + toProtoEnumMay Int32 +5 + = ConsensusCancelBlockResponse_Status -> Maybe ConsensusCancelBlockResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusCancelBlockResponse_Status +Hs.Just ConsensusCancelBlockResponse_Status ConsensusCancelBlockResponse_StatusINVALID_STATE - toProtoEnumMay 6 - = ConsensusCancelBlockResponse_Status + toProtoEnumMay Int32 +6 + = ConsensusCancelBlockResponse_Status -> Maybe ConsensusCancelBlockResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusCancelBlockResponse_Status +Hs.Just ConsensusCancelBlockResponse_Status ConsensusCancelBlockResponse_StatusNOT_ACTIVE_ENGINE - toProtoEnumMay _ = Maybe ConsensusCancelBlockResponse_Status + toProtoEnumMay Int32 +_ = Maybe ConsensusCancelBlockResponse_Status forall a. Maybe a -Hs.Nothing - fromProtoEnum :: ConsensusCancelBlockResponse_Status -> Int32 -fromProtoEnum (ConsensusCancelBlockResponse_Status -ConsensusCancelBlockResponse_StatusSTATUS_UNSET) = 0 - fromProtoEnum (ConsensusCancelBlockResponse_Status -ConsensusCancelBlockResponse_StatusOK) = 1 - fromProtoEnum (ConsensusCancelBlockResponse_Status -ConsensusCancelBlockResponse_StatusBAD_REQUEST) = 2 - fromProtoEnum (ConsensusCancelBlockResponse_Status +Hs.Nothing + fromProtoEnum :: ConsensusCancelBlockResponse_Status -> Int32 +fromProtoEnum (ConsensusCancelBlockResponse_Status +ConsensusCancelBlockResponse_StatusSTATUS_UNSET) = Int32 +0 + fromProtoEnum (ConsensusCancelBlockResponse_Status +ConsensusCancelBlockResponse_StatusOK) = Int32 +1 + fromProtoEnum (ConsensusCancelBlockResponse_Status +ConsensusCancelBlockResponse_StatusBAD_REQUEST) = Int32 +2 + fromProtoEnum (ConsensusCancelBlockResponse_Status ConsensusCancelBlockResponse_StatusSERVICE_ERROR) - = 3 - fromProtoEnum (ConsensusCancelBlockResponse_Status -ConsensusCancelBlockResponse_StatusNOT_READY) = 4 - fromProtoEnum (ConsensusCancelBlockResponse_Status + = Int32 +3 + fromProtoEnum (ConsensusCancelBlockResponse_Status +ConsensusCancelBlockResponse_StatusNOT_READY) = Int32 +4 + fromProtoEnum (ConsensusCancelBlockResponse_Status ConsensusCancelBlockResponse_StatusINVALID_STATE) - = 5 - fromProtoEnum - (ConsensusCancelBlockResponse_Status -ConsensusCancelBlockResponse_StatusNOT_ACTIVE_ENGINE) = 6 - -instance HsJSONPB.ToJSONPB ConsensusCancelBlockResponse_Status - where - toJSONPB :: ConsensusCancelBlockResponse_Status -> Options -> Value -toJSONPB x :: ConsensusCancelBlockResponse_Status -x _ = ConsensusCancelBlockResponse_Status -> Value + = Int32 +5 + fromProtoEnum + (ConsensusCancelBlockResponse_Status +ConsensusCancelBlockResponse_StatusNOT_ACTIVE_ENGINE) = Int32 +6 + +instance HsJSONPB.ToJSONPB ConsensusCancelBlockResponse_Status + where + toJSONPB :: ConsensusCancelBlockResponse_Status -> Options -> Value +toJSONPB ConsensusCancelBlockResponse_Status +x Options +_ = ConsensusCancelBlockResponse_Status -> Value forall a. (Named a, Show a) => a -> Value -HsJSONPB.enumFieldString ConsensusCancelBlockResponse_Status -x - toEncodingPB :: ConsensusCancelBlockResponse_Status -> Options -> Encoding -toEncodingPB x :: ConsensusCancelBlockResponse_Status -x _ = ConsensusCancelBlockResponse_Status -> Encoding +HsJSONPB.enumFieldString ConsensusCancelBlockResponse_Status +x + toEncodingPB :: ConsensusCancelBlockResponse_Status -> Options -> Encoding +toEncodingPB ConsensusCancelBlockResponse_Status +x Options +_ = ConsensusCancelBlockResponse_Status -> Encoding forall a. (Named a, Show a) => a -> Encoding -HsJSONPB.enumFieldEncoding ConsensusCancelBlockResponse_Status -x - -instance HsJSONPB.FromJSONPB ConsensusCancelBlockResponse_Status - where - parseJSONPB :: Value -> Parser ConsensusCancelBlockResponse_Status -parseJSONPB (HsJSONPB.String "STATUS_UNSET") - = ConsensusCancelBlockResponse_Status +HsJSONPB.enumFieldEncoding ConsensusCancelBlockResponse_Status +x + +instance HsJSONPB.FromJSONPB ConsensusCancelBlockResponse_Status + where + parseJSONPB :: Value -> Parser ConsensusCancelBlockResponse_Status +parseJSONPB (HsJSONPB.String Text +"STATUS_UNSET") + = ConsensusCancelBlockResponse_Status -> Parser ConsensusCancelBlockResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusCancelBlockResponse_Status +Hs.pure ConsensusCancelBlockResponse_Status ConsensusCancelBlockResponse_StatusSTATUS_UNSET - parseJSONPB (HsJSONPB.String "OK") - = ConsensusCancelBlockResponse_Status + parseJSONPB (HsJSONPB.String Text +"OK") + = ConsensusCancelBlockResponse_Status -> Parser ConsensusCancelBlockResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusCancelBlockResponse_Status +Hs.pure ConsensusCancelBlockResponse_Status ConsensusCancelBlockResponse_StatusOK - parseJSONPB (HsJSONPB.String "BAD_REQUEST") - = ConsensusCancelBlockResponse_Status + parseJSONPB (HsJSONPB.String Text +"BAD_REQUEST") + = ConsensusCancelBlockResponse_Status -> Parser ConsensusCancelBlockResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusCancelBlockResponse_Status +Hs.pure ConsensusCancelBlockResponse_Status ConsensusCancelBlockResponse_StatusBAD_REQUEST - parseJSONPB (HsJSONPB.String "SERVICE_ERROR") - = ConsensusCancelBlockResponse_Status + parseJSONPB (HsJSONPB.String Text +"SERVICE_ERROR") + = ConsensusCancelBlockResponse_Status -> Parser ConsensusCancelBlockResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusCancelBlockResponse_Status +Hs.pure ConsensusCancelBlockResponse_Status ConsensusCancelBlockResponse_StatusSERVICE_ERROR - parseJSONPB (HsJSONPB.String "NOT_READY") - = ConsensusCancelBlockResponse_Status + parseJSONPB (HsJSONPB.String Text +"NOT_READY") + = ConsensusCancelBlockResponse_Status -> Parser ConsensusCancelBlockResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusCancelBlockResponse_Status +Hs.pure ConsensusCancelBlockResponse_Status ConsensusCancelBlockResponse_StatusNOT_READY - parseJSONPB (HsJSONPB.String "INVALID_STATE") - = ConsensusCancelBlockResponse_Status + parseJSONPB (HsJSONPB.String Text +"INVALID_STATE") + = ConsensusCancelBlockResponse_Status -> Parser ConsensusCancelBlockResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusCancelBlockResponse_Status +Hs.pure ConsensusCancelBlockResponse_Status ConsensusCancelBlockResponse_StatusINVALID_STATE - parseJSONPB (HsJSONPB.String "NOT_ACTIVE_ENGINE") - = ConsensusCancelBlockResponse_Status + parseJSONPB (HsJSONPB.String Text +"NOT_ACTIVE_ENGINE") + = ConsensusCancelBlockResponse_Status -> Parser ConsensusCancelBlockResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusCancelBlockResponse_Status +Hs.pure ConsensusCancelBlockResponse_Status ConsensusCancelBlockResponse_StatusNOT_ACTIVE_ENGINE - parseJSONPB v :: Value -v - = (String -> Value -> Parser ConsensusCancelBlockResponse_Status + parseJSONPB Value +v + = (String -> Value -> Parser ConsensusCancelBlockResponse_Status forall a. String -> Value -> Parser a -HsJSONPB.typeMismatch "ConsensusCancelBlockResponse_Status" Value -v) - -instance HsJSONPB.ToJSON ConsensusCancelBlockResponse_Status where - toJSON :: ConsensusCancelBlockResponse_Status -> Value -toJSON = ConsensusCancelBlockResponse_Status -> Value +HsJSONPB.typeMismatch String +"ConsensusCancelBlockResponse_Status" Value +v) + +instance HsJSONPB.ToJSON ConsensusCancelBlockResponse_Status where + toJSON :: ConsensusCancelBlockResponse_Status -> Value +toJSON = ConsensusCancelBlockResponse_Status -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ConsensusCancelBlockResponse_Status -> Encoding -toEncoding = ConsensusCancelBlockResponse_Status -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ConsensusCancelBlockResponse_Status -> Encoding +toEncoding = ConsensusCancelBlockResponse_Status -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ConsensusCancelBlockResponse_Status - where - parseJSON :: Value -> Parser ConsensusCancelBlockResponse_Status -parseJSON = Value -> Parser ConsensusCancelBlockResponse_Status +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ConsensusCancelBlockResponse_Status + where + parseJSON :: Value -> Parser ConsensusCancelBlockResponse_Status +parseJSON = Value -> Parser ConsensusCancelBlockResponse_Status forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsProtobuf.Finite ConsensusCancelBlockResponse_Status - -newtype ConsensusCheckBlocksRequest = ConsensusCheckBlocksRequest{ConsensusCheckBlocksRequest -> Vector ByteString +HsJSONPB.parseJSONPB + +instance HsProtobuf.Finite ConsensusCancelBlockResponse_Status + +newtype ConsensusCheckBlocksRequest = ConsensusCheckBlocksRequest{ConsensusCheckBlocksRequest -> Vector ByteString consensusCheckBlocksRequestBlockIds - :: Hs.Vector Hs.ByteString} - deriving (Int -> ConsensusCheckBlocksRequest -> ShowS + :: Hs.Vector Hs.ByteString} + deriving (Int -> ConsensusCheckBlocksRequest -> ShowS [ConsensusCheckBlocksRequest] -> ShowS ConsensusCheckBlocksRequest -> String (Int -> ConsensusCheckBlocksRequest -> ShowS) @@ -14066,7 +14986,7 @@ show :: ConsensusCheckBlocksRequest -> String $cshow :: ConsensusCheckBlocksRequest -> String showsPrec :: Int -> ConsensusCheckBlocksRequest -> ShowS $cshowsPrec :: Int -> ConsensusCheckBlocksRequest -> ShowS -Hs.Show, ConsensusCheckBlocksRequest -> ConsensusCheckBlocksRequest -> Bool +Hs.Show, ConsensusCheckBlocksRequest -> ConsensusCheckBlocksRequest -> Bool (ConsensusCheckBlocksRequest -> ConsensusCheckBlocksRequest -> Bool) -> (ConsensusCheckBlocksRequest @@ -14077,10 +14997,10 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: ConsensusCheckBlocksRequest -> ConsensusCheckBlocksRequest -> Bool == :: ConsensusCheckBlocksRequest -> ConsensusCheckBlocksRequest -> Bool $c== :: ConsensusCheckBlocksRequest -> ConsensusCheckBlocksRequest -> Bool -Hs.Eq, Eq ConsensusCheckBlocksRequest -Eq ConsensusCheckBlocksRequest => -(ConsensusCheckBlocksRequest - -> ConsensusCheckBlocksRequest -> Ordering) +Hs.Eq, Eq ConsensusCheckBlocksRequest +Eq ConsensusCheckBlocksRequest +-> (ConsensusCheckBlocksRequest + -> ConsensusCheckBlocksRequest -> Ordering) -> (ConsensusCheckBlocksRequest -> ConsensusCheckBlocksRequest -> Bool) -> (ConsensusCheckBlocksRequest @@ -14100,8 +15020,8 @@ ConsensusCheckBlocksRequest ConsensusCheckBlocksRequest -> ConsensusCheckBlocksRequest -> ConsensusCheckBlocksRequest forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -14130,7 +15050,7 @@ compare :: ConsensusCheckBlocksRequest $ccompare :: ConsensusCheckBlocksRequest -> ConsensusCheckBlocksRequest -> Ordering $cp1Ord :: Eq ConsensusCheckBlocksRequest -Hs.Ord, (forall x. +Hs.Ord, (forall x. ConsensusCheckBlocksRequest -> Rep ConsensusCheckBlocksRequest x) -> (forall x. Rep ConsensusCheckBlocksRequest x -> ConsensusCheckBlocksRequest) @@ -14145,225 +15065,240 @@ $cto :: forall x. Rep ConsensusCheckBlocksRequest x -> ConsensusCheckBlocksRequest $cfrom :: forall x. ConsensusCheckBlocksRequest -> Rep ConsensusCheckBlocksRequest x -Hs.Generic, ConsensusCheckBlocksRequest -> () +Hs.Generic, ConsensusCheckBlocksRequest -> () (ConsensusCheckBlocksRequest -> ()) -> NFData ConsensusCheckBlocksRequest forall a. (a -> ()) -> NFData a rnf :: ConsensusCheckBlocksRequest -> () $crnf :: ConsensusCheckBlocksRequest -> () -Hs.NFData) - -instance HsProtobuf.Named ConsensusCheckBlocksRequest where - nameOf :: Proxy# ConsensusCheckBlocksRequest -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ConsensusCheckBlocksRequest where + nameOf :: Proxy# ConsensusCheckBlocksRequest -> string +nameOf Proxy# ConsensusCheckBlocksRequest +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ConsensusCheckBlocksRequest") - -instance HsProtobuf.HasDefault ConsensusCheckBlocksRequest - -instance HsProtobuf.Message ConsensusCheckBlocksRequest where - encodeMessage :: FieldNumber -> ConsensusCheckBlocksRequest -> MessageBuilder -encodeMessage _ - ConsensusCheckBlocksRequest{consensusCheckBlocksRequestBlockIds :: ConsensusCheckBlocksRequest -> Vector ByteString +Hs.fromString String +"ConsensusCheckBlocksRequest") + +instance HsProtobuf.HasDefault ConsensusCheckBlocksRequest + +instance HsProtobuf.Message ConsensusCheckBlocksRequest where + encodeMessage :: FieldNumber -> ConsensusCheckBlocksRequest -> MessageBuilder +encodeMessage FieldNumber +_ + ConsensusCheckBlocksRequest{consensusCheckBlocksRequestBlockIds :: ConsensusCheckBlocksRequest -> Vector ByteString consensusCheckBlocksRequestBlockIds = - Vector ByteString -consensusCheckBlocksRequestBlockIds} - = ([MessageBuilder] -> MessageBuilder + Vector ByteString +consensusCheckBlocksRequestBlockIds} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> UnpackedVec ByteString -> MessageBuilder +Hs.mconcat + [(FieldNumber -> UnpackedVec ByteString -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (Vector ByteString -> UnpackedVec ByteString -forall a b. Coercible a b => a -> b -Hs.coerce @(Hs.Vector Hs.ByteString) - @(HsProtobuf.UnpackedVec Hs.ByteString) - Vector ByteString -consensusCheckBlocksRequestBlockIds))]) - decodeMessage :: FieldNumber -> Parser RawMessage ConsensusCheckBlocksRequest -decodeMessage _ - = ((Vector ByteString -> ConsensusCheckBlocksRequest) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (Vector ByteString -> UnpackedVec ByteString +Hs.coerce @(Hs.Vector Hs.ByteString) + @(HsProtobuf.UnpackedVec Hs.ByteString) + Vector ByteString +consensusCheckBlocksRequestBlockIds))]) + decodeMessage :: FieldNumber -> Parser RawMessage ConsensusCheckBlocksRequest +decodeMessage FieldNumber +_ + = ((Vector ByteString -> ConsensusCheckBlocksRequest) -> Parser RawMessage (Vector ByteString -> ConsensusCheckBlocksRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector ByteString -> ConsensusCheckBlocksRequest +Hs.pure Vector ByteString -> ConsensusCheckBlocksRequest ConsensusCheckBlocksRequest) Parser RawMessage (Vector ByteString -> ConsensusCheckBlocksRequest) -> Parser RawMessage (Vector ByteString) -> Parser RawMessage ConsensusCheckBlocksRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (UnpackedVec ByteString) +<*> + (Parser RawMessage (UnpackedVec ByteString) -> Parser RawMessage (Vector ByteString) -forall a b. Coercible a b => a -> b -Hs.coerce @(_ (HsProtobuf.UnpackedVec Hs.ByteString)) - @(_ (Hs.Vector Hs.ByteString)) - (Parser RawField (UnpackedVec ByteString) +Hs.coerce @(_ (HsProtobuf.UnpackedVec Hs.ByteString)) + @(_ (Hs.Vector Hs.ByteString)) + (Parser RawField (UnpackedVec ByteString) -> FieldNumber -> Parser RawMessage (UnpackedVec ByteString) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (UnpackedVec ByteString) +HsProtobuf.at Parser RawField (UnpackedVec ByteString) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1))) - dotProto :: Proxy# ConsensusCheckBlocksRequest -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1))) + dotProto :: Proxy# ConsensusCheckBlocksRequest -> [DotProtoField] +dotProto Proxy# ConsensusCheckBlocksRequest +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Repeated DotProtoPrimType -HsProtobuf.Bytes) - (String -> DotProtoIdentifier -HsProtobuf.Single "block_ids") - [] - "")] - -instance HsJSONPB.ToJSONPB ConsensusCheckBlocksRequest where - toJSONPB :: ConsensusCheckBlocksRequest -> Options -> Value -toJSONPB (ConsensusCheckBlocksRequest f1 :: Vector ByteString -f1) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["block_ids" Text -> Vector ByteString -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Repeated DotProtoPrimType +HsProtobuf.Bytes) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"block_ids") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ConsensusCheckBlocksRequest where + toJSONPB :: ConsensusCheckBlocksRequest -> Options -> Value +toJSONPB (ConsensusCheckBlocksRequest Vector ByteString +f1) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"block_ids" Text -> Vector ByteString -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector ByteString -f1]) - toEncodingPB :: ConsensusCheckBlocksRequest -> Options -> Encoding -toEncodingPB (ConsensusCheckBlocksRequest f1 :: Vector ByteString -f1) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["block_ids" Text -> Vector ByteString -> Options -> Series +.= Vector ByteString +f1]) + toEncodingPB :: ConsensusCheckBlocksRequest -> Options -> Encoding +toEncodingPB (ConsensusCheckBlocksRequest Vector ByteString +f1) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"block_ids" Text -> Vector ByteString -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector ByteString -f1]) - -instance HsJSONPB.FromJSONPB ConsensusCheckBlocksRequest where - parseJSONPB :: Value -> Parser ConsensusCheckBlocksRequest -parseJSONPB - = (String +.= Vector ByteString +f1]) + +instance HsJSONPB.FromJSONPB ConsensusCheckBlocksRequest where + parseJSONPB :: Value -> Parser ConsensusCheckBlocksRequest +parseJSONPB + = (String -> (Object -> Parser ConsensusCheckBlocksRequest) -> Value -> Parser ConsensusCheckBlocksRequest forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ConsensusCheckBlocksRequest" - (\ obj :: Object -obj -> - ((Vector ByteString -> ConsensusCheckBlocksRequest) +HsJSONPB.withObject String +"ConsensusCheckBlocksRequest" + (\ Object +obj -> + ((Vector ByteString -> ConsensusCheckBlocksRequest) -> Parser (Vector ByteString -> ConsensusCheckBlocksRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector ByteString -> ConsensusCheckBlocksRequest +Hs.pure Vector ByteString -> ConsensusCheckBlocksRequest ConsensusCheckBlocksRequest) Parser (Vector ByteString -> ConsensusCheckBlocksRequest) -> Parser (Vector ByteString) -> Parser ConsensusCheckBlocksRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser (Vector ByteString) +<*> Object +obj Object -> Text -> Parser (Vector ByteString) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "block_ids")) - -instance HsJSONPB.ToJSON ConsensusCheckBlocksRequest where - toJSON :: ConsensusCheckBlocksRequest -> Value -toJSON = ConsensusCheckBlocksRequest -> Value +.: Text +"block_ids")) + +instance HsJSONPB.ToJSON ConsensusCheckBlocksRequest where + toJSON :: ConsensusCheckBlocksRequest -> Value +toJSON = ConsensusCheckBlocksRequest -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ConsensusCheckBlocksRequest -> Encoding -toEncoding = ConsensusCheckBlocksRequest -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ConsensusCheckBlocksRequest -> Encoding +toEncoding = ConsensusCheckBlocksRequest -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ConsensusCheckBlocksRequest where - parseJSON :: Value -> Parser ConsensusCheckBlocksRequest -parseJSON = Value -> Parser ConsensusCheckBlocksRequest +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ConsensusCheckBlocksRequest where + parseJSON :: Value -> Parser ConsensusCheckBlocksRequest +parseJSON = Value -> Parser ConsensusCheckBlocksRequest forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ConsensusCheckBlocksRequest where - declareNamedSchema :: Proxy ConsensusCheckBlocksRequest +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ConsensusCheckBlocksRequest where + declareNamedSchema :: Proxy ConsensusCheckBlocksRequest -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_block_ids :: Proxy (OverrideToSchema (Vector ByteString)) +declareNamedSchema Proxy ConsensusCheckBlocksRequest +_ + = do let declare_block_ids :: Proxy (OverrideToSchema (Vector ByteString)) -> Declare (Definitions Schema) (Referenced Schema) -declare_block_ids = Proxy (OverrideToSchema (Vector ByteString)) +declare_block_ids = Proxy (OverrideToSchema (Vector ByteString)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -consensusCheckBlocksRequestBlockIds <- Proxy (OverrideToSchema (Vector ByteString)) +HsJSONPB.declareSchemaRef + Referenced Schema +consensusCheckBlocksRequestBlockIds <- Proxy (OverrideToSchema (Vector ByteString)) -> Declare (Definitions Schema) (Referenced Schema) -declare_block_ids - Proxy (OverrideToSchema (Vector ByteString)) +declare_block_ids + Proxy (OverrideToSchema (Vector ByteString)) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ConsensusCheckBlocksRequest +Proxy.Proxy + let Proxy ConsensusCheckBlocksRequest _ = (Vector ByteString -> ConsensusCheckBlocksRequest) -> Proxy (Vector ByteString -> ConsensusCheckBlocksRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector ByteString -> ConsensusCheckBlocksRequest +Hs.pure Vector ByteString -> ConsensusCheckBlocksRequest ConsensusCheckBlocksRequest Proxy (Vector ByteString -> ConsensusCheckBlocksRequest) -> Proxy (Vector ByteString) -> Proxy ConsensusCheckBlocksRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema (Vector ByteString)) +<*> + (Proxy (OverrideToSchema (Vector ByteString)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Vector ByteString) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Vector ByteString)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Vector ByteString)) -> Declare (Definitions Schema) (Referenced Schema) -declare_block_ids - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_block_ids + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ConsensusCheckBlocksRequest", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ConsensusCheckBlocksRequest", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("block_ids", - Referenced Schema -consensusCheckBlocksRequestBlockIds)]}}) - -newtype ConsensusCheckBlocksResponse = ConsensusCheckBlocksResponse{ConsensusCheckBlocksResponse +HsJSONPB.insOrdFromList + [(Text +"block_ids", + Referenced Schema +consensusCheckBlocksRequestBlockIds)]}}) + +newtype ConsensusCheckBlocksResponse = ConsensusCheckBlocksResponse{ConsensusCheckBlocksResponse -> Enumerated ConsensusCheckBlocksResponse_Status consensusCheckBlocksResponseStatus - :: - HsProtobuf.Enumerated - Data.Sawtooth.Consensus.ConsensusCheckBlocksResponse_Status} - deriving (Int -> ConsensusCheckBlocksResponse -> ShowS + :: + HsProtobuf.Enumerated + Data.Sawtooth.Consensus.ConsensusCheckBlocksResponse_Status} + deriving (Int -> ConsensusCheckBlocksResponse -> ShowS [ConsensusCheckBlocksResponse] -> ShowS ConsensusCheckBlocksResponse -> String (Int -> ConsensusCheckBlocksResponse -> ShowS) @@ -14378,7 +15313,7 @@ show :: ConsensusCheckBlocksResponse -> String $cshow :: ConsensusCheckBlocksResponse -> String showsPrec :: Int -> ConsensusCheckBlocksResponse -> ShowS $cshowsPrec :: Int -> ConsensusCheckBlocksResponse -> ShowS -Hs.Show, ConsensusCheckBlocksResponse +Hs.Show, ConsensusCheckBlocksResponse -> ConsensusCheckBlocksResponse -> Bool (ConsensusCheckBlocksResponse -> ConsensusCheckBlocksResponse -> Bool) @@ -14394,10 +15329,10 @@ $c/= :: ConsensusCheckBlocksResponse -> ConsensusCheckBlocksResponse -> Bool $c== :: ConsensusCheckBlocksResponse -> ConsensusCheckBlocksResponse -> Bool -Hs.Eq, Eq ConsensusCheckBlocksResponse -Eq ConsensusCheckBlocksResponse => -(ConsensusCheckBlocksResponse - -> ConsensusCheckBlocksResponse -> Ordering) +Hs.Eq, Eq ConsensusCheckBlocksResponse +Eq ConsensusCheckBlocksResponse +-> (ConsensusCheckBlocksResponse + -> ConsensusCheckBlocksResponse -> Ordering) -> (ConsensusCheckBlocksResponse -> ConsensusCheckBlocksResponse -> Bool) -> (ConsensusCheckBlocksResponse @@ -14418,8 +15353,8 @@ ConsensusCheckBlocksResponse ConsensusCheckBlocksResponse -> ConsensusCheckBlocksResponse -> ConsensusCheckBlocksResponse forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -14456,7 +15391,7 @@ compare :: ConsensusCheckBlocksResponse $ccompare :: ConsensusCheckBlocksResponse -> ConsensusCheckBlocksResponse -> Ordering $cp1Ord :: Eq ConsensusCheckBlocksResponse -Hs.Ord, (forall x. +Hs.Ord, (forall x. ConsensusCheckBlocksResponse -> Rep ConsensusCheckBlocksResponse x) -> (forall x. Rep ConsensusCheckBlocksResponse x -> ConsensusCheckBlocksResponse) @@ -14471,50 +15406,55 @@ $cto :: forall x. Rep ConsensusCheckBlocksResponse x -> ConsensusCheckBlocksResponse $cfrom :: forall x. ConsensusCheckBlocksResponse -> Rep ConsensusCheckBlocksResponse x -Hs.Generic, ConsensusCheckBlocksResponse -> () +Hs.Generic, ConsensusCheckBlocksResponse -> () (ConsensusCheckBlocksResponse -> ()) -> NFData ConsensusCheckBlocksResponse forall a. (a -> ()) -> NFData a rnf :: ConsensusCheckBlocksResponse -> () $crnf :: ConsensusCheckBlocksResponse -> () -Hs.NFData) - -instance HsProtobuf.Named ConsensusCheckBlocksResponse where - nameOf :: Proxy# ConsensusCheckBlocksResponse -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ConsensusCheckBlocksResponse where + nameOf :: Proxy# ConsensusCheckBlocksResponse -> string +nameOf Proxy# ConsensusCheckBlocksResponse +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ConsensusCheckBlocksResponse") - -instance HsProtobuf.HasDefault ConsensusCheckBlocksResponse - -instance HsProtobuf.Message ConsensusCheckBlocksResponse where - encodeMessage :: FieldNumber -> ConsensusCheckBlocksResponse -> MessageBuilder -encodeMessage _ - ConsensusCheckBlocksResponse{consensusCheckBlocksResponseStatus :: ConsensusCheckBlocksResponse +Hs.fromString String +"ConsensusCheckBlocksResponse") + +instance HsProtobuf.HasDefault ConsensusCheckBlocksResponse + +instance HsProtobuf.Message ConsensusCheckBlocksResponse where + encodeMessage :: FieldNumber -> ConsensusCheckBlocksResponse -> MessageBuilder +encodeMessage FieldNumber +_ + ConsensusCheckBlocksResponse{consensusCheckBlocksResponseStatus :: ConsensusCheckBlocksResponse -> Enumerated ConsensusCheckBlocksResponse_Status consensusCheckBlocksResponseStatus = - Enumerated ConsensusCheckBlocksResponse_Status -consensusCheckBlocksResponseStatus} - = ([MessageBuilder] -> MessageBuilder + Enumerated ConsensusCheckBlocksResponse_Status +consensusCheckBlocksResponseStatus} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber +Hs.mconcat + [(FieldNumber -> Enumerated ConsensusCheckBlocksResponse_Status -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Enumerated ConsensusCheckBlocksResponse_Status -consensusCheckBlocksResponseStatus)]) - decodeMessage :: FieldNumber -> Parser RawMessage ConsensusCheckBlocksResponse -decodeMessage _ - = ((Enumerated ConsensusCheckBlocksResponse_Status +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Enumerated ConsensusCheckBlocksResponse_Status +consensusCheckBlocksResponseStatus)]) + decodeMessage :: FieldNumber -> Parser RawMessage ConsensusCheckBlocksResponse +decodeMessage FieldNumber +_ + = ((Enumerated ConsensusCheckBlocksResponse_Status -> ConsensusCheckBlocksResponse) -> Parser RawMessage (Enumerated ConsensusCheckBlocksResponse_Status -> ConsensusCheckBlocksResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ConsensusCheckBlocksResponse_Status +Hs.pure Enumerated ConsensusCheckBlocksResponse_Status -> ConsensusCheckBlocksResponse ConsensusCheckBlocksResponse) Parser RawMessage @@ -14524,82 +15464,91 @@ forall (f :: * -> *) a. Applicative f => a -> f a RawMessage (Enumerated ConsensusCheckBlocksResponse_Status) -> Parser RawMessage ConsensusCheckBlocksResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField (Enumerated ConsensusCheckBlocksResponse_Status) +<*> + (Parser RawField (Enumerated ConsensusCheckBlocksResponse_Status) -> FieldNumber -> Parser RawMessage (Enumerated ConsensusCheckBlocksResponse_Status) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (Enumerated ConsensusCheckBlocksResponse_Status) +HsProtobuf.at Parser RawField (Enumerated ConsensusCheckBlocksResponse_Status) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - dotProto :: Proxy# ConsensusCheckBlocksResponse -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + dotProto :: Proxy# ConsensusCheckBlocksResponse -> [DotProtoField] +dotProto Proxy# ConsensusCheckBlocksResponse +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "Status"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "status") - [] - "")] - -instance HsJSONPB.ToJSONPB ConsensusCheckBlocksResponse where - toJSONPB :: ConsensusCheckBlocksResponse -> Options -> Value -toJSONPB (ConsensusCheckBlocksResponse f1 :: Enumerated ConsensusCheckBlocksResponse_Status -f1) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["status" Text +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"Status"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"status") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ConsensusCheckBlocksResponse where + toJSONPB :: ConsensusCheckBlocksResponse -> Options -> Value +toJSONPB (ConsensusCheckBlocksResponse Enumerated ConsensusCheckBlocksResponse_Status +f1) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"status" Text -> Enumerated ConsensusCheckBlocksResponse_Status -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated ConsensusCheckBlocksResponse_Status -f1]) - toEncodingPB :: ConsensusCheckBlocksResponse -> Options -> Encoding -toEncodingPB (ConsensusCheckBlocksResponse f1 :: Enumerated ConsensusCheckBlocksResponse_Status -f1) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["status" Text +.= Enumerated ConsensusCheckBlocksResponse_Status +f1]) + toEncodingPB :: ConsensusCheckBlocksResponse -> Options -> Encoding +toEncodingPB (ConsensusCheckBlocksResponse Enumerated ConsensusCheckBlocksResponse_Status +f1) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"status" Text -> Enumerated ConsensusCheckBlocksResponse_Status -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated ConsensusCheckBlocksResponse_Status -f1]) - -instance HsJSONPB.FromJSONPB ConsensusCheckBlocksResponse where - parseJSONPB :: Value -> Parser ConsensusCheckBlocksResponse -parseJSONPB - = (String +.= Enumerated ConsensusCheckBlocksResponse_Status +f1]) + +instance HsJSONPB.FromJSONPB ConsensusCheckBlocksResponse where + parseJSONPB :: Value -> Parser ConsensusCheckBlocksResponse +parseJSONPB + = (String -> (Object -> Parser ConsensusCheckBlocksResponse) -> Value -> Parser ConsensusCheckBlocksResponse forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ConsensusCheckBlocksResponse" - (\ obj :: Object -obj -> - ((Enumerated ConsensusCheckBlocksResponse_Status +HsJSONPB.withObject String +"ConsensusCheckBlocksResponse" + (\ Object +obj -> + ((Enumerated ConsensusCheckBlocksResponse_Status -> ConsensusCheckBlocksResponse) -> Parser (Enumerated ConsensusCheckBlocksResponse_Status -> ConsensusCheckBlocksResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ConsensusCheckBlocksResponse_Status +Hs.pure Enumerated ConsensusCheckBlocksResponse_Status -> ConsensusCheckBlocksResponse ConsensusCheckBlocksResponse) Parser (Enumerated ConsensusCheckBlocksResponse_Status @@ -14607,60 +15556,62 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Parser (Enumerated ConsensusCheckBlocksResponse_Status) -> Parser ConsensusCheckBlocksResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object +<*> Object +obj Object -> Text -> Parser (Enumerated ConsensusCheckBlocksResponse_Status) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "status")) - -instance HsJSONPB.ToJSON ConsensusCheckBlocksResponse where - toJSON :: ConsensusCheckBlocksResponse -> Value -toJSON = ConsensusCheckBlocksResponse -> Value +.: Text +"status")) + +instance HsJSONPB.ToJSON ConsensusCheckBlocksResponse where + toJSON :: ConsensusCheckBlocksResponse -> Value +toJSON = ConsensusCheckBlocksResponse -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ConsensusCheckBlocksResponse -> Encoding -toEncoding = ConsensusCheckBlocksResponse -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ConsensusCheckBlocksResponse -> Encoding +toEncoding = ConsensusCheckBlocksResponse -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ConsensusCheckBlocksResponse where - parseJSON :: Value -> Parser ConsensusCheckBlocksResponse -parseJSON = Value -> Parser ConsensusCheckBlocksResponse +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ConsensusCheckBlocksResponse where + parseJSON :: Value -> Parser ConsensusCheckBlocksResponse +parseJSON = Value -> Parser ConsensusCheckBlocksResponse forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ConsensusCheckBlocksResponse where - declareNamedSchema :: Proxy ConsensusCheckBlocksResponse +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ConsensusCheckBlocksResponse where + declareNamedSchema :: Proxy ConsensusCheckBlocksResponse -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_status :: Proxy +declareNamedSchema Proxy ConsensusCheckBlocksResponse +_ + = do let declare_status :: Proxy (OverrideToSchema (Enumerated ConsensusCheckBlocksResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status = Proxy +declare_status = Proxy (OverrideToSchema (Enumerated ConsensusCheckBlocksResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -consensusCheckBlocksResponseStatus <- Proxy +HsJSONPB.declareSchemaRef + Referenced Schema +consensusCheckBlocksResponseStatus <- Proxy (OverrideToSchema (Enumerated ConsensusCheckBlocksResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status Proxy +declare_status Proxy (OverrideToSchema (Enumerated ConsensusCheckBlocksResponse_Status)) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ConsensusCheckBlocksResponse +Proxy.Proxy + let Proxy ConsensusCheckBlocksResponse _ = (Enumerated ConsensusCheckBlocksResponse_Status -> ConsensusCheckBlocksResponse) -> Proxy (Enumerated ConsensusCheckBlocksResponse_Status -> ConsensusCheckBlocksResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ConsensusCheckBlocksResponse_Status +Hs.pure Enumerated ConsensusCheckBlocksResponse_Status -> ConsensusCheckBlocksResponse ConsensusCheckBlocksResponse Proxy (Enumerated ConsensusCheckBlocksResponse_Status @@ -14668,58 +15619,60 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Proxy (Enumerated ConsensusCheckBlocksResponse_Status) -> Proxy ConsensusCheckBlocksResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy +<*> + (Proxy (OverrideToSchema (Enumerated ConsensusCheckBlocksResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Enumerated ConsensusCheckBlocksResponse_Status) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy +HsJSONPB.asProxy Proxy (OverrideToSchema (Enumerated ConsensusCheckBlocksResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_status + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ConsensusCheckBlocksResponse", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ConsensusCheckBlocksResponse", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("status", - Referenced Schema -consensusCheckBlocksResponseStatus)]}}) - -data ConsensusCheckBlocksResponse_Status = ConsensusCheckBlocksResponse_StatusSTATUS_UNSET - | ConsensusCheckBlocksResponse_StatusOK - | ConsensusCheckBlocksResponse_StatusBAD_REQUEST - | ConsensusCheckBlocksResponse_StatusSERVICE_ERROR - | ConsensusCheckBlocksResponse_StatusNOT_READY - | ConsensusCheckBlocksResponse_StatusUNKNOWN_BLOCK - | ConsensusCheckBlocksResponse_StatusNOT_ACTIVE_ENGINE - deriving (Int -> ConsensusCheckBlocksResponse_Status -> ShowS +HsJSONPB.insOrdFromList + [(Text +"status", + Referenced Schema +consensusCheckBlocksResponseStatus)]}}) + +data ConsensusCheckBlocksResponse_Status = ConsensusCheckBlocksResponse_StatusSTATUS_UNSET + | ConsensusCheckBlocksResponse_StatusOK + | ConsensusCheckBlocksResponse_StatusBAD_REQUEST + | ConsensusCheckBlocksResponse_StatusSERVICE_ERROR + | ConsensusCheckBlocksResponse_StatusNOT_READY + | ConsensusCheckBlocksResponse_StatusUNKNOWN_BLOCK + | ConsensusCheckBlocksResponse_StatusNOT_ACTIVE_ENGINE + deriving (Int -> ConsensusCheckBlocksResponse_Status -> ShowS [ConsensusCheckBlocksResponse_Status] -> ShowS ConsensusCheckBlocksResponse_Status -> String (Int -> ConsensusCheckBlocksResponse_Status -> ShowS) @@ -14734,7 +15687,7 @@ show :: ConsensusCheckBlocksResponse_Status -> String $cshow :: ConsensusCheckBlocksResponse_Status -> String showsPrec :: Int -> ConsensusCheckBlocksResponse_Status -> ShowS $cshowsPrec :: Int -> ConsensusCheckBlocksResponse_Status -> ShowS -Hs.Show, ConsensusCheckBlocksResponse_Status +Hs.Show, ConsensusCheckBlocksResponse_Status -> ConsensusCheckBlocksResponse_Status -> Bool (ConsensusCheckBlocksResponse_Status -> ConsensusCheckBlocksResponse_Status -> Bool) @@ -14750,7 +15703,7 @@ $c/= :: ConsensusCheckBlocksResponse_Status -> ConsensusCheckBlocksResponse_Status -> Bool $c== :: ConsensusCheckBlocksResponse_Status -> ConsensusCheckBlocksResponse_Status -> Bool -Hs.Eq, (forall x. +Hs.Eq, (forall x. ConsensusCheckBlocksResponse_Status -> Rep ConsensusCheckBlocksResponse_Status x) -> (forall x. @@ -14771,203 +15724,230 @@ Rep ConsensusCheckBlocksResponse_Status x $cfrom :: forall x. ConsensusCheckBlocksResponse_Status -> Rep ConsensusCheckBlocksResponse_Status x -Hs.Generic, ConsensusCheckBlocksResponse_Status -> () +Hs.Generic, ConsensusCheckBlocksResponse_Status -> () (ConsensusCheckBlocksResponse_Status -> ()) -> NFData ConsensusCheckBlocksResponse_Status forall a. (a -> ()) -> NFData a rnf :: ConsensusCheckBlocksResponse_Status -> () $crnf :: ConsensusCheckBlocksResponse_Status -> () -Hs.NFData) - -instance HsProtobuf.Named ConsensusCheckBlocksResponse_Status where - nameOf :: Proxy# ConsensusCheckBlocksResponse_Status -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ConsensusCheckBlocksResponse_Status where + nameOf :: Proxy# ConsensusCheckBlocksResponse_Status -> string +nameOf Proxy# ConsensusCheckBlocksResponse_Status +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ConsensusCheckBlocksResponse_Status") - -instance HsProtobuf.HasDefault ConsensusCheckBlocksResponse_Status - -instance Hs.Bounded ConsensusCheckBlocksResponse_Status where - minBound :: ConsensusCheckBlocksResponse_Status -minBound = ConsensusCheckBlocksResponse_Status +Hs.fromString String +"ConsensusCheckBlocksResponse_Status") + +instance HsProtobuf.HasDefault ConsensusCheckBlocksResponse_Status + +instance Hs.Bounded ConsensusCheckBlocksResponse_Status where + minBound :: ConsensusCheckBlocksResponse_Status +minBound = ConsensusCheckBlocksResponse_Status ConsensusCheckBlocksResponse_StatusSTATUS_UNSET - maxBound :: ConsensusCheckBlocksResponse_Status -maxBound = ConsensusCheckBlocksResponse_Status + maxBound :: ConsensusCheckBlocksResponse_Status +maxBound = ConsensusCheckBlocksResponse_Status ConsensusCheckBlocksResponse_StatusNOT_ACTIVE_ENGINE - -instance Hs.Ord ConsensusCheckBlocksResponse_Status where - compare :: ConsensusCheckBlocksResponse_Status + +instance Hs.Ord ConsensusCheckBlocksResponse_Status where + compare :: ConsensusCheckBlocksResponse_Status -> ConsensusCheckBlocksResponse_Status -> Ordering -compare x :: ConsensusCheckBlocksResponse_Status -x y :: ConsensusCheckBlocksResponse_Status -y - = Int32 -> Int32 -> Ordering +compare ConsensusCheckBlocksResponse_Status +x ConsensusCheckBlocksResponse_Status +y + = Int32 -> Int32 -> Ordering forall a. Ord a => a -> a -> Ordering -Hs.compare (ConsensusCheckBlocksResponse_Status -> Int32 +Hs.compare (ConsensusCheckBlocksResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum ConsensusCheckBlocksResponse_Status -x) - (ConsensusCheckBlocksResponse_Status -> Int32 +HsProtobuf.fromProtoEnum ConsensusCheckBlocksResponse_Status +x) + (ConsensusCheckBlocksResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum ConsensusCheckBlocksResponse_Status -y) - -instance HsProtobuf.ProtoEnum ConsensusCheckBlocksResponse_Status - where - toProtoEnumMay :: Int32 -> Maybe ConsensusCheckBlocksResponse_Status -toProtoEnumMay 0 - = ConsensusCheckBlocksResponse_Status +HsProtobuf.fromProtoEnum ConsensusCheckBlocksResponse_Status +y) + +instance HsProtobuf.ProtoEnum ConsensusCheckBlocksResponse_Status + where + toProtoEnumMay :: Int32 -> Maybe ConsensusCheckBlocksResponse_Status +toProtoEnumMay Int32 +0 + = ConsensusCheckBlocksResponse_Status -> Maybe ConsensusCheckBlocksResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusCheckBlocksResponse_Status +Hs.Just ConsensusCheckBlocksResponse_Status ConsensusCheckBlocksResponse_StatusSTATUS_UNSET - toProtoEnumMay 1 = ConsensusCheckBlocksResponse_Status + toProtoEnumMay Int32 +1 = ConsensusCheckBlocksResponse_Status -> Maybe ConsensusCheckBlocksResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusCheckBlocksResponse_Status +Hs.Just ConsensusCheckBlocksResponse_Status ConsensusCheckBlocksResponse_StatusOK - toProtoEnumMay 2 - = ConsensusCheckBlocksResponse_Status + toProtoEnumMay Int32 +2 + = ConsensusCheckBlocksResponse_Status -> Maybe ConsensusCheckBlocksResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusCheckBlocksResponse_Status +Hs.Just ConsensusCheckBlocksResponse_Status ConsensusCheckBlocksResponse_StatusBAD_REQUEST - toProtoEnumMay 3 - = ConsensusCheckBlocksResponse_Status + toProtoEnumMay Int32 +3 + = ConsensusCheckBlocksResponse_Status -> Maybe ConsensusCheckBlocksResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusCheckBlocksResponse_Status +Hs.Just ConsensusCheckBlocksResponse_Status ConsensusCheckBlocksResponse_StatusSERVICE_ERROR - toProtoEnumMay 4 - = ConsensusCheckBlocksResponse_Status + toProtoEnumMay Int32 +4 + = ConsensusCheckBlocksResponse_Status -> Maybe ConsensusCheckBlocksResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusCheckBlocksResponse_Status +Hs.Just ConsensusCheckBlocksResponse_Status ConsensusCheckBlocksResponse_StatusNOT_READY - toProtoEnumMay 5 - = ConsensusCheckBlocksResponse_Status + toProtoEnumMay Int32 +5 + = ConsensusCheckBlocksResponse_Status -> Maybe ConsensusCheckBlocksResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusCheckBlocksResponse_Status +Hs.Just ConsensusCheckBlocksResponse_Status ConsensusCheckBlocksResponse_StatusUNKNOWN_BLOCK - toProtoEnumMay 6 - = ConsensusCheckBlocksResponse_Status + toProtoEnumMay Int32 +6 + = ConsensusCheckBlocksResponse_Status -> Maybe ConsensusCheckBlocksResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusCheckBlocksResponse_Status +Hs.Just ConsensusCheckBlocksResponse_Status ConsensusCheckBlocksResponse_StatusNOT_ACTIVE_ENGINE - toProtoEnumMay _ = Maybe ConsensusCheckBlocksResponse_Status + toProtoEnumMay Int32 +_ = Maybe ConsensusCheckBlocksResponse_Status forall a. Maybe a -Hs.Nothing - fromProtoEnum :: ConsensusCheckBlocksResponse_Status -> Int32 -fromProtoEnum (ConsensusCheckBlocksResponse_Status -ConsensusCheckBlocksResponse_StatusSTATUS_UNSET) = 0 - fromProtoEnum (ConsensusCheckBlocksResponse_Status -ConsensusCheckBlocksResponse_StatusOK) = 1 - fromProtoEnum (ConsensusCheckBlocksResponse_Status -ConsensusCheckBlocksResponse_StatusBAD_REQUEST) = 2 - fromProtoEnum (ConsensusCheckBlocksResponse_Status +Hs.Nothing + fromProtoEnum :: ConsensusCheckBlocksResponse_Status -> Int32 +fromProtoEnum (ConsensusCheckBlocksResponse_Status +ConsensusCheckBlocksResponse_StatusSTATUS_UNSET) = Int32 +0 + fromProtoEnum (ConsensusCheckBlocksResponse_Status +ConsensusCheckBlocksResponse_StatusOK) = Int32 +1 + fromProtoEnum (ConsensusCheckBlocksResponse_Status +ConsensusCheckBlocksResponse_StatusBAD_REQUEST) = Int32 +2 + fromProtoEnum (ConsensusCheckBlocksResponse_Status ConsensusCheckBlocksResponse_StatusSERVICE_ERROR) - = 3 - fromProtoEnum (ConsensusCheckBlocksResponse_Status -ConsensusCheckBlocksResponse_StatusNOT_READY) = 4 - fromProtoEnum (ConsensusCheckBlocksResponse_Status + = Int32 +3 + fromProtoEnum (ConsensusCheckBlocksResponse_Status +ConsensusCheckBlocksResponse_StatusNOT_READY) = Int32 +4 + fromProtoEnum (ConsensusCheckBlocksResponse_Status ConsensusCheckBlocksResponse_StatusUNKNOWN_BLOCK) - = 5 - fromProtoEnum - (ConsensusCheckBlocksResponse_Status -ConsensusCheckBlocksResponse_StatusNOT_ACTIVE_ENGINE) = 6 - -instance HsJSONPB.ToJSONPB ConsensusCheckBlocksResponse_Status - where - toJSONPB :: ConsensusCheckBlocksResponse_Status -> Options -> Value -toJSONPB x :: ConsensusCheckBlocksResponse_Status -x _ = ConsensusCheckBlocksResponse_Status -> Value + = Int32 +5 + fromProtoEnum + (ConsensusCheckBlocksResponse_Status +ConsensusCheckBlocksResponse_StatusNOT_ACTIVE_ENGINE) = Int32 +6 + +instance HsJSONPB.ToJSONPB ConsensusCheckBlocksResponse_Status + where + toJSONPB :: ConsensusCheckBlocksResponse_Status -> Options -> Value +toJSONPB ConsensusCheckBlocksResponse_Status +x Options +_ = ConsensusCheckBlocksResponse_Status -> Value forall a. (Named a, Show a) => a -> Value -HsJSONPB.enumFieldString ConsensusCheckBlocksResponse_Status -x - toEncodingPB :: ConsensusCheckBlocksResponse_Status -> Options -> Encoding -toEncodingPB x :: ConsensusCheckBlocksResponse_Status -x _ = ConsensusCheckBlocksResponse_Status -> Encoding +HsJSONPB.enumFieldString ConsensusCheckBlocksResponse_Status +x + toEncodingPB :: ConsensusCheckBlocksResponse_Status -> Options -> Encoding +toEncodingPB ConsensusCheckBlocksResponse_Status +x Options +_ = ConsensusCheckBlocksResponse_Status -> Encoding forall a. (Named a, Show a) => a -> Encoding -HsJSONPB.enumFieldEncoding ConsensusCheckBlocksResponse_Status -x - -instance HsJSONPB.FromJSONPB ConsensusCheckBlocksResponse_Status - where - parseJSONPB :: Value -> Parser ConsensusCheckBlocksResponse_Status -parseJSONPB (HsJSONPB.String "STATUS_UNSET") - = ConsensusCheckBlocksResponse_Status +HsJSONPB.enumFieldEncoding ConsensusCheckBlocksResponse_Status +x + +instance HsJSONPB.FromJSONPB ConsensusCheckBlocksResponse_Status + where + parseJSONPB :: Value -> Parser ConsensusCheckBlocksResponse_Status +parseJSONPB (HsJSONPB.String Text +"STATUS_UNSET") + = ConsensusCheckBlocksResponse_Status -> Parser ConsensusCheckBlocksResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusCheckBlocksResponse_Status +Hs.pure ConsensusCheckBlocksResponse_Status ConsensusCheckBlocksResponse_StatusSTATUS_UNSET - parseJSONPB (HsJSONPB.String "OK") - = ConsensusCheckBlocksResponse_Status + parseJSONPB (HsJSONPB.String Text +"OK") + = ConsensusCheckBlocksResponse_Status -> Parser ConsensusCheckBlocksResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusCheckBlocksResponse_Status +Hs.pure ConsensusCheckBlocksResponse_Status ConsensusCheckBlocksResponse_StatusOK - parseJSONPB (HsJSONPB.String "BAD_REQUEST") - = ConsensusCheckBlocksResponse_Status + parseJSONPB (HsJSONPB.String Text +"BAD_REQUEST") + = ConsensusCheckBlocksResponse_Status -> Parser ConsensusCheckBlocksResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusCheckBlocksResponse_Status +Hs.pure ConsensusCheckBlocksResponse_Status ConsensusCheckBlocksResponse_StatusBAD_REQUEST - parseJSONPB (HsJSONPB.String "SERVICE_ERROR") - = ConsensusCheckBlocksResponse_Status + parseJSONPB (HsJSONPB.String Text +"SERVICE_ERROR") + = ConsensusCheckBlocksResponse_Status -> Parser ConsensusCheckBlocksResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusCheckBlocksResponse_Status +Hs.pure ConsensusCheckBlocksResponse_Status ConsensusCheckBlocksResponse_StatusSERVICE_ERROR - parseJSONPB (HsJSONPB.String "NOT_READY") - = ConsensusCheckBlocksResponse_Status + parseJSONPB (HsJSONPB.String Text +"NOT_READY") + = ConsensusCheckBlocksResponse_Status -> Parser ConsensusCheckBlocksResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusCheckBlocksResponse_Status +Hs.pure ConsensusCheckBlocksResponse_Status ConsensusCheckBlocksResponse_StatusNOT_READY - parseJSONPB (HsJSONPB.String "UNKNOWN_BLOCK") - = ConsensusCheckBlocksResponse_Status + parseJSONPB (HsJSONPB.String Text +"UNKNOWN_BLOCK") + = ConsensusCheckBlocksResponse_Status -> Parser ConsensusCheckBlocksResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusCheckBlocksResponse_Status +Hs.pure ConsensusCheckBlocksResponse_Status ConsensusCheckBlocksResponse_StatusUNKNOWN_BLOCK - parseJSONPB (HsJSONPB.String "NOT_ACTIVE_ENGINE") - = ConsensusCheckBlocksResponse_Status + parseJSONPB (HsJSONPB.String Text +"NOT_ACTIVE_ENGINE") + = ConsensusCheckBlocksResponse_Status -> Parser ConsensusCheckBlocksResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusCheckBlocksResponse_Status +Hs.pure ConsensusCheckBlocksResponse_Status ConsensusCheckBlocksResponse_StatusNOT_ACTIVE_ENGINE - parseJSONPB v :: Value -v - = (String -> Value -> Parser ConsensusCheckBlocksResponse_Status + parseJSONPB Value +v + = (String -> Value -> Parser ConsensusCheckBlocksResponse_Status forall a. String -> Value -> Parser a -HsJSONPB.typeMismatch "ConsensusCheckBlocksResponse_Status" Value -v) - -instance HsJSONPB.ToJSON ConsensusCheckBlocksResponse_Status where - toJSON :: ConsensusCheckBlocksResponse_Status -> Value -toJSON = ConsensusCheckBlocksResponse_Status -> Value +HsJSONPB.typeMismatch String +"ConsensusCheckBlocksResponse_Status" Value +v) + +instance HsJSONPB.ToJSON ConsensusCheckBlocksResponse_Status where + toJSON :: ConsensusCheckBlocksResponse_Status -> Value +toJSON = ConsensusCheckBlocksResponse_Status -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ConsensusCheckBlocksResponse_Status -> Encoding -toEncoding = ConsensusCheckBlocksResponse_Status -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ConsensusCheckBlocksResponse_Status -> Encoding +toEncoding = ConsensusCheckBlocksResponse_Status -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ConsensusCheckBlocksResponse_Status - where - parseJSON :: Value -> Parser ConsensusCheckBlocksResponse_Status -parseJSON = Value -> Parser ConsensusCheckBlocksResponse_Status +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ConsensusCheckBlocksResponse_Status + where + parseJSON :: Value -> Parser ConsensusCheckBlocksResponse_Status +parseJSON = Value -> Parser ConsensusCheckBlocksResponse_Status forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsProtobuf.Finite ConsensusCheckBlocksResponse_Status - -newtype ConsensusCommitBlockRequest = ConsensusCommitBlockRequest{ConsensusCommitBlockRequest -> ByteString +HsJSONPB.parseJSONPB + +instance HsProtobuf.Finite ConsensusCheckBlocksResponse_Status + +newtype ConsensusCommitBlockRequest = ConsensusCommitBlockRequest{ConsensusCommitBlockRequest -> ByteString consensusCommitBlockRequestBlockId - :: Hs.ByteString} - deriving (Int -> ConsensusCommitBlockRequest -> ShowS + :: Hs.ByteString} + deriving (Int -> ConsensusCommitBlockRequest -> ShowS [ConsensusCommitBlockRequest] -> ShowS ConsensusCommitBlockRequest -> String (Int -> ConsensusCommitBlockRequest -> ShowS) @@ -14982,7 +15962,7 @@ show :: ConsensusCommitBlockRequest -> String $cshow :: ConsensusCommitBlockRequest -> String showsPrec :: Int -> ConsensusCommitBlockRequest -> ShowS $cshowsPrec :: Int -> ConsensusCommitBlockRequest -> ShowS -Hs.Show, ConsensusCommitBlockRequest -> ConsensusCommitBlockRequest -> Bool +Hs.Show, ConsensusCommitBlockRequest -> ConsensusCommitBlockRequest -> Bool (ConsensusCommitBlockRequest -> ConsensusCommitBlockRequest -> Bool) -> (ConsensusCommitBlockRequest @@ -14993,10 +15973,10 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: ConsensusCommitBlockRequest -> ConsensusCommitBlockRequest -> Bool == :: ConsensusCommitBlockRequest -> ConsensusCommitBlockRequest -> Bool $c== :: ConsensusCommitBlockRequest -> ConsensusCommitBlockRequest -> Bool -Hs.Eq, Eq ConsensusCommitBlockRequest -Eq ConsensusCommitBlockRequest => -(ConsensusCommitBlockRequest - -> ConsensusCommitBlockRequest -> Ordering) +Hs.Eq, Eq ConsensusCommitBlockRequest +Eq ConsensusCommitBlockRequest +-> (ConsensusCommitBlockRequest + -> ConsensusCommitBlockRequest -> Ordering) -> (ConsensusCommitBlockRequest -> ConsensusCommitBlockRequest -> Bool) -> (ConsensusCommitBlockRequest @@ -15016,8 +15996,8 @@ ConsensusCommitBlockRequest ConsensusCommitBlockRequest -> ConsensusCommitBlockRequest -> ConsensusCommitBlockRequest forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -15046,7 +16026,7 @@ compare :: ConsensusCommitBlockRequest $ccompare :: ConsensusCommitBlockRequest -> ConsensusCommitBlockRequest -> Ordering $cp1Ord :: Eq ConsensusCommitBlockRequest -Hs.Ord, (forall x. +Hs.Ord, (forall x. ConsensusCommitBlockRequest -> Rep ConsensusCommitBlockRequest x) -> (forall x. Rep ConsensusCommitBlockRequest x -> ConsensusCommitBlockRequest) @@ -15061,213 +16041,230 @@ $cto :: forall x. Rep ConsensusCommitBlockRequest x -> ConsensusCommitBlockRequest $cfrom :: forall x. ConsensusCommitBlockRequest -> Rep ConsensusCommitBlockRequest x -Hs.Generic, ConsensusCommitBlockRequest -> () +Hs.Generic, ConsensusCommitBlockRequest -> () (ConsensusCommitBlockRequest -> ()) -> NFData ConsensusCommitBlockRequest forall a. (a -> ()) -> NFData a rnf :: ConsensusCommitBlockRequest -> () $crnf :: ConsensusCommitBlockRequest -> () -Hs.NFData) - -instance HsProtobuf.Named ConsensusCommitBlockRequest where - nameOf :: Proxy# ConsensusCommitBlockRequest -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ConsensusCommitBlockRequest where + nameOf :: Proxy# ConsensusCommitBlockRequest -> string +nameOf Proxy# ConsensusCommitBlockRequest +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ConsensusCommitBlockRequest") - -instance HsProtobuf.HasDefault ConsensusCommitBlockRequest - -instance HsProtobuf.Message ConsensusCommitBlockRequest where - encodeMessage :: FieldNumber -> ConsensusCommitBlockRequest -> MessageBuilder -encodeMessage _ - ConsensusCommitBlockRequest{consensusCommitBlockRequestBlockId :: ConsensusCommitBlockRequest -> ByteString +Hs.fromString String +"ConsensusCommitBlockRequest") + +instance HsProtobuf.HasDefault ConsensusCommitBlockRequest + +instance HsProtobuf.Message ConsensusCommitBlockRequest where + encodeMessage :: FieldNumber -> ConsensusCommitBlockRequest -> MessageBuilder +encodeMessage FieldNumber +_ + ConsensusCommitBlockRequest{consensusCommitBlockRequestBlockId :: ConsensusCommitBlockRequest -> ByteString consensusCommitBlockRequestBlockId = - ByteString -consensusCommitBlockRequestBlockId} - = ([MessageBuilder] -> MessageBuilder + ByteString +consensusCommitBlockRequestBlockId} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> ByteString -> MessageBuilder +Hs.mconcat + [(FieldNumber -> ByteString -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - ByteString -consensusCommitBlockRequestBlockId)]) - decodeMessage :: FieldNumber -> Parser RawMessage ConsensusCommitBlockRequest -decodeMessage _ - = ((ByteString -> ConsensusCommitBlockRequest) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + ByteString +consensusCommitBlockRequestBlockId)]) + decodeMessage :: FieldNumber -> Parser RawMessage ConsensusCommitBlockRequest +decodeMessage FieldNumber +_ + = ((ByteString -> ConsensusCommitBlockRequest) -> Parser RawMessage (ByteString -> ConsensusCommitBlockRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString -> ConsensusCommitBlockRequest +Hs.pure ByteString -> ConsensusCommitBlockRequest ConsensusCommitBlockRequest) Parser RawMessage (ByteString -> ConsensusCommitBlockRequest) -> Parser RawMessage ByteString -> Parser RawMessage ConsensusCommitBlockRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField ByteString +<*> + (Parser RawField ByteString -> FieldNumber -> Parser RawMessage ByteString forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField ByteString +HsProtobuf.at Parser RawField ByteString forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - dotProto :: Proxy# ConsensusCommitBlockRequest -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + dotProto :: Proxy# ConsensusCommitBlockRequest -> [DotProtoField] +dotProto Proxy# ConsensusCommitBlockRequest +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.Bytes) - (String -> DotProtoIdentifier -HsProtobuf.Single "block_id") - [] - "")] - -instance HsJSONPB.ToJSONPB ConsensusCommitBlockRequest where - toJSONPB :: ConsensusCommitBlockRequest -> Options -> Value -toJSONPB (ConsensusCommitBlockRequest f1 :: ByteString -f1) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["block_id" Text -> ByteString -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.Bytes) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"block_id") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ConsensusCommitBlockRequest where + toJSONPB :: ConsensusCommitBlockRequest -> Options -> Value +toJSONPB (ConsensusCommitBlockRequest ByteString +f1) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"block_id" Text -> ByteString -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f1]) - toEncodingPB :: ConsensusCommitBlockRequest -> Options -> Encoding -toEncodingPB (ConsensusCommitBlockRequest f1 :: ByteString -f1) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["block_id" Text -> ByteString -> Options -> Series +.= ByteString +f1]) + toEncodingPB :: ConsensusCommitBlockRequest -> Options -> Encoding +toEncodingPB (ConsensusCommitBlockRequest ByteString +f1) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"block_id" Text -> ByteString -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f1]) - -instance HsJSONPB.FromJSONPB ConsensusCommitBlockRequest where - parseJSONPB :: Value -> Parser ConsensusCommitBlockRequest -parseJSONPB - = (String +.= ByteString +f1]) + +instance HsJSONPB.FromJSONPB ConsensusCommitBlockRequest where + parseJSONPB :: Value -> Parser ConsensusCommitBlockRequest +parseJSONPB + = (String -> (Object -> Parser ConsensusCommitBlockRequest) -> Value -> Parser ConsensusCommitBlockRequest forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ConsensusCommitBlockRequest" - (\ obj :: Object -obj -> - ((ByteString -> ConsensusCommitBlockRequest) +HsJSONPB.withObject String +"ConsensusCommitBlockRequest" + (\ Object +obj -> + ((ByteString -> ConsensusCommitBlockRequest) -> Parser (ByteString -> ConsensusCommitBlockRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString -> ConsensusCommitBlockRequest +Hs.pure ByteString -> ConsensusCommitBlockRequest ConsensusCommitBlockRequest) Parser (ByteString -> ConsensusCommitBlockRequest) -> Parser ByteString -> Parser ConsensusCommitBlockRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser ByteString +<*> Object +obj Object -> Text -> Parser ByteString forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "block_id")) - -instance HsJSONPB.ToJSON ConsensusCommitBlockRequest where - toJSON :: ConsensusCommitBlockRequest -> Value -toJSON = ConsensusCommitBlockRequest -> Value +.: Text +"block_id")) + +instance HsJSONPB.ToJSON ConsensusCommitBlockRequest where + toJSON :: ConsensusCommitBlockRequest -> Value +toJSON = ConsensusCommitBlockRequest -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ConsensusCommitBlockRequest -> Encoding -toEncoding = ConsensusCommitBlockRequest -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ConsensusCommitBlockRequest -> Encoding +toEncoding = ConsensusCommitBlockRequest -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ConsensusCommitBlockRequest where - parseJSON :: Value -> Parser ConsensusCommitBlockRequest -parseJSON = Value -> Parser ConsensusCommitBlockRequest +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ConsensusCommitBlockRequest where + parseJSON :: Value -> Parser ConsensusCommitBlockRequest +parseJSON = Value -> Parser ConsensusCommitBlockRequest forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ConsensusCommitBlockRequest where - declareNamedSchema :: Proxy ConsensusCommitBlockRequest +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ConsensusCommitBlockRequest where + declareNamedSchema :: Proxy ConsensusCommitBlockRequest -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_block_id :: Proxy (OverrideToSchema ByteString) +declareNamedSchema Proxy ConsensusCommitBlockRequest +_ + = do let declare_block_id :: Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_block_id = Proxy (OverrideToSchema ByteString) +declare_block_id = Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -consensusCommitBlockRequestBlockId <- Proxy (OverrideToSchema ByteString) +HsJSONPB.declareSchemaRef + Referenced Schema +consensusCommitBlockRequestBlockId <- Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_block_id Proxy (OverrideToSchema ByteString) +declare_block_id Proxy (OverrideToSchema ByteString) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ConsensusCommitBlockRequest +Proxy.Proxy + let Proxy ConsensusCommitBlockRequest _ = (ByteString -> ConsensusCommitBlockRequest) -> Proxy (ByteString -> ConsensusCommitBlockRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString -> ConsensusCommitBlockRequest +Hs.pure ByteString -> ConsensusCommitBlockRequest ConsensusCommitBlockRequest Proxy (ByteString -> ConsensusCommitBlockRequest) -> Proxy ByteString -> Proxy ConsensusCommitBlockRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema ByteString) +<*> + (Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy ByteString forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) +HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_block_id - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_block_id + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ConsensusCommitBlockRequest", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ConsensusCommitBlockRequest", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("block_id", - Referenced Schema -consensusCommitBlockRequestBlockId)]}}) - -newtype ConsensusCommitBlockResponse = ConsensusCommitBlockResponse{ConsensusCommitBlockResponse +HsJSONPB.insOrdFromList + [(Text +"block_id", + Referenced Schema +consensusCommitBlockRequestBlockId)]}}) + +newtype ConsensusCommitBlockResponse = ConsensusCommitBlockResponse{ConsensusCommitBlockResponse -> Enumerated ConsensusCommitBlockResponse_Status consensusCommitBlockResponseStatus - :: - HsProtobuf.Enumerated - Data.Sawtooth.Consensus.ConsensusCommitBlockResponse_Status} - deriving (Int -> ConsensusCommitBlockResponse -> ShowS + :: + HsProtobuf.Enumerated + Data.Sawtooth.Consensus.ConsensusCommitBlockResponse_Status} + deriving (Int -> ConsensusCommitBlockResponse -> ShowS [ConsensusCommitBlockResponse] -> ShowS ConsensusCommitBlockResponse -> String (Int -> ConsensusCommitBlockResponse -> ShowS) @@ -15282,7 +16279,7 @@ show :: ConsensusCommitBlockResponse -> String $cshow :: ConsensusCommitBlockResponse -> String showsPrec :: Int -> ConsensusCommitBlockResponse -> ShowS $cshowsPrec :: Int -> ConsensusCommitBlockResponse -> ShowS -Hs.Show, ConsensusCommitBlockResponse +Hs.Show, ConsensusCommitBlockResponse -> ConsensusCommitBlockResponse -> Bool (ConsensusCommitBlockResponse -> ConsensusCommitBlockResponse -> Bool) @@ -15298,10 +16295,10 @@ $c/= :: ConsensusCommitBlockResponse -> ConsensusCommitBlockResponse -> Bool $c== :: ConsensusCommitBlockResponse -> ConsensusCommitBlockResponse -> Bool -Hs.Eq, Eq ConsensusCommitBlockResponse -Eq ConsensusCommitBlockResponse => -(ConsensusCommitBlockResponse - -> ConsensusCommitBlockResponse -> Ordering) +Hs.Eq, Eq ConsensusCommitBlockResponse +Eq ConsensusCommitBlockResponse +-> (ConsensusCommitBlockResponse + -> ConsensusCommitBlockResponse -> Ordering) -> (ConsensusCommitBlockResponse -> ConsensusCommitBlockResponse -> Bool) -> (ConsensusCommitBlockResponse @@ -15322,8 +16319,8 @@ ConsensusCommitBlockResponse ConsensusCommitBlockResponse -> ConsensusCommitBlockResponse -> ConsensusCommitBlockResponse forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -15360,7 +16357,7 @@ compare :: ConsensusCommitBlockResponse $ccompare :: ConsensusCommitBlockResponse -> ConsensusCommitBlockResponse -> Ordering $cp1Ord :: Eq ConsensusCommitBlockResponse -Hs.Ord, (forall x. +Hs.Ord, (forall x. ConsensusCommitBlockResponse -> Rep ConsensusCommitBlockResponse x) -> (forall x. Rep ConsensusCommitBlockResponse x -> ConsensusCommitBlockResponse) @@ -15375,50 +16372,55 @@ $cto :: forall x. Rep ConsensusCommitBlockResponse x -> ConsensusCommitBlockResponse $cfrom :: forall x. ConsensusCommitBlockResponse -> Rep ConsensusCommitBlockResponse x -Hs.Generic, ConsensusCommitBlockResponse -> () +Hs.Generic, ConsensusCommitBlockResponse -> () (ConsensusCommitBlockResponse -> ()) -> NFData ConsensusCommitBlockResponse forall a. (a -> ()) -> NFData a rnf :: ConsensusCommitBlockResponse -> () $crnf :: ConsensusCommitBlockResponse -> () -Hs.NFData) - -instance HsProtobuf.Named ConsensusCommitBlockResponse where - nameOf :: Proxy# ConsensusCommitBlockResponse -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ConsensusCommitBlockResponse where + nameOf :: Proxy# ConsensusCommitBlockResponse -> string +nameOf Proxy# ConsensusCommitBlockResponse +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ConsensusCommitBlockResponse") - -instance HsProtobuf.HasDefault ConsensusCommitBlockResponse - -instance HsProtobuf.Message ConsensusCommitBlockResponse where - encodeMessage :: FieldNumber -> ConsensusCommitBlockResponse -> MessageBuilder -encodeMessage _ - ConsensusCommitBlockResponse{consensusCommitBlockResponseStatus :: ConsensusCommitBlockResponse +Hs.fromString String +"ConsensusCommitBlockResponse") + +instance HsProtobuf.HasDefault ConsensusCommitBlockResponse + +instance HsProtobuf.Message ConsensusCommitBlockResponse where + encodeMessage :: FieldNumber -> ConsensusCommitBlockResponse -> MessageBuilder +encodeMessage FieldNumber +_ + ConsensusCommitBlockResponse{consensusCommitBlockResponseStatus :: ConsensusCommitBlockResponse -> Enumerated ConsensusCommitBlockResponse_Status consensusCommitBlockResponseStatus = - Enumerated ConsensusCommitBlockResponse_Status -consensusCommitBlockResponseStatus} - = ([MessageBuilder] -> MessageBuilder + Enumerated ConsensusCommitBlockResponse_Status +consensusCommitBlockResponseStatus} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber +Hs.mconcat + [(FieldNumber -> Enumerated ConsensusCommitBlockResponse_Status -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Enumerated ConsensusCommitBlockResponse_Status -consensusCommitBlockResponseStatus)]) - decodeMessage :: FieldNumber -> Parser RawMessage ConsensusCommitBlockResponse -decodeMessage _ - = ((Enumerated ConsensusCommitBlockResponse_Status +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Enumerated ConsensusCommitBlockResponse_Status +consensusCommitBlockResponseStatus)]) + decodeMessage :: FieldNumber -> Parser RawMessage ConsensusCommitBlockResponse +decodeMessage FieldNumber +_ + = ((Enumerated ConsensusCommitBlockResponse_Status -> ConsensusCommitBlockResponse) -> Parser RawMessage (Enumerated ConsensusCommitBlockResponse_Status -> ConsensusCommitBlockResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ConsensusCommitBlockResponse_Status +Hs.pure Enumerated ConsensusCommitBlockResponse_Status -> ConsensusCommitBlockResponse ConsensusCommitBlockResponse) Parser RawMessage @@ -15428,82 +16430,91 @@ forall (f :: * -> *) a. Applicative f => a -> f a RawMessage (Enumerated ConsensusCommitBlockResponse_Status) -> Parser RawMessage ConsensusCommitBlockResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField (Enumerated ConsensusCommitBlockResponse_Status) +<*> + (Parser RawField (Enumerated ConsensusCommitBlockResponse_Status) -> FieldNumber -> Parser RawMessage (Enumerated ConsensusCommitBlockResponse_Status) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (Enumerated ConsensusCommitBlockResponse_Status) +HsProtobuf.at Parser RawField (Enumerated ConsensusCommitBlockResponse_Status) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - dotProto :: Proxy# ConsensusCommitBlockResponse -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + dotProto :: Proxy# ConsensusCommitBlockResponse -> [DotProtoField] +dotProto Proxy# ConsensusCommitBlockResponse +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "Status"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "status") - [] - "")] - -instance HsJSONPB.ToJSONPB ConsensusCommitBlockResponse where - toJSONPB :: ConsensusCommitBlockResponse -> Options -> Value -toJSONPB (ConsensusCommitBlockResponse f1 :: Enumerated ConsensusCommitBlockResponse_Status -f1) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["status" Text +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"Status"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"status") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ConsensusCommitBlockResponse where + toJSONPB :: ConsensusCommitBlockResponse -> Options -> Value +toJSONPB (ConsensusCommitBlockResponse Enumerated ConsensusCommitBlockResponse_Status +f1) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"status" Text -> Enumerated ConsensusCommitBlockResponse_Status -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated ConsensusCommitBlockResponse_Status -f1]) - toEncodingPB :: ConsensusCommitBlockResponse -> Options -> Encoding -toEncodingPB (ConsensusCommitBlockResponse f1 :: Enumerated ConsensusCommitBlockResponse_Status -f1) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["status" Text +.= Enumerated ConsensusCommitBlockResponse_Status +f1]) + toEncodingPB :: ConsensusCommitBlockResponse -> Options -> Encoding +toEncodingPB (ConsensusCommitBlockResponse Enumerated ConsensusCommitBlockResponse_Status +f1) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"status" Text -> Enumerated ConsensusCommitBlockResponse_Status -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated ConsensusCommitBlockResponse_Status -f1]) - -instance HsJSONPB.FromJSONPB ConsensusCommitBlockResponse where - parseJSONPB :: Value -> Parser ConsensusCommitBlockResponse -parseJSONPB - = (String +.= Enumerated ConsensusCommitBlockResponse_Status +f1]) + +instance HsJSONPB.FromJSONPB ConsensusCommitBlockResponse where + parseJSONPB :: Value -> Parser ConsensusCommitBlockResponse +parseJSONPB + = (String -> (Object -> Parser ConsensusCommitBlockResponse) -> Value -> Parser ConsensusCommitBlockResponse forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ConsensusCommitBlockResponse" - (\ obj :: Object -obj -> - ((Enumerated ConsensusCommitBlockResponse_Status +HsJSONPB.withObject String +"ConsensusCommitBlockResponse" + (\ Object +obj -> + ((Enumerated ConsensusCommitBlockResponse_Status -> ConsensusCommitBlockResponse) -> Parser (Enumerated ConsensusCommitBlockResponse_Status -> ConsensusCommitBlockResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ConsensusCommitBlockResponse_Status +Hs.pure Enumerated ConsensusCommitBlockResponse_Status -> ConsensusCommitBlockResponse ConsensusCommitBlockResponse) Parser (Enumerated ConsensusCommitBlockResponse_Status @@ -15511,60 +16522,62 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Parser (Enumerated ConsensusCommitBlockResponse_Status) -> Parser ConsensusCommitBlockResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object +<*> Object +obj Object -> Text -> Parser (Enumerated ConsensusCommitBlockResponse_Status) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "status")) - -instance HsJSONPB.ToJSON ConsensusCommitBlockResponse where - toJSON :: ConsensusCommitBlockResponse -> Value -toJSON = ConsensusCommitBlockResponse -> Value +.: Text +"status")) + +instance HsJSONPB.ToJSON ConsensusCommitBlockResponse where + toJSON :: ConsensusCommitBlockResponse -> Value +toJSON = ConsensusCommitBlockResponse -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ConsensusCommitBlockResponse -> Encoding -toEncoding = ConsensusCommitBlockResponse -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ConsensusCommitBlockResponse -> Encoding +toEncoding = ConsensusCommitBlockResponse -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ConsensusCommitBlockResponse where - parseJSON :: Value -> Parser ConsensusCommitBlockResponse -parseJSON = Value -> Parser ConsensusCommitBlockResponse +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ConsensusCommitBlockResponse where + parseJSON :: Value -> Parser ConsensusCommitBlockResponse +parseJSON = Value -> Parser ConsensusCommitBlockResponse forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ConsensusCommitBlockResponse where - declareNamedSchema :: Proxy ConsensusCommitBlockResponse +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ConsensusCommitBlockResponse where + declareNamedSchema :: Proxy ConsensusCommitBlockResponse -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_status :: Proxy +declareNamedSchema Proxy ConsensusCommitBlockResponse +_ + = do let declare_status :: Proxy (OverrideToSchema (Enumerated ConsensusCommitBlockResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status = Proxy +declare_status = Proxy (OverrideToSchema (Enumerated ConsensusCommitBlockResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -consensusCommitBlockResponseStatus <- Proxy +HsJSONPB.declareSchemaRef + Referenced Schema +consensusCommitBlockResponseStatus <- Proxy (OverrideToSchema (Enumerated ConsensusCommitBlockResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status Proxy +declare_status Proxy (OverrideToSchema (Enumerated ConsensusCommitBlockResponse_Status)) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ConsensusCommitBlockResponse +Proxy.Proxy + let Proxy ConsensusCommitBlockResponse _ = (Enumerated ConsensusCommitBlockResponse_Status -> ConsensusCommitBlockResponse) -> Proxy (Enumerated ConsensusCommitBlockResponse_Status -> ConsensusCommitBlockResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ConsensusCommitBlockResponse_Status +Hs.pure Enumerated ConsensusCommitBlockResponse_Status -> ConsensusCommitBlockResponse ConsensusCommitBlockResponse Proxy (Enumerated ConsensusCommitBlockResponse_Status @@ -15572,58 +16585,60 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Proxy (Enumerated ConsensusCommitBlockResponse_Status) -> Proxy ConsensusCommitBlockResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy +<*> + (Proxy (OverrideToSchema (Enumerated ConsensusCommitBlockResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Enumerated ConsensusCommitBlockResponse_Status) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy +HsJSONPB.asProxy Proxy (OverrideToSchema (Enumerated ConsensusCommitBlockResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_status + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ConsensusCommitBlockResponse", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ConsensusCommitBlockResponse", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("status", - Referenced Schema -consensusCommitBlockResponseStatus)]}}) - -data ConsensusCommitBlockResponse_Status = ConsensusCommitBlockResponse_StatusSTATUS_UNSET - | ConsensusCommitBlockResponse_StatusOK - | ConsensusCommitBlockResponse_StatusBAD_REQUEST - | ConsensusCommitBlockResponse_StatusSERVICE_ERROR - | ConsensusCommitBlockResponse_StatusNOT_READY - | ConsensusCommitBlockResponse_StatusUNKNOWN_BLOCK - | ConsensusCommitBlockResponse_StatusNOT_ACTIVE_ENGINE - deriving (Int -> ConsensusCommitBlockResponse_Status -> ShowS +HsJSONPB.insOrdFromList + [(Text +"status", + Referenced Schema +consensusCommitBlockResponseStatus)]}}) + +data ConsensusCommitBlockResponse_Status = ConsensusCommitBlockResponse_StatusSTATUS_UNSET + | ConsensusCommitBlockResponse_StatusOK + | ConsensusCommitBlockResponse_StatusBAD_REQUEST + | ConsensusCommitBlockResponse_StatusSERVICE_ERROR + | ConsensusCommitBlockResponse_StatusNOT_READY + | ConsensusCommitBlockResponse_StatusUNKNOWN_BLOCK + | ConsensusCommitBlockResponse_StatusNOT_ACTIVE_ENGINE + deriving (Int -> ConsensusCommitBlockResponse_Status -> ShowS [ConsensusCommitBlockResponse_Status] -> ShowS ConsensusCommitBlockResponse_Status -> String (Int -> ConsensusCommitBlockResponse_Status -> ShowS) @@ -15638,7 +16653,7 @@ show :: ConsensusCommitBlockResponse_Status -> String $cshow :: ConsensusCommitBlockResponse_Status -> String showsPrec :: Int -> ConsensusCommitBlockResponse_Status -> ShowS $cshowsPrec :: Int -> ConsensusCommitBlockResponse_Status -> ShowS -Hs.Show, ConsensusCommitBlockResponse_Status +Hs.Show, ConsensusCommitBlockResponse_Status -> ConsensusCommitBlockResponse_Status -> Bool (ConsensusCommitBlockResponse_Status -> ConsensusCommitBlockResponse_Status -> Bool) @@ -15654,7 +16669,7 @@ $c/= :: ConsensusCommitBlockResponse_Status -> ConsensusCommitBlockResponse_Status -> Bool $c== :: ConsensusCommitBlockResponse_Status -> ConsensusCommitBlockResponse_Status -> Bool -Hs.Eq, (forall x. +Hs.Eq, (forall x. ConsensusCommitBlockResponse_Status -> Rep ConsensusCommitBlockResponse_Status x) -> (forall x. @@ -15675,203 +16690,230 @@ Rep ConsensusCommitBlockResponse_Status x $cfrom :: forall x. ConsensusCommitBlockResponse_Status -> Rep ConsensusCommitBlockResponse_Status x -Hs.Generic, ConsensusCommitBlockResponse_Status -> () +Hs.Generic, ConsensusCommitBlockResponse_Status -> () (ConsensusCommitBlockResponse_Status -> ()) -> NFData ConsensusCommitBlockResponse_Status forall a. (a -> ()) -> NFData a rnf :: ConsensusCommitBlockResponse_Status -> () $crnf :: ConsensusCommitBlockResponse_Status -> () -Hs.NFData) - -instance HsProtobuf.Named ConsensusCommitBlockResponse_Status where - nameOf :: Proxy# ConsensusCommitBlockResponse_Status -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ConsensusCommitBlockResponse_Status where + nameOf :: Proxy# ConsensusCommitBlockResponse_Status -> string +nameOf Proxy# ConsensusCommitBlockResponse_Status +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ConsensusCommitBlockResponse_Status") - -instance HsProtobuf.HasDefault ConsensusCommitBlockResponse_Status - -instance Hs.Bounded ConsensusCommitBlockResponse_Status where - minBound :: ConsensusCommitBlockResponse_Status -minBound = ConsensusCommitBlockResponse_Status +Hs.fromString String +"ConsensusCommitBlockResponse_Status") + +instance HsProtobuf.HasDefault ConsensusCommitBlockResponse_Status + +instance Hs.Bounded ConsensusCommitBlockResponse_Status where + minBound :: ConsensusCommitBlockResponse_Status +minBound = ConsensusCommitBlockResponse_Status ConsensusCommitBlockResponse_StatusSTATUS_UNSET - maxBound :: ConsensusCommitBlockResponse_Status -maxBound = ConsensusCommitBlockResponse_Status + maxBound :: ConsensusCommitBlockResponse_Status +maxBound = ConsensusCommitBlockResponse_Status ConsensusCommitBlockResponse_StatusNOT_ACTIVE_ENGINE - -instance Hs.Ord ConsensusCommitBlockResponse_Status where - compare :: ConsensusCommitBlockResponse_Status + +instance Hs.Ord ConsensusCommitBlockResponse_Status where + compare :: ConsensusCommitBlockResponse_Status -> ConsensusCommitBlockResponse_Status -> Ordering -compare x :: ConsensusCommitBlockResponse_Status -x y :: ConsensusCommitBlockResponse_Status -y - = Int32 -> Int32 -> Ordering +compare ConsensusCommitBlockResponse_Status +x ConsensusCommitBlockResponse_Status +y + = Int32 -> Int32 -> Ordering forall a. Ord a => a -> a -> Ordering -Hs.compare (ConsensusCommitBlockResponse_Status -> Int32 +Hs.compare (ConsensusCommitBlockResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum ConsensusCommitBlockResponse_Status -x) - (ConsensusCommitBlockResponse_Status -> Int32 +HsProtobuf.fromProtoEnum ConsensusCommitBlockResponse_Status +x) + (ConsensusCommitBlockResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum ConsensusCommitBlockResponse_Status -y) - -instance HsProtobuf.ProtoEnum ConsensusCommitBlockResponse_Status - where - toProtoEnumMay :: Int32 -> Maybe ConsensusCommitBlockResponse_Status -toProtoEnumMay 0 - = ConsensusCommitBlockResponse_Status +HsProtobuf.fromProtoEnum ConsensusCommitBlockResponse_Status +y) + +instance HsProtobuf.ProtoEnum ConsensusCommitBlockResponse_Status + where + toProtoEnumMay :: Int32 -> Maybe ConsensusCommitBlockResponse_Status +toProtoEnumMay Int32 +0 + = ConsensusCommitBlockResponse_Status -> Maybe ConsensusCommitBlockResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusCommitBlockResponse_Status +Hs.Just ConsensusCommitBlockResponse_Status ConsensusCommitBlockResponse_StatusSTATUS_UNSET - toProtoEnumMay 1 = ConsensusCommitBlockResponse_Status + toProtoEnumMay Int32 +1 = ConsensusCommitBlockResponse_Status -> Maybe ConsensusCommitBlockResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusCommitBlockResponse_Status +Hs.Just ConsensusCommitBlockResponse_Status ConsensusCommitBlockResponse_StatusOK - toProtoEnumMay 2 - = ConsensusCommitBlockResponse_Status + toProtoEnumMay Int32 +2 + = ConsensusCommitBlockResponse_Status -> Maybe ConsensusCommitBlockResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusCommitBlockResponse_Status +Hs.Just ConsensusCommitBlockResponse_Status ConsensusCommitBlockResponse_StatusBAD_REQUEST - toProtoEnumMay 3 - = ConsensusCommitBlockResponse_Status + toProtoEnumMay Int32 +3 + = ConsensusCommitBlockResponse_Status -> Maybe ConsensusCommitBlockResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusCommitBlockResponse_Status +Hs.Just ConsensusCommitBlockResponse_Status ConsensusCommitBlockResponse_StatusSERVICE_ERROR - toProtoEnumMay 4 - = ConsensusCommitBlockResponse_Status + toProtoEnumMay Int32 +4 + = ConsensusCommitBlockResponse_Status -> Maybe ConsensusCommitBlockResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusCommitBlockResponse_Status +Hs.Just ConsensusCommitBlockResponse_Status ConsensusCommitBlockResponse_StatusNOT_READY - toProtoEnumMay 5 - = ConsensusCommitBlockResponse_Status + toProtoEnumMay Int32 +5 + = ConsensusCommitBlockResponse_Status -> Maybe ConsensusCommitBlockResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusCommitBlockResponse_Status +Hs.Just ConsensusCommitBlockResponse_Status ConsensusCommitBlockResponse_StatusUNKNOWN_BLOCK - toProtoEnumMay 6 - = ConsensusCommitBlockResponse_Status + toProtoEnumMay Int32 +6 + = ConsensusCommitBlockResponse_Status -> Maybe ConsensusCommitBlockResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusCommitBlockResponse_Status +Hs.Just ConsensusCommitBlockResponse_Status ConsensusCommitBlockResponse_StatusNOT_ACTIVE_ENGINE - toProtoEnumMay _ = Maybe ConsensusCommitBlockResponse_Status + toProtoEnumMay Int32 +_ = Maybe ConsensusCommitBlockResponse_Status forall a. Maybe a -Hs.Nothing - fromProtoEnum :: ConsensusCommitBlockResponse_Status -> Int32 -fromProtoEnum (ConsensusCommitBlockResponse_Status -ConsensusCommitBlockResponse_StatusSTATUS_UNSET) = 0 - fromProtoEnum (ConsensusCommitBlockResponse_Status -ConsensusCommitBlockResponse_StatusOK) = 1 - fromProtoEnum (ConsensusCommitBlockResponse_Status -ConsensusCommitBlockResponse_StatusBAD_REQUEST) = 2 - fromProtoEnum (ConsensusCommitBlockResponse_Status +Hs.Nothing + fromProtoEnum :: ConsensusCommitBlockResponse_Status -> Int32 +fromProtoEnum (ConsensusCommitBlockResponse_Status +ConsensusCommitBlockResponse_StatusSTATUS_UNSET) = Int32 +0 + fromProtoEnum (ConsensusCommitBlockResponse_Status +ConsensusCommitBlockResponse_StatusOK) = Int32 +1 + fromProtoEnum (ConsensusCommitBlockResponse_Status +ConsensusCommitBlockResponse_StatusBAD_REQUEST) = Int32 +2 + fromProtoEnum (ConsensusCommitBlockResponse_Status ConsensusCommitBlockResponse_StatusSERVICE_ERROR) - = 3 - fromProtoEnum (ConsensusCommitBlockResponse_Status -ConsensusCommitBlockResponse_StatusNOT_READY) = 4 - fromProtoEnum (ConsensusCommitBlockResponse_Status + = Int32 +3 + fromProtoEnum (ConsensusCommitBlockResponse_Status +ConsensusCommitBlockResponse_StatusNOT_READY) = Int32 +4 + fromProtoEnum (ConsensusCommitBlockResponse_Status ConsensusCommitBlockResponse_StatusUNKNOWN_BLOCK) - = 5 - fromProtoEnum - (ConsensusCommitBlockResponse_Status -ConsensusCommitBlockResponse_StatusNOT_ACTIVE_ENGINE) = 6 - -instance HsJSONPB.ToJSONPB ConsensusCommitBlockResponse_Status - where - toJSONPB :: ConsensusCommitBlockResponse_Status -> Options -> Value -toJSONPB x :: ConsensusCommitBlockResponse_Status -x _ = ConsensusCommitBlockResponse_Status -> Value + = Int32 +5 + fromProtoEnum + (ConsensusCommitBlockResponse_Status +ConsensusCommitBlockResponse_StatusNOT_ACTIVE_ENGINE) = Int32 +6 + +instance HsJSONPB.ToJSONPB ConsensusCommitBlockResponse_Status + where + toJSONPB :: ConsensusCommitBlockResponse_Status -> Options -> Value +toJSONPB ConsensusCommitBlockResponse_Status +x Options +_ = ConsensusCommitBlockResponse_Status -> Value forall a. (Named a, Show a) => a -> Value -HsJSONPB.enumFieldString ConsensusCommitBlockResponse_Status -x - toEncodingPB :: ConsensusCommitBlockResponse_Status -> Options -> Encoding -toEncodingPB x :: ConsensusCommitBlockResponse_Status -x _ = ConsensusCommitBlockResponse_Status -> Encoding +HsJSONPB.enumFieldString ConsensusCommitBlockResponse_Status +x + toEncodingPB :: ConsensusCommitBlockResponse_Status -> Options -> Encoding +toEncodingPB ConsensusCommitBlockResponse_Status +x Options +_ = ConsensusCommitBlockResponse_Status -> Encoding forall a. (Named a, Show a) => a -> Encoding -HsJSONPB.enumFieldEncoding ConsensusCommitBlockResponse_Status -x - -instance HsJSONPB.FromJSONPB ConsensusCommitBlockResponse_Status - where - parseJSONPB :: Value -> Parser ConsensusCommitBlockResponse_Status -parseJSONPB (HsJSONPB.String "STATUS_UNSET") - = ConsensusCommitBlockResponse_Status +HsJSONPB.enumFieldEncoding ConsensusCommitBlockResponse_Status +x + +instance HsJSONPB.FromJSONPB ConsensusCommitBlockResponse_Status + where + parseJSONPB :: Value -> Parser ConsensusCommitBlockResponse_Status +parseJSONPB (HsJSONPB.String Text +"STATUS_UNSET") + = ConsensusCommitBlockResponse_Status -> Parser ConsensusCommitBlockResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusCommitBlockResponse_Status +Hs.pure ConsensusCommitBlockResponse_Status ConsensusCommitBlockResponse_StatusSTATUS_UNSET - parseJSONPB (HsJSONPB.String "OK") - = ConsensusCommitBlockResponse_Status + parseJSONPB (HsJSONPB.String Text +"OK") + = ConsensusCommitBlockResponse_Status -> Parser ConsensusCommitBlockResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusCommitBlockResponse_Status +Hs.pure ConsensusCommitBlockResponse_Status ConsensusCommitBlockResponse_StatusOK - parseJSONPB (HsJSONPB.String "BAD_REQUEST") - = ConsensusCommitBlockResponse_Status + parseJSONPB (HsJSONPB.String Text +"BAD_REQUEST") + = ConsensusCommitBlockResponse_Status -> Parser ConsensusCommitBlockResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusCommitBlockResponse_Status +Hs.pure ConsensusCommitBlockResponse_Status ConsensusCommitBlockResponse_StatusBAD_REQUEST - parseJSONPB (HsJSONPB.String "SERVICE_ERROR") - = ConsensusCommitBlockResponse_Status + parseJSONPB (HsJSONPB.String Text +"SERVICE_ERROR") + = ConsensusCommitBlockResponse_Status -> Parser ConsensusCommitBlockResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusCommitBlockResponse_Status +Hs.pure ConsensusCommitBlockResponse_Status ConsensusCommitBlockResponse_StatusSERVICE_ERROR - parseJSONPB (HsJSONPB.String "NOT_READY") - = ConsensusCommitBlockResponse_Status + parseJSONPB (HsJSONPB.String Text +"NOT_READY") + = ConsensusCommitBlockResponse_Status -> Parser ConsensusCommitBlockResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusCommitBlockResponse_Status +Hs.pure ConsensusCommitBlockResponse_Status ConsensusCommitBlockResponse_StatusNOT_READY - parseJSONPB (HsJSONPB.String "UNKNOWN_BLOCK") - = ConsensusCommitBlockResponse_Status + parseJSONPB (HsJSONPB.String Text +"UNKNOWN_BLOCK") + = ConsensusCommitBlockResponse_Status -> Parser ConsensusCommitBlockResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusCommitBlockResponse_Status +Hs.pure ConsensusCommitBlockResponse_Status ConsensusCommitBlockResponse_StatusUNKNOWN_BLOCK - parseJSONPB (HsJSONPB.String "NOT_ACTIVE_ENGINE") - = ConsensusCommitBlockResponse_Status + parseJSONPB (HsJSONPB.String Text +"NOT_ACTIVE_ENGINE") + = ConsensusCommitBlockResponse_Status -> Parser ConsensusCommitBlockResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusCommitBlockResponse_Status +Hs.pure ConsensusCommitBlockResponse_Status ConsensusCommitBlockResponse_StatusNOT_ACTIVE_ENGINE - parseJSONPB v :: Value -v - = (String -> Value -> Parser ConsensusCommitBlockResponse_Status + parseJSONPB Value +v + = (String -> Value -> Parser ConsensusCommitBlockResponse_Status forall a. String -> Value -> Parser a -HsJSONPB.typeMismatch "ConsensusCommitBlockResponse_Status" Value -v) - -instance HsJSONPB.ToJSON ConsensusCommitBlockResponse_Status where - toJSON :: ConsensusCommitBlockResponse_Status -> Value -toJSON = ConsensusCommitBlockResponse_Status -> Value +HsJSONPB.typeMismatch String +"ConsensusCommitBlockResponse_Status" Value +v) + +instance HsJSONPB.ToJSON ConsensusCommitBlockResponse_Status where + toJSON :: ConsensusCommitBlockResponse_Status -> Value +toJSON = ConsensusCommitBlockResponse_Status -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ConsensusCommitBlockResponse_Status -> Encoding -toEncoding = ConsensusCommitBlockResponse_Status -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ConsensusCommitBlockResponse_Status -> Encoding +toEncoding = ConsensusCommitBlockResponse_Status -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ConsensusCommitBlockResponse_Status - where - parseJSON :: Value -> Parser ConsensusCommitBlockResponse_Status -parseJSON = Value -> Parser ConsensusCommitBlockResponse_Status +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ConsensusCommitBlockResponse_Status + where + parseJSON :: Value -> Parser ConsensusCommitBlockResponse_Status +parseJSON = Value -> Parser ConsensusCommitBlockResponse_Status forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsProtobuf.Finite ConsensusCommitBlockResponse_Status - -newtype ConsensusIgnoreBlockRequest = ConsensusIgnoreBlockRequest{ConsensusIgnoreBlockRequest -> ByteString +HsJSONPB.parseJSONPB + +instance HsProtobuf.Finite ConsensusCommitBlockResponse_Status + +newtype ConsensusIgnoreBlockRequest = ConsensusIgnoreBlockRequest{ConsensusIgnoreBlockRequest -> ByteString consensusIgnoreBlockRequestBlockId - :: Hs.ByteString} - deriving (Int -> ConsensusIgnoreBlockRequest -> ShowS + :: Hs.ByteString} + deriving (Int -> ConsensusIgnoreBlockRequest -> ShowS [ConsensusIgnoreBlockRequest] -> ShowS ConsensusIgnoreBlockRequest -> String (Int -> ConsensusIgnoreBlockRequest -> ShowS) @@ -15886,7 +16928,7 @@ show :: ConsensusIgnoreBlockRequest -> String $cshow :: ConsensusIgnoreBlockRequest -> String showsPrec :: Int -> ConsensusIgnoreBlockRequest -> ShowS $cshowsPrec :: Int -> ConsensusIgnoreBlockRequest -> ShowS -Hs.Show, ConsensusIgnoreBlockRequest -> ConsensusIgnoreBlockRequest -> Bool +Hs.Show, ConsensusIgnoreBlockRequest -> ConsensusIgnoreBlockRequest -> Bool (ConsensusIgnoreBlockRequest -> ConsensusIgnoreBlockRequest -> Bool) -> (ConsensusIgnoreBlockRequest @@ -15897,10 +16939,10 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: ConsensusIgnoreBlockRequest -> ConsensusIgnoreBlockRequest -> Bool == :: ConsensusIgnoreBlockRequest -> ConsensusIgnoreBlockRequest -> Bool $c== :: ConsensusIgnoreBlockRequest -> ConsensusIgnoreBlockRequest -> Bool -Hs.Eq, Eq ConsensusIgnoreBlockRequest -Eq ConsensusIgnoreBlockRequest => -(ConsensusIgnoreBlockRequest - -> ConsensusIgnoreBlockRequest -> Ordering) +Hs.Eq, Eq ConsensusIgnoreBlockRequest +Eq ConsensusIgnoreBlockRequest +-> (ConsensusIgnoreBlockRequest + -> ConsensusIgnoreBlockRequest -> Ordering) -> (ConsensusIgnoreBlockRequest -> ConsensusIgnoreBlockRequest -> Bool) -> (ConsensusIgnoreBlockRequest @@ -15920,8 +16962,8 @@ ConsensusIgnoreBlockRequest ConsensusIgnoreBlockRequest -> ConsensusIgnoreBlockRequest -> ConsensusIgnoreBlockRequest forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -15950,7 +16992,7 @@ compare :: ConsensusIgnoreBlockRequest $ccompare :: ConsensusIgnoreBlockRequest -> ConsensusIgnoreBlockRequest -> Ordering $cp1Ord :: Eq ConsensusIgnoreBlockRequest -Hs.Ord, (forall x. +Hs.Ord, (forall x. ConsensusIgnoreBlockRequest -> Rep ConsensusIgnoreBlockRequest x) -> (forall x. Rep ConsensusIgnoreBlockRequest x -> ConsensusIgnoreBlockRequest) @@ -15965,213 +17007,230 @@ $cto :: forall x. Rep ConsensusIgnoreBlockRequest x -> ConsensusIgnoreBlockRequest $cfrom :: forall x. ConsensusIgnoreBlockRequest -> Rep ConsensusIgnoreBlockRequest x -Hs.Generic, ConsensusIgnoreBlockRequest -> () +Hs.Generic, ConsensusIgnoreBlockRequest -> () (ConsensusIgnoreBlockRequest -> ()) -> NFData ConsensusIgnoreBlockRequest forall a. (a -> ()) -> NFData a rnf :: ConsensusIgnoreBlockRequest -> () $crnf :: ConsensusIgnoreBlockRequest -> () -Hs.NFData) - -instance HsProtobuf.Named ConsensusIgnoreBlockRequest where - nameOf :: Proxy# ConsensusIgnoreBlockRequest -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ConsensusIgnoreBlockRequest where + nameOf :: Proxy# ConsensusIgnoreBlockRequest -> string +nameOf Proxy# ConsensusIgnoreBlockRequest +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ConsensusIgnoreBlockRequest") - -instance HsProtobuf.HasDefault ConsensusIgnoreBlockRequest - -instance HsProtobuf.Message ConsensusIgnoreBlockRequest where - encodeMessage :: FieldNumber -> ConsensusIgnoreBlockRequest -> MessageBuilder -encodeMessage _ - ConsensusIgnoreBlockRequest{consensusIgnoreBlockRequestBlockId :: ConsensusIgnoreBlockRequest -> ByteString +Hs.fromString String +"ConsensusIgnoreBlockRequest") + +instance HsProtobuf.HasDefault ConsensusIgnoreBlockRequest + +instance HsProtobuf.Message ConsensusIgnoreBlockRequest where + encodeMessage :: FieldNumber -> ConsensusIgnoreBlockRequest -> MessageBuilder +encodeMessage FieldNumber +_ + ConsensusIgnoreBlockRequest{consensusIgnoreBlockRequestBlockId :: ConsensusIgnoreBlockRequest -> ByteString consensusIgnoreBlockRequestBlockId = - ByteString -consensusIgnoreBlockRequestBlockId} - = ([MessageBuilder] -> MessageBuilder + ByteString +consensusIgnoreBlockRequestBlockId} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> ByteString -> MessageBuilder +Hs.mconcat + [(FieldNumber -> ByteString -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - ByteString -consensusIgnoreBlockRequestBlockId)]) - decodeMessage :: FieldNumber -> Parser RawMessage ConsensusIgnoreBlockRequest -decodeMessage _ - = ((ByteString -> ConsensusIgnoreBlockRequest) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + ByteString +consensusIgnoreBlockRequestBlockId)]) + decodeMessage :: FieldNumber -> Parser RawMessage ConsensusIgnoreBlockRequest +decodeMessage FieldNumber +_ + = ((ByteString -> ConsensusIgnoreBlockRequest) -> Parser RawMessage (ByteString -> ConsensusIgnoreBlockRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString -> ConsensusIgnoreBlockRequest +Hs.pure ByteString -> ConsensusIgnoreBlockRequest ConsensusIgnoreBlockRequest) Parser RawMessage (ByteString -> ConsensusIgnoreBlockRequest) -> Parser RawMessage ByteString -> Parser RawMessage ConsensusIgnoreBlockRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField ByteString +<*> + (Parser RawField ByteString -> FieldNumber -> Parser RawMessage ByteString forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField ByteString +HsProtobuf.at Parser RawField ByteString forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - dotProto :: Proxy# ConsensusIgnoreBlockRequest -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + dotProto :: Proxy# ConsensusIgnoreBlockRequest -> [DotProtoField] +dotProto Proxy# ConsensusIgnoreBlockRequest +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.Bytes) - (String -> DotProtoIdentifier -HsProtobuf.Single "block_id") - [] - "")] - -instance HsJSONPB.ToJSONPB ConsensusIgnoreBlockRequest where - toJSONPB :: ConsensusIgnoreBlockRequest -> Options -> Value -toJSONPB (ConsensusIgnoreBlockRequest f1 :: ByteString -f1) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["block_id" Text -> ByteString -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.Bytes) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"block_id") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ConsensusIgnoreBlockRequest where + toJSONPB :: ConsensusIgnoreBlockRequest -> Options -> Value +toJSONPB (ConsensusIgnoreBlockRequest ByteString +f1) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"block_id" Text -> ByteString -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f1]) - toEncodingPB :: ConsensusIgnoreBlockRequest -> Options -> Encoding -toEncodingPB (ConsensusIgnoreBlockRequest f1 :: ByteString -f1) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["block_id" Text -> ByteString -> Options -> Series +.= ByteString +f1]) + toEncodingPB :: ConsensusIgnoreBlockRequest -> Options -> Encoding +toEncodingPB (ConsensusIgnoreBlockRequest ByteString +f1) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"block_id" Text -> ByteString -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f1]) - -instance HsJSONPB.FromJSONPB ConsensusIgnoreBlockRequest where - parseJSONPB :: Value -> Parser ConsensusIgnoreBlockRequest -parseJSONPB - = (String +.= ByteString +f1]) + +instance HsJSONPB.FromJSONPB ConsensusIgnoreBlockRequest where + parseJSONPB :: Value -> Parser ConsensusIgnoreBlockRequest +parseJSONPB + = (String -> (Object -> Parser ConsensusIgnoreBlockRequest) -> Value -> Parser ConsensusIgnoreBlockRequest forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ConsensusIgnoreBlockRequest" - (\ obj :: Object -obj -> - ((ByteString -> ConsensusIgnoreBlockRequest) +HsJSONPB.withObject String +"ConsensusIgnoreBlockRequest" + (\ Object +obj -> + ((ByteString -> ConsensusIgnoreBlockRequest) -> Parser (ByteString -> ConsensusIgnoreBlockRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString -> ConsensusIgnoreBlockRequest +Hs.pure ByteString -> ConsensusIgnoreBlockRequest ConsensusIgnoreBlockRequest) Parser (ByteString -> ConsensusIgnoreBlockRequest) -> Parser ByteString -> Parser ConsensusIgnoreBlockRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser ByteString +<*> Object +obj Object -> Text -> Parser ByteString forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "block_id")) - -instance HsJSONPB.ToJSON ConsensusIgnoreBlockRequest where - toJSON :: ConsensusIgnoreBlockRequest -> Value -toJSON = ConsensusIgnoreBlockRequest -> Value +.: Text +"block_id")) + +instance HsJSONPB.ToJSON ConsensusIgnoreBlockRequest where + toJSON :: ConsensusIgnoreBlockRequest -> Value +toJSON = ConsensusIgnoreBlockRequest -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ConsensusIgnoreBlockRequest -> Encoding -toEncoding = ConsensusIgnoreBlockRequest -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ConsensusIgnoreBlockRequest -> Encoding +toEncoding = ConsensusIgnoreBlockRequest -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ConsensusIgnoreBlockRequest where - parseJSON :: Value -> Parser ConsensusIgnoreBlockRequest -parseJSON = Value -> Parser ConsensusIgnoreBlockRequest +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ConsensusIgnoreBlockRequest where + parseJSON :: Value -> Parser ConsensusIgnoreBlockRequest +parseJSON = Value -> Parser ConsensusIgnoreBlockRequest forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ConsensusIgnoreBlockRequest where - declareNamedSchema :: Proxy ConsensusIgnoreBlockRequest +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ConsensusIgnoreBlockRequest where + declareNamedSchema :: Proxy ConsensusIgnoreBlockRequest -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_block_id :: Proxy (OverrideToSchema ByteString) +declareNamedSchema Proxy ConsensusIgnoreBlockRequest +_ + = do let declare_block_id :: Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_block_id = Proxy (OverrideToSchema ByteString) +declare_block_id = Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -consensusIgnoreBlockRequestBlockId <- Proxy (OverrideToSchema ByteString) +HsJSONPB.declareSchemaRef + Referenced Schema +consensusIgnoreBlockRequestBlockId <- Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_block_id Proxy (OverrideToSchema ByteString) +declare_block_id Proxy (OverrideToSchema ByteString) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ConsensusIgnoreBlockRequest +Proxy.Proxy + let Proxy ConsensusIgnoreBlockRequest _ = (ByteString -> ConsensusIgnoreBlockRequest) -> Proxy (ByteString -> ConsensusIgnoreBlockRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString -> ConsensusIgnoreBlockRequest +Hs.pure ByteString -> ConsensusIgnoreBlockRequest ConsensusIgnoreBlockRequest Proxy (ByteString -> ConsensusIgnoreBlockRequest) -> Proxy ByteString -> Proxy ConsensusIgnoreBlockRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema ByteString) +<*> + (Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy ByteString forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) +HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_block_id - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_block_id + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ConsensusIgnoreBlockRequest", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ConsensusIgnoreBlockRequest", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("block_id", - Referenced Schema -consensusIgnoreBlockRequestBlockId)]}}) - -newtype ConsensusIgnoreBlockResponse = ConsensusIgnoreBlockResponse{ConsensusIgnoreBlockResponse +HsJSONPB.insOrdFromList + [(Text +"block_id", + Referenced Schema +consensusIgnoreBlockRequestBlockId)]}}) + +newtype ConsensusIgnoreBlockResponse = ConsensusIgnoreBlockResponse{ConsensusIgnoreBlockResponse -> Enumerated ConsensusIgnoreBlockResponse_Status consensusIgnoreBlockResponseStatus - :: - HsProtobuf.Enumerated - Data.Sawtooth.Consensus.ConsensusIgnoreBlockResponse_Status} - deriving (Int -> ConsensusIgnoreBlockResponse -> ShowS + :: + HsProtobuf.Enumerated + Data.Sawtooth.Consensus.ConsensusIgnoreBlockResponse_Status} + deriving (Int -> ConsensusIgnoreBlockResponse -> ShowS [ConsensusIgnoreBlockResponse] -> ShowS ConsensusIgnoreBlockResponse -> String (Int -> ConsensusIgnoreBlockResponse -> ShowS) @@ -16186,7 +17245,7 @@ show :: ConsensusIgnoreBlockResponse -> String $cshow :: ConsensusIgnoreBlockResponse -> String showsPrec :: Int -> ConsensusIgnoreBlockResponse -> ShowS $cshowsPrec :: Int -> ConsensusIgnoreBlockResponse -> ShowS -Hs.Show, ConsensusIgnoreBlockResponse +Hs.Show, ConsensusIgnoreBlockResponse -> ConsensusIgnoreBlockResponse -> Bool (ConsensusIgnoreBlockResponse -> ConsensusIgnoreBlockResponse -> Bool) @@ -16202,10 +17261,10 @@ $c/= :: ConsensusIgnoreBlockResponse -> ConsensusIgnoreBlockResponse -> Bool $c== :: ConsensusIgnoreBlockResponse -> ConsensusIgnoreBlockResponse -> Bool -Hs.Eq, Eq ConsensusIgnoreBlockResponse -Eq ConsensusIgnoreBlockResponse => -(ConsensusIgnoreBlockResponse - -> ConsensusIgnoreBlockResponse -> Ordering) +Hs.Eq, Eq ConsensusIgnoreBlockResponse +Eq ConsensusIgnoreBlockResponse +-> (ConsensusIgnoreBlockResponse + -> ConsensusIgnoreBlockResponse -> Ordering) -> (ConsensusIgnoreBlockResponse -> ConsensusIgnoreBlockResponse -> Bool) -> (ConsensusIgnoreBlockResponse @@ -16226,8 +17285,8 @@ ConsensusIgnoreBlockResponse ConsensusIgnoreBlockResponse -> ConsensusIgnoreBlockResponse -> ConsensusIgnoreBlockResponse forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -16264,7 +17323,7 @@ compare :: ConsensusIgnoreBlockResponse $ccompare :: ConsensusIgnoreBlockResponse -> ConsensusIgnoreBlockResponse -> Ordering $cp1Ord :: Eq ConsensusIgnoreBlockResponse -Hs.Ord, (forall x. +Hs.Ord, (forall x. ConsensusIgnoreBlockResponse -> Rep ConsensusIgnoreBlockResponse x) -> (forall x. Rep ConsensusIgnoreBlockResponse x -> ConsensusIgnoreBlockResponse) @@ -16279,50 +17338,55 @@ $cto :: forall x. Rep ConsensusIgnoreBlockResponse x -> ConsensusIgnoreBlockResponse $cfrom :: forall x. ConsensusIgnoreBlockResponse -> Rep ConsensusIgnoreBlockResponse x -Hs.Generic, ConsensusIgnoreBlockResponse -> () +Hs.Generic, ConsensusIgnoreBlockResponse -> () (ConsensusIgnoreBlockResponse -> ()) -> NFData ConsensusIgnoreBlockResponse forall a. (a -> ()) -> NFData a rnf :: ConsensusIgnoreBlockResponse -> () $crnf :: ConsensusIgnoreBlockResponse -> () -Hs.NFData) - -instance HsProtobuf.Named ConsensusIgnoreBlockResponse where - nameOf :: Proxy# ConsensusIgnoreBlockResponse -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ConsensusIgnoreBlockResponse where + nameOf :: Proxy# ConsensusIgnoreBlockResponse -> string +nameOf Proxy# ConsensusIgnoreBlockResponse +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ConsensusIgnoreBlockResponse") - -instance HsProtobuf.HasDefault ConsensusIgnoreBlockResponse - -instance HsProtobuf.Message ConsensusIgnoreBlockResponse where - encodeMessage :: FieldNumber -> ConsensusIgnoreBlockResponse -> MessageBuilder -encodeMessage _ - ConsensusIgnoreBlockResponse{consensusIgnoreBlockResponseStatus :: ConsensusIgnoreBlockResponse +Hs.fromString String +"ConsensusIgnoreBlockResponse") + +instance HsProtobuf.HasDefault ConsensusIgnoreBlockResponse + +instance HsProtobuf.Message ConsensusIgnoreBlockResponse where + encodeMessage :: FieldNumber -> ConsensusIgnoreBlockResponse -> MessageBuilder +encodeMessage FieldNumber +_ + ConsensusIgnoreBlockResponse{consensusIgnoreBlockResponseStatus :: ConsensusIgnoreBlockResponse -> Enumerated ConsensusIgnoreBlockResponse_Status consensusIgnoreBlockResponseStatus = - Enumerated ConsensusIgnoreBlockResponse_Status -consensusIgnoreBlockResponseStatus} - = ([MessageBuilder] -> MessageBuilder + Enumerated ConsensusIgnoreBlockResponse_Status +consensusIgnoreBlockResponseStatus} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber +Hs.mconcat + [(FieldNumber -> Enumerated ConsensusIgnoreBlockResponse_Status -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Enumerated ConsensusIgnoreBlockResponse_Status -consensusIgnoreBlockResponseStatus)]) - decodeMessage :: FieldNumber -> Parser RawMessage ConsensusIgnoreBlockResponse -decodeMessage _ - = ((Enumerated ConsensusIgnoreBlockResponse_Status +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Enumerated ConsensusIgnoreBlockResponse_Status +consensusIgnoreBlockResponseStatus)]) + decodeMessage :: FieldNumber -> Parser RawMessage ConsensusIgnoreBlockResponse +decodeMessage FieldNumber +_ + = ((Enumerated ConsensusIgnoreBlockResponse_Status -> ConsensusIgnoreBlockResponse) -> Parser RawMessage (Enumerated ConsensusIgnoreBlockResponse_Status -> ConsensusIgnoreBlockResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ConsensusIgnoreBlockResponse_Status +Hs.pure Enumerated ConsensusIgnoreBlockResponse_Status -> ConsensusIgnoreBlockResponse ConsensusIgnoreBlockResponse) Parser RawMessage @@ -16332,82 +17396,91 @@ forall (f :: * -> *) a. Applicative f => a -> f a RawMessage (Enumerated ConsensusIgnoreBlockResponse_Status) -> Parser RawMessage ConsensusIgnoreBlockResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField (Enumerated ConsensusIgnoreBlockResponse_Status) +<*> + (Parser RawField (Enumerated ConsensusIgnoreBlockResponse_Status) -> FieldNumber -> Parser RawMessage (Enumerated ConsensusIgnoreBlockResponse_Status) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (Enumerated ConsensusIgnoreBlockResponse_Status) +HsProtobuf.at Parser RawField (Enumerated ConsensusIgnoreBlockResponse_Status) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - dotProto :: Proxy# ConsensusIgnoreBlockResponse -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + dotProto :: Proxy# ConsensusIgnoreBlockResponse -> [DotProtoField] +dotProto Proxy# ConsensusIgnoreBlockResponse +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "Status"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "status") - [] - "")] - -instance HsJSONPB.ToJSONPB ConsensusIgnoreBlockResponse where - toJSONPB :: ConsensusIgnoreBlockResponse -> Options -> Value -toJSONPB (ConsensusIgnoreBlockResponse f1 :: Enumerated ConsensusIgnoreBlockResponse_Status -f1) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["status" Text +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"Status"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"status") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ConsensusIgnoreBlockResponse where + toJSONPB :: ConsensusIgnoreBlockResponse -> Options -> Value +toJSONPB (ConsensusIgnoreBlockResponse Enumerated ConsensusIgnoreBlockResponse_Status +f1) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"status" Text -> Enumerated ConsensusIgnoreBlockResponse_Status -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated ConsensusIgnoreBlockResponse_Status -f1]) - toEncodingPB :: ConsensusIgnoreBlockResponse -> Options -> Encoding -toEncodingPB (ConsensusIgnoreBlockResponse f1 :: Enumerated ConsensusIgnoreBlockResponse_Status -f1) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["status" Text +.= Enumerated ConsensusIgnoreBlockResponse_Status +f1]) + toEncodingPB :: ConsensusIgnoreBlockResponse -> Options -> Encoding +toEncodingPB (ConsensusIgnoreBlockResponse Enumerated ConsensusIgnoreBlockResponse_Status +f1) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"status" Text -> Enumerated ConsensusIgnoreBlockResponse_Status -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated ConsensusIgnoreBlockResponse_Status -f1]) - -instance HsJSONPB.FromJSONPB ConsensusIgnoreBlockResponse where - parseJSONPB :: Value -> Parser ConsensusIgnoreBlockResponse -parseJSONPB - = (String +.= Enumerated ConsensusIgnoreBlockResponse_Status +f1]) + +instance HsJSONPB.FromJSONPB ConsensusIgnoreBlockResponse where + parseJSONPB :: Value -> Parser ConsensusIgnoreBlockResponse +parseJSONPB + = (String -> (Object -> Parser ConsensusIgnoreBlockResponse) -> Value -> Parser ConsensusIgnoreBlockResponse forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ConsensusIgnoreBlockResponse" - (\ obj :: Object -obj -> - ((Enumerated ConsensusIgnoreBlockResponse_Status +HsJSONPB.withObject String +"ConsensusIgnoreBlockResponse" + (\ Object +obj -> + ((Enumerated ConsensusIgnoreBlockResponse_Status -> ConsensusIgnoreBlockResponse) -> Parser (Enumerated ConsensusIgnoreBlockResponse_Status -> ConsensusIgnoreBlockResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ConsensusIgnoreBlockResponse_Status +Hs.pure Enumerated ConsensusIgnoreBlockResponse_Status -> ConsensusIgnoreBlockResponse ConsensusIgnoreBlockResponse) Parser (Enumerated ConsensusIgnoreBlockResponse_Status @@ -16415,60 +17488,62 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Parser (Enumerated ConsensusIgnoreBlockResponse_Status) -> Parser ConsensusIgnoreBlockResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object +<*> Object +obj Object -> Text -> Parser (Enumerated ConsensusIgnoreBlockResponse_Status) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "status")) - -instance HsJSONPB.ToJSON ConsensusIgnoreBlockResponse where - toJSON :: ConsensusIgnoreBlockResponse -> Value -toJSON = ConsensusIgnoreBlockResponse -> Value +.: Text +"status")) + +instance HsJSONPB.ToJSON ConsensusIgnoreBlockResponse where + toJSON :: ConsensusIgnoreBlockResponse -> Value +toJSON = ConsensusIgnoreBlockResponse -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ConsensusIgnoreBlockResponse -> Encoding -toEncoding = ConsensusIgnoreBlockResponse -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ConsensusIgnoreBlockResponse -> Encoding +toEncoding = ConsensusIgnoreBlockResponse -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ConsensusIgnoreBlockResponse where - parseJSON :: Value -> Parser ConsensusIgnoreBlockResponse -parseJSON = Value -> Parser ConsensusIgnoreBlockResponse +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ConsensusIgnoreBlockResponse where + parseJSON :: Value -> Parser ConsensusIgnoreBlockResponse +parseJSON = Value -> Parser ConsensusIgnoreBlockResponse forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ConsensusIgnoreBlockResponse where - declareNamedSchema :: Proxy ConsensusIgnoreBlockResponse +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ConsensusIgnoreBlockResponse where + declareNamedSchema :: Proxy ConsensusIgnoreBlockResponse -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_status :: Proxy +declareNamedSchema Proxy ConsensusIgnoreBlockResponse +_ + = do let declare_status :: Proxy (OverrideToSchema (Enumerated ConsensusIgnoreBlockResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status = Proxy +declare_status = Proxy (OverrideToSchema (Enumerated ConsensusIgnoreBlockResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -consensusIgnoreBlockResponseStatus <- Proxy +HsJSONPB.declareSchemaRef + Referenced Schema +consensusIgnoreBlockResponseStatus <- Proxy (OverrideToSchema (Enumerated ConsensusIgnoreBlockResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status Proxy +declare_status Proxy (OverrideToSchema (Enumerated ConsensusIgnoreBlockResponse_Status)) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ConsensusIgnoreBlockResponse +Proxy.Proxy + let Proxy ConsensusIgnoreBlockResponse _ = (Enumerated ConsensusIgnoreBlockResponse_Status -> ConsensusIgnoreBlockResponse) -> Proxy (Enumerated ConsensusIgnoreBlockResponse_Status -> ConsensusIgnoreBlockResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ConsensusIgnoreBlockResponse_Status +Hs.pure Enumerated ConsensusIgnoreBlockResponse_Status -> ConsensusIgnoreBlockResponse ConsensusIgnoreBlockResponse Proxy (Enumerated ConsensusIgnoreBlockResponse_Status @@ -16476,58 +17551,60 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Proxy (Enumerated ConsensusIgnoreBlockResponse_Status) -> Proxy ConsensusIgnoreBlockResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy +<*> + (Proxy (OverrideToSchema (Enumerated ConsensusIgnoreBlockResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Enumerated ConsensusIgnoreBlockResponse_Status) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy +HsJSONPB.asProxy Proxy (OverrideToSchema (Enumerated ConsensusIgnoreBlockResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_status + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ConsensusIgnoreBlockResponse", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ConsensusIgnoreBlockResponse", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("status", - Referenced Schema -consensusIgnoreBlockResponseStatus)]}}) - -data ConsensusIgnoreBlockResponse_Status = ConsensusIgnoreBlockResponse_StatusSTATUS_UNSET - | ConsensusIgnoreBlockResponse_StatusOK - | ConsensusIgnoreBlockResponse_StatusBAD_REQUEST - | ConsensusIgnoreBlockResponse_StatusSERVICE_ERROR - | ConsensusIgnoreBlockResponse_StatusNOT_READY - | ConsensusIgnoreBlockResponse_StatusUNKNOWN_BLOCK - | ConsensusIgnoreBlockResponse_StatusNOT_ACTIVE_ENGINE - deriving (Int -> ConsensusIgnoreBlockResponse_Status -> ShowS +HsJSONPB.insOrdFromList + [(Text +"status", + Referenced Schema +consensusIgnoreBlockResponseStatus)]}}) + +data ConsensusIgnoreBlockResponse_Status = ConsensusIgnoreBlockResponse_StatusSTATUS_UNSET + | ConsensusIgnoreBlockResponse_StatusOK + | ConsensusIgnoreBlockResponse_StatusBAD_REQUEST + | ConsensusIgnoreBlockResponse_StatusSERVICE_ERROR + | ConsensusIgnoreBlockResponse_StatusNOT_READY + | ConsensusIgnoreBlockResponse_StatusUNKNOWN_BLOCK + | ConsensusIgnoreBlockResponse_StatusNOT_ACTIVE_ENGINE + deriving (Int -> ConsensusIgnoreBlockResponse_Status -> ShowS [ConsensusIgnoreBlockResponse_Status] -> ShowS ConsensusIgnoreBlockResponse_Status -> String (Int -> ConsensusIgnoreBlockResponse_Status -> ShowS) @@ -16542,7 +17619,7 @@ show :: ConsensusIgnoreBlockResponse_Status -> String $cshow :: ConsensusIgnoreBlockResponse_Status -> String showsPrec :: Int -> ConsensusIgnoreBlockResponse_Status -> ShowS $cshowsPrec :: Int -> ConsensusIgnoreBlockResponse_Status -> ShowS -Hs.Show, ConsensusIgnoreBlockResponse_Status +Hs.Show, ConsensusIgnoreBlockResponse_Status -> ConsensusIgnoreBlockResponse_Status -> Bool (ConsensusIgnoreBlockResponse_Status -> ConsensusIgnoreBlockResponse_Status -> Bool) @@ -16558,7 +17635,7 @@ $c/= :: ConsensusIgnoreBlockResponse_Status -> ConsensusIgnoreBlockResponse_Status -> Bool $c== :: ConsensusIgnoreBlockResponse_Status -> ConsensusIgnoreBlockResponse_Status -> Bool -Hs.Eq, (forall x. +Hs.Eq, (forall x. ConsensusIgnoreBlockResponse_Status -> Rep ConsensusIgnoreBlockResponse_Status x) -> (forall x. @@ -16579,203 +17656,230 @@ Rep ConsensusIgnoreBlockResponse_Status x $cfrom :: forall x. ConsensusIgnoreBlockResponse_Status -> Rep ConsensusIgnoreBlockResponse_Status x -Hs.Generic, ConsensusIgnoreBlockResponse_Status -> () +Hs.Generic, ConsensusIgnoreBlockResponse_Status -> () (ConsensusIgnoreBlockResponse_Status -> ()) -> NFData ConsensusIgnoreBlockResponse_Status forall a. (a -> ()) -> NFData a rnf :: ConsensusIgnoreBlockResponse_Status -> () $crnf :: ConsensusIgnoreBlockResponse_Status -> () -Hs.NFData) - -instance HsProtobuf.Named ConsensusIgnoreBlockResponse_Status where - nameOf :: Proxy# ConsensusIgnoreBlockResponse_Status -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ConsensusIgnoreBlockResponse_Status where + nameOf :: Proxy# ConsensusIgnoreBlockResponse_Status -> string +nameOf Proxy# ConsensusIgnoreBlockResponse_Status +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ConsensusIgnoreBlockResponse_Status") - -instance HsProtobuf.HasDefault ConsensusIgnoreBlockResponse_Status - -instance Hs.Bounded ConsensusIgnoreBlockResponse_Status where - minBound :: ConsensusIgnoreBlockResponse_Status -minBound = ConsensusIgnoreBlockResponse_Status +Hs.fromString String +"ConsensusIgnoreBlockResponse_Status") + +instance HsProtobuf.HasDefault ConsensusIgnoreBlockResponse_Status + +instance Hs.Bounded ConsensusIgnoreBlockResponse_Status where + minBound :: ConsensusIgnoreBlockResponse_Status +minBound = ConsensusIgnoreBlockResponse_Status ConsensusIgnoreBlockResponse_StatusSTATUS_UNSET - maxBound :: ConsensusIgnoreBlockResponse_Status -maxBound = ConsensusIgnoreBlockResponse_Status + maxBound :: ConsensusIgnoreBlockResponse_Status +maxBound = ConsensusIgnoreBlockResponse_Status ConsensusIgnoreBlockResponse_StatusNOT_ACTIVE_ENGINE - -instance Hs.Ord ConsensusIgnoreBlockResponse_Status where - compare :: ConsensusIgnoreBlockResponse_Status + +instance Hs.Ord ConsensusIgnoreBlockResponse_Status where + compare :: ConsensusIgnoreBlockResponse_Status -> ConsensusIgnoreBlockResponse_Status -> Ordering -compare x :: ConsensusIgnoreBlockResponse_Status -x y :: ConsensusIgnoreBlockResponse_Status -y - = Int32 -> Int32 -> Ordering +compare ConsensusIgnoreBlockResponse_Status +x ConsensusIgnoreBlockResponse_Status +y + = Int32 -> Int32 -> Ordering forall a. Ord a => a -> a -> Ordering -Hs.compare (ConsensusIgnoreBlockResponse_Status -> Int32 +Hs.compare (ConsensusIgnoreBlockResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum ConsensusIgnoreBlockResponse_Status -x) - (ConsensusIgnoreBlockResponse_Status -> Int32 +HsProtobuf.fromProtoEnum ConsensusIgnoreBlockResponse_Status +x) + (ConsensusIgnoreBlockResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum ConsensusIgnoreBlockResponse_Status -y) - -instance HsProtobuf.ProtoEnum ConsensusIgnoreBlockResponse_Status - where - toProtoEnumMay :: Int32 -> Maybe ConsensusIgnoreBlockResponse_Status -toProtoEnumMay 0 - = ConsensusIgnoreBlockResponse_Status +HsProtobuf.fromProtoEnum ConsensusIgnoreBlockResponse_Status +y) + +instance HsProtobuf.ProtoEnum ConsensusIgnoreBlockResponse_Status + where + toProtoEnumMay :: Int32 -> Maybe ConsensusIgnoreBlockResponse_Status +toProtoEnumMay Int32 +0 + = ConsensusIgnoreBlockResponse_Status -> Maybe ConsensusIgnoreBlockResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusIgnoreBlockResponse_Status +Hs.Just ConsensusIgnoreBlockResponse_Status ConsensusIgnoreBlockResponse_StatusSTATUS_UNSET - toProtoEnumMay 1 = ConsensusIgnoreBlockResponse_Status + toProtoEnumMay Int32 +1 = ConsensusIgnoreBlockResponse_Status -> Maybe ConsensusIgnoreBlockResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusIgnoreBlockResponse_Status +Hs.Just ConsensusIgnoreBlockResponse_Status ConsensusIgnoreBlockResponse_StatusOK - toProtoEnumMay 2 - = ConsensusIgnoreBlockResponse_Status + toProtoEnumMay Int32 +2 + = ConsensusIgnoreBlockResponse_Status -> Maybe ConsensusIgnoreBlockResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusIgnoreBlockResponse_Status +Hs.Just ConsensusIgnoreBlockResponse_Status ConsensusIgnoreBlockResponse_StatusBAD_REQUEST - toProtoEnumMay 3 - = ConsensusIgnoreBlockResponse_Status + toProtoEnumMay Int32 +3 + = ConsensusIgnoreBlockResponse_Status -> Maybe ConsensusIgnoreBlockResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusIgnoreBlockResponse_Status +Hs.Just ConsensusIgnoreBlockResponse_Status ConsensusIgnoreBlockResponse_StatusSERVICE_ERROR - toProtoEnumMay 4 - = ConsensusIgnoreBlockResponse_Status + toProtoEnumMay Int32 +4 + = ConsensusIgnoreBlockResponse_Status -> Maybe ConsensusIgnoreBlockResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusIgnoreBlockResponse_Status +Hs.Just ConsensusIgnoreBlockResponse_Status ConsensusIgnoreBlockResponse_StatusNOT_READY - toProtoEnumMay 5 - = ConsensusIgnoreBlockResponse_Status + toProtoEnumMay Int32 +5 + = ConsensusIgnoreBlockResponse_Status -> Maybe ConsensusIgnoreBlockResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusIgnoreBlockResponse_Status +Hs.Just ConsensusIgnoreBlockResponse_Status ConsensusIgnoreBlockResponse_StatusUNKNOWN_BLOCK - toProtoEnumMay 6 - = ConsensusIgnoreBlockResponse_Status + toProtoEnumMay Int32 +6 + = ConsensusIgnoreBlockResponse_Status -> Maybe ConsensusIgnoreBlockResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusIgnoreBlockResponse_Status +Hs.Just ConsensusIgnoreBlockResponse_Status ConsensusIgnoreBlockResponse_StatusNOT_ACTIVE_ENGINE - toProtoEnumMay _ = Maybe ConsensusIgnoreBlockResponse_Status + toProtoEnumMay Int32 +_ = Maybe ConsensusIgnoreBlockResponse_Status forall a. Maybe a -Hs.Nothing - fromProtoEnum :: ConsensusIgnoreBlockResponse_Status -> Int32 -fromProtoEnum (ConsensusIgnoreBlockResponse_Status -ConsensusIgnoreBlockResponse_StatusSTATUS_UNSET) = 0 - fromProtoEnum (ConsensusIgnoreBlockResponse_Status -ConsensusIgnoreBlockResponse_StatusOK) = 1 - fromProtoEnum (ConsensusIgnoreBlockResponse_Status -ConsensusIgnoreBlockResponse_StatusBAD_REQUEST) = 2 - fromProtoEnum (ConsensusIgnoreBlockResponse_Status +Hs.Nothing + fromProtoEnum :: ConsensusIgnoreBlockResponse_Status -> Int32 +fromProtoEnum (ConsensusIgnoreBlockResponse_Status +ConsensusIgnoreBlockResponse_StatusSTATUS_UNSET) = Int32 +0 + fromProtoEnum (ConsensusIgnoreBlockResponse_Status +ConsensusIgnoreBlockResponse_StatusOK) = Int32 +1 + fromProtoEnum (ConsensusIgnoreBlockResponse_Status +ConsensusIgnoreBlockResponse_StatusBAD_REQUEST) = Int32 +2 + fromProtoEnum (ConsensusIgnoreBlockResponse_Status ConsensusIgnoreBlockResponse_StatusSERVICE_ERROR) - = 3 - fromProtoEnum (ConsensusIgnoreBlockResponse_Status -ConsensusIgnoreBlockResponse_StatusNOT_READY) = 4 - fromProtoEnum (ConsensusIgnoreBlockResponse_Status + = Int32 +3 + fromProtoEnum (ConsensusIgnoreBlockResponse_Status +ConsensusIgnoreBlockResponse_StatusNOT_READY) = Int32 +4 + fromProtoEnum (ConsensusIgnoreBlockResponse_Status ConsensusIgnoreBlockResponse_StatusUNKNOWN_BLOCK) - = 5 - fromProtoEnum - (ConsensusIgnoreBlockResponse_Status -ConsensusIgnoreBlockResponse_StatusNOT_ACTIVE_ENGINE) = 6 - -instance HsJSONPB.ToJSONPB ConsensusIgnoreBlockResponse_Status - where - toJSONPB :: ConsensusIgnoreBlockResponse_Status -> Options -> Value -toJSONPB x :: ConsensusIgnoreBlockResponse_Status -x _ = ConsensusIgnoreBlockResponse_Status -> Value + = Int32 +5 + fromProtoEnum + (ConsensusIgnoreBlockResponse_Status +ConsensusIgnoreBlockResponse_StatusNOT_ACTIVE_ENGINE) = Int32 +6 + +instance HsJSONPB.ToJSONPB ConsensusIgnoreBlockResponse_Status + where + toJSONPB :: ConsensusIgnoreBlockResponse_Status -> Options -> Value +toJSONPB ConsensusIgnoreBlockResponse_Status +x Options +_ = ConsensusIgnoreBlockResponse_Status -> Value forall a. (Named a, Show a) => a -> Value -HsJSONPB.enumFieldString ConsensusIgnoreBlockResponse_Status -x - toEncodingPB :: ConsensusIgnoreBlockResponse_Status -> Options -> Encoding -toEncodingPB x :: ConsensusIgnoreBlockResponse_Status -x _ = ConsensusIgnoreBlockResponse_Status -> Encoding +HsJSONPB.enumFieldString ConsensusIgnoreBlockResponse_Status +x + toEncodingPB :: ConsensusIgnoreBlockResponse_Status -> Options -> Encoding +toEncodingPB ConsensusIgnoreBlockResponse_Status +x Options +_ = ConsensusIgnoreBlockResponse_Status -> Encoding forall a. (Named a, Show a) => a -> Encoding -HsJSONPB.enumFieldEncoding ConsensusIgnoreBlockResponse_Status -x - -instance HsJSONPB.FromJSONPB ConsensusIgnoreBlockResponse_Status - where - parseJSONPB :: Value -> Parser ConsensusIgnoreBlockResponse_Status -parseJSONPB (HsJSONPB.String "STATUS_UNSET") - = ConsensusIgnoreBlockResponse_Status +HsJSONPB.enumFieldEncoding ConsensusIgnoreBlockResponse_Status +x + +instance HsJSONPB.FromJSONPB ConsensusIgnoreBlockResponse_Status + where + parseJSONPB :: Value -> Parser ConsensusIgnoreBlockResponse_Status +parseJSONPB (HsJSONPB.String Text +"STATUS_UNSET") + = ConsensusIgnoreBlockResponse_Status -> Parser ConsensusIgnoreBlockResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusIgnoreBlockResponse_Status +Hs.pure ConsensusIgnoreBlockResponse_Status ConsensusIgnoreBlockResponse_StatusSTATUS_UNSET - parseJSONPB (HsJSONPB.String "OK") - = ConsensusIgnoreBlockResponse_Status + parseJSONPB (HsJSONPB.String Text +"OK") + = ConsensusIgnoreBlockResponse_Status -> Parser ConsensusIgnoreBlockResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusIgnoreBlockResponse_Status +Hs.pure ConsensusIgnoreBlockResponse_Status ConsensusIgnoreBlockResponse_StatusOK - parseJSONPB (HsJSONPB.String "BAD_REQUEST") - = ConsensusIgnoreBlockResponse_Status + parseJSONPB (HsJSONPB.String Text +"BAD_REQUEST") + = ConsensusIgnoreBlockResponse_Status -> Parser ConsensusIgnoreBlockResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusIgnoreBlockResponse_Status +Hs.pure ConsensusIgnoreBlockResponse_Status ConsensusIgnoreBlockResponse_StatusBAD_REQUEST - parseJSONPB (HsJSONPB.String "SERVICE_ERROR") - = ConsensusIgnoreBlockResponse_Status + parseJSONPB (HsJSONPB.String Text +"SERVICE_ERROR") + = ConsensusIgnoreBlockResponse_Status -> Parser ConsensusIgnoreBlockResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusIgnoreBlockResponse_Status +Hs.pure ConsensusIgnoreBlockResponse_Status ConsensusIgnoreBlockResponse_StatusSERVICE_ERROR - parseJSONPB (HsJSONPB.String "NOT_READY") - = ConsensusIgnoreBlockResponse_Status + parseJSONPB (HsJSONPB.String Text +"NOT_READY") + = ConsensusIgnoreBlockResponse_Status -> Parser ConsensusIgnoreBlockResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusIgnoreBlockResponse_Status +Hs.pure ConsensusIgnoreBlockResponse_Status ConsensusIgnoreBlockResponse_StatusNOT_READY - parseJSONPB (HsJSONPB.String "UNKNOWN_BLOCK") - = ConsensusIgnoreBlockResponse_Status + parseJSONPB (HsJSONPB.String Text +"UNKNOWN_BLOCK") + = ConsensusIgnoreBlockResponse_Status -> Parser ConsensusIgnoreBlockResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusIgnoreBlockResponse_Status +Hs.pure ConsensusIgnoreBlockResponse_Status ConsensusIgnoreBlockResponse_StatusUNKNOWN_BLOCK - parseJSONPB (HsJSONPB.String "NOT_ACTIVE_ENGINE") - = ConsensusIgnoreBlockResponse_Status + parseJSONPB (HsJSONPB.String Text +"NOT_ACTIVE_ENGINE") + = ConsensusIgnoreBlockResponse_Status -> Parser ConsensusIgnoreBlockResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusIgnoreBlockResponse_Status +Hs.pure ConsensusIgnoreBlockResponse_Status ConsensusIgnoreBlockResponse_StatusNOT_ACTIVE_ENGINE - parseJSONPB v :: Value -v - = (String -> Value -> Parser ConsensusIgnoreBlockResponse_Status + parseJSONPB Value +v + = (String -> Value -> Parser ConsensusIgnoreBlockResponse_Status forall a. String -> Value -> Parser a -HsJSONPB.typeMismatch "ConsensusIgnoreBlockResponse_Status" Value -v) - -instance HsJSONPB.ToJSON ConsensusIgnoreBlockResponse_Status where - toJSON :: ConsensusIgnoreBlockResponse_Status -> Value -toJSON = ConsensusIgnoreBlockResponse_Status -> Value +HsJSONPB.typeMismatch String +"ConsensusIgnoreBlockResponse_Status" Value +v) + +instance HsJSONPB.ToJSON ConsensusIgnoreBlockResponse_Status where + toJSON :: ConsensusIgnoreBlockResponse_Status -> Value +toJSON = ConsensusIgnoreBlockResponse_Status -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ConsensusIgnoreBlockResponse_Status -> Encoding -toEncoding = ConsensusIgnoreBlockResponse_Status -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ConsensusIgnoreBlockResponse_Status -> Encoding +toEncoding = ConsensusIgnoreBlockResponse_Status -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ConsensusIgnoreBlockResponse_Status - where - parseJSON :: Value -> Parser ConsensusIgnoreBlockResponse_Status -parseJSON = Value -> Parser ConsensusIgnoreBlockResponse_Status +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ConsensusIgnoreBlockResponse_Status + where + parseJSON :: Value -> Parser ConsensusIgnoreBlockResponse_Status +parseJSON = Value -> Parser ConsensusIgnoreBlockResponse_Status forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsProtobuf.Finite ConsensusIgnoreBlockResponse_Status - -newtype ConsensusFailBlockRequest = ConsensusFailBlockRequest{ConsensusFailBlockRequest -> ByteString +HsJSONPB.parseJSONPB + +instance HsProtobuf.Finite ConsensusIgnoreBlockResponse_Status + +newtype ConsensusFailBlockRequest = ConsensusFailBlockRequest{ConsensusFailBlockRequest -> ByteString consensusFailBlockRequestBlockId - :: Hs.ByteString} - deriving (Int -> ConsensusFailBlockRequest -> ShowS + :: Hs.ByteString} + deriving (Int -> ConsensusFailBlockRequest -> ShowS [ConsensusFailBlockRequest] -> ShowS ConsensusFailBlockRequest -> String (Int -> ConsensusFailBlockRequest -> ShowS) @@ -16790,7 +17894,7 @@ show :: ConsensusFailBlockRequest -> String $cshow :: ConsensusFailBlockRequest -> String showsPrec :: Int -> ConsensusFailBlockRequest -> ShowS $cshowsPrec :: Int -> ConsensusFailBlockRequest -> ShowS -Hs.Show, ConsensusFailBlockRequest -> ConsensusFailBlockRequest -> Bool +Hs.Show, ConsensusFailBlockRequest -> ConsensusFailBlockRequest -> Bool (ConsensusFailBlockRequest -> ConsensusFailBlockRequest -> Bool) -> (ConsensusFailBlockRequest -> ConsensusFailBlockRequest -> Bool) -> Eq ConsensusFailBlockRequest @@ -16799,10 +17903,10 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: ConsensusFailBlockRequest -> ConsensusFailBlockRequest -> Bool == :: ConsensusFailBlockRequest -> ConsensusFailBlockRequest -> Bool $c== :: ConsensusFailBlockRequest -> ConsensusFailBlockRequest -> Bool -Hs.Eq, Eq ConsensusFailBlockRequest -Eq ConsensusFailBlockRequest => -(ConsensusFailBlockRequest - -> ConsensusFailBlockRequest -> Ordering) +Hs.Eq, Eq ConsensusFailBlockRequest +Eq ConsensusFailBlockRequest +-> (ConsensusFailBlockRequest + -> ConsensusFailBlockRequest -> Ordering) -> (ConsensusFailBlockRequest -> ConsensusFailBlockRequest -> Bool) -> (ConsensusFailBlockRequest -> ConsensusFailBlockRequest -> Bool) -> (ConsensusFailBlockRequest -> ConsensusFailBlockRequest -> Bool) @@ -16817,8 +17921,8 @@ ConsensusFailBlockRequest -> ConsensusFailBlockRequest -> Ordering ConsensusFailBlockRequest -> ConsensusFailBlockRequest -> ConsensusFailBlockRequest forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -16845,7 +17949,7 @@ $c< :: ConsensusFailBlockRequest -> ConsensusFailBlockRequest -> Bool compare :: ConsensusFailBlockRequest -> ConsensusFailBlockRequest -> Ordering $ccompare :: ConsensusFailBlockRequest -> ConsensusFailBlockRequest -> Ordering $cp1Ord :: Eq ConsensusFailBlockRequest -Hs.Ord, (forall x. +Hs.Ord, (forall x. ConsensusFailBlockRequest -> Rep ConsensusFailBlockRequest x) -> (forall x. Rep ConsensusFailBlockRequest x -> ConsensusFailBlockRequest) @@ -16860,213 +17964,230 @@ $cto :: forall x. Rep ConsensusFailBlockRequest x -> ConsensusFailBlockRequest $cfrom :: forall x. ConsensusFailBlockRequest -> Rep ConsensusFailBlockRequest x -Hs.Generic, ConsensusFailBlockRequest -> () +Hs.Generic, ConsensusFailBlockRequest -> () (ConsensusFailBlockRequest -> ()) -> NFData ConsensusFailBlockRequest forall a. (a -> ()) -> NFData a rnf :: ConsensusFailBlockRequest -> () $crnf :: ConsensusFailBlockRequest -> () -Hs.NFData) - -instance HsProtobuf.Named ConsensusFailBlockRequest where - nameOf :: Proxy# ConsensusFailBlockRequest -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ConsensusFailBlockRequest where + nameOf :: Proxy# ConsensusFailBlockRequest -> string +nameOf Proxy# ConsensusFailBlockRequest +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ConsensusFailBlockRequest") - -instance HsProtobuf.HasDefault ConsensusFailBlockRequest - -instance HsProtobuf.Message ConsensusFailBlockRequest where - encodeMessage :: FieldNumber -> ConsensusFailBlockRequest -> MessageBuilder -encodeMessage _ - ConsensusFailBlockRequest{consensusFailBlockRequestBlockId :: ConsensusFailBlockRequest -> ByteString +Hs.fromString String +"ConsensusFailBlockRequest") + +instance HsProtobuf.HasDefault ConsensusFailBlockRequest + +instance HsProtobuf.Message ConsensusFailBlockRequest where + encodeMessage :: FieldNumber -> ConsensusFailBlockRequest -> MessageBuilder +encodeMessage FieldNumber +_ + ConsensusFailBlockRequest{consensusFailBlockRequestBlockId :: ConsensusFailBlockRequest -> ByteString consensusFailBlockRequestBlockId = - ByteString -consensusFailBlockRequestBlockId} - = ([MessageBuilder] -> MessageBuilder + ByteString +consensusFailBlockRequestBlockId} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> ByteString -> MessageBuilder +Hs.mconcat + [(FieldNumber -> ByteString -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - ByteString -consensusFailBlockRequestBlockId)]) - decodeMessage :: FieldNumber -> Parser RawMessage ConsensusFailBlockRequest -decodeMessage _ - = ((ByteString -> ConsensusFailBlockRequest) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + ByteString +consensusFailBlockRequestBlockId)]) + decodeMessage :: FieldNumber -> Parser RawMessage ConsensusFailBlockRequest +decodeMessage FieldNumber +_ + = ((ByteString -> ConsensusFailBlockRequest) -> Parser RawMessage (ByteString -> ConsensusFailBlockRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString -> ConsensusFailBlockRequest +Hs.pure ByteString -> ConsensusFailBlockRequest ConsensusFailBlockRequest) Parser RawMessage (ByteString -> ConsensusFailBlockRequest) -> Parser RawMessage ByteString -> Parser RawMessage ConsensusFailBlockRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField ByteString +<*> + (Parser RawField ByteString -> FieldNumber -> Parser RawMessage ByteString forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField ByteString +HsProtobuf.at Parser RawField ByteString forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - dotProto :: Proxy# ConsensusFailBlockRequest -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + dotProto :: Proxy# ConsensusFailBlockRequest -> [DotProtoField] +dotProto Proxy# ConsensusFailBlockRequest +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.Bytes) - (String -> DotProtoIdentifier -HsProtobuf.Single "block_id") - [] - "")] - -instance HsJSONPB.ToJSONPB ConsensusFailBlockRequest where - toJSONPB :: ConsensusFailBlockRequest -> Options -> Value -toJSONPB (ConsensusFailBlockRequest f1 :: ByteString -f1) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["block_id" Text -> ByteString -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.Bytes) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"block_id") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ConsensusFailBlockRequest where + toJSONPB :: ConsensusFailBlockRequest -> Options -> Value +toJSONPB (ConsensusFailBlockRequest ByteString +f1) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"block_id" Text -> ByteString -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f1]) - toEncodingPB :: ConsensusFailBlockRequest -> Options -> Encoding -toEncodingPB (ConsensusFailBlockRequest f1 :: ByteString -f1) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["block_id" Text -> ByteString -> Options -> Series +.= ByteString +f1]) + toEncodingPB :: ConsensusFailBlockRequest -> Options -> Encoding +toEncodingPB (ConsensusFailBlockRequest ByteString +f1) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"block_id" Text -> ByteString -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f1]) - -instance HsJSONPB.FromJSONPB ConsensusFailBlockRequest where - parseJSONPB :: Value -> Parser ConsensusFailBlockRequest -parseJSONPB - = (String +.= ByteString +f1]) + +instance HsJSONPB.FromJSONPB ConsensusFailBlockRequest where + parseJSONPB :: Value -> Parser ConsensusFailBlockRequest +parseJSONPB + = (String -> (Object -> Parser ConsensusFailBlockRequest) -> Value -> Parser ConsensusFailBlockRequest forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ConsensusFailBlockRequest" - (\ obj :: Object -obj -> - ((ByteString -> ConsensusFailBlockRequest) +HsJSONPB.withObject String +"ConsensusFailBlockRequest" + (\ Object +obj -> + ((ByteString -> ConsensusFailBlockRequest) -> Parser (ByteString -> ConsensusFailBlockRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString -> ConsensusFailBlockRequest +Hs.pure ByteString -> ConsensusFailBlockRequest ConsensusFailBlockRequest) Parser (ByteString -> ConsensusFailBlockRequest) -> Parser ByteString -> Parser ConsensusFailBlockRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser ByteString +<*> Object +obj Object -> Text -> Parser ByteString forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "block_id")) - -instance HsJSONPB.ToJSON ConsensusFailBlockRequest where - toJSON :: ConsensusFailBlockRequest -> Value -toJSON = ConsensusFailBlockRequest -> Value +.: Text +"block_id")) + +instance HsJSONPB.ToJSON ConsensusFailBlockRequest where + toJSON :: ConsensusFailBlockRequest -> Value +toJSON = ConsensusFailBlockRequest -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ConsensusFailBlockRequest -> Encoding -toEncoding = ConsensusFailBlockRequest -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ConsensusFailBlockRequest -> Encoding +toEncoding = ConsensusFailBlockRequest -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ConsensusFailBlockRequest where - parseJSON :: Value -> Parser ConsensusFailBlockRequest -parseJSON = Value -> Parser ConsensusFailBlockRequest +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ConsensusFailBlockRequest where + parseJSON :: Value -> Parser ConsensusFailBlockRequest +parseJSON = Value -> Parser ConsensusFailBlockRequest forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ConsensusFailBlockRequest where - declareNamedSchema :: Proxy ConsensusFailBlockRequest +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ConsensusFailBlockRequest where + declareNamedSchema :: Proxy ConsensusFailBlockRequest -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_block_id :: Proxy (OverrideToSchema ByteString) +declareNamedSchema Proxy ConsensusFailBlockRequest +_ + = do let declare_block_id :: Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_block_id = Proxy (OverrideToSchema ByteString) +declare_block_id = Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -consensusFailBlockRequestBlockId <- Proxy (OverrideToSchema ByteString) +HsJSONPB.declareSchemaRef + Referenced Schema +consensusFailBlockRequestBlockId <- Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_block_id Proxy (OverrideToSchema ByteString) +declare_block_id Proxy (OverrideToSchema ByteString) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ConsensusFailBlockRequest +Proxy.Proxy + let Proxy ConsensusFailBlockRequest _ = (ByteString -> ConsensusFailBlockRequest) -> Proxy (ByteString -> ConsensusFailBlockRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString -> ConsensusFailBlockRequest +Hs.pure ByteString -> ConsensusFailBlockRequest ConsensusFailBlockRequest Proxy (ByteString -> ConsensusFailBlockRequest) -> Proxy ByteString -> Proxy ConsensusFailBlockRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema ByteString) +<*> + (Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy ByteString forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) +HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_block_id - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_block_id + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ConsensusFailBlockRequest", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ConsensusFailBlockRequest", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("block_id", - Referenced Schema -consensusFailBlockRequestBlockId)]}}) - -newtype ConsensusFailBlockResponse = ConsensusFailBlockResponse{ConsensusFailBlockResponse +HsJSONPB.insOrdFromList + [(Text +"block_id", + Referenced Schema +consensusFailBlockRequestBlockId)]}}) + +newtype ConsensusFailBlockResponse = ConsensusFailBlockResponse{ConsensusFailBlockResponse -> Enumerated ConsensusFailBlockResponse_Status consensusFailBlockResponseStatus - :: - HsProtobuf.Enumerated - Data.Sawtooth.Consensus.ConsensusFailBlockResponse_Status} - deriving (Int -> ConsensusFailBlockResponse -> ShowS + :: + HsProtobuf.Enumerated + Data.Sawtooth.Consensus.ConsensusFailBlockResponse_Status} + deriving (Int -> ConsensusFailBlockResponse -> ShowS [ConsensusFailBlockResponse] -> ShowS ConsensusFailBlockResponse -> String (Int -> ConsensusFailBlockResponse -> ShowS) @@ -17081,7 +18202,7 @@ show :: ConsensusFailBlockResponse -> String $cshow :: ConsensusFailBlockResponse -> String showsPrec :: Int -> ConsensusFailBlockResponse -> ShowS $cshowsPrec :: Int -> ConsensusFailBlockResponse -> ShowS -Hs.Show, ConsensusFailBlockResponse -> ConsensusFailBlockResponse -> Bool +Hs.Show, ConsensusFailBlockResponse -> ConsensusFailBlockResponse -> Bool (ConsensusFailBlockResponse -> ConsensusFailBlockResponse -> Bool) -> (ConsensusFailBlockResponse -> ConsensusFailBlockResponse -> Bool) @@ -17091,10 +18212,10 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: ConsensusFailBlockResponse -> ConsensusFailBlockResponse -> Bool == :: ConsensusFailBlockResponse -> ConsensusFailBlockResponse -> Bool $c== :: ConsensusFailBlockResponse -> ConsensusFailBlockResponse -> Bool -Hs.Eq, Eq ConsensusFailBlockResponse -Eq ConsensusFailBlockResponse => -(ConsensusFailBlockResponse - -> ConsensusFailBlockResponse -> Ordering) +Hs.Eq, Eq ConsensusFailBlockResponse +Eq ConsensusFailBlockResponse +-> (ConsensusFailBlockResponse + -> ConsensusFailBlockResponse -> Ordering) -> (ConsensusFailBlockResponse -> ConsensusFailBlockResponse -> Bool) -> (ConsensusFailBlockResponse @@ -17114,8 +18235,8 @@ ConsensusFailBlockResponse ConsensusFailBlockResponse -> ConsensusFailBlockResponse -> ConsensusFailBlockResponse forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -17144,7 +18265,7 @@ compare :: ConsensusFailBlockResponse $ccompare :: ConsensusFailBlockResponse -> ConsensusFailBlockResponse -> Ordering $cp1Ord :: Eq ConsensusFailBlockResponse -Hs.Ord, (forall x. +Hs.Ord, (forall x. ConsensusFailBlockResponse -> Rep ConsensusFailBlockResponse x) -> (forall x. Rep ConsensusFailBlockResponse x -> ConsensusFailBlockResponse) @@ -17159,50 +18280,55 @@ $cto :: forall x. Rep ConsensusFailBlockResponse x -> ConsensusFailBlockResponse $cfrom :: forall x. ConsensusFailBlockResponse -> Rep ConsensusFailBlockResponse x -Hs.Generic, ConsensusFailBlockResponse -> () +Hs.Generic, ConsensusFailBlockResponse -> () (ConsensusFailBlockResponse -> ()) -> NFData ConsensusFailBlockResponse forall a. (a -> ()) -> NFData a rnf :: ConsensusFailBlockResponse -> () $crnf :: ConsensusFailBlockResponse -> () -Hs.NFData) - -instance HsProtobuf.Named ConsensusFailBlockResponse where - nameOf :: Proxy# ConsensusFailBlockResponse -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ConsensusFailBlockResponse where + nameOf :: Proxy# ConsensusFailBlockResponse -> string +nameOf Proxy# ConsensusFailBlockResponse +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ConsensusFailBlockResponse") - -instance HsProtobuf.HasDefault ConsensusFailBlockResponse - -instance HsProtobuf.Message ConsensusFailBlockResponse where - encodeMessage :: FieldNumber -> ConsensusFailBlockResponse -> MessageBuilder -encodeMessage _ - ConsensusFailBlockResponse{consensusFailBlockResponseStatus :: ConsensusFailBlockResponse +Hs.fromString String +"ConsensusFailBlockResponse") + +instance HsProtobuf.HasDefault ConsensusFailBlockResponse + +instance HsProtobuf.Message ConsensusFailBlockResponse where + encodeMessage :: FieldNumber -> ConsensusFailBlockResponse -> MessageBuilder +encodeMessage FieldNumber +_ + ConsensusFailBlockResponse{consensusFailBlockResponseStatus :: ConsensusFailBlockResponse -> Enumerated ConsensusFailBlockResponse_Status consensusFailBlockResponseStatus = - Enumerated ConsensusFailBlockResponse_Status -consensusFailBlockResponseStatus} - = ([MessageBuilder] -> MessageBuilder + Enumerated ConsensusFailBlockResponse_Status +consensusFailBlockResponseStatus} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber +Hs.mconcat + [(FieldNumber -> Enumerated ConsensusFailBlockResponse_Status -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Enumerated ConsensusFailBlockResponse_Status -consensusFailBlockResponseStatus)]) - decodeMessage :: FieldNumber -> Parser RawMessage ConsensusFailBlockResponse -decodeMessage _ - = ((Enumerated ConsensusFailBlockResponse_Status +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Enumerated ConsensusFailBlockResponse_Status +consensusFailBlockResponseStatus)]) + decodeMessage :: FieldNumber -> Parser RawMessage ConsensusFailBlockResponse +decodeMessage FieldNumber +_ + = ((Enumerated ConsensusFailBlockResponse_Status -> ConsensusFailBlockResponse) -> Parser RawMessage (Enumerated ConsensusFailBlockResponse_Status -> ConsensusFailBlockResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ConsensusFailBlockResponse_Status +Hs.pure Enumerated ConsensusFailBlockResponse_Status -> ConsensusFailBlockResponse ConsensusFailBlockResponse) Parser RawMessage @@ -17211,81 +18337,90 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Parser RawMessage (Enumerated ConsensusFailBlockResponse_Status) -> Parser RawMessage ConsensusFailBlockResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField (Enumerated ConsensusFailBlockResponse_Status) +<*> + (Parser RawField (Enumerated ConsensusFailBlockResponse_Status) -> FieldNumber -> Parser RawMessage (Enumerated ConsensusFailBlockResponse_Status) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (Enumerated ConsensusFailBlockResponse_Status) +HsProtobuf.at Parser RawField (Enumerated ConsensusFailBlockResponse_Status) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - dotProto :: Proxy# ConsensusFailBlockResponse -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + dotProto :: Proxy# ConsensusFailBlockResponse -> [DotProtoField] +dotProto Proxy# ConsensusFailBlockResponse +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "Status"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "status") - [] - "")] - -instance HsJSONPB.ToJSONPB ConsensusFailBlockResponse where - toJSONPB :: ConsensusFailBlockResponse -> Options -> Value -toJSONPB (ConsensusFailBlockResponse f1 :: Enumerated ConsensusFailBlockResponse_Status -f1) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["status" Text +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"Status"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"status") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ConsensusFailBlockResponse where + toJSONPB :: ConsensusFailBlockResponse -> Options -> Value +toJSONPB (ConsensusFailBlockResponse Enumerated ConsensusFailBlockResponse_Status +f1) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"status" Text -> Enumerated ConsensusFailBlockResponse_Status -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated ConsensusFailBlockResponse_Status -f1]) - toEncodingPB :: ConsensusFailBlockResponse -> Options -> Encoding -toEncodingPB (ConsensusFailBlockResponse f1 :: Enumerated ConsensusFailBlockResponse_Status -f1) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["status" Text +.= Enumerated ConsensusFailBlockResponse_Status +f1]) + toEncodingPB :: ConsensusFailBlockResponse -> Options -> Encoding +toEncodingPB (ConsensusFailBlockResponse Enumerated ConsensusFailBlockResponse_Status +f1) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"status" Text -> Enumerated ConsensusFailBlockResponse_Status -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated ConsensusFailBlockResponse_Status -f1]) - -instance HsJSONPB.FromJSONPB ConsensusFailBlockResponse where - parseJSONPB :: Value -> Parser ConsensusFailBlockResponse -parseJSONPB - = (String +.= Enumerated ConsensusFailBlockResponse_Status +f1]) + +instance HsJSONPB.FromJSONPB ConsensusFailBlockResponse where + parseJSONPB :: Value -> Parser ConsensusFailBlockResponse +parseJSONPB + = (String -> (Object -> Parser ConsensusFailBlockResponse) -> Value -> Parser ConsensusFailBlockResponse forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ConsensusFailBlockResponse" - (\ obj :: Object -obj -> - ((Enumerated ConsensusFailBlockResponse_Status +HsJSONPB.withObject String +"ConsensusFailBlockResponse" + (\ Object +obj -> + ((Enumerated ConsensusFailBlockResponse_Status -> ConsensusFailBlockResponse) -> Parser (Enumerated ConsensusFailBlockResponse_Status -> ConsensusFailBlockResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ConsensusFailBlockResponse_Status +Hs.pure Enumerated ConsensusFailBlockResponse_Status -> ConsensusFailBlockResponse ConsensusFailBlockResponse) Parser (Enumerated ConsensusFailBlockResponse_Status @@ -17293,60 +18428,62 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Parser (Enumerated ConsensusFailBlockResponse_Status) -> Parser ConsensusFailBlockResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object +<*> Object +obj Object -> Text -> Parser (Enumerated ConsensusFailBlockResponse_Status) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "status")) - -instance HsJSONPB.ToJSON ConsensusFailBlockResponse where - toJSON :: ConsensusFailBlockResponse -> Value -toJSON = ConsensusFailBlockResponse -> Value +.: Text +"status")) + +instance HsJSONPB.ToJSON ConsensusFailBlockResponse where + toJSON :: ConsensusFailBlockResponse -> Value +toJSON = ConsensusFailBlockResponse -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ConsensusFailBlockResponse -> Encoding -toEncoding = ConsensusFailBlockResponse -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ConsensusFailBlockResponse -> Encoding +toEncoding = ConsensusFailBlockResponse -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ConsensusFailBlockResponse where - parseJSON :: Value -> Parser ConsensusFailBlockResponse -parseJSON = Value -> Parser ConsensusFailBlockResponse +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ConsensusFailBlockResponse where + parseJSON :: Value -> Parser ConsensusFailBlockResponse +parseJSON = Value -> Parser ConsensusFailBlockResponse forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ConsensusFailBlockResponse where - declareNamedSchema :: Proxy ConsensusFailBlockResponse +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ConsensusFailBlockResponse where + declareNamedSchema :: Proxy ConsensusFailBlockResponse -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_status :: Proxy +declareNamedSchema Proxy ConsensusFailBlockResponse +_ + = do let declare_status :: Proxy (OverrideToSchema (Enumerated ConsensusFailBlockResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status = Proxy +declare_status = Proxy (OverrideToSchema (Enumerated ConsensusFailBlockResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -consensusFailBlockResponseStatus <- Proxy +HsJSONPB.declareSchemaRef + Referenced Schema +consensusFailBlockResponseStatus <- Proxy (OverrideToSchema (Enumerated ConsensusFailBlockResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status Proxy +declare_status Proxy (OverrideToSchema (Enumerated ConsensusFailBlockResponse_Status)) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ConsensusFailBlockResponse +Proxy.Proxy + let Proxy ConsensusFailBlockResponse _ = (Enumerated ConsensusFailBlockResponse_Status -> ConsensusFailBlockResponse) -> Proxy (Enumerated ConsensusFailBlockResponse_Status -> ConsensusFailBlockResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ConsensusFailBlockResponse_Status +Hs.pure Enumerated ConsensusFailBlockResponse_Status -> ConsensusFailBlockResponse ConsensusFailBlockResponse Proxy (Enumerated ConsensusFailBlockResponse_Status @@ -17354,58 +18491,60 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Proxy (Enumerated ConsensusFailBlockResponse_Status) -> Proxy ConsensusFailBlockResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy +<*> + (Proxy (OverrideToSchema (Enumerated ConsensusFailBlockResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Enumerated ConsensusFailBlockResponse_Status) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy +HsJSONPB.asProxy Proxy (OverrideToSchema (Enumerated ConsensusFailBlockResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_status + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ConsensusFailBlockResponse", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ConsensusFailBlockResponse", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("status", - Referenced Schema -consensusFailBlockResponseStatus)]}}) - -data ConsensusFailBlockResponse_Status = ConsensusFailBlockResponse_StatusSTATUS_UNSET - | ConsensusFailBlockResponse_StatusOK - | ConsensusFailBlockResponse_StatusBAD_REQUEST - | ConsensusFailBlockResponse_StatusSERVICE_ERROR - | ConsensusFailBlockResponse_StatusNOT_READY - | ConsensusFailBlockResponse_StatusUNKNOWN_BLOCK - | ConsensusFailBlockResponse_StatusNOT_ACTIVE_ENGINE - deriving (Int -> ConsensusFailBlockResponse_Status -> ShowS +HsJSONPB.insOrdFromList + [(Text +"status", + Referenced Schema +consensusFailBlockResponseStatus)]}}) + +data ConsensusFailBlockResponse_Status = ConsensusFailBlockResponse_StatusSTATUS_UNSET + | ConsensusFailBlockResponse_StatusOK + | ConsensusFailBlockResponse_StatusBAD_REQUEST + | ConsensusFailBlockResponse_StatusSERVICE_ERROR + | ConsensusFailBlockResponse_StatusNOT_READY + | ConsensusFailBlockResponse_StatusUNKNOWN_BLOCK + | ConsensusFailBlockResponse_StatusNOT_ACTIVE_ENGINE + deriving (Int -> ConsensusFailBlockResponse_Status -> ShowS [ConsensusFailBlockResponse_Status] -> ShowS ConsensusFailBlockResponse_Status -> String (Int -> ConsensusFailBlockResponse_Status -> ShowS) @@ -17420,7 +18559,7 @@ show :: ConsensusFailBlockResponse_Status -> String $cshow :: ConsensusFailBlockResponse_Status -> String showsPrec :: Int -> ConsensusFailBlockResponse_Status -> ShowS $cshowsPrec :: Int -> ConsensusFailBlockResponse_Status -> ShowS -Hs.Show, ConsensusFailBlockResponse_Status +Hs.Show, ConsensusFailBlockResponse_Status -> ConsensusFailBlockResponse_Status -> Bool (ConsensusFailBlockResponse_Status -> ConsensusFailBlockResponse_Status -> Bool) @@ -17436,7 +18575,7 @@ $c/= :: ConsensusFailBlockResponse_Status -> ConsensusFailBlockResponse_Status -> Bool $c== :: ConsensusFailBlockResponse_Status -> ConsensusFailBlockResponse_Status -> Bool -Hs.Eq, (forall x. +Hs.Eq, (forall x. ConsensusFailBlockResponse_Status -> Rep ConsensusFailBlockResponse_Status x) -> (forall x. @@ -17457,199 +18596,226 @@ Rep ConsensusFailBlockResponse_Status x $cfrom :: forall x. ConsensusFailBlockResponse_Status -> Rep ConsensusFailBlockResponse_Status x -Hs.Generic, ConsensusFailBlockResponse_Status -> () +Hs.Generic, ConsensusFailBlockResponse_Status -> () (ConsensusFailBlockResponse_Status -> ()) -> NFData ConsensusFailBlockResponse_Status forall a. (a -> ()) -> NFData a rnf :: ConsensusFailBlockResponse_Status -> () $crnf :: ConsensusFailBlockResponse_Status -> () -Hs.NFData) - -instance HsProtobuf.Named ConsensusFailBlockResponse_Status where - nameOf :: Proxy# ConsensusFailBlockResponse_Status -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ConsensusFailBlockResponse_Status where + nameOf :: Proxy# ConsensusFailBlockResponse_Status -> string +nameOf Proxy# ConsensusFailBlockResponse_Status +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ConsensusFailBlockResponse_Status") - -instance HsProtobuf.HasDefault ConsensusFailBlockResponse_Status - -instance Hs.Bounded ConsensusFailBlockResponse_Status where - minBound :: ConsensusFailBlockResponse_Status -minBound = ConsensusFailBlockResponse_Status +Hs.fromString String +"ConsensusFailBlockResponse_Status") + +instance HsProtobuf.HasDefault ConsensusFailBlockResponse_Status + +instance Hs.Bounded ConsensusFailBlockResponse_Status where + minBound :: ConsensusFailBlockResponse_Status +minBound = ConsensusFailBlockResponse_Status ConsensusFailBlockResponse_StatusSTATUS_UNSET - maxBound :: ConsensusFailBlockResponse_Status -maxBound = ConsensusFailBlockResponse_Status + maxBound :: ConsensusFailBlockResponse_Status +maxBound = ConsensusFailBlockResponse_Status ConsensusFailBlockResponse_StatusNOT_ACTIVE_ENGINE - -instance Hs.Ord ConsensusFailBlockResponse_Status where - compare :: ConsensusFailBlockResponse_Status + +instance Hs.Ord ConsensusFailBlockResponse_Status where + compare :: ConsensusFailBlockResponse_Status -> ConsensusFailBlockResponse_Status -> Ordering -compare x :: ConsensusFailBlockResponse_Status -x y :: ConsensusFailBlockResponse_Status -y - = Int32 -> Int32 -> Ordering +compare ConsensusFailBlockResponse_Status +x ConsensusFailBlockResponse_Status +y + = Int32 -> Int32 -> Ordering forall a. Ord a => a -> a -> Ordering -Hs.compare (ConsensusFailBlockResponse_Status -> Int32 +Hs.compare (ConsensusFailBlockResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum ConsensusFailBlockResponse_Status -x) - (ConsensusFailBlockResponse_Status -> Int32 +HsProtobuf.fromProtoEnum ConsensusFailBlockResponse_Status +x) + (ConsensusFailBlockResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum ConsensusFailBlockResponse_Status -y) - -instance HsProtobuf.ProtoEnum ConsensusFailBlockResponse_Status - where - toProtoEnumMay :: Int32 -> Maybe ConsensusFailBlockResponse_Status -toProtoEnumMay 0 - = ConsensusFailBlockResponse_Status +HsProtobuf.fromProtoEnum ConsensusFailBlockResponse_Status +y) + +instance HsProtobuf.ProtoEnum ConsensusFailBlockResponse_Status + where + toProtoEnumMay :: Int32 -> Maybe ConsensusFailBlockResponse_Status +toProtoEnumMay Int32 +0 + = ConsensusFailBlockResponse_Status -> Maybe ConsensusFailBlockResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusFailBlockResponse_Status +Hs.Just ConsensusFailBlockResponse_Status ConsensusFailBlockResponse_StatusSTATUS_UNSET - toProtoEnumMay 1 = ConsensusFailBlockResponse_Status + toProtoEnumMay Int32 +1 = ConsensusFailBlockResponse_Status -> Maybe ConsensusFailBlockResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusFailBlockResponse_Status +Hs.Just ConsensusFailBlockResponse_Status ConsensusFailBlockResponse_StatusOK - toProtoEnumMay 2 - = ConsensusFailBlockResponse_Status + toProtoEnumMay Int32 +2 + = ConsensusFailBlockResponse_Status -> Maybe ConsensusFailBlockResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusFailBlockResponse_Status +Hs.Just ConsensusFailBlockResponse_Status ConsensusFailBlockResponse_StatusBAD_REQUEST - toProtoEnumMay 3 - = ConsensusFailBlockResponse_Status + toProtoEnumMay Int32 +3 + = ConsensusFailBlockResponse_Status -> Maybe ConsensusFailBlockResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusFailBlockResponse_Status +Hs.Just ConsensusFailBlockResponse_Status ConsensusFailBlockResponse_StatusSERVICE_ERROR - toProtoEnumMay 4 - = ConsensusFailBlockResponse_Status + toProtoEnumMay Int32 +4 + = ConsensusFailBlockResponse_Status -> Maybe ConsensusFailBlockResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusFailBlockResponse_Status +Hs.Just ConsensusFailBlockResponse_Status ConsensusFailBlockResponse_StatusNOT_READY - toProtoEnumMay 5 - = ConsensusFailBlockResponse_Status + toProtoEnumMay Int32 +5 + = ConsensusFailBlockResponse_Status -> Maybe ConsensusFailBlockResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusFailBlockResponse_Status +Hs.Just ConsensusFailBlockResponse_Status ConsensusFailBlockResponse_StatusUNKNOWN_BLOCK - toProtoEnumMay 6 - = ConsensusFailBlockResponse_Status + toProtoEnumMay Int32 +6 + = ConsensusFailBlockResponse_Status -> Maybe ConsensusFailBlockResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusFailBlockResponse_Status +Hs.Just ConsensusFailBlockResponse_Status ConsensusFailBlockResponse_StatusNOT_ACTIVE_ENGINE - toProtoEnumMay _ = Maybe ConsensusFailBlockResponse_Status + toProtoEnumMay Int32 +_ = Maybe ConsensusFailBlockResponse_Status forall a. Maybe a -Hs.Nothing - fromProtoEnum :: ConsensusFailBlockResponse_Status -> Int32 -fromProtoEnum (ConsensusFailBlockResponse_Status -ConsensusFailBlockResponse_StatusSTATUS_UNSET) = 0 - fromProtoEnum (ConsensusFailBlockResponse_Status -ConsensusFailBlockResponse_StatusOK) = 1 - fromProtoEnum (ConsensusFailBlockResponse_Status -ConsensusFailBlockResponse_StatusBAD_REQUEST) = 2 - fromProtoEnum (ConsensusFailBlockResponse_Status -ConsensusFailBlockResponse_StatusSERVICE_ERROR) = 3 - fromProtoEnum (ConsensusFailBlockResponse_Status -ConsensusFailBlockResponse_StatusNOT_READY) = 4 - fromProtoEnum (ConsensusFailBlockResponse_Status -ConsensusFailBlockResponse_StatusUNKNOWN_BLOCK) = 5 - fromProtoEnum (ConsensusFailBlockResponse_Status +Hs.Nothing + fromProtoEnum :: ConsensusFailBlockResponse_Status -> Int32 +fromProtoEnum (ConsensusFailBlockResponse_Status +ConsensusFailBlockResponse_StatusSTATUS_UNSET) = Int32 +0 + fromProtoEnum (ConsensusFailBlockResponse_Status +ConsensusFailBlockResponse_StatusOK) = Int32 +1 + fromProtoEnum (ConsensusFailBlockResponse_Status +ConsensusFailBlockResponse_StatusBAD_REQUEST) = Int32 +2 + fromProtoEnum (ConsensusFailBlockResponse_Status +ConsensusFailBlockResponse_StatusSERVICE_ERROR) = Int32 +3 + fromProtoEnum (ConsensusFailBlockResponse_Status +ConsensusFailBlockResponse_StatusNOT_READY) = Int32 +4 + fromProtoEnum (ConsensusFailBlockResponse_Status +ConsensusFailBlockResponse_StatusUNKNOWN_BLOCK) = Int32 +5 + fromProtoEnum (ConsensusFailBlockResponse_Status ConsensusFailBlockResponse_StatusNOT_ACTIVE_ENGINE) - = 6 - -instance HsJSONPB.ToJSONPB ConsensusFailBlockResponse_Status where - toJSONPB :: ConsensusFailBlockResponse_Status -> Options -> Value -toJSONPB x :: ConsensusFailBlockResponse_Status -x _ = ConsensusFailBlockResponse_Status -> Value + = Int32 +6 + +instance HsJSONPB.ToJSONPB ConsensusFailBlockResponse_Status where + toJSONPB :: ConsensusFailBlockResponse_Status -> Options -> Value +toJSONPB ConsensusFailBlockResponse_Status +x Options +_ = ConsensusFailBlockResponse_Status -> Value forall a. (Named a, Show a) => a -> Value -HsJSONPB.enumFieldString ConsensusFailBlockResponse_Status -x - toEncodingPB :: ConsensusFailBlockResponse_Status -> Options -> Encoding -toEncodingPB x :: ConsensusFailBlockResponse_Status -x _ = ConsensusFailBlockResponse_Status -> Encoding +HsJSONPB.enumFieldString ConsensusFailBlockResponse_Status +x + toEncodingPB :: ConsensusFailBlockResponse_Status -> Options -> Encoding +toEncodingPB ConsensusFailBlockResponse_Status +x Options +_ = ConsensusFailBlockResponse_Status -> Encoding forall a. (Named a, Show a) => a -> Encoding -HsJSONPB.enumFieldEncoding ConsensusFailBlockResponse_Status -x - -instance HsJSONPB.FromJSONPB ConsensusFailBlockResponse_Status - where - parseJSONPB :: Value -> Parser ConsensusFailBlockResponse_Status -parseJSONPB (HsJSONPB.String "STATUS_UNSET") - = ConsensusFailBlockResponse_Status +HsJSONPB.enumFieldEncoding ConsensusFailBlockResponse_Status +x + +instance HsJSONPB.FromJSONPB ConsensusFailBlockResponse_Status + where + parseJSONPB :: Value -> Parser ConsensusFailBlockResponse_Status +parseJSONPB (HsJSONPB.String Text +"STATUS_UNSET") + = ConsensusFailBlockResponse_Status -> Parser ConsensusFailBlockResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusFailBlockResponse_Status +Hs.pure ConsensusFailBlockResponse_Status ConsensusFailBlockResponse_StatusSTATUS_UNSET - parseJSONPB (HsJSONPB.String "OK") - = ConsensusFailBlockResponse_Status + parseJSONPB (HsJSONPB.String Text +"OK") + = ConsensusFailBlockResponse_Status -> Parser ConsensusFailBlockResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusFailBlockResponse_Status +Hs.pure ConsensusFailBlockResponse_Status ConsensusFailBlockResponse_StatusOK - parseJSONPB (HsJSONPB.String "BAD_REQUEST") - = ConsensusFailBlockResponse_Status + parseJSONPB (HsJSONPB.String Text +"BAD_REQUEST") + = ConsensusFailBlockResponse_Status -> Parser ConsensusFailBlockResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusFailBlockResponse_Status +Hs.pure ConsensusFailBlockResponse_Status ConsensusFailBlockResponse_StatusBAD_REQUEST - parseJSONPB (HsJSONPB.String "SERVICE_ERROR") - = ConsensusFailBlockResponse_Status + parseJSONPB (HsJSONPB.String Text +"SERVICE_ERROR") + = ConsensusFailBlockResponse_Status -> Parser ConsensusFailBlockResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusFailBlockResponse_Status +Hs.pure ConsensusFailBlockResponse_Status ConsensusFailBlockResponse_StatusSERVICE_ERROR - parseJSONPB (HsJSONPB.String "NOT_READY") - = ConsensusFailBlockResponse_Status + parseJSONPB (HsJSONPB.String Text +"NOT_READY") + = ConsensusFailBlockResponse_Status -> Parser ConsensusFailBlockResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusFailBlockResponse_Status +Hs.pure ConsensusFailBlockResponse_Status ConsensusFailBlockResponse_StatusNOT_READY - parseJSONPB (HsJSONPB.String "UNKNOWN_BLOCK") - = ConsensusFailBlockResponse_Status + parseJSONPB (HsJSONPB.String Text +"UNKNOWN_BLOCK") + = ConsensusFailBlockResponse_Status -> Parser ConsensusFailBlockResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusFailBlockResponse_Status +Hs.pure ConsensusFailBlockResponse_Status ConsensusFailBlockResponse_StatusUNKNOWN_BLOCK - parseJSONPB (HsJSONPB.String "NOT_ACTIVE_ENGINE") - = ConsensusFailBlockResponse_Status + parseJSONPB (HsJSONPB.String Text +"NOT_ACTIVE_ENGINE") + = ConsensusFailBlockResponse_Status -> Parser ConsensusFailBlockResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusFailBlockResponse_Status +Hs.pure ConsensusFailBlockResponse_Status ConsensusFailBlockResponse_StatusNOT_ACTIVE_ENGINE - parseJSONPB v :: Value -v - = (String -> Value -> Parser ConsensusFailBlockResponse_Status + parseJSONPB Value +v + = (String -> Value -> Parser ConsensusFailBlockResponse_Status forall a. String -> Value -> Parser a -HsJSONPB.typeMismatch "ConsensusFailBlockResponse_Status" Value -v) - -instance HsJSONPB.ToJSON ConsensusFailBlockResponse_Status where - toJSON :: ConsensusFailBlockResponse_Status -> Value -toJSON = ConsensusFailBlockResponse_Status -> Value +HsJSONPB.typeMismatch String +"ConsensusFailBlockResponse_Status" Value +v) + +instance HsJSONPB.ToJSON ConsensusFailBlockResponse_Status where + toJSON :: ConsensusFailBlockResponse_Status -> Value +toJSON = ConsensusFailBlockResponse_Status -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ConsensusFailBlockResponse_Status -> Encoding -toEncoding = ConsensusFailBlockResponse_Status -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ConsensusFailBlockResponse_Status -> Encoding +toEncoding = ConsensusFailBlockResponse_Status -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ConsensusFailBlockResponse_Status where - parseJSON :: Value -> Parser ConsensusFailBlockResponse_Status -parseJSON = Value -> Parser ConsensusFailBlockResponse_Status +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ConsensusFailBlockResponse_Status where + parseJSON :: Value -> Parser ConsensusFailBlockResponse_Status +parseJSON = Value -> Parser ConsensusFailBlockResponse_Status forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsProtobuf.Finite ConsensusFailBlockResponse_Status - -newtype ConsensusBlocksGetRequest = ConsensusBlocksGetRequest{ConsensusBlocksGetRequest -> Vector ByteString +HsJSONPB.parseJSONPB + +instance HsProtobuf.Finite ConsensusFailBlockResponse_Status + +newtype ConsensusBlocksGetRequest = ConsensusBlocksGetRequest{ConsensusBlocksGetRequest -> Vector ByteString consensusBlocksGetRequestBlockIds - :: Hs.Vector Hs.ByteString} - deriving (Int -> ConsensusBlocksGetRequest -> ShowS + :: Hs.Vector Hs.ByteString} + deriving (Int -> ConsensusBlocksGetRequest -> ShowS [ConsensusBlocksGetRequest] -> ShowS ConsensusBlocksGetRequest -> String (Int -> ConsensusBlocksGetRequest -> ShowS) @@ -17664,7 +18830,7 @@ show :: ConsensusBlocksGetRequest -> String $cshow :: ConsensusBlocksGetRequest -> String showsPrec :: Int -> ConsensusBlocksGetRequest -> ShowS $cshowsPrec :: Int -> ConsensusBlocksGetRequest -> ShowS -Hs.Show, ConsensusBlocksGetRequest -> ConsensusBlocksGetRequest -> Bool +Hs.Show, ConsensusBlocksGetRequest -> ConsensusBlocksGetRequest -> Bool (ConsensusBlocksGetRequest -> ConsensusBlocksGetRequest -> Bool) -> (ConsensusBlocksGetRequest -> ConsensusBlocksGetRequest -> Bool) -> Eq ConsensusBlocksGetRequest @@ -17673,10 +18839,10 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: ConsensusBlocksGetRequest -> ConsensusBlocksGetRequest -> Bool == :: ConsensusBlocksGetRequest -> ConsensusBlocksGetRequest -> Bool $c== :: ConsensusBlocksGetRequest -> ConsensusBlocksGetRequest -> Bool -Hs.Eq, Eq ConsensusBlocksGetRequest -Eq ConsensusBlocksGetRequest => -(ConsensusBlocksGetRequest - -> ConsensusBlocksGetRequest -> Ordering) +Hs.Eq, Eq ConsensusBlocksGetRequest +Eq ConsensusBlocksGetRequest +-> (ConsensusBlocksGetRequest + -> ConsensusBlocksGetRequest -> Ordering) -> (ConsensusBlocksGetRequest -> ConsensusBlocksGetRequest -> Bool) -> (ConsensusBlocksGetRequest -> ConsensusBlocksGetRequest -> Bool) -> (ConsensusBlocksGetRequest -> ConsensusBlocksGetRequest -> Bool) @@ -17691,8 +18857,8 @@ ConsensusBlocksGetRequest -> ConsensusBlocksGetRequest -> Ordering ConsensusBlocksGetRequest -> ConsensusBlocksGetRequest -> ConsensusBlocksGetRequest forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -17719,7 +18885,7 @@ $c< :: ConsensusBlocksGetRequest -> ConsensusBlocksGetRequest -> Bool compare :: ConsensusBlocksGetRequest -> ConsensusBlocksGetRequest -> Ordering $ccompare :: ConsensusBlocksGetRequest -> ConsensusBlocksGetRequest -> Ordering $cp1Ord :: Eq ConsensusBlocksGetRequest -Hs.Ord, (forall x. +Hs.Ord, (forall x. ConsensusBlocksGetRequest -> Rep ConsensusBlocksGetRequest x) -> (forall x. Rep ConsensusBlocksGetRequest x -> ConsensusBlocksGetRequest) @@ -17734,227 +18900,242 @@ $cto :: forall x. Rep ConsensusBlocksGetRequest x -> ConsensusBlocksGetRequest $cfrom :: forall x. ConsensusBlocksGetRequest -> Rep ConsensusBlocksGetRequest x -Hs.Generic, ConsensusBlocksGetRequest -> () +Hs.Generic, ConsensusBlocksGetRequest -> () (ConsensusBlocksGetRequest -> ()) -> NFData ConsensusBlocksGetRequest forall a. (a -> ()) -> NFData a rnf :: ConsensusBlocksGetRequest -> () $crnf :: ConsensusBlocksGetRequest -> () -Hs.NFData) - -instance HsProtobuf.Named ConsensusBlocksGetRequest where - nameOf :: Proxy# ConsensusBlocksGetRequest -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ConsensusBlocksGetRequest where + nameOf :: Proxy# ConsensusBlocksGetRequest -> string +nameOf Proxy# ConsensusBlocksGetRequest +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ConsensusBlocksGetRequest") - -instance HsProtobuf.HasDefault ConsensusBlocksGetRequest - -instance HsProtobuf.Message ConsensusBlocksGetRequest where - encodeMessage :: FieldNumber -> ConsensusBlocksGetRequest -> MessageBuilder -encodeMessage _ - ConsensusBlocksGetRequest{consensusBlocksGetRequestBlockIds :: ConsensusBlocksGetRequest -> Vector ByteString +Hs.fromString String +"ConsensusBlocksGetRequest") + +instance HsProtobuf.HasDefault ConsensusBlocksGetRequest + +instance HsProtobuf.Message ConsensusBlocksGetRequest where + encodeMessage :: FieldNumber -> ConsensusBlocksGetRequest -> MessageBuilder +encodeMessage FieldNumber +_ + ConsensusBlocksGetRequest{consensusBlocksGetRequestBlockIds :: ConsensusBlocksGetRequest -> Vector ByteString consensusBlocksGetRequestBlockIds = - Vector ByteString -consensusBlocksGetRequestBlockIds} - = ([MessageBuilder] -> MessageBuilder + Vector ByteString +consensusBlocksGetRequestBlockIds} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> UnpackedVec ByteString -> MessageBuilder +Hs.mconcat + [(FieldNumber -> UnpackedVec ByteString -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (Vector ByteString -> UnpackedVec ByteString -forall a b. Coercible a b => a -> b -Hs.coerce @(Hs.Vector Hs.ByteString) - @(HsProtobuf.UnpackedVec Hs.ByteString) - Vector ByteString -consensusBlocksGetRequestBlockIds))]) - decodeMessage :: FieldNumber -> Parser RawMessage ConsensusBlocksGetRequest -decodeMessage _ - = ((Vector ByteString -> ConsensusBlocksGetRequest) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (Vector ByteString -> UnpackedVec ByteString +Hs.coerce @(Hs.Vector Hs.ByteString) + @(HsProtobuf.UnpackedVec Hs.ByteString) + Vector ByteString +consensusBlocksGetRequestBlockIds))]) + decodeMessage :: FieldNumber -> Parser RawMessage ConsensusBlocksGetRequest +decodeMessage FieldNumber +_ + = ((Vector ByteString -> ConsensusBlocksGetRequest) -> Parser RawMessage (Vector ByteString -> ConsensusBlocksGetRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector ByteString -> ConsensusBlocksGetRequest +Hs.pure Vector ByteString -> ConsensusBlocksGetRequest ConsensusBlocksGetRequest) Parser RawMessage (Vector ByteString -> ConsensusBlocksGetRequest) -> Parser RawMessage (Vector ByteString) -> Parser RawMessage ConsensusBlocksGetRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (UnpackedVec ByteString) +<*> + (Parser RawMessage (UnpackedVec ByteString) -> Parser RawMessage (Vector ByteString) -forall a b. Coercible a b => a -> b -Hs.coerce @(_ (HsProtobuf.UnpackedVec Hs.ByteString)) - @(_ (Hs.Vector Hs.ByteString)) - (Parser RawField (UnpackedVec ByteString) +Hs.coerce @(_ (HsProtobuf.UnpackedVec Hs.ByteString)) + @(_ (Hs.Vector Hs.ByteString)) + (Parser RawField (UnpackedVec ByteString) -> FieldNumber -> Parser RawMessage (UnpackedVec ByteString) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (UnpackedVec ByteString) +HsProtobuf.at Parser RawField (UnpackedVec ByteString) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1))) - dotProto :: Proxy# ConsensusBlocksGetRequest -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1))) + dotProto :: Proxy# ConsensusBlocksGetRequest -> [DotProtoField] +dotProto Proxy# ConsensusBlocksGetRequest +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Repeated DotProtoPrimType -HsProtobuf.Bytes) - (String -> DotProtoIdentifier -HsProtobuf.Single "block_ids") - [] - "")] - -instance HsJSONPB.ToJSONPB ConsensusBlocksGetRequest where - toJSONPB :: ConsensusBlocksGetRequest -> Options -> Value -toJSONPB (ConsensusBlocksGetRequest f1 :: Vector ByteString -f1) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["block_ids" Text -> Vector ByteString -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Repeated DotProtoPrimType +HsProtobuf.Bytes) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"block_ids") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ConsensusBlocksGetRequest where + toJSONPB :: ConsensusBlocksGetRequest -> Options -> Value +toJSONPB (ConsensusBlocksGetRequest Vector ByteString +f1) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"block_ids" Text -> Vector ByteString -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector ByteString -f1]) - toEncodingPB :: ConsensusBlocksGetRequest -> Options -> Encoding -toEncodingPB (ConsensusBlocksGetRequest f1 :: Vector ByteString -f1) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["block_ids" Text -> Vector ByteString -> Options -> Series +.= Vector ByteString +f1]) + toEncodingPB :: ConsensusBlocksGetRequest -> Options -> Encoding +toEncodingPB (ConsensusBlocksGetRequest Vector ByteString +f1) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"block_ids" Text -> Vector ByteString -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector ByteString -f1]) - -instance HsJSONPB.FromJSONPB ConsensusBlocksGetRequest where - parseJSONPB :: Value -> Parser ConsensusBlocksGetRequest -parseJSONPB - = (String +.= Vector ByteString +f1]) + +instance HsJSONPB.FromJSONPB ConsensusBlocksGetRequest where + parseJSONPB :: Value -> Parser ConsensusBlocksGetRequest +parseJSONPB + = (String -> (Object -> Parser ConsensusBlocksGetRequest) -> Value -> Parser ConsensusBlocksGetRequest forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ConsensusBlocksGetRequest" - (\ obj :: Object -obj -> - ((Vector ByteString -> ConsensusBlocksGetRequest) +HsJSONPB.withObject String +"ConsensusBlocksGetRequest" + (\ Object +obj -> + ((Vector ByteString -> ConsensusBlocksGetRequest) -> Parser (Vector ByteString -> ConsensusBlocksGetRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector ByteString -> ConsensusBlocksGetRequest +Hs.pure Vector ByteString -> ConsensusBlocksGetRequest ConsensusBlocksGetRequest) Parser (Vector ByteString -> ConsensusBlocksGetRequest) -> Parser (Vector ByteString) -> Parser ConsensusBlocksGetRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser (Vector ByteString) +<*> Object +obj Object -> Text -> Parser (Vector ByteString) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "block_ids")) - -instance HsJSONPB.ToJSON ConsensusBlocksGetRequest where - toJSON :: ConsensusBlocksGetRequest -> Value -toJSON = ConsensusBlocksGetRequest -> Value +.: Text +"block_ids")) + +instance HsJSONPB.ToJSON ConsensusBlocksGetRequest where + toJSON :: ConsensusBlocksGetRequest -> Value +toJSON = ConsensusBlocksGetRequest -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ConsensusBlocksGetRequest -> Encoding -toEncoding = ConsensusBlocksGetRequest -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ConsensusBlocksGetRequest -> Encoding +toEncoding = ConsensusBlocksGetRequest -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ConsensusBlocksGetRequest where - parseJSON :: Value -> Parser ConsensusBlocksGetRequest -parseJSON = Value -> Parser ConsensusBlocksGetRequest +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ConsensusBlocksGetRequest where + parseJSON :: Value -> Parser ConsensusBlocksGetRequest +parseJSON = Value -> Parser ConsensusBlocksGetRequest forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ConsensusBlocksGetRequest where - declareNamedSchema :: Proxy ConsensusBlocksGetRequest +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ConsensusBlocksGetRequest where + declareNamedSchema :: Proxy ConsensusBlocksGetRequest -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_block_ids :: Proxy (OverrideToSchema (Vector ByteString)) +declareNamedSchema Proxy ConsensusBlocksGetRequest +_ + = do let declare_block_ids :: Proxy (OverrideToSchema (Vector ByteString)) -> Declare (Definitions Schema) (Referenced Schema) -declare_block_ids = Proxy (OverrideToSchema (Vector ByteString)) +declare_block_ids = Proxy (OverrideToSchema (Vector ByteString)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -consensusBlocksGetRequestBlockIds <- Proxy (OverrideToSchema (Vector ByteString)) +HsJSONPB.declareSchemaRef + Referenced Schema +consensusBlocksGetRequestBlockIds <- Proxy (OverrideToSchema (Vector ByteString)) -> Declare (Definitions Schema) (Referenced Schema) -declare_block_ids Proxy (OverrideToSchema (Vector ByteString)) +declare_block_ids Proxy (OverrideToSchema (Vector ByteString)) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ConsensusBlocksGetRequest +Proxy.Proxy + let Proxy ConsensusBlocksGetRequest _ = (Vector ByteString -> ConsensusBlocksGetRequest) -> Proxy (Vector ByteString -> ConsensusBlocksGetRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector ByteString -> ConsensusBlocksGetRequest +Hs.pure Vector ByteString -> ConsensusBlocksGetRequest ConsensusBlocksGetRequest Proxy (Vector ByteString -> ConsensusBlocksGetRequest) -> Proxy (Vector ByteString) -> Proxy ConsensusBlocksGetRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema (Vector ByteString)) +<*> + (Proxy (OverrideToSchema (Vector ByteString)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Vector ByteString) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Vector ByteString)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Vector ByteString)) -> Declare (Definitions Schema) (Referenced Schema) -declare_block_ids - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_block_ids + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ConsensusBlocksGetRequest", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ConsensusBlocksGetRequest", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("block_ids", - Referenced Schema -consensusBlocksGetRequestBlockIds)]}}) - -data ConsensusBlocksGetResponse = ConsensusBlocksGetResponse{ConsensusBlocksGetResponse +HsJSONPB.insOrdFromList + [(Text +"block_ids", + Referenced Schema +consensusBlocksGetRequestBlockIds)]}}) + +data ConsensusBlocksGetResponse = ConsensusBlocksGetResponse{ConsensusBlocksGetResponse -> Enumerated ConsensusBlocksGetResponse_Status consensusBlocksGetResponseStatus - :: - HsProtobuf.Enumerated - Data.Sawtooth.Consensus.ConsensusBlocksGetResponse_Status, - ConsensusBlocksGetResponse -> Vector ConsensusBlock + :: + HsProtobuf.Enumerated + Data.Sawtooth.Consensus.ConsensusBlocksGetResponse_Status, + ConsensusBlocksGetResponse -> Vector ConsensusBlock consensusBlocksGetResponseBlocks :: - Hs.Vector - Data.Sawtooth.Consensus.ConsensusBlock} - deriving (Int -> ConsensusBlocksGetResponse -> ShowS + Hs.Vector + Data.Sawtooth.Consensus.ConsensusBlock} + deriving (Int -> ConsensusBlocksGetResponse -> ShowS [ConsensusBlocksGetResponse] -> ShowS ConsensusBlocksGetResponse -> String (Int -> ConsensusBlocksGetResponse -> ShowS) @@ -17969,7 +19150,7 @@ show :: ConsensusBlocksGetResponse -> String $cshow :: ConsensusBlocksGetResponse -> String showsPrec :: Int -> ConsensusBlocksGetResponse -> ShowS $cshowsPrec :: Int -> ConsensusBlocksGetResponse -> ShowS -Hs.Show, ConsensusBlocksGetResponse -> ConsensusBlocksGetResponse -> Bool +Hs.Show, ConsensusBlocksGetResponse -> ConsensusBlocksGetResponse -> Bool (ConsensusBlocksGetResponse -> ConsensusBlocksGetResponse -> Bool) -> (ConsensusBlocksGetResponse -> ConsensusBlocksGetResponse -> Bool) @@ -17979,10 +19160,10 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: ConsensusBlocksGetResponse -> ConsensusBlocksGetResponse -> Bool == :: ConsensusBlocksGetResponse -> ConsensusBlocksGetResponse -> Bool $c== :: ConsensusBlocksGetResponse -> ConsensusBlocksGetResponse -> Bool -Hs.Eq, Eq ConsensusBlocksGetResponse -Eq ConsensusBlocksGetResponse => -(ConsensusBlocksGetResponse - -> ConsensusBlocksGetResponse -> Ordering) +Hs.Eq, Eq ConsensusBlocksGetResponse +Eq ConsensusBlocksGetResponse +-> (ConsensusBlocksGetResponse + -> ConsensusBlocksGetResponse -> Ordering) -> (ConsensusBlocksGetResponse -> ConsensusBlocksGetResponse -> Bool) -> (ConsensusBlocksGetResponse @@ -18002,8 +19183,8 @@ ConsensusBlocksGetResponse ConsensusBlocksGetResponse -> ConsensusBlocksGetResponse -> ConsensusBlocksGetResponse forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -18032,7 +19213,7 @@ compare :: ConsensusBlocksGetResponse $ccompare :: ConsensusBlocksGetResponse -> ConsensusBlocksGetResponse -> Ordering $cp1Ord :: Eq ConsensusBlocksGetResponse -Hs.Ord, (forall x. +Hs.Ord, (forall x. ConsensusBlocksGetResponse -> Rep ConsensusBlocksGetResponse x) -> (forall x. Rep ConsensusBlocksGetResponse x -> ConsensusBlocksGetResponse) @@ -18047,64 +19228,69 @@ $cto :: forall x. Rep ConsensusBlocksGetResponse x -> ConsensusBlocksGetResponse $cfrom :: forall x. ConsensusBlocksGetResponse -> Rep ConsensusBlocksGetResponse x -Hs.Generic, ConsensusBlocksGetResponse -> () +Hs.Generic, ConsensusBlocksGetResponse -> () (ConsensusBlocksGetResponse -> ()) -> NFData ConsensusBlocksGetResponse forall a. (a -> ()) -> NFData a rnf :: ConsensusBlocksGetResponse -> () $crnf :: ConsensusBlocksGetResponse -> () -Hs.NFData) - -instance HsProtobuf.Named ConsensusBlocksGetResponse where - nameOf :: Proxy# ConsensusBlocksGetResponse -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ConsensusBlocksGetResponse where + nameOf :: Proxy# ConsensusBlocksGetResponse -> string +nameOf Proxy# ConsensusBlocksGetResponse +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ConsensusBlocksGetResponse") - -instance HsProtobuf.HasDefault ConsensusBlocksGetResponse - -instance HsProtobuf.Message ConsensusBlocksGetResponse where - encodeMessage :: FieldNumber -> ConsensusBlocksGetResponse -> MessageBuilder -encodeMessage _ - ConsensusBlocksGetResponse{consensusBlocksGetResponseStatus :: ConsensusBlocksGetResponse +Hs.fromString String +"ConsensusBlocksGetResponse") + +instance HsProtobuf.HasDefault ConsensusBlocksGetResponse + +instance HsProtobuf.Message ConsensusBlocksGetResponse where + encodeMessage :: FieldNumber -> ConsensusBlocksGetResponse -> MessageBuilder +encodeMessage FieldNumber +_ + ConsensusBlocksGetResponse{consensusBlocksGetResponseStatus :: ConsensusBlocksGetResponse -> Enumerated ConsensusBlocksGetResponse_Status consensusBlocksGetResponseStatus = - Enumerated ConsensusBlocksGetResponse_Status -consensusBlocksGetResponseStatus, - consensusBlocksGetResponseBlocks :: ConsensusBlocksGetResponse -> Vector ConsensusBlock + Enumerated ConsensusBlocksGetResponse_Status +consensusBlocksGetResponseStatus, + consensusBlocksGetResponseBlocks :: ConsensusBlocksGetResponse -> Vector ConsensusBlock consensusBlocksGetResponseBlocks = - Vector ConsensusBlock -consensusBlocksGetResponseBlocks} - = ([MessageBuilder] -> MessageBuilder + Vector ConsensusBlock +consensusBlocksGetResponseBlocks} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber +Hs.mconcat + [(FieldNumber -> Enumerated ConsensusBlocksGetResponse_Status -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Enumerated ConsensusBlocksGetResponse_Status -consensusBlocksGetResponseStatus), - (FieldNumber -> NestedVec ConsensusBlock -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Enumerated ConsensusBlocksGetResponse_Status +consensusBlocksGetResponseStatus), + (FieldNumber -> NestedVec ConsensusBlock -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (Vector ConsensusBlock -> NestedVec ConsensusBlock -forall a b. Coercible a b => a -> b -Hs.coerce @(Hs.Vector Data.Sawtooth.Consensus.ConsensusBlock) - @(HsProtobuf.NestedVec Data.Sawtooth.Consensus.ConsensusBlock) - Vector ConsensusBlock -consensusBlocksGetResponseBlocks))]) - decodeMessage :: FieldNumber -> Parser RawMessage ConsensusBlocksGetResponse -decodeMessage _ - = ((Enumerated ConsensusBlocksGetResponse_Status +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (Vector ConsensusBlock -> NestedVec ConsensusBlock +Hs.coerce @(Hs.Vector Data.Sawtooth.Consensus.ConsensusBlock) + @(HsProtobuf.NestedVec Data.Sawtooth.Consensus.ConsensusBlock) + Vector ConsensusBlock +consensusBlocksGetResponseBlocks))]) + decodeMessage :: FieldNumber -> Parser RawMessage ConsensusBlocksGetResponse +decodeMessage FieldNumber +_ + = ((Enumerated ConsensusBlocksGetResponse_Status -> Vector ConsensusBlock -> ConsensusBlocksGetResponse) -> Parser RawMessage (Enumerated ConsensusBlocksGetResponse_Status -> Vector ConsensusBlock -> ConsensusBlocksGetResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ConsensusBlocksGetResponse_Status +Hs.pure Enumerated ConsensusBlocksGetResponse_Status -> Vector ConsensusBlock -> ConsensusBlocksGetResponse ConsensusBlocksGetResponse) Parser RawMessage @@ -18114,130 +19300,145 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Parser RawMessage (Vector ConsensusBlock -> ConsensusBlocksGetResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField (Enumerated ConsensusBlocksGetResponse_Status) +<*> + (Parser RawField (Enumerated ConsensusBlocksGetResponse_Status) -> FieldNumber -> Parser RawMessage (Enumerated ConsensusBlocksGetResponse_Status) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (Enumerated ConsensusBlocksGetResponse_Status) +HsProtobuf.at Parser RawField (Enumerated ConsensusBlocksGetResponse_Status) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (Vector ConsensusBlock -> ConsensusBlocksGetResponse) -> Parser RawMessage (Vector ConsensusBlock) -> Parser RawMessage ConsensusBlocksGetResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (NestedVec ConsensusBlock) +<*> + (Parser RawMessage (NestedVec ConsensusBlock) -> Parser RawMessage (Vector ConsensusBlock) -forall a b. Coercible a b => a -> b -Hs.coerce - @(_ (HsProtobuf.NestedVec Data.Sawtooth.Consensus.ConsensusBlock)) - @(_ (Hs.Vector Data.Sawtooth.Consensus.ConsensusBlock)) - (Parser RawField (NestedVec ConsensusBlock) +Hs.coerce + @(_ (HsProtobuf.NestedVec Data.Sawtooth.Consensus.ConsensusBlock)) + @(_ (Hs.Vector Data.Sawtooth.Consensus.ConsensusBlock)) + (Parser RawField (NestedVec ConsensusBlock) -> FieldNumber -> Parser RawMessage (NestedVec ConsensusBlock) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (NestedVec ConsensusBlock) +HsProtobuf.at Parser RawField (NestedVec ConsensusBlock) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2))) - dotProto :: Proxy# ConsensusBlocksGetResponse -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2))) + dotProto :: Proxy# ConsensusBlocksGetResponse -> [DotProtoField] +dotProto Proxy# ConsensusBlocksGetResponse +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "Status"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "status") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"Status"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"status") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Repeated - (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "ConsensusBlock"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "blocks") - [] - "")] - -instance HsJSONPB.ToJSONPB ConsensusBlocksGetResponse where - toJSONPB :: ConsensusBlocksGetResponse -> Options -> Value -toJSONPB (ConsensusBlocksGetResponse f1 :: Enumerated ConsensusBlocksGetResponse_Status -f1 f2 :: Vector ConsensusBlock -f2) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["status" Text +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Repeated + (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"ConsensusBlock"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"blocks") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ConsensusBlocksGetResponse where + toJSONPB :: ConsensusBlocksGetResponse -> Options -> Value +toJSONPB (ConsensusBlocksGetResponse Enumerated ConsensusBlocksGetResponse_Status +f1 Vector ConsensusBlock +f2) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"status" Text -> Enumerated ConsensusBlocksGetResponse_Status -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated ConsensusBlocksGetResponse_Status -f1, "blocks" Text -> Vector ConsensusBlock -> Options -> [Pair] +.= Enumerated ConsensusBlocksGetResponse_Status +f1, Text +"blocks" Text -> Vector ConsensusBlock -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector ConsensusBlock -f2]) - toEncodingPB :: ConsensusBlocksGetResponse -> Options -> Encoding -toEncodingPB (ConsensusBlocksGetResponse f1 :: Enumerated ConsensusBlocksGetResponse_Status -f1 f2 :: Vector ConsensusBlock -f2) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["status" Text +.= Vector ConsensusBlock +f2]) + toEncodingPB :: ConsensusBlocksGetResponse -> Options -> Encoding +toEncodingPB (ConsensusBlocksGetResponse Enumerated ConsensusBlocksGetResponse_Status +f1 Vector ConsensusBlock +f2) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"status" Text -> Enumerated ConsensusBlocksGetResponse_Status -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated ConsensusBlocksGetResponse_Status -f1, "blocks" Text -> Vector ConsensusBlock -> Options -> Series +.= Enumerated ConsensusBlocksGetResponse_Status +f1, Text +"blocks" Text -> Vector ConsensusBlock -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector ConsensusBlock -f2]) - -instance HsJSONPB.FromJSONPB ConsensusBlocksGetResponse where - parseJSONPB :: Value -> Parser ConsensusBlocksGetResponse -parseJSONPB - = (String +.= Vector ConsensusBlock +f2]) + +instance HsJSONPB.FromJSONPB ConsensusBlocksGetResponse where + parseJSONPB :: Value -> Parser ConsensusBlocksGetResponse +parseJSONPB + = (String -> (Object -> Parser ConsensusBlocksGetResponse) -> Value -> Parser ConsensusBlocksGetResponse forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ConsensusBlocksGetResponse" - (\ obj :: Object -obj -> - ((Enumerated ConsensusBlocksGetResponse_Status +HsJSONPB.withObject String +"ConsensusBlocksGetResponse" + (\ Object +obj -> + ((Enumerated ConsensusBlocksGetResponse_Status -> Vector ConsensusBlock -> ConsensusBlocksGetResponse) -> Parser (Enumerated ConsensusBlocksGetResponse_Status -> Vector ConsensusBlock -> ConsensusBlocksGetResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ConsensusBlocksGetResponse_Status +Hs.pure Enumerated ConsensusBlocksGetResponse_Status -> Vector ConsensusBlock -> ConsensusBlocksGetResponse ConsensusBlocksGetResponse) Parser (Enumerated ConsensusBlocksGetResponse_Status @@ -18245,84 +19446,87 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Parser (Enumerated ConsensusBlocksGetResponse_Status) -> Parser (Vector ConsensusBlock -> ConsensusBlocksGetResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object +<*> Object +obj Object -> Text -> Parser (Enumerated ConsensusBlocksGetResponse_Status) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "status" Parser (Vector ConsensusBlock -> ConsensusBlocksGetResponse) +.: Text +"status" Parser (Vector ConsensusBlock -> ConsensusBlocksGetResponse) -> Parser (Vector ConsensusBlock) -> Parser ConsensusBlocksGetResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser (Vector ConsensusBlock) +<*> + Object +obj Object -> Text -> Parser (Vector ConsensusBlock) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "blocks")) - -instance HsJSONPB.ToJSON ConsensusBlocksGetResponse where - toJSON :: ConsensusBlocksGetResponse -> Value -toJSON = ConsensusBlocksGetResponse -> Value +.: Text +"blocks")) + +instance HsJSONPB.ToJSON ConsensusBlocksGetResponse where + toJSON :: ConsensusBlocksGetResponse -> Value +toJSON = ConsensusBlocksGetResponse -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ConsensusBlocksGetResponse -> Encoding -toEncoding = ConsensusBlocksGetResponse -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ConsensusBlocksGetResponse -> Encoding +toEncoding = ConsensusBlocksGetResponse -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ConsensusBlocksGetResponse where - parseJSON :: Value -> Parser ConsensusBlocksGetResponse -parseJSON = Value -> Parser ConsensusBlocksGetResponse +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ConsensusBlocksGetResponse where + parseJSON :: Value -> Parser ConsensusBlocksGetResponse +parseJSON = Value -> Parser ConsensusBlocksGetResponse forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ConsensusBlocksGetResponse where - declareNamedSchema :: Proxy ConsensusBlocksGetResponse +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ConsensusBlocksGetResponse where + declareNamedSchema :: Proxy ConsensusBlocksGetResponse -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_status :: Proxy +declareNamedSchema Proxy ConsensusBlocksGetResponse +_ + = do let declare_status :: Proxy (OverrideToSchema (Enumerated ConsensusBlocksGetResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status = Proxy +declare_status = Proxy (OverrideToSchema (Enumerated ConsensusBlocksGetResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -consensusBlocksGetResponseStatus <- Proxy +HsJSONPB.declareSchemaRef + Referenced Schema +consensusBlocksGetResponseStatus <- Proxy (OverrideToSchema (Enumerated ConsensusBlocksGetResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status Proxy +declare_status Proxy (OverrideToSchema (Enumerated ConsensusBlocksGetResponse_Status)) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_blocks :: Proxy (OverrideToSchema (Vector ConsensusBlock)) +Proxy.Proxy + let declare_blocks :: Proxy (OverrideToSchema (Vector ConsensusBlock)) -> Declare (Definitions Schema) (Referenced Schema) -declare_blocks = Proxy (OverrideToSchema (Vector ConsensusBlock)) +declare_blocks = Proxy (OverrideToSchema (Vector ConsensusBlock)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -consensusBlocksGetResponseBlocks <- Proxy (OverrideToSchema (Vector ConsensusBlock)) +HsJSONPB.declareSchemaRef + Referenced Schema +consensusBlocksGetResponseBlocks <- Proxy (OverrideToSchema (Vector ConsensusBlock)) -> Declare (Definitions Schema) (Referenced Schema) -declare_blocks Proxy (OverrideToSchema (Vector ConsensusBlock)) +declare_blocks Proxy (OverrideToSchema (Vector ConsensusBlock)) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ConsensusBlocksGetResponse +Proxy.Proxy + let Proxy ConsensusBlocksGetResponse _ = (Enumerated ConsensusBlocksGetResponse_Status -> Vector ConsensusBlock -> ConsensusBlocksGetResponse) -> Proxy (Enumerated ConsensusBlocksGetResponse_Status -> Vector ConsensusBlock -> ConsensusBlocksGetResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ConsensusBlocksGetResponse_Status +Hs.pure Enumerated ConsensusBlocksGetResponse_Status -> Vector ConsensusBlock -> ConsensusBlocksGetResponse ConsensusBlocksGetResponse Proxy (Enumerated ConsensusBlocksGetResponse_Status @@ -18330,72 +19534,75 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Proxy (Enumerated ConsensusBlocksGetResponse_Status) -> Proxy (Vector ConsensusBlock -> ConsensusBlocksGetResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy +<*> + (Proxy (OverrideToSchema (Enumerated ConsensusBlocksGetResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Enumerated ConsensusBlocksGetResponse_Status) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy +HsJSONPB.asProxy Proxy (OverrideToSchema (Enumerated ConsensusBlocksGetResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status - Proxy (Vector ConsensusBlock -> ConsensusBlocksGetResponse) +declare_status + Proxy (Vector ConsensusBlock -> ConsensusBlocksGetResponse) -> Proxy (Vector ConsensusBlock) -> Proxy ConsensusBlocksGetResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema (Vector ConsensusBlock)) +<*> (Proxy (OverrideToSchema (Vector ConsensusBlock)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Vector ConsensusBlock) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Vector ConsensusBlock)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Vector ConsensusBlock)) -> Declare (Definitions Schema) (Referenced Schema) -declare_blocks - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_blocks + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ConsensusBlocksGetResponse", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ConsensusBlocksGetResponse", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("status", - Referenced Schema -consensusBlocksGetResponseStatus), - ("blocks", - Referenced Schema -consensusBlocksGetResponseBlocks)]}}) - -data ConsensusBlocksGetResponse_Status = ConsensusBlocksGetResponse_StatusSTATUS_UNSET - | ConsensusBlocksGetResponse_StatusOK - | ConsensusBlocksGetResponse_StatusBAD_REQUEST - | ConsensusBlocksGetResponse_StatusSERVICE_ERROR - | ConsensusBlocksGetResponse_StatusNOT_READY - | ConsensusBlocksGetResponse_StatusUNKNOWN_BLOCK - | ConsensusBlocksGetResponse_StatusNOT_ACTIVE_ENGINE - deriving (Int -> ConsensusBlocksGetResponse_Status -> ShowS +HsJSONPB.insOrdFromList + [(Text +"status", + Referenced Schema +consensusBlocksGetResponseStatus), + (Text +"blocks", + Referenced Schema +consensusBlocksGetResponseBlocks)]}}) + +data ConsensusBlocksGetResponse_Status = ConsensusBlocksGetResponse_StatusSTATUS_UNSET + | ConsensusBlocksGetResponse_StatusOK + | ConsensusBlocksGetResponse_StatusBAD_REQUEST + | ConsensusBlocksGetResponse_StatusSERVICE_ERROR + | ConsensusBlocksGetResponse_StatusNOT_READY + | ConsensusBlocksGetResponse_StatusUNKNOWN_BLOCK + | ConsensusBlocksGetResponse_StatusNOT_ACTIVE_ENGINE + deriving (Int -> ConsensusBlocksGetResponse_Status -> ShowS [ConsensusBlocksGetResponse_Status] -> ShowS ConsensusBlocksGetResponse_Status -> String (Int -> ConsensusBlocksGetResponse_Status -> ShowS) @@ -18410,7 +19617,7 @@ show :: ConsensusBlocksGetResponse_Status -> String $cshow :: ConsensusBlocksGetResponse_Status -> String showsPrec :: Int -> ConsensusBlocksGetResponse_Status -> ShowS $cshowsPrec :: Int -> ConsensusBlocksGetResponse_Status -> ShowS -Hs.Show, ConsensusBlocksGetResponse_Status +Hs.Show, ConsensusBlocksGetResponse_Status -> ConsensusBlocksGetResponse_Status -> Bool (ConsensusBlocksGetResponse_Status -> ConsensusBlocksGetResponse_Status -> Bool) @@ -18426,7 +19633,7 @@ $c/= :: ConsensusBlocksGetResponse_Status -> ConsensusBlocksGetResponse_Status -> Bool $c== :: ConsensusBlocksGetResponse_Status -> ConsensusBlocksGetResponse_Status -> Bool -Hs.Eq, (forall x. +Hs.Eq, (forall x. ConsensusBlocksGetResponse_Status -> Rep ConsensusBlocksGetResponse_Status x) -> (forall x. @@ -18447,197 +19654,224 @@ Rep ConsensusBlocksGetResponse_Status x $cfrom :: forall x. ConsensusBlocksGetResponse_Status -> Rep ConsensusBlocksGetResponse_Status x -Hs.Generic, ConsensusBlocksGetResponse_Status -> () +Hs.Generic, ConsensusBlocksGetResponse_Status -> () (ConsensusBlocksGetResponse_Status -> ()) -> NFData ConsensusBlocksGetResponse_Status forall a. (a -> ()) -> NFData a rnf :: ConsensusBlocksGetResponse_Status -> () $crnf :: ConsensusBlocksGetResponse_Status -> () -Hs.NFData) - -instance HsProtobuf.Named ConsensusBlocksGetResponse_Status where - nameOf :: Proxy# ConsensusBlocksGetResponse_Status -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ConsensusBlocksGetResponse_Status where + nameOf :: Proxy# ConsensusBlocksGetResponse_Status -> string +nameOf Proxy# ConsensusBlocksGetResponse_Status +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ConsensusBlocksGetResponse_Status") - -instance HsProtobuf.HasDefault ConsensusBlocksGetResponse_Status - -instance Hs.Bounded ConsensusBlocksGetResponse_Status where - minBound :: ConsensusBlocksGetResponse_Status -minBound = ConsensusBlocksGetResponse_Status +Hs.fromString String +"ConsensusBlocksGetResponse_Status") + +instance HsProtobuf.HasDefault ConsensusBlocksGetResponse_Status + +instance Hs.Bounded ConsensusBlocksGetResponse_Status where + minBound :: ConsensusBlocksGetResponse_Status +minBound = ConsensusBlocksGetResponse_Status ConsensusBlocksGetResponse_StatusSTATUS_UNSET - maxBound :: ConsensusBlocksGetResponse_Status -maxBound = ConsensusBlocksGetResponse_Status + maxBound :: ConsensusBlocksGetResponse_Status +maxBound = ConsensusBlocksGetResponse_Status ConsensusBlocksGetResponse_StatusNOT_ACTIVE_ENGINE - -instance Hs.Ord ConsensusBlocksGetResponse_Status where - compare :: ConsensusBlocksGetResponse_Status + +instance Hs.Ord ConsensusBlocksGetResponse_Status where + compare :: ConsensusBlocksGetResponse_Status -> ConsensusBlocksGetResponse_Status -> Ordering -compare x :: ConsensusBlocksGetResponse_Status -x y :: ConsensusBlocksGetResponse_Status -y - = Int32 -> Int32 -> Ordering +compare ConsensusBlocksGetResponse_Status +x ConsensusBlocksGetResponse_Status +y + = Int32 -> Int32 -> Ordering forall a. Ord a => a -> a -> Ordering -Hs.compare (ConsensusBlocksGetResponse_Status -> Int32 +Hs.compare (ConsensusBlocksGetResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum ConsensusBlocksGetResponse_Status -x) - (ConsensusBlocksGetResponse_Status -> Int32 +HsProtobuf.fromProtoEnum ConsensusBlocksGetResponse_Status +x) + (ConsensusBlocksGetResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum ConsensusBlocksGetResponse_Status -y) - -instance HsProtobuf.ProtoEnum ConsensusBlocksGetResponse_Status - where - toProtoEnumMay :: Int32 -> Maybe ConsensusBlocksGetResponse_Status -toProtoEnumMay 0 - = ConsensusBlocksGetResponse_Status +HsProtobuf.fromProtoEnum ConsensusBlocksGetResponse_Status +y) + +instance HsProtobuf.ProtoEnum ConsensusBlocksGetResponse_Status + where + toProtoEnumMay :: Int32 -> Maybe ConsensusBlocksGetResponse_Status +toProtoEnumMay Int32 +0 + = ConsensusBlocksGetResponse_Status -> Maybe ConsensusBlocksGetResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusBlocksGetResponse_Status +Hs.Just ConsensusBlocksGetResponse_Status ConsensusBlocksGetResponse_StatusSTATUS_UNSET - toProtoEnumMay 1 = ConsensusBlocksGetResponse_Status + toProtoEnumMay Int32 +1 = ConsensusBlocksGetResponse_Status -> Maybe ConsensusBlocksGetResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusBlocksGetResponse_Status +Hs.Just ConsensusBlocksGetResponse_Status ConsensusBlocksGetResponse_StatusOK - toProtoEnumMay 2 - = ConsensusBlocksGetResponse_Status + toProtoEnumMay Int32 +2 + = ConsensusBlocksGetResponse_Status -> Maybe ConsensusBlocksGetResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusBlocksGetResponse_Status +Hs.Just ConsensusBlocksGetResponse_Status ConsensusBlocksGetResponse_StatusBAD_REQUEST - toProtoEnumMay 3 - = ConsensusBlocksGetResponse_Status + toProtoEnumMay Int32 +3 + = ConsensusBlocksGetResponse_Status -> Maybe ConsensusBlocksGetResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusBlocksGetResponse_Status +Hs.Just ConsensusBlocksGetResponse_Status ConsensusBlocksGetResponse_StatusSERVICE_ERROR - toProtoEnumMay 4 - = ConsensusBlocksGetResponse_Status + toProtoEnumMay Int32 +4 + = ConsensusBlocksGetResponse_Status -> Maybe ConsensusBlocksGetResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusBlocksGetResponse_Status +Hs.Just ConsensusBlocksGetResponse_Status ConsensusBlocksGetResponse_StatusNOT_READY - toProtoEnumMay 5 - = ConsensusBlocksGetResponse_Status + toProtoEnumMay Int32 +5 + = ConsensusBlocksGetResponse_Status -> Maybe ConsensusBlocksGetResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusBlocksGetResponse_Status +Hs.Just ConsensusBlocksGetResponse_Status ConsensusBlocksGetResponse_StatusUNKNOWN_BLOCK - toProtoEnumMay 6 - = ConsensusBlocksGetResponse_Status + toProtoEnumMay Int32 +6 + = ConsensusBlocksGetResponse_Status -> Maybe ConsensusBlocksGetResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusBlocksGetResponse_Status +Hs.Just ConsensusBlocksGetResponse_Status ConsensusBlocksGetResponse_StatusNOT_ACTIVE_ENGINE - toProtoEnumMay _ = Maybe ConsensusBlocksGetResponse_Status + toProtoEnumMay Int32 +_ = Maybe ConsensusBlocksGetResponse_Status forall a. Maybe a -Hs.Nothing - fromProtoEnum :: ConsensusBlocksGetResponse_Status -> Int32 -fromProtoEnum (ConsensusBlocksGetResponse_Status -ConsensusBlocksGetResponse_StatusSTATUS_UNSET) = 0 - fromProtoEnum (ConsensusBlocksGetResponse_Status -ConsensusBlocksGetResponse_StatusOK) = 1 - fromProtoEnum (ConsensusBlocksGetResponse_Status -ConsensusBlocksGetResponse_StatusBAD_REQUEST) = 2 - fromProtoEnum (ConsensusBlocksGetResponse_Status -ConsensusBlocksGetResponse_StatusSERVICE_ERROR) = 3 - fromProtoEnum (ConsensusBlocksGetResponse_Status -ConsensusBlocksGetResponse_StatusNOT_READY) = 4 - fromProtoEnum (ConsensusBlocksGetResponse_Status -ConsensusBlocksGetResponse_StatusUNKNOWN_BLOCK) = 5 - fromProtoEnum (ConsensusBlocksGetResponse_Status +Hs.Nothing + fromProtoEnum :: ConsensusBlocksGetResponse_Status -> Int32 +fromProtoEnum (ConsensusBlocksGetResponse_Status +ConsensusBlocksGetResponse_StatusSTATUS_UNSET) = Int32 +0 + fromProtoEnum (ConsensusBlocksGetResponse_Status +ConsensusBlocksGetResponse_StatusOK) = Int32 +1 + fromProtoEnum (ConsensusBlocksGetResponse_Status +ConsensusBlocksGetResponse_StatusBAD_REQUEST) = Int32 +2 + fromProtoEnum (ConsensusBlocksGetResponse_Status +ConsensusBlocksGetResponse_StatusSERVICE_ERROR) = Int32 +3 + fromProtoEnum (ConsensusBlocksGetResponse_Status +ConsensusBlocksGetResponse_StatusNOT_READY) = Int32 +4 + fromProtoEnum (ConsensusBlocksGetResponse_Status +ConsensusBlocksGetResponse_StatusUNKNOWN_BLOCK) = Int32 +5 + fromProtoEnum (ConsensusBlocksGetResponse_Status ConsensusBlocksGetResponse_StatusNOT_ACTIVE_ENGINE) - = 6 - -instance HsJSONPB.ToJSONPB ConsensusBlocksGetResponse_Status where - toJSONPB :: ConsensusBlocksGetResponse_Status -> Options -> Value -toJSONPB x :: ConsensusBlocksGetResponse_Status -x _ = ConsensusBlocksGetResponse_Status -> Value + = Int32 +6 + +instance HsJSONPB.ToJSONPB ConsensusBlocksGetResponse_Status where + toJSONPB :: ConsensusBlocksGetResponse_Status -> Options -> Value +toJSONPB ConsensusBlocksGetResponse_Status +x Options +_ = ConsensusBlocksGetResponse_Status -> Value forall a. (Named a, Show a) => a -> Value -HsJSONPB.enumFieldString ConsensusBlocksGetResponse_Status -x - toEncodingPB :: ConsensusBlocksGetResponse_Status -> Options -> Encoding -toEncodingPB x :: ConsensusBlocksGetResponse_Status -x _ = ConsensusBlocksGetResponse_Status -> Encoding +HsJSONPB.enumFieldString ConsensusBlocksGetResponse_Status +x + toEncodingPB :: ConsensusBlocksGetResponse_Status -> Options -> Encoding +toEncodingPB ConsensusBlocksGetResponse_Status +x Options +_ = ConsensusBlocksGetResponse_Status -> Encoding forall a. (Named a, Show a) => a -> Encoding -HsJSONPB.enumFieldEncoding ConsensusBlocksGetResponse_Status -x - -instance HsJSONPB.FromJSONPB ConsensusBlocksGetResponse_Status - where - parseJSONPB :: Value -> Parser ConsensusBlocksGetResponse_Status -parseJSONPB (HsJSONPB.String "STATUS_UNSET") - = ConsensusBlocksGetResponse_Status +HsJSONPB.enumFieldEncoding ConsensusBlocksGetResponse_Status +x + +instance HsJSONPB.FromJSONPB ConsensusBlocksGetResponse_Status + where + parseJSONPB :: Value -> Parser ConsensusBlocksGetResponse_Status +parseJSONPB (HsJSONPB.String Text +"STATUS_UNSET") + = ConsensusBlocksGetResponse_Status -> Parser ConsensusBlocksGetResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusBlocksGetResponse_Status +Hs.pure ConsensusBlocksGetResponse_Status ConsensusBlocksGetResponse_StatusSTATUS_UNSET - parseJSONPB (HsJSONPB.String "OK") - = ConsensusBlocksGetResponse_Status + parseJSONPB (HsJSONPB.String Text +"OK") + = ConsensusBlocksGetResponse_Status -> Parser ConsensusBlocksGetResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusBlocksGetResponse_Status +Hs.pure ConsensusBlocksGetResponse_Status ConsensusBlocksGetResponse_StatusOK - parseJSONPB (HsJSONPB.String "BAD_REQUEST") - = ConsensusBlocksGetResponse_Status + parseJSONPB (HsJSONPB.String Text +"BAD_REQUEST") + = ConsensusBlocksGetResponse_Status -> Parser ConsensusBlocksGetResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusBlocksGetResponse_Status +Hs.pure ConsensusBlocksGetResponse_Status ConsensusBlocksGetResponse_StatusBAD_REQUEST - parseJSONPB (HsJSONPB.String "SERVICE_ERROR") - = ConsensusBlocksGetResponse_Status + parseJSONPB (HsJSONPB.String Text +"SERVICE_ERROR") + = ConsensusBlocksGetResponse_Status -> Parser ConsensusBlocksGetResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusBlocksGetResponse_Status +Hs.pure ConsensusBlocksGetResponse_Status ConsensusBlocksGetResponse_StatusSERVICE_ERROR - parseJSONPB (HsJSONPB.String "NOT_READY") - = ConsensusBlocksGetResponse_Status + parseJSONPB (HsJSONPB.String Text +"NOT_READY") + = ConsensusBlocksGetResponse_Status -> Parser ConsensusBlocksGetResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusBlocksGetResponse_Status +Hs.pure ConsensusBlocksGetResponse_Status ConsensusBlocksGetResponse_StatusNOT_READY - parseJSONPB (HsJSONPB.String "UNKNOWN_BLOCK") - = ConsensusBlocksGetResponse_Status + parseJSONPB (HsJSONPB.String Text +"UNKNOWN_BLOCK") + = ConsensusBlocksGetResponse_Status -> Parser ConsensusBlocksGetResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusBlocksGetResponse_Status +Hs.pure ConsensusBlocksGetResponse_Status ConsensusBlocksGetResponse_StatusUNKNOWN_BLOCK - parseJSONPB (HsJSONPB.String "NOT_ACTIVE_ENGINE") - = ConsensusBlocksGetResponse_Status + parseJSONPB (HsJSONPB.String Text +"NOT_ACTIVE_ENGINE") + = ConsensusBlocksGetResponse_Status -> Parser ConsensusBlocksGetResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusBlocksGetResponse_Status +Hs.pure ConsensusBlocksGetResponse_Status ConsensusBlocksGetResponse_StatusNOT_ACTIVE_ENGINE - parseJSONPB v :: Value -v - = (String -> Value -> Parser ConsensusBlocksGetResponse_Status + parseJSONPB Value +v + = (String -> Value -> Parser ConsensusBlocksGetResponse_Status forall a. String -> Value -> Parser a -HsJSONPB.typeMismatch "ConsensusBlocksGetResponse_Status" Value -v) - -instance HsJSONPB.ToJSON ConsensusBlocksGetResponse_Status where - toJSON :: ConsensusBlocksGetResponse_Status -> Value -toJSON = ConsensusBlocksGetResponse_Status -> Value +HsJSONPB.typeMismatch String +"ConsensusBlocksGetResponse_Status" Value +v) + +instance HsJSONPB.ToJSON ConsensusBlocksGetResponse_Status where + toJSON :: ConsensusBlocksGetResponse_Status -> Value +toJSON = ConsensusBlocksGetResponse_Status -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ConsensusBlocksGetResponse_Status -> Encoding -toEncoding = ConsensusBlocksGetResponse_Status -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ConsensusBlocksGetResponse_Status -> Encoding +toEncoding = ConsensusBlocksGetResponse_Status -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ConsensusBlocksGetResponse_Status where - parseJSON :: Value -> Parser ConsensusBlocksGetResponse_Status -parseJSON = Value -> Parser ConsensusBlocksGetResponse_Status +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ConsensusBlocksGetResponse_Status where + parseJSON :: Value -> Parser ConsensusBlocksGetResponse_Status +parseJSON = Value -> Parser ConsensusBlocksGetResponse_Status forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsProtobuf.Finite ConsensusBlocksGetResponse_Status - -data ConsensusChainHeadGetRequest = ConsensusChainHeadGetRequest{} - deriving (Int -> ConsensusChainHeadGetRequest -> ShowS +HsJSONPB.parseJSONPB + +instance HsProtobuf.Finite ConsensusBlocksGetResponse_Status + +data ConsensusChainHeadGetRequest = ConsensusChainHeadGetRequest{} + deriving (Int -> ConsensusChainHeadGetRequest -> ShowS [ConsensusChainHeadGetRequest] -> ShowS ConsensusChainHeadGetRequest -> String (Int -> ConsensusChainHeadGetRequest -> ShowS) @@ -18652,7 +19886,7 @@ show :: ConsensusChainHeadGetRequest -> String $cshow :: ConsensusChainHeadGetRequest -> String showsPrec :: Int -> ConsensusChainHeadGetRequest -> ShowS $cshowsPrec :: Int -> ConsensusChainHeadGetRequest -> ShowS -Hs.Show, ConsensusChainHeadGetRequest +Hs.Show, ConsensusChainHeadGetRequest -> ConsensusChainHeadGetRequest -> Bool (ConsensusChainHeadGetRequest -> ConsensusChainHeadGetRequest -> Bool) @@ -18668,10 +19902,10 @@ $c/= :: ConsensusChainHeadGetRequest -> ConsensusChainHeadGetRequest -> Bool $c== :: ConsensusChainHeadGetRequest -> ConsensusChainHeadGetRequest -> Bool -Hs.Eq, Eq ConsensusChainHeadGetRequest -Eq ConsensusChainHeadGetRequest => -(ConsensusChainHeadGetRequest - -> ConsensusChainHeadGetRequest -> Ordering) +Hs.Eq, Eq ConsensusChainHeadGetRequest +Eq ConsensusChainHeadGetRequest +-> (ConsensusChainHeadGetRequest + -> ConsensusChainHeadGetRequest -> Ordering) -> (ConsensusChainHeadGetRequest -> ConsensusChainHeadGetRequest -> Bool) -> (ConsensusChainHeadGetRequest @@ -18692,8 +19926,8 @@ ConsensusChainHeadGetRequest ConsensusChainHeadGetRequest -> ConsensusChainHeadGetRequest -> ConsensusChainHeadGetRequest forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -18730,7 +19964,7 @@ compare :: ConsensusChainHeadGetRequest $ccompare :: ConsensusChainHeadGetRequest -> ConsensusChainHeadGetRequest -> Ordering $cp1Ord :: Eq ConsensusChainHeadGetRequest -Hs.Ord, (forall x. +Hs.Ord, (forall x. ConsensusChainHeadGetRequest -> Rep ConsensusChainHeadGetRequest x) -> (forall x. Rep ConsensusChainHeadGetRequest x -> ConsensusChainHeadGetRequest) @@ -18745,124 +19979,132 @@ $cto :: forall x. Rep ConsensusChainHeadGetRequest x -> ConsensusChainHeadGetRequest $cfrom :: forall x. ConsensusChainHeadGetRequest -> Rep ConsensusChainHeadGetRequest x -Hs.Generic, ConsensusChainHeadGetRequest -> () +Hs.Generic, ConsensusChainHeadGetRequest -> () (ConsensusChainHeadGetRequest -> ()) -> NFData ConsensusChainHeadGetRequest forall a. (a -> ()) -> NFData a rnf :: ConsensusChainHeadGetRequest -> () $crnf :: ConsensusChainHeadGetRequest -> () -Hs.NFData) - -instance HsProtobuf.Named ConsensusChainHeadGetRequest where - nameOf :: Proxy# ConsensusChainHeadGetRequest -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ConsensusChainHeadGetRequest where + nameOf :: Proxy# ConsensusChainHeadGetRequest -> string +nameOf Proxy# ConsensusChainHeadGetRequest +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ConsensusChainHeadGetRequest") - -instance HsProtobuf.HasDefault ConsensusChainHeadGetRequest - -instance HsProtobuf.Message ConsensusChainHeadGetRequest where - encodeMessage :: FieldNumber -> ConsensusChainHeadGetRequest -> MessageBuilder -encodeMessage _ ConsensusChainHeadGetRequest{} = ([MessageBuilder] -> MessageBuilder +Hs.fromString String +"ConsensusChainHeadGetRequest") + +instance HsProtobuf.HasDefault ConsensusChainHeadGetRequest + +instance HsProtobuf.Message ConsensusChainHeadGetRequest where + encodeMessage :: FieldNumber -> ConsensusChainHeadGetRequest -> MessageBuilder +encodeMessage FieldNumber +_ ConsensusChainHeadGetRequest{} = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat []) - decodeMessage :: FieldNumber -> Parser RawMessage ConsensusChainHeadGetRequest -decodeMessage _ = (ConsensusChainHeadGetRequest +Hs.mconcat []) + decodeMessage :: FieldNumber -> Parser RawMessage ConsensusChainHeadGetRequest +decodeMessage FieldNumber +_ = (ConsensusChainHeadGetRequest -> Parser RawMessage ConsensusChainHeadGetRequest forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusChainHeadGetRequest +Hs.pure ConsensusChainHeadGetRequest ConsensusChainHeadGetRequest) - dotProto :: Proxy# ConsensusChainHeadGetRequest -> [DotProtoField] -dotProto _ = [] - -instance HsJSONPB.ToJSONPB ConsensusChainHeadGetRequest where - toJSONPB :: ConsensusChainHeadGetRequest -> Options -> Value -toJSONPB (ConsensusChainHeadGetRequest + dotProto :: Proxy# ConsensusChainHeadGetRequest -> [DotProtoField] +dotProto Proxy# ConsensusChainHeadGetRequest +_ = [] + +instance HsJSONPB.ToJSONPB ConsensusChainHeadGetRequest where + toJSONPB :: ConsensusChainHeadGetRequest -> Options -> Value +toJSONPB (ConsensusChainHeadGetRequest ConsensusChainHeadGetRequest) = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object []) - toEncodingPB :: ConsensusChainHeadGetRequest -> Options -> Encoding -toEncodingPB (ConsensusChainHeadGetRequest +HsJSONPB.object []) + toEncodingPB :: ConsensusChainHeadGetRequest -> Options -> Encoding +toEncodingPB (ConsensusChainHeadGetRequest ConsensusChainHeadGetRequest) = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs []) - -instance HsJSONPB.FromJSONPB ConsensusChainHeadGetRequest where - parseJSONPB :: Value -> Parser ConsensusChainHeadGetRequest -parseJSONPB - = (String +HsJSONPB.pairs []) + +instance HsJSONPB.FromJSONPB ConsensusChainHeadGetRequest where + parseJSONPB :: Value -> Parser ConsensusChainHeadGetRequest +parseJSONPB + = (String -> (Object -> Parser ConsensusChainHeadGetRequest) -> Value -> Parser ConsensusChainHeadGetRequest forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ConsensusChainHeadGetRequest" - (\ obj :: Object -obj -> (ConsensusChainHeadGetRequest -> Parser ConsensusChainHeadGetRequest +HsJSONPB.withObject String +"ConsensusChainHeadGetRequest" + (\ Object +obj -> (ConsensusChainHeadGetRequest -> Parser ConsensusChainHeadGetRequest forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusChainHeadGetRequest +Hs.pure ConsensusChainHeadGetRequest ConsensusChainHeadGetRequest))) - -instance HsJSONPB.ToJSON ConsensusChainHeadGetRequest where - toJSON :: ConsensusChainHeadGetRequest -> Value -toJSON = ConsensusChainHeadGetRequest -> Value + +instance HsJSONPB.ToJSON ConsensusChainHeadGetRequest where + toJSON :: ConsensusChainHeadGetRequest -> Value +toJSON = ConsensusChainHeadGetRequest -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ConsensusChainHeadGetRequest -> Encoding -toEncoding = ConsensusChainHeadGetRequest -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ConsensusChainHeadGetRequest -> Encoding +toEncoding = ConsensusChainHeadGetRequest -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ConsensusChainHeadGetRequest where - parseJSON :: Value -> Parser ConsensusChainHeadGetRequest -parseJSON = Value -> Parser ConsensusChainHeadGetRequest +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ConsensusChainHeadGetRequest where + parseJSON :: Value -> Parser ConsensusChainHeadGetRequest +parseJSON = Value -> Parser ConsensusChainHeadGetRequest forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ConsensusChainHeadGetRequest where - declareNamedSchema :: Proxy ConsensusChainHeadGetRequest +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ConsensusChainHeadGetRequest where + declareNamedSchema :: Proxy ConsensusChainHeadGetRequest -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do NamedSchema -> Declare (Definitions Schema) NamedSchema +declareNamedSchema Proxy ConsensusChainHeadGetRequest +_ + = do NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ConsensusChainHeadGetRequest", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ConsensusChainHeadGetRequest", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList []}}) - -data ConsensusChainHeadGetResponse = ConsensusChainHeadGetResponse{ConsensusChainHeadGetResponse +HsJSONPB.insOrdFromList []}}) + +data ConsensusChainHeadGetResponse = ConsensusChainHeadGetResponse{ConsensusChainHeadGetResponse -> Enumerated ConsensusChainHeadGetResponse_Status consensusChainHeadGetResponseStatus - :: - HsProtobuf.Enumerated - Data.Sawtooth.Consensus.ConsensusChainHeadGetResponse_Status, - ConsensusChainHeadGetResponse -> Maybe ConsensusBlock + :: + HsProtobuf.Enumerated + Data.Sawtooth.Consensus.ConsensusChainHeadGetResponse_Status, + ConsensusChainHeadGetResponse -> Maybe ConsensusBlock consensusChainHeadGetResponseBlock - :: - Hs.Maybe - Data.Sawtooth.Consensus.ConsensusBlock} - deriving (Int -> ConsensusChainHeadGetResponse -> ShowS + :: + Hs.Maybe + Data.Sawtooth.Consensus.ConsensusBlock} + deriving (Int -> ConsensusChainHeadGetResponse -> ShowS [ConsensusChainHeadGetResponse] -> ShowS ConsensusChainHeadGetResponse -> String (Int -> ConsensusChainHeadGetResponse -> ShowS) @@ -18877,7 +20119,7 @@ show :: ConsensusChainHeadGetResponse -> String $cshow :: ConsensusChainHeadGetResponse -> String showsPrec :: Int -> ConsensusChainHeadGetResponse -> ShowS $cshowsPrec :: Int -> ConsensusChainHeadGetResponse -> ShowS -Hs.Show, ConsensusChainHeadGetResponse +Hs.Show, ConsensusChainHeadGetResponse -> ConsensusChainHeadGetResponse -> Bool (ConsensusChainHeadGetResponse -> ConsensusChainHeadGetResponse -> Bool) @@ -18893,10 +20135,10 @@ $c/= :: ConsensusChainHeadGetResponse -> ConsensusChainHeadGetResponse -> Bool $c== :: ConsensusChainHeadGetResponse -> ConsensusChainHeadGetResponse -> Bool -Hs.Eq, Eq ConsensusChainHeadGetResponse -Eq ConsensusChainHeadGetResponse => -(ConsensusChainHeadGetResponse - -> ConsensusChainHeadGetResponse -> Ordering) +Hs.Eq, Eq ConsensusChainHeadGetResponse +Eq ConsensusChainHeadGetResponse +-> (ConsensusChainHeadGetResponse + -> ConsensusChainHeadGetResponse -> Ordering) -> (ConsensusChainHeadGetResponse -> ConsensusChainHeadGetResponse -> Bool) -> (ConsensusChainHeadGetResponse @@ -18917,8 +20159,8 @@ ConsensusChainHeadGetResponse ConsensusChainHeadGetResponse -> ConsensusChainHeadGetResponse -> ConsensusChainHeadGetResponse forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -18955,7 +20197,7 @@ compare :: ConsensusChainHeadGetResponse $ccompare :: ConsensusChainHeadGetResponse -> ConsensusChainHeadGetResponse -> Ordering $cp1Ord :: Eq ConsensusChainHeadGetResponse -Hs.Ord, (forall x. +Hs.Ord, (forall x. ConsensusChainHeadGetResponse -> Rep ConsensusChainHeadGetResponse x) -> (forall x. @@ -18976,65 +20218,70 @@ Rep ConsensusChainHeadGetResponse x $cfrom :: forall x. ConsensusChainHeadGetResponse -> Rep ConsensusChainHeadGetResponse x -Hs.Generic, ConsensusChainHeadGetResponse -> () +Hs.Generic, ConsensusChainHeadGetResponse -> () (ConsensusChainHeadGetResponse -> ()) -> NFData ConsensusChainHeadGetResponse forall a. (a -> ()) -> NFData a rnf :: ConsensusChainHeadGetResponse -> () $crnf :: ConsensusChainHeadGetResponse -> () -Hs.NFData) - -instance HsProtobuf.Named ConsensusChainHeadGetResponse where - nameOf :: Proxy# ConsensusChainHeadGetResponse -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ConsensusChainHeadGetResponse where + nameOf :: Proxy# ConsensusChainHeadGetResponse -> string +nameOf Proxy# ConsensusChainHeadGetResponse +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ConsensusChainHeadGetResponse") - -instance HsProtobuf.HasDefault ConsensusChainHeadGetResponse - -instance HsProtobuf.Message ConsensusChainHeadGetResponse where - encodeMessage :: FieldNumber -> ConsensusChainHeadGetResponse -> MessageBuilder -encodeMessage _ - ConsensusChainHeadGetResponse{consensusChainHeadGetResponseStatus :: ConsensusChainHeadGetResponse +Hs.fromString String +"ConsensusChainHeadGetResponse") + +instance HsProtobuf.HasDefault ConsensusChainHeadGetResponse + +instance HsProtobuf.Message ConsensusChainHeadGetResponse where + encodeMessage :: FieldNumber -> ConsensusChainHeadGetResponse -> MessageBuilder +encodeMessage FieldNumber +_ + ConsensusChainHeadGetResponse{consensusChainHeadGetResponseStatus :: ConsensusChainHeadGetResponse -> Enumerated ConsensusChainHeadGetResponse_Status consensusChainHeadGetResponseStatus = - Enumerated ConsensusChainHeadGetResponse_Status -consensusChainHeadGetResponseStatus, - consensusChainHeadGetResponseBlock :: ConsensusChainHeadGetResponse -> Maybe ConsensusBlock + Enumerated ConsensusChainHeadGetResponse_Status +consensusChainHeadGetResponseStatus, + consensusChainHeadGetResponseBlock :: ConsensusChainHeadGetResponse -> Maybe ConsensusBlock consensusChainHeadGetResponseBlock = - Maybe ConsensusBlock -consensusChainHeadGetResponseBlock} - = ([MessageBuilder] -> MessageBuilder + Maybe ConsensusBlock +consensusChainHeadGetResponseBlock} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber +Hs.mconcat + [(FieldNumber -> Enumerated ConsensusChainHeadGetResponse_Status -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Enumerated ConsensusChainHeadGetResponse_Status -consensusChainHeadGetResponseStatus), - (FieldNumber -> Nested ConsensusBlock -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Enumerated ConsensusChainHeadGetResponse_Status +consensusChainHeadGetResponseStatus), + (FieldNumber -> Nested ConsensusBlock -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (Maybe ConsensusBlock -> Nested ConsensusBlock -forall a b. Coercible a b => a -> b -Hs.coerce @(Hs.Maybe Data.Sawtooth.Consensus.ConsensusBlock) - @(HsProtobuf.Nested Data.Sawtooth.Consensus.ConsensusBlock) - Maybe ConsensusBlock -consensusChainHeadGetResponseBlock))]) - decodeMessage :: FieldNumber -> Parser RawMessage ConsensusChainHeadGetResponse -decodeMessage _ - = ((Enumerated ConsensusChainHeadGetResponse_Status +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (Maybe ConsensusBlock -> Nested ConsensusBlock +Hs.coerce @(Hs.Maybe Data.Sawtooth.Consensus.ConsensusBlock) + @(HsProtobuf.Nested Data.Sawtooth.Consensus.ConsensusBlock) + Maybe ConsensusBlock +consensusChainHeadGetResponseBlock))]) + decodeMessage :: FieldNumber -> Parser RawMessage ConsensusChainHeadGetResponse +decodeMessage FieldNumber +_ + = ((Enumerated ConsensusChainHeadGetResponse_Status -> Maybe ConsensusBlock -> ConsensusChainHeadGetResponse) -> Parser RawMessage (Enumerated ConsensusChainHeadGetResponse_Status -> Maybe ConsensusBlock -> ConsensusChainHeadGetResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ConsensusChainHeadGetResponse_Status +Hs.pure Enumerated ConsensusChainHeadGetResponse_Status -> Maybe ConsensusBlock -> ConsensusChainHeadGetResponse ConsensusChainHeadGetResponse) Parser RawMessage @@ -19045,131 +20292,146 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Parser RawMessage (Maybe ConsensusBlock -> ConsensusChainHeadGetResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField (Enumerated ConsensusChainHeadGetResponse_Status) +<*> + (Parser RawField (Enumerated ConsensusChainHeadGetResponse_Status) -> FieldNumber -> Parser RawMessage (Enumerated ConsensusChainHeadGetResponse_Status) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (Enumerated ConsensusChainHeadGetResponse_Status) +HsProtobuf.at Parser RawField (Enumerated ConsensusChainHeadGetResponse_Status) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (Maybe ConsensusBlock -> ConsensusChainHeadGetResponse) -> Parser RawMessage (Maybe ConsensusBlock) -> Parser RawMessage ConsensusChainHeadGetResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (Nested ConsensusBlock) +<*> + (Parser RawMessage (Nested ConsensusBlock) -> Parser RawMessage (Maybe ConsensusBlock) -forall a b. Coercible a b => a -> b -Hs.coerce - @(_ (HsProtobuf.Nested Data.Sawtooth.Consensus.ConsensusBlock)) - @(_ (Hs.Maybe Data.Sawtooth.Consensus.ConsensusBlock)) - (Parser RawField (Nested ConsensusBlock) +Hs.coerce + @(_ (HsProtobuf.Nested Data.Sawtooth.Consensus.ConsensusBlock)) + @(_ (Hs.Maybe Data.Sawtooth.Consensus.ConsensusBlock)) + (Parser RawField (Nested ConsensusBlock) -> FieldNumber -> Parser RawMessage (Nested ConsensusBlock) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (Nested ConsensusBlock) +HsProtobuf.at Parser RawField (Nested ConsensusBlock) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2))) - dotProto :: Proxy# ConsensusChainHeadGetResponse -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2))) + dotProto :: Proxy# ConsensusChainHeadGetResponse -> [DotProtoField] +dotProto Proxy# ConsensusChainHeadGetResponse +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "Status"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "status") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"Status"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"status") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim - (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "ConsensusBlock"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "block") - [] - "")] - -instance HsJSONPB.ToJSONPB ConsensusChainHeadGetResponse where - toJSONPB :: ConsensusChainHeadGetResponse -> Options -> Value -toJSONPB (ConsensusChainHeadGetResponse f1 :: Enumerated ConsensusChainHeadGetResponse_Status -f1 f2 :: Maybe ConsensusBlock -f2) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["status" Text +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim + (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"ConsensusBlock"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"block") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ConsensusChainHeadGetResponse where + toJSONPB :: ConsensusChainHeadGetResponse -> Options -> Value +toJSONPB (ConsensusChainHeadGetResponse Enumerated ConsensusChainHeadGetResponse_Status +f1 Maybe ConsensusBlock +f2) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"status" Text -> Enumerated ConsensusChainHeadGetResponse_Status -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated ConsensusChainHeadGetResponse_Status -f1, "block" Text -> Maybe ConsensusBlock -> Options -> [Pair] +.= Enumerated ConsensusChainHeadGetResponse_Status +f1, Text +"block" Text -> Maybe ConsensusBlock -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Maybe ConsensusBlock -f2]) - toEncodingPB :: ConsensusChainHeadGetResponse -> Options -> Encoding -toEncodingPB (ConsensusChainHeadGetResponse f1 :: Enumerated ConsensusChainHeadGetResponse_Status -f1 f2 :: Maybe ConsensusBlock -f2) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["status" Text +.= Maybe ConsensusBlock +f2]) + toEncodingPB :: ConsensusChainHeadGetResponse -> Options -> Encoding +toEncodingPB (ConsensusChainHeadGetResponse Enumerated ConsensusChainHeadGetResponse_Status +f1 Maybe ConsensusBlock +f2) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"status" Text -> Enumerated ConsensusChainHeadGetResponse_Status -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated ConsensusChainHeadGetResponse_Status -f1, "block" Text -> Maybe ConsensusBlock -> Options -> Series +.= Enumerated ConsensusChainHeadGetResponse_Status +f1, Text +"block" Text -> Maybe ConsensusBlock -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Maybe ConsensusBlock -f2]) - -instance HsJSONPB.FromJSONPB ConsensusChainHeadGetResponse where - parseJSONPB :: Value -> Parser ConsensusChainHeadGetResponse -parseJSONPB - = (String +.= Maybe ConsensusBlock +f2]) + +instance HsJSONPB.FromJSONPB ConsensusChainHeadGetResponse where + parseJSONPB :: Value -> Parser ConsensusChainHeadGetResponse +parseJSONPB + = (String -> (Object -> Parser ConsensusChainHeadGetResponse) -> Value -> Parser ConsensusChainHeadGetResponse forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ConsensusChainHeadGetResponse" - (\ obj :: Object -obj -> - ((Enumerated ConsensusChainHeadGetResponse_Status +HsJSONPB.withObject String +"ConsensusChainHeadGetResponse" + (\ Object +obj -> + ((Enumerated ConsensusChainHeadGetResponse_Status -> Maybe ConsensusBlock -> ConsensusChainHeadGetResponse) -> Parser (Enumerated ConsensusChainHeadGetResponse_Status -> Maybe ConsensusBlock -> ConsensusChainHeadGetResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ConsensusChainHeadGetResponse_Status +Hs.pure Enumerated ConsensusChainHeadGetResponse_Status -> Maybe ConsensusBlock -> ConsensusChainHeadGetResponse ConsensusChainHeadGetResponse) Parser (Enumerated ConsensusChainHeadGetResponse_Status @@ -19177,88 +20439,91 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Parser (Enumerated ConsensusChainHeadGetResponse_Status) -> Parser (Maybe ConsensusBlock -> ConsensusChainHeadGetResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object +<*> Object +obj Object -> Text -> Parser (Enumerated ConsensusChainHeadGetResponse_Status) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "status" Parser (Maybe ConsensusBlock -> ConsensusChainHeadGetResponse) +.: Text +"status" Parser (Maybe ConsensusBlock -> ConsensusChainHeadGetResponse) -> Parser (Maybe ConsensusBlock) -> Parser ConsensusChainHeadGetResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser (Maybe ConsensusBlock) +<*> + Object +obj Object -> Text -> Parser (Maybe ConsensusBlock) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "block")) - -instance HsJSONPB.ToJSON ConsensusChainHeadGetResponse where - toJSON :: ConsensusChainHeadGetResponse -> Value -toJSON = ConsensusChainHeadGetResponse -> Value +.: Text +"block")) + +instance HsJSONPB.ToJSON ConsensusChainHeadGetResponse where + toJSON :: ConsensusChainHeadGetResponse -> Value +toJSON = ConsensusChainHeadGetResponse -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ConsensusChainHeadGetResponse -> Encoding -toEncoding = ConsensusChainHeadGetResponse -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ConsensusChainHeadGetResponse -> Encoding +toEncoding = ConsensusChainHeadGetResponse -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ConsensusChainHeadGetResponse where - parseJSON :: Value -> Parser ConsensusChainHeadGetResponse -parseJSON = Value -> Parser ConsensusChainHeadGetResponse +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ConsensusChainHeadGetResponse where + parseJSON :: Value -> Parser ConsensusChainHeadGetResponse +parseJSON = Value -> Parser ConsensusChainHeadGetResponse forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ConsensusChainHeadGetResponse where - declareNamedSchema :: Proxy ConsensusChainHeadGetResponse +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ConsensusChainHeadGetResponse where + declareNamedSchema :: Proxy ConsensusChainHeadGetResponse -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_status :: Proxy +declareNamedSchema Proxy ConsensusChainHeadGetResponse +_ + = do let declare_status :: Proxy (OverrideToSchema (Enumerated ConsensusChainHeadGetResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status = Proxy +declare_status = Proxy (OverrideToSchema (Enumerated ConsensusChainHeadGetResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -consensusChainHeadGetResponseStatus <- Proxy +HsJSONPB.declareSchemaRef + Referenced Schema +consensusChainHeadGetResponseStatus <- Proxy (OverrideToSchema (Enumerated ConsensusChainHeadGetResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status Proxy +declare_status Proxy (OverrideToSchema (Enumerated ConsensusChainHeadGetResponse_Status)) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_block :: Proxy (OverrideToSchema (Maybe ConsensusBlock)) +Proxy.Proxy + let declare_block :: Proxy (OverrideToSchema (Maybe ConsensusBlock)) -> Declare (Definitions Schema) (Referenced Schema) -declare_block = Proxy (OverrideToSchema (Maybe ConsensusBlock)) +declare_block = Proxy (OverrideToSchema (Maybe ConsensusBlock)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -consensusChainHeadGetResponseBlock <- Proxy (OverrideToSchema (Maybe ConsensusBlock)) +HsJSONPB.declareSchemaRef + Referenced Schema +consensusChainHeadGetResponseBlock <- Proxy (OverrideToSchema (Maybe ConsensusBlock)) -> Declare (Definitions Schema) (Referenced Schema) -declare_block Proxy (OverrideToSchema (Maybe ConsensusBlock)) +declare_block Proxy (OverrideToSchema (Maybe ConsensusBlock)) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ConsensusChainHeadGetResponse +Proxy.Proxy + let Proxy ConsensusChainHeadGetResponse _ = (Enumerated ConsensusChainHeadGetResponse_Status -> Maybe ConsensusBlock -> ConsensusChainHeadGetResponse) -> Proxy (Enumerated ConsensusChainHeadGetResponse_Status -> Maybe ConsensusBlock -> ConsensusChainHeadGetResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ConsensusChainHeadGetResponse_Status +Hs.pure Enumerated ConsensusChainHeadGetResponse_Status -> Maybe ConsensusBlock -> ConsensusChainHeadGetResponse ConsensusChainHeadGetResponse Proxy (Enumerated ConsensusChainHeadGetResponse_Status @@ -19266,74 +20531,77 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Proxy (Enumerated ConsensusChainHeadGetResponse_Status) -> Proxy (Maybe ConsensusBlock -> ConsensusChainHeadGetResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy +<*> + (Proxy (OverrideToSchema (Enumerated ConsensusChainHeadGetResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Enumerated ConsensusChainHeadGetResponse_Status) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy +HsJSONPB.asProxy Proxy (OverrideToSchema (Enumerated ConsensusChainHeadGetResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status - Proxy (Maybe ConsensusBlock -> ConsensusChainHeadGetResponse) +declare_status + Proxy (Maybe ConsensusBlock -> ConsensusChainHeadGetResponse) -> Proxy (Maybe ConsensusBlock) -> Proxy ConsensusChainHeadGetResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema (Maybe ConsensusBlock)) +<*> (Proxy (OverrideToSchema (Maybe ConsensusBlock)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Maybe ConsensusBlock) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Maybe ConsensusBlock)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Maybe ConsensusBlock)) -> Declare (Definitions Schema) (Referenced Schema) -declare_block - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_block + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ConsensusChainHeadGetResponse", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ConsensusChainHeadGetResponse", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("status", - Referenced Schema -consensusChainHeadGetResponseStatus), - ("block", - Referenced Schema -consensusChainHeadGetResponseBlock)]}}) - -data ConsensusChainHeadGetResponse_Status = ConsensusChainHeadGetResponse_StatusSTATUS_UNSET - | ConsensusChainHeadGetResponse_StatusOK - | ConsensusChainHeadGetResponse_StatusBAD_REQUEST - | ConsensusChainHeadGetResponse_StatusSERVICE_ERROR - | ConsensusChainHeadGetResponse_StatusNOT_READY - | ConsensusChainHeadGetResponse_StatusNO_CHAIN_HEAD - | ConsensusChainHeadGetResponse_StatusNOT_ACTIVE_ENGINE - deriving (Int -> ConsensusChainHeadGetResponse_Status -> ShowS +HsJSONPB.insOrdFromList + [(Text +"status", + Referenced Schema +consensusChainHeadGetResponseStatus), + (Text +"block", + Referenced Schema +consensusChainHeadGetResponseBlock)]}}) + +data ConsensusChainHeadGetResponse_Status = ConsensusChainHeadGetResponse_StatusSTATUS_UNSET + | ConsensusChainHeadGetResponse_StatusOK + | ConsensusChainHeadGetResponse_StatusBAD_REQUEST + | ConsensusChainHeadGetResponse_StatusSERVICE_ERROR + | ConsensusChainHeadGetResponse_StatusNOT_READY + | ConsensusChainHeadGetResponse_StatusNO_CHAIN_HEAD + | ConsensusChainHeadGetResponse_StatusNOT_ACTIVE_ENGINE + deriving (Int -> ConsensusChainHeadGetResponse_Status -> ShowS [ConsensusChainHeadGetResponse_Status] -> ShowS ConsensusChainHeadGetResponse_Status -> String (Int -> ConsensusChainHeadGetResponse_Status -> ShowS) @@ -19348,7 +20616,7 @@ show :: ConsensusChainHeadGetResponse_Status -> String $cshow :: ConsensusChainHeadGetResponse_Status -> String showsPrec :: Int -> ConsensusChainHeadGetResponse_Status -> ShowS $cshowsPrec :: Int -> ConsensusChainHeadGetResponse_Status -> ShowS -Hs.Show, ConsensusChainHeadGetResponse_Status +Hs.Show, ConsensusChainHeadGetResponse_Status -> ConsensusChainHeadGetResponse_Status -> Bool (ConsensusChainHeadGetResponse_Status -> ConsensusChainHeadGetResponse_Status -> Bool) @@ -19364,7 +20632,7 @@ $c/= :: ConsensusChainHeadGetResponse_Status -> ConsensusChainHeadGetResponse_Status -> Bool $c== :: ConsensusChainHeadGetResponse_Status -> ConsensusChainHeadGetResponse_Status -> Bool -Hs.Eq, (forall x. +Hs.Eq, (forall x. ConsensusChainHeadGetResponse_Status -> Rep ConsensusChainHeadGetResponse_Status x) -> (forall x. @@ -19385,208 +20653,235 @@ Rep ConsensusChainHeadGetResponse_Status x $cfrom :: forall x. ConsensusChainHeadGetResponse_Status -> Rep ConsensusChainHeadGetResponse_Status x -Hs.Generic, ConsensusChainHeadGetResponse_Status -> () +Hs.Generic, ConsensusChainHeadGetResponse_Status -> () (ConsensusChainHeadGetResponse_Status -> ()) -> NFData ConsensusChainHeadGetResponse_Status forall a. (a -> ()) -> NFData a rnf :: ConsensusChainHeadGetResponse_Status -> () $crnf :: ConsensusChainHeadGetResponse_Status -> () -Hs.NFData) - -instance HsProtobuf.Named ConsensusChainHeadGetResponse_Status - where - nameOf :: Proxy# ConsensusChainHeadGetResponse_Status -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ConsensusChainHeadGetResponse_Status + where + nameOf :: Proxy# ConsensusChainHeadGetResponse_Status -> string +nameOf Proxy# ConsensusChainHeadGetResponse_Status +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ConsensusChainHeadGetResponse_Status") - -instance HsProtobuf.HasDefault ConsensusChainHeadGetResponse_Status - -instance Hs.Bounded ConsensusChainHeadGetResponse_Status where - minBound :: ConsensusChainHeadGetResponse_Status -minBound = ConsensusChainHeadGetResponse_Status +Hs.fromString String +"ConsensusChainHeadGetResponse_Status") + +instance HsProtobuf.HasDefault ConsensusChainHeadGetResponse_Status + +instance Hs.Bounded ConsensusChainHeadGetResponse_Status where + minBound :: ConsensusChainHeadGetResponse_Status +minBound = ConsensusChainHeadGetResponse_Status ConsensusChainHeadGetResponse_StatusSTATUS_UNSET - maxBound :: ConsensusChainHeadGetResponse_Status -maxBound = ConsensusChainHeadGetResponse_Status + maxBound :: ConsensusChainHeadGetResponse_Status +maxBound = ConsensusChainHeadGetResponse_Status ConsensusChainHeadGetResponse_StatusNOT_ACTIVE_ENGINE - -instance Hs.Ord ConsensusChainHeadGetResponse_Status where - compare :: ConsensusChainHeadGetResponse_Status + +instance Hs.Ord ConsensusChainHeadGetResponse_Status where + compare :: ConsensusChainHeadGetResponse_Status -> ConsensusChainHeadGetResponse_Status -> Ordering -compare x :: ConsensusChainHeadGetResponse_Status -x y :: ConsensusChainHeadGetResponse_Status -y - = Int32 -> Int32 -> Ordering +compare ConsensusChainHeadGetResponse_Status +x ConsensusChainHeadGetResponse_Status +y + = Int32 -> Int32 -> Ordering forall a. Ord a => a -> a -> Ordering -Hs.compare (ConsensusChainHeadGetResponse_Status -> Int32 +Hs.compare (ConsensusChainHeadGetResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum ConsensusChainHeadGetResponse_Status -x) - (ConsensusChainHeadGetResponse_Status -> Int32 +HsProtobuf.fromProtoEnum ConsensusChainHeadGetResponse_Status +x) + (ConsensusChainHeadGetResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum ConsensusChainHeadGetResponse_Status -y) - -instance HsProtobuf.ProtoEnum ConsensusChainHeadGetResponse_Status - where - toProtoEnumMay :: Int32 -> Maybe ConsensusChainHeadGetResponse_Status -toProtoEnumMay 0 - = ConsensusChainHeadGetResponse_Status +HsProtobuf.fromProtoEnum ConsensusChainHeadGetResponse_Status +y) + +instance HsProtobuf.ProtoEnum ConsensusChainHeadGetResponse_Status + where + toProtoEnumMay :: Int32 -> Maybe ConsensusChainHeadGetResponse_Status +toProtoEnumMay Int32 +0 + = ConsensusChainHeadGetResponse_Status -> Maybe ConsensusChainHeadGetResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusChainHeadGetResponse_Status +Hs.Just ConsensusChainHeadGetResponse_Status ConsensusChainHeadGetResponse_StatusSTATUS_UNSET - toProtoEnumMay 1 = ConsensusChainHeadGetResponse_Status + toProtoEnumMay Int32 +1 = ConsensusChainHeadGetResponse_Status -> Maybe ConsensusChainHeadGetResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusChainHeadGetResponse_Status +Hs.Just ConsensusChainHeadGetResponse_Status ConsensusChainHeadGetResponse_StatusOK - toProtoEnumMay 2 - = ConsensusChainHeadGetResponse_Status + toProtoEnumMay Int32 +2 + = ConsensusChainHeadGetResponse_Status -> Maybe ConsensusChainHeadGetResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusChainHeadGetResponse_Status +Hs.Just ConsensusChainHeadGetResponse_Status ConsensusChainHeadGetResponse_StatusBAD_REQUEST - toProtoEnumMay 3 - = ConsensusChainHeadGetResponse_Status + toProtoEnumMay Int32 +3 + = ConsensusChainHeadGetResponse_Status -> Maybe ConsensusChainHeadGetResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusChainHeadGetResponse_Status +Hs.Just ConsensusChainHeadGetResponse_Status ConsensusChainHeadGetResponse_StatusSERVICE_ERROR - toProtoEnumMay 4 - = ConsensusChainHeadGetResponse_Status + toProtoEnumMay Int32 +4 + = ConsensusChainHeadGetResponse_Status -> Maybe ConsensusChainHeadGetResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusChainHeadGetResponse_Status +Hs.Just ConsensusChainHeadGetResponse_Status ConsensusChainHeadGetResponse_StatusNOT_READY - toProtoEnumMay 5 - = ConsensusChainHeadGetResponse_Status + toProtoEnumMay Int32 +5 + = ConsensusChainHeadGetResponse_Status -> Maybe ConsensusChainHeadGetResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusChainHeadGetResponse_Status +Hs.Just ConsensusChainHeadGetResponse_Status ConsensusChainHeadGetResponse_StatusNO_CHAIN_HEAD - toProtoEnumMay 6 - = ConsensusChainHeadGetResponse_Status + toProtoEnumMay Int32 +6 + = ConsensusChainHeadGetResponse_Status -> Maybe ConsensusChainHeadGetResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusChainHeadGetResponse_Status +Hs.Just ConsensusChainHeadGetResponse_Status ConsensusChainHeadGetResponse_StatusNOT_ACTIVE_ENGINE - toProtoEnumMay _ = Maybe ConsensusChainHeadGetResponse_Status + toProtoEnumMay Int32 +_ = Maybe ConsensusChainHeadGetResponse_Status forall a. Maybe a -Hs.Nothing - fromProtoEnum :: ConsensusChainHeadGetResponse_Status -> Int32 -fromProtoEnum (ConsensusChainHeadGetResponse_Status +Hs.Nothing + fromProtoEnum :: ConsensusChainHeadGetResponse_Status -> Int32 +fromProtoEnum (ConsensusChainHeadGetResponse_Status ConsensusChainHeadGetResponse_StatusSTATUS_UNSET) - = 0 - fromProtoEnum (ConsensusChainHeadGetResponse_Status -ConsensusChainHeadGetResponse_StatusOK) = 1 - fromProtoEnum (ConsensusChainHeadGetResponse_Status -ConsensusChainHeadGetResponse_StatusBAD_REQUEST) = 2 - fromProtoEnum (ConsensusChainHeadGetResponse_Status + = Int32 +0 + fromProtoEnum (ConsensusChainHeadGetResponse_Status +ConsensusChainHeadGetResponse_StatusOK) = Int32 +1 + fromProtoEnum (ConsensusChainHeadGetResponse_Status +ConsensusChainHeadGetResponse_StatusBAD_REQUEST) = Int32 +2 + fromProtoEnum (ConsensusChainHeadGetResponse_Status ConsensusChainHeadGetResponse_StatusSERVICE_ERROR) - = 3 - fromProtoEnum (ConsensusChainHeadGetResponse_Status -ConsensusChainHeadGetResponse_StatusNOT_READY) = 4 - fromProtoEnum (ConsensusChainHeadGetResponse_Status + = Int32 +3 + fromProtoEnum (ConsensusChainHeadGetResponse_Status +ConsensusChainHeadGetResponse_StatusNOT_READY) = Int32 +4 + fromProtoEnum (ConsensusChainHeadGetResponse_Status ConsensusChainHeadGetResponse_StatusNO_CHAIN_HEAD) - = 5 - fromProtoEnum - (ConsensusChainHeadGetResponse_Status -ConsensusChainHeadGetResponse_StatusNOT_ACTIVE_ENGINE) = 6 - -instance HsJSONPB.ToJSONPB ConsensusChainHeadGetResponse_Status - where - toJSONPB :: ConsensusChainHeadGetResponse_Status -> Options -> Value -toJSONPB x :: ConsensusChainHeadGetResponse_Status -x _ = ConsensusChainHeadGetResponse_Status -> Value + = Int32 +5 + fromProtoEnum + (ConsensusChainHeadGetResponse_Status +ConsensusChainHeadGetResponse_StatusNOT_ACTIVE_ENGINE) = Int32 +6 + +instance HsJSONPB.ToJSONPB ConsensusChainHeadGetResponse_Status + where + toJSONPB :: ConsensusChainHeadGetResponse_Status -> Options -> Value +toJSONPB ConsensusChainHeadGetResponse_Status +x Options +_ = ConsensusChainHeadGetResponse_Status -> Value forall a. (Named a, Show a) => a -> Value -HsJSONPB.enumFieldString ConsensusChainHeadGetResponse_Status -x - toEncodingPB :: ConsensusChainHeadGetResponse_Status -> Options -> Encoding -toEncodingPB x :: ConsensusChainHeadGetResponse_Status -x _ = ConsensusChainHeadGetResponse_Status -> Encoding +HsJSONPB.enumFieldString ConsensusChainHeadGetResponse_Status +x + toEncodingPB :: ConsensusChainHeadGetResponse_Status -> Options -> Encoding +toEncodingPB ConsensusChainHeadGetResponse_Status +x Options +_ = ConsensusChainHeadGetResponse_Status -> Encoding forall a. (Named a, Show a) => a -> Encoding -HsJSONPB.enumFieldEncoding ConsensusChainHeadGetResponse_Status -x - -instance HsJSONPB.FromJSONPB ConsensusChainHeadGetResponse_Status - where - parseJSONPB :: Value -> Parser ConsensusChainHeadGetResponse_Status -parseJSONPB (HsJSONPB.String "STATUS_UNSET") - = ConsensusChainHeadGetResponse_Status +HsJSONPB.enumFieldEncoding ConsensusChainHeadGetResponse_Status +x + +instance HsJSONPB.FromJSONPB ConsensusChainHeadGetResponse_Status + where + parseJSONPB :: Value -> Parser ConsensusChainHeadGetResponse_Status +parseJSONPB (HsJSONPB.String Text +"STATUS_UNSET") + = ConsensusChainHeadGetResponse_Status -> Parser ConsensusChainHeadGetResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusChainHeadGetResponse_Status +Hs.pure ConsensusChainHeadGetResponse_Status ConsensusChainHeadGetResponse_StatusSTATUS_UNSET - parseJSONPB (HsJSONPB.String "OK") - = ConsensusChainHeadGetResponse_Status + parseJSONPB (HsJSONPB.String Text +"OK") + = ConsensusChainHeadGetResponse_Status -> Parser ConsensusChainHeadGetResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusChainHeadGetResponse_Status +Hs.pure ConsensusChainHeadGetResponse_Status ConsensusChainHeadGetResponse_StatusOK - parseJSONPB (HsJSONPB.String "BAD_REQUEST") - = ConsensusChainHeadGetResponse_Status + parseJSONPB (HsJSONPB.String Text +"BAD_REQUEST") + = ConsensusChainHeadGetResponse_Status -> Parser ConsensusChainHeadGetResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusChainHeadGetResponse_Status +Hs.pure ConsensusChainHeadGetResponse_Status ConsensusChainHeadGetResponse_StatusBAD_REQUEST - parseJSONPB (HsJSONPB.String "SERVICE_ERROR") - = ConsensusChainHeadGetResponse_Status + parseJSONPB (HsJSONPB.String Text +"SERVICE_ERROR") + = ConsensusChainHeadGetResponse_Status -> Parser ConsensusChainHeadGetResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusChainHeadGetResponse_Status +Hs.pure ConsensusChainHeadGetResponse_Status ConsensusChainHeadGetResponse_StatusSERVICE_ERROR - parseJSONPB (HsJSONPB.String "NOT_READY") - = ConsensusChainHeadGetResponse_Status + parseJSONPB (HsJSONPB.String Text +"NOT_READY") + = ConsensusChainHeadGetResponse_Status -> Parser ConsensusChainHeadGetResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusChainHeadGetResponse_Status +Hs.pure ConsensusChainHeadGetResponse_Status ConsensusChainHeadGetResponse_StatusNOT_READY - parseJSONPB (HsJSONPB.String "NO_CHAIN_HEAD") - = ConsensusChainHeadGetResponse_Status + parseJSONPB (HsJSONPB.String Text +"NO_CHAIN_HEAD") + = ConsensusChainHeadGetResponse_Status -> Parser ConsensusChainHeadGetResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusChainHeadGetResponse_Status +Hs.pure ConsensusChainHeadGetResponse_Status ConsensusChainHeadGetResponse_StatusNO_CHAIN_HEAD - parseJSONPB (HsJSONPB.String "NOT_ACTIVE_ENGINE") - = ConsensusChainHeadGetResponse_Status + parseJSONPB (HsJSONPB.String Text +"NOT_ACTIVE_ENGINE") + = ConsensusChainHeadGetResponse_Status -> Parser ConsensusChainHeadGetResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusChainHeadGetResponse_Status +Hs.pure ConsensusChainHeadGetResponse_Status ConsensusChainHeadGetResponse_StatusNOT_ACTIVE_ENGINE - parseJSONPB v :: Value -v - = (String -> Value -> Parser ConsensusChainHeadGetResponse_Status + parseJSONPB Value +v + = (String -> Value -> Parser ConsensusChainHeadGetResponse_Status forall a. String -> Value -> Parser a -HsJSONPB.typeMismatch "ConsensusChainHeadGetResponse_Status" Value -v) - -instance HsJSONPB.ToJSON ConsensusChainHeadGetResponse_Status where - toJSON :: ConsensusChainHeadGetResponse_Status -> Value -toJSON = ConsensusChainHeadGetResponse_Status -> Value +HsJSONPB.typeMismatch String +"ConsensusChainHeadGetResponse_Status" Value +v) + +instance HsJSONPB.ToJSON ConsensusChainHeadGetResponse_Status where + toJSON :: ConsensusChainHeadGetResponse_Status -> Value +toJSON = ConsensusChainHeadGetResponse_Status -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ConsensusChainHeadGetResponse_Status -> Encoding -toEncoding = ConsensusChainHeadGetResponse_Status -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ConsensusChainHeadGetResponse_Status -> Encoding +toEncoding = ConsensusChainHeadGetResponse_Status -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ConsensusChainHeadGetResponse_Status - where - parseJSON :: Value -> Parser ConsensusChainHeadGetResponse_Status -parseJSON = Value -> Parser ConsensusChainHeadGetResponse_Status +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ConsensusChainHeadGetResponse_Status + where + parseJSON :: Value -> Parser ConsensusChainHeadGetResponse_Status +parseJSON = Value -> Parser ConsensusChainHeadGetResponse_Status forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsProtobuf.Finite ConsensusChainHeadGetResponse_Status - -data ConsensusSettingsGetRequest = ConsensusSettingsGetRequest{ConsensusSettingsGetRequest -> ByteString +HsJSONPB.parseJSONPB + +instance HsProtobuf.Finite ConsensusChainHeadGetResponse_Status + +data ConsensusSettingsGetRequest = ConsensusSettingsGetRequest{ConsensusSettingsGetRequest -> ByteString consensusSettingsGetRequestBlockId - :: Hs.ByteString, - ConsensusSettingsGetRequest -> Vector Text + :: Hs.ByteString, + ConsensusSettingsGetRequest -> Vector Text consensusSettingsGetRequestKeys :: - Hs.Vector Hs.Text} - deriving (Int -> ConsensusSettingsGetRequest -> ShowS + Hs.Vector Hs.Text} + deriving (Int -> ConsensusSettingsGetRequest -> ShowS [ConsensusSettingsGetRequest] -> ShowS ConsensusSettingsGetRequest -> String (Int -> ConsensusSettingsGetRequest -> ShowS) @@ -19601,7 +20896,7 @@ show :: ConsensusSettingsGetRequest -> String $cshow :: ConsensusSettingsGetRequest -> String showsPrec :: Int -> ConsensusSettingsGetRequest -> ShowS $cshowsPrec :: Int -> ConsensusSettingsGetRequest -> ShowS -Hs.Show, ConsensusSettingsGetRequest -> ConsensusSettingsGetRequest -> Bool +Hs.Show, ConsensusSettingsGetRequest -> ConsensusSettingsGetRequest -> Bool (ConsensusSettingsGetRequest -> ConsensusSettingsGetRequest -> Bool) -> (ConsensusSettingsGetRequest @@ -19612,10 +20907,10 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: ConsensusSettingsGetRequest -> ConsensusSettingsGetRequest -> Bool == :: ConsensusSettingsGetRequest -> ConsensusSettingsGetRequest -> Bool $c== :: ConsensusSettingsGetRequest -> ConsensusSettingsGetRequest -> Bool -Hs.Eq, Eq ConsensusSettingsGetRequest -Eq ConsensusSettingsGetRequest => -(ConsensusSettingsGetRequest - -> ConsensusSettingsGetRequest -> Ordering) +Hs.Eq, Eq ConsensusSettingsGetRequest +Eq ConsensusSettingsGetRequest +-> (ConsensusSettingsGetRequest + -> ConsensusSettingsGetRequest -> Ordering) -> (ConsensusSettingsGetRequest -> ConsensusSettingsGetRequest -> Bool) -> (ConsensusSettingsGetRequest @@ -19635,8 +20930,8 @@ ConsensusSettingsGetRequest ConsensusSettingsGetRequest -> ConsensusSettingsGetRequest -> ConsensusSettingsGetRequest forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -19665,7 +20960,7 @@ compare :: ConsensusSettingsGetRequest $ccompare :: ConsensusSettingsGetRequest -> ConsensusSettingsGetRequest -> Ordering $cp1Ord :: Eq ConsensusSettingsGetRequest -Hs.Ord, (forall x. +Hs.Ord, (forall x. ConsensusSettingsGetRequest -> Rep ConsensusSettingsGetRequest x) -> (forall x. Rep ConsensusSettingsGetRequest x -> ConsensusSettingsGetRequest) @@ -19680,319 +20975,343 @@ $cto :: forall x. Rep ConsensusSettingsGetRequest x -> ConsensusSettingsGetRequest $cfrom :: forall x. ConsensusSettingsGetRequest -> Rep ConsensusSettingsGetRequest x -Hs.Generic, ConsensusSettingsGetRequest -> () +Hs.Generic, ConsensusSettingsGetRequest -> () (ConsensusSettingsGetRequest -> ()) -> NFData ConsensusSettingsGetRequest forall a. (a -> ()) -> NFData a rnf :: ConsensusSettingsGetRequest -> () $crnf :: ConsensusSettingsGetRequest -> () -Hs.NFData) - -instance HsProtobuf.Named ConsensusSettingsGetRequest where - nameOf :: Proxy# ConsensusSettingsGetRequest -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ConsensusSettingsGetRequest where + nameOf :: Proxy# ConsensusSettingsGetRequest -> string +nameOf Proxy# ConsensusSettingsGetRequest +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ConsensusSettingsGetRequest") - -instance HsProtobuf.HasDefault ConsensusSettingsGetRequest - -instance HsProtobuf.Message ConsensusSettingsGetRequest where - encodeMessage :: FieldNumber -> ConsensusSettingsGetRequest -> MessageBuilder -encodeMessage _ - ConsensusSettingsGetRequest{consensusSettingsGetRequestBlockId :: ConsensusSettingsGetRequest -> ByteString +Hs.fromString String +"ConsensusSettingsGetRequest") + +instance HsProtobuf.HasDefault ConsensusSettingsGetRequest + +instance HsProtobuf.Message ConsensusSettingsGetRequest where + encodeMessage :: FieldNumber -> ConsensusSettingsGetRequest -> MessageBuilder +encodeMessage FieldNumber +_ + ConsensusSettingsGetRequest{consensusSettingsGetRequestBlockId :: ConsensusSettingsGetRequest -> ByteString consensusSettingsGetRequestBlockId = - ByteString -consensusSettingsGetRequestBlockId, - consensusSettingsGetRequestKeys :: ConsensusSettingsGetRequest -> Vector Text + ByteString +consensusSettingsGetRequestBlockId, + consensusSettingsGetRequestKeys :: ConsensusSettingsGetRequest -> Vector Text consensusSettingsGetRequestKeys = - Vector Text -consensusSettingsGetRequestKeys} - = ([MessageBuilder] -> MessageBuilder + Vector Text +consensusSettingsGetRequestKeys} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> ByteString -> MessageBuilder +Hs.mconcat + [(FieldNumber -> ByteString -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - ByteString -consensusSettingsGetRequestBlockId), - (FieldNumber -> UnpackedVec Text -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + ByteString +consensusSettingsGetRequestBlockId), + (FieldNumber -> UnpackedVec Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (Vector Text -> UnpackedVec Text -forall a b. Coercible a b => a -> b -Hs.coerce @(Hs.Vector Hs.Text) @(HsProtobuf.UnpackedVec Hs.Text) - Vector Text -consensusSettingsGetRequestKeys))]) - decodeMessage :: FieldNumber -> Parser RawMessage ConsensusSettingsGetRequest -decodeMessage _ - = ((ByteString -> Vector Text -> ConsensusSettingsGetRequest) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (Vector Text -> UnpackedVec Text +Hs.coerce @(Hs.Vector Hs.Text) @(HsProtobuf.UnpackedVec Hs.Text) + Vector Text +consensusSettingsGetRequestKeys))]) + decodeMessage :: FieldNumber -> Parser RawMessage ConsensusSettingsGetRequest +decodeMessage FieldNumber +_ + = ((ByteString -> Vector Text -> ConsensusSettingsGetRequest) -> Parser RawMessage (ByteString -> Vector Text -> ConsensusSettingsGetRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString -> Vector Text -> ConsensusSettingsGetRequest +Hs.pure ByteString -> Vector Text -> ConsensusSettingsGetRequest ConsensusSettingsGetRequest) Parser RawMessage (ByteString -> Vector Text -> ConsensusSettingsGetRequest) -> Parser RawMessage ByteString -> Parser RawMessage (Vector Text -> ConsensusSettingsGetRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField ByteString +<*> + (Parser RawField ByteString -> FieldNumber -> Parser RawMessage ByteString forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField ByteString +HsProtobuf.at Parser RawField ByteString forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser RawMessage (Vector Text -> ConsensusSettingsGetRequest) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (Vector Text -> ConsensusSettingsGetRequest) -> Parser RawMessage (Vector Text) -> Parser RawMessage ConsensusSettingsGetRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (UnpackedVec Text) +<*> + (Parser RawMessage (UnpackedVec Text) -> Parser RawMessage (Vector Text) -forall a b. Coercible a b => a -> b -Hs.coerce @(_ (HsProtobuf.UnpackedVec Hs.Text)) - @(_ (Hs.Vector Hs.Text)) - (Parser RawField (UnpackedVec Text) +Hs.coerce @(_ (HsProtobuf.UnpackedVec Hs.Text)) + @(_ (Hs.Vector Hs.Text)) + (Parser RawField (UnpackedVec Text) -> FieldNumber -> Parser RawMessage (UnpackedVec Text) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (UnpackedVec Text) +HsProtobuf.at Parser RawField (UnpackedVec Text) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2))) - dotProto :: Proxy# ConsensusSettingsGetRequest -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2))) + dotProto :: Proxy# ConsensusSettingsGetRequest -> [DotProtoField] +dotProto Proxy# ConsensusSettingsGetRequest +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.Bytes) - (String -> DotProtoIdentifier -HsProtobuf.Single "block_id") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.Bytes) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"block_id") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Repeated DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "keys") - [] - "")] - -instance HsJSONPB.ToJSONPB ConsensusSettingsGetRequest where - toJSONPB :: ConsensusSettingsGetRequest -> Options -> Value -toJSONPB (ConsensusSettingsGetRequest f1 :: ByteString -f1 f2 :: Vector Text -f2) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["block_id" Text -> ByteString -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Repeated DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"keys") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ConsensusSettingsGetRequest where + toJSONPB :: ConsensusSettingsGetRequest -> Options -> Value +toJSONPB (ConsensusSettingsGetRequest ByteString +f1 Vector Text +f2) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"block_id" Text -> ByteString -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f1, "keys" Text -> Vector Text -> Options -> [Pair] +.= ByteString +f1, Text +"keys" Text -> Vector Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Text -f2]) - toEncodingPB :: ConsensusSettingsGetRequest -> Options -> Encoding -toEncodingPB (ConsensusSettingsGetRequest f1 :: ByteString -f1 f2 :: Vector Text -f2) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["block_id" Text -> ByteString -> Options -> Series +.= Vector Text +f2]) + toEncodingPB :: ConsensusSettingsGetRequest -> Options -> Encoding +toEncodingPB (ConsensusSettingsGetRequest ByteString +f1 Vector Text +f2) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"block_id" Text -> ByteString -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f1, "keys" Text -> Vector Text -> Options -> Series +.= ByteString +f1, Text +"keys" Text -> Vector Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Text -f2]) - -instance HsJSONPB.FromJSONPB ConsensusSettingsGetRequest where - parseJSONPB :: Value -> Parser ConsensusSettingsGetRequest -parseJSONPB - = (String +.= Vector Text +f2]) + +instance HsJSONPB.FromJSONPB ConsensusSettingsGetRequest where + parseJSONPB :: Value -> Parser ConsensusSettingsGetRequest +parseJSONPB + = (String -> (Object -> Parser ConsensusSettingsGetRequest) -> Value -> Parser ConsensusSettingsGetRequest forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ConsensusSettingsGetRequest" - (\ obj :: Object -obj -> - ((ByteString -> Vector Text -> ConsensusSettingsGetRequest) +HsJSONPB.withObject String +"ConsensusSettingsGetRequest" + (\ Object +obj -> + ((ByteString -> Vector Text -> ConsensusSettingsGetRequest) -> Parser (ByteString -> Vector Text -> ConsensusSettingsGetRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString -> Vector Text -> ConsensusSettingsGetRequest +Hs.pure ByteString -> Vector Text -> ConsensusSettingsGetRequest ConsensusSettingsGetRequest) Parser (ByteString -> Vector Text -> ConsensusSettingsGetRequest) -> Parser ByteString -> Parser (Vector Text -> ConsensusSettingsGetRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser ByteString +<*> Object +obj Object -> Text -> Parser ByteString forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "block_id" Parser (Vector Text -> ConsensusSettingsGetRequest) +.: Text +"block_id" Parser (Vector Text -> ConsensusSettingsGetRequest) -> Parser (Vector Text) -> Parser ConsensusSettingsGetRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser (Vector Text) +<*> + Object +obj Object -> Text -> Parser (Vector Text) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "keys")) - -instance HsJSONPB.ToJSON ConsensusSettingsGetRequest where - toJSON :: ConsensusSettingsGetRequest -> Value -toJSON = ConsensusSettingsGetRequest -> Value +.: Text +"keys")) + +instance HsJSONPB.ToJSON ConsensusSettingsGetRequest where + toJSON :: ConsensusSettingsGetRequest -> Value +toJSON = ConsensusSettingsGetRequest -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ConsensusSettingsGetRequest -> Encoding -toEncoding = ConsensusSettingsGetRequest -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ConsensusSettingsGetRequest -> Encoding +toEncoding = ConsensusSettingsGetRequest -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ConsensusSettingsGetRequest where - parseJSON :: Value -> Parser ConsensusSettingsGetRequest -parseJSON = Value -> Parser ConsensusSettingsGetRequest +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ConsensusSettingsGetRequest where + parseJSON :: Value -> Parser ConsensusSettingsGetRequest +parseJSON = Value -> Parser ConsensusSettingsGetRequest forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ConsensusSettingsGetRequest where - declareNamedSchema :: Proxy ConsensusSettingsGetRequest +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ConsensusSettingsGetRequest where + declareNamedSchema :: Proxy ConsensusSettingsGetRequest -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_block_id :: Proxy (OverrideToSchema ByteString) +declareNamedSchema Proxy ConsensusSettingsGetRequest +_ + = do let declare_block_id :: Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_block_id = Proxy (OverrideToSchema ByteString) +declare_block_id = Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -consensusSettingsGetRequestBlockId <- Proxy (OverrideToSchema ByteString) +HsJSONPB.declareSchemaRef + Referenced Schema +consensusSettingsGetRequestBlockId <- Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_block_id Proxy (OverrideToSchema ByteString) +declare_block_id Proxy (OverrideToSchema ByteString) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_keys :: Proxy (OverrideToSchema (Vector Text)) +Proxy.Proxy + let declare_keys :: Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) -declare_keys = Proxy (OverrideToSchema (Vector Text)) +declare_keys = Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -consensusSettingsGetRequestKeys <- Proxy (OverrideToSchema (Vector Text)) +HsJSONPB.declareSchemaRef + Referenced Schema +consensusSettingsGetRequestKeys <- Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) -declare_keys Proxy (OverrideToSchema (Vector Text)) +declare_keys Proxy (OverrideToSchema (Vector Text)) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ConsensusSettingsGetRequest +Proxy.Proxy + let Proxy ConsensusSettingsGetRequest _ = (ByteString -> Vector Text -> ConsensusSettingsGetRequest) -> Proxy (ByteString -> Vector Text -> ConsensusSettingsGetRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString -> Vector Text -> ConsensusSettingsGetRequest +Hs.pure ByteString -> Vector Text -> ConsensusSettingsGetRequest ConsensusSettingsGetRequest Proxy (ByteString -> Vector Text -> ConsensusSettingsGetRequest) -> Proxy ByteString -> Proxy (Vector Text -> ConsensusSettingsGetRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema ByteString) +<*> + (Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy ByteString forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) +HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_block_id - Proxy (Vector Text -> ConsensusSettingsGetRequest) +declare_block_id + Proxy (Vector Text -> ConsensusSettingsGetRequest) -> Proxy (Vector Text) -> Proxy ConsensusSettingsGetRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema (Vector Text)) +<*> (Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Vector Text) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Text)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) -declare_keys - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_keys + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ConsensusSettingsGetRequest", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ConsensusSettingsGetRequest", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("block_id", - Referenced Schema -consensusSettingsGetRequestBlockId), - ("keys", - Referenced Schema -consensusSettingsGetRequestKeys)]}}) - -data ConsensusSettingsGetResponse = ConsensusSettingsGetResponse{ConsensusSettingsGetResponse +HsJSONPB.insOrdFromList + [(Text +"block_id", + Referenced Schema +consensusSettingsGetRequestBlockId), + (Text +"keys", + Referenced Schema +consensusSettingsGetRequestKeys)]}}) + +data ConsensusSettingsGetResponse = ConsensusSettingsGetResponse{ConsensusSettingsGetResponse -> Enumerated ConsensusSettingsGetResponse_Status consensusSettingsGetResponseStatus - :: - HsProtobuf.Enumerated - Data.Sawtooth.Consensus.ConsensusSettingsGetResponse_Status, - ConsensusSettingsGetResponse -> Vector ConsensusSettingsEntry + :: + HsProtobuf.Enumerated + Data.Sawtooth.Consensus.ConsensusSettingsGetResponse_Status, + ConsensusSettingsGetResponse -> Vector ConsensusSettingsEntry consensusSettingsGetResponseEntries - :: - Hs.Vector - Data.Sawtooth.Consensus.ConsensusSettingsEntry} - deriving (Int -> ConsensusSettingsGetResponse -> ShowS + :: + Hs.Vector + Data.Sawtooth.Consensus.ConsensusSettingsEntry} + deriving (Int -> ConsensusSettingsGetResponse -> ShowS [ConsensusSettingsGetResponse] -> ShowS ConsensusSettingsGetResponse -> String (Int -> ConsensusSettingsGetResponse -> ShowS) @@ -20007,7 +21326,7 @@ show :: ConsensusSettingsGetResponse -> String $cshow :: ConsensusSettingsGetResponse -> String showsPrec :: Int -> ConsensusSettingsGetResponse -> ShowS $cshowsPrec :: Int -> ConsensusSettingsGetResponse -> ShowS -Hs.Show, ConsensusSettingsGetResponse +Hs.Show, ConsensusSettingsGetResponse -> ConsensusSettingsGetResponse -> Bool (ConsensusSettingsGetResponse -> ConsensusSettingsGetResponse -> Bool) @@ -20023,10 +21342,10 @@ $c/= :: ConsensusSettingsGetResponse -> ConsensusSettingsGetResponse -> Bool $c== :: ConsensusSettingsGetResponse -> ConsensusSettingsGetResponse -> Bool -Hs.Eq, Eq ConsensusSettingsGetResponse -Eq ConsensusSettingsGetResponse => -(ConsensusSettingsGetResponse - -> ConsensusSettingsGetResponse -> Ordering) +Hs.Eq, Eq ConsensusSettingsGetResponse +Eq ConsensusSettingsGetResponse +-> (ConsensusSettingsGetResponse + -> ConsensusSettingsGetResponse -> Ordering) -> (ConsensusSettingsGetResponse -> ConsensusSettingsGetResponse -> Bool) -> (ConsensusSettingsGetResponse @@ -20047,8 +21366,8 @@ ConsensusSettingsGetResponse ConsensusSettingsGetResponse -> ConsensusSettingsGetResponse -> ConsensusSettingsGetResponse forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -20085,7 +21404,7 @@ compare :: ConsensusSettingsGetResponse $ccompare :: ConsensusSettingsGetResponse -> ConsensusSettingsGetResponse -> Ordering $cp1Ord :: Eq ConsensusSettingsGetResponse -Hs.Ord, (forall x. +Hs.Ord, (forall x. ConsensusSettingsGetResponse -> Rep ConsensusSettingsGetResponse x) -> (forall x. Rep ConsensusSettingsGetResponse x -> ConsensusSettingsGetResponse) @@ -20100,65 +21419,70 @@ $cto :: forall x. Rep ConsensusSettingsGetResponse x -> ConsensusSettingsGetResponse $cfrom :: forall x. ConsensusSettingsGetResponse -> Rep ConsensusSettingsGetResponse x -Hs.Generic, ConsensusSettingsGetResponse -> () +Hs.Generic, ConsensusSettingsGetResponse -> () (ConsensusSettingsGetResponse -> ()) -> NFData ConsensusSettingsGetResponse forall a. (a -> ()) -> NFData a rnf :: ConsensusSettingsGetResponse -> () $crnf :: ConsensusSettingsGetResponse -> () -Hs.NFData) - -instance HsProtobuf.Named ConsensusSettingsGetResponse where - nameOf :: Proxy# ConsensusSettingsGetResponse -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ConsensusSettingsGetResponse where + nameOf :: Proxy# ConsensusSettingsGetResponse -> string +nameOf Proxy# ConsensusSettingsGetResponse +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ConsensusSettingsGetResponse") - -instance HsProtobuf.HasDefault ConsensusSettingsGetResponse - -instance HsProtobuf.Message ConsensusSettingsGetResponse where - encodeMessage :: FieldNumber -> ConsensusSettingsGetResponse -> MessageBuilder -encodeMessage _ - ConsensusSettingsGetResponse{consensusSettingsGetResponseStatus :: ConsensusSettingsGetResponse +Hs.fromString String +"ConsensusSettingsGetResponse") + +instance HsProtobuf.HasDefault ConsensusSettingsGetResponse + +instance HsProtobuf.Message ConsensusSettingsGetResponse where + encodeMessage :: FieldNumber -> ConsensusSettingsGetResponse -> MessageBuilder +encodeMessage FieldNumber +_ + ConsensusSettingsGetResponse{consensusSettingsGetResponseStatus :: ConsensusSettingsGetResponse -> Enumerated ConsensusSettingsGetResponse_Status consensusSettingsGetResponseStatus = - Enumerated ConsensusSettingsGetResponse_Status -consensusSettingsGetResponseStatus, - consensusSettingsGetResponseEntries :: ConsensusSettingsGetResponse -> Vector ConsensusSettingsEntry + Enumerated ConsensusSettingsGetResponse_Status +consensusSettingsGetResponseStatus, + consensusSettingsGetResponseEntries :: ConsensusSettingsGetResponse -> Vector ConsensusSettingsEntry consensusSettingsGetResponseEntries = - Vector ConsensusSettingsEntry -consensusSettingsGetResponseEntries} - = ([MessageBuilder] -> MessageBuilder + Vector ConsensusSettingsEntry +consensusSettingsGetResponseEntries} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber +Hs.mconcat + [(FieldNumber -> Enumerated ConsensusSettingsGetResponse_Status -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Enumerated ConsensusSettingsGetResponse_Status -consensusSettingsGetResponseStatus), - (FieldNumber -> NestedVec ConsensusSettingsEntry -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Enumerated ConsensusSettingsGetResponse_Status +consensusSettingsGetResponseStatus), + (FieldNumber -> NestedVec ConsensusSettingsEntry -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (Vector ConsensusSettingsEntry -> NestedVec ConsensusSettingsEntry -forall a b. Coercible a b => a -> b -Hs.coerce - @(Hs.Vector Data.Sawtooth.Consensus.ConsensusSettingsEntry) - @(HsProtobuf.NestedVec Data.Sawtooth.Consensus.ConsensusSettingsEntry) - Vector ConsensusSettingsEntry -consensusSettingsGetResponseEntries))]) - decodeMessage :: FieldNumber -> Parser RawMessage ConsensusSettingsGetResponse -decodeMessage _ - = ((Enumerated ConsensusSettingsGetResponse_Status +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (Vector ConsensusSettingsEntry -> NestedVec ConsensusSettingsEntry +Hs.coerce + @(Hs.Vector Data.Sawtooth.Consensus.ConsensusSettingsEntry) + @(HsProtobuf.NestedVec Data.Sawtooth.Consensus.ConsensusSettingsEntry) + Vector ConsensusSettingsEntry +consensusSettingsGetResponseEntries))]) + decodeMessage :: FieldNumber -> Parser RawMessage ConsensusSettingsGetResponse +decodeMessage FieldNumber +_ + = ((Enumerated ConsensusSettingsGetResponse_Status -> Vector ConsensusSettingsEntry -> ConsensusSettingsGetResponse) -> Parser RawMessage (Enumerated ConsensusSettingsGetResponse_Status -> Vector ConsensusSettingsEntry -> ConsensusSettingsGetResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ConsensusSettingsGetResponse_Status +Hs.pure Enumerated ConsensusSettingsGetResponse_Status -> Vector ConsensusSettingsEntry -> ConsensusSettingsGetResponse ConsensusSettingsGetResponse) Parser RawMessage @@ -20170,133 +21494,148 @@ forall (f :: * -> *) a. Applicative f => a -> f a RawMessage (Vector ConsensusSettingsEntry -> ConsensusSettingsGetResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField (Enumerated ConsensusSettingsGetResponse_Status) +<*> + (Parser RawField (Enumerated ConsensusSettingsGetResponse_Status) -> FieldNumber -> Parser RawMessage (Enumerated ConsensusSettingsGetResponse_Status) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (Enumerated ConsensusSettingsGetResponse_Status) +HsProtobuf.at Parser RawField (Enumerated ConsensusSettingsGetResponse_Status) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (Vector ConsensusSettingsEntry -> ConsensusSettingsGetResponse) -> Parser RawMessage (Vector ConsensusSettingsEntry) -> Parser RawMessage ConsensusSettingsGetResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (NestedVec ConsensusSettingsEntry) +<*> + (Parser RawMessage (NestedVec ConsensusSettingsEntry) -> Parser RawMessage (Vector ConsensusSettingsEntry) -forall a b. Coercible a b => a -> b -Hs.coerce - @(_ (HsProtobuf.NestedVec Data.Sawtooth.Consensus.ConsensusSettingsEntry)) - @(_ (Hs.Vector Data.Sawtooth.Consensus.ConsensusSettingsEntry)) - (Parser RawField (NestedVec ConsensusSettingsEntry) +Hs.coerce + @(_ (HsProtobuf.NestedVec Data.Sawtooth.Consensus.ConsensusSettingsEntry)) + @(_ (Hs.Vector Data.Sawtooth.Consensus.ConsensusSettingsEntry)) + (Parser RawField (NestedVec ConsensusSettingsEntry) -> FieldNumber -> Parser RawMessage (NestedVec ConsensusSettingsEntry) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (NestedVec ConsensusSettingsEntry) +HsProtobuf.at Parser RawField (NestedVec ConsensusSettingsEntry) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2))) - dotProto :: Proxy# ConsensusSettingsGetResponse -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2))) + dotProto :: Proxy# ConsensusSettingsGetResponse -> [DotProtoField] +dotProto Proxy# ConsensusSettingsGetResponse +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "Status"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "status") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"Status"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"status") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Repeated - (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "ConsensusSettingsEntry"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "entries") - [] - "")] - -instance HsJSONPB.ToJSONPB ConsensusSettingsGetResponse where - toJSONPB :: ConsensusSettingsGetResponse -> Options -> Value -toJSONPB (ConsensusSettingsGetResponse f1 :: Enumerated ConsensusSettingsGetResponse_Status -f1 f2 :: Vector ConsensusSettingsEntry -f2) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["status" Text +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Repeated + (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"ConsensusSettingsEntry"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"entries") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ConsensusSettingsGetResponse where + toJSONPB :: ConsensusSettingsGetResponse -> Options -> Value +toJSONPB (ConsensusSettingsGetResponse Enumerated ConsensusSettingsGetResponse_Status +f1 Vector ConsensusSettingsEntry +f2) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"status" Text -> Enumerated ConsensusSettingsGetResponse_Status -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated ConsensusSettingsGetResponse_Status -f1, "entries" Text -> Vector ConsensusSettingsEntry -> Options -> [Pair] +.= Enumerated ConsensusSettingsGetResponse_Status +f1, Text +"entries" Text -> Vector ConsensusSettingsEntry -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector ConsensusSettingsEntry -f2]) - toEncodingPB :: ConsensusSettingsGetResponse -> Options -> Encoding -toEncodingPB (ConsensusSettingsGetResponse f1 :: Enumerated ConsensusSettingsGetResponse_Status -f1 f2 :: Vector ConsensusSettingsEntry -f2) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["status" Text +.= Vector ConsensusSettingsEntry +f2]) + toEncodingPB :: ConsensusSettingsGetResponse -> Options -> Encoding +toEncodingPB (ConsensusSettingsGetResponse Enumerated ConsensusSettingsGetResponse_Status +f1 Vector ConsensusSettingsEntry +f2) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"status" Text -> Enumerated ConsensusSettingsGetResponse_Status -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated ConsensusSettingsGetResponse_Status -f1, "entries" Text -> Vector ConsensusSettingsEntry -> Options -> Series +.= Enumerated ConsensusSettingsGetResponse_Status +f1, Text +"entries" Text -> Vector ConsensusSettingsEntry -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector ConsensusSettingsEntry -f2]) - -instance HsJSONPB.FromJSONPB ConsensusSettingsGetResponse where - parseJSONPB :: Value -> Parser ConsensusSettingsGetResponse -parseJSONPB - = (String +.= Vector ConsensusSettingsEntry +f2]) + +instance HsJSONPB.FromJSONPB ConsensusSettingsGetResponse where + parseJSONPB :: Value -> Parser ConsensusSettingsGetResponse +parseJSONPB + = (String -> (Object -> Parser ConsensusSettingsGetResponse) -> Value -> Parser ConsensusSettingsGetResponse forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ConsensusSettingsGetResponse" - (\ obj :: Object -obj -> - ((Enumerated ConsensusSettingsGetResponse_Status +HsJSONPB.withObject String +"ConsensusSettingsGetResponse" + (\ Object +obj -> + ((Enumerated ConsensusSettingsGetResponse_Status -> Vector ConsensusSettingsEntry -> ConsensusSettingsGetResponse) -> Parser (Enumerated ConsensusSettingsGetResponse_Status -> Vector ConsensusSettingsEntry -> ConsensusSettingsGetResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ConsensusSettingsGetResponse_Status +Hs.pure Enumerated ConsensusSettingsGetResponse_Status -> Vector ConsensusSettingsEntry -> ConsensusSettingsGetResponse ConsensusSettingsGetResponse) Parser (Enumerated ConsensusSettingsGetResponse_Status @@ -20305,85 +21644,88 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Parser (Vector ConsensusSettingsEntry -> ConsensusSettingsGetResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object +<*> Object +obj Object -> Text -> Parser (Enumerated ConsensusSettingsGetResponse_Status) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "status" Parser +.: Text +"status" Parser (Vector ConsensusSettingsEntry -> ConsensusSettingsGetResponse) -> Parser (Vector ConsensusSettingsEntry) -> Parser ConsensusSettingsGetResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser (Vector ConsensusSettingsEntry) +<*> + Object +obj Object -> Text -> Parser (Vector ConsensusSettingsEntry) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "entries")) - -instance HsJSONPB.ToJSON ConsensusSettingsGetResponse where - toJSON :: ConsensusSettingsGetResponse -> Value -toJSON = ConsensusSettingsGetResponse -> Value +.: Text +"entries")) + +instance HsJSONPB.ToJSON ConsensusSettingsGetResponse where + toJSON :: ConsensusSettingsGetResponse -> Value +toJSON = ConsensusSettingsGetResponse -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ConsensusSettingsGetResponse -> Encoding -toEncoding = ConsensusSettingsGetResponse -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ConsensusSettingsGetResponse -> Encoding +toEncoding = ConsensusSettingsGetResponse -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ConsensusSettingsGetResponse where - parseJSON :: Value -> Parser ConsensusSettingsGetResponse -parseJSON = Value -> Parser ConsensusSettingsGetResponse +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ConsensusSettingsGetResponse where + parseJSON :: Value -> Parser ConsensusSettingsGetResponse +parseJSON = Value -> Parser ConsensusSettingsGetResponse forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ConsensusSettingsGetResponse where - declareNamedSchema :: Proxy ConsensusSettingsGetResponse +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ConsensusSettingsGetResponse where + declareNamedSchema :: Proxy ConsensusSettingsGetResponse -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_status :: Proxy +declareNamedSchema Proxy ConsensusSettingsGetResponse +_ + = do let declare_status :: Proxy (OverrideToSchema (Enumerated ConsensusSettingsGetResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status = Proxy +declare_status = Proxy (OverrideToSchema (Enumerated ConsensusSettingsGetResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -consensusSettingsGetResponseStatus <- Proxy +HsJSONPB.declareSchemaRef + Referenced Schema +consensusSettingsGetResponseStatus <- Proxy (OverrideToSchema (Enumerated ConsensusSettingsGetResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status Proxy +declare_status Proxy (OverrideToSchema (Enumerated ConsensusSettingsGetResponse_Status)) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_entries :: Proxy (OverrideToSchema (Vector ConsensusSettingsEntry)) +Proxy.Proxy + let declare_entries :: Proxy (OverrideToSchema (Vector ConsensusSettingsEntry)) -> Declare (Definitions Schema) (Referenced Schema) -declare_entries = Proxy (OverrideToSchema (Vector ConsensusSettingsEntry)) +declare_entries = Proxy (OverrideToSchema (Vector ConsensusSettingsEntry)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -consensusSettingsGetResponseEntries <- Proxy (OverrideToSchema (Vector ConsensusSettingsEntry)) +HsJSONPB.declareSchemaRef + Referenced Schema +consensusSettingsGetResponseEntries <- Proxy (OverrideToSchema (Vector ConsensusSettingsEntry)) -> Declare (Definitions Schema) (Referenced Schema) -declare_entries Proxy (OverrideToSchema (Vector ConsensusSettingsEntry)) +declare_entries Proxy (OverrideToSchema (Vector ConsensusSettingsEntry)) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ConsensusSettingsGetResponse +Proxy.Proxy + let Proxy ConsensusSettingsGetResponse _ = (Enumerated ConsensusSettingsGetResponse_Status -> Vector ConsensusSettingsEntry -> ConsensusSettingsGetResponse) -> Proxy (Enumerated ConsensusSettingsGetResponse_Status -> Vector ConsensusSettingsEntry -> ConsensusSettingsGetResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ConsensusSettingsGetResponse_Status +Hs.pure Enumerated ConsensusSettingsGetResponse_Status -> Vector ConsensusSettingsEntry -> ConsensusSettingsGetResponse ConsensusSettingsGetResponse Proxy (Enumerated ConsensusSettingsGetResponse_Status @@ -20392,73 +21734,76 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Proxy (Vector ConsensusSettingsEntry -> ConsensusSettingsGetResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy +<*> + (Proxy (OverrideToSchema (Enumerated ConsensusSettingsGetResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Enumerated ConsensusSettingsGetResponse_Status) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy +HsJSONPB.asProxy Proxy (OverrideToSchema (Enumerated ConsensusSettingsGetResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status - Proxy +declare_status + Proxy (Vector ConsensusSettingsEntry -> ConsensusSettingsGetResponse) -> Proxy (Vector ConsensusSettingsEntry) -> Proxy ConsensusSettingsGetResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema (Vector ConsensusSettingsEntry)) +<*> (Proxy (OverrideToSchema (Vector ConsensusSettingsEntry)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Vector ConsensusSettingsEntry) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Vector ConsensusSettingsEntry)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Vector ConsensusSettingsEntry)) -> Declare (Definitions Schema) (Referenced Schema) -declare_entries - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_entries + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ConsensusSettingsGetResponse", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ConsensusSettingsGetResponse", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("status", - Referenced Schema -consensusSettingsGetResponseStatus), - ("entries", - Referenced Schema -consensusSettingsGetResponseEntries)]}}) - -data ConsensusSettingsGetResponse_Status = ConsensusSettingsGetResponse_StatusSTATUS_UNSET - | ConsensusSettingsGetResponse_StatusOK - | ConsensusSettingsGetResponse_StatusBAD_REQUEST - | ConsensusSettingsGetResponse_StatusSERVICE_ERROR - | ConsensusSettingsGetResponse_StatusNOT_READY - | ConsensusSettingsGetResponse_StatusUNKNOWN_BLOCK - | ConsensusSettingsGetResponse_StatusNOT_ACTIVE_ENGINE - deriving (Int -> ConsensusSettingsGetResponse_Status -> ShowS +HsJSONPB.insOrdFromList + [(Text +"status", + Referenced Schema +consensusSettingsGetResponseStatus), + (Text +"entries", + Referenced Schema +consensusSettingsGetResponseEntries)]}}) + +data ConsensusSettingsGetResponse_Status = ConsensusSettingsGetResponse_StatusSTATUS_UNSET + | ConsensusSettingsGetResponse_StatusOK + | ConsensusSettingsGetResponse_StatusBAD_REQUEST + | ConsensusSettingsGetResponse_StatusSERVICE_ERROR + | ConsensusSettingsGetResponse_StatusNOT_READY + | ConsensusSettingsGetResponse_StatusUNKNOWN_BLOCK + | ConsensusSettingsGetResponse_StatusNOT_ACTIVE_ENGINE + deriving (Int -> ConsensusSettingsGetResponse_Status -> ShowS [ConsensusSettingsGetResponse_Status] -> ShowS ConsensusSettingsGetResponse_Status -> String (Int -> ConsensusSettingsGetResponse_Status -> ShowS) @@ -20473,7 +21818,7 @@ show :: ConsensusSettingsGetResponse_Status -> String $cshow :: ConsensusSettingsGetResponse_Status -> String showsPrec :: Int -> ConsensusSettingsGetResponse_Status -> ShowS $cshowsPrec :: Int -> ConsensusSettingsGetResponse_Status -> ShowS -Hs.Show, ConsensusSettingsGetResponse_Status +Hs.Show, ConsensusSettingsGetResponse_Status -> ConsensusSettingsGetResponse_Status -> Bool (ConsensusSettingsGetResponse_Status -> ConsensusSettingsGetResponse_Status -> Bool) @@ -20489,7 +21834,7 @@ $c/= :: ConsensusSettingsGetResponse_Status -> ConsensusSettingsGetResponse_Status -> Bool $c== :: ConsensusSettingsGetResponse_Status -> ConsensusSettingsGetResponse_Status -> Bool -Hs.Eq, (forall x. +Hs.Eq, (forall x. ConsensusSettingsGetResponse_Status -> Rep ConsensusSettingsGetResponse_Status x) -> (forall x. @@ -20510,206 +21855,233 @@ Rep ConsensusSettingsGetResponse_Status x $cfrom :: forall x. ConsensusSettingsGetResponse_Status -> Rep ConsensusSettingsGetResponse_Status x -Hs.Generic, ConsensusSettingsGetResponse_Status -> () +Hs.Generic, ConsensusSettingsGetResponse_Status -> () (ConsensusSettingsGetResponse_Status -> ()) -> NFData ConsensusSettingsGetResponse_Status forall a. (a -> ()) -> NFData a rnf :: ConsensusSettingsGetResponse_Status -> () $crnf :: ConsensusSettingsGetResponse_Status -> () -Hs.NFData) - -instance HsProtobuf.Named ConsensusSettingsGetResponse_Status where - nameOf :: Proxy# ConsensusSettingsGetResponse_Status -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ConsensusSettingsGetResponse_Status where + nameOf :: Proxy# ConsensusSettingsGetResponse_Status -> string +nameOf Proxy# ConsensusSettingsGetResponse_Status +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ConsensusSettingsGetResponse_Status") - -instance HsProtobuf.HasDefault ConsensusSettingsGetResponse_Status - -instance Hs.Bounded ConsensusSettingsGetResponse_Status where - minBound :: ConsensusSettingsGetResponse_Status -minBound = ConsensusSettingsGetResponse_Status +Hs.fromString String +"ConsensusSettingsGetResponse_Status") + +instance HsProtobuf.HasDefault ConsensusSettingsGetResponse_Status + +instance Hs.Bounded ConsensusSettingsGetResponse_Status where + minBound :: ConsensusSettingsGetResponse_Status +minBound = ConsensusSettingsGetResponse_Status ConsensusSettingsGetResponse_StatusSTATUS_UNSET - maxBound :: ConsensusSettingsGetResponse_Status -maxBound = ConsensusSettingsGetResponse_Status + maxBound :: ConsensusSettingsGetResponse_Status +maxBound = ConsensusSettingsGetResponse_Status ConsensusSettingsGetResponse_StatusNOT_ACTIVE_ENGINE - -instance Hs.Ord ConsensusSettingsGetResponse_Status where - compare :: ConsensusSettingsGetResponse_Status + +instance Hs.Ord ConsensusSettingsGetResponse_Status where + compare :: ConsensusSettingsGetResponse_Status -> ConsensusSettingsGetResponse_Status -> Ordering -compare x :: ConsensusSettingsGetResponse_Status -x y :: ConsensusSettingsGetResponse_Status -y - = Int32 -> Int32 -> Ordering +compare ConsensusSettingsGetResponse_Status +x ConsensusSettingsGetResponse_Status +y + = Int32 -> Int32 -> Ordering forall a. Ord a => a -> a -> Ordering -Hs.compare (ConsensusSettingsGetResponse_Status -> Int32 +Hs.compare (ConsensusSettingsGetResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum ConsensusSettingsGetResponse_Status -x) - (ConsensusSettingsGetResponse_Status -> Int32 +HsProtobuf.fromProtoEnum ConsensusSettingsGetResponse_Status +x) + (ConsensusSettingsGetResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum ConsensusSettingsGetResponse_Status -y) - -instance HsProtobuf.ProtoEnum ConsensusSettingsGetResponse_Status - where - toProtoEnumMay :: Int32 -> Maybe ConsensusSettingsGetResponse_Status -toProtoEnumMay 0 - = ConsensusSettingsGetResponse_Status +HsProtobuf.fromProtoEnum ConsensusSettingsGetResponse_Status +y) + +instance HsProtobuf.ProtoEnum ConsensusSettingsGetResponse_Status + where + toProtoEnumMay :: Int32 -> Maybe ConsensusSettingsGetResponse_Status +toProtoEnumMay Int32 +0 + = ConsensusSettingsGetResponse_Status -> Maybe ConsensusSettingsGetResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusSettingsGetResponse_Status +Hs.Just ConsensusSettingsGetResponse_Status ConsensusSettingsGetResponse_StatusSTATUS_UNSET - toProtoEnumMay 1 = ConsensusSettingsGetResponse_Status + toProtoEnumMay Int32 +1 = ConsensusSettingsGetResponse_Status -> Maybe ConsensusSettingsGetResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusSettingsGetResponse_Status +Hs.Just ConsensusSettingsGetResponse_Status ConsensusSettingsGetResponse_StatusOK - toProtoEnumMay 2 - = ConsensusSettingsGetResponse_Status + toProtoEnumMay Int32 +2 + = ConsensusSettingsGetResponse_Status -> Maybe ConsensusSettingsGetResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusSettingsGetResponse_Status +Hs.Just ConsensusSettingsGetResponse_Status ConsensusSettingsGetResponse_StatusBAD_REQUEST - toProtoEnumMay 3 - = ConsensusSettingsGetResponse_Status + toProtoEnumMay Int32 +3 + = ConsensusSettingsGetResponse_Status -> Maybe ConsensusSettingsGetResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusSettingsGetResponse_Status +Hs.Just ConsensusSettingsGetResponse_Status ConsensusSettingsGetResponse_StatusSERVICE_ERROR - toProtoEnumMay 4 - = ConsensusSettingsGetResponse_Status + toProtoEnumMay Int32 +4 + = ConsensusSettingsGetResponse_Status -> Maybe ConsensusSettingsGetResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusSettingsGetResponse_Status +Hs.Just ConsensusSettingsGetResponse_Status ConsensusSettingsGetResponse_StatusNOT_READY - toProtoEnumMay 5 - = ConsensusSettingsGetResponse_Status + toProtoEnumMay Int32 +5 + = ConsensusSettingsGetResponse_Status -> Maybe ConsensusSettingsGetResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusSettingsGetResponse_Status +Hs.Just ConsensusSettingsGetResponse_Status ConsensusSettingsGetResponse_StatusUNKNOWN_BLOCK - toProtoEnumMay 6 - = ConsensusSettingsGetResponse_Status + toProtoEnumMay Int32 +6 + = ConsensusSettingsGetResponse_Status -> Maybe ConsensusSettingsGetResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusSettingsGetResponse_Status +Hs.Just ConsensusSettingsGetResponse_Status ConsensusSettingsGetResponse_StatusNOT_ACTIVE_ENGINE - toProtoEnumMay _ = Maybe ConsensusSettingsGetResponse_Status + toProtoEnumMay Int32 +_ = Maybe ConsensusSettingsGetResponse_Status forall a. Maybe a -Hs.Nothing - fromProtoEnum :: ConsensusSettingsGetResponse_Status -> Int32 -fromProtoEnum (ConsensusSettingsGetResponse_Status -ConsensusSettingsGetResponse_StatusSTATUS_UNSET) = 0 - fromProtoEnum (ConsensusSettingsGetResponse_Status -ConsensusSettingsGetResponse_StatusOK) = 1 - fromProtoEnum (ConsensusSettingsGetResponse_Status -ConsensusSettingsGetResponse_StatusBAD_REQUEST) = 2 - fromProtoEnum (ConsensusSettingsGetResponse_Status +Hs.Nothing + fromProtoEnum :: ConsensusSettingsGetResponse_Status -> Int32 +fromProtoEnum (ConsensusSettingsGetResponse_Status +ConsensusSettingsGetResponse_StatusSTATUS_UNSET) = Int32 +0 + fromProtoEnum (ConsensusSettingsGetResponse_Status +ConsensusSettingsGetResponse_StatusOK) = Int32 +1 + fromProtoEnum (ConsensusSettingsGetResponse_Status +ConsensusSettingsGetResponse_StatusBAD_REQUEST) = Int32 +2 + fromProtoEnum (ConsensusSettingsGetResponse_Status ConsensusSettingsGetResponse_StatusSERVICE_ERROR) - = 3 - fromProtoEnum (ConsensusSettingsGetResponse_Status -ConsensusSettingsGetResponse_StatusNOT_READY) = 4 - fromProtoEnum (ConsensusSettingsGetResponse_Status + = Int32 +3 + fromProtoEnum (ConsensusSettingsGetResponse_Status +ConsensusSettingsGetResponse_StatusNOT_READY) = Int32 +4 + fromProtoEnum (ConsensusSettingsGetResponse_Status ConsensusSettingsGetResponse_StatusUNKNOWN_BLOCK) - = 5 - fromProtoEnum - (ConsensusSettingsGetResponse_Status -ConsensusSettingsGetResponse_StatusNOT_ACTIVE_ENGINE) = 6 - -instance HsJSONPB.ToJSONPB ConsensusSettingsGetResponse_Status - where - toJSONPB :: ConsensusSettingsGetResponse_Status -> Options -> Value -toJSONPB x :: ConsensusSettingsGetResponse_Status -x _ = ConsensusSettingsGetResponse_Status -> Value + = Int32 +5 + fromProtoEnum + (ConsensusSettingsGetResponse_Status +ConsensusSettingsGetResponse_StatusNOT_ACTIVE_ENGINE) = Int32 +6 + +instance HsJSONPB.ToJSONPB ConsensusSettingsGetResponse_Status + where + toJSONPB :: ConsensusSettingsGetResponse_Status -> Options -> Value +toJSONPB ConsensusSettingsGetResponse_Status +x Options +_ = ConsensusSettingsGetResponse_Status -> Value forall a. (Named a, Show a) => a -> Value -HsJSONPB.enumFieldString ConsensusSettingsGetResponse_Status -x - toEncodingPB :: ConsensusSettingsGetResponse_Status -> Options -> Encoding -toEncodingPB x :: ConsensusSettingsGetResponse_Status -x _ = ConsensusSettingsGetResponse_Status -> Encoding +HsJSONPB.enumFieldString ConsensusSettingsGetResponse_Status +x + toEncodingPB :: ConsensusSettingsGetResponse_Status -> Options -> Encoding +toEncodingPB ConsensusSettingsGetResponse_Status +x Options +_ = ConsensusSettingsGetResponse_Status -> Encoding forall a. (Named a, Show a) => a -> Encoding -HsJSONPB.enumFieldEncoding ConsensusSettingsGetResponse_Status -x - -instance HsJSONPB.FromJSONPB ConsensusSettingsGetResponse_Status - where - parseJSONPB :: Value -> Parser ConsensusSettingsGetResponse_Status -parseJSONPB (HsJSONPB.String "STATUS_UNSET") - = ConsensusSettingsGetResponse_Status +HsJSONPB.enumFieldEncoding ConsensusSettingsGetResponse_Status +x + +instance HsJSONPB.FromJSONPB ConsensusSettingsGetResponse_Status + where + parseJSONPB :: Value -> Parser ConsensusSettingsGetResponse_Status +parseJSONPB (HsJSONPB.String Text +"STATUS_UNSET") + = ConsensusSettingsGetResponse_Status -> Parser ConsensusSettingsGetResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusSettingsGetResponse_Status +Hs.pure ConsensusSettingsGetResponse_Status ConsensusSettingsGetResponse_StatusSTATUS_UNSET - parseJSONPB (HsJSONPB.String "OK") - = ConsensusSettingsGetResponse_Status + parseJSONPB (HsJSONPB.String Text +"OK") + = ConsensusSettingsGetResponse_Status -> Parser ConsensusSettingsGetResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusSettingsGetResponse_Status +Hs.pure ConsensusSettingsGetResponse_Status ConsensusSettingsGetResponse_StatusOK - parseJSONPB (HsJSONPB.String "BAD_REQUEST") - = ConsensusSettingsGetResponse_Status + parseJSONPB (HsJSONPB.String Text +"BAD_REQUEST") + = ConsensusSettingsGetResponse_Status -> Parser ConsensusSettingsGetResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusSettingsGetResponse_Status +Hs.pure ConsensusSettingsGetResponse_Status ConsensusSettingsGetResponse_StatusBAD_REQUEST - parseJSONPB (HsJSONPB.String "SERVICE_ERROR") - = ConsensusSettingsGetResponse_Status + parseJSONPB (HsJSONPB.String Text +"SERVICE_ERROR") + = ConsensusSettingsGetResponse_Status -> Parser ConsensusSettingsGetResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusSettingsGetResponse_Status +Hs.pure ConsensusSettingsGetResponse_Status ConsensusSettingsGetResponse_StatusSERVICE_ERROR - parseJSONPB (HsJSONPB.String "NOT_READY") - = ConsensusSettingsGetResponse_Status + parseJSONPB (HsJSONPB.String Text +"NOT_READY") + = ConsensusSettingsGetResponse_Status -> Parser ConsensusSettingsGetResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusSettingsGetResponse_Status +Hs.pure ConsensusSettingsGetResponse_Status ConsensusSettingsGetResponse_StatusNOT_READY - parseJSONPB (HsJSONPB.String "UNKNOWN_BLOCK") - = ConsensusSettingsGetResponse_Status + parseJSONPB (HsJSONPB.String Text +"UNKNOWN_BLOCK") + = ConsensusSettingsGetResponse_Status -> Parser ConsensusSettingsGetResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusSettingsGetResponse_Status +Hs.pure ConsensusSettingsGetResponse_Status ConsensusSettingsGetResponse_StatusUNKNOWN_BLOCK - parseJSONPB (HsJSONPB.String "NOT_ACTIVE_ENGINE") - = ConsensusSettingsGetResponse_Status + parseJSONPB (HsJSONPB.String Text +"NOT_ACTIVE_ENGINE") + = ConsensusSettingsGetResponse_Status -> Parser ConsensusSettingsGetResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusSettingsGetResponse_Status +Hs.pure ConsensusSettingsGetResponse_Status ConsensusSettingsGetResponse_StatusNOT_ACTIVE_ENGINE - parseJSONPB v :: Value -v - = (String -> Value -> Parser ConsensusSettingsGetResponse_Status + parseJSONPB Value +v + = (String -> Value -> Parser ConsensusSettingsGetResponse_Status forall a. String -> Value -> Parser a -HsJSONPB.typeMismatch "ConsensusSettingsGetResponse_Status" Value -v) - -instance HsJSONPB.ToJSON ConsensusSettingsGetResponse_Status where - toJSON :: ConsensusSettingsGetResponse_Status -> Value -toJSON = ConsensusSettingsGetResponse_Status -> Value +HsJSONPB.typeMismatch String +"ConsensusSettingsGetResponse_Status" Value +v) + +instance HsJSONPB.ToJSON ConsensusSettingsGetResponse_Status where + toJSON :: ConsensusSettingsGetResponse_Status -> Value +toJSON = ConsensusSettingsGetResponse_Status -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ConsensusSettingsGetResponse_Status -> Encoding -toEncoding = ConsensusSettingsGetResponse_Status -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ConsensusSettingsGetResponse_Status -> Encoding +toEncoding = ConsensusSettingsGetResponse_Status -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ConsensusSettingsGetResponse_Status - where - parseJSON :: Value -> Parser ConsensusSettingsGetResponse_Status -parseJSON = Value -> Parser ConsensusSettingsGetResponse_Status +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ConsensusSettingsGetResponse_Status + where + parseJSON :: Value -> Parser ConsensusSettingsGetResponse_Status +parseJSON = Value -> Parser ConsensusSettingsGetResponse_Status forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsProtobuf.Finite ConsensusSettingsGetResponse_Status - -data ConsensusStateGetRequest = ConsensusStateGetRequest{ConsensusStateGetRequest -> ByteString +HsJSONPB.parseJSONPB + +instance HsProtobuf.Finite ConsensusSettingsGetResponse_Status + +data ConsensusStateGetRequest = ConsensusStateGetRequest{ConsensusStateGetRequest -> ByteString consensusStateGetRequestBlockId - :: Hs.ByteString, - ConsensusStateGetRequest -> Vector Text + :: Hs.ByteString, + ConsensusStateGetRequest -> Vector Text consensusStateGetRequestAddresses :: - Hs.Vector Hs.Text} - deriving (Int -> ConsensusStateGetRequest -> ShowS + Hs.Vector Hs.Text} + deriving (Int -> ConsensusStateGetRequest -> ShowS [ConsensusStateGetRequest] -> ShowS ConsensusStateGetRequest -> String (Int -> ConsensusStateGetRequest -> ShowS) @@ -20724,7 +22096,7 @@ show :: ConsensusStateGetRequest -> String $cshow :: ConsensusStateGetRequest -> String showsPrec :: Int -> ConsensusStateGetRequest -> ShowS $cshowsPrec :: Int -> ConsensusStateGetRequest -> ShowS -Hs.Show, ConsensusStateGetRequest -> ConsensusStateGetRequest -> Bool +Hs.Show, ConsensusStateGetRequest -> ConsensusStateGetRequest -> Bool (ConsensusStateGetRequest -> ConsensusStateGetRequest -> Bool) -> (ConsensusStateGetRequest -> ConsensusStateGetRequest -> Bool) -> Eq ConsensusStateGetRequest @@ -20733,9 +22105,10 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: ConsensusStateGetRequest -> ConsensusStateGetRequest -> Bool == :: ConsensusStateGetRequest -> ConsensusStateGetRequest -> Bool $c== :: ConsensusStateGetRequest -> ConsensusStateGetRequest -> Bool -Hs.Eq, Eq ConsensusStateGetRequest -Eq ConsensusStateGetRequest => -(ConsensusStateGetRequest -> ConsensusStateGetRequest -> Ordering) +Hs.Eq, Eq ConsensusStateGetRequest +Eq ConsensusStateGetRequest +-> (ConsensusStateGetRequest + -> ConsensusStateGetRequest -> Ordering) -> (ConsensusStateGetRequest -> ConsensusStateGetRequest -> Bool) -> (ConsensusStateGetRequest -> ConsensusStateGetRequest -> Bool) -> (ConsensusStateGetRequest -> ConsensusStateGetRequest -> Bool) @@ -20750,8 +22123,8 @@ ConsensusStateGetRequest -> ConsensusStateGetRequest -> Ordering ConsensusStateGetRequest -> ConsensusStateGetRequest -> ConsensusStateGetRequest forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -20778,7 +22151,7 @@ $c< :: ConsensusStateGetRequest -> ConsensusStateGetRequest -> Bool compare :: ConsensusStateGetRequest -> ConsensusStateGetRequest -> Ordering $ccompare :: ConsensusStateGetRequest -> ConsensusStateGetRequest -> Ordering $cp1Ord :: Eq ConsensusStateGetRequest -Hs.Ord, (forall x. +Hs.Ord, (forall x. ConsensusStateGetRequest -> Rep ConsensusStateGetRequest x) -> (forall x. Rep ConsensusStateGetRequest x -> ConsensusStateGetRequest) @@ -20793,314 +22166,338 @@ $cto :: forall x. Rep ConsensusStateGetRequest x -> ConsensusStateGetRequest $cfrom :: forall x. ConsensusStateGetRequest -> Rep ConsensusStateGetRequest x -Hs.Generic, ConsensusStateGetRequest -> () +Hs.Generic, ConsensusStateGetRequest -> () (ConsensusStateGetRequest -> ()) -> NFData ConsensusStateGetRequest forall a. (a -> ()) -> NFData a rnf :: ConsensusStateGetRequest -> () $crnf :: ConsensusStateGetRequest -> () -Hs.NFData) - -instance HsProtobuf.Named ConsensusStateGetRequest where - nameOf :: Proxy# ConsensusStateGetRequest -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ConsensusStateGetRequest where + nameOf :: Proxy# ConsensusStateGetRequest -> string +nameOf Proxy# ConsensusStateGetRequest +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ConsensusStateGetRequest") - -instance HsProtobuf.HasDefault ConsensusStateGetRequest - -instance HsProtobuf.Message ConsensusStateGetRequest where - encodeMessage :: FieldNumber -> ConsensusStateGetRequest -> MessageBuilder -encodeMessage _ - ConsensusStateGetRequest{consensusStateGetRequestBlockId :: ConsensusStateGetRequest -> ByteString +Hs.fromString String +"ConsensusStateGetRequest") + +instance HsProtobuf.HasDefault ConsensusStateGetRequest + +instance HsProtobuf.Message ConsensusStateGetRequest where + encodeMessage :: FieldNumber -> ConsensusStateGetRequest -> MessageBuilder +encodeMessage FieldNumber +_ + ConsensusStateGetRequest{consensusStateGetRequestBlockId :: ConsensusStateGetRequest -> ByteString consensusStateGetRequestBlockId = - ByteString -consensusStateGetRequestBlockId, - consensusStateGetRequestAddresses :: ConsensusStateGetRequest -> Vector Text + ByteString +consensusStateGetRequestBlockId, + consensusStateGetRequestAddresses :: ConsensusStateGetRequest -> Vector Text consensusStateGetRequestAddresses = - Vector Text -consensusStateGetRequestAddresses} - = ([MessageBuilder] -> MessageBuilder + Vector Text +consensusStateGetRequestAddresses} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> ByteString -> MessageBuilder +Hs.mconcat + [(FieldNumber -> ByteString -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - ByteString -consensusStateGetRequestBlockId), - (FieldNumber -> UnpackedVec Text -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + ByteString +consensusStateGetRequestBlockId), + (FieldNumber -> UnpackedVec Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (Vector Text -> UnpackedVec Text -forall a b. Coercible a b => a -> b -Hs.coerce @(Hs.Vector Hs.Text) @(HsProtobuf.UnpackedVec Hs.Text) - Vector Text -consensusStateGetRequestAddresses))]) - decodeMessage :: FieldNumber -> Parser RawMessage ConsensusStateGetRequest -decodeMessage _ - = ((ByteString -> Vector Text -> ConsensusStateGetRequest) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (Vector Text -> UnpackedVec Text +Hs.coerce @(Hs.Vector Hs.Text) @(HsProtobuf.UnpackedVec Hs.Text) + Vector Text +consensusStateGetRequestAddresses))]) + decodeMessage :: FieldNumber -> Parser RawMessage ConsensusStateGetRequest +decodeMessage FieldNumber +_ + = ((ByteString -> Vector Text -> ConsensusStateGetRequest) -> Parser RawMessage (ByteString -> Vector Text -> ConsensusStateGetRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString -> Vector Text -> ConsensusStateGetRequest +Hs.pure ByteString -> Vector Text -> ConsensusStateGetRequest ConsensusStateGetRequest) Parser RawMessage (ByteString -> Vector Text -> ConsensusStateGetRequest) -> Parser RawMessage ByteString -> Parser RawMessage (Vector Text -> ConsensusStateGetRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField ByteString +<*> + (Parser RawField ByteString -> FieldNumber -> Parser RawMessage ByteString forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField ByteString +HsProtobuf.at Parser RawField ByteString forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser RawMessage (Vector Text -> ConsensusStateGetRequest) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (Vector Text -> ConsensusStateGetRequest) -> Parser RawMessage (Vector Text) -> Parser RawMessage ConsensusStateGetRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (UnpackedVec Text) +<*> + (Parser RawMessage (UnpackedVec Text) -> Parser RawMessage (Vector Text) -forall a b. Coercible a b => a -> b -Hs.coerce @(_ (HsProtobuf.UnpackedVec Hs.Text)) - @(_ (Hs.Vector Hs.Text)) - (Parser RawField (UnpackedVec Text) +Hs.coerce @(_ (HsProtobuf.UnpackedVec Hs.Text)) + @(_ (Hs.Vector Hs.Text)) + (Parser RawField (UnpackedVec Text) -> FieldNumber -> Parser RawMessage (UnpackedVec Text) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (UnpackedVec Text) +HsProtobuf.at Parser RawField (UnpackedVec Text) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2))) - dotProto :: Proxy# ConsensusStateGetRequest -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2))) + dotProto :: Proxy# ConsensusStateGetRequest -> [DotProtoField] +dotProto Proxy# ConsensusStateGetRequest +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.Bytes) - (String -> DotProtoIdentifier -HsProtobuf.Single "block_id") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.Bytes) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"block_id") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Repeated DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "addresses") - [] - "")] - -instance HsJSONPB.ToJSONPB ConsensusStateGetRequest where - toJSONPB :: ConsensusStateGetRequest -> Options -> Value -toJSONPB (ConsensusStateGetRequest f1 :: ByteString -f1 f2 :: Vector Text -f2) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["block_id" Text -> ByteString -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Repeated DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"addresses") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ConsensusStateGetRequest where + toJSONPB :: ConsensusStateGetRequest -> Options -> Value +toJSONPB (ConsensusStateGetRequest ByteString +f1 Vector Text +f2) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"block_id" Text -> ByteString -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f1, "addresses" Text -> Vector Text -> Options -> [Pair] +.= ByteString +f1, Text +"addresses" Text -> Vector Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Text -f2]) - toEncodingPB :: ConsensusStateGetRequest -> Options -> Encoding -toEncodingPB (ConsensusStateGetRequest f1 :: ByteString -f1 f2 :: Vector Text -f2) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["block_id" Text -> ByteString -> Options -> Series +.= Vector Text +f2]) + toEncodingPB :: ConsensusStateGetRequest -> Options -> Encoding +toEncodingPB (ConsensusStateGetRequest ByteString +f1 Vector Text +f2) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"block_id" Text -> ByteString -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f1, "addresses" Text -> Vector Text -> Options -> Series +.= ByteString +f1, Text +"addresses" Text -> Vector Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Text -f2]) - -instance HsJSONPB.FromJSONPB ConsensusStateGetRequest where - parseJSONPB :: Value -> Parser ConsensusStateGetRequest -parseJSONPB - = (String +.= Vector Text +f2]) + +instance HsJSONPB.FromJSONPB ConsensusStateGetRequest where + parseJSONPB :: Value -> Parser ConsensusStateGetRequest +parseJSONPB + = (String -> (Object -> Parser ConsensusStateGetRequest) -> Value -> Parser ConsensusStateGetRequest forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ConsensusStateGetRequest" - (\ obj :: Object -obj -> - ((ByteString -> Vector Text -> ConsensusStateGetRequest) +HsJSONPB.withObject String +"ConsensusStateGetRequest" + (\ Object +obj -> + ((ByteString -> Vector Text -> ConsensusStateGetRequest) -> Parser (ByteString -> Vector Text -> ConsensusStateGetRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString -> Vector Text -> ConsensusStateGetRequest +Hs.pure ByteString -> Vector Text -> ConsensusStateGetRequest ConsensusStateGetRequest) Parser (ByteString -> Vector Text -> ConsensusStateGetRequest) -> Parser ByteString -> Parser (Vector Text -> ConsensusStateGetRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser ByteString +<*> Object +obj Object -> Text -> Parser ByteString forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "block_id" Parser (Vector Text -> ConsensusStateGetRequest) +.: Text +"block_id" Parser (Vector Text -> ConsensusStateGetRequest) -> Parser (Vector Text) -> Parser ConsensusStateGetRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser (Vector Text) +<*> + Object +obj Object -> Text -> Parser (Vector Text) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "addresses")) - -instance HsJSONPB.ToJSON ConsensusStateGetRequest where - toJSON :: ConsensusStateGetRequest -> Value -toJSON = ConsensusStateGetRequest -> Value +.: Text +"addresses")) + +instance HsJSONPB.ToJSON ConsensusStateGetRequest where + toJSON :: ConsensusStateGetRequest -> Value +toJSON = ConsensusStateGetRequest -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ConsensusStateGetRequest -> Encoding -toEncoding = ConsensusStateGetRequest -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ConsensusStateGetRequest -> Encoding +toEncoding = ConsensusStateGetRequest -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ConsensusStateGetRequest where - parseJSON :: Value -> Parser ConsensusStateGetRequest -parseJSON = Value -> Parser ConsensusStateGetRequest +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ConsensusStateGetRequest where + parseJSON :: Value -> Parser ConsensusStateGetRequest +parseJSON = Value -> Parser ConsensusStateGetRequest forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ConsensusStateGetRequest where - declareNamedSchema :: Proxy ConsensusStateGetRequest +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ConsensusStateGetRequest where + declareNamedSchema :: Proxy ConsensusStateGetRequest -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_block_id :: Proxy (OverrideToSchema ByteString) +declareNamedSchema Proxy ConsensusStateGetRequest +_ + = do let declare_block_id :: Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_block_id = Proxy (OverrideToSchema ByteString) +declare_block_id = Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -consensusStateGetRequestBlockId <- Proxy (OverrideToSchema ByteString) +HsJSONPB.declareSchemaRef + Referenced Schema +consensusStateGetRequestBlockId <- Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_block_id Proxy (OverrideToSchema ByteString) +declare_block_id Proxy (OverrideToSchema ByteString) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_addresses :: Proxy (OverrideToSchema (Vector Text)) +Proxy.Proxy + let declare_addresses :: Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) -declare_addresses = Proxy (OverrideToSchema (Vector Text)) +declare_addresses = Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -consensusStateGetRequestAddresses <- Proxy (OverrideToSchema (Vector Text)) +HsJSONPB.declareSchemaRef + Referenced Schema +consensusStateGetRequestAddresses <- Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) -declare_addresses Proxy (OverrideToSchema (Vector Text)) +declare_addresses Proxy (OverrideToSchema (Vector Text)) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ConsensusStateGetRequest +Proxy.Proxy + let Proxy ConsensusStateGetRequest _ = (ByteString -> Vector Text -> ConsensusStateGetRequest) -> Proxy (ByteString -> Vector Text -> ConsensusStateGetRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString -> Vector Text -> ConsensusStateGetRequest +Hs.pure ByteString -> Vector Text -> ConsensusStateGetRequest ConsensusStateGetRequest Proxy (ByteString -> Vector Text -> ConsensusStateGetRequest) -> Proxy ByteString -> Proxy (Vector Text -> ConsensusStateGetRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema ByteString) +<*> + (Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy ByteString forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) +HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_block_id - Proxy (Vector Text -> ConsensusStateGetRequest) +declare_block_id + Proxy (Vector Text -> ConsensusStateGetRequest) -> Proxy (Vector Text) -> Proxy ConsensusStateGetRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema (Vector Text)) +<*> (Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Vector Text) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Text)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) -declare_addresses - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_addresses + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ConsensusStateGetRequest", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ConsensusStateGetRequest", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("block_id", - Referenced Schema -consensusStateGetRequestBlockId), - ("addresses", - Referenced Schema -consensusStateGetRequestAddresses)]}}) - -data ConsensusStateGetResponse = ConsensusStateGetResponse{ConsensusStateGetResponse +HsJSONPB.insOrdFromList + [(Text +"block_id", + Referenced Schema +consensusStateGetRequestBlockId), + (Text +"addresses", + Referenced Schema +consensusStateGetRequestAddresses)]}}) + +data ConsensusStateGetResponse = ConsensusStateGetResponse{ConsensusStateGetResponse -> Enumerated ConsensusStateGetResponse_Status consensusStateGetResponseStatus - :: - HsProtobuf.Enumerated - Data.Sawtooth.Consensus.ConsensusStateGetResponse_Status, - ConsensusStateGetResponse -> Vector ConsensusStateEntry + :: + HsProtobuf.Enumerated + Data.Sawtooth.Consensus.ConsensusStateGetResponse_Status, + ConsensusStateGetResponse -> Vector ConsensusStateEntry consensusStateGetResponseEntries :: - Hs.Vector - Data.Sawtooth.Consensus.ConsensusStateEntry} - deriving (Int -> ConsensusStateGetResponse -> ShowS + Hs.Vector + Data.Sawtooth.Consensus.ConsensusStateEntry} + deriving (Int -> ConsensusStateGetResponse -> ShowS [ConsensusStateGetResponse] -> ShowS ConsensusStateGetResponse -> String (Int -> ConsensusStateGetResponse -> ShowS) @@ -21115,7 +22512,7 @@ show :: ConsensusStateGetResponse -> String $cshow :: ConsensusStateGetResponse -> String showsPrec :: Int -> ConsensusStateGetResponse -> ShowS $cshowsPrec :: Int -> ConsensusStateGetResponse -> ShowS -Hs.Show, ConsensusStateGetResponse -> ConsensusStateGetResponse -> Bool +Hs.Show, ConsensusStateGetResponse -> ConsensusStateGetResponse -> Bool (ConsensusStateGetResponse -> ConsensusStateGetResponse -> Bool) -> (ConsensusStateGetResponse -> ConsensusStateGetResponse -> Bool) -> Eq ConsensusStateGetResponse @@ -21124,10 +22521,10 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: ConsensusStateGetResponse -> ConsensusStateGetResponse -> Bool == :: ConsensusStateGetResponse -> ConsensusStateGetResponse -> Bool $c== :: ConsensusStateGetResponse -> ConsensusStateGetResponse -> Bool -Hs.Eq, Eq ConsensusStateGetResponse -Eq ConsensusStateGetResponse => -(ConsensusStateGetResponse - -> ConsensusStateGetResponse -> Ordering) +Hs.Eq, Eq ConsensusStateGetResponse +Eq ConsensusStateGetResponse +-> (ConsensusStateGetResponse + -> ConsensusStateGetResponse -> Ordering) -> (ConsensusStateGetResponse -> ConsensusStateGetResponse -> Bool) -> (ConsensusStateGetResponse -> ConsensusStateGetResponse -> Bool) -> (ConsensusStateGetResponse -> ConsensusStateGetResponse -> Bool) @@ -21142,8 +22539,8 @@ ConsensusStateGetResponse -> ConsensusStateGetResponse -> Ordering ConsensusStateGetResponse -> ConsensusStateGetResponse -> ConsensusStateGetResponse forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -21170,7 +22567,7 @@ $c< :: ConsensusStateGetResponse -> ConsensusStateGetResponse -> Bool compare :: ConsensusStateGetResponse -> ConsensusStateGetResponse -> Ordering $ccompare :: ConsensusStateGetResponse -> ConsensusStateGetResponse -> Ordering $cp1Ord :: Eq ConsensusStateGetResponse -Hs.Ord, (forall x. +Hs.Ord, (forall x. ConsensusStateGetResponse -> Rep ConsensusStateGetResponse x) -> (forall x. Rep ConsensusStateGetResponse x -> ConsensusStateGetResponse) @@ -21185,64 +22582,69 @@ $cto :: forall x. Rep ConsensusStateGetResponse x -> ConsensusStateGetResponse $cfrom :: forall x. ConsensusStateGetResponse -> Rep ConsensusStateGetResponse x -Hs.Generic, ConsensusStateGetResponse -> () +Hs.Generic, ConsensusStateGetResponse -> () (ConsensusStateGetResponse -> ()) -> NFData ConsensusStateGetResponse forall a. (a -> ()) -> NFData a rnf :: ConsensusStateGetResponse -> () $crnf :: ConsensusStateGetResponse -> () -Hs.NFData) - -instance HsProtobuf.Named ConsensusStateGetResponse where - nameOf :: Proxy# ConsensusStateGetResponse -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ConsensusStateGetResponse where + nameOf :: Proxy# ConsensusStateGetResponse -> string +nameOf Proxy# ConsensusStateGetResponse +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ConsensusStateGetResponse") - -instance HsProtobuf.HasDefault ConsensusStateGetResponse - -instance HsProtobuf.Message ConsensusStateGetResponse where - encodeMessage :: FieldNumber -> ConsensusStateGetResponse -> MessageBuilder -encodeMessage _ - ConsensusStateGetResponse{consensusStateGetResponseStatus :: ConsensusStateGetResponse +Hs.fromString String +"ConsensusStateGetResponse") + +instance HsProtobuf.HasDefault ConsensusStateGetResponse + +instance HsProtobuf.Message ConsensusStateGetResponse where + encodeMessage :: FieldNumber -> ConsensusStateGetResponse -> MessageBuilder +encodeMessage FieldNumber +_ + ConsensusStateGetResponse{consensusStateGetResponseStatus :: ConsensusStateGetResponse -> Enumerated ConsensusStateGetResponse_Status consensusStateGetResponseStatus = - Enumerated ConsensusStateGetResponse_Status -consensusStateGetResponseStatus, - consensusStateGetResponseEntries :: ConsensusStateGetResponse -> Vector ConsensusStateEntry + Enumerated ConsensusStateGetResponse_Status +consensusStateGetResponseStatus, + consensusStateGetResponseEntries :: ConsensusStateGetResponse -> Vector ConsensusStateEntry consensusStateGetResponseEntries = - Vector ConsensusStateEntry -consensusStateGetResponseEntries} - = ([MessageBuilder] -> MessageBuilder + Vector ConsensusStateEntry +consensusStateGetResponseEntries} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber +Hs.mconcat + [(FieldNumber -> Enumerated ConsensusStateGetResponse_Status -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Enumerated ConsensusStateGetResponse_Status -consensusStateGetResponseStatus), - (FieldNumber -> NestedVec ConsensusStateEntry -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Enumerated ConsensusStateGetResponse_Status +consensusStateGetResponseStatus), + (FieldNumber -> NestedVec ConsensusStateEntry -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (Vector ConsensusStateEntry -> NestedVec ConsensusStateEntry -forall a b. Coercible a b => a -> b -Hs.coerce @(Hs.Vector Data.Sawtooth.Consensus.ConsensusStateEntry) - @(HsProtobuf.NestedVec Data.Sawtooth.Consensus.ConsensusStateEntry) - Vector ConsensusStateEntry -consensusStateGetResponseEntries))]) - decodeMessage :: FieldNumber -> Parser RawMessage ConsensusStateGetResponse -decodeMessage _ - = ((Enumerated ConsensusStateGetResponse_Status +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (Vector ConsensusStateEntry -> NestedVec ConsensusStateEntry +Hs.coerce @(Hs.Vector Data.Sawtooth.Consensus.ConsensusStateEntry) + @(HsProtobuf.NestedVec Data.Sawtooth.Consensus.ConsensusStateEntry) + Vector ConsensusStateEntry +consensusStateGetResponseEntries))]) + decodeMessage :: FieldNumber -> Parser RawMessage ConsensusStateGetResponse +decodeMessage FieldNumber +_ + = ((Enumerated ConsensusStateGetResponse_Status -> Vector ConsensusStateEntry -> ConsensusStateGetResponse) -> Parser RawMessage (Enumerated ConsensusStateGetResponse_Status -> Vector ConsensusStateEntry -> ConsensusStateGetResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ConsensusStateGetResponse_Status +Hs.pure Enumerated ConsensusStateGetResponse_Status -> Vector ConsensusStateEntry -> ConsensusStateGetResponse ConsensusStateGetResponse) Parser RawMessage @@ -21253,127 +22655,142 @@ forall (f :: * -> *) a. Applicative f => a -> f a RawMessage (Vector ConsensusStateEntry -> ConsensusStateGetResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField (Enumerated ConsensusStateGetResponse_Status) +<*> + (Parser RawField (Enumerated ConsensusStateGetResponse_Status) -> FieldNumber -> Parser RawMessage (Enumerated ConsensusStateGetResponse_Status) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (Enumerated ConsensusStateGetResponse_Status) +HsProtobuf.at Parser RawField (Enumerated ConsensusStateGetResponse_Status) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (Vector ConsensusStateEntry -> ConsensusStateGetResponse) -> Parser RawMessage (Vector ConsensusStateEntry) -> Parser RawMessage ConsensusStateGetResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (NestedVec ConsensusStateEntry) +<*> + (Parser RawMessage (NestedVec ConsensusStateEntry) -> Parser RawMessage (Vector ConsensusStateEntry) -forall a b. Coercible a b => a -> b -Hs.coerce - @(_ (HsProtobuf.NestedVec Data.Sawtooth.Consensus.ConsensusStateEntry)) - @(_ (Hs.Vector Data.Sawtooth.Consensus.ConsensusStateEntry)) - (Parser RawField (NestedVec ConsensusStateEntry) +Hs.coerce + @(_ (HsProtobuf.NestedVec Data.Sawtooth.Consensus.ConsensusStateEntry)) + @(_ (Hs.Vector Data.Sawtooth.Consensus.ConsensusStateEntry)) + (Parser RawField (NestedVec ConsensusStateEntry) -> FieldNumber -> Parser RawMessage (NestedVec ConsensusStateEntry) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (NestedVec ConsensusStateEntry) +HsProtobuf.at Parser RawField (NestedVec ConsensusStateEntry) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2))) - dotProto :: Proxy# ConsensusStateGetResponse -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2))) + dotProto :: Proxy# ConsensusStateGetResponse -> [DotProtoField] +dotProto Proxy# ConsensusStateGetResponse +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "Status"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "status") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"Status"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"status") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Repeated - (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "ConsensusStateEntry"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "entries") - [] - "")] - -instance HsJSONPB.ToJSONPB ConsensusStateGetResponse where - toJSONPB :: ConsensusStateGetResponse -> Options -> Value -toJSONPB (ConsensusStateGetResponse f1 :: Enumerated ConsensusStateGetResponse_Status -f1 f2 :: Vector ConsensusStateEntry -f2) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["status" Text +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Repeated + (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"ConsensusStateEntry"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"entries") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ConsensusStateGetResponse where + toJSONPB :: ConsensusStateGetResponse -> Options -> Value +toJSONPB (ConsensusStateGetResponse Enumerated ConsensusStateGetResponse_Status +f1 Vector ConsensusStateEntry +f2) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"status" Text -> Enumerated ConsensusStateGetResponse_Status -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated ConsensusStateGetResponse_Status -f1, "entries" Text -> Vector ConsensusStateEntry -> Options -> [Pair] +.= Enumerated ConsensusStateGetResponse_Status +f1, Text +"entries" Text -> Vector ConsensusStateEntry -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector ConsensusStateEntry -f2]) - toEncodingPB :: ConsensusStateGetResponse -> Options -> Encoding -toEncodingPB (ConsensusStateGetResponse f1 :: Enumerated ConsensusStateGetResponse_Status -f1 f2 :: Vector ConsensusStateEntry -f2) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["status" Text +.= Vector ConsensusStateEntry +f2]) + toEncodingPB :: ConsensusStateGetResponse -> Options -> Encoding +toEncodingPB (ConsensusStateGetResponse Enumerated ConsensusStateGetResponse_Status +f1 Vector ConsensusStateEntry +f2) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"status" Text -> Enumerated ConsensusStateGetResponse_Status -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated ConsensusStateGetResponse_Status -f1, "entries" Text -> Vector ConsensusStateEntry -> Options -> Series +.= Enumerated ConsensusStateGetResponse_Status +f1, Text +"entries" Text -> Vector ConsensusStateEntry -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector ConsensusStateEntry -f2]) - -instance HsJSONPB.FromJSONPB ConsensusStateGetResponse where - parseJSONPB :: Value -> Parser ConsensusStateGetResponse -parseJSONPB - = (String +.= Vector ConsensusStateEntry +f2]) + +instance HsJSONPB.FromJSONPB ConsensusStateGetResponse where + parseJSONPB :: Value -> Parser ConsensusStateGetResponse +parseJSONPB + = (String -> (Object -> Parser ConsensusStateGetResponse) -> Value -> Parser ConsensusStateGetResponse forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ConsensusStateGetResponse" - (\ obj :: Object -obj -> - ((Enumerated ConsensusStateGetResponse_Status +HsJSONPB.withObject String +"ConsensusStateGetResponse" + (\ Object +obj -> + ((Enumerated ConsensusStateGetResponse_Status -> Vector ConsensusStateEntry -> ConsensusStateGetResponse) -> Parser (Enumerated ConsensusStateGetResponse_Status -> Vector ConsensusStateEntry -> ConsensusStateGetResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ConsensusStateGetResponse_Status +Hs.pure Enumerated ConsensusStateGetResponse_Status -> Vector ConsensusStateEntry -> ConsensusStateGetResponse ConsensusStateGetResponse) Parser (Enumerated ConsensusStateGetResponse_Status @@ -21381,84 +22798,87 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Parser (Enumerated ConsensusStateGetResponse_Status) -> Parser (Vector ConsensusStateEntry -> ConsensusStateGetResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object +<*> Object +obj Object -> Text -> Parser (Enumerated ConsensusStateGetResponse_Status) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "status" Parser (Vector ConsensusStateEntry -> ConsensusStateGetResponse) +.: Text +"status" Parser (Vector ConsensusStateEntry -> ConsensusStateGetResponse) -> Parser (Vector ConsensusStateEntry) -> Parser ConsensusStateGetResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser (Vector ConsensusStateEntry) +<*> + Object +obj Object -> Text -> Parser (Vector ConsensusStateEntry) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "entries")) - -instance HsJSONPB.ToJSON ConsensusStateGetResponse where - toJSON :: ConsensusStateGetResponse -> Value -toJSON = ConsensusStateGetResponse -> Value +.: Text +"entries")) + +instance HsJSONPB.ToJSON ConsensusStateGetResponse where + toJSON :: ConsensusStateGetResponse -> Value +toJSON = ConsensusStateGetResponse -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ConsensusStateGetResponse -> Encoding -toEncoding = ConsensusStateGetResponse -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ConsensusStateGetResponse -> Encoding +toEncoding = ConsensusStateGetResponse -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ConsensusStateGetResponse where - parseJSON :: Value -> Parser ConsensusStateGetResponse -parseJSON = Value -> Parser ConsensusStateGetResponse +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ConsensusStateGetResponse where + parseJSON :: Value -> Parser ConsensusStateGetResponse +parseJSON = Value -> Parser ConsensusStateGetResponse forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ConsensusStateGetResponse where - declareNamedSchema :: Proxy ConsensusStateGetResponse +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ConsensusStateGetResponse where + declareNamedSchema :: Proxy ConsensusStateGetResponse -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_status :: Proxy +declareNamedSchema Proxy ConsensusStateGetResponse +_ + = do let declare_status :: Proxy (OverrideToSchema (Enumerated ConsensusStateGetResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status = Proxy +declare_status = Proxy (OverrideToSchema (Enumerated ConsensusStateGetResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -consensusStateGetResponseStatus <- Proxy +HsJSONPB.declareSchemaRef + Referenced Schema +consensusStateGetResponseStatus <- Proxy (OverrideToSchema (Enumerated ConsensusStateGetResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status Proxy +declare_status Proxy (OverrideToSchema (Enumerated ConsensusStateGetResponse_Status)) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_entries :: Proxy (OverrideToSchema (Vector ConsensusStateEntry)) +Proxy.Proxy + let declare_entries :: Proxy (OverrideToSchema (Vector ConsensusStateEntry)) -> Declare (Definitions Schema) (Referenced Schema) -declare_entries = Proxy (OverrideToSchema (Vector ConsensusStateEntry)) +declare_entries = Proxy (OverrideToSchema (Vector ConsensusStateEntry)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -consensusStateGetResponseEntries <- Proxy (OverrideToSchema (Vector ConsensusStateEntry)) +HsJSONPB.declareSchemaRef + Referenced Schema +consensusStateGetResponseEntries <- Proxy (OverrideToSchema (Vector ConsensusStateEntry)) -> Declare (Definitions Schema) (Referenced Schema) -declare_entries Proxy (OverrideToSchema (Vector ConsensusStateEntry)) +declare_entries Proxy (OverrideToSchema (Vector ConsensusStateEntry)) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ConsensusStateGetResponse +Proxy.Proxy + let Proxy ConsensusStateGetResponse _ = (Enumerated ConsensusStateGetResponse_Status -> Vector ConsensusStateEntry -> ConsensusStateGetResponse) -> Proxy (Enumerated ConsensusStateGetResponse_Status -> Vector ConsensusStateEntry -> ConsensusStateGetResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated ConsensusStateGetResponse_Status +Hs.pure Enumerated ConsensusStateGetResponse_Status -> Vector ConsensusStateEntry -> ConsensusStateGetResponse ConsensusStateGetResponse Proxy (Enumerated ConsensusStateGetResponse_Status @@ -21466,71 +22886,74 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Proxy (Enumerated ConsensusStateGetResponse_Status) -> Proxy (Vector ConsensusStateEntry -> ConsensusStateGetResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy +<*> + (Proxy (OverrideToSchema (Enumerated ConsensusStateGetResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Enumerated ConsensusStateGetResponse_Status) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy +HsJSONPB.asProxy Proxy (OverrideToSchema (Enumerated ConsensusStateGetResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status - Proxy (Vector ConsensusStateEntry -> ConsensusStateGetResponse) +declare_status + Proxy (Vector ConsensusStateEntry -> ConsensusStateGetResponse) -> Proxy (Vector ConsensusStateEntry) -> Proxy ConsensusStateGetResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema (Vector ConsensusStateEntry)) +<*> (Proxy (OverrideToSchema (Vector ConsensusStateEntry)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Vector ConsensusStateEntry) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Vector ConsensusStateEntry)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Vector ConsensusStateEntry)) -> Declare (Definitions Schema) (Referenced Schema) -declare_entries - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_entries + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ConsensusStateGetResponse", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ConsensusStateGetResponse", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("status", Referenced Schema -consensusStateGetResponseStatus), - ("entries", - Referenced Schema -consensusStateGetResponseEntries)]}}) - -data ConsensusStateGetResponse_Status = ConsensusStateGetResponse_StatusSTATUS_UNSET - | ConsensusStateGetResponse_StatusOK - | ConsensusStateGetResponse_StatusBAD_REQUEST - | ConsensusStateGetResponse_StatusSERVICE_ERROR - | ConsensusStateGetResponse_StatusNOT_READY - | ConsensusStateGetResponse_StatusUNKNOWN_BLOCK - | ConsensusStateGetResponse_StatusNOT_ACTIVE_ENGINE - deriving (Int -> ConsensusStateGetResponse_Status -> ShowS +HsJSONPB.insOrdFromList + [(Text +"status", Referenced Schema +consensusStateGetResponseStatus), + (Text +"entries", + Referenced Schema +consensusStateGetResponseEntries)]}}) + +data ConsensusStateGetResponse_Status = ConsensusStateGetResponse_StatusSTATUS_UNSET + | ConsensusStateGetResponse_StatusOK + | ConsensusStateGetResponse_StatusBAD_REQUEST + | ConsensusStateGetResponse_StatusSERVICE_ERROR + | ConsensusStateGetResponse_StatusNOT_READY + | ConsensusStateGetResponse_StatusUNKNOWN_BLOCK + | ConsensusStateGetResponse_StatusNOT_ACTIVE_ENGINE + deriving (Int -> ConsensusStateGetResponse_Status -> ShowS [ConsensusStateGetResponse_Status] -> ShowS ConsensusStateGetResponse_Status -> String (Int -> ConsensusStateGetResponse_Status -> ShowS) @@ -21545,7 +22968,7 @@ show :: ConsensusStateGetResponse_Status -> String $cshow :: ConsensusStateGetResponse_Status -> String showsPrec :: Int -> ConsensusStateGetResponse_Status -> ShowS $cshowsPrec :: Int -> ConsensusStateGetResponse_Status -> ShowS -Hs.Show, ConsensusStateGetResponse_Status +Hs.Show, ConsensusStateGetResponse_Status -> ConsensusStateGetResponse_Status -> Bool (ConsensusStateGetResponse_Status -> ConsensusStateGetResponse_Status -> Bool) @@ -21561,7 +22984,7 @@ $c/= :: ConsensusStateGetResponse_Status -> ConsensusStateGetResponse_Status -> Bool $c== :: ConsensusStateGetResponse_Status -> ConsensusStateGetResponse_Status -> Bool -Hs.Eq, (forall x. +Hs.Eq, (forall x. ConsensusStateGetResponse_Status -> Rep ConsensusStateGetResponse_Status x) -> (forall x. @@ -21582,190 +23005,217 @@ Rep ConsensusStateGetResponse_Status x $cfrom :: forall x. ConsensusStateGetResponse_Status -> Rep ConsensusStateGetResponse_Status x -Hs.Generic, ConsensusStateGetResponse_Status -> () +Hs.Generic, ConsensusStateGetResponse_Status -> () (ConsensusStateGetResponse_Status -> ()) -> NFData ConsensusStateGetResponse_Status forall a. (a -> ()) -> NFData a rnf :: ConsensusStateGetResponse_Status -> () $crnf :: ConsensusStateGetResponse_Status -> () -Hs.NFData) - -instance HsProtobuf.Named ConsensusStateGetResponse_Status where - nameOf :: Proxy# ConsensusStateGetResponse_Status -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ConsensusStateGetResponse_Status where + nameOf :: Proxy# ConsensusStateGetResponse_Status -> string +nameOf Proxy# ConsensusStateGetResponse_Status +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ConsensusStateGetResponse_Status") - -instance HsProtobuf.HasDefault ConsensusStateGetResponse_Status - -instance Hs.Bounded ConsensusStateGetResponse_Status where - minBound :: ConsensusStateGetResponse_Status -minBound = ConsensusStateGetResponse_Status +Hs.fromString String +"ConsensusStateGetResponse_Status") + +instance HsProtobuf.HasDefault ConsensusStateGetResponse_Status + +instance Hs.Bounded ConsensusStateGetResponse_Status where + minBound :: ConsensusStateGetResponse_Status +minBound = ConsensusStateGetResponse_Status ConsensusStateGetResponse_StatusSTATUS_UNSET - maxBound :: ConsensusStateGetResponse_Status -maxBound = ConsensusStateGetResponse_Status + maxBound :: ConsensusStateGetResponse_Status +maxBound = ConsensusStateGetResponse_Status ConsensusStateGetResponse_StatusNOT_ACTIVE_ENGINE - -instance Hs.Ord ConsensusStateGetResponse_Status where - compare :: ConsensusStateGetResponse_Status + +instance Hs.Ord ConsensusStateGetResponse_Status where + compare :: ConsensusStateGetResponse_Status -> ConsensusStateGetResponse_Status -> Ordering -compare x :: ConsensusStateGetResponse_Status -x y :: ConsensusStateGetResponse_Status -y - = Int32 -> Int32 -> Ordering +compare ConsensusStateGetResponse_Status +x ConsensusStateGetResponse_Status +y + = Int32 -> Int32 -> Ordering forall a. Ord a => a -> a -> Ordering -Hs.compare (ConsensusStateGetResponse_Status -> Int32 +Hs.compare (ConsensusStateGetResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum ConsensusStateGetResponse_Status -x) - (ConsensusStateGetResponse_Status -> Int32 +HsProtobuf.fromProtoEnum ConsensusStateGetResponse_Status +x) + (ConsensusStateGetResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum ConsensusStateGetResponse_Status -y) - -instance HsProtobuf.ProtoEnum ConsensusStateGetResponse_Status - where - toProtoEnumMay :: Int32 -> Maybe ConsensusStateGetResponse_Status -toProtoEnumMay 0 - = ConsensusStateGetResponse_Status +HsProtobuf.fromProtoEnum ConsensusStateGetResponse_Status +y) + +instance HsProtobuf.ProtoEnum ConsensusStateGetResponse_Status + where + toProtoEnumMay :: Int32 -> Maybe ConsensusStateGetResponse_Status +toProtoEnumMay Int32 +0 + = ConsensusStateGetResponse_Status -> Maybe ConsensusStateGetResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusStateGetResponse_Status +Hs.Just ConsensusStateGetResponse_Status ConsensusStateGetResponse_StatusSTATUS_UNSET - toProtoEnumMay 1 = ConsensusStateGetResponse_Status + toProtoEnumMay Int32 +1 = ConsensusStateGetResponse_Status -> Maybe ConsensusStateGetResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusStateGetResponse_Status +Hs.Just ConsensusStateGetResponse_Status ConsensusStateGetResponse_StatusOK - toProtoEnumMay 2 - = ConsensusStateGetResponse_Status + toProtoEnumMay Int32 +2 + = ConsensusStateGetResponse_Status -> Maybe ConsensusStateGetResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusStateGetResponse_Status +Hs.Just ConsensusStateGetResponse_Status ConsensusStateGetResponse_StatusBAD_REQUEST - toProtoEnumMay 3 - = ConsensusStateGetResponse_Status + toProtoEnumMay Int32 +3 + = ConsensusStateGetResponse_Status -> Maybe ConsensusStateGetResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusStateGetResponse_Status +Hs.Just ConsensusStateGetResponse_Status ConsensusStateGetResponse_StatusSERVICE_ERROR - toProtoEnumMay 4 - = ConsensusStateGetResponse_Status + toProtoEnumMay Int32 +4 + = ConsensusStateGetResponse_Status -> Maybe ConsensusStateGetResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusStateGetResponse_Status +Hs.Just ConsensusStateGetResponse_Status ConsensusStateGetResponse_StatusNOT_READY - toProtoEnumMay 5 - = ConsensusStateGetResponse_Status + toProtoEnumMay Int32 +5 + = ConsensusStateGetResponse_Status -> Maybe ConsensusStateGetResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusStateGetResponse_Status +Hs.Just ConsensusStateGetResponse_Status ConsensusStateGetResponse_StatusUNKNOWN_BLOCK - toProtoEnumMay 6 - = ConsensusStateGetResponse_Status + toProtoEnumMay Int32 +6 + = ConsensusStateGetResponse_Status -> Maybe ConsensusStateGetResponse_Status forall a. a -> Maybe a -Hs.Just ConsensusStateGetResponse_Status +Hs.Just ConsensusStateGetResponse_Status ConsensusStateGetResponse_StatusNOT_ACTIVE_ENGINE - toProtoEnumMay _ = Maybe ConsensusStateGetResponse_Status + toProtoEnumMay Int32 +_ = Maybe ConsensusStateGetResponse_Status forall a. Maybe a -Hs.Nothing - fromProtoEnum :: ConsensusStateGetResponse_Status -> Int32 -fromProtoEnum (ConsensusStateGetResponse_Status -ConsensusStateGetResponse_StatusSTATUS_UNSET) = 0 - fromProtoEnum (ConsensusStateGetResponse_Status -ConsensusStateGetResponse_StatusOK) = 1 - fromProtoEnum (ConsensusStateGetResponse_Status -ConsensusStateGetResponse_StatusBAD_REQUEST) = 2 - fromProtoEnum (ConsensusStateGetResponse_Status -ConsensusStateGetResponse_StatusSERVICE_ERROR) = 3 - fromProtoEnum (ConsensusStateGetResponse_Status -ConsensusStateGetResponse_StatusNOT_READY) = 4 - fromProtoEnum (ConsensusStateGetResponse_Status -ConsensusStateGetResponse_StatusUNKNOWN_BLOCK) = 5 - fromProtoEnum (ConsensusStateGetResponse_Status +Hs.Nothing + fromProtoEnum :: ConsensusStateGetResponse_Status -> Int32 +fromProtoEnum (ConsensusStateGetResponse_Status +ConsensusStateGetResponse_StatusSTATUS_UNSET) = Int32 +0 + fromProtoEnum (ConsensusStateGetResponse_Status +ConsensusStateGetResponse_StatusOK) = Int32 +1 + fromProtoEnum (ConsensusStateGetResponse_Status +ConsensusStateGetResponse_StatusBAD_REQUEST) = Int32 +2 + fromProtoEnum (ConsensusStateGetResponse_Status +ConsensusStateGetResponse_StatusSERVICE_ERROR) = Int32 +3 + fromProtoEnum (ConsensusStateGetResponse_Status +ConsensusStateGetResponse_StatusNOT_READY) = Int32 +4 + fromProtoEnum (ConsensusStateGetResponse_Status +ConsensusStateGetResponse_StatusUNKNOWN_BLOCK) = Int32 +5 + fromProtoEnum (ConsensusStateGetResponse_Status ConsensusStateGetResponse_StatusNOT_ACTIVE_ENGINE) - = 6 - -instance HsJSONPB.ToJSONPB ConsensusStateGetResponse_Status where - toJSONPB :: ConsensusStateGetResponse_Status -> Options -> Value -toJSONPB x :: ConsensusStateGetResponse_Status -x _ = ConsensusStateGetResponse_Status -> Value + = Int32 +6 + +instance HsJSONPB.ToJSONPB ConsensusStateGetResponse_Status where + toJSONPB :: ConsensusStateGetResponse_Status -> Options -> Value +toJSONPB ConsensusStateGetResponse_Status +x Options +_ = ConsensusStateGetResponse_Status -> Value forall a. (Named a, Show a) => a -> Value -HsJSONPB.enumFieldString ConsensusStateGetResponse_Status -x - toEncodingPB :: ConsensusStateGetResponse_Status -> Options -> Encoding -toEncodingPB x :: ConsensusStateGetResponse_Status -x _ = ConsensusStateGetResponse_Status -> Encoding +HsJSONPB.enumFieldString ConsensusStateGetResponse_Status +x + toEncodingPB :: ConsensusStateGetResponse_Status -> Options -> Encoding +toEncodingPB ConsensusStateGetResponse_Status +x Options +_ = ConsensusStateGetResponse_Status -> Encoding forall a. (Named a, Show a) => a -> Encoding -HsJSONPB.enumFieldEncoding ConsensusStateGetResponse_Status -x - -instance HsJSONPB.FromJSONPB ConsensusStateGetResponse_Status where - parseJSONPB :: Value -> Parser ConsensusStateGetResponse_Status -parseJSONPB (HsJSONPB.String "STATUS_UNSET") - = ConsensusStateGetResponse_Status +HsJSONPB.enumFieldEncoding ConsensusStateGetResponse_Status +x + +instance HsJSONPB.FromJSONPB ConsensusStateGetResponse_Status where + parseJSONPB :: Value -> Parser ConsensusStateGetResponse_Status +parseJSONPB (HsJSONPB.String Text +"STATUS_UNSET") + = ConsensusStateGetResponse_Status -> Parser ConsensusStateGetResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusStateGetResponse_Status +Hs.pure ConsensusStateGetResponse_Status ConsensusStateGetResponse_StatusSTATUS_UNSET - parseJSONPB (HsJSONPB.String "OK") - = ConsensusStateGetResponse_Status + parseJSONPB (HsJSONPB.String Text +"OK") + = ConsensusStateGetResponse_Status -> Parser ConsensusStateGetResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusStateGetResponse_Status +Hs.pure ConsensusStateGetResponse_Status ConsensusStateGetResponse_StatusOK - parseJSONPB (HsJSONPB.String "BAD_REQUEST") - = ConsensusStateGetResponse_Status + parseJSONPB (HsJSONPB.String Text +"BAD_REQUEST") + = ConsensusStateGetResponse_Status -> Parser ConsensusStateGetResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusStateGetResponse_Status +Hs.pure ConsensusStateGetResponse_Status ConsensusStateGetResponse_StatusBAD_REQUEST - parseJSONPB (HsJSONPB.String "SERVICE_ERROR") - = ConsensusStateGetResponse_Status + parseJSONPB (HsJSONPB.String Text +"SERVICE_ERROR") + = ConsensusStateGetResponse_Status -> Parser ConsensusStateGetResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusStateGetResponse_Status +Hs.pure ConsensusStateGetResponse_Status ConsensusStateGetResponse_StatusSERVICE_ERROR - parseJSONPB (HsJSONPB.String "NOT_READY") - = ConsensusStateGetResponse_Status + parseJSONPB (HsJSONPB.String Text +"NOT_READY") + = ConsensusStateGetResponse_Status -> Parser ConsensusStateGetResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusStateGetResponse_Status +Hs.pure ConsensusStateGetResponse_Status ConsensusStateGetResponse_StatusNOT_READY - parseJSONPB (HsJSONPB.String "UNKNOWN_BLOCK") - = ConsensusStateGetResponse_Status + parseJSONPB (HsJSONPB.String Text +"UNKNOWN_BLOCK") + = ConsensusStateGetResponse_Status -> Parser ConsensusStateGetResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusStateGetResponse_Status +Hs.pure ConsensusStateGetResponse_Status ConsensusStateGetResponse_StatusUNKNOWN_BLOCK - parseJSONPB (HsJSONPB.String "NOT_ACTIVE_ENGINE") - = ConsensusStateGetResponse_Status + parseJSONPB (HsJSONPB.String Text +"NOT_ACTIVE_ENGINE") + = ConsensusStateGetResponse_Status -> Parser ConsensusStateGetResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ConsensusStateGetResponse_Status +Hs.pure ConsensusStateGetResponse_Status ConsensusStateGetResponse_StatusNOT_ACTIVE_ENGINE - parseJSONPB v :: Value -v - = (String -> Value -> Parser ConsensusStateGetResponse_Status + parseJSONPB Value +v + = (String -> Value -> Parser ConsensusStateGetResponse_Status forall a. String -> Value -> Parser a -HsJSONPB.typeMismatch "ConsensusStateGetResponse_Status" Value -v) - -instance HsJSONPB.ToJSON ConsensusStateGetResponse_Status where - toJSON :: ConsensusStateGetResponse_Status -> Value -toJSON = ConsensusStateGetResponse_Status -> Value +HsJSONPB.typeMismatch String +"ConsensusStateGetResponse_Status" Value +v) + +instance HsJSONPB.ToJSON ConsensusStateGetResponse_Status where + toJSON :: ConsensusStateGetResponse_Status -> Value +toJSON = ConsensusStateGetResponse_Status -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ConsensusStateGetResponse_Status -> Encoding -toEncoding = ConsensusStateGetResponse_Status -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ConsensusStateGetResponse_Status -> Encoding +toEncoding = ConsensusStateGetResponse_Status -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ConsensusStateGetResponse_Status where - parseJSON :: Value -> Parser ConsensusStateGetResponse_Status -parseJSON = Value -> Parser ConsensusStateGetResponse_Status +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ConsensusStateGetResponse_Status where + parseJSON :: Value -> Parser ConsensusStateGetResponse_Status +parseJSON = Value -> Parser ConsensusStateGetResponse_Status forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsProtobuf.Finite ConsensusStateGetResponse_Status \ No newline at end of file +HsJSONPB.parseJSONPB + +instance HsProtobuf.Finite ConsensusStateGetResponse_Status \ No newline at end of file diff --git a/src/Data.Sawtooth.Events.html b/src/Data.Sawtooth.Events.html index 49818b8..198a20c 100644 --- a/src/Data.Sawtooth.Events.html +++ b/src/Data.Sawtooth.Events.html @@ -9,40 +9,39 @@ {-# OPTIONS_GHC -fno-warn-unused-matches #-} -- | Generated by Haskell protocol buffer compiler. DO NOT EDIT! - -module Data.Sawtooth.Events where -import qualified Prelude as Hs -import qualified Proto3.Suite.Class as HsProtobuf -import qualified Proto3.Suite.DotProto as HsProtobuf -import qualified Proto3.Suite.JSONPB as HsJSONPB -import Proto3.Suite.JSONPB ((.=), (.:)) -import qualified Proto3.Suite.Types as HsProtobuf -import qualified Proto3.Wire as HsProtobuf -import qualified Control.Applicative as Hs -import Control.Applicative ((<*>), (<|>), (<$>)) -import qualified Control.DeepSeq as Hs -import qualified Control.Monad as Hs -import qualified Data.ByteString as Hs -import qualified Data.Coerce as Hs -import qualified Data.Int as Hs (Int16, Int32, Int64) -import qualified Data.List.NonEmpty as Hs (NonEmpty(..)) -import qualified Data.Map as Hs (Map, mapKeysMonotonic) -import qualified Data.Proxy as Proxy -import qualified Data.String as Hs (fromString) -import qualified Data.Text.Lazy as Hs (Text) -import qualified Data.Vector as Hs (Vector) -import qualified Data.Word as Hs (Word16, Word32, Word64) -import qualified GHC.Enum as Hs -import qualified GHC.Generics as Hs -import qualified Unsafe.Coerce as Hs - -data Event = Event{Event -> Text -eventEventType :: Hs.Text, - Event -> Vector Event_Attribute -eventAttributes :: Hs.Vector Data.Sawtooth.Events.Event_Attribute, - Event -> ByteString -eventData :: Hs.ByteString} - deriving (Int -> Event -> ShowS +module Data.Sawtooth.Events where +import qualified Prelude as Hs +import qualified Proto3.Suite.Class as HsProtobuf +import qualified Proto3.Suite.DotProto as HsProtobuf +import qualified Proto3.Suite.JSONPB as HsJSONPB +import Proto3.Suite.JSONPB ((.=), (.:)) +import qualified Proto3.Suite.Types as HsProtobuf +import qualified Proto3.Wire as HsProtobuf +import qualified Control.Applicative as Hs +import Control.Applicative ((<*>), (<|>), (<$>)) +import qualified Control.DeepSeq as Hs +import qualified Control.Monad as Hs +import qualified Data.ByteString as Hs +import qualified Data.Coerce as Hs +import qualified Data.Int as Hs (Int16, Int32, Int64) +import qualified Data.List.NonEmpty as Hs (NonEmpty(..)) +import qualified Data.Map as Hs (Map, mapKeysMonotonic) +import qualified Data.Proxy as Proxy +import qualified Data.String as Hs (fromString) +import qualified Data.Text.Lazy as Hs (Text) +import qualified Data.Vector as Hs (Vector) +import qualified Data.Word as Hs (Word16, Word32, Word64) +import qualified GHC.Enum as Hs +import qualified GHC.Generics as Hs +import qualified Unsafe.Coerce as Hs + +data Event = Event{Event -> Text +eventEventType :: Hs.Text, + Event -> Vector Event_Attribute +eventAttributes :: Hs.Vector Data.Sawtooth.Events.Event_Attribute, + Event -> ByteString +eventData :: Hs.ByteString} + deriving (Int -> Event -> ShowS [Event] -> ShowS Event -> String (Int -> Event -> ShowS) @@ -55,16 +54,16 @@ show :: Event -> String $cshow :: Event -> String showsPrec :: Int -> Event -> ShowS $cshowsPrec :: Int -> Event -> ShowS -Hs.Show, Event -> Event -> Bool +Hs.Show, Event -> Event -> Bool (Event -> Event -> Bool) -> (Event -> Event -> Bool) -> Eq Event forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a /= :: Event -> Event -> Bool $c/= :: Event -> Event -> Bool == :: Event -> Event -> Bool $c== :: Event -> Event -> Bool -Hs.Eq, Eq Event -Eq Event => -(Event -> Event -> Ordering) +Hs.Eq, Eq Event +Eq Event +-> (Event -> Event -> Ordering) -> (Event -> Event -> Bool) -> (Event -> Event -> Bool) -> (Event -> Event -> Bool) @@ -76,8 +75,8 @@ Event -> Event -> Bool Event -> Event -> Ordering Event -> Event -> Event forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -100,7 +99,7 @@ $c< :: Event -> Event -> Bool compare :: Event -> Event -> Ordering $ccompare :: Event -> Event -> Ordering $cp1Ord :: Eq Event -Hs.Ord, (forall x. Event -> Rep Event x) +Hs.Ord, (forall x. Event -> Rep Event x) -> (forall x. Rep Event x -> Event) -> Generic Event forall x. Rep Event x -> Event forall x. Event -> Rep Event x @@ -108,384 +107,418 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep Event x -> Event $cfrom :: forall x. Event -> Rep Event x -Hs.Generic, Event -> () +Hs.Generic, Event -> () (Event -> ()) -> NFData Event forall a. (a -> ()) -> NFData a rnf :: Event -> () $crnf :: Event -> () -Hs.NFData) - -instance HsProtobuf.Named Event where - nameOf :: Proxy# Event -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named Event where + nameOf :: Proxy# Event -> string +nameOf Proxy# Event +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "Event") - -instance HsProtobuf.HasDefault Event - -instance HsProtobuf.Message Event where - encodeMessage :: FieldNumber -> Event -> MessageBuilder -encodeMessage _ - Event{eventEventType :: Event -> Text -eventEventType = Text -eventEventType, - eventAttributes :: Event -> Vector Event_Attribute -eventAttributes = Vector Event_Attribute -eventAttributes, eventData :: Event -> ByteString -eventData = ByteString -eventData} - = ([MessageBuilder] -> MessageBuilder +Hs.fromString String +"Event") + +instance HsProtobuf.HasDefault Event + +instance HsProtobuf.Message Event where + encodeMessage :: FieldNumber -> Event -> MessageBuilder +encodeMessage FieldNumber +_ + Event{eventEventType :: Event -> Text +eventEventType = Text +eventEventType, + eventAttributes :: Event -> Vector Event_Attribute +eventAttributes = Vector Event_Attribute +eventAttributes, eventData :: Event -> ByteString +eventData = ByteString +eventData} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> Text -> MessageBuilder +Hs.mconcat + [(FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Text -eventEventType), - (FieldNumber -> NestedVec Event_Attribute -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Text +eventEventType), + (FieldNumber -> NestedVec Event_Attribute -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (Vector Event_Attribute -> NestedVec Event_Attribute -forall a b. Coercible a b => a -> b -Hs.coerce @(Hs.Vector Data.Sawtooth.Events.Event_Attribute) - @(HsProtobuf.NestedVec Data.Sawtooth.Events.Event_Attribute) - Vector Event_Attribute -eventAttributes)), - (FieldNumber -> ByteString -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (Vector Event_Attribute -> NestedVec Event_Attribute +Hs.coerce @(Hs.Vector Data.Sawtooth.Events.Event_Attribute) + @(HsProtobuf.NestedVec Data.Sawtooth.Events.Event_Attribute) + Vector Event_Attribute +eventAttributes)), + (FieldNumber -> ByteString -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - ByteString -eventData)]) - decodeMessage :: FieldNumber -> Parser RawMessage Event -decodeMessage _ - = ((Text -> Vector Event_Attribute -> ByteString -> Event) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + ByteString +eventData)]) + decodeMessage :: FieldNumber -> Parser RawMessage Event +decodeMessage FieldNumber +_ + = ((Text -> Vector Event_Attribute -> ByteString -> Event) -> Parser RawMessage (Text -> Vector Event_Attribute -> ByteString -> Event) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> Vector Event_Attribute -> ByteString -> Event +Hs.pure Text -> Vector Event_Attribute -> ByteString -> Event Event) Parser RawMessage (Text -> Vector Event_Attribute -> ByteString -> Event) -> Parser RawMessage Text -> Parser RawMessage (Vector Event_Attribute -> ByteString -> Event) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser RawMessage (Vector Event_Attribute -> ByteString -> Event) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (Vector Event_Attribute -> ByteString -> Event) -> Parser RawMessage (Vector Event_Attribute) -> Parser RawMessage (ByteString -> Event) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (NestedVec Event_Attribute) +<*> + (Parser RawMessage (NestedVec Event_Attribute) -> Parser RawMessage (Vector Event_Attribute) -forall a b. Coercible a b => a -> b -Hs.coerce - @(_ (HsProtobuf.NestedVec Data.Sawtooth.Events.Event_Attribute)) - @(_ (Hs.Vector Data.Sawtooth.Events.Event_Attribute)) - (Parser RawField (NestedVec Event_Attribute) +Hs.coerce + @(_ (HsProtobuf.NestedVec Data.Sawtooth.Events.Event_Attribute)) + @(_ (Hs.Vector Data.Sawtooth.Events.Event_Attribute)) + (Parser RawField (NestedVec Event_Attribute) -> FieldNumber -> Parser RawMessage (NestedVec Event_Attribute) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (NestedVec Event_Attribute) +HsProtobuf.at Parser RawField (NestedVec Event_Attribute) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2))) - Parser RawMessage (ByteString -> Event) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2))) + Parser RawMessage (ByteString -> Event) -> Parser RawMessage ByteString -> Parser RawMessage Event forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField ByteString +<*> + (Parser RawField ByteString -> FieldNumber -> Parser RawMessage ByteString forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField ByteString +HsProtobuf.at Parser RawField ByteString forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3)) - dotProto :: Proxy# Event -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3)) + dotProto :: Proxy# Event -> [DotProtoField] +dotProto Proxy# Event +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "event_type") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"event_type") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Repeated - (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "Attribute"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "attributes") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Repeated + (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"Attribute"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"attributes") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.Bytes) - (String -> DotProtoIdentifier -HsProtobuf.Single "data") - [] - "")] - -instance HsJSONPB.ToJSONPB Event where - toJSONPB :: Event -> Options -> Value -toJSONPB (Event f1 :: Text -f1 f2 :: Vector Event_Attribute -f2 f3 :: ByteString -f3) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object - ["event_type" Text -> Text -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.Bytes) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"data") + [] + String +"")] + +instance HsJSONPB.ToJSONPB Event where + toJSONPB :: Event -> Options -> Value +toJSONPB (Event Text +f1 Vector Event_Attribute +f2 ByteString +f3) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object + [Text +"event_type" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1, "attributes" Text -> Vector Event_Attribute -> Options -> [Pair] +.= Text +f1, Text +"attributes" Text -> Vector Event_Attribute -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Event_Attribute -f2, "data" Text -> ByteString -> Options -> [Pair] +.= Vector Event_Attribute +f2, Text +"data" Text -> ByteString -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f3]) - toEncodingPB :: Event -> Options -> Encoding -toEncodingPB (Event f1 :: Text -f1 f2 :: Vector Event_Attribute -f2 f3 :: ByteString -f3) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs - ["event_type" Text -> Text -> Options -> Series +.= ByteString +f3]) + toEncodingPB :: Event -> Options -> Encoding +toEncodingPB (Event Text +f1 Vector Event_Attribute +f2 ByteString +f3) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs + [Text +"event_type" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1, "attributes" Text -> Vector Event_Attribute -> Options -> Series +.= Text +f1, Text +"attributes" Text -> Vector Event_Attribute -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Event_Attribute -f2, "data" Text -> ByteString -> Options -> Series +.= Vector Event_Attribute +f2, Text +"data" Text -> ByteString -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f3]) - -instance HsJSONPB.FromJSONPB Event where - parseJSONPB :: Value -> Parser Event -parseJSONPB - = (String -> (Object -> Parser Event) -> Value -> Parser Event +.= ByteString +f3]) + +instance HsJSONPB.FromJSONPB Event where + parseJSONPB :: Value -> Parser Event +parseJSONPB + = (String -> (Object -> Parser Event) -> Value -> Parser Event forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "Event" - (\ obj :: Object -obj -> - ((Text -> Vector Event_Attribute -> ByteString -> Event) +HsJSONPB.withObject String +"Event" + (\ Object +obj -> + ((Text -> Vector Event_Attribute -> ByteString -> Event) -> Parser (Text -> Vector Event_Attribute -> ByteString -> Event) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> Vector Event_Attribute -> ByteString -> Event +Hs.pure Text -> Vector Event_Attribute -> ByteString -> Event Event) Parser (Text -> Vector Event_Attribute -> ByteString -> Event) -> Parser Text -> Parser (Vector Event_Attribute -> ByteString -> Event) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Text +<*> Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "event_type" Parser (Vector Event_Attribute -> ByteString -> Event) +.: Text +"event_type" Parser (Vector Event_Attribute -> ByteString -> Event) -> Parser (Vector Event_Attribute) -> Parser (ByteString -> Event) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser (Vector Event_Attribute) +<*> Object +obj Object -> Text -> Parser (Vector Event_Attribute) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "attributes" Parser (ByteString -> Event) -> Parser ByteString -> Parser Event +.: Text +"attributes" Parser (ByteString -> Event) -> Parser ByteString -> Parser Event forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser ByteString +<*> + Object +obj Object -> Text -> Parser ByteString forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "data")) - -instance HsJSONPB.ToJSON Event where - toJSON :: Event -> Value -toJSON = Event -> Value +.: Text +"data")) + +instance HsJSONPB.ToJSON Event where + toJSON :: Event -> Value +toJSON = Event -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: Event -> Encoding -toEncoding = Event -> Encoding +HsJSONPB.toAesonValue + toEncoding :: Event -> Encoding +toEncoding = Event -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON Event where - parseJSON :: Value -> Parser Event -parseJSON = Value -> Parser Event +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON Event where + parseJSON :: Value -> Parser Event +parseJSON = Value -> Parser Event forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema Event where - declareNamedSchema :: Proxy Event -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_event_type :: Proxy (OverrideToSchema Text) +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema Event where + declareNamedSchema :: Proxy Event -> Declare (Definitions Schema) NamedSchema +declareNamedSchema Proxy Event +_ + = do let declare_event_type :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_event_type = Proxy (OverrideToSchema Text) +declare_event_type = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -eventEventType <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +eventEventType <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_event_type Proxy (OverrideToSchema Text) +declare_event_type Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_attributes :: Proxy (OverrideToSchema (Vector Event_Attribute)) +Proxy.Proxy + let declare_attributes :: Proxy (OverrideToSchema (Vector Event_Attribute)) -> Declare (Definitions Schema) (Referenced Schema) -declare_attributes = Proxy (OverrideToSchema (Vector Event_Attribute)) +declare_attributes = Proxy (OverrideToSchema (Vector Event_Attribute)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -eventAttributes <- Proxy (OverrideToSchema (Vector Event_Attribute)) +HsJSONPB.declareSchemaRef + Referenced Schema +eventAttributes <- Proxy (OverrideToSchema (Vector Event_Attribute)) -> Declare (Definitions Schema) (Referenced Schema) -declare_attributes Proxy (OverrideToSchema (Vector Event_Attribute)) +declare_attributes Proxy (OverrideToSchema (Vector Event_Attribute)) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_data :: Proxy (OverrideToSchema ByteString) +Proxy.Proxy + let declare_data :: Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_data = Proxy (OverrideToSchema ByteString) +declare_data = Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -eventData <- Proxy (OverrideToSchema ByteString) +HsJSONPB.declareSchemaRef + Referenced Schema +eventData <- Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_data Proxy (OverrideToSchema ByteString) +declare_data Proxy (OverrideToSchema ByteString) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy Event +Proxy.Proxy + let Proxy Event _ = (Text -> Vector Event_Attribute -> ByteString -> Event) -> Proxy (Text -> Vector Event_Attribute -> ByteString -> Event) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> Vector Event_Attribute -> ByteString -> Event +Hs.pure Text -> Vector Event_Attribute -> ByteString -> Event Event Proxy (Text -> Vector Event_Attribute -> ByteString -> Event) -> Proxy Text -> Proxy (Vector Event_Attribute -> ByteString -> Event) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema Text) +<*> (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_event_type Proxy (Vector Event_Attribute -> ByteString -> Event) +declare_event_type Proxy (Vector Event_Attribute -> ByteString -> Event) -> Proxy (Vector Event_Attribute) -> Proxy (ByteString -> Event) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema (Vector Event_Attribute)) +<*> + (Proxy (OverrideToSchema (Vector Event_Attribute)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Vector Event_Attribute) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Event_Attribute)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Event_Attribute)) -> Declare (Definitions Schema) (Referenced Schema) -declare_attributes - Proxy (ByteString -> Event) -> Proxy ByteString -> Proxy Event +declare_attributes + Proxy (ByteString -> Event) -> Proxy ByteString -> Proxy Event forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema ByteString) +<*> (Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy ByteString forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) +HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_data - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_data + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "Event", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"Event", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("event_type", Referenced Schema -eventEventType), - ("attributes", Referenced Schema -eventAttributes), - ("data", Referenced Schema -eventData)]}}) - -data Event_Attribute = Event_Attribute{Event_Attribute -> Text +HsJSONPB.insOrdFromList + [(Text +"event_type", Referenced Schema +eventEventType), + (Text +"attributes", Referenced Schema +eventAttributes), + (Text +"data", Referenced Schema +eventData)]}}) + +data Event_Attribute = Event_Attribute{Event_Attribute -> Text event_AttributeKey :: - Hs.Text, - Event_Attribute -> Text -event_AttributeValue :: Hs.Text} - deriving (Int -> Event_Attribute -> ShowS + Hs.Text, + Event_Attribute -> Text +event_AttributeValue :: Hs.Text} + deriving (Int -> Event_Attribute -> ShowS [Event_Attribute] -> ShowS Event_Attribute -> String (Int -> Event_Attribute -> ShowS) @@ -500,7 +533,7 @@ show :: Event_Attribute -> String $cshow :: Event_Attribute -> String showsPrec :: Int -> Event_Attribute -> ShowS $cshowsPrec :: Int -> Event_Attribute -> ShowS -Hs.Show, Event_Attribute -> Event_Attribute -> Bool +Hs.Show, Event_Attribute -> Event_Attribute -> Bool (Event_Attribute -> Event_Attribute -> Bool) -> (Event_Attribute -> Event_Attribute -> Bool) -> Eq Event_Attribute @@ -509,9 +542,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: Event_Attribute -> Event_Attribute -> Bool == :: Event_Attribute -> Event_Attribute -> Bool $c== :: Event_Attribute -> Event_Attribute -> Bool -Hs.Eq, Eq Event_Attribute -Eq Event_Attribute => -(Event_Attribute -> Event_Attribute -> Ordering) +Hs.Eq, Eq Event_Attribute +Eq Event_Attribute +-> (Event_Attribute -> Event_Attribute -> Ordering) -> (Event_Attribute -> Event_Attribute -> Bool) -> (Event_Attribute -> Event_Attribute -> Bool) -> (Event_Attribute -> Event_Attribute -> Bool) @@ -523,8 +556,8 @@ Event_Attribute -> Event_Attribute -> Bool Event_Attribute -> Event_Attribute -> Ordering Event_Attribute -> Event_Attribute -> Event_Attribute forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -547,7 +580,7 @@ $c< :: Event_Attribute -> Event_Attribute -> Bool compare :: Event_Attribute -> Event_Attribute -> Ordering $ccompare :: Event_Attribute -> Event_Attribute -> Ordering $cp1Ord :: Eq Event_Attribute -Hs.Ord, (forall x. Event_Attribute -> Rep Event_Attribute x) +Hs.Ord, (forall x. Event_Attribute -> Rep Event_Attribute x) -> (forall x. Rep Event_Attribute x -> Event_Attribute) -> Generic Event_Attribute forall x. Rep Event_Attribute x -> Event_Attribute @@ -556,285 +589,311 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep Event_Attribute x -> Event_Attribute $cfrom :: forall x. Event_Attribute -> Rep Event_Attribute x -Hs.Generic, Event_Attribute -> () +Hs.Generic, Event_Attribute -> () (Event_Attribute -> ()) -> NFData Event_Attribute forall a. (a -> ()) -> NFData a rnf :: Event_Attribute -> () $crnf :: Event_Attribute -> () -Hs.NFData) - -instance HsProtobuf.Named Event_Attribute where - nameOf :: Proxy# Event_Attribute -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named Event_Attribute where + nameOf :: Proxy# Event_Attribute -> string +nameOf Proxy# Event_Attribute +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "Event_Attribute") - -instance HsProtobuf.HasDefault Event_Attribute - -instance HsProtobuf.Message Event_Attribute where - encodeMessage :: FieldNumber -> Event_Attribute -> MessageBuilder -encodeMessage _ - Event_Attribute{event_AttributeKey :: Event_Attribute -> Text -event_AttributeKey = Text -event_AttributeKey, - event_AttributeValue :: Event_Attribute -> Text -event_AttributeValue = Text -event_AttributeValue} - = ([MessageBuilder] -> MessageBuilder +Hs.fromString String +"Event_Attribute") + +instance HsProtobuf.HasDefault Event_Attribute + +instance HsProtobuf.Message Event_Attribute where + encodeMessage :: FieldNumber -> Event_Attribute -> MessageBuilder +encodeMessage FieldNumber +_ + Event_Attribute{event_AttributeKey :: Event_Attribute -> Text +event_AttributeKey = Text +event_AttributeKey, + event_AttributeValue :: Event_Attribute -> Text +event_AttributeValue = Text +event_AttributeValue} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> Text -> MessageBuilder +Hs.mconcat + [(FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Text -event_AttributeKey), - (FieldNumber -> Text -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Text +event_AttributeKey), + (FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - Text -event_AttributeValue)]) - decodeMessage :: FieldNumber -> Parser RawMessage Event_Attribute -decodeMessage _ - = ((Text -> Text -> Event_Attribute) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + Text +event_AttributeValue)]) + decodeMessage :: FieldNumber -> Parser RawMessage Event_Attribute +decodeMessage FieldNumber +_ + = ((Text -> Text -> Event_Attribute) -> Parser RawMessage (Text -> Text -> Event_Attribute) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> Text -> Event_Attribute +Hs.pure Text -> Text -> Event_Attribute Event_Attribute) Parser RawMessage (Text -> Text -> Event_Attribute) -> Parser RawMessage Text -> Parser RawMessage (Text -> Event_Attribute) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser RawMessage (Text -> Event_Attribute) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (Text -> Event_Attribute) -> Parser RawMessage Text -> Parser RawMessage Event_Attribute forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2)) - dotProto :: Proxy# Event_Attribute -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2)) + dotProto :: Proxy# Event_Attribute -> [DotProtoField] +dotProto Proxy# Event_Attribute +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "key") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"key") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "value") - [] - "")] - -instance HsJSONPB.ToJSONPB Event_Attribute where - toJSONPB :: Event_Attribute -> Options -> Value -toJSONPB (Event_Attribute f1 :: Text -f1 f2 :: Text -f2) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["key" Text -> Text -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"value") + [] + String +"")] + +instance HsJSONPB.ToJSONPB Event_Attribute where + toJSONPB :: Event_Attribute -> Options -> Value +toJSONPB (Event_Attribute Text +f1 Text +f2) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"key" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1, "value" Text -> Text -> Options -> [Pair] +.= Text +f1, Text +"value" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f2]) - toEncodingPB :: Event_Attribute -> Options -> Encoding -toEncodingPB (Event_Attribute f1 :: Text -f1 f2 :: Text -f2) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["key" Text -> Text -> Options -> Series +.= Text +f2]) + toEncodingPB :: Event_Attribute -> Options -> Encoding +toEncodingPB (Event_Attribute Text +f1 Text +f2) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"key" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1, "value" Text -> Text -> Options -> Series +.= Text +f1, Text +"value" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f2]) - -instance HsJSONPB.FromJSONPB Event_Attribute where - parseJSONPB :: Value -> Parser Event_Attribute -parseJSONPB - = (String +.= Text +f2]) + +instance HsJSONPB.FromJSONPB Event_Attribute where + parseJSONPB :: Value -> Parser Event_Attribute +parseJSONPB + = (String -> (Object -> Parser Event_Attribute) -> Value -> Parser Event_Attribute forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "Event_Attribute" - (\ obj :: Object -obj -> - ((Text -> Text -> Event_Attribute) +HsJSONPB.withObject String +"Event_Attribute" + (\ Object +obj -> + ((Text -> Text -> Event_Attribute) -> Parser (Text -> Text -> Event_Attribute) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> Text -> Event_Attribute +Hs.pure Text -> Text -> Event_Attribute Event_Attribute) Parser (Text -> Text -> Event_Attribute) -> Parser Text -> Parser (Text -> Event_Attribute) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Text +<*> Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "key" Parser (Text -> Event_Attribute) +.: Text +"key" Parser (Text -> Event_Attribute) -> Parser Text -> Parser Event_Attribute forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Text +<*> Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "value")) - -instance HsJSONPB.ToJSON Event_Attribute where - toJSON :: Event_Attribute -> Value -toJSON = Event_Attribute -> Value +.: Text +"value")) + +instance HsJSONPB.ToJSON Event_Attribute where + toJSON :: Event_Attribute -> Value +toJSON = Event_Attribute -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: Event_Attribute -> Encoding -toEncoding = Event_Attribute -> Encoding +HsJSONPB.toAesonValue + toEncoding :: Event_Attribute -> Encoding +toEncoding = Event_Attribute -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON Event_Attribute where - parseJSON :: Value -> Parser Event_Attribute -parseJSON = Value -> Parser Event_Attribute +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON Event_Attribute where + parseJSON :: Value -> Parser Event_Attribute +parseJSON = Value -> Parser Event_Attribute forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema Event_Attribute where - declareNamedSchema :: Proxy Event_Attribute -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_key :: Proxy (OverrideToSchema Text) +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema Event_Attribute where + declareNamedSchema :: Proxy Event_Attribute -> Declare (Definitions Schema) NamedSchema +declareNamedSchema Proxy Event_Attribute +_ + = do let declare_key :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_key = Proxy (OverrideToSchema Text) +declare_key = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -event_AttributeKey <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +event_AttributeKey <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_key Proxy (OverrideToSchema Text) +declare_key Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_value :: Proxy (OverrideToSchema Text) +Proxy.Proxy + let declare_value :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_value = Proxy (OverrideToSchema Text) +declare_value = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -event_AttributeValue <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +event_AttributeValue <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_value Proxy (OverrideToSchema Text) +declare_value Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy Event_Attribute +Proxy.Proxy + let Proxy Event_Attribute _ = (Text -> Text -> Event_Attribute) -> Proxy (Text -> Text -> Event_Attribute) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> Text -> Event_Attribute +Hs.pure Text -> Text -> Event_Attribute Event_Attribute Proxy (Text -> Text -> Event_Attribute) -> Proxy Text -> Proxy (Text -> Event_Attribute) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema Text) +<*> (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_key - Proxy (Text -> Event_Attribute) +declare_key + Proxy (Text -> Event_Attribute) -> Proxy Text -> Proxy Event_Attribute forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema Text) +<*> (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_value - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_value + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "Event_Attribute", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"Event_Attribute", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("key", Referenced Schema -event_AttributeKey), - ("value", Referenced Schema -event_AttributeValue)]}}) - -newtype EventList = EventList{EventList -> Vector Event +HsJSONPB.insOrdFromList + [(Text +"key", Referenced Schema +event_AttributeKey), + (Text +"value", Referenced Schema +event_AttributeValue)]}}) + +newtype EventList = EventList{EventList -> Vector Event eventListEvents :: - Hs.Vector Data.Sawtooth.Events.Event} - deriving (Int -> EventList -> ShowS + Hs.Vector Data.Sawtooth.Events.Event} + deriving (Int -> EventList -> ShowS [EventList] -> ShowS EventList -> String (Int -> EventList -> ShowS) @@ -849,7 +908,7 @@ show :: EventList -> String $cshow :: EventList -> String showsPrec :: Int -> EventList -> ShowS $cshowsPrec :: Int -> EventList -> ShowS -Hs.Show, EventList -> EventList -> Bool +Hs.Show, EventList -> EventList -> Bool (EventList -> EventList -> Bool) -> (EventList -> EventList -> Bool) -> Eq EventList forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a @@ -857,9 +916,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: EventList -> EventList -> Bool == :: EventList -> EventList -> Bool $c== :: EventList -> EventList -> Bool -Hs.Eq, Eq EventList -Eq EventList => -(EventList -> EventList -> Ordering) +Hs.Eq, Eq EventList +Eq EventList +-> (EventList -> EventList -> Ordering) -> (EventList -> EventList -> Bool) -> (EventList -> EventList -> Bool) -> (EventList -> EventList -> Bool) @@ -871,8 +930,8 @@ EventList -> EventList -> Bool EventList -> EventList -> Ordering EventList -> EventList -> EventList forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -895,7 +954,7 @@ $c< :: EventList -> EventList -> Bool compare :: EventList -> EventList -> Ordering $ccompare :: EventList -> EventList -> Ordering $cp1Ord :: Eq EventList -Hs.Ord, (forall x. EventList -> Rep EventList x) +Hs.Ord, (forall x. EventList -> Rep EventList x) -> (forall x. Rep EventList x -> EventList) -> Generic EventList forall x. Rep EventList x -> EventList forall x. EventList -> Rep EventList x @@ -903,210 +962,226 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep EventList x -> EventList $cfrom :: forall x. EventList -> Rep EventList x -Hs.Generic, EventList -> () +Hs.Generic, EventList -> () (EventList -> ()) -> NFData EventList forall a. (a -> ()) -> NFData a rnf :: EventList -> () $crnf :: EventList -> () -Hs.NFData) - -instance HsProtobuf.Named EventList where - nameOf :: Proxy# EventList -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named EventList where + nameOf :: Proxy# EventList -> string +nameOf Proxy# EventList +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "EventList") - -instance HsProtobuf.HasDefault EventList - -instance HsProtobuf.Message EventList where - encodeMessage :: FieldNumber -> EventList -> MessageBuilder -encodeMessage _ EventList{eventListEvents :: EventList -> Vector Event -eventListEvents = Vector Event -eventListEvents} - = ([MessageBuilder] -> MessageBuilder +Hs.fromString String +"EventList") + +instance HsProtobuf.HasDefault EventList + +instance HsProtobuf.Message EventList where + encodeMessage :: FieldNumber -> EventList -> MessageBuilder +encodeMessage FieldNumber +_ EventList{eventListEvents :: EventList -> Vector Event +eventListEvents = Vector Event +eventListEvents} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> NestedVec Event -> MessageBuilder +Hs.mconcat + [(FieldNumber -> NestedVec Event -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (Vector Event -> NestedVec Event -forall a b. Coercible a b => a -> b -Hs.coerce @(Hs.Vector Data.Sawtooth.Events.Event) - @(HsProtobuf.NestedVec Data.Sawtooth.Events.Event) - Vector Event -eventListEvents))]) - decodeMessage :: FieldNumber -> Parser RawMessage EventList -decodeMessage _ - = ((Vector Event -> EventList) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (Vector Event -> NestedVec Event +Hs.coerce @(Hs.Vector Data.Sawtooth.Events.Event) + @(HsProtobuf.NestedVec Data.Sawtooth.Events.Event) + Vector Event +eventListEvents))]) + decodeMessage :: FieldNumber -> Parser RawMessage EventList +decodeMessage FieldNumber +_ + = ((Vector Event -> EventList) -> Parser RawMessage (Vector Event -> EventList) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector Event -> EventList +Hs.pure Vector Event -> EventList EventList) Parser RawMessage (Vector Event -> EventList) -> Parser RawMessage (Vector Event) -> Parser RawMessage EventList forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (NestedVec Event) +<*> + (Parser RawMessage (NestedVec Event) -> Parser RawMessage (Vector Event) -forall a b. Coercible a b => a -> b -Hs.coerce @(_ (HsProtobuf.NestedVec Data.Sawtooth.Events.Event)) - @(_ (Hs.Vector Data.Sawtooth.Events.Event)) - (Parser RawField (NestedVec Event) +Hs.coerce @(_ (HsProtobuf.NestedVec Data.Sawtooth.Events.Event)) + @(_ (Hs.Vector Data.Sawtooth.Events.Event)) + (Parser RawField (NestedVec Event) -> FieldNumber -> Parser RawMessage (NestedVec Event) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (NestedVec Event) +HsProtobuf.at Parser RawField (NestedVec Event) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1))) - dotProto :: Proxy# EventList -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1))) + dotProto :: Proxy# EventList -> [DotProtoField] +dotProto Proxy# EventList +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Repeated - (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "Event"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "events") - [] - "")] - -instance HsJSONPB.ToJSONPB EventList where - toJSONPB :: EventList -> Options -> Value -toJSONPB (EventList f1 :: Vector Event -f1) = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["events" Text -> Vector Event -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Repeated + (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"Event"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"events") + [] + String +"")] + +instance HsJSONPB.ToJSONPB EventList where + toJSONPB :: EventList -> Options -> Value +toJSONPB (EventList Vector Event +f1) = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"events" Text -> Vector Event -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Event -f1]) - toEncodingPB :: EventList -> Options -> Encoding -toEncodingPB (EventList f1 :: Vector Event -f1) = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["events" Text -> Vector Event -> Options -> Series +.= Vector Event +f1]) + toEncodingPB :: EventList -> Options -> Encoding +toEncodingPB (EventList Vector Event +f1) = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"events" Text -> Vector Event -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Event -f1]) - -instance HsJSONPB.FromJSONPB EventList where - parseJSONPB :: Value -> Parser EventList -parseJSONPB - = (String -> (Object -> Parser EventList) -> Value -> Parser EventList +.= Vector Event +f1]) + +instance HsJSONPB.FromJSONPB EventList where + parseJSONPB :: Value -> Parser EventList +parseJSONPB + = (String -> (Object -> Parser EventList) -> Value -> Parser EventList forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "EventList" - (\ obj :: Object -obj -> ((Vector Event -> EventList) -> Parser (Vector Event -> EventList) +HsJSONPB.withObject String +"EventList" + (\ Object +obj -> ((Vector Event -> EventList) -> Parser (Vector Event -> EventList) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector Event -> EventList +Hs.pure Vector Event -> EventList EventList) Parser (Vector Event -> EventList) -> Parser (Vector Event) -> Parser EventList forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser (Vector Event) +<*> Object +obj Object -> Text -> Parser (Vector Event) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "events")) - -instance HsJSONPB.ToJSON EventList where - toJSON :: EventList -> Value -toJSON = EventList -> Value +.: Text +"events")) + +instance HsJSONPB.ToJSON EventList where + toJSON :: EventList -> Value +toJSON = EventList -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: EventList -> Encoding -toEncoding = EventList -> Encoding +HsJSONPB.toAesonValue + toEncoding :: EventList -> Encoding +toEncoding = EventList -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON EventList where - parseJSON :: Value -> Parser EventList -parseJSON = Value -> Parser EventList +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON EventList where + parseJSON :: Value -> Parser EventList +parseJSON = Value -> Parser EventList forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema EventList where - declareNamedSchema :: Proxy EventList -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_events :: Proxy (OverrideToSchema (Vector Event)) +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema EventList where + declareNamedSchema :: Proxy EventList -> Declare (Definitions Schema) NamedSchema +declareNamedSchema Proxy EventList +_ + = do let declare_events :: Proxy (OverrideToSchema (Vector Event)) -> Declare (Definitions Schema) (Referenced Schema) -declare_events = Proxy (OverrideToSchema (Vector Event)) +declare_events = Proxy (OverrideToSchema (Vector Event)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -eventListEvents <- Proxy (OverrideToSchema (Vector Event)) +HsJSONPB.declareSchemaRef + Referenced Schema +eventListEvents <- Proxy (OverrideToSchema (Vector Event)) -> Declare (Definitions Schema) (Referenced Schema) -declare_events Proxy (OverrideToSchema (Vector Event)) +declare_events Proxy (OverrideToSchema (Vector Event)) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy EventList +Proxy.Proxy + let Proxy EventList _ = (Vector Event -> EventList) -> Proxy (Vector Event -> EventList) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector Event -> EventList +Hs.pure Vector Event -> EventList EventList Proxy (Vector Event -> EventList) -> Proxy (Vector Event) -> Proxy EventList forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema (Vector Event)) +<*> (Proxy (OverrideToSchema (Vector Event)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Vector Event) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Event)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Event)) -> Declare (Definitions Schema) (Referenced Schema) -declare_events - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_events + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "EventList", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"EventList", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("events", Referenced Schema -eventListEvents)]}}) - -data EventFilter = EventFilter{EventFilter -> Text -eventFilterKey :: Hs.Text, - EventFilter -> Text -eventFilterMatchString :: Hs.Text, - EventFilter -> Enumerated EventFilter_FilterType +HsJSONPB.insOrdFromList + [(Text +"events", Referenced Schema +eventListEvents)]}}) + +data EventFilter = EventFilter{EventFilter -> Text +eventFilterKey :: Hs.Text, + EventFilter -> Text +eventFilterMatchString :: Hs.Text, + EventFilter -> Enumerated EventFilter_FilterType eventFilterFilterType :: - HsProtobuf.Enumerated Data.Sawtooth.Events.EventFilter_FilterType} - deriving (Int -> EventFilter -> ShowS + HsProtobuf.Enumerated Data.Sawtooth.Events.EventFilter_FilterType} + deriving (Int -> EventFilter -> ShowS [EventFilter] -> ShowS EventFilter -> String (Int -> EventFilter -> ShowS) @@ -1121,7 +1196,7 @@ show :: EventFilter -> String $cshow :: EventFilter -> String showsPrec :: Int -> EventFilter -> ShowS $cshowsPrec :: Int -> EventFilter -> ShowS -Hs.Show, EventFilter -> EventFilter -> Bool +Hs.Show, EventFilter -> EventFilter -> Bool (EventFilter -> EventFilter -> Bool) -> (EventFilter -> EventFilter -> Bool) -> Eq EventFilter forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a @@ -1129,9 +1204,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: EventFilter -> EventFilter -> Bool == :: EventFilter -> EventFilter -> Bool $c== :: EventFilter -> EventFilter -> Bool -Hs.Eq, Eq EventFilter -Eq EventFilter => -(EventFilter -> EventFilter -> Ordering) +Hs.Eq, Eq EventFilter +Eq EventFilter +-> (EventFilter -> EventFilter -> Ordering) -> (EventFilter -> EventFilter -> Bool) -> (EventFilter -> EventFilter -> Bool) -> (EventFilter -> EventFilter -> Bool) @@ -1143,8 +1218,8 @@ EventFilter -> EventFilter -> Bool EventFilter -> EventFilter -> Ordering EventFilter -> EventFilter -> EventFilter forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -1167,7 +1242,7 @@ $c< :: EventFilter -> EventFilter -> Bool compare :: EventFilter -> EventFilter -> Ordering $ccompare :: EventFilter -> EventFilter -> Ordering $cp1Ord :: Eq EventFilter -Hs.Ord, (forall x. EventFilter -> Rep EventFilter x) +Hs.Ord, (forall x. EventFilter -> Rep EventFilter x) -> (forall x. Rep EventFilter x -> EventFilter) -> Generic EventFilter forall x. Rep EventFilter x -> EventFilter @@ -1176,62 +1251,69 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep EventFilter x -> EventFilter $cfrom :: forall x. EventFilter -> Rep EventFilter x -Hs.Generic, EventFilter -> () +Hs.Generic, EventFilter -> () (EventFilter -> ()) -> NFData EventFilter forall a. (a -> ()) -> NFData a rnf :: EventFilter -> () $crnf :: EventFilter -> () -Hs.NFData) - -instance HsProtobuf.Named EventFilter where - nameOf :: Proxy# EventFilter -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named EventFilter where + nameOf :: Proxy# EventFilter -> string +nameOf Proxy# EventFilter +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "EventFilter") - -instance HsProtobuf.HasDefault EventFilter - -instance HsProtobuf.Message EventFilter where - encodeMessage :: FieldNumber -> EventFilter -> MessageBuilder -encodeMessage _ - EventFilter{eventFilterKey :: EventFilter -> Text -eventFilterKey = Text -eventFilterKey, - eventFilterMatchString :: EventFilter -> Text -eventFilterMatchString = Text -eventFilterMatchString, - eventFilterFilterType :: EventFilter -> Enumerated EventFilter_FilterType -eventFilterFilterType = Enumerated EventFilter_FilterType -eventFilterFilterType} - = ([MessageBuilder] -> MessageBuilder +Hs.fromString String +"EventFilter") + +instance HsProtobuf.HasDefault EventFilter + +instance HsProtobuf.Message EventFilter where + encodeMessage :: FieldNumber -> EventFilter -> MessageBuilder +encodeMessage FieldNumber +_ + EventFilter{eventFilterKey :: EventFilter -> Text +eventFilterKey = Text +eventFilterKey, + eventFilterMatchString :: EventFilter -> Text +eventFilterMatchString = Text +eventFilterMatchString, + eventFilterFilterType :: EventFilter -> Enumerated EventFilter_FilterType +eventFilterFilterType = Enumerated EventFilter_FilterType +eventFilterFilterType} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> Text -> MessageBuilder +Hs.mconcat + [(FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Text -eventFilterKey), - (FieldNumber -> Text -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Text +eventFilterKey), + (FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - Text -eventFilterMatchString), - (FieldNumber -> Enumerated EventFilter_FilterType -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + Text +eventFilterMatchString), + (FieldNumber -> Enumerated EventFilter_FilterType -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - Enumerated EventFilter_FilterType -eventFilterFilterType)]) - decodeMessage :: FieldNumber -> Parser RawMessage EventFilter -decodeMessage _ - = ((Text -> Text -> Enumerated EventFilter_FilterType -> EventFilter) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + Enumerated EventFilter_FilterType +eventFilterFilterType)]) + decodeMessage :: FieldNumber -> Parser RawMessage EventFilter +decodeMessage FieldNumber +_ + = ((Text -> Text -> Enumerated EventFilter_FilterType -> EventFilter) -> Parser RawMessage (Text -> Text -> Enumerated EventFilter_FilterType -> EventFilter) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> Text -> Enumerated EventFilter_FilterType -> EventFilter +Hs.pure Text -> Text -> Enumerated EventFilter_FilterType -> EventFilter EventFilter) Parser RawMessage (Text -> Text -> Enumerated EventFilter_FilterType -> EventFilter) @@ -1240,330 +1322,359 @@ forall (f :: * -> *) a. Applicative f => a -> f a RawMessage (Text -> Enumerated EventFilter_FilterType -> EventFilter) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (Text -> Enumerated EventFilter_FilterType -> EventFilter) -> Parser RawMessage Text -> Parser RawMessage (Enumerated EventFilter_FilterType -> EventFilter) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2)) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2)) + Parser RawMessage (Enumerated EventFilter_FilterType -> EventFilter) -> Parser RawMessage (Enumerated EventFilter_FilterType) -> Parser RawMessage EventFilter forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField (Enumerated EventFilter_FilterType) +<*> + (Parser RawField (Enumerated EventFilter_FilterType) -> FieldNumber -> Parser RawMessage (Enumerated EventFilter_FilterType) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (Enumerated EventFilter_FilterType) +HsProtobuf.at Parser RawField (Enumerated EventFilter_FilterType) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3)) - dotProto :: Proxy# EventFilter -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3)) + dotProto :: Proxy# EventFilter -> [DotProtoField] +dotProto Proxy# EventFilter +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "key") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"key") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "match_string") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"match_string") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim - (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "FilterType"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "filter_type") - [] - "")] - -instance HsJSONPB.ToJSONPB EventFilter where - toJSONPB :: EventFilter -> Options -> Value -toJSONPB (EventFilter f1 :: Text -f1 f2 :: Text -f2 f3 :: Enumerated EventFilter_FilterType -f3) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object - ["key" Text -> Text -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim + (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"FilterType"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"filter_type") + [] + String +"")] + +instance HsJSONPB.ToJSONPB EventFilter where + toJSONPB :: EventFilter -> Options -> Value +toJSONPB (EventFilter Text +f1 Text +f2 Enumerated EventFilter_FilterType +f3) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object + [Text +"key" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1, "match_string" Text -> Text -> Options -> [Pair] +.= Text +f1, Text +"match_string" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f2, "filter_type" Text -> Enumerated EventFilter_FilterType -> Options -> [Pair] +.= Text +f2, Text +"filter_type" Text -> Enumerated EventFilter_FilterType -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated EventFilter_FilterType -f3]) - toEncodingPB :: EventFilter -> Options -> Encoding -toEncodingPB (EventFilter f1 :: Text -f1 f2 :: Text -f2 f3 :: Enumerated EventFilter_FilterType -f3) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs - ["key" Text -> Text -> Options -> Series +.= Enumerated EventFilter_FilterType +f3]) + toEncodingPB :: EventFilter -> Options -> Encoding +toEncodingPB (EventFilter Text +f1 Text +f2 Enumerated EventFilter_FilterType +f3) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs + [Text +"key" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1, "match_string" Text -> Text -> Options -> Series +.= Text +f1, Text +"match_string" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f2, "filter_type" Text -> Enumerated EventFilter_FilterType -> Options -> Series +.= Text +f2, Text +"filter_type" Text -> Enumerated EventFilter_FilterType -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated EventFilter_FilterType -f3]) - -instance HsJSONPB.FromJSONPB EventFilter where - parseJSONPB :: Value -> Parser EventFilter -parseJSONPB - = (String +.= Enumerated EventFilter_FilterType +f3]) + +instance HsJSONPB.FromJSONPB EventFilter where + parseJSONPB :: Value -> Parser EventFilter +parseJSONPB + = (String -> (Object -> Parser EventFilter) -> Value -> Parser EventFilter forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "EventFilter" - (\ obj :: Object -obj -> - ((Text -> Text -> Enumerated EventFilter_FilterType -> EventFilter) +HsJSONPB.withObject String +"EventFilter" + (\ Object +obj -> + ((Text -> Text -> Enumerated EventFilter_FilterType -> EventFilter) -> Parser (Text -> Text -> Enumerated EventFilter_FilterType -> EventFilter) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> Text -> Enumerated EventFilter_FilterType -> EventFilter +Hs.pure Text -> Text -> Enumerated EventFilter_FilterType -> EventFilter EventFilter) Parser (Text -> Text -> Enumerated EventFilter_FilterType -> EventFilter) -> Parser Text -> Parser (Text -> Enumerated EventFilter_FilterType -> EventFilter) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Text +<*> Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "key" Parser (Text -> Enumerated EventFilter_FilterType -> EventFilter) +.: Text +"key" Parser (Text -> Enumerated EventFilter_FilterType -> EventFilter) -> Parser Text -> Parser (Enumerated EventFilter_FilterType -> EventFilter) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Text +<*> Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "match_string" - Parser (Enumerated EventFilter_FilterType -> EventFilter) +.: Text +"match_string" + Parser (Enumerated EventFilter_FilterType -> EventFilter) -> Parser (Enumerated EventFilter_FilterType) -> Parser EventFilter forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser (Enumerated EventFilter_FilterType) +<*> Object +obj Object -> Text -> Parser (Enumerated EventFilter_FilterType) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "filter_type")) - -instance HsJSONPB.ToJSON EventFilter where - toJSON :: EventFilter -> Value -toJSON = EventFilter -> Value +.: Text +"filter_type")) + +instance HsJSONPB.ToJSON EventFilter where + toJSON :: EventFilter -> Value +toJSON = EventFilter -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: EventFilter -> Encoding -toEncoding = EventFilter -> Encoding +HsJSONPB.toAesonValue + toEncoding :: EventFilter -> Encoding +toEncoding = EventFilter -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON EventFilter where - parseJSON :: Value -> Parser EventFilter -parseJSON = Value -> Parser EventFilter +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON EventFilter where + parseJSON :: Value -> Parser EventFilter +parseJSON = Value -> Parser EventFilter forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema EventFilter where - declareNamedSchema :: Proxy EventFilter -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_key :: Proxy (OverrideToSchema Text) +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema EventFilter where + declareNamedSchema :: Proxy EventFilter -> Declare (Definitions Schema) NamedSchema +declareNamedSchema Proxy EventFilter +_ + = do let declare_key :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_key = Proxy (OverrideToSchema Text) +declare_key = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -eventFilterKey <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +eventFilterKey <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_key Proxy (OverrideToSchema Text) +declare_key Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_match_string :: Proxy (OverrideToSchema Text) +Proxy.Proxy + let declare_match_string :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_match_string = Proxy (OverrideToSchema Text) +declare_match_string = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -eventFilterMatchString <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +eventFilterMatchString <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_match_string Proxy (OverrideToSchema Text) +declare_match_string Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_filter_type :: Proxy (OverrideToSchema (Enumerated EventFilter_FilterType)) +Proxy.Proxy + let declare_filter_type :: Proxy (OverrideToSchema (Enumerated EventFilter_FilterType)) -> Declare (Definitions Schema) (Referenced Schema) -declare_filter_type = Proxy (OverrideToSchema (Enumerated EventFilter_FilterType)) +declare_filter_type = Proxy (OverrideToSchema (Enumerated EventFilter_FilterType)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -eventFilterFilterType <- Proxy (OverrideToSchema (Enumerated EventFilter_FilterType)) +HsJSONPB.declareSchemaRef + Referenced Schema +eventFilterFilterType <- Proxy (OverrideToSchema (Enumerated EventFilter_FilterType)) -> Declare (Definitions Schema) (Referenced Schema) -declare_filter_type Proxy (OverrideToSchema (Enumerated EventFilter_FilterType)) +declare_filter_type Proxy (OverrideToSchema (Enumerated EventFilter_FilterType)) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy EventFilter +Proxy.Proxy + let Proxy EventFilter _ = (Text -> Text -> Enumerated EventFilter_FilterType -> EventFilter) -> Proxy (Text -> Text -> Enumerated EventFilter_FilterType -> EventFilter) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> Text -> Enumerated EventFilter_FilterType -> EventFilter +Hs.pure Text -> Text -> Enumerated EventFilter_FilterType -> EventFilter EventFilter Proxy (Text -> Text -> Enumerated EventFilter_FilterType -> EventFilter) -> Proxy Text -> Proxy (Text -> Enumerated EventFilter_FilterType -> EventFilter) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema Text) +<*> (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_key Proxy (Text -> Enumerated EventFilter_FilterType -> EventFilter) +declare_key Proxy (Text -> Enumerated EventFilter_FilterType -> EventFilter) -> Proxy Text -> Proxy (Enumerated EventFilter_FilterType -> EventFilter) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema Text) +<*> + (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_match_string - Proxy (Enumerated EventFilter_FilterType -> EventFilter) +declare_match_string + Proxy (Enumerated EventFilter_FilterType -> EventFilter) -> Proxy (Enumerated EventFilter_FilterType) -> Proxy EventFilter forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema (Enumerated EventFilter_FilterType)) +<*> (Proxy (OverrideToSchema (Enumerated EventFilter_FilterType)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Enumerated EventFilter_FilterType) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Enumerated EventFilter_FilterType)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Enumerated EventFilter_FilterType)) -> Declare (Definitions Schema) (Referenced Schema) -declare_filter_type - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_filter_type + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "EventFilter", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"EventFilter", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("key", Referenced Schema -eventFilterKey), - ("match_string", Referenced Schema -eventFilterMatchString), - ("filter_type", Referenced Schema -eventFilterFilterType)]}}) - -data EventFilter_FilterType = EventFilter_FilterTypeFILTER_TYPE_UNSET - | EventFilter_FilterTypeSIMPLE_ANY - | EventFilter_FilterTypeSIMPLE_ALL - | EventFilter_FilterTypeREGEX_ANY - | EventFilter_FilterTypeREGEX_ALL - deriving (Int -> EventFilter_FilterType -> ShowS +HsJSONPB.insOrdFromList + [(Text +"key", Referenced Schema +eventFilterKey), + (Text +"match_string", Referenced Schema +eventFilterMatchString), + (Text +"filter_type", Referenced Schema +eventFilterFilterType)]}}) + +data EventFilter_FilterType = EventFilter_FilterTypeFILTER_TYPE_UNSET + | EventFilter_FilterTypeSIMPLE_ANY + | EventFilter_FilterTypeSIMPLE_ALL + | EventFilter_FilterTypeREGEX_ANY + | EventFilter_FilterTypeREGEX_ALL + deriving (Int -> EventFilter_FilterType -> ShowS [EventFilter_FilterType] -> ShowS EventFilter_FilterType -> String (Int -> EventFilter_FilterType -> ShowS) @@ -1578,7 +1689,7 @@ show :: EventFilter_FilterType -> String $cshow :: EventFilter_FilterType -> String showsPrec :: Int -> EventFilter_FilterType -> ShowS $cshowsPrec :: Int -> EventFilter_FilterType -> ShowS -Hs.Show, EventFilter_FilterType -> EventFilter_FilterType -> Bool +Hs.Show, EventFilter_FilterType -> EventFilter_FilterType -> Bool (EventFilter_FilterType -> EventFilter_FilterType -> Bool) -> (EventFilter_FilterType -> EventFilter_FilterType -> Bool) -> Eq EventFilter_FilterType @@ -1587,7 +1698,7 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: EventFilter_FilterType -> EventFilter_FilterType -> Bool == :: EventFilter_FilterType -> EventFilter_FilterType -> Bool $c== :: EventFilter_FilterType -> EventFilter_FilterType -> Bool -Hs.Eq, (forall x. EventFilter_FilterType -> Rep EventFilter_FilterType x) +Hs.Eq, (forall x. EventFilter_FilterType -> Rep EventFilter_FilterType x) -> (forall x. Rep EventFilter_FilterType x -> EventFilter_FilterType) -> Generic EventFilter_FilterType @@ -1597,154 +1708,175 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep EventFilter_FilterType x -> EventFilter_FilterType $cfrom :: forall x. EventFilter_FilterType -> Rep EventFilter_FilterType x -Hs.Generic, EventFilter_FilterType -> () +Hs.Generic, EventFilter_FilterType -> () (EventFilter_FilterType -> ()) -> NFData EventFilter_FilterType forall a. (a -> ()) -> NFData a rnf :: EventFilter_FilterType -> () $crnf :: EventFilter_FilterType -> () -Hs.NFData) - -instance HsProtobuf.Named EventFilter_FilterType where - nameOf :: Proxy# EventFilter_FilterType -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named EventFilter_FilterType where + nameOf :: Proxy# EventFilter_FilterType -> string +nameOf Proxy# EventFilter_FilterType +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "EventFilter_FilterType") - -instance HsProtobuf.HasDefault EventFilter_FilterType - -instance Hs.Bounded EventFilter_FilterType where - minBound :: EventFilter_FilterType -minBound = EventFilter_FilterType +Hs.fromString String +"EventFilter_FilterType") + +instance HsProtobuf.HasDefault EventFilter_FilterType + +instance Hs.Bounded EventFilter_FilterType where + minBound :: EventFilter_FilterType +minBound = EventFilter_FilterType EventFilter_FilterTypeFILTER_TYPE_UNSET - maxBound :: EventFilter_FilterType -maxBound = EventFilter_FilterType + maxBound :: EventFilter_FilterType +maxBound = EventFilter_FilterType EventFilter_FilterTypeREGEX_ALL - -instance Hs.Ord EventFilter_FilterType where - compare :: EventFilter_FilterType -> EventFilter_FilterType -> Ordering -compare x :: EventFilter_FilterType -x y :: EventFilter_FilterType -y - = Int32 -> Int32 -> Ordering + +instance Hs.Ord EventFilter_FilterType where + compare :: EventFilter_FilterType -> EventFilter_FilterType -> Ordering +compare EventFilter_FilterType +x EventFilter_FilterType +y + = Int32 -> Int32 -> Ordering forall a. Ord a => a -> a -> Ordering -Hs.compare (EventFilter_FilterType -> Int32 +Hs.compare (EventFilter_FilterType -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum EventFilter_FilterType -x) - (EventFilter_FilterType -> Int32 +HsProtobuf.fromProtoEnum EventFilter_FilterType +x) + (EventFilter_FilterType -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum EventFilter_FilterType -y) - -instance HsProtobuf.ProtoEnum EventFilter_FilterType where - toProtoEnumMay :: Int32 -> Maybe EventFilter_FilterType -toProtoEnumMay 0 = EventFilter_FilterType -> Maybe EventFilter_FilterType +HsProtobuf.fromProtoEnum EventFilter_FilterType +y) + +instance HsProtobuf.ProtoEnum EventFilter_FilterType where + toProtoEnumMay :: Int32 -> Maybe EventFilter_FilterType +toProtoEnumMay Int32 +0 = EventFilter_FilterType -> Maybe EventFilter_FilterType forall a. a -> Maybe a -Hs.Just EventFilter_FilterType +Hs.Just EventFilter_FilterType EventFilter_FilterTypeFILTER_TYPE_UNSET - toProtoEnumMay 1 = EventFilter_FilterType -> Maybe EventFilter_FilterType + toProtoEnumMay Int32 +1 = EventFilter_FilterType -> Maybe EventFilter_FilterType forall a. a -> Maybe a -Hs.Just EventFilter_FilterType +Hs.Just EventFilter_FilterType EventFilter_FilterTypeSIMPLE_ANY - toProtoEnumMay 2 = EventFilter_FilterType -> Maybe EventFilter_FilterType + toProtoEnumMay Int32 +2 = EventFilter_FilterType -> Maybe EventFilter_FilterType forall a. a -> Maybe a -Hs.Just EventFilter_FilterType +Hs.Just EventFilter_FilterType EventFilter_FilterTypeSIMPLE_ALL - toProtoEnumMay 3 = EventFilter_FilterType -> Maybe EventFilter_FilterType + toProtoEnumMay Int32 +3 = EventFilter_FilterType -> Maybe EventFilter_FilterType forall a. a -> Maybe a -Hs.Just EventFilter_FilterType +Hs.Just EventFilter_FilterType EventFilter_FilterTypeREGEX_ANY - toProtoEnumMay 4 = EventFilter_FilterType -> Maybe EventFilter_FilterType + toProtoEnumMay Int32 +4 = EventFilter_FilterType -> Maybe EventFilter_FilterType forall a. a -> Maybe a -Hs.Just EventFilter_FilterType +Hs.Just EventFilter_FilterType EventFilter_FilterTypeREGEX_ALL - toProtoEnumMay _ = Maybe EventFilter_FilterType + toProtoEnumMay Int32 +_ = Maybe EventFilter_FilterType forall a. Maybe a -Hs.Nothing - fromProtoEnum :: EventFilter_FilterType -> Int32 -fromProtoEnum (EventFilter_FilterType -EventFilter_FilterTypeFILTER_TYPE_UNSET) = 0 - fromProtoEnum (EventFilter_FilterType -EventFilter_FilterTypeSIMPLE_ANY) = 1 - fromProtoEnum (EventFilter_FilterType -EventFilter_FilterTypeSIMPLE_ALL) = 2 - fromProtoEnum (EventFilter_FilterType -EventFilter_FilterTypeREGEX_ANY) = 3 - fromProtoEnum (EventFilter_FilterType -EventFilter_FilterTypeREGEX_ALL) = 4 - -instance HsJSONPB.ToJSONPB EventFilter_FilterType where - toJSONPB :: EventFilter_FilterType -> Options -> Value -toJSONPB x :: EventFilter_FilterType -x _ = EventFilter_FilterType -> Value +Hs.Nothing + fromProtoEnum :: EventFilter_FilterType -> Int32 +fromProtoEnum (EventFilter_FilterType +EventFilter_FilterTypeFILTER_TYPE_UNSET) = Int32 +0 + fromProtoEnum (EventFilter_FilterType +EventFilter_FilterTypeSIMPLE_ANY) = Int32 +1 + fromProtoEnum (EventFilter_FilterType +EventFilter_FilterTypeSIMPLE_ALL) = Int32 +2 + fromProtoEnum (EventFilter_FilterType +EventFilter_FilterTypeREGEX_ANY) = Int32 +3 + fromProtoEnum (EventFilter_FilterType +EventFilter_FilterTypeREGEX_ALL) = Int32 +4 + +instance HsJSONPB.ToJSONPB EventFilter_FilterType where + toJSONPB :: EventFilter_FilterType -> Options -> Value +toJSONPB EventFilter_FilterType +x Options +_ = EventFilter_FilterType -> Value forall a. (Named a, Show a) => a -> Value -HsJSONPB.enumFieldString EventFilter_FilterType -x - toEncodingPB :: EventFilter_FilterType -> Options -> Encoding -toEncodingPB x :: EventFilter_FilterType -x _ = EventFilter_FilterType -> Encoding +HsJSONPB.enumFieldString EventFilter_FilterType +x + toEncodingPB :: EventFilter_FilterType -> Options -> Encoding +toEncodingPB EventFilter_FilterType +x Options +_ = EventFilter_FilterType -> Encoding forall a. (Named a, Show a) => a -> Encoding -HsJSONPB.enumFieldEncoding EventFilter_FilterType -x - -instance HsJSONPB.FromJSONPB EventFilter_FilterType where - parseJSONPB :: Value -> Parser EventFilter_FilterType -parseJSONPB (HsJSONPB.String "FILTER_TYPE_UNSET") - = EventFilter_FilterType -> Parser EventFilter_FilterType +HsJSONPB.enumFieldEncoding EventFilter_FilterType +x + +instance HsJSONPB.FromJSONPB EventFilter_FilterType where + parseJSONPB :: Value -> Parser EventFilter_FilterType +parseJSONPB (HsJSONPB.String Text +"FILTER_TYPE_UNSET") + = EventFilter_FilterType -> Parser EventFilter_FilterType forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure EventFilter_FilterType +Hs.pure EventFilter_FilterType EventFilter_FilterTypeFILTER_TYPE_UNSET - parseJSONPB (HsJSONPB.String "SIMPLE_ANY") - = EventFilter_FilterType -> Parser EventFilter_FilterType + parseJSONPB (HsJSONPB.String Text +"SIMPLE_ANY") + = EventFilter_FilterType -> Parser EventFilter_FilterType forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure EventFilter_FilterType +Hs.pure EventFilter_FilterType EventFilter_FilterTypeSIMPLE_ANY - parseJSONPB (HsJSONPB.String "SIMPLE_ALL") - = EventFilter_FilterType -> Parser EventFilter_FilterType + parseJSONPB (HsJSONPB.String Text +"SIMPLE_ALL") + = EventFilter_FilterType -> Parser EventFilter_FilterType forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure EventFilter_FilterType +Hs.pure EventFilter_FilterType EventFilter_FilterTypeSIMPLE_ALL - parseJSONPB (HsJSONPB.String "REGEX_ANY") - = EventFilter_FilterType -> Parser EventFilter_FilterType + parseJSONPB (HsJSONPB.String Text +"REGEX_ANY") + = EventFilter_FilterType -> Parser EventFilter_FilterType forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure EventFilter_FilterType +Hs.pure EventFilter_FilterType EventFilter_FilterTypeREGEX_ANY - parseJSONPB (HsJSONPB.String "REGEX_ALL") - = EventFilter_FilterType -> Parser EventFilter_FilterType + parseJSONPB (HsJSONPB.String Text +"REGEX_ALL") + = EventFilter_FilterType -> Parser EventFilter_FilterType forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure EventFilter_FilterType +Hs.pure EventFilter_FilterType EventFilter_FilterTypeREGEX_ALL - parseJSONPB v :: Value -v = (String -> Value -> Parser EventFilter_FilterType + parseJSONPB Value +v = (String -> Value -> Parser EventFilter_FilterType forall a. String -> Value -> Parser a -HsJSONPB.typeMismatch "EventFilter_FilterType" Value -v) - -instance HsJSONPB.ToJSON EventFilter_FilterType where - toJSON :: EventFilter_FilterType -> Value -toJSON = EventFilter_FilterType -> Value +HsJSONPB.typeMismatch String +"EventFilter_FilterType" Value +v) + +instance HsJSONPB.ToJSON EventFilter_FilterType where + toJSON :: EventFilter_FilterType -> Value +toJSON = EventFilter_FilterType -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: EventFilter_FilterType -> Encoding -toEncoding = EventFilter_FilterType -> Encoding +HsJSONPB.toAesonValue + toEncoding :: EventFilter_FilterType -> Encoding +toEncoding = EventFilter_FilterType -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON EventFilter_FilterType where - parseJSON :: Value -> Parser EventFilter_FilterType -parseJSON = Value -> Parser EventFilter_FilterType +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON EventFilter_FilterType where + parseJSON :: Value -> Parser EventFilter_FilterType +parseJSON = Value -> Parser EventFilter_FilterType forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsProtobuf.Finite EventFilter_FilterType - -data EventSubscription = EventSubscription{EventSubscription -> Text +HsJSONPB.parseJSONPB + +instance HsProtobuf.Finite EventFilter_FilterType + +data EventSubscription = EventSubscription{EventSubscription -> Text eventSubscriptionEventType - :: Hs.Text, - EventSubscription -> Vector EventFilter + :: Hs.Text, + EventSubscription -> Vector EventFilter eventSubscriptionFilters :: - Hs.Vector Data.Sawtooth.Events.EventFilter} - deriving (Int -> EventSubscription -> ShowS + Hs.Vector Data.Sawtooth.Events.EventFilter} + deriving (Int -> EventSubscription -> ShowS [EventSubscription] -> ShowS EventSubscription -> String (Int -> EventSubscription -> ShowS) @@ -1759,7 +1891,7 @@ show :: EventSubscription -> String $cshow :: EventSubscription -> String showsPrec :: Int -> EventSubscription -> ShowS $cshowsPrec :: Int -> EventSubscription -> ShowS -Hs.Show, EventSubscription -> EventSubscription -> Bool +Hs.Show, EventSubscription -> EventSubscription -> Bool (EventSubscription -> EventSubscription -> Bool) -> (EventSubscription -> EventSubscription -> Bool) -> Eq EventSubscription @@ -1768,9 +1900,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: EventSubscription -> EventSubscription -> Bool == :: EventSubscription -> EventSubscription -> Bool $c== :: EventSubscription -> EventSubscription -> Bool -Hs.Eq, Eq EventSubscription -Eq EventSubscription => -(EventSubscription -> EventSubscription -> Ordering) +Hs.Eq, Eq EventSubscription +Eq EventSubscription +-> (EventSubscription -> EventSubscription -> Ordering) -> (EventSubscription -> EventSubscription -> Bool) -> (EventSubscription -> EventSubscription -> Bool) -> (EventSubscription -> EventSubscription -> Bool) @@ -1782,8 +1914,8 @@ EventSubscription -> EventSubscription -> Bool EventSubscription -> EventSubscription -> Ordering EventSubscription -> EventSubscription -> EventSubscription forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -1806,7 +1938,7 @@ $c< :: EventSubscription -> EventSubscription -> Bool compare :: EventSubscription -> EventSubscription -> Ordering $ccompare :: EventSubscription -> EventSubscription -> Ordering $cp1Ord :: Eq EventSubscription -Hs.Ord, (forall x. EventSubscription -> Rep EventSubscription x) +Hs.Ord, (forall x. EventSubscription -> Rep EventSubscription x) -> (forall x. Rep EventSubscription x -> EventSubscription) -> Generic EventSubscription forall x. Rep EventSubscription x -> EventSubscription @@ -1815,295 +1947,320 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep EventSubscription x -> EventSubscription $cfrom :: forall x. EventSubscription -> Rep EventSubscription x -Hs.Generic, EventSubscription -> () +Hs.Generic, EventSubscription -> () (EventSubscription -> ()) -> NFData EventSubscription forall a. (a -> ()) -> NFData a rnf :: EventSubscription -> () $crnf :: EventSubscription -> () -Hs.NFData) - -instance HsProtobuf.Named EventSubscription where - nameOf :: Proxy# EventSubscription -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named EventSubscription where + nameOf :: Proxy# EventSubscription -> string +nameOf Proxy# EventSubscription +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "EventSubscription") - -instance HsProtobuf.HasDefault EventSubscription - -instance HsProtobuf.Message EventSubscription where - encodeMessage :: FieldNumber -> EventSubscription -> MessageBuilder -encodeMessage _ - EventSubscription{eventSubscriptionEventType :: EventSubscription -> Text +Hs.fromString String +"EventSubscription") + +instance HsProtobuf.HasDefault EventSubscription + +instance HsProtobuf.Message EventSubscription where + encodeMessage :: FieldNumber -> EventSubscription -> MessageBuilder +encodeMessage FieldNumber +_ + EventSubscription{eventSubscriptionEventType :: EventSubscription -> Text eventSubscriptionEventType = - Text -eventSubscriptionEventType, - eventSubscriptionFilters :: EventSubscription -> Vector EventFilter -eventSubscriptionFilters = Vector EventFilter -eventSubscriptionFilters} - = ([MessageBuilder] -> MessageBuilder + Text +eventSubscriptionEventType, + eventSubscriptionFilters :: EventSubscription -> Vector EventFilter +eventSubscriptionFilters = Vector EventFilter +eventSubscriptionFilters} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> Text -> MessageBuilder +Hs.mconcat + [(FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Text -eventSubscriptionEventType), - (FieldNumber -> NestedVec EventFilter -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Text +eventSubscriptionEventType), + (FieldNumber -> NestedVec EventFilter -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (Vector EventFilter -> NestedVec EventFilter -forall a b. Coercible a b => a -> b -Hs.coerce @(Hs.Vector Data.Sawtooth.Events.EventFilter) - @(HsProtobuf.NestedVec Data.Sawtooth.Events.EventFilter) - Vector EventFilter -eventSubscriptionFilters))]) - decodeMessage :: FieldNumber -> Parser RawMessage EventSubscription -decodeMessage _ - = ((Text -> Vector EventFilter -> EventSubscription) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (Vector EventFilter -> NestedVec EventFilter +Hs.coerce @(Hs.Vector Data.Sawtooth.Events.EventFilter) + @(HsProtobuf.NestedVec Data.Sawtooth.Events.EventFilter) + Vector EventFilter +eventSubscriptionFilters))]) + decodeMessage :: FieldNumber -> Parser RawMessage EventSubscription +decodeMessage FieldNumber +_ + = ((Text -> Vector EventFilter -> EventSubscription) -> Parser RawMessage (Text -> Vector EventFilter -> EventSubscription) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> Vector EventFilter -> EventSubscription +Hs.pure Text -> Vector EventFilter -> EventSubscription EventSubscription) Parser RawMessage (Text -> Vector EventFilter -> EventSubscription) -> Parser RawMessage Text -> Parser RawMessage (Vector EventFilter -> EventSubscription) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser RawMessage (Vector EventFilter -> EventSubscription) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (Vector EventFilter -> EventSubscription) -> Parser RawMessage (Vector EventFilter) -> Parser RawMessage EventSubscription forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (NestedVec EventFilter) +<*> + (Parser RawMessage (NestedVec EventFilter) -> Parser RawMessage (Vector EventFilter) -forall a b. Coercible a b => a -> b -Hs.coerce - @(_ (HsProtobuf.NestedVec Data.Sawtooth.Events.EventFilter)) - @(_ (Hs.Vector Data.Sawtooth.Events.EventFilter)) - (Parser RawField (NestedVec EventFilter) +Hs.coerce + @(_ (HsProtobuf.NestedVec Data.Sawtooth.Events.EventFilter)) + @(_ (Hs.Vector Data.Sawtooth.Events.EventFilter)) + (Parser RawField (NestedVec EventFilter) -> FieldNumber -> Parser RawMessage (NestedVec EventFilter) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (NestedVec EventFilter) +HsProtobuf.at Parser RawField (NestedVec EventFilter) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2))) - dotProto :: Proxy# EventSubscription -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2))) + dotProto :: Proxy# EventSubscription -> [DotProtoField] +dotProto Proxy# EventSubscription +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "event_type") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"event_type") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Repeated - (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "EventFilter"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "filters") - [] - "")] - -instance HsJSONPB.ToJSONPB EventSubscription where - toJSONPB :: EventSubscription -> Options -> Value -toJSONPB (EventSubscription f1 :: Text -f1 f2 :: Vector EventFilter -f2) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["event_type" Text -> Text -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Repeated + (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"EventFilter"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"filters") + [] + String +"")] + +instance HsJSONPB.ToJSONPB EventSubscription where + toJSONPB :: EventSubscription -> Options -> Value +toJSONPB (EventSubscription Text +f1 Vector EventFilter +f2) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"event_type" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1, "filters" Text -> Vector EventFilter -> Options -> [Pair] +.= Text +f1, Text +"filters" Text -> Vector EventFilter -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector EventFilter -f2]) - toEncodingPB :: EventSubscription -> Options -> Encoding -toEncodingPB (EventSubscription f1 :: Text -f1 f2 :: Vector EventFilter -f2) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["event_type" Text -> Text -> Options -> Series +.= Vector EventFilter +f2]) + toEncodingPB :: EventSubscription -> Options -> Encoding +toEncodingPB (EventSubscription Text +f1 Vector EventFilter +f2) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"event_type" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1, "filters" Text -> Vector EventFilter -> Options -> Series +.= Text +f1, Text +"filters" Text -> Vector EventFilter -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector EventFilter -f2]) - -instance HsJSONPB.FromJSONPB EventSubscription where - parseJSONPB :: Value -> Parser EventSubscription -parseJSONPB - = (String +.= Vector EventFilter +f2]) + +instance HsJSONPB.FromJSONPB EventSubscription where + parseJSONPB :: Value -> Parser EventSubscription +parseJSONPB + = (String -> (Object -> Parser EventSubscription) -> Value -> Parser EventSubscription forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "EventSubscription" - (\ obj :: Object -obj -> - ((Text -> Vector EventFilter -> EventSubscription) +HsJSONPB.withObject String +"EventSubscription" + (\ Object +obj -> + ((Text -> Vector EventFilter -> EventSubscription) -> Parser (Text -> Vector EventFilter -> EventSubscription) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> Vector EventFilter -> EventSubscription +Hs.pure Text -> Vector EventFilter -> EventSubscription EventSubscription) Parser (Text -> Vector EventFilter -> EventSubscription) -> Parser Text -> Parser (Vector EventFilter -> EventSubscription) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Text +<*> Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "event_type" Parser (Vector EventFilter -> EventSubscription) +.: Text +"event_type" Parser (Vector EventFilter -> EventSubscription) -> Parser (Vector EventFilter) -> Parser EventSubscription forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser (Vector EventFilter) +<*> + Object +obj Object -> Text -> Parser (Vector EventFilter) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "filters")) - -instance HsJSONPB.ToJSON EventSubscription where - toJSON :: EventSubscription -> Value -toJSON = EventSubscription -> Value +.: Text +"filters")) + +instance HsJSONPB.ToJSON EventSubscription where + toJSON :: EventSubscription -> Value +toJSON = EventSubscription -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: EventSubscription -> Encoding -toEncoding = EventSubscription -> Encoding +HsJSONPB.toAesonValue + toEncoding :: EventSubscription -> Encoding +toEncoding = EventSubscription -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON EventSubscription where - parseJSON :: Value -> Parser EventSubscription -parseJSON = Value -> Parser EventSubscription +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON EventSubscription where + parseJSON :: Value -> Parser EventSubscription +parseJSON = Value -> Parser EventSubscription forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema EventSubscription where - declareNamedSchema :: Proxy EventSubscription -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_event_type :: Proxy (OverrideToSchema Text) +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema EventSubscription where + declareNamedSchema :: Proxy EventSubscription -> Declare (Definitions Schema) NamedSchema +declareNamedSchema Proxy EventSubscription +_ + = do let declare_event_type :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_event_type = Proxy (OverrideToSchema Text) +declare_event_type = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -eventSubscriptionEventType <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +eventSubscriptionEventType <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_event_type Proxy (OverrideToSchema Text) +declare_event_type Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_filters :: Proxy (OverrideToSchema (Vector EventFilter)) +Proxy.Proxy + let declare_filters :: Proxy (OverrideToSchema (Vector EventFilter)) -> Declare (Definitions Schema) (Referenced Schema) -declare_filters = Proxy (OverrideToSchema (Vector EventFilter)) +declare_filters = Proxy (OverrideToSchema (Vector EventFilter)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -eventSubscriptionFilters <- Proxy (OverrideToSchema (Vector EventFilter)) +HsJSONPB.declareSchemaRef + Referenced Schema +eventSubscriptionFilters <- Proxy (OverrideToSchema (Vector EventFilter)) -> Declare (Definitions Schema) (Referenced Schema) -declare_filters Proxy (OverrideToSchema (Vector EventFilter)) +declare_filters Proxy (OverrideToSchema (Vector EventFilter)) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy EventSubscription +Proxy.Proxy + let Proxy EventSubscription _ = (Text -> Vector EventFilter -> EventSubscription) -> Proxy (Text -> Vector EventFilter -> EventSubscription) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> Vector EventFilter -> EventSubscription +Hs.pure Text -> Vector EventFilter -> EventSubscription EventSubscription Proxy (Text -> Vector EventFilter -> EventSubscription) -> Proxy Text -> Proxy (Vector EventFilter -> EventSubscription) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema Text) +<*> + (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_event_type - Proxy (Vector EventFilter -> EventSubscription) +declare_event_type + Proxy (Vector EventFilter -> EventSubscription) -> Proxy (Vector EventFilter) -> Proxy EventSubscription forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema (Vector EventFilter)) +<*> (Proxy (OverrideToSchema (Vector EventFilter)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Vector EventFilter) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Vector EventFilter)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Vector EventFilter)) -> Declare (Definitions Schema) (Referenced Schema) -declare_filters - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_filters + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "EventSubscription", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"EventSubscription", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("event_type", Referenced Schema -eventSubscriptionEventType), - ("filters", Referenced Schema -eventSubscriptionFilters)]}}) \ No newline at end of file +HsJSONPB.insOrdFromList + [(Text +"event_type", Referenced Schema +eventSubscriptionEventType), + (Text +"filters", Referenced Schema +eventSubscriptionFilters)]}}) \ No newline at end of file diff --git a/src/Data.Sawtooth.Genesis.html b/src/Data.Sawtooth.Genesis.html index 6ae306c..f3adbb9 100644 --- a/src/Data.Sawtooth.Genesis.html +++ b/src/Data.Sawtooth.Genesis.html @@ -9,38 +9,37 @@ {-# OPTIONS_GHC -fno-warn-unused-matches #-} -- | Generated by Haskell protocol buffer compiler. DO NOT EDIT! - -module Data.Sawtooth.Genesis where -import qualified Prelude as Hs -import qualified Proto3.Suite.Class as HsProtobuf -import qualified Proto3.Suite.DotProto as HsProtobuf -import qualified Proto3.Suite.JSONPB as HsJSONPB -import Proto3.Suite.JSONPB ((.=), (.:)) -import qualified Proto3.Suite.Types as HsProtobuf -import qualified Proto3.Wire as HsProtobuf -import qualified Control.Applicative as Hs -import Control.Applicative ((<*>), (<|>), (<$>)) -import qualified Control.DeepSeq as Hs -import qualified Control.Monad as Hs -import qualified Data.ByteString as Hs -import qualified Data.Coerce as Hs -import qualified Data.Int as Hs (Int16, Int32, Int64) -import qualified Data.List.NonEmpty as Hs (NonEmpty(..)) -import qualified Data.Map as Hs (Map, mapKeysMonotonic) -import qualified Data.Proxy as Proxy -import qualified Data.String as Hs (fromString) -import qualified Data.Text.Lazy as Hs (Text) -import qualified Data.Vector as Hs (Vector) -import qualified Data.Word as Hs (Word16, Word32, Word64) -import qualified GHC.Enum as Hs -import qualified GHC.Generics as Hs -import qualified Unsafe.Coerce as Hs -import qualified Data.Sawtooth.Batch - -newtype GenesisData = GenesisData{GenesisData -> Vector Batch +module Data.Sawtooth.Genesis where +import qualified Prelude as Hs +import qualified Proto3.Suite.Class as HsProtobuf +import qualified Proto3.Suite.DotProto as HsProtobuf +import qualified Proto3.Suite.JSONPB as HsJSONPB +import Proto3.Suite.JSONPB ((.=), (.:)) +import qualified Proto3.Suite.Types as HsProtobuf +import qualified Proto3.Wire as HsProtobuf +import qualified Control.Applicative as Hs +import Control.Applicative ((<*>), (<|>), (<$>)) +import qualified Control.DeepSeq as Hs +import qualified Control.Monad as Hs +import qualified Data.ByteString as Hs +import qualified Data.Coerce as Hs +import qualified Data.Int as Hs (Int16, Int32, Int64) +import qualified Data.List.NonEmpty as Hs (NonEmpty(..)) +import qualified Data.Map as Hs (Map, mapKeysMonotonic) +import qualified Data.Proxy as Proxy +import qualified Data.String as Hs (fromString) +import qualified Data.Text.Lazy as Hs (Text) +import qualified Data.Vector as Hs (Vector) +import qualified Data.Word as Hs (Word16, Word32, Word64) +import qualified GHC.Enum as Hs +import qualified GHC.Generics as Hs +import qualified Unsafe.Coerce as Hs +import qualified Data.Sawtooth.Batch + +newtype GenesisData = GenesisData{GenesisData -> Vector Batch genesisDataBatches :: - Hs.Vector Data.Sawtooth.Batch.Batch} - deriving (Int -> GenesisData -> ShowS + Hs.Vector Data.Sawtooth.Batch.Batch} + deriving (Int -> GenesisData -> ShowS [GenesisData] -> ShowS GenesisData -> String (Int -> GenesisData -> ShowS) @@ -55,7 +54,7 @@ show :: GenesisData -> String $cshow :: GenesisData -> String showsPrec :: Int -> GenesisData -> ShowS $cshowsPrec :: Int -> GenesisData -> ShowS -Hs.Show, GenesisData -> GenesisData -> Bool +Hs.Show, GenesisData -> GenesisData -> Bool (GenesisData -> GenesisData -> Bool) -> (GenesisData -> GenesisData -> Bool) -> Eq GenesisData forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a @@ -63,9 +62,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: GenesisData -> GenesisData -> Bool == :: GenesisData -> GenesisData -> Bool $c== :: GenesisData -> GenesisData -> Bool -Hs.Eq, Eq GenesisData -Eq GenesisData => -(GenesisData -> GenesisData -> Ordering) +Hs.Eq, Eq GenesisData +Eq GenesisData +-> (GenesisData -> GenesisData -> Ordering) -> (GenesisData -> GenesisData -> Bool) -> (GenesisData -> GenesisData -> Bool) -> (GenesisData -> GenesisData -> Bool) @@ -77,8 +76,8 @@ GenesisData -> GenesisData -> Bool GenesisData -> GenesisData -> Ordering GenesisData -> GenesisData -> GenesisData forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -101,7 +100,7 @@ $c< :: GenesisData -> GenesisData -> Bool compare :: GenesisData -> GenesisData -> Ordering $ccompare :: GenesisData -> GenesisData -> Ordering $cp1Ord :: Eq GenesisData -Hs.Ord, (forall x. GenesisData -> Rep GenesisData x) +Hs.Ord, (forall x. GenesisData -> Rep GenesisData x) -> (forall x. Rep GenesisData x -> GenesisData) -> Generic GenesisData forall x. Rep GenesisData x -> GenesisData @@ -110,203 +109,219 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep GenesisData x -> GenesisData $cfrom :: forall x. GenesisData -> Rep GenesisData x -Hs.Generic, GenesisData -> () +Hs.Generic, GenesisData -> () (GenesisData -> ()) -> NFData GenesisData forall a. (a -> ()) -> NFData a rnf :: GenesisData -> () $crnf :: GenesisData -> () -Hs.NFData) - -instance HsProtobuf.Named GenesisData where - nameOf :: Proxy# GenesisData -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named GenesisData where + nameOf :: Proxy# GenesisData -> string +nameOf Proxy# GenesisData +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "GenesisData") - -instance HsProtobuf.HasDefault GenesisData - -instance HsProtobuf.Message GenesisData where - encodeMessage :: FieldNumber -> GenesisData -> MessageBuilder -encodeMessage _ - GenesisData{genesisDataBatches :: GenesisData -> Vector Batch -genesisDataBatches = Vector Batch -genesisDataBatches} - = ([MessageBuilder] -> MessageBuilder +Hs.fromString String +"GenesisData") + +instance HsProtobuf.HasDefault GenesisData + +instance HsProtobuf.Message GenesisData where + encodeMessage :: FieldNumber -> GenesisData -> MessageBuilder +encodeMessage FieldNumber +_ + GenesisData{genesisDataBatches :: GenesisData -> Vector Batch +genesisDataBatches = Vector Batch +genesisDataBatches} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> NestedVec Batch -> MessageBuilder +Hs.mconcat + [(FieldNumber -> NestedVec Batch -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (Vector Batch -> NestedVec Batch -forall a b. Coercible a b => a -> b -Hs.coerce @(Hs.Vector Data.Sawtooth.Batch.Batch) - @(HsProtobuf.NestedVec Data.Sawtooth.Batch.Batch) - Vector Batch -genesisDataBatches))]) - decodeMessage :: FieldNumber -> Parser RawMessage GenesisData -decodeMessage _ - = ((Vector Batch -> GenesisData) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (Vector Batch -> NestedVec Batch +Hs.coerce @(Hs.Vector Data.Sawtooth.Batch.Batch) + @(HsProtobuf.NestedVec Data.Sawtooth.Batch.Batch) + Vector Batch +genesisDataBatches))]) + decodeMessage :: FieldNumber -> Parser RawMessage GenesisData +decodeMessage FieldNumber +_ + = ((Vector Batch -> GenesisData) -> Parser RawMessage (Vector Batch -> GenesisData) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector Batch -> GenesisData +Hs.pure Vector Batch -> GenesisData GenesisData) Parser RawMessage (Vector Batch -> GenesisData) -> Parser RawMessage (Vector Batch) -> Parser RawMessage GenesisData forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (NestedVec Batch) +<*> + (Parser RawMessage (NestedVec Batch) -> Parser RawMessage (Vector Batch) -forall a b. Coercible a b => a -> b -Hs.coerce @(_ (HsProtobuf.NestedVec Data.Sawtooth.Batch.Batch)) - @(_ (Hs.Vector Data.Sawtooth.Batch.Batch)) - (Parser RawField (NestedVec Batch) +Hs.coerce @(_ (HsProtobuf.NestedVec Data.Sawtooth.Batch.Batch)) + @(_ (Hs.Vector Data.Sawtooth.Batch.Batch)) + (Parser RawField (NestedVec Batch) -> FieldNumber -> Parser RawMessage (NestedVec Batch) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (NestedVec Batch) +HsProtobuf.at Parser RawField (NestedVec Batch) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1))) - dotProto :: Proxy# GenesisData -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1))) + dotProto :: Proxy# GenesisData -> [DotProtoField] +dotProto Proxy# GenesisData +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Repeated - (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "Batch"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "batches") - [] - "")] - -instance HsJSONPB.ToJSONPB GenesisData where - toJSONPB :: GenesisData -> Options -> Value -toJSONPB (GenesisData f1 :: Vector Batch -f1) = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["batches" Text -> Vector Batch -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Repeated + (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"Batch"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"batches") + [] + String +"")] + +instance HsJSONPB.ToJSONPB GenesisData where + toJSONPB :: GenesisData -> Options -> Value +toJSONPB (GenesisData Vector Batch +f1) = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"batches" Text -> Vector Batch -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Batch -f1]) - toEncodingPB :: GenesisData -> Options -> Encoding -toEncodingPB (GenesisData f1 :: Vector Batch -f1) = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["batches" Text -> Vector Batch -> Options -> Series +.= Vector Batch +f1]) + toEncodingPB :: GenesisData -> Options -> Encoding +toEncodingPB (GenesisData Vector Batch +f1) = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"batches" Text -> Vector Batch -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Batch -f1]) - -instance HsJSONPB.FromJSONPB GenesisData where - parseJSONPB :: Value -> Parser GenesisData -parseJSONPB - = (String +.= Vector Batch +f1]) + +instance HsJSONPB.FromJSONPB GenesisData where + parseJSONPB :: Value -> Parser GenesisData +parseJSONPB + = (String -> (Object -> Parser GenesisData) -> Value -> Parser GenesisData forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "GenesisData" - (\ obj :: Object -obj -> ((Vector Batch -> GenesisData) +HsJSONPB.withObject String +"GenesisData" + (\ Object +obj -> ((Vector Batch -> GenesisData) -> Parser (Vector Batch -> GenesisData) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector Batch -> GenesisData +Hs.pure Vector Batch -> GenesisData GenesisData) Parser (Vector Batch -> GenesisData) -> Parser (Vector Batch) -> Parser GenesisData forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser (Vector Batch) +<*> Object +obj Object -> Text -> Parser (Vector Batch) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "batches")) - -instance HsJSONPB.ToJSON GenesisData where - toJSON :: GenesisData -> Value -toJSON = GenesisData -> Value +.: Text +"batches")) + +instance HsJSONPB.ToJSON GenesisData where + toJSON :: GenesisData -> Value +toJSON = GenesisData -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: GenesisData -> Encoding -toEncoding = GenesisData -> Encoding +HsJSONPB.toAesonValue + toEncoding :: GenesisData -> Encoding +toEncoding = GenesisData -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON GenesisData where - parseJSON :: Value -> Parser GenesisData -parseJSON = Value -> Parser GenesisData +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON GenesisData where + parseJSON :: Value -> Parser GenesisData +parseJSON = Value -> Parser GenesisData forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema GenesisData where - declareNamedSchema :: Proxy GenesisData -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_batches :: Proxy (OverrideToSchema (Vector Batch)) +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema GenesisData where + declareNamedSchema :: Proxy GenesisData -> Declare (Definitions Schema) NamedSchema +declareNamedSchema Proxy GenesisData +_ + = do let declare_batches :: Proxy (OverrideToSchema (Vector Batch)) -> Declare (Definitions Schema) (Referenced Schema) -declare_batches = Proxy (OverrideToSchema (Vector Batch)) +declare_batches = Proxy (OverrideToSchema (Vector Batch)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -genesisDataBatches <- Proxy (OverrideToSchema (Vector Batch)) +HsJSONPB.declareSchemaRef + Referenced Schema +genesisDataBatches <- Proxy (OverrideToSchema (Vector Batch)) -> Declare (Definitions Schema) (Referenced Schema) -declare_batches Proxy (OverrideToSchema (Vector Batch)) +declare_batches Proxy (OverrideToSchema (Vector Batch)) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy GenesisData +Proxy.Proxy + let Proxy GenesisData _ = (Vector Batch -> GenesisData) -> Proxy (Vector Batch -> GenesisData) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector Batch -> GenesisData +Hs.pure Vector Batch -> GenesisData GenesisData Proxy (Vector Batch -> GenesisData) -> Proxy (Vector Batch) -> Proxy GenesisData forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema (Vector Batch)) +<*> (Proxy (OverrideToSchema (Vector Batch)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Vector Batch) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Batch)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Batch)) -> Declare (Definitions Schema) (Referenced Schema) -declare_batches - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_batches + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "GenesisData", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"GenesisData", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("batches", Referenced Schema -genesisDataBatches)]}}) \ No newline at end of file +HsJSONPB.insOrdFromList + [(Text +"batches", Referenced Schema +genesisDataBatches)]}}) \ No newline at end of file diff --git a/src/Data.Sawtooth.Identity.html b/src/Data.Sawtooth.Identity.html index cce3ff8..08dfaee 100644 --- a/src/Data.Sawtooth.Identity.html +++ b/src/Data.Sawtooth.Identity.html @@ -9,38 +9,37 @@ {-# OPTIONS_GHC -fno-warn-unused-matches #-} -- | Generated by Haskell protocol buffer compiler. DO NOT EDIT! - -module Data.Sawtooth.Identity where -import qualified Prelude as Hs -import qualified Proto3.Suite.Class as HsProtobuf -import qualified Proto3.Suite.DotProto as HsProtobuf -import qualified Proto3.Suite.JSONPB as HsJSONPB -import Proto3.Suite.JSONPB ((.=), (.:)) -import qualified Proto3.Suite.Types as HsProtobuf -import qualified Proto3.Wire as HsProtobuf -import qualified Control.Applicative as Hs -import Control.Applicative ((<*>), (<|>), (<$>)) -import qualified Control.DeepSeq as Hs -import qualified Control.Monad as Hs -import qualified Data.ByteString as Hs -import qualified Data.Coerce as Hs -import qualified Data.Int as Hs (Int16, Int32, Int64) -import qualified Data.List.NonEmpty as Hs (NonEmpty(..)) -import qualified Data.Map as Hs (Map, mapKeysMonotonic) -import qualified Data.Proxy as Proxy -import qualified Data.String as Hs (fromString) -import qualified Data.Text.Lazy as Hs (Text) -import qualified Data.Vector as Hs (Vector) -import qualified Data.Word as Hs (Word16, Word32, Word64) -import qualified GHC.Enum as Hs -import qualified GHC.Generics as Hs -import qualified Unsafe.Coerce as Hs - -data Policy = Policy{Policy -> Text -policyName :: Hs.Text, - Policy -> Vector Policy_Entry -policyEntries :: Hs.Vector Data.Sawtooth.Identity.Policy_Entry} - deriving (Int -> Policy -> ShowS +module Data.Sawtooth.Identity where +import qualified Prelude as Hs +import qualified Proto3.Suite.Class as HsProtobuf +import qualified Proto3.Suite.DotProto as HsProtobuf +import qualified Proto3.Suite.JSONPB as HsJSONPB +import Proto3.Suite.JSONPB ((.=), (.:)) +import qualified Proto3.Suite.Types as HsProtobuf +import qualified Proto3.Wire as HsProtobuf +import qualified Control.Applicative as Hs +import Control.Applicative ((<*>), (<|>), (<$>)) +import qualified Control.DeepSeq as Hs +import qualified Control.Monad as Hs +import qualified Data.ByteString as Hs +import qualified Data.Coerce as Hs +import qualified Data.Int as Hs (Int16, Int32, Int64) +import qualified Data.List.NonEmpty as Hs (NonEmpty(..)) +import qualified Data.Map as Hs (Map, mapKeysMonotonic) +import qualified Data.Proxy as Proxy +import qualified Data.String as Hs (fromString) +import qualified Data.Text.Lazy as Hs (Text) +import qualified Data.Vector as Hs (Vector) +import qualified Data.Word as Hs (Word16, Word32, Word64) +import qualified GHC.Enum as Hs +import qualified GHC.Generics as Hs +import qualified Unsafe.Coerce as Hs + +data Policy = Policy{Policy -> Text +policyName :: Hs.Text, + Policy -> Vector Policy_Entry +policyEntries :: Hs.Vector Data.Sawtooth.Identity.Policy_Entry} + deriving (Int -> Policy -> ShowS [Policy] -> ShowS Policy -> String (Int -> Policy -> ShowS) @@ -53,7 +52,7 @@ show :: Policy -> String $cshow :: Policy -> String showsPrec :: Int -> Policy -> ShowS $cshowsPrec :: Int -> Policy -> ShowS -Hs.Show, Policy -> Policy -> Bool +Hs.Show, Policy -> Policy -> Bool (Policy -> Policy -> Bool) -> (Policy -> Policy -> Bool) -> Eq Policy forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a @@ -61,9 +60,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: Policy -> Policy -> Bool == :: Policy -> Policy -> Bool $c== :: Policy -> Policy -> Bool -Hs.Eq, Eq Policy -Eq Policy => -(Policy -> Policy -> Ordering) +Hs.Eq, Eq Policy +Eq Policy +-> (Policy -> Policy -> Ordering) -> (Policy -> Policy -> Bool) -> (Policy -> Policy -> Bool) -> (Policy -> Policy -> Bool) @@ -75,8 +74,8 @@ Policy -> Policy -> Bool Policy -> Policy -> Ordering Policy -> Policy -> Policy forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -99,7 +98,7 @@ $c< :: Policy -> Policy -> Bool compare :: Policy -> Policy -> Ordering $ccompare :: Policy -> Policy -> Ordering $cp1Ord :: Eq Policy -Hs.Ord, (forall x. Policy -> Rep Policy x) +Hs.Ord, (forall x. Policy -> Rep Policy x) -> (forall x. Rep Policy x -> Policy) -> Generic Policy forall x. Rep Policy x -> Policy forall x. Policy -> Rep Policy x @@ -107,293 +106,318 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep Policy x -> Policy $cfrom :: forall x. Policy -> Rep Policy x -Hs.Generic, Policy -> () +Hs.Generic, Policy -> () (Policy -> ()) -> NFData Policy forall a. (a -> ()) -> NFData a rnf :: Policy -> () $crnf :: Policy -> () -Hs.NFData) - -instance HsProtobuf.Named Policy where - nameOf :: Proxy# Policy -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named Policy where + nameOf :: Proxy# Policy -> string +nameOf Proxy# Policy +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "Policy") - -instance HsProtobuf.HasDefault Policy - -instance HsProtobuf.Message Policy where - encodeMessage :: FieldNumber -> Policy -> MessageBuilder -encodeMessage _ - Policy{policyName :: Policy -> Text -policyName = Text -policyName, policyEntries :: Policy -> Vector Policy_Entry -policyEntries = Vector Policy_Entry -policyEntries} - = ([MessageBuilder] -> MessageBuilder +Hs.fromString String +"Policy") + +instance HsProtobuf.HasDefault Policy + +instance HsProtobuf.Message Policy where + encodeMessage :: FieldNumber -> Policy -> MessageBuilder +encodeMessage FieldNumber +_ + Policy{policyName :: Policy -> Text +policyName = Text +policyName, policyEntries :: Policy -> Vector Policy_Entry +policyEntries = Vector Policy_Entry +policyEntries} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> Text -> MessageBuilder +Hs.mconcat + [(FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Text -policyName), - (FieldNumber -> NestedVec Policy_Entry -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Text +policyName), + (FieldNumber -> NestedVec Policy_Entry -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (Vector Policy_Entry -> NestedVec Policy_Entry -forall a b. Coercible a b => a -> b -Hs.coerce @(Hs.Vector Data.Sawtooth.Identity.Policy_Entry) - @(HsProtobuf.NestedVec Data.Sawtooth.Identity.Policy_Entry) - Vector Policy_Entry -policyEntries))]) - decodeMessage :: FieldNumber -> Parser RawMessage Policy -decodeMessage _ - = ((Text -> Vector Policy_Entry -> Policy) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (Vector Policy_Entry -> NestedVec Policy_Entry +Hs.coerce @(Hs.Vector Data.Sawtooth.Identity.Policy_Entry) + @(HsProtobuf.NestedVec Data.Sawtooth.Identity.Policy_Entry) + Vector Policy_Entry +policyEntries))]) + decodeMessage :: FieldNumber -> Parser RawMessage Policy +decodeMessage FieldNumber +_ + = ((Text -> Vector Policy_Entry -> Policy) -> Parser RawMessage (Text -> Vector Policy_Entry -> Policy) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> Vector Policy_Entry -> Policy +Hs.pure Text -> Vector Policy_Entry -> Policy Policy) Parser RawMessage (Text -> Vector Policy_Entry -> Policy) -> Parser RawMessage Text -> Parser RawMessage (Vector Policy_Entry -> Policy) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser RawMessage (Vector Policy_Entry -> Policy) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (Vector Policy_Entry -> Policy) -> Parser RawMessage (Vector Policy_Entry) -> Parser RawMessage Policy forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (NestedVec Policy_Entry) +<*> + (Parser RawMessage (NestedVec Policy_Entry) -> Parser RawMessage (Vector Policy_Entry) -forall a b. Coercible a b => a -> b -Hs.coerce - @(_ (HsProtobuf.NestedVec Data.Sawtooth.Identity.Policy_Entry)) - @(_ (Hs.Vector Data.Sawtooth.Identity.Policy_Entry)) - (Parser RawField (NestedVec Policy_Entry) +Hs.coerce + @(_ (HsProtobuf.NestedVec Data.Sawtooth.Identity.Policy_Entry)) + @(_ (Hs.Vector Data.Sawtooth.Identity.Policy_Entry)) + (Parser RawField (NestedVec Policy_Entry) -> FieldNumber -> Parser RawMessage (NestedVec Policy_Entry) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (NestedVec Policy_Entry) +HsProtobuf.at Parser RawField (NestedVec Policy_Entry) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2))) - dotProto :: Proxy# Policy -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2))) + dotProto :: Proxy# Policy -> [DotProtoField] +dotProto Proxy# Policy +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "name") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"name") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Repeated - (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "Entry"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "entries") - [] - "")] - -instance HsJSONPB.ToJSONPB Policy where - toJSONPB :: Policy -> Options -> Value -toJSONPB (Policy f1 :: Text -f1 f2 :: Vector Policy_Entry -f2) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["name" Text -> Text -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Repeated + (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"Entry"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"entries") + [] + String +"")] + +instance HsJSONPB.ToJSONPB Policy where + toJSONPB :: Policy -> Options -> Value +toJSONPB (Policy Text +f1 Vector Policy_Entry +f2) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"name" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1, "entries" Text -> Vector Policy_Entry -> Options -> [Pair] +.= Text +f1, Text +"entries" Text -> Vector Policy_Entry -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Policy_Entry -f2]) - toEncodingPB :: Policy -> Options -> Encoding -toEncodingPB (Policy f1 :: Text -f1 f2 :: Vector Policy_Entry -f2) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["name" Text -> Text -> Options -> Series +.= Vector Policy_Entry +f2]) + toEncodingPB :: Policy -> Options -> Encoding +toEncodingPB (Policy Text +f1 Vector Policy_Entry +f2) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"name" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1, "entries" Text -> Vector Policy_Entry -> Options -> Series +.= Text +f1, Text +"entries" Text -> Vector Policy_Entry -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Policy_Entry -f2]) - -instance HsJSONPB.FromJSONPB Policy where - parseJSONPB :: Value -> Parser Policy -parseJSONPB - = (String -> (Object -> Parser Policy) -> Value -> Parser Policy +.= Vector Policy_Entry +f2]) + +instance HsJSONPB.FromJSONPB Policy where + parseJSONPB :: Value -> Parser Policy +parseJSONPB + = (String -> (Object -> Parser Policy) -> Value -> Parser Policy forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "Policy" - (\ obj :: Object -obj -> ((Text -> Vector Policy_Entry -> Policy) +HsJSONPB.withObject String +"Policy" + (\ Object +obj -> ((Text -> Vector Policy_Entry -> Policy) -> Parser (Text -> Vector Policy_Entry -> Policy) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> Vector Policy_Entry -> Policy +Hs.pure Text -> Vector Policy_Entry -> Policy Policy) Parser (Text -> Vector Policy_Entry -> Policy) -> Parser Text -> Parser (Vector Policy_Entry -> Policy) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Text +<*> Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "name" Parser (Vector Policy_Entry -> Policy) +.: Text +"name" Parser (Vector Policy_Entry -> Policy) -> Parser (Vector Policy_Entry) -> Parser Policy forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser (Vector Policy_Entry) +<*> Object +obj Object -> Text -> Parser (Vector Policy_Entry) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "entries")) - -instance HsJSONPB.ToJSON Policy where - toJSON :: Policy -> Value -toJSON = Policy -> Value +.: Text +"entries")) + +instance HsJSONPB.ToJSON Policy where + toJSON :: Policy -> Value +toJSON = Policy -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: Policy -> Encoding -toEncoding = Policy -> Encoding +HsJSONPB.toAesonValue + toEncoding :: Policy -> Encoding +toEncoding = Policy -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON Policy where - parseJSON :: Value -> Parser Policy -parseJSON = Value -> Parser Policy +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON Policy where + parseJSON :: Value -> Parser Policy +parseJSON = Value -> Parser Policy forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema Policy where - declareNamedSchema :: Proxy Policy -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_name :: Proxy (OverrideToSchema Text) +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema Policy where + declareNamedSchema :: Proxy Policy -> Declare (Definitions Schema) NamedSchema +declareNamedSchema Proxy Policy +_ + = do let declare_name :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_name = Proxy (OverrideToSchema Text) +declare_name = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -policyName <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +policyName <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_name Proxy (OverrideToSchema Text) +declare_name Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_entries :: Proxy (OverrideToSchema (Vector Policy_Entry)) +Proxy.Proxy + let declare_entries :: Proxy (OverrideToSchema (Vector Policy_Entry)) -> Declare (Definitions Schema) (Referenced Schema) -declare_entries = Proxy (OverrideToSchema (Vector Policy_Entry)) +declare_entries = Proxy (OverrideToSchema (Vector Policy_Entry)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -policyEntries <- Proxy (OverrideToSchema (Vector Policy_Entry)) +HsJSONPB.declareSchemaRef + Referenced Schema +policyEntries <- Proxy (OverrideToSchema (Vector Policy_Entry)) -> Declare (Definitions Schema) (Referenced Schema) -declare_entries Proxy (OverrideToSchema (Vector Policy_Entry)) +declare_entries Proxy (OverrideToSchema (Vector Policy_Entry)) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy Policy +Proxy.Proxy + let Proxy Policy _ = (Text -> Vector Policy_Entry -> Policy) -> Proxy (Text -> Vector Policy_Entry -> Policy) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> Vector Policy_Entry -> Policy +Hs.pure Text -> Vector Policy_Entry -> Policy Policy Proxy (Text -> Vector Policy_Entry -> Policy) -> Proxy Text -> Proxy (Vector Policy_Entry -> Policy) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema Text) +<*> (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_name Proxy (Vector Policy_Entry -> Policy) +declare_name Proxy (Vector Policy_Entry -> Policy) -> Proxy (Vector Policy_Entry) -> Proxy Policy forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema (Vector Policy_Entry)) +<*> + (Proxy (OverrideToSchema (Vector Policy_Entry)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Vector Policy_Entry) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Policy_Entry)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Policy_Entry)) -> Declare (Definitions Schema) (Referenced Schema) -declare_entries - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_entries + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "Policy", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"Policy", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("name", Referenced Schema -policyName), - ("entries", Referenced Schema -policyEntries)]}}) - -data Policy_EntryType = Policy_EntryTypeENTRY_TYPE_UNSET - | Policy_EntryTypePERMIT_KEY - | Policy_EntryTypeDENY_KEY - deriving (Int -> Policy_EntryType -> ShowS +HsJSONPB.insOrdFromList + [(Text +"name", Referenced Schema +policyName), + (Text +"entries", Referenced Schema +policyEntries)]}}) + +data Policy_EntryType = Policy_EntryTypeENTRY_TYPE_UNSET + | Policy_EntryTypePERMIT_KEY + | Policy_EntryTypeDENY_KEY + deriving (Int -> Policy_EntryType -> ShowS [Policy_EntryType] -> ShowS Policy_EntryType -> String (Int -> Policy_EntryType -> ShowS) @@ -408,7 +432,7 @@ show :: Policy_EntryType -> String $cshow :: Policy_EntryType -> String showsPrec :: Int -> Policy_EntryType -> ShowS $cshowsPrec :: Int -> Policy_EntryType -> ShowS -Hs.Show, Policy_EntryType -> Policy_EntryType -> Bool +Hs.Show, Policy_EntryType -> Policy_EntryType -> Bool (Policy_EntryType -> Policy_EntryType -> Bool) -> (Policy_EntryType -> Policy_EntryType -> Bool) -> Eq Policy_EntryType @@ -417,7 +441,7 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: Policy_EntryType -> Policy_EntryType -> Bool == :: Policy_EntryType -> Policy_EntryType -> Bool $c== :: Policy_EntryType -> Policy_EntryType -> Bool -Hs.Eq, (forall x. Policy_EntryType -> Rep Policy_EntryType x) +Hs.Eq, (forall x. Policy_EntryType -> Rep Policy_EntryType x) -> (forall x. Rep Policy_EntryType x -> Policy_EntryType) -> Generic Policy_EntryType forall x. Rep Policy_EntryType x -> Policy_EntryType @@ -426,131 +450,146 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep Policy_EntryType x -> Policy_EntryType $cfrom :: forall x. Policy_EntryType -> Rep Policy_EntryType x -Hs.Generic, Policy_EntryType -> () +Hs.Generic, Policy_EntryType -> () (Policy_EntryType -> ()) -> NFData Policy_EntryType forall a. (a -> ()) -> NFData a rnf :: Policy_EntryType -> () $crnf :: Policy_EntryType -> () -Hs.NFData) - -instance HsProtobuf.Named Policy_EntryType where - nameOf :: Proxy# Policy_EntryType -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named Policy_EntryType where + nameOf :: Proxy# Policy_EntryType -> string +nameOf Proxy# Policy_EntryType +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "Policy_EntryType") - -instance HsProtobuf.HasDefault Policy_EntryType - -instance Hs.Bounded Policy_EntryType where - minBound :: Policy_EntryType -minBound = Policy_EntryType +Hs.fromString String +"Policy_EntryType") + +instance HsProtobuf.HasDefault Policy_EntryType + +instance Hs.Bounded Policy_EntryType where + minBound :: Policy_EntryType +minBound = Policy_EntryType Policy_EntryTypeENTRY_TYPE_UNSET - maxBound :: Policy_EntryType -maxBound = Policy_EntryType + maxBound :: Policy_EntryType +maxBound = Policy_EntryType Policy_EntryTypeDENY_KEY - -instance Hs.Ord Policy_EntryType where - compare :: Policy_EntryType -> Policy_EntryType -> Ordering -compare x :: Policy_EntryType -x y :: Policy_EntryType -y - = Int32 -> Int32 -> Ordering + +instance Hs.Ord Policy_EntryType where + compare :: Policy_EntryType -> Policy_EntryType -> Ordering +compare Policy_EntryType +x Policy_EntryType +y + = Int32 -> Int32 -> Ordering forall a. Ord a => a -> a -> Ordering -Hs.compare (Policy_EntryType -> Int32 +Hs.compare (Policy_EntryType -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum Policy_EntryType -x) - (Policy_EntryType -> Int32 +HsProtobuf.fromProtoEnum Policy_EntryType +x) + (Policy_EntryType -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum Policy_EntryType -y) - -instance HsProtobuf.ProtoEnum Policy_EntryType where - toProtoEnumMay :: Int32 -> Maybe Policy_EntryType -toProtoEnumMay 0 = Policy_EntryType -> Maybe Policy_EntryType +HsProtobuf.fromProtoEnum Policy_EntryType +y) + +instance HsProtobuf.ProtoEnum Policy_EntryType where + toProtoEnumMay :: Int32 -> Maybe Policy_EntryType +toProtoEnumMay Int32 +0 = Policy_EntryType -> Maybe Policy_EntryType forall a. a -> Maybe a -Hs.Just Policy_EntryType +Hs.Just Policy_EntryType Policy_EntryTypeENTRY_TYPE_UNSET - toProtoEnumMay 1 = Policy_EntryType -> Maybe Policy_EntryType + toProtoEnumMay Int32 +1 = Policy_EntryType -> Maybe Policy_EntryType forall a. a -> Maybe a -Hs.Just Policy_EntryType +Hs.Just Policy_EntryType Policy_EntryTypePERMIT_KEY - toProtoEnumMay 2 = Policy_EntryType -> Maybe Policy_EntryType + toProtoEnumMay Int32 +2 = Policy_EntryType -> Maybe Policy_EntryType forall a. a -> Maybe a -Hs.Just Policy_EntryType +Hs.Just Policy_EntryType Policy_EntryTypeDENY_KEY - toProtoEnumMay _ = Maybe Policy_EntryType + toProtoEnumMay Int32 +_ = Maybe Policy_EntryType forall a. Maybe a -Hs.Nothing - fromProtoEnum :: Policy_EntryType -> Int32 -fromProtoEnum (Policy_EntryType -Policy_EntryTypeENTRY_TYPE_UNSET) = 0 - fromProtoEnum (Policy_EntryType -Policy_EntryTypePERMIT_KEY) = 1 - fromProtoEnum (Policy_EntryType -Policy_EntryTypeDENY_KEY) = 2 - -instance HsJSONPB.ToJSONPB Policy_EntryType where - toJSONPB :: Policy_EntryType -> Options -> Value -toJSONPB x :: Policy_EntryType -x _ = Policy_EntryType -> Value +Hs.Nothing + fromProtoEnum :: Policy_EntryType -> Int32 +fromProtoEnum (Policy_EntryType +Policy_EntryTypeENTRY_TYPE_UNSET) = Int32 +0 + fromProtoEnum (Policy_EntryType +Policy_EntryTypePERMIT_KEY) = Int32 +1 + fromProtoEnum (Policy_EntryType +Policy_EntryTypeDENY_KEY) = Int32 +2 + +instance HsJSONPB.ToJSONPB Policy_EntryType where + toJSONPB :: Policy_EntryType -> Options -> Value +toJSONPB Policy_EntryType +x Options +_ = Policy_EntryType -> Value forall a. (Named a, Show a) => a -> Value -HsJSONPB.enumFieldString Policy_EntryType -x - toEncodingPB :: Policy_EntryType -> Options -> Encoding -toEncodingPB x :: Policy_EntryType -x _ = Policy_EntryType -> Encoding +HsJSONPB.enumFieldString Policy_EntryType +x + toEncodingPB :: Policy_EntryType -> Options -> Encoding +toEncodingPB Policy_EntryType +x Options +_ = Policy_EntryType -> Encoding forall a. (Named a, Show a) => a -> Encoding -HsJSONPB.enumFieldEncoding Policy_EntryType -x - -instance HsJSONPB.FromJSONPB Policy_EntryType where - parseJSONPB :: Value -> Parser Policy_EntryType -parseJSONPB (HsJSONPB.String "ENTRY_TYPE_UNSET") - = Policy_EntryType -> Parser Policy_EntryType +HsJSONPB.enumFieldEncoding Policy_EntryType +x + +instance HsJSONPB.FromJSONPB Policy_EntryType where + parseJSONPB :: Value -> Parser Policy_EntryType +parseJSONPB (HsJSONPB.String Text +"ENTRY_TYPE_UNSET") + = Policy_EntryType -> Parser Policy_EntryType forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Policy_EntryType +Hs.pure Policy_EntryType Policy_EntryTypeENTRY_TYPE_UNSET - parseJSONPB (HsJSONPB.String "PERMIT_KEY") - = Policy_EntryType -> Parser Policy_EntryType + parseJSONPB (HsJSONPB.String Text +"PERMIT_KEY") + = Policy_EntryType -> Parser Policy_EntryType forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Policy_EntryType +Hs.pure Policy_EntryType Policy_EntryTypePERMIT_KEY - parseJSONPB (HsJSONPB.String "DENY_KEY") - = Policy_EntryType -> Parser Policy_EntryType + parseJSONPB (HsJSONPB.String Text +"DENY_KEY") + = Policy_EntryType -> Parser Policy_EntryType forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Policy_EntryType +Hs.pure Policy_EntryType Policy_EntryTypeDENY_KEY - parseJSONPB v :: Value -v = (String -> Value -> Parser Policy_EntryType + parseJSONPB Value +v = (String -> Value -> Parser Policy_EntryType forall a. String -> Value -> Parser a -HsJSONPB.typeMismatch "Policy_EntryType" Value -v) - -instance HsJSONPB.ToJSON Policy_EntryType where - toJSON :: Policy_EntryType -> Value -toJSON = Policy_EntryType -> Value +HsJSONPB.typeMismatch String +"Policy_EntryType" Value +v) + +instance HsJSONPB.ToJSON Policy_EntryType where + toJSON :: Policy_EntryType -> Value +toJSON = Policy_EntryType -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: Policy_EntryType -> Encoding -toEncoding = Policy_EntryType -> Encoding +HsJSONPB.toAesonValue + toEncoding :: Policy_EntryType -> Encoding +toEncoding = Policy_EntryType -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON Policy_EntryType where - parseJSON :: Value -> Parser Policy_EntryType -parseJSON = Value -> Parser Policy_EntryType +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON Policy_EntryType where + parseJSON :: Value -> Parser Policy_EntryType +parseJSON = Value -> Parser Policy_EntryType forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsProtobuf.Finite Policy_EntryType - -data Policy_Entry = Policy_Entry{Policy_Entry -> Enumerated Policy_EntryType +HsJSONPB.parseJSONPB + +instance HsProtobuf.Finite Policy_EntryType + +data Policy_Entry = Policy_Entry{Policy_Entry -> Enumerated Policy_EntryType policy_EntryType :: - HsProtobuf.Enumerated Data.Sawtooth.Identity.Policy_EntryType, - Policy_Entry -> Text -policy_EntryKey :: Hs.Text} - deriving (Int -> Policy_Entry -> ShowS + HsProtobuf.Enumerated Data.Sawtooth.Identity.Policy_EntryType, + Policy_Entry -> Text +policy_EntryKey :: Hs.Text} + deriving (Int -> Policy_Entry -> ShowS [Policy_Entry] -> ShowS Policy_Entry -> String (Int -> Policy_Entry -> ShowS) @@ -565,7 +604,7 @@ show :: Policy_Entry -> String $cshow :: Policy_Entry -> String showsPrec :: Int -> Policy_Entry -> ShowS $cshowsPrec :: Int -> Policy_Entry -> ShowS -Hs.Show, Policy_Entry -> Policy_Entry -> Bool +Hs.Show, Policy_Entry -> Policy_Entry -> Bool (Policy_Entry -> Policy_Entry -> Bool) -> (Policy_Entry -> Policy_Entry -> Bool) -> Eq Policy_Entry forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a @@ -573,9 +612,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: Policy_Entry -> Policy_Entry -> Bool == :: Policy_Entry -> Policy_Entry -> Bool $c== :: Policy_Entry -> Policy_Entry -> Bool -Hs.Eq, Eq Policy_Entry -Eq Policy_Entry => -(Policy_Entry -> Policy_Entry -> Ordering) +Hs.Eq, Eq Policy_Entry +Eq Policy_Entry +-> (Policy_Entry -> Policy_Entry -> Ordering) -> (Policy_Entry -> Policy_Entry -> Bool) -> (Policy_Entry -> Policy_Entry -> Bool) -> (Policy_Entry -> Policy_Entry -> Bool) @@ -587,8 +626,8 @@ Policy_Entry -> Policy_Entry -> Bool Policy_Entry -> Policy_Entry -> Ordering Policy_Entry -> Policy_Entry -> Policy_Entry forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -611,7 +650,7 @@ $c< :: Policy_Entry -> Policy_Entry -> Bool compare :: Policy_Entry -> Policy_Entry -> Ordering $ccompare :: Policy_Entry -> Policy_Entry -> Ordering $cp1Ord :: Eq Policy_Entry -Hs.Ord, (forall x. Policy_Entry -> Rep Policy_Entry x) +Hs.Ord, (forall x. Policy_Entry -> Rep Policy_Entry x) -> (forall x. Rep Policy_Entry x -> Policy_Entry) -> Generic Policy_Entry forall x. Rep Policy_Entry x -> Policy_Entry @@ -620,288 +659,315 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep Policy_Entry x -> Policy_Entry $cfrom :: forall x. Policy_Entry -> Rep Policy_Entry x -Hs.Generic, Policy_Entry -> () +Hs.Generic, Policy_Entry -> () (Policy_Entry -> ()) -> NFData Policy_Entry forall a. (a -> ()) -> NFData a rnf :: Policy_Entry -> () $crnf :: Policy_Entry -> () -Hs.NFData) - -instance HsProtobuf.Named Policy_Entry where - nameOf :: Proxy# Policy_Entry -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named Policy_Entry where + nameOf :: Proxy# Policy_Entry -> string +nameOf Proxy# Policy_Entry +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "Policy_Entry") - -instance HsProtobuf.HasDefault Policy_Entry - -instance HsProtobuf.Message Policy_Entry where - encodeMessage :: FieldNumber -> Policy_Entry -> MessageBuilder -encodeMessage _ - Policy_Entry{policy_EntryType :: Policy_Entry -> Enumerated Policy_EntryType -policy_EntryType = Enumerated Policy_EntryType -policy_EntryType, - policy_EntryKey :: Policy_Entry -> Text -policy_EntryKey = Text -policy_EntryKey} - = ([MessageBuilder] -> MessageBuilder +Hs.fromString String +"Policy_Entry") + +instance HsProtobuf.HasDefault Policy_Entry + +instance HsProtobuf.Message Policy_Entry where + encodeMessage :: FieldNumber -> Policy_Entry -> MessageBuilder +encodeMessage FieldNumber +_ + Policy_Entry{policy_EntryType :: Policy_Entry -> Enumerated Policy_EntryType +policy_EntryType = Enumerated Policy_EntryType +policy_EntryType, + policy_EntryKey :: Policy_Entry -> Text +policy_EntryKey = Text +policy_EntryKey} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> Enumerated Policy_EntryType -> MessageBuilder +Hs.mconcat + [(FieldNumber -> Enumerated Policy_EntryType -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Enumerated Policy_EntryType -policy_EntryType), - (FieldNumber -> Text -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Enumerated Policy_EntryType +policy_EntryType), + (FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - Text -policy_EntryKey)]) - decodeMessage :: FieldNumber -> Parser RawMessage Policy_Entry -decodeMessage _ - = ((Enumerated Policy_EntryType -> Text -> Policy_Entry) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + Text +policy_EntryKey)]) + decodeMessage :: FieldNumber -> Parser RawMessage Policy_Entry +decodeMessage FieldNumber +_ + = ((Enumerated Policy_EntryType -> Text -> Policy_Entry) -> Parser RawMessage (Enumerated Policy_EntryType -> Text -> Policy_Entry) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated Policy_EntryType -> Text -> Policy_Entry +Hs.pure Enumerated Policy_EntryType -> Text -> Policy_Entry Policy_Entry) Parser RawMessage (Enumerated Policy_EntryType -> Text -> Policy_Entry) -> Parser RawMessage (Enumerated Policy_EntryType) -> Parser RawMessage (Text -> Policy_Entry) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField (Enumerated Policy_EntryType) +<*> + (Parser RawField (Enumerated Policy_EntryType) -> FieldNumber -> Parser RawMessage (Enumerated Policy_EntryType) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (Enumerated Policy_EntryType) +HsProtobuf.at Parser RawField (Enumerated Policy_EntryType) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser RawMessage (Text -> Policy_Entry) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (Text -> Policy_Entry) -> Parser RawMessage Text -> Parser RawMessage Policy_Entry forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2)) - dotProto :: Proxy# Policy_Entry -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2)) + dotProto :: Proxy# Policy_Entry -> [DotProtoField] +dotProto Proxy# Policy_Entry +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim - (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "EntryType"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "type") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim + (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"EntryType"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"type") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "key") - [] - "")] - -instance HsJSONPB.ToJSONPB Policy_Entry where - toJSONPB :: Policy_Entry -> Options -> Value -toJSONPB (Policy_Entry f1 :: Enumerated Policy_EntryType -f1 f2 :: Text -f2) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["type" Text -> Enumerated Policy_EntryType -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"key") + [] + String +"")] + +instance HsJSONPB.ToJSONPB Policy_Entry where + toJSONPB :: Policy_Entry -> Options -> Value +toJSONPB (Policy_Entry Enumerated Policy_EntryType +f1 Text +f2) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"type" Text -> Enumerated Policy_EntryType -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated Policy_EntryType -f1, "key" Text -> Text -> Options -> [Pair] +.= Enumerated Policy_EntryType +f1, Text +"key" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f2]) - toEncodingPB :: Policy_Entry -> Options -> Encoding -toEncodingPB (Policy_Entry f1 :: Enumerated Policy_EntryType -f1 f2 :: Text -f2) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["type" Text -> Enumerated Policy_EntryType -> Options -> Series +.= Text +f2]) + toEncodingPB :: Policy_Entry -> Options -> Encoding +toEncodingPB (Policy_Entry Enumerated Policy_EntryType +f1 Text +f2) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"type" Text -> Enumerated Policy_EntryType -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated Policy_EntryType -f1, "key" Text -> Text -> Options -> Series +.= Enumerated Policy_EntryType +f1, Text +"key" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f2]) - -instance HsJSONPB.FromJSONPB Policy_Entry where - parseJSONPB :: Value -> Parser Policy_Entry -parseJSONPB - = (String +.= Text +f2]) + +instance HsJSONPB.FromJSONPB Policy_Entry where + parseJSONPB :: Value -> Parser Policy_Entry +parseJSONPB + = (String -> (Object -> Parser Policy_Entry) -> Value -> Parser Policy_Entry forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "Policy_Entry" - (\ obj :: Object -obj -> - ((Enumerated Policy_EntryType -> Text -> Policy_Entry) +HsJSONPB.withObject String +"Policy_Entry" + (\ Object +obj -> + ((Enumerated Policy_EntryType -> Text -> Policy_Entry) -> Parser (Enumerated Policy_EntryType -> Text -> Policy_Entry) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated Policy_EntryType -> Text -> Policy_Entry +Hs.pure Enumerated Policy_EntryType -> Text -> Policy_Entry Policy_Entry) Parser (Enumerated Policy_EntryType -> Text -> Policy_Entry) -> Parser (Enumerated Policy_EntryType) -> Parser (Text -> Policy_Entry) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser (Enumerated Policy_EntryType) +<*> Object +obj Object -> Text -> Parser (Enumerated Policy_EntryType) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "type" Parser (Text -> Policy_Entry) -> Parser Text -> Parser Policy_Entry +.: Text +"type" Parser (Text -> Policy_Entry) -> Parser Text -> Parser Policy_Entry forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Text +<*> Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "key")) - -instance HsJSONPB.ToJSON Policy_Entry where - toJSON :: Policy_Entry -> Value -toJSON = Policy_Entry -> Value +.: Text +"key")) + +instance HsJSONPB.ToJSON Policy_Entry where + toJSON :: Policy_Entry -> Value +toJSON = Policy_Entry -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: Policy_Entry -> Encoding -toEncoding = Policy_Entry -> Encoding +HsJSONPB.toAesonValue + toEncoding :: Policy_Entry -> Encoding +toEncoding = Policy_Entry -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON Policy_Entry where - parseJSON :: Value -> Parser Policy_Entry -parseJSON = Value -> Parser Policy_Entry +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON Policy_Entry where + parseJSON :: Value -> Parser Policy_Entry +parseJSON = Value -> Parser Policy_Entry forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema Policy_Entry where - declareNamedSchema :: Proxy Policy_Entry -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_type :: Proxy (OverrideToSchema (Enumerated Policy_EntryType)) +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema Policy_Entry where + declareNamedSchema :: Proxy Policy_Entry -> Declare (Definitions Schema) NamedSchema +declareNamedSchema Proxy Policy_Entry +_ + = do let declare_type :: Proxy (OverrideToSchema (Enumerated Policy_EntryType)) -> Declare (Definitions Schema) (Referenced Schema) -declare_type = Proxy (OverrideToSchema (Enumerated Policy_EntryType)) +declare_type = Proxy (OverrideToSchema (Enumerated Policy_EntryType)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -policy_EntryType <- Proxy (OverrideToSchema (Enumerated Policy_EntryType)) +HsJSONPB.declareSchemaRef + Referenced Schema +policy_EntryType <- Proxy (OverrideToSchema (Enumerated Policy_EntryType)) -> Declare (Definitions Schema) (Referenced Schema) -declare_type Proxy (OverrideToSchema (Enumerated Policy_EntryType)) +declare_type Proxy (OverrideToSchema (Enumerated Policy_EntryType)) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_key :: Proxy (OverrideToSchema Text) +Proxy.Proxy + let declare_key :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_key = Proxy (OverrideToSchema Text) +declare_key = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -policy_EntryKey <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +policy_EntryKey <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_key Proxy (OverrideToSchema Text) +declare_key Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy Policy_Entry +Proxy.Proxy + let Proxy Policy_Entry _ = (Enumerated Policy_EntryType -> Text -> Policy_Entry) -> Proxy (Enumerated Policy_EntryType -> Text -> Policy_Entry) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated Policy_EntryType -> Text -> Policy_Entry +Hs.pure Enumerated Policy_EntryType -> Text -> Policy_Entry Policy_Entry Proxy (Enumerated Policy_EntryType -> Text -> Policy_Entry) -> Proxy (Enumerated Policy_EntryType) -> Proxy (Text -> Policy_Entry) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema (Enumerated Policy_EntryType)) +<*> (Proxy (OverrideToSchema (Enumerated Policy_EntryType)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Enumerated Policy_EntryType) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Enumerated Policy_EntryType)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Enumerated Policy_EntryType)) -> Declare (Definitions Schema) (Referenced Schema) -declare_type Proxy (Text -> Policy_Entry) -> Proxy Text -> Proxy Policy_Entry +declare_type Proxy (Text -> Policy_Entry) -> Proxy Text -> Proxy Policy_Entry forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema Text) +<*> + (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_key - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_key + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "Policy_Entry", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"Policy_Entry", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("type", Referenced Schema -policy_EntryType), - ("key", Referenced Schema -policy_EntryKey)]}}) - -newtype PolicyList = PolicyList{PolicyList -> Vector Policy +HsJSONPB.insOrdFromList + [(Text +"type", Referenced Schema +policy_EntryType), + (Text +"key", Referenced Schema +policy_EntryKey)]}}) + +newtype PolicyList = PolicyList{PolicyList -> Vector Policy policyListPolicies :: - Hs.Vector Data.Sawtooth.Identity.Policy} - deriving (Int -> PolicyList -> ShowS + Hs.Vector Data.Sawtooth.Identity.Policy} + deriving (Int -> PolicyList -> ShowS [PolicyList] -> ShowS PolicyList -> String (Int -> PolicyList -> ShowS) @@ -916,7 +982,7 @@ show :: PolicyList -> String $cshow :: PolicyList -> String showsPrec :: Int -> PolicyList -> ShowS $cshowsPrec :: Int -> PolicyList -> ShowS -Hs.Show, PolicyList -> PolicyList -> Bool +Hs.Show, PolicyList -> PolicyList -> Bool (PolicyList -> PolicyList -> Bool) -> (PolicyList -> PolicyList -> Bool) -> Eq PolicyList forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a @@ -924,9 +990,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: PolicyList -> PolicyList -> Bool == :: PolicyList -> PolicyList -> Bool $c== :: PolicyList -> PolicyList -> Bool -Hs.Eq, Eq PolicyList -Eq PolicyList => -(PolicyList -> PolicyList -> Ordering) +Hs.Eq, Eq PolicyList +Eq PolicyList +-> (PolicyList -> PolicyList -> Ordering) -> (PolicyList -> PolicyList -> Bool) -> (PolicyList -> PolicyList -> Bool) -> (PolicyList -> PolicyList -> Bool) @@ -938,8 +1004,8 @@ PolicyList -> PolicyList -> Bool PolicyList -> PolicyList -> Ordering PolicyList -> PolicyList -> PolicyList forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -962,7 +1028,7 @@ $c< :: PolicyList -> PolicyList -> Bool compare :: PolicyList -> PolicyList -> Ordering $ccompare :: PolicyList -> PolicyList -> Ordering $cp1Ord :: Eq PolicyList -Hs.Ord, (forall x. PolicyList -> Rep PolicyList x) +Hs.Ord, (forall x. PolicyList -> Rep PolicyList x) -> (forall x. Rep PolicyList x -> PolicyList) -> Generic PolicyList forall x. Rep PolicyList x -> PolicyList forall x. PolicyList -> Rep PolicyList x @@ -970,211 +1036,227 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep PolicyList x -> PolicyList $cfrom :: forall x. PolicyList -> Rep PolicyList x -Hs.Generic, PolicyList -> () +Hs.Generic, PolicyList -> () (PolicyList -> ()) -> NFData PolicyList forall a. (a -> ()) -> NFData a rnf :: PolicyList -> () $crnf :: PolicyList -> () -Hs.NFData) - -instance HsProtobuf.Named PolicyList where - nameOf :: Proxy# PolicyList -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named PolicyList where + nameOf :: Proxy# PolicyList -> string +nameOf Proxy# PolicyList +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "PolicyList") - -instance HsProtobuf.HasDefault PolicyList - -instance HsProtobuf.Message PolicyList where - encodeMessage :: FieldNumber -> PolicyList -> MessageBuilder -encodeMessage _ PolicyList{policyListPolicies :: PolicyList -> Vector Policy -policyListPolicies = Vector Policy -policyListPolicies} - = ([MessageBuilder] -> MessageBuilder +Hs.fromString String +"PolicyList") + +instance HsProtobuf.HasDefault PolicyList + +instance HsProtobuf.Message PolicyList where + encodeMessage :: FieldNumber -> PolicyList -> MessageBuilder +encodeMessage FieldNumber +_ PolicyList{policyListPolicies :: PolicyList -> Vector Policy +policyListPolicies = Vector Policy +policyListPolicies} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> NestedVec Policy -> MessageBuilder +Hs.mconcat + [(FieldNumber -> NestedVec Policy -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (Vector Policy -> NestedVec Policy -forall a b. Coercible a b => a -> b -Hs.coerce @(Hs.Vector Data.Sawtooth.Identity.Policy) - @(HsProtobuf.NestedVec Data.Sawtooth.Identity.Policy) - Vector Policy -policyListPolicies))]) - decodeMessage :: FieldNumber -> Parser RawMessage PolicyList -decodeMessage _ - = ((Vector Policy -> PolicyList) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (Vector Policy -> NestedVec Policy +Hs.coerce @(Hs.Vector Data.Sawtooth.Identity.Policy) + @(HsProtobuf.NestedVec Data.Sawtooth.Identity.Policy) + Vector Policy +policyListPolicies))]) + decodeMessage :: FieldNumber -> Parser RawMessage PolicyList +decodeMessage FieldNumber +_ + = ((Vector Policy -> PolicyList) -> Parser RawMessage (Vector Policy -> PolicyList) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector Policy -> PolicyList +Hs.pure Vector Policy -> PolicyList PolicyList) Parser RawMessage (Vector Policy -> PolicyList) -> Parser RawMessage (Vector Policy) -> Parser RawMessage PolicyList forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (NestedVec Policy) +<*> + (Parser RawMessage (NestedVec Policy) -> Parser RawMessage (Vector Policy) -forall a b. Coercible a b => a -> b -Hs.coerce - @(_ (HsProtobuf.NestedVec Data.Sawtooth.Identity.Policy)) - @(_ (Hs.Vector Data.Sawtooth.Identity.Policy)) - (Parser RawField (NestedVec Policy) +Hs.coerce + @(_ (HsProtobuf.NestedVec Data.Sawtooth.Identity.Policy)) + @(_ (Hs.Vector Data.Sawtooth.Identity.Policy)) + (Parser RawField (NestedVec Policy) -> FieldNumber -> Parser RawMessage (NestedVec Policy) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (NestedVec Policy) +HsProtobuf.at Parser RawField (NestedVec Policy) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1))) - dotProto :: Proxy# PolicyList -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1))) + dotProto :: Proxy# PolicyList -> [DotProtoField] +dotProto Proxy# PolicyList +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Repeated - (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "Policy"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "policies") - [] - "")] - -instance HsJSONPB.ToJSONPB PolicyList where - toJSONPB :: PolicyList -> Options -> Value -toJSONPB (PolicyList f1 :: Vector Policy -f1) = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["policies" Text -> Vector Policy -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Repeated + (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"Policy"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"policies") + [] + String +"")] + +instance HsJSONPB.ToJSONPB PolicyList where + toJSONPB :: PolicyList -> Options -> Value +toJSONPB (PolicyList Vector Policy +f1) = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"policies" Text -> Vector Policy -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Policy -f1]) - toEncodingPB :: PolicyList -> Options -> Encoding -toEncodingPB (PolicyList f1 :: Vector Policy -f1) = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["policies" Text -> Vector Policy -> Options -> Series +.= Vector Policy +f1]) + toEncodingPB :: PolicyList -> Options -> Encoding +toEncodingPB (PolicyList Vector Policy +f1) = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"policies" Text -> Vector Policy -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Policy -f1]) - -instance HsJSONPB.FromJSONPB PolicyList where - parseJSONPB :: Value -> Parser PolicyList -parseJSONPB - = (String +.= Vector Policy +f1]) + +instance HsJSONPB.FromJSONPB PolicyList where + parseJSONPB :: Value -> Parser PolicyList +parseJSONPB + = (String -> (Object -> Parser PolicyList) -> Value -> Parser PolicyList forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "PolicyList" - (\ obj :: Object -obj -> ((Vector Policy -> PolicyList) +HsJSONPB.withObject String +"PolicyList" + (\ Object +obj -> ((Vector Policy -> PolicyList) -> Parser (Vector Policy -> PolicyList) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector Policy -> PolicyList +Hs.pure Vector Policy -> PolicyList PolicyList) Parser (Vector Policy -> PolicyList) -> Parser (Vector Policy) -> Parser PolicyList forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser (Vector Policy) +<*> Object +obj Object -> Text -> Parser (Vector Policy) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "policies")) - -instance HsJSONPB.ToJSON PolicyList where - toJSON :: PolicyList -> Value -toJSON = PolicyList -> Value +.: Text +"policies")) + +instance HsJSONPB.ToJSON PolicyList where + toJSON :: PolicyList -> Value +toJSON = PolicyList -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: PolicyList -> Encoding -toEncoding = PolicyList -> Encoding +HsJSONPB.toAesonValue + toEncoding :: PolicyList -> Encoding +toEncoding = PolicyList -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON PolicyList where - parseJSON :: Value -> Parser PolicyList -parseJSON = Value -> Parser PolicyList +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON PolicyList where + parseJSON :: Value -> Parser PolicyList +parseJSON = Value -> Parser PolicyList forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema PolicyList where - declareNamedSchema :: Proxy PolicyList -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_policies :: Proxy (OverrideToSchema (Vector Policy)) +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema PolicyList where + declareNamedSchema :: Proxy PolicyList -> Declare (Definitions Schema) NamedSchema +declareNamedSchema Proxy PolicyList +_ + = do let declare_policies :: Proxy (OverrideToSchema (Vector Policy)) -> Declare (Definitions Schema) (Referenced Schema) -declare_policies = Proxy (OverrideToSchema (Vector Policy)) +declare_policies = Proxy (OverrideToSchema (Vector Policy)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -policyListPolicies <- Proxy (OverrideToSchema (Vector Policy)) +HsJSONPB.declareSchemaRef + Referenced Schema +policyListPolicies <- Proxy (OverrideToSchema (Vector Policy)) -> Declare (Definitions Schema) (Referenced Schema) -declare_policies Proxy (OverrideToSchema (Vector Policy)) +declare_policies Proxy (OverrideToSchema (Vector Policy)) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy PolicyList +Proxy.Proxy + let Proxy PolicyList _ = (Vector Policy -> PolicyList) -> Proxy (Vector Policy -> PolicyList) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector Policy -> PolicyList +Hs.pure Vector Policy -> PolicyList PolicyList Proxy (Vector Policy -> PolicyList) -> Proxy (Vector Policy) -> Proxy PolicyList forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema (Vector Policy)) +<*> (Proxy (OverrideToSchema (Vector Policy)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Vector Policy) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Policy)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Policy)) -> Declare (Definitions Schema) (Referenced Schema) -declare_policies - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_policies + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "PolicyList", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"PolicyList", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("policies", Referenced Schema -policyListPolicies)]}}) - -data Role = Role{Role -> Text -roleName :: Hs.Text, Role -> Text -rolePolicyName :: Hs.Text} - deriving (Int -> Role -> ShowS +HsJSONPB.insOrdFromList + [(Text +"policies", Referenced Schema +policyListPolicies)]}}) + +data Role = Role{Role -> Text +roleName :: Hs.Text, Role -> Text +rolePolicyName :: Hs.Text} + deriving (Int -> Role -> ShowS [Role] -> ShowS Role -> String (Int -> Role -> ShowS) @@ -1187,16 +1269,16 @@ show :: Role -> String $cshow :: Role -> String showsPrec :: Int -> Role -> ShowS $cshowsPrec :: Int -> Role -> ShowS -Hs.Show, Role -> Role -> Bool +Hs.Show, Role -> Role -> Bool (Role -> Role -> Bool) -> (Role -> Role -> Bool) -> Eq Role forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a /= :: Role -> Role -> Bool $c/= :: Role -> Role -> Bool == :: Role -> Role -> Bool $c== :: Role -> Role -> Bool -Hs.Eq, Eq Role -Eq Role => -(Role -> Role -> Ordering) +Hs.Eq, Eq Role +Eq Role +-> (Role -> Role -> Ordering) -> (Role -> Role -> Bool) -> (Role -> Role -> Bool) -> (Role -> Role -> Bool) @@ -1208,8 +1290,8 @@ Role -> Role -> Bool Role -> Role -> Ordering Role -> Role -> Role forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -1232,7 +1314,7 @@ $c< :: Role -> Role -> Bool compare :: Role -> Role -> Ordering $ccompare :: Role -> Role -> Ordering $cp1Ord :: Eq Role -Hs.Ord, (forall x. Role -> Rep Role x) +Hs.Ord, (forall x. Role -> Rep Role x) -> (forall x. Rep Role x -> Role) -> Generic Role forall x. Rep Role x -> Role forall x. Role -> Rep Role x @@ -1240,273 +1322,299 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep Role x -> Role $cfrom :: forall x. Role -> Rep Role x -Hs.Generic, Role -> () +Hs.Generic, Role -> () (Role -> ()) -> NFData Role forall a. (a -> ()) -> NFData a rnf :: Role -> () $crnf :: Role -> () -Hs.NFData) - -instance HsProtobuf.Named Role where - nameOf :: Proxy# Role -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named Role where + nameOf :: Proxy# Role -> string +nameOf Proxy# Role +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "Role") - -instance HsProtobuf.HasDefault Role - -instance HsProtobuf.Message Role where - encodeMessage :: FieldNumber -> Role -> MessageBuilder -encodeMessage _ - Role{roleName :: Role -> Text -roleName = Text -roleName, rolePolicyName :: Role -> Text -rolePolicyName = Text -rolePolicyName} - = ([MessageBuilder] -> MessageBuilder +Hs.fromString String +"Role") + +instance HsProtobuf.HasDefault Role + +instance HsProtobuf.Message Role where + encodeMessage :: FieldNumber -> Role -> MessageBuilder +encodeMessage FieldNumber +_ + Role{roleName :: Role -> Text +roleName = Text +roleName, rolePolicyName :: Role -> Text +rolePolicyName = Text +rolePolicyName} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> Text -> MessageBuilder +Hs.mconcat + [(FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Text -roleName), - (FieldNumber -> Text -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Text +roleName), + (FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - Text -rolePolicyName)]) - decodeMessage :: FieldNumber -> Parser RawMessage Role -decodeMessage _ - = ((Text -> Text -> Role) -> Parser RawMessage (Text -> Text -> Role) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + Text +rolePolicyName)]) + decodeMessage :: FieldNumber -> Parser RawMessage Role +decodeMessage FieldNumber +_ + = ((Text -> Text -> Role) -> Parser RawMessage (Text -> Text -> Role) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> Text -> Role +Hs.pure Text -> Text -> Role Role) Parser RawMessage (Text -> Text -> Role) -> Parser RawMessage Text -> Parser RawMessage (Text -> Role) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser RawMessage (Text -> Role) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (Text -> Role) -> Parser RawMessage Text -> Parser RawMessage Role forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2)) - dotProto :: Proxy# Role -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2)) + dotProto :: Proxy# Role -> [DotProtoField] +dotProto Proxy# Role +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "name") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"name") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "policy_name") - [] - "")] - -instance HsJSONPB.ToJSONPB Role where - toJSONPB :: Role -> Options -> Value -toJSONPB (Role f1 :: Text -f1 f2 :: Text -f2) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["name" Text -> Text -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"policy_name") + [] + String +"")] + +instance HsJSONPB.ToJSONPB Role where + toJSONPB :: Role -> Options -> Value +toJSONPB (Role Text +f1 Text +f2) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"name" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1, "policy_name" Text -> Text -> Options -> [Pair] +.= Text +f1, Text +"policy_name" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f2]) - toEncodingPB :: Role -> Options -> Encoding -toEncodingPB (Role f1 :: Text -f1 f2 :: Text -f2) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["name" Text -> Text -> Options -> Series +.= Text +f2]) + toEncodingPB :: Role -> Options -> Encoding +toEncodingPB (Role Text +f1 Text +f2) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"name" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1, "policy_name" Text -> Text -> Options -> Series +.= Text +f1, Text +"policy_name" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f2]) - -instance HsJSONPB.FromJSONPB Role where - parseJSONPB :: Value -> Parser Role -parseJSONPB - = (String -> (Object -> Parser Role) -> Value -> Parser Role +.= Text +f2]) + +instance HsJSONPB.FromJSONPB Role where + parseJSONPB :: Value -> Parser Role +parseJSONPB + = (String -> (Object -> Parser Role) -> Value -> Parser Role forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "Role" - (\ obj :: Object -obj -> - ((Text -> Text -> Role) -> Parser (Text -> Text -> Role) +HsJSONPB.withObject String +"Role" + (\ Object +obj -> + ((Text -> Text -> Role) -> Parser (Text -> Text -> Role) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> Text -> Role +Hs.pure Text -> Text -> Role Role) Parser (Text -> Text -> Role) -> Parser Text -> Parser (Text -> Role) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Text +<*> Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "name" Parser (Text -> Role) -> Parser Text -> Parser Role +.: Text +"name" Parser (Text -> Role) -> Parser Text -> Parser Role forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Text +<*> Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "policy_name")) - -instance HsJSONPB.ToJSON Role where - toJSON :: Role -> Value -toJSON = Role -> Value +.: Text +"policy_name")) + +instance HsJSONPB.ToJSON Role where + toJSON :: Role -> Value +toJSON = Role -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: Role -> Encoding -toEncoding = Role -> Encoding +HsJSONPB.toAesonValue + toEncoding :: Role -> Encoding +toEncoding = Role -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON Role where - parseJSON :: Value -> Parser Role -parseJSON = Value -> Parser Role +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON Role where + parseJSON :: Value -> Parser Role +parseJSON = Value -> Parser Role forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema Role where - declareNamedSchema :: Proxy Role -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_name :: Proxy (OverrideToSchema Text) +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema Role where + declareNamedSchema :: Proxy Role -> Declare (Definitions Schema) NamedSchema +declareNamedSchema Proxy Role +_ + = do let declare_name :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_name = Proxy (OverrideToSchema Text) +declare_name = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -roleName <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +roleName <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_name Proxy (OverrideToSchema Text) +declare_name Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_policy_name :: Proxy (OverrideToSchema Text) +Proxy.Proxy + let declare_policy_name :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_policy_name = Proxy (OverrideToSchema Text) +declare_policy_name = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -rolePolicyName <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +rolePolicyName <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_policy_name Proxy (OverrideToSchema Text) +declare_policy_name Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy Role +Proxy.Proxy + let Proxy Role _ = (Text -> Text -> Role) -> Proxy (Text -> Text -> Role) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> Text -> Role +Hs.pure Text -> Text -> Role Role Proxy (Text -> Text -> Role) -> Proxy Text -> Proxy (Text -> Role) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema Text) +<*> (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_name Proxy (Text -> Role) -> Proxy Text -> Proxy Role +declare_name Proxy (Text -> Role) -> Proxy Text -> Proxy Role forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema Text) +<*> + (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_policy_name - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_policy_name + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "Role", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"Role", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("name", Referenced Schema -roleName), - ("policy_name", Referenced Schema -rolePolicyName)]}}) - -newtype RoleList = RoleList{RoleList -> Vector Role +HsJSONPB.insOrdFromList + [(Text +"name", Referenced Schema +roleName), + (Text +"policy_name", Referenced Schema +rolePolicyName)]}}) + +newtype RoleList = RoleList{RoleList -> Vector Role roleListRoles :: - Hs.Vector Data.Sawtooth.Identity.Role} - deriving (Int -> RoleList -> ShowS + Hs.Vector Data.Sawtooth.Identity.Role} + deriving (Int -> RoleList -> ShowS [RoleList] -> ShowS RoleList -> String (Int -> RoleList -> ShowS) @@ -1519,7 +1627,7 @@ show :: RoleList -> String $cshow :: RoleList -> String showsPrec :: Int -> RoleList -> ShowS $cshowsPrec :: Int -> RoleList -> ShowS -Hs.Show, RoleList -> RoleList -> Bool +Hs.Show, RoleList -> RoleList -> Bool (RoleList -> RoleList -> Bool) -> (RoleList -> RoleList -> Bool) -> Eq RoleList forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a @@ -1527,9 +1635,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: RoleList -> RoleList -> Bool == :: RoleList -> RoleList -> Bool $c== :: RoleList -> RoleList -> Bool -Hs.Eq, Eq RoleList -Eq RoleList => -(RoleList -> RoleList -> Ordering) +Hs.Eq, Eq RoleList +Eq RoleList +-> (RoleList -> RoleList -> Ordering) -> (RoleList -> RoleList -> Bool) -> (RoleList -> RoleList -> Bool) -> (RoleList -> RoleList -> Bool) @@ -1541,8 +1649,8 @@ RoleList -> RoleList -> Bool RoleList -> RoleList -> Ordering RoleList -> RoleList -> RoleList forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -1565,7 +1673,7 @@ $c< :: RoleList -> RoleList -> Bool compare :: RoleList -> RoleList -> Ordering $ccompare :: RoleList -> RoleList -> Ordering $cp1Ord :: Eq RoleList -Hs.Ord, (forall x. RoleList -> Rep RoleList x) +Hs.Ord, (forall x. RoleList -> Rep RoleList x) -> (forall x. Rep RoleList x -> RoleList) -> Generic RoleList forall x. Rep RoleList x -> RoleList forall x. RoleList -> Rep RoleList x @@ -1573,197 +1681,213 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep RoleList x -> RoleList $cfrom :: forall x. RoleList -> Rep RoleList x -Hs.Generic, RoleList -> () +Hs.Generic, RoleList -> () (RoleList -> ()) -> NFData RoleList forall a. (a -> ()) -> NFData a rnf :: RoleList -> () $crnf :: RoleList -> () -Hs.NFData) - -instance HsProtobuf.Named RoleList where - nameOf :: Proxy# RoleList -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named RoleList where + nameOf :: Proxy# RoleList -> string +nameOf Proxy# RoleList +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "RoleList") - -instance HsProtobuf.HasDefault RoleList - -instance HsProtobuf.Message RoleList where - encodeMessage :: FieldNumber -> RoleList -> MessageBuilder -encodeMessage _ RoleList{roleListRoles :: RoleList -> Vector Role -roleListRoles = Vector Role -roleListRoles} - = ([MessageBuilder] -> MessageBuilder +Hs.fromString String +"RoleList") + +instance HsProtobuf.HasDefault RoleList + +instance HsProtobuf.Message RoleList where + encodeMessage :: FieldNumber -> RoleList -> MessageBuilder +encodeMessage FieldNumber +_ RoleList{roleListRoles :: RoleList -> Vector Role +roleListRoles = Vector Role +roleListRoles} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> NestedVec Role -> MessageBuilder +Hs.mconcat + [(FieldNumber -> NestedVec Role -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (Vector Role -> NestedVec Role -forall a b. Coercible a b => a -> b -Hs.coerce @(Hs.Vector Data.Sawtooth.Identity.Role) - @(HsProtobuf.NestedVec Data.Sawtooth.Identity.Role) - Vector Role -roleListRoles))]) - decodeMessage :: FieldNumber -> Parser RawMessage RoleList -decodeMessage _ - = ((Vector Role -> RoleList) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (Vector Role -> NestedVec Role +Hs.coerce @(Hs.Vector Data.Sawtooth.Identity.Role) + @(HsProtobuf.NestedVec Data.Sawtooth.Identity.Role) + Vector Role +roleListRoles))]) + decodeMessage :: FieldNumber -> Parser RawMessage RoleList +decodeMessage FieldNumber +_ + = ((Vector Role -> RoleList) -> Parser RawMessage (Vector Role -> RoleList) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector Role -> RoleList +Hs.pure Vector Role -> RoleList RoleList) Parser RawMessage (Vector Role -> RoleList) -> Parser RawMessage (Vector Role) -> Parser RawMessage RoleList forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (NestedVec Role) +<*> + (Parser RawMessage (NestedVec Role) -> Parser RawMessage (Vector Role) -forall a b. Coercible a b => a -> b -Hs.coerce @(_ (HsProtobuf.NestedVec Data.Sawtooth.Identity.Role)) - @(_ (Hs.Vector Data.Sawtooth.Identity.Role)) - (Parser RawField (NestedVec Role) +Hs.coerce @(_ (HsProtobuf.NestedVec Data.Sawtooth.Identity.Role)) + @(_ (Hs.Vector Data.Sawtooth.Identity.Role)) + (Parser RawField (NestedVec Role) -> FieldNumber -> Parser RawMessage (NestedVec Role) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (NestedVec Role) +HsProtobuf.at Parser RawField (NestedVec Role) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1))) - dotProto :: Proxy# RoleList -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1))) + dotProto :: Proxy# RoleList -> [DotProtoField] +dotProto Proxy# RoleList +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Repeated (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "Role"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "roles") - [] - "")] - -instance HsJSONPB.ToJSONPB RoleList where - toJSONPB :: RoleList -> Options -> Value -toJSONPB (RoleList f1 :: Vector Role -f1) = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["roles" Text -> Vector Role -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Repeated (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"Role"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"roles") + [] + String +"")] + +instance HsJSONPB.ToJSONPB RoleList where + toJSONPB :: RoleList -> Options -> Value +toJSONPB (RoleList Vector Role +f1) = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"roles" Text -> Vector Role -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Role -f1]) - toEncodingPB :: RoleList -> Options -> Encoding -toEncodingPB (RoleList f1 :: Vector Role -f1) = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["roles" Text -> Vector Role -> Options -> Series +.= Vector Role +f1]) + toEncodingPB :: RoleList -> Options -> Encoding +toEncodingPB (RoleList Vector Role +f1) = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"roles" Text -> Vector Role -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Role -f1]) - -instance HsJSONPB.FromJSONPB RoleList where - parseJSONPB :: Value -> Parser RoleList -parseJSONPB - = (String -> (Object -> Parser RoleList) -> Value -> Parser RoleList +.= Vector Role +f1]) + +instance HsJSONPB.FromJSONPB RoleList where + parseJSONPB :: Value -> Parser RoleList +parseJSONPB + = (String -> (Object -> Parser RoleList) -> Value -> Parser RoleList forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "RoleList" - (\ obj :: Object -obj -> ((Vector Role -> RoleList) -> Parser (Vector Role -> RoleList) +HsJSONPB.withObject String +"RoleList" + (\ Object +obj -> ((Vector Role -> RoleList) -> Parser (Vector Role -> RoleList) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector Role -> RoleList +Hs.pure Vector Role -> RoleList RoleList) Parser (Vector Role -> RoleList) -> Parser (Vector Role) -> Parser RoleList forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser (Vector Role) +<*> Object +obj Object -> Text -> Parser (Vector Role) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "roles")) - -instance HsJSONPB.ToJSON RoleList where - toJSON :: RoleList -> Value -toJSON = RoleList -> Value +.: Text +"roles")) + +instance HsJSONPB.ToJSON RoleList where + toJSON :: RoleList -> Value +toJSON = RoleList -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: RoleList -> Encoding -toEncoding = RoleList -> Encoding +HsJSONPB.toAesonValue + toEncoding :: RoleList -> Encoding +toEncoding = RoleList -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON RoleList where - parseJSON :: Value -> Parser RoleList -parseJSON = Value -> Parser RoleList +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON RoleList where + parseJSON :: Value -> Parser RoleList +parseJSON = Value -> Parser RoleList forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema RoleList where - declareNamedSchema :: Proxy RoleList -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_roles :: Proxy (OverrideToSchema (Vector Role)) +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema RoleList where + declareNamedSchema :: Proxy RoleList -> Declare (Definitions Schema) NamedSchema +declareNamedSchema Proxy RoleList +_ + = do let declare_roles :: Proxy (OverrideToSchema (Vector Role)) -> Declare (Definitions Schema) (Referenced Schema) -declare_roles = Proxy (OverrideToSchema (Vector Role)) +declare_roles = Proxy (OverrideToSchema (Vector Role)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -roleListRoles <- Proxy (OverrideToSchema (Vector Role)) +HsJSONPB.declareSchemaRef + Referenced Schema +roleListRoles <- Proxy (OverrideToSchema (Vector Role)) -> Declare (Definitions Schema) (Referenced Schema) -declare_roles Proxy (OverrideToSchema (Vector Role)) +declare_roles Proxy (OverrideToSchema (Vector Role)) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy RoleList +Proxy.Proxy + let Proxy RoleList _ = (Vector Role -> RoleList) -> Proxy (Vector Role -> RoleList) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector Role -> RoleList +Hs.pure Vector Role -> RoleList RoleList Proxy (Vector Role -> RoleList) -> Proxy (Vector Role) -> Proxy RoleList forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema (Vector Role)) +<*> (Proxy (OverrideToSchema (Vector Role)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Vector Role) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Role)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Role)) -> Declare (Definitions Schema) (Referenced Schema) -declare_roles - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_roles + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "RoleList", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"RoleList", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("roles", Referenced Schema -roleListRoles)]}}) \ No newline at end of file +HsJSONPB.insOrdFromList + [(Text +"roles", Referenced Schema +roleListRoles)]}}) \ No newline at end of file diff --git a/src/Data.Sawtooth.Merkle.html b/src/Data.Sawtooth.Merkle.html index 817fd52..912657a 100644 --- a/src/Data.Sawtooth.Merkle.html +++ b/src/Data.Sawtooth.Merkle.html @@ -9,42 +9,41 @@ {-# OPTIONS_GHC -fno-warn-unused-matches #-} -- | Generated by Haskell protocol buffer compiler. DO NOT EDIT! - -module Data.Sawtooth.Merkle where -import qualified Prelude as Hs -import qualified Proto3.Suite.Class as HsProtobuf -import qualified Proto3.Suite.DotProto as HsProtobuf -import qualified Proto3.Suite.JSONPB as HsJSONPB -import Proto3.Suite.JSONPB ((.=), (.:)) -import qualified Proto3.Suite.Types as HsProtobuf -import qualified Proto3.Wire as HsProtobuf -import qualified Control.Applicative as Hs -import Control.Applicative ((<*>), (<|>), (<$>)) -import qualified Control.DeepSeq as Hs -import qualified Control.Monad as Hs -import qualified Data.ByteString as Hs -import qualified Data.Coerce as Hs -import qualified Data.Int as Hs (Int16, Int32, Int64) -import qualified Data.List.NonEmpty as Hs (NonEmpty(..)) -import qualified Data.Map as Hs (Map, mapKeysMonotonic) -import qualified Data.Proxy as Proxy -import qualified Data.String as Hs (fromString) -import qualified Data.Text.Lazy as Hs (Text) -import qualified Data.Vector as Hs (Vector) -import qualified Data.Word as Hs (Word16, Word32, Word64) -import qualified GHC.Enum as Hs -import qualified GHC.Generics as Hs -import qualified Unsafe.Coerce as Hs - -data ChangeLogEntry = ChangeLogEntry{ChangeLogEntry -> ByteString +module Data.Sawtooth.Merkle where +import qualified Prelude as Hs +import qualified Proto3.Suite.Class as HsProtobuf +import qualified Proto3.Suite.DotProto as HsProtobuf +import qualified Proto3.Suite.JSONPB as HsJSONPB +import Proto3.Suite.JSONPB ((.=), (.:)) +import qualified Proto3.Suite.Types as HsProtobuf +import qualified Proto3.Wire as HsProtobuf +import qualified Control.Applicative as Hs +import Control.Applicative ((<*>), (<|>), (<$>)) +import qualified Control.DeepSeq as Hs +import qualified Control.Monad as Hs +import qualified Data.ByteString as Hs +import qualified Data.Coerce as Hs +import qualified Data.Int as Hs (Int16, Int32, Int64) +import qualified Data.List.NonEmpty as Hs (NonEmpty(..)) +import qualified Data.Map as Hs (Map, mapKeysMonotonic) +import qualified Data.Proxy as Proxy +import qualified Data.String as Hs (fromString) +import qualified Data.Text.Lazy as Hs (Text) +import qualified Data.Vector as Hs (Vector) +import qualified Data.Word as Hs (Word16, Word32, Word64) +import qualified GHC.Enum as Hs +import qualified GHC.Generics as Hs +import qualified Unsafe.Coerce as Hs + +data ChangeLogEntry = ChangeLogEntry{ChangeLogEntry -> ByteString changeLogEntryParent :: - Hs.ByteString, - ChangeLogEntry -> Vector ByteString -changeLogEntryAdditions :: Hs.Vector Hs.ByteString, - ChangeLogEntry -> Vector ChangeLogEntry_Successor + Hs.ByteString, + ChangeLogEntry -> Vector ByteString +changeLogEntryAdditions :: Hs.Vector Hs.ByteString, + ChangeLogEntry -> Vector ChangeLogEntry_Successor changeLogEntrySuccessors :: - Hs.Vector Data.Sawtooth.Merkle.ChangeLogEntry_Successor} - deriving (Int -> ChangeLogEntry -> ShowS + Hs.Vector Data.Sawtooth.Merkle.ChangeLogEntry_Successor} + deriving (Int -> ChangeLogEntry -> ShowS [ChangeLogEntry] -> ShowS ChangeLogEntry -> String (Int -> ChangeLogEntry -> ShowS) @@ -59,7 +58,7 @@ show :: ChangeLogEntry -> String $cshow :: ChangeLogEntry -> String showsPrec :: Int -> ChangeLogEntry -> ShowS $cshowsPrec :: Int -> ChangeLogEntry -> ShowS -Hs.Show, ChangeLogEntry -> ChangeLogEntry -> Bool +Hs.Show, ChangeLogEntry -> ChangeLogEntry -> Bool (ChangeLogEntry -> ChangeLogEntry -> Bool) -> (ChangeLogEntry -> ChangeLogEntry -> Bool) -> Eq ChangeLogEntry forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a @@ -67,9 +66,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: ChangeLogEntry -> ChangeLogEntry -> Bool == :: ChangeLogEntry -> ChangeLogEntry -> Bool $c== :: ChangeLogEntry -> ChangeLogEntry -> Bool -Hs.Eq, Eq ChangeLogEntry -Eq ChangeLogEntry => -(ChangeLogEntry -> ChangeLogEntry -> Ordering) +Hs.Eq, Eq ChangeLogEntry +Eq ChangeLogEntry +-> (ChangeLogEntry -> ChangeLogEntry -> Ordering) -> (ChangeLogEntry -> ChangeLogEntry -> Bool) -> (ChangeLogEntry -> ChangeLogEntry -> Bool) -> (ChangeLogEntry -> ChangeLogEntry -> Bool) @@ -81,8 +80,8 @@ ChangeLogEntry -> ChangeLogEntry -> Bool ChangeLogEntry -> ChangeLogEntry -> Ordering ChangeLogEntry -> ChangeLogEntry -> ChangeLogEntry forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -105,7 +104,7 @@ $c< :: ChangeLogEntry -> ChangeLogEntry -> Bool compare :: ChangeLogEntry -> ChangeLogEntry -> Ordering $ccompare :: ChangeLogEntry -> ChangeLogEntry -> Ordering $cp1Ord :: Eq ChangeLogEntry -Hs.Ord, (forall x. ChangeLogEntry -> Rep ChangeLogEntry x) +Hs.Ord, (forall x. ChangeLogEntry -> Rep ChangeLogEntry x) -> (forall x. Rep ChangeLogEntry x -> ChangeLogEntry) -> Generic ChangeLogEntry forall x. Rep ChangeLogEntry x -> ChangeLogEntry @@ -114,67 +113,72 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep ChangeLogEntry x -> ChangeLogEntry $cfrom :: forall x. ChangeLogEntry -> Rep ChangeLogEntry x -Hs.Generic, ChangeLogEntry -> () +Hs.Generic, ChangeLogEntry -> () (ChangeLogEntry -> ()) -> NFData ChangeLogEntry forall a. (a -> ()) -> NFData a rnf :: ChangeLogEntry -> () $crnf :: ChangeLogEntry -> () -Hs.NFData) - -instance HsProtobuf.Named ChangeLogEntry where - nameOf :: Proxy# ChangeLogEntry -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ChangeLogEntry where + nameOf :: Proxy# ChangeLogEntry -> string +nameOf Proxy# ChangeLogEntry +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ChangeLogEntry") - -instance HsProtobuf.HasDefault ChangeLogEntry - -instance HsProtobuf.Message ChangeLogEntry where - encodeMessage :: FieldNumber -> ChangeLogEntry -> MessageBuilder -encodeMessage _ - ChangeLogEntry{changeLogEntryParent :: ChangeLogEntry -> ByteString -changeLogEntryParent = ByteString -changeLogEntryParent, - changeLogEntryAdditions :: ChangeLogEntry -> Vector ByteString -changeLogEntryAdditions = Vector ByteString -changeLogEntryAdditions, - changeLogEntrySuccessors :: ChangeLogEntry -> Vector ChangeLogEntry_Successor -changeLogEntrySuccessors = Vector ChangeLogEntry_Successor -changeLogEntrySuccessors} - = ([MessageBuilder] -> MessageBuilder +Hs.fromString String +"ChangeLogEntry") + +instance HsProtobuf.HasDefault ChangeLogEntry + +instance HsProtobuf.Message ChangeLogEntry where + encodeMessage :: FieldNumber -> ChangeLogEntry -> MessageBuilder +encodeMessage FieldNumber +_ + ChangeLogEntry{changeLogEntryParent :: ChangeLogEntry -> ByteString +changeLogEntryParent = ByteString +changeLogEntryParent, + changeLogEntryAdditions :: ChangeLogEntry -> Vector ByteString +changeLogEntryAdditions = Vector ByteString +changeLogEntryAdditions, + changeLogEntrySuccessors :: ChangeLogEntry -> Vector ChangeLogEntry_Successor +changeLogEntrySuccessors = Vector ChangeLogEntry_Successor +changeLogEntrySuccessors} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> ByteString -> MessageBuilder +Hs.mconcat + [(FieldNumber -> ByteString -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - ByteString -changeLogEntryParent), - (FieldNumber -> UnpackedVec ByteString -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + ByteString +changeLogEntryParent), + (FieldNumber -> UnpackedVec ByteString -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (Vector ByteString -> UnpackedVec ByteString -forall a b. Coercible a b => a -> b -Hs.coerce @(Hs.Vector Hs.ByteString) - @(HsProtobuf.UnpackedVec Hs.ByteString) - Vector ByteString -changeLogEntryAdditions)), - (FieldNumber -> NestedVec ChangeLogEntry_Successor -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (Vector ByteString -> UnpackedVec ByteString +Hs.coerce @(Hs.Vector Hs.ByteString) + @(HsProtobuf.UnpackedVec Hs.ByteString) + Vector ByteString +changeLogEntryAdditions)), + (FieldNumber -> NestedVec ChangeLogEntry_Successor -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - (Vector ChangeLogEntry_Successor +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + (Vector ChangeLogEntry_Successor -> NestedVec ChangeLogEntry_Successor -forall a b. Coercible a b => a -> b -Hs.coerce - @(Hs.Vector Data.Sawtooth.Merkle.ChangeLogEntry_Successor) - @(HsProtobuf.NestedVec Data.Sawtooth.Merkle.ChangeLogEntry_Successor) - Vector ChangeLogEntry_Successor -changeLogEntrySuccessors))]) - decodeMessage :: FieldNumber -> Parser RawMessage ChangeLogEntry -decodeMessage _ - = ((ByteString +Hs.coerce + @(Hs.Vector Data.Sawtooth.Merkle.ChangeLogEntry_Successor) + @(HsProtobuf.NestedVec Data.Sawtooth.Merkle.ChangeLogEntry_Successor) + Vector ChangeLogEntry_Successor +changeLogEntrySuccessors))]) + decodeMessage :: FieldNumber -> Parser RawMessage ChangeLogEntry +decodeMessage FieldNumber +_ + = ((ByteString -> Vector ByteString -> Vector ChangeLogEntry_Successor -> ChangeLogEntry) @@ -185,7 +189,7 @@ forall a b. Coercible a b => a -> b -> Vector ChangeLogEntry_Successor -> ChangeLogEntry) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString +Hs.pure ByteString -> Vector ByteString -> Vector ChangeLogEntry_Successor -> ChangeLogEntry @@ -201,16 +205,17 @@ forall (f :: * -> *) a. Applicative f => a -> f a (Vector ByteString -> Vector ChangeLogEntry_Successor -> ChangeLogEntry) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField ByteString +<*> + (Parser RawField ByteString -> FieldNumber -> Parser RawMessage ByteString forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField ByteString +HsProtobuf.at Parser RawField ByteString forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (Vector ByteString -> Vector ChangeLogEntry_Successor -> ChangeLogEntry) @@ -218,151 +223,169 @@ forall a. MessageField a => Parser RawField a -> Parser RawMessage (Vector ChangeLogEntry_Successor -> ChangeLogEntry) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (UnpackedVec ByteString) +<*> + (Parser RawMessage (UnpackedVec ByteString) -> Parser RawMessage (Vector ByteString) -forall a b. Coercible a b => a -> b -Hs.coerce @(_ (HsProtobuf.UnpackedVec Hs.ByteString)) - @(_ (Hs.Vector Hs.ByteString)) - (Parser RawField (UnpackedVec ByteString) +Hs.coerce @(_ (HsProtobuf.UnpackedVec Hs.ByteString)) + @(_ (Hs.Vector Hs.ByteString)) + (Parser RawField (UnpackedVec ByteString) -> FieldNumber -> Parser RawMessage (UnpackedVec ByteString) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (UnpackedVec ByteString) +HsProtobuf.at Parser RawField (UnpackedVec ByteString) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2))) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2))) + Parser RawMessage (Vector ChangeLogEntry_Successor -> ChangeLogEntry) -> Parser RawMessage (Vector ChangeLogEntry_Successor) -> Parser RawMessage ChangeLogEntry forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (NestedVec ChangeLogEntry_Successor) +<*> + (Parser RawMessage (NestedVec ChangeLogEntry_Successor) -> Parser RawMessage (Vector ChangeLogEntry_Successor) -forall a b. Coercible a b => a -> b -Hs.coerce - @(_ (HsProtobuf.NestedVec Data.Sawtooth.Merkle.ChangeLogEntry_Successor)) - @(_ (Hs.Vector Data.Sawtooth.Merkle.ChangeLogEntry_Successor)) - (Parser RawField (NestedVec ChangeLogEntry_Successor) +Hs.coerce + @(_ (HsProtobuf.NestedVec Data.Sawtooth.Merkle.ChangeLogEntry_Successor)) + @(_ (Hs.Vector Data.Sawtooth.Merkle.ChangeLogEntry_Successor)) + (Parser RawField (NestedVec ChangeLogEntry_Successor) -> FieldNumber -> Parser RawMessage (NestedVec ChangeLogEntry_Successor) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (NestedVec ChangeLogEntry_Successor) +HsProtobuf.at Parser RawField (NestedVec ChangeLogEntry_Successor) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3))) - dotProto :: Proxy# ChangeLogEntry -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3))) + dotProto :: Proxy# ChangeLogEntry -> [DotProtoField] +dotProto Proxy# ChangeLogEntry +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.Bytes) - (String -> DotProtoIdentifier -HsProtobuf.Single "parent") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.Bytes) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"parent") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Repeated DotProtoPrimType -HsProtobuf.Bytes) - (String -> DotProtoIdentifier -HsProtobuf.Single "additions") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Repeated DotProtoPrimType +HsProtobuf.Bytes) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"additions") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Repeated - (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "Successor"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "successors") - [] - "")] - -instance HsJSONPB.ToJSONPB ChangeLogEntry where - toJSONPB :: ChangeLogEntry -> Options -> Value -toJSONPB (ChangeLogEntry f1 :: ByteString -f1 f2 :: Vector ByteString -f2 f3 :: Vector ChangeLogEntry_Successor -f3) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object - ["parent" Text -> ByteString -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Repeated + (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"Successor"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"successors") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ChangeLogEntry where + toJSONPB :: ChangeLogEntry -> Options -> Value +toJSONPB (ChangeLogEntry ByteString +f1 Vector ByteString +f2 Vector ChangeLogEntry_Successor +f3) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object + [Text +"parent" Text -> ByteString -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f1, "additions" Text -> Vector ByteString -> Options -> [Pair] +.= ByteString +f1, Text +"additions" Text -> Vector ByteString -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector ByteString -f2, "successors" Text -> Vector ChangeLogEntry_Successor -> Options -> [Pair] +.= Vector ByteString +f2, Text +"successors" Text -> Vector ChangeLogEntry_Successor -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector ChangeLogEntry_Successor -f3]) - toEncodingPB :: ChangeLogEntry -> Options -> Encoding -toEncodingPB (ChangeLogEntry f1 :: ByteString -f1 f2 :: Vector ByteString -f2 f3 :: Vector ChangeLogEntry_Successor -f3) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs - ["parent" Text -> ByteString -> Options -> Series +.= Vector ChangeLogEntry_Successor +f3]) + toEncodingPB :: ChangeLogEntry -> Options -> Encoding +toEncodingPB (ChangeLogEntry ByteString +f1 Vector ByteString +f2 Vector ChangeLogEntry_Successor +f3) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs + [Text +"parent" Text -> ByteString -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f1, "additions" Text -> Vector ByteString -> Options -> Series +.= ByteString +f1, Text +"additions" Text -> Vector ByteString -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector ByteString -f2, "successors" Text -> Vector ChangeLogEntry_Successor -> Options -> Series +.= Vector ByteString +f2, Text +"successors" Text -> Vector ChangeLogEntry_Successor -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector ChangeLogEntry_Successor -f3]) - -instance HsJSONPB.FromJSONPB ChangeLogEntry where - parseJSONPB :: Value -> Parser ChangeLogEntry -parseJSONPB - = (String +.= Vector ChangeLogEntry_Successor +f3]) + +instance HsJSONPB.FromJSONPB ChangeLogEntry where + parseJSONPB :: Value -> Parser ChangeLogEntry +parseJSONPB + = (String -> (Object -> Parser ChangeLogEntry) -> Value -> Parser ChangeLogEntry forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ChangeLogEntry" - (\ obj :: Object -obj -> - ((ByteString +HsJSONPB.withObject String +"ChangeLogEntry" + (\ Object +obj -> + ((ByteString -> Vector ByteString -> Vector ChangeLogEntry_Successor -> ChangeLogEntry) @@ -372,7 +395,7 @@ forall a. String -> (Object -> Parser a) -> Value -> Parser a -> Vector ChangeLogEntry_Successor -> ChangeLogEntry) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString +Hs.pure ByteString -> Vector ByteString -> Vector ChangeLogEntry_Successor -> ChangeLogEntry @@ -386,96 +409,100 @@ forall (f :: * -> *) a. Applicative f => a -> f a (Vector ByteString -> Vector ChangeLogEntry_Successor -> ChangeLogEntry) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser ByteString +<*> Object +obj Object -> Text -> Parser ByteString forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "parent" Parser +.: Text +"parent" Parser (Vector ByteString -> Vector ChangeLogEntry_Successor -> ChangeLogEntry) -> Parser (Vector ByteString) -> Parser (Vector ChangeLogEntry_Successor -> ChangeLogEntry) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser (Vector ByteString) +<*> Object +obj Object -> Text -> Parser (Vector ByteString) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "additions" - Parser (Vector ChangeLogEntry_Successor -> ChangeLogEntry) +.: Text +"additions" + Parser (Vector ChangeLogEntry_Successor -> ChangeLogEntry) -> Parser (Vector ChangeLogEntry_Successor) -> Parser ChangeLogEntry forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser (Vector ChangeLogEntry_Successor) +<*> Object +obj Object -> Text -> Parser (Vector ChangeLogEntry_Successor) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "successors")) - -instance HsJSONPB.ToJSON ChangeLogEntry where - toJSON :: ChangeLogEntry -> Value -toJSON = ChangeLogEntry -> Value +.: Text +"successors")) + +instance HsJSONPB.ToJSON ChangeLogEntry where + toJSON :: ChangeLogEntry -> Value +toJSON = ChangeLogEntry -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ChangeLogEntry -> Encoding -toEncoding = ChangeLogEntry -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ChangeLogEntry -> Encoding +toEncoding = ChangeLogEntry -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ChangeLogEntry where - parseJSON :: Value -> Parser ChangeLogEntry -parseJSON = Value -> Parser ChangeLogEntry +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ChangeLogEntry where + parseJSON :: Value -> Parser ChangeLogEntry +parseJSON = Value -> Parser ChangeLogEntry forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ChangeLogEntry where - declareNamedSchema :: Proxy ChangeLogEntry -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_parent :: Proxy (OverrideToSchema ByteString) +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ChangeLogEntry where + declareNamedSchema :: Proxy ChangeLogEntry -> Declare (Definitions Schema) NamedSchema +declareNamedSchema Proxy ChangeLogEntry +_ + = do let declare_parent :: Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_parent = Proxy (OverrideToSchema ByteString) +declare_parent = Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -changeLogEntryParent <- Proxy (OverrideToSchema ByteString) +HsJSONPB.declareSchemaRef + Referenced Schema +changeLogEntryParent <- Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_parent Proxy (OverrideToSchema ByteString) +declare_parent Proxy (OverrideToSchema ByteString) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_additions :: Proxy (OverrideToSchema (Vector ByteString)) +Proxy.Proxy + let declare_additions :: Proxy (OverrideToSchema (Vector ByteString)) -> Declare (Definitions Schema) (Referenced Schema) -declare_additions = Proxy (OverrideToSchema (Vector ByteString)) +declare_additions = Proxy (OverrideToSchema (Vector ByteString)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -changeLogEntryAdditions <- Proxy (OverrideToSchema (Vector ByteString)) +HsJSONPB.declareSchemaRef + Referenced Schema +changeLogEntryAdditions <- Proxy (OverrideToSchema (Vector ByteString)) -> Declare (Definitions Schema) (Referenced Schema) -declare_additions Proxy (OverrideToSchema (Vector ByteString)) +declare_additions Proxy (OverrideToSchema (Vector ByteString)) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_successors :: Proxy (OverrideToSchema (Vector ChangeLogEntry_Successor)) +Proxy.Proxy + let declare_successors :: Proxy (OverrideToSchema (Vector ChangeLogEntry_Successor)) -> Declare (Definitions Schema) (Referenced Schema) -declare_successors = Proxy (OverrideToSchema (Vector ChangeLogEntry_Successor)) +declare_successors = Proxy (OverrideToSchema (Vector ChangeLogEntry_Successor)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -changeLogEntrySuccessors <- Proxy (OverrideToSchema (Vector ChangeLogEntry_Successor)) +HsJSONPB.declareSchemaRef + Referenced Schema +changeLogEntrySuccessors <- Proxy (OverrideToSchema (Vector ChangeLogEntry_Successor)) -> Declare (Definitions Schema) (Referenced Schema) -declare_successors Proxy (OverrideToSchema (Vector ChangeLogEntry_Successor)) +declare_successors Proxy (OverrideToSchema (Vector ChangeLogEntry_Successor)) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ChangeLogEntry +Proxy.Proxy + let Proxy ChangeLogEntry _ = (ByteString -> Vector ByteString -> Vector ChangeLogEntry_Successor @@ -486,7 +513,7 @@ forall k (t :: k). Proxy t -> Vector ChangeLogEntry_Successor -> ChangeLogEntry) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString +Hs.pure ByteString -> Vector ByteString -> Vector ChangeLogEntry_Successor -> ChangeLogEntry @@ -500,80 +527,84 @@ forall (f :: * -> *) a. Applicative f => a -> f a (Vector ByteString -> Vector ChangeLogEntry_Successor -> ChangeLogEntry) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema ByteString) +<*> (Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy ByteString forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) +HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_parent - Proxy +declare_parent + Proxy (Vector ByteString -> Vector ChangeLogEntry_Successor -> ChangeLogEntry) -> Proxy (Vector ByteString) -> Proxy (Vector ChangeLogEntry_Successor -> ChangeLogEntry) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema (Vector ByteString)) +<*> (Proxy (OverrideToSchema (Vector ByteString)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Vector ByteString) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Vector ByteString)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Vector ByteString)) -> Declare (Definitions Schema) (Referenced Schema) -declare_additions - Proxy (Vector ChangeLogEntry_Successor -> ChangeLogEntry) +declare_additions + Proxy (Vector ChangeLogEntry_Successor -> ChangeLogEntry) -> Proxy (Vector ChangeLogEntry_Successor) -> Proxy ChangeLogEntry forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema (Vector ChangeLogEntry_Successor)) +<*> (Proxy (OverrideToSchema (Vector ChangeLogEntry_Successor)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Vector ChangeLogEntry_Successor) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Vector ChangeLogEntry_Successor)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Vector ChangeLogEntry_Successor)) -> Declare (Definitions Schema) (Referenced Schema) -declare_successors - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_successors + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ChangeLogEntry", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ChangeLogEntry", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("parent", Referenced Schema -changeLogEntryParent), - ("additions", Referenced Schema -changeLogEntryAdditions), - ("successors", Referenced Schema -changeLogEntrySuccessors)]}}) - -data ChangeLogEntry_Successor = ChangeLogEntry_Successor{ChangeLogEntry_Successor -> ByteString +HsJSONPB.insOrdFromList + [(Text +"parent", Referenced Schema +changeLogEntryParent), + (Text +"additions", Referenced Schema +changeLogEntryAdditions), + (Text +"successors", Referenced Schema +changeLogEntrySuccessors)]}}) + +data ChangeLogEntry_Successor = ChangeLogEntry_Successor{ChangeLogEntry_Successor -> ByteString changeLogEntry_SuccessorSuccessor - :: Hs.ByteString, - ChangeLogEntry_Successor -> Vector ByteString + :: Hs.ByteString, + ChangeLogEntry_Successor -> Vector ByteString changeLogEntry_SuccessorDeletions :: - Hs.Vector Hs.ByteString} - deriving (Int -> ChangeLogEntry_Successor -> ShowS + Hs.Vector Hs.ByteString} + deriving (Int -> ChangeLogEntry_Successor -> ShowS [ChangeLogEntry_Successor] -> ShowS ChangeLogEntry_Successor -> String (Int -> ChangeLogEntry_Successor -> ShowS) @@ -588,7 +619,7 @@ show :: ChangeLogEntry_Successor -> String $cshow :: ChangeLogEntry_Successor -> String showsPrec :: Int -> ChangeLogEntry_Successor -> ShowS $cshowsPrec :: Int -> ChangeLogEntry_Successor -> ShowS -Hs.Show, ChangeLogEntry_Successor -> ChangeLogEntry_Successor -> Bool +Hs.Show, ChangeLogEntry_Successor -> ChangeLogEntry_Successor -> Bool (ChangeLogEntry_Successor -> ChangeLogEntry_Successor -> Bool) -> (ChangeLogEntry_Successor -> ChangeLogEntry_Successor -> Bool) -> Eq ChangeLogEntry_Successor @@ -597,9 +628,10 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: ChangeLogEntry_Successor -> ChangeLogEntry_Successor -> Bool == :: ChangeLogEntry_Successor -> ChangeLogEntry_Successor -> Bool $c== :: ChangeLogEntry_Successor -> ChangeLogEntry_Successor -> Bool -Hs.Eq, Eq ChangeLogEntry_Successor -Eq ChangeLogEntry_Successor => -(ChangeLogEntry_Successor -> ChangeLogEntry_Successor -> Ordering) +Hs.Eq, Eq ChangeLogEntry_Successor +Eq ChangeLogEntry_Successor +-> (ChangeLogEntry_Successor + -> ChangeLogEntry_Successor -> Ordering) -> (ChangeLogEntry_Successor -> ChangeLogEntry_Successor -> Bool) -> (ChangeLogEntry_Successor -> ChangeLogEntry_Successor -> Bool) -> (ChangeLogEntry_Successor -> ChangeLogEntry_Successor -> Bool) @@ -614,8 +646,8 @@ ChangeLogEntry_Successor -> ChangeLogEntry_Successor -> Ordering ChangeLogEntry_Successor -> ChangeLogEntry_Successor -> ChangeLogEntry_Successor forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -642,7 +674,7 @@ $c< :: ChangeLogEntry_Successor -> ChangeLogEntry_Successor -> Bool compare :: ChangeLogEntry_Successor -> ChangeLogEntry_Successor -> Ordering $ccompare :: ChangeLogEntry_Successor -> ChangeLogEntry_Successor -> Ordering $cp1Ord :: Eq ChangeLogEntry_Successor -Hs.Ord, (forall x. +Hs.Ord, (forall x. ChangeLogEntry_Successor -> Rep ChangeLogEntry_Successor x) -> (forall x. Rep ChangeLogEntry_Successor x -> ChangeLogEntry_Successor) @@ -657,59 +689,64 @@ $cto :: forall x. Rep ChangeLogEntry_Successor x -> ChangeLogEntry_Successor $cfrom :: forall x. ChangeLogEntry_Successor -> Rep ChangeLogEntry_Successor x -Hs.Generic, ChangeLogEntry_Successor -> () +Hs.Generic, ChangeLogEntry_Successor -> () (ChangeLogEntry_Successor -> ()) -> NFData ChangeLogEntry_Successor forall a. (a -> ()) -> NFData a rnf :: ChangeLogEntry_Successor -> () $crnf :: ChangeLogEntry_Successor -> () -Hs.NFData) - -instance HsProtobuf.Named ChangeLogEntry_Successor where - nameOf :: Proxy# ChangeLogEntry_Successor -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named ChangeLogEntry_Successor where + nameOf :: Proxy# ChangeLogEntry_Successor -> string +nameOf Proxy# ChangeLogEntry_Successor +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "ChangeLogEntry_Successor") - -instance HsProtobuf.HasDefault ChangeLogEntry_Successor - -instance HsProtobuf.Message ChangeLogEntry_Successor where - encodeMessage :: FieldNumber -> ChangeLogEntry_Successor -> MessageBuilder -encodeMessage _ - ChangeLogEntry_Successor{changeLogEntry_SuccessorSuccessor :: ChangeLogEntry_Successor -> ByteString +Hs.fromString String +"ChangeLogEntry_Successor") + +instance HsProtobuf.HasDefault ChangeLogEntry_Successor + +instance HsProtobuf.Message ChangeLogEntry_Successor where + encodeMessage :: FieldNumber -> ChangeLogEntry_Successor -> MessageBuilder +encodeMessage FieldNumber +_ + ChangeLogEntry_Successor{changeLogEntry_SuccessorSuccessor :: ChangeLogEntry_Successor -> ByteString changeLogEntry_SuccessorSuccessor = - ByteString -changeLogEntry_SuccessorSuccessor, - changeLogEntry_SuccessorDeletions :: ChangeLogEntry_Successor -> Vector ByteString + ByteString +changeLogEntry_SuccessorSuccessor, + changeLogEntry_SuccessorDeletions :: ChangeLogEntry_Successor -> Vector ByteString changeLogEntry_SuccessorDeletions = - Vector ByteString -changeLogEntry_SuccessorDeletions} - = ([MessageBuilder] -> MessageBuilder + Vector ByteString +changeLogEntry_SuccessorDeletions} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> ByteString -> MessageBuilder +Hs.mconcat + [(FieldNumber -> ByteString -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - ByteString -changeLogEntry_SuccessorSuccessor), - (FieldNumber -> UnpackedVec ByteString -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + ByteString +changeLogEntry_SuccessorSuccessor), + (FieldNumber -> UnpackedVec ByteString -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (Vector ByteString -> UnpackedVec ByteString -forall a b. Coercible a b => a -> b -Hs.coerce @(Hs.Vector Hs.ByteString) - @(HsProtobuf.UnpackedVec Hs.ByteString) - Vector ByteString -changeLogEntry_SuccessorDeletions))]) - decodeMessage :: FieldNumber -> Parser RawMessage ChangeLogEntry_Successor -decodeMessage _ - = ((ByteString -> Vector ByteString -> ChangeLogEntry_Successor) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (Vector ByteString -> UnpackedVec ByteString +Hs.coerce @(Hs.Vector Hs.ByteString) + @(HsProtobuf.UnpackedVec Hs.ByteString) + Vector ByteString +changeLogEntry_SuccessorDeletions))]) + decodeMessage :: FieldNumber -> Parser RawMessage ChangeLogEntry_Successor +decodeMessage FieldNumber +_ + = ((ByteString -> Vector ByteString -> ChangeLogEntry_Successor) -> Parser RawMessage (ByteString -> Vector ByteString -> ChangeLogEntry_Successor) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString -> Vector ByteString -> ChangeLogEntry_Successor +Hs.pure ByteString -> Vector ByteString -> ChangeLogEntry_Successor ChangeLogEntry_Successor) Parser RawMessage (ByteString -> Vector ByteString -> ChangeLogEntry_Successor) @@ -717,246 +754,265 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Parser RawMessage (Vector ByteString -> ChangeLogEntry_Successor) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField ByteString +<*> + (Parser RawField ByteString -> FieldNumber -> Parser RawMessage ByteString forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField ByteString +HsProtobuf.at Parser RawField ByteString forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser RawMessage (Vector ByteString -> ChangeLogEntry_Successor) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (Vector ByteString -> ChangeLogEntry_Successor) -> Parser RawMessage (Vector ByteString) -> Parser RawMessage ChangeLogEntry_Successor forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (UnpackedVec ByteString) +<*> + (Parser RawMessage (UnpackedVec ByteString) -> Parser RawMessage (Vector ByteString) -forall a b. Coercible a b => a -> b -Hs.coerce @(_ (HsProtobuf.UnpackedVec Hs.ByteString)) - @(_ (Hs.Vector Hs.ByteString)) - (Parser RawField (UnpackedVec ByteString) +Hs.coerce @(_ (HsProtobuf.UnpackedVec Hs.ByteString)) + @(_ (Hs.Vector Hs.ByteString)) + (Parser RawField (UnpackedVec ByteString) -> FieldNumber -> Parser RawMessage (UnpackedVec ByteString) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (UnpackedVec ByteString) +HsProtobuf.at Parser RawField (UnpackedVec ByteString) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2))) - dotProto :: Proxy# ChangeLogEntry_Successor -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2))) + dotProto :: Proxy# ChangeLogEntry_Successor -> [DotProtoField] +dotProto Proxy# ChangeLogEntry_Successor +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.Bytes) - (String -> DotProtoIdentifier -HsProtobuf.Single "successor") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.Bytes) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"successor") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Repeated DotProtoPrimType -HsProtobuf.Bytes) - (String -> DotProtoIdentifier -HsProtobuf.Single "deletions") - [] - "")] - -instance HsJSONPB.ToJSONPB ChangeLogEntry_Successor where - toJSONPB :: ChangeLogEntry_Successor -> Options -> Value -toJSONPB (ChangeLogEntry_Successor f1 :: ByteString -f1 f2 :: Vector ByteString -f2) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["successor" Text -> ByteString -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Repeated DotProtoPrimType +HsProtobuf.Bytes) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"deletions") + [] + String +"")] + +instance HsJSONPB.ToJSONPB ChangeLogEntry_Successor where + toJSONPB :: ChangeLogEntry_Successor -> Options -> Value +toJSONPB (ChangeLogEntry_Successor ByteString +f1 Vector ByteString +f2) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"successor" Text -> ByteString -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f1, "deletions" Text -> Vector ByteString -> Options -> [Pair] +.= ByteString +f1, Text +"deletions" Text -> Vector ByteString -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector ByteString -f2]) - toEncodingPB :: ChangeLogEntry_Successor -> Options -> Encoding -toEncodingPB (ChangeLogEntry_Successor f1 :: ByteString -f1 f2 :: Vector ByteString -f2) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["successor" Text -> ByteString -> Options -> Series +.= Vector ByteString +f2]) + toEncodingPB :: ChangeLogEntry_Successor -> Options -> Encoding +toEncodingPB (ChangeLogEntry_Successor ByteString +f1 Vector ByteString +f2) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"successor" Text -> ByteString -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f1, "deletions" Text -> Vector ByteString -> Options -> Series +.= ByteString +f1, Text +"deletions" Text -> Vector ByteString -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector ByteString -f2]) - -instance HsJSONPB.FromJSONPB ChangeLogEntry_Successor where - parseJSONPB :: Value -> Parser ChangeLogEntry_Successor -parseJSONPB - = (String +.= Vector ByteString +f2]) + +instance HsJSONPB.FromJSONPB ChangeLogEntry_Successor where + parseJSONPB :: Value -> Parser ChangeLogEntry_Successor +parseJSONPB + = (String -> (Object -> Parser ChangeLogEntry_Successor) -> Value -> Parser ChangeLogEntry_Successor forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "ChangeLogEntry_Successor" - (\ obj :: Object -obj -> - ((ByteString -> Vector ByteString -> ChangeLogEntry_Successor) +HsJSONPB.withObject String +"ChangeLogEntry_Successor" + (\ Object +obj -> + ((ByteString -> Vector ByteString -> ChangeLogEntry_Successor) -> Parser (ByteString -> Vector ByteString -> ChangeLogEntry_Successor) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString -> Vector ByteString -> ChangeLogEntry_Successor +Hs.pure ByteString -> Vector ByteString -> ChangeLogEntry_Successor ChangeLogEntry_Successor) Parser (ByteString -> Vector ByteString -> ChangeLogEntry_Successor) -> Parser ByteString -> Parser (Vector ByteString -> ChangeLogEntry_Successor) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser ByteString +<*> Object +obj Object -> Text -> Parser ByteString forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "successor" Parser (Vector ByteString -> ChangeLogEntry_Successor) +.: Text +"successor" Parser (Vector ByteString -> ChangeLogEntry_Successor) -> Parser (Vector ByteString) -> Parser ChangeLogEntry_Successor forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser (Vector ByteString) +<*> + Object +obj Object -> Text -> Parser (Vector ByteString) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "deletions")) - -instance HsJSONPB.ToJSON ChangeLogEntry_Successor where - toJSON :: ChangeLogEntry_Successor -> Value -toJSON = ChangeLogEntry_Successor -> Value +.: Text +"deletions")) + +instance HsJSONPB.ToJSON ChangeLogEntry_Successor where + toJSON :: ChangeLogEntry_Successor -> Value +toJSON = ChangeLogEntry_Successor -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: ChangeLogEntry_Successor -> Encoding -toEncoding = ChangeLogEntry_Successor -> Encoding +HsJSONPB.toAesonValue + toEncoding :: ChangeLogEntry_Successor -> Encoding +toEncoding = ChangeLogEntry_Successor -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON ChangeLogEntry_Successor where - parseJSON :: Value -> Parser ChangeLogEntry_Successor -parseJSON = Value -> Parser ChangeLogEntry_Successor +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON ChangeLogEntry_Successor where + parseJSON :: Value -> Parser ChangeLogEntry_Successor +parseJSON = Value -> Parser ChangeLogEntry_Successor forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema ChangeLogEntry_Successor where - declareNamedSchema :: Proxy ChangeLogEntry_Successor +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema ChangeLogEntry_Successor where + declareNamedSchema :: Proxy ChangeLogEntry_Successor -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_successor :: Proxy (OverrideToSchema ByteString) +declareNamedSchema Proxy ChangeLogEntry_Successor +_ + = do let declare_successor :: Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_successor = Proxy (OverrideToSchema ByteString) +declare_successor = Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -changeLogEntry_SuccessorSuccessor <- Proxy (OverrideToSchema ByteString) +HsJSONPB.declareSchemaRef + Referenced Schema +changeLogEntry_SuccessorSuccessor <- Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_successor Proxy (OverrideToSchema ByteString) +declare_successor Proxy (OverrideToSchema ByteString) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_deletions :: Proxy (OverrideToSchema (Vector ByteString)) +Proxy.Proxy + let declare_deletions :: Proxy (OverrideToSchema (Vector ByteString)) -> Declare (Definitions Schema) (Referenced Schema) -declare_deletions = Proxy (OverrideToSchema (Vector ByteString)) +declare_deletions = Proxy (OverrideToSchema (Vector ByteString)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -changeLogEntry_SuccessorDeletions <- Proxy (OverrideToSchema (Vector ByteString)) +HsJSONPB.declareSchemaRef + Referenced Schema +changeLogEntry_SuccessorDeletions <- Proxy (OverrideToSchema (Vector ByteString)) -> Declare (Definitions Schema) (Referenced Schema) -declare_deletions Proxy (OverrideToSchema (Vector ByteString)) +declare_deletions Proxy (OverrideToSchema (Vector ByteString)) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy ChangeLogEntry_Successor +Proxy.Proxy + let Proxy ChangeLogEntry_Successor _ = (ByteString -> Vector ByteString -> ChangeLogEntry_Successor) -> Proxy (ByteString -> Vector ByteString -> ChangeLogEntry_Successor) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString -> Vector ByteString -> ChangeLogEntry_Successor +Hs.pure ByteString -> Vector ByteString -> ChangeLogEntry_Successor ChangeLogEntry_Successor Proxy (ByteString -> Vector ByteString -> ChangeLogEntry_Successor) -> Proxy ByteString -> Proxy (Vector ByteString -> ChangeLogEntry_Successor) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema ByteString) +<*> + (Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy ByteString forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) +HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_successor - Proxy (Vector ByteString -> ChangeLogEntry_Successor) +declare_successor + Proxy (Vector ByteString -> ChangeLogEntry_Successor) -> Proxy (Vector ByteString) -> Proxy ChangeLogEntry_Successor forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema (Vector ByteString)) +<*> (Proxy (OverrideToSchema (Vector ByteString)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Vector ByteString) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Vector ByteString)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Vector ByteString)) -> Declare (Definitions Schema) (Referenced Schema) -declare_deletions - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_deletions + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "ChangeLogEntry_Successor", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"ChangeLogEntry_Successor", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("successor", - Referenced Schema -changeLogEntry_SuccessorSuccessor), - ("deletions", - Referenced Schema -changeLogEntry_SuccessorDeletions)]}}) \ No newline at end of file +HsJSONPB.insOrdFromList + [(Text +"successor", + Referenced Schema +changeLogEntry_SuccessorSuccessor), + (Text +"deletions", + Referenced Schema +changeLogEntry_SuccessorDeletions)]}}) \ No newline at end of file diff --git a/src/Data.Sawtooth.Network.html b/src/Data.Sawtooth.Network.html index 566cfdf..f92bc80 100644 --- a/src/Data.Sawtooth.Network.html +++ b/src/Data.Sawtooth.Network.html @@ -9,35 +9,34 @@ {-# OPTIONS_GHC -fno-warn-unused-matches #-} -- | Generated by Haskell protocol buffer compiler. DO NOT EDIT! - -module Data.Sawtooth.Network where -import qualified Prelude as Hs -import qualified Proto3.Suite.Class as HsProtobuf -import qualified Proto3.Suite.DotProto as HsProtobuf -import qualified Proto3.Suite.JSONPB as HsJSONPB -import Proto3.Suite.JSONPB ((.=), (.:)) -import qualified Proto3.Suite.Types as HsProtobuf -import qualified Proto3.Wire as HsProtobuf -import qualified Control.Applicative as Hs -import Control.Applicative ((<*>), (<|>), (<$>)) -import qualified Control.DeepSeq as Hs -import qualified Control.Monad as Hs -import qualified Data.ByteString as Hs -import qualified Data.Coerce as Hs -import qualified Data.Int as Hs (Int16, Int32, Int64) -import qualified Data.List.NonEmpty as Hs (NonEmpty(..)) -import qualified Data.Map as Hs (Map, mapKeysMonotonic) -import qualified Data.Proxy as Proxy -import qualified Data.String as Hs (fromString) -import qualified Data.Text.Lazy as Hs (Text) -import qualified Data.Vector as Hs (Vector) -import qualified Data.Word as Hs (Word16, Word32, Word64) -import qualified GHC.Enum as Hs -import qualified GHC.Generics as Hs -import qualified Unsafe.Coerce as Hs - -data DisconnectMessage = DisconnectMessage{} - deriving (Int -> DisconnectMessage -> ShowS +module Data.Sawtooth.Network where +import qualified Prelude as Hs +import qualified Proto3.Suite.Class as HsProtobuf +import qualified Proto3.Suite.DotProto as HsProtobuf +import qualified Proto3.Suite.JSONPB as HsJSONPB +import Proto3.Suite.JSONPB ((.=), (.:)) +import qualified Proto3.Suite.Types as HsProtobuf +import qualified Proto3.Wire as HsProtobuf +import qualified Control.Applicative as Hs +import Control.Applicative ((<*>), (<|>), (<$>)) +import qualified Control.DeepSeq as Hs +import qualified Control.Monad as Hs +import qualified Data.ByteString as Hs +import qualified Data.Coerce as Hs +import qualified Data.Int as Hs (Int16, Int32, Int64) +import qualified Data.List.NonEmpty as Hs (NonEmpty(..)) +import qualified Data.Map as Hs (Map, mapKeysMonotonic) +import qualified Data.Proxy as Proxy +import qualified Data.String as Hs (fromString) +import qualified Data.Text.Lazy as Hs (Text) +import qualified Data.Vector as Hs (Vector) +import qualified Data.Word as Hs (Word16, Word32, Word64) +import qualified GHC.Enum as Hs +import qualified GHC.Generics as Hs +import qualified Unsafe.Coerce as Hs + +data DisconnectMessage = DisconnectMessage{} + deriving (Int -> DisconnectMessage -> ShowS [DisconnectMessage] -> ShowS DisconnectMessage -> String (Int -> DisconnectMessage -> ShowS) @@ -52,7 +51,7 @@ show :: DisconnectMessage -> String $cshow :: DisconnectMessage -> String showsPrec :: Int -> DisconnectMessage -> ShowS $cshowsPrec :: Int -> DisconnectMessage -> ShowS -Hs.Show, DisconnectMessage -> DisconnectMessage -> Bool +Hs.Show, DisconnectMessage -> DisconnectMessage -> Bool (DisconnectMessage -> DisconnectMessage -> Bool) -> (DisconnectMessage -> DisconnectMessage -> Bool) -> Eq DisconnectMessage @@ -61,9 +60,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: DisconnectMessage -> DisconnectMessage -> Bool == :: DisconnectMessage -> DisconnectMessage -> Bool $c== :: DisconnectMessage -> DisconnectMessage -> Bool -Hs.Eq, Eq DisconnectMessage -Eq DisconnectMessage => -(DisconnectMessage -> DisconnectMessage -> Ordering) +Hs.Eq, Eq DisconnectMessage +Eq DisconnectMessage +-> (DisconnectMessage -> DisconnectMessage -> Ordering) -> (DisconnectMessage -> DisconnectMessage -> Bool) -> (DisconnectMessage -> DisconnectMessage -> Bool) -> (DisconnectMessage -> DisconnectMessage -> Bool) @@ -75,8 +74,8 @@ DisconnectMessage -> DisconnectMessage -> Bool DisconnectMessage -> DisconnectMessage -> Ordering DisconnectMessage -> DisconnectMessage -> DisconnectMessage forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -99,7 +98,7 @@ $c< :: DisconnectMessage -> DisconnectMessage -> Bool compare :: DisconnectMessage -> DisconnectMessage -> Ordering $ccompare :: DisconnectMessage -> DisconnectMessage -> Ordering $cp1Ord :: Eq DisconnectMessage -Hs.Ord, (forall x. DisconnectMessage -> Rep DisconnectMessage x) +Hs.Ord, (forall x. DisconnectMessage -> Rep DisconnectMessage x) -> (forall x. Rep DisconnectMessage x -> DisconnectMessage) -> Generic DisconnectMessage forall x. Rep DisconnectMessage x -> DisconnectMessage @@ -108,115 +107,123 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep DisconnectMessage x -> DisconnectMessage $cfrom :: forall x. DisconnectMessage -> Rep DisconnectMessage x -Hs.Generic, DisconnectMessage -> () +Hs.Generic, DisconnectMessage -> () (DisconnectMessage -> ()) -> NFData DisconnectMessage forall a. (a -> ()) -> NFData a rnf :: DisconnectMessage -> () $crnf :: DisconnectMessage -> () -Hs.NFData) - -instance HsProtobuf.Named DisconnectMessage where - nameOf :: Proxy# DisconnectMessage -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named DisconnectMessage where + nameOf :: Proxy# DisconnectMessage -> string +nameOf Proxy# DisconnectMessage +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "DisconnectMessage") - -instance HsProtobuf.HasDefault DisconnectMessage - -instance HsProtobuf.Message DisconnectMessage where - encodeMessage :: FieldNumber -> DisconnectMessage -> MessageBuilder -encodeMessage _ DisconnectMessage{} = ([MessageBuilder] -> MessageBuilder +Hs.fromString String +"DisconnectMessage") + +instance HsProtobuf.HasDefault DisconnectMessage + +instance HsProtobuf.Message DisconnectMessage where + encodeMessage :: FieldNumber -> DisconnectMessage -> MessageBuilder +encodeMessage FieldNumber +_ DisconnectMessage{} = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat []) - decodeMessage :: FieldNumber -> Parser RawMessage DisconnectMessage -decodeMessage _ = (DisconnectMessage -> Parser RawMessage DisconnectMessage +Hs.mconcat []) + decodeMessage :: FieldNumber -> Parser RawMessage DisconnectMessage +decodeMessage FieldNumber +_ = (DisconnectMessage -> Parser RawMessage DisconnectMessage forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure DisconnectMessage +Hs.pure DisconnectMessage DisconnectMessage) - dotProto :: Proxy# DisconnectMessage -> [DotProtoField] -dotProto _ = [] - -instance HsJSONPB.ToJSONPB DisconnectMessage where - toJSONPB :: DisconnectMessage -> Options -> Value -toJSONPB (DisconnectMessage + dotProto :: Proxy# DisconnectMessage -> [DotProtoField] +dotProto Proxy# DisconnectMessage +_ = [] + +instance HsJSONPB.ToJSONPB DisconnectMessage where + toJSONPB :: DisconnectMessage -> Options -> Value +toJSONPB (DisconnectMessage DisconnectMessage) = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object []) - toEncodingPB :: DisconnectMessage -> Options -> Encoding -toEncodingPB (DisconnectMessage +HsJSONPB.object []) + toEncodingPB :: DisconnectMessage -> Options -> Encoding +toEncodingPB (DisconnectMessage DisconnectMessage) = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs []) - -instance HsJSONPB.FromJSONPB DisconnectMessage where - parseJSONPB :: Value -> Parser DisconnectMessage -parseJSONPB - = (String +HsJSONPB.pairs []) + +instance HsJSONPB.FromJSONPB DisconnectMessage where + parseJSONPB :: Value -> Parser DisconnectMessage +parseJSONPB + = (String -> (Object -> Parser DisconnectMessage) -> Value -> Parser DisconnectMessage forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "DisconnectMessage" - (\ obj :: Object -obj -> (DisconnectMessage -> Parser DisconnectMessage +HsJSONPB.withObject String +"DisconnectMessage" + (\ Object +obj -> (DisconnectMessage -> Parser DisconnectMessage forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure DisconnectMessage +Hs.pure DisconnectMessage DisconnectMessage))) - -instance HsJSONPB.ToJSON DisconnectMessage where - toJSON :: DisconnectMessage -> Value -toJSON = DisconnectMessage -> Value + +instance HsJSONPB.ToJSON DisconnectMessage where + toJSON :: DisconnectMessage -> Value +toJSON = DisconnectMessage -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: DisconnectMessage -> Encoding -toEncoding = DisconnectMessage -> Encoding +HsJSONPB.toAesonValue + toEncoding :: DisconnectMessage -> Encoding +toEncoding = DisconnectMessage -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON DisconnectMessage where - parseJSON :: Value -> Parser DisconnectMessage -parseJSON = Value -> Parser DisconnectMessage +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON DisconnectMessage where + parseJSON :: Value -> Parser DisconnectMessage +parseJSON = Value -> Parser DisconnectMessage forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema DisconnectMessage where - declareNamedSchema :: Proxy DisconnectMessage -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do NamedSchema -> Declare (Definitions Schema) NamedSchema +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema DisconnectMessage where + declareNamedSchema :: Proxy DisconnectMessage -> Declare (Definitions Schema) NamedSchema +declareNamedSchema Proxy DisconnectMessage +_ + = do NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "DisconnectMessage", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"DisconnectMessage", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList []}}) - -data PeerRegisterRequest = PeerRegisterRequest{PeerRegisterRequest -> Text +HsJSONPB.insOrdFromList []}}) + +data PeerRegisterRequest = PeerRegisterRequest{PeerRegisterRequest -> Text peerRegisterRequestEndpoint - :: Hs.Text, - PeerRegisterRequest -> Word32 -peerRegisterRequestProtocolVersion :: Hs.Word32} - deriving (Int -> PeerRegisterRequest -> ShowS + :: Hs.Text, + PeerRegisterRequest -> Word32 +peerRegisterRequestProtocolVersion :: Hs.Word32} + deriving (Int -> PeerRegisterRequest -> ShowS [PeerRegisterRequest] -> ShowS PeerRegisterRequest -> String (Int -> PeerRegisterRequest -> ShowS) @@ -231,7 +238,7 @@ show :: PeerRegisterRequest -> String $cshow :: PeerRegisterRequest -> String showsPrec :: Int -> PeerRegisterRequest -> ShowS $cshowsPrec :: Int -> PeerRegisterRequest -> ShowS -Hs.Show, PeerRegisterRequest -> PeerRegisterRequest -> Bool +Hs.Show, PeerRegisterRequest -> PeerRegisterRequest -> Bool (PeerRegisterRequest -> PeerRegisterRequest -> Bool) -> (PeerRegisterRequest -> PeerRegisterRequest -> Bool) -> Eq PeerRegisterRequest @@ -240,9 +247,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: PeerRegisterRequest -> PeerRegisterRequest -> Bool == :: PeerRegisterRequest -> PeerRegisterRequest -> Bool $c== :: PeerRegisterRequest -> PeerRegisterRequest -> Bool -Hs.Eq, Eq PeerRegisterRequest -Eq PeerRegisterRequest => -(PeerRegisterRequest -> PeerRegisterRequest -> Ordering) +Hs.Eq, Eq PeerRegisterRequest +Eq PeerRegisterRequest +-> (PeerRegisterRequest -> PeerRegisterRequest -> Ordering) -> (PeerRegisterRequest -> PeerRegisterRequest -> Bool) -> (PeerRegisterRequest -> PeerRegisterRequest -> Bool) -> (PeerRegisterRequest -> PeerRegisterRequest -> Bool) @@ -256,8 +263,8 @@ PeerRegisterRequest -> PeerRegisterRequest -> Bool PeerRegisterRequest -> PeerRegisterRequest -> Ordering PeerRegisterRequest -> PeerRegisterRequest -> PeerRegisterRequest forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -280,7 +287,7 @@ $c< :: PeerRegisterRequest -> PeerRegisterRequest -> Bool compare :: PeerRegisterRequest -> PeerRegisterRequest -> Ordering $ccompare :: PeerRegisterRequest -> PeerRegisterRequest -> Ordering $cp1Ord :: Eq PeerRegisterRequest -Hs.Ord, (forall x. PeerRegisterRequest -> Rep PeerRegisterRequest x) +Hs.Ord, (forall x. PeerRegisterRequest -> Rep PeerRegisterRequest x) -> (forall x. Rep PeerRegisterRequest x -> PeerRegisterRequest) -> Generic PeerRegisterRequest forall x. Rep PeerRegisterRequest x -> PeerRegisterRequest @@ -289,291 +296,317 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep PeerRegisterRequest x -> PeerRegisterRequest $cfrom :: forall x. PeerRegisterRequest -> Rep PeerRegisterRequest x -Hs.Generic, PeerRegisterRequest -> () +Hs.Generic, PeerRegisterRequest -> () (PeerRegisterRequest -> ()) -> NFData PeerRegisterRequest forall a. (a -> ()) -> NFData a rnf :: PeerRegisterRequest -> () $crnf :: PeerRegisterRequest -> () -Hs.NFData) - -instance HsProtobuf.Named PeerRegisterRequest where - nameOf :: Proxy# PeerRegisterRequest -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named PeerRegisterRequest where + nameOf :: Proxy# PeerRegisterRequest -> string +nameOf Proxy# PeerRegisterRequest +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "PeerRegisterRequest") - -instance HsProtobuf.HasDefault PeerRegisterRequest - -instance HsProtobuf.Message PeerRegisterRequest where - encodeMessage :: FieldNumber -> PeerRegisterRequest -> MessageBuilder -encodeMessage _ - PeerRegisterRequest{peerRegisterRequestEndpoint :: PeerRegisterRequest -> Text +Hs.fromString String +"PeerRegisterRequest") + +instance HsProtobuf.HasDefault PeerRegisterRequest + +instance HsProtobuf.Message PeerRegisterRequest where + encodeMessage :: FieldNumber -> PeerRegisterRequest -> MessageBuilder +encodeMessage FieldNumber +_ + PeerRegisterRequest{peerRegisterRequestEndpoint :: PeerRegisterRequest -> Text peerRegisterRequestEndpoint = - Text -peerRegisterRequestEndpoint, - peerRegisterRequestProtocolVersion :: PeerRegisterRequest -> Word32 + Text +peerRegisterRequestEndpoint, + peerRegisterRequestProtocolVersion :: PeerRegisterRequest -> Word32 peerRegisterRequestProtocolVersion = - Word32 -peerRegisterRequestProtocolVersion} - = ([MessageBuilder] -> MessageBuilder + Word32 +peerRegisterRequestProtocolVersion} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> Text -> MessageBuilder +Hs.mconcat + [(FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Text -peerRegisterRequestEndpoint), - (FieldNumber -> Word32 -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Text +peerRegisterRequestEndpoint), + (FieldNumber -> Word32 -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - Word32 -peerRegisterRequestProtocolVersion)]) - decodeMessage :: FieldNumber -> Parser RawMessage PeerRegisterRequest -decodeMessage _ - = ((Text -> Word32 -> PeerRegisterRequest) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + Word32 +peerRegisterRequestProtocolVersion)]) + decodeMessage :: FieldNumber -> Parser RawMessage PeerRegisterRequest +decodeMessage FieldNumber +_ + = ((Text -> Word32 -> PeerRegisterRequest) -> Parser RawMessage (Text -> Word32 -> PeerRegisterRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> Word32 -> PeerRegisterRequest +Hs.pure Text -> Word32 -> PeerRegisterRequest PeerRegisterRequest) Parser RawMessage (Text -> Word32 -> PeerRegisterRequest) -> Parser RawMessage Text -> Parser RawMessage (Word32 -> PeerRegisterRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser RawMessage (Word32 -> PeerRegisterRequest) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (Word32 -> PeerRegisterRequest) -> Parser RawMessage Word32 -> Parser RawMessage PeerRegisterRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Word32 -> FieldNumber -> Parser RawMessage Word32 +<*> + (Parser RawField Word32 -> FieldNumber -> Parser RawMessage Word32 forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Word32 +HsProtobuf.at Parser RawField Word32 forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2)) - dotProto :: Proxy# PeerRegisterRequest -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2)) + dotProto :: Proxy# PeerRegisterRequest -> [DotProtoField] +dotProto Proxy# PeerRegisterRequest +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "endpoint") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"endpoint") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.UInt32) - (String -> DotProtoIdentifier -HsProtobuf.Single "protocol_version") - [] - "")] - -instance HsJSONPB.ToJSONPB PeerRegisterRequest where - toJSONPB :: PeerRegisterRequest -> Options -> Value -toJSONPB (PeerRegisterRequest f1 :: Text -f1 f2 :: Word32 -f2) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["endpoint" Text -> Text -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.UInt32) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"protocol_version") + [] + String +"")] + +instance HsJSONPB.ToJSONPB PeerRegisterRequest where + toJSONPB :: PeerRegisterRequest -> Options -> Value +toJSONPB (PeerRegisterRequest Text +f1 Word32 +f2) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"endpoint" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1, "protocol_version" Text -> Word32 -> Options -> [Pair] +.= Text +f1, Text +"protocol_version" Text -> Word32 -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Word32 -f2]) - toEncodingPB :: PeerRegisterRequest -> Options -> Encoding -toEncodingPB (PeerRegisterRequest f1 :: Text -f1 f2 :: Word32 -f2) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["endpoint" Text -> Text -> Options -> Series +.= Word32 +f2]) + toEncodingPB :: PeerRegisterRequest -> Options -> Encoding +toEncodingPB (PeerRegisterRequest Text +f1 Word32 +f2) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"endpoint" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1, "protocol_version" Text -> Word32 -> Options -> Series +.= Text +f1, Text +"protocol_version" Text -> Word32 -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Word32 -f2]) - -instance HsJSONPB.FromJSONPB PeerRegisterRequest where - parseJSONPB :: Value -> Parser PeerRegisterRequest -parseJSONPB - = (String +.= Word32 +f2]) + +instance HsJSONPB.FromJSONPB PeerRegisterRequest where + parseJSONPB :: Value -> Parser PeerRegisterRequest +parseJSONPB + = (String -> (Object -> Parser PeerRegisterRequest) -> Value -> Parser PeerRegisterRequest forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "PeerRegisterRequest" - (\ obj :: Object -obj -> - ((Text -> Word32 -> PeerRegisterRequest) +HsJSONPB.withObject String +"PeerRegisterRequest" + (\ Object +obj -> + ((Text -> Word32 -> PeerRegisterRequest) -> Parser (Text -> Word32 -> PeerRegisterRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> Word32 -> PeerRegisterRequest +Hs.pure Text -> Word32 -> PeerRegisterRequest PeerRegisterRequest) Parser (Text -> Word32 -> PeerRegisterRequest) -> Parser Text -> Parser (Word32 -> PeerRegisterRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Text +<*> Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "endpoint" Parser (Word32 -> PeerRegisterRequest) +.: Text +"endpoint" Parser (Word32 -> PeerRegisterRequest) -> Parser Word32 -> Parser PeerRegisterRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser Word32 +<*> + Object +obj Object -> Text -> Parser Word32 forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "protocol_version")) - -instance HsJSONPB.ToJSON PeerRegisterRequest where - toJSON :: PeerRegisterRequest -> Value -toJSON = PeerRegisterRequest -> Value +.: Text +"protocol_version")) + +instance HsJSONPB.ToJSON PeerRegisterRequest where + toJSON :: PeerRegisterRequest -> Value +toJSON = PeerRegisterRequest -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: PeerRegisterRequest -> Encoding -toEncoding = PeerRegisterRequest -> Encoding +HsJSONPB.toAesonValue + toEncoding :: PeerRegisterRequest -> Encoding +toEncoding = PeerRegisterRequest -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON PeerRegisterRequest where - parseJSON :: Value -> Parser PeerRegisterRequest -parseJSON = Value -> Parser PeerRegisterRequest +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON PeerRegisterRequest where + parseJSON :: Value -> Parser PeerRegisterRequest +parseJSON = Value -> Parser PeerRegisterRequest forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema PeerRegisterRequest where - declareNamedSchema :: Proxy PeerRegisterRequest +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema PeerRegisterRequest where + declareNamedSchema :: Proxy PeerRegisterRequest -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_endpoint :: Proxy (OverrideToSchema Text) +declareNamedSchema Proxy PeerRegisterRequest +_ + = do let declare_endpoint :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_endpoint = Proxy (OverrideToSchema Text) +declare_endpoint = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -peerRegisterRequestEndpoint <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +peerRegisterRequestEndpoint <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_endpoint Proxy (OverrideToSchema Text) +declare_endpoint Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_protocol_version :: Proxy (OverrideToSchema Word32) +Proxy.Proxy + let declare_protocol_version :: Proxy (OverrideToSchema Word32) -> Declare (Definitions Schema) (Referenced Schema) -declare_protocol_version = Proxy (OverrideToSchema Word32) +declare_protocol_version = Proxy (OverrideToSchema Word32) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -peerRegisterRequestProtocolVersion <- Proxy (OverrideToSchema Word32) +HsJSONPB.declareSchemaRef + Referenced Schema +peerRegisterRequestProtocolVersion <- Proxy (OverrideToSchema Word32) -> Declare (Definitions Schema) (Referenced Schema) -declare_protocol_version - Proxy (OverrideToSchema Word32) +declare_protocol_version + Proxy (OverrideToSchema Word32) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy PeerRegisterRequest +Proxy.Proxy + let Proxy PeerRegisterRequest _ = (Text -> Word32 -> PeerRegisterRequest) -> Proxy (Text -> Word32 -> PeerRegisterRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> Word32 -> PeerRegisterRequest +Hs.pure Text -> Word32 -> PeerRegisterRequest PeerRegisterRequest Proxy (Text -> Word32 -> PeerRegisterRequest) -> Proxy Text -> Proxy (Word32 -> PeerRegisterRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema Text) +<*> + (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_endpoint - Proxy (Word32 -> PeerRegisterRequest) +declare_endpoint + Proxy (Word32 -> PeerRegisterRequest) -> Proxy Word32 -> Proxy PeerRegisterRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema Word32) +<*> (Proxy (OverrideToSchema Word32) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Word32 forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Word32) +HsJSONPB.asProxy Proxy (OverrideToSchema Word32) -> Declare (Definitions Schema) (Referenced Schema) -declare_protocol_version - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_protocol_version + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "PeerRegisterRequest", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"PeerRegisterRequest", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("endpoint", Referenced Schema -peerRegisterRequestEndpoint), - ("protocol_version", - Referenced Schema -peerRegisterRequestProtocolVersion)]}}) - -data PeerUnregisterRequest = PeerUnregisterRequest{} - deriving (Int -> PeerUnregisterRequest -> ShowS +HsJSONPB.insOrdFromList + [(Text +"endpoint", Referenced Schema +peerRegisterRequestEndpoint), + (Text +"protocol_version", + Referenced Schema +peerRegisterRequestProtocolVersion)]}}) + +data PeerUnregisterRequest = PeerUnregisterRequest{} + deriving (Int -> PeerUnregisterRequest -> ShowS [PeerUnregisterRequest] -> ShowS PeerUnregisterRequest -> String (Int -> PeerUnregisterRequest -> ShowS) @@ -588,7 +621,7 @@ show :: PeerUnregisterRequest -> String $cshow :: PeerUnregisterRequest -> String showsPrec :: Int -> PeerUnregisterRequest -> ShowS $cshowsPrec :: Int -> PeerUnregisterRequest -> ShowS -Hs.Show, PeerUnregisterRequest -> PeerUnregisterRequest -> Bool +Hs.Show, PeerUnregisterRequest -> PeerUnregisterRequest -> Bool (PeerUnregisterRequest -> PeerUnregisterRequest -> Bool) -> (PeerUnregisterRequest -> PeerUnregisterRequest -> Bool) -> Eq PeerUnregisterRequest @@ -597,9 +630,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: PeerUnregisterRequest -> PeerUnregisterRequest -> Bool == :: PeerUnregisterRequest -> PeerUnregisterRequest -> Bool $c== :: PeerUnregisterRequest -> PeerUnregisterRequest -> Bool -Hs.Eq, Eq PeerUnregisterRequest -Eq PeerUnregisterRequest => -(PeerUnregisterRequest -> PeerUnregisterRequest -> Ordering) +Hs.Eq, Eq PeerUnregisterRequest +Eq PeerUnregisterRequest +-> (PeerUnregisterRequest -> PeerUnregisterRequest -> Ordering) -> (PeerUnregisterRequest -> PeerUnregisterRequest -> Bool) -> (PeerUnregisterRequest -> PeerUnregisterRequest -> Bool) -> (PeerUnregisterRequest -> PeerUnregisterRequest -> Bool) @@ -614,8 +647,8 @@ PeerUnregisterRequest -> PeerUnregisterRequest -> Ordering PeerUnregisterRequest -> PeerUnregisterRequest -> PeerUnregisterRequest forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -642,7 +675,7 @@ $c< :: PeerUnregisterRequest -> PeerUnregisterRequest -> Bool compare :: PeerUnregisterRequest -> PeerUnregisterRequest -> Ordering $ccompare :: PeerUnregisterRequest -> PeerUnregisterRequest -> Ordering $cp1Ord :: Eq PeerUnregisterRequest -Hs.Ord, (forall x. PeerUnregisterRequest -> Rep PeerUnregisterRequest x) +Hs.Ord, (forall x. PeerUnregisterRequest -> Rep PeerUnregisterRequest x) -> (forall x. Rep PeerUnregisterRequest x -> PeerUnregisterRequest) -> Generic PeerUnregisterRequest forall x. Rep PeerUnregisterRequest x -> PeerUnregisterRequest @@ -651,112 +684,120 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep PeerUnregisterRequest x -> PeerUnregisterRequest $cfrom :: forall x. PeerUnregisterRequest -> Rep PeerUnregisterRequest x -Hs.Generic, PeerUnregisterRequest -> () +Hs.Generic, PeerUnregisterRequest -> () (PeerUnregisterRequest -> ()) -> NFData PeerUnregisterRequest forall a. (a -> ()) -> NFData a rnf :: PeerUnregisterRequest -> () $crnf :: PeerUnregisterRequest -> () -Hs.NFData) - -instance HsProtobuf.Named PeerUnregisterRequest where - nameOf :: Proxy# PeerUnregisterRequest -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named PeerUnregisterRequest where + nameOf :: Proxy# PeerUnregisterRequest -> string +nameOf Proxy# PeerUnregisterRequest +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "PeerUnregisterRequest") - -instance HsProtobuf.HasDefault PeerUnregisterRequest - -instance HsProtobuf.Message PeerUnregisterRequest where - encodeMessage :: FieldNumber -> PeerUnregisterRequest -> MessageBuilder -encodeMessage _ PeerUnregisterRequest{} = ([MessageBuilder] -> MessageBuilder +Hs.fromString String +"PeerUnregisterRequest") + +instance HsProtobuf.HasDefault PeerUnregisterRequest + +instance HsProtobuf.Message PeerUnregisterRequest where + encodeMessage :: FieldNumber -> PeerUnregisterRequest -> MessageBuilder +encodeMessage FieldNumber +_ PeerUnregisterRequest{} = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat []) - decodeMessage :: FieldNumber -> Parser RawMessage PeerUnregisterRequest -decodeMessage _ = (PeerUnregisterRequest -> Parser RawMessage PeerUnregisterRequest +Hs.mconcat []) + decodeMessage :: FieldNumber -> Parser RawMessage PeerUnregisterRequest +decodeMessage FieldNumber +_ = (PeerUnregisterRequest -> Parser RawMessage PeerUnregisterRequest forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure PeerUnregisterRequest +Hs.pure PeerUnregisterRequest PeerUnregisterRequest) - dotProto :: Proxy# PeerUnregisterRequest -> [DotProtoField] -dotProto _ = [] - -instance HsJSONPB.ToJSONPB PeerUnregisterRequest where - toJSONPB :: PeerUnregisterRequest -> Options -> Value -toJSONPB (PeerUnregisterRequest + dotProto :: Proxy# PeerUnregisterRequest -> [DotProtoField] +dotProto Proxy# PeerUnregisterRequest +_ = [] + +instance HsJSONPB.ToJSONPB PeerUnregisterRequest where + toJSONPB :: PeerUnregisterRequest -> Options -> Value +toJSONPB (PeerUnregisterRequest PeerUnregisterRequest) = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object []) - toEncodingPB :: PeerUnregisterRequest -> Options -> Encoding -toEncodingPB (PeerUnregisterRequest +HsJSONPB.object []) + toEncodingPB :: PeerUnregisterRequest -> Options -> Encoding +toEncodingPB (PeerUnregisterRequest PeerUnregisterRequest) = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs []) - -instance HsJSONPB.FromJSONPB PeerUnregisterRequest where - parseJSONPB :: Value -> Parser PeerUnregisterRequest -parseJSONPB - = (String +HsJSONPB.pairs []) + +instance HsJSONPB.FromJSONPB PeerUnregisterRequest where + parseJSONPB :: Value -> Parser PeerUnregisterRequest +parseJSONPB + = (String -> (Object -> Parser PeerUnregisterRequest) -> Value -> Parser PeerUnregisterRequest forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "PeerUnregisterRequest" - (\ obj :: Object -obj -> (PeerUnregisterRequest -> Parser PeerUnregisterRequest +HsJSONPB.withObject String +"PeerUnregisterRequest" + (\ Object +obj -> (PeerUnregisterRequest -> Parser PeerUnregisterRequest forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure PeerUnregisterRequest +Hs.pure PeerUnregisterRequest PeerUnregisterRequest))) - -instance HsJSONPB.ToJSON PeerUnregisterRequest where - toJSON :: PeerUnregisterRequest -> Value -toJSON = PeerUnregisterRequest -> Value + +instance HsJSONPB.ToJSON PeerUnregisterRequest where + toJSON :: PeerUnregisterRequest -> Value +toJSON = PeerUnregisterRequest -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: PeerUnregisterRequest -> Encoding -toEncoding = PeerUnregisterRequest -> Encoding +HsJSONPB.toAesonValue + toEncoding :: PeerUnregisterRequest -> Encoding +toEncoding = PeerUnregisterRequest -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON PeerUnregisterRequest where - parseJSON :: Value -> Parser PeerUnregisterRequest -parseJSON = Value -> Parser PeerUnregisterRequest +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON PeerUnregisterRequest where + parseJSON :: Value -> Parser PeerUnregisterRequest +parseJSON = Value -> Parser PeerUnregisterRequest forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema PeerUnregisterRequest where - declareNamedSchema :: Proxy PeerUnregisterRequest +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema PeerUnregisterRequest where + declareNamedSchema :: Proxy PeerUnregisterRequest -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do NamedSchema -> Declare (Definitions Schema) NamedSchema +declareNamedSchema Proxy PeerUnregisterRequest +_ + = do NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "PeerUnregisterRequest", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"PeerUnregisterRequest", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList []}}) - -data GetPeersRequest = GetPeersRequest{} - deriving (Int -> GetPeersRequest -> ShowS +HsJSONPB.insOrdFromList []}}) + +data GetPeersRequest = GetPeersRequest{} + deriving (Int -> GetPeersRequest -> ShowS [GetPeersRequest] -> ShowS GetPeersRequest -> String (Int -> GetPeersRequest -> ShowS) @@ -771,7 +812,7 @@ show :: GetPeersRequest -> String $cshow :: GetPeersRequest -> String showsPrec :: Int -> GetPeersRequest -> ShowS $cshowsPrec :: Int -> GetPeersRequest -> ShowS -Hs.Show, GetPeersRequest -> GetPeersRequest -> Bool +Hs.Show, GetPeersRequest -> GetPeersRequest -> Bool (GetPeersRequest -> GetPeersRequest -> Bool) -> (GetPeersRequest -> GetPeersRequest -> Bool) -> Eq GetPeersRequest @@ -780,9 +821,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: GetPeersRequest -> GetPeersRequest -> Bool == :: GetPeersRequest -> GetPeersRequest -> Bool $c== :: GetPeersRequest -> GetPeersRequest -> Bool -Hs.Eq, Eq GetPeersRequest -Eq GetPeersRequest => -(GetPeersRequest -> GetPeersRequest -> Ordering) +Hs.Eq, Eq GetPeersRequest +Eq GetPeersRequest +-> (GetPeersRequest -> GetPeersRequest -> Ordering) -> (GetPeersRequest -> GetPeersRequest -> Bool) -> (GetPeersRequest -> GetPeersRequest -> Bool) -> (GetPeersRequest -> GetPeersRequest -> Bool) @@ -794,8 +835,8 @@ GetPeersRequest -> GetPeersRequest -> Bool GetPeersRequest -> GetPeersRequest -> Ordering GetPeersRequest -> GetPeersRequest -> GetPeersRequest forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -818,7 +859,7 @@ $c< :: GetPeersRequest -> GetPeersRequest -> Bool compare :: GetPeersRequest -> GetPeersRequest -> Ordering $ccompare :: GetPeersRequest -> GetPeersRequest -> Ordering $cp1Ord :: Eq GetPeersRequest -Hs.Ord, (forall x. GetPeersRequest -> Rep GetPeersRequest x) +Hs.Ord, (forall x. GetPeersRequest -> Rep GetPeersRequest x) -> (forall x. Rep GetPeersRequest x -> GetPeersRequest) -> Generic GetPeersRequest forall x. Rep GetPeersRequest x -> GetPeersRequest @@ -827,113 +868,121 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep GetPeersRequest x -> GetPeersRequest $cfrom :: forall x. GetPeersRequest -> Rep GetPeersRequest x -Hs.Generic, GetPeersRequest -> () +Hs.Generic, GetPeersRequest -> () (GetPeersRequest -> ()) -> NFData GetPeersRequest forall a. (a -> ()) -> NFData a rnf :: GetPeersRequest -> () $crnf :: GetPeersRequest -> () -Hs.NFData) - -instance HsProtobuf.Named GetPeersRequest where - nameOf :: Proxy# GetPeersRequest -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named GetPeersRequest where + nameOf :: Proxy# GetPeersRequest -> string +nameOf Proxy# GetPeersRequest +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "GetPeersRequest") - -instance HsProtobuf.HasDefault GetPeersRequest - -instance HsProtobuf.Message GetPeersRequest where - encodeMessage :: FieldNumber -> GetPeersRequest -> MessageBuilder -encodeMessage _ GetPeersRequest{} = ([MessageBuilder] -> MessageBuilder +Hs.fromString String +"GetPeersRequest") + +instance HsProtobuf.HasDefault GetPeersRequest + +instance HsProtobuf.Message GetPeersRequest where + encodeMessage :: FieldNumber -> GetPeersRequest -> MessageBuilder +encodeMessage FieldNumber +_ GetPeersRequest{} = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat []) - decodeMessage :: FieldNumber -> Parser RawMessage GetPeersRequest -decodeMessage _ = (GetPeersRequest -> Parser RawMessage GetPeersRequest +Hs.mconcat []) + decodeMessage :: FieldNumber -> Parser RawMessage GetPeersRequest +decodeMessage FieldNumber +_ = (GetPeersRequest -> Parser RawMessage GetPeersRequest forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure GetPeersRequest +Hs.pure GetPeersRequest GetPeersRequest) - dotProto :: Proxy# GetPeersRequest -> [DotProtoField] -dotProto _ = [] - -instance HsJSONPB.ToJSONPB GetPeersRequest where - toJSONPB :: GetPeersRequest -> Options -> Value -toJSONPB (GetPeersRequest + dotProto :: Proxy# GetPeersRequest -> [DotProtoField] +dotProto Proxy# GetPeersRequest +_ = [] + +instance HsJSONPB.ToJSONPB GetPeersRequest where + toJSONPB :: GetPeersRequest -> Options -> Value +toJSONPB (GetPeersRequest GetPeersRequest) = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object []) - toEncodingPB :: GetPeersRequest -> Options -> Encoding -toEncodingPB (GetPeersRequest +HsJSONPB.object []) + toEncodingPB :: GetPeersRequest -> Options -> Encoding +toEncodingPB (GetPeersRequest GetPeersRequest) = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs []) - -instance HsJSONPB.FromJSONPB GetPeersRequest where - parseJSONPB :: Value -> Parser GetPeersRequest -parseJSONPB - = (String +HsJSONPB.pairs []) + +instance HsJSONPB.FromJSONPB GetPeersRequest where + parseJSONPB :: Value -> Parser GetPeersRequest +parseJSONPB + = (String -> (Object -> Parser GetPeersRequest) -> Value -> Parser GetPeersRequest forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "GetPeersRequest" - (\ obj :: Object -obj -> (GetPeersRequest -> Parser GetPeersRequest +HsJSONPB.withObject String +"GetPeersRequest" + (\ Object +obj -> (GetPeersRequest -> Parser GetPeersRequest forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure GetPeersRequest +Hs.pure GetPeersRequest GetPeersRequest))) - -instance HsJSONPB.ToJSON GetPeersRequest where - toJSON :: GetPeersRequest -> Value -toJSON = GetPeersRequest -> Value + +instance HsJSONPB.ToJSON GetPeersRequest where + toJSON :: GetPeersRequest -> Value +toJSON = GetPeersRequest -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: GetPeersRequest -> Encoding -toEncoding = GetPeersRequest -> Encoding +HsJSONPB.toAesonValue + toEncoding :: GetPeersRequest -> Encoding +toEncoding = GetPeersRequest -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON GetPeersRequest where - parseJSON :: Value -> Parser GetPeersRequest -parseJSON = Value -> Parser GetPeersRequest +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON GetPeersRequest where + parseJSON :: Value -> Parser GetPeersRequest +parseJSON = Value -> Parser GetPeersRequest forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema GetPeersRequest where - declareNamedSchema :: Proxy GetPeersRequest -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do NamedSchema -> Declare (Definitions Schema) NamedSchema +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema GetPeersRequest where + declareNamedSchema :: Proxy GetPeersRequest -> Declare (Definitions Schema) NamedSchema +declareNamedSchema Proxy GetPeersRequest +_ + = do NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "GetPeersRequest", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"GetPeersRequest", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList []}}) - -newtype GetPeersResponse = GetPeersResponse{GetPeersResponse -> Vector Text +HsJSONPB.insOrdFromList []}}) + +newtype GetPeersResponse = GetPeersResponse{GetPeersResponse -> Vector Text getPeersResponsePeerEndpoints - :: Hs.Vector Hs.Text} - deriving (Int -> GetPeersResponse -> ShowS + :: Hs.Vector Hs.Text} + deriving (Int -> GetPeersResponse -> ShowS [GetPeersResponse] -> ShowS GetPeersResponse -> String (Int -> GetPeersResponse -> ShowS) @@ -948,7 +997,7 @@ show :: GetPeersResponse -> String $cshow :: GetPeersResponse -> String showsPrec :: Int -> GetPeersResponse -> ShowS $cshowsPrec :: Int -> GetPeersResponse -> ShowS -Hs.Show, GetPeersResponse -> GetPeersResponse -> Bool +Hs.Show, GetPeersResponse -> GetPeersResponse -> Bool (GetPeersResponse -> GetPeersResponse -> Bool) -> (GetPeersResponse -> GetPeersResponse -> Bool) -> Eq GetPeersResponse @@ -957,9 +1006,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: GetPeersResponse -> GetPeersResponse -> Bool == :: GetPeersResponse -> GetPeersResponse -> Bool $c== :: GetPeersResponse -> GetPeersResponse -> Bool -Hs.Eq, Eq GetPeersResponse -Eq GetPeersResponse => -(GetPeersResponse -> GetPeersResponse -> Ordering) +Hs.Eq, Eq GetPeersResponse +Eq GetPeersResponse +-> (GetPeersResponse -> GetPeersResponse -> Ordering) -> (GetPeersResponse -> GetPeersResponse -> Bool) -> (GetPeersResponse -> GetPeersResponse -> Bool) -> (GetPeersResponse -> GetPeersResponse -> Bool) @@ -971,8 +1020,8 @@ GetPeersResponse -> GetPeersResponse -> Bool GetPeersResponse -> GetPeersResponse -> Ordering GetPeersResponse -> GetPeersResponse -> GetPeersResponse forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -995,7 +1044,7 @@ $c< :: GetPeersResponse -> GetPeersResponse -> Bool compare :: GetPeersResponse -> GetPeersResponse -> Ordering $ccompare :: GetPeersResponse -> GetPeersResponse -> Ordering $cp1Ord :: Eq GetPeersResponse -Hs.Ord, (forall x. GetPeersResponse -> Rep GetPeersResponse x) +Hs.Ord, (forall x. GetPeersResponse -> Rep GetPeersResponse x) -> (forall x. Rep GetPeersResponse x -> GetPeersResponse) -> Generic GetPeersResponse forall x. Rep GetPeersResponse x -> GetPeersResponse @@ -1004,213 +1053,228 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep GetPeersResponse x -> GetPeersResponse $cfrom :: forall x. GetPeersResponse -> Rep GetPeersResponse x -Hs.Generic, GetPeersResponse -> () +Hs.Generic, GetPeersResponse -> () (GetPeersResponse -> ()) -> NFData GetPeersResponse forall a. (a -> ()) -> NFData a rnf :: GetPeersResponse -> () $crnf :: GetPeersResponse -> () -Hs.NFData) - -instance HsProtobuf.Named GetPeersResponse where - nameOf :: Proxy# GetPeersResponse -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named GetPeersResponse where + nameOf :: Proxy# GetPeersResponse -> string +nameOf Proxy# GetPeersResponse +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "GetPeersResponse") - -instance HsProtobuf.HasDefault GetPeersResponse - -instance HsProtobuf.Message GetPeersResponse where - encodeMessage :: FieldNumber -> GetPeersResponse -> MessageBuilder -encodeMessage _ - GetPeersResponse{getPeersResponsePeerEndpoints :: GetPeersResponse -> Vector Text +Hs.fromString String +"GetPeersResponse") + +instance HsProtobuf.HasDefault GetPeersResponse + +instance HsProtobuf.Message GetPeersResponse where + encodeMessage :: FieldNumber -> GetPeersResponse -> MessageBuilder +encodeMessage FieldNumber +_ + GetPeersResponse{getPeersResponsePeerEndpoints :: GetPeersResponse -> Vector Text getPeersResponsePeerEndpoints = - Vector Text -getPeersResponsePeerEndpoints} - = ([MessageBuilder] -> MessageBuilder + Vector Text +getPeersResponsePeerEndpoints} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> UnpackedVec Text -> MessageBuilder +Hs.mconcat + [(FieldNumber -> UnpackedVec Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (Vector Text -> UnpackedVec Text -forall a b. Coercible a b => a -> b -Hs.coerce @(Hs.Vector Hs.Text) @(HsProtobuf.UnpackedVec Hs.Text) - Vector Text -getPeersResponsePeerEndpoints))]) - decodeMessage :: FieldNumber -> Parser RawMessage GetPeersResponse -decodeMessage _ - = ((Vector Text -> GetPeersResponse) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (Vector Text -> UnpackedVec Text +Hs.coerce @(Hs.Vector Hs.Text) @(HsProtobuf.UnpackedVec Hs.Text) + Vector Text +getPeersResponsePeerEndpoints))]) + decodeMessage :: FieldNumber -> Parser RawMessage GetPeersResponse +decodeMessage FieldNumber +_ + = ((Vector Text -> GetPeersResponse) -> Parser RawMessage (Vector Text -> GetPeersResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector Text -> GetPeersResponse +Hs.pure Vector Text -> GetPeersResponse GetPeersResponse) Parser RawMessage (Vector Text -> GetPeersResponse) -> Parser RawMessage (Vector Text) -> Parser RawMessage GetPeersResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (UnpackedVec Text) +<*> + (Parser RawMessage (UnpackedVec Text) -> Parser RawMessage (Vector Text) -forall a b. Coercible a b => a -> b -Hs.coerce @(_ (HsProtobuf.UnpackedVec Hs.Text)) - @(_ (Hs.Vector Hs.Text)) - (Parser RawField (UnpackedVec Text) +Hs.coerce @(_ (HsProtobuf.UnpackedVec Hs.Text)) + @(_ (Hs.Vector Hs.Text)) + (Parser RawField (UnpackedVec Text) -> FieldNumber -> Parser RawMessage (UnpackedVec Text) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (UnpackedVec Text) +HsProtobuf.at Parser RawField (UnpackedVec Text) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1))) - dotProto :: Proxy# GetPeersResponse -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1))) + dotProto :: Proxy# GetPeersResponse -> [DotProtoField] +dotProto Proxy# GetPeersResponse +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Repeated DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "peer_endpoints") - [] - "")] - -instance HsJSONPB.ToJSONPB GetPeersResponse where - toJSONPB :: GetPeersResponse -> Options -> Value -toJSONPB (GetPeersResponse f1 :: Vector Text -f1) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["peer_endpoints" Text -> Vector Text -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Repeated DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"peer_endpoints") + [] + String +"")] + +instance HsJSONPB.ToJSONPB GetPeersResponse where + toJSONPB :: GetPeersResponse -> Options -> Value +toJSONPB (GetPeersResponse Vector Text +f1) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"peer_endpoints" Text -> Vector Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Text -f1]) - toEncodingPB :: GetPeersResponse -> Options -> Encoding -toEncodingPB (GetPeersResponse f1 :: Vector Text -f1) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["peer_endpoints" Text -> Vector Text -> Options -> Series +.= Vector Text +f1]) + toEncodingPB :: GetPeersResponse -> Options -> Encoding +toEncodingPB (GetPeersResponse Vector Text +f1) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"peer_endpoints" Text -> Vector Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Text -f1]) - -instance HsJSONPB.FromJSONPB GetPeersResponse where - parseJSONPB :: Value -> Parser GetPeersResponse -parseJSONPB - = (String +.= Vector Text +f1]) + +instance HsJSONPB.FromJSONPB GetPeersResponse where + parseJSONPB :: Value -> Parser GetPeersResponse +parseJSONPB + = (String -> (Object -> Parser GetPeersResponse) -> Value -> Parser GetPeersResponse forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "GetPeersResponse" - (\ obj :: Object -obj -> ((Vector Text -> GetPeersResponse) +HsJSONPB.withObject String +"GetPeersResponse" + (\ Object +obj -> ((Vector Text -> GetPeersResponse) -> Parser (Vector Text -> GetPeersResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector Text -> GetPeersResponse +Hs.pure Vector Text -> GetPeersResponse GetPeersResponse) Parser (Vector Text -> GetPeersResponse) -> Parser (Vector Text) -> Parser GetPeersResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser (Vector Text) +<*> Object +obj Object -> Text -> Parser (Vector Text) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "peer_endpoints")) - -instance HsJSONPB.ToJSON GetPeersResponse where - toJSON :: GetPeersResponse -> Value -toJSON = GetPeersResponse -> Value +.: Text +"peer_endpoints")) + +instance HsJSONPB.ToJSON GetPeersResponse where + toJSON :: GetPeersResponse -> Value +toJSON = GetPeersResponse -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: GetPeersResponse -> Encoding -toEncoding = GetPeersResponse -> Encoding +HsJSONPB.toAesonValue + toEncoding :: GetPeersResponse -> Encoding +toEncoding = GetPeersResponse -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON GetPeersResponse where - parseJSON :: Value -> Parser GetPeersResponse -parseJSON = Value -> Parser GetPeersResponse +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON GetPeersResponse where + parseJSON :: Value -> Parser GetPeersResponse +parseJSON = Value -> Parser GetPeersResponse forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema GetPeersResponse where - declareNamedSchema :: Proxy GetPeersResponse -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_peer_endpoints :: Proxy (OverrideToSchema (Vector Text)) +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema GetPeersResponse where + declareNamedSchema :: Proxy GetPeersResponse -> Declare (Definitions Schema) NamedSchema +declareNamedSchema Proxy GetPeersResponse +_ + = do let declare_peer_endpoints :: Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) -declare_peer_endpoints = Proxy (OverrideToSchema (Vector Text)) +declare_peer_endpoints = Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -getPeersResponsePeerEndpoints <- Proxy (OverrideToSchema (Vector Text)) +HsJSONPB.declareSchemaRef + Referenced Schema +getPeersResponsePeerEndpoints <- Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) -declare_peer_endpoints Proxy (OverrideToSchema (Vector Text)) +declare_peer_endpoints Proxy (OverrideToSchema (Vector Text)) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy GetPeersResponse +Proxy.Proxy + let Proxy GetPeersResponse _ = (Vector Text -> GetPeersResponse) -> Proxy (Vector Text -> GetPeersResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector Text -> GetPeersResponse +Hs.pure Vector Text -> GetPeersResponse GetPeersResponse Proxy (Vector Text -> GetPeersResponse) -> Proxy (Vector Text) -> Proxy GetPeersResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema (Vector Text)) +<*> + (Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Vector Text) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Text)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) -declare_peer_endpoints - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_peer_endpoints + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "GetPeersResponse", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"GetPeersResponse", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("peer_endpoints", - Referenced Schema -getPeersResponsePeerEndpoints)]}}) - -data PingRequest = PingRequest{} - deriving (Int -> PingRequest -> ShowS +HsJSONPB.insOrdFromList + [(Text +"peer_endpoints", + Referenced Schema +getPeersResponsePeerEndpoints)]}}) + +data PingRequest = PingRequest{} + deriving (Int -> PingRequest -> ShowS [PingRequest] -> ShowS PingRequest -> String (Int -> PingRequest -> ShowS) @@ -1225,7 +1289,7 @@ show :: PingRequest -> String $cshow :: PingRequest -> String showsPrec :: Int -> PingRequest -> ShowS $cshowsPrec :: Int -> PingRequest -> ShowS -Hs.Show, PingRequest -> PingRequest -> Bool +Hs.Show, PingRequest -> PingRequest -> Bool (PingRequest -> PingRequest -> Bool) -> (PingRequest -> PingRequest -> Bool) -> Eq PingRequest forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a @@ -1233,9 +1297,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: PingRequest -> PingRequest -> Bool == :: PingRequest -> PingRequest -> Bool $c== :: PingRequest -> PingRequest -> Bool -Hs.Eq, Eq PingRequest -Eq PingRequest => -(PingRequest -> PingRequest -> Ordering) +Hs.Eq, Eq PingRequest +Eq PingRequest +-> (PingRequest -> PingRequest -> Ordering) -> (PingRequest -> PingRequest -> Bool) -> (PingRequest -> PingRequest -> Bool) -> (PingRequest -> PingRequest -> Bool) @@ -1247,8 +1311,8 @@ PingRequest -> PingRequest -> Bool PingRequest -> PingRequest -> Ordering PingRequest -> PingRequest -> PingRequest forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -1271,7 +1335,7 @@ $c< :: PingRequest -> PingRequest -> Bool compare :: PingRequest -> PingRequest -> Ordering $ccompare :: PingRequest -> PingRequest -> Ordering $cp1Ord :: Eq PingRequest -Hs.Ord, (forall x. PingRequest -> Rep PingRequest x) +Hs.Ord, (forall x. PingRequest -> Rep PingRequest x) -> (forall x. Rep PingRequest x -> PingRequest) -> Generic PingRequest forall x. Rep PingRequest x -> PingRequest @@ -1280,109 +1344,117 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep PingRequest x -> PingRequest $cfrom :: forall x. PingRequest -> Rep PingRequest x -Hs.Generic, PingRequest -> () +Hs.Generic, PingRequest -> () (PingRequest -> ()) -> NFData PingRequest forall a. (a -> ()) -> NFData a rnf :: PingRequest -> () $crnf :: PingRequest -> () -Hs.NFData) - -instance HsProtobuf.Named PingRequest where - nameOf :: Proxy# PingRequest -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named PingRequest where + nameOf :: Proxy# PingRequest -> string +nameOf Proxy# PingRequest +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "PingRequest") - -instance HsProtobuf.HasDefault PingRequest - -instance HsProtobuf.Message PingRequest where - encodeMessage :: FieldNumber -> PingRequest -> MessageBuilder -encodeMessage _ PingRequest{} = ([MessageBuilder] -> MessageBuilder +Hs.fromString String +"PingRequest") + +instance HsProtobuf.HasDefault PingRequest + +instance HsProtobuf.Message PingRequest where + encodeMessage :: FieldNumber -> PingRequest -> MessageBuilder +encodeMessage FieldNumber +_ PingRequest{} = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat []) - decodeMessage :: FieldNumber -> Parser RawMessage PingRequest -decodeMessage _ = (PingRequest -> Parser RawMessage PingRequest +Hs.mconcat []) + decodeMessage :: FieldNumber -> Parser RawMessage PingRequest +decodeMessage FieldNumber +_ = (PingRequest -> Parser RawMessage PingRequest forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure PingRequest +Hs.pure PingRequest PingRequest) - dotProto :: Proxy# PingRequest -> [DotProtoField] -dotProto _ = [] - -instance HsJSONPB.ToJSONPB PingRequest where - toJSONPB :: PingRequest -> Options -> Value -toJSONPB (PingRequest + dotProto :: Proxy# PingRequest -> [DotProtoField] +dotProto Proxy# PingRequest +_ = [] + +instance HsJSONPB.ToJSONPB PingRequest where + toJSONPB :: PingRequest -> Options -> Value +toJSONPB (PingRequest PingRequest) = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object []) - toEncodingPB :: PingRequest -> Options -> Encoding -toEncodingPB (PingRequest +HsJSONPB.object []) + toEncodingPB :: PingRequest -> Options -> Encoding +toEncodingPB (PingRequest PingRequest) = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs []) - -instance HsJSONPB.FromJSONPB PingRequest where - parseJSONPB :: Value -> Parser PingRequest -parseJSONPB - = (String +HsJSONPB.pairs []) + +instance HsJSONPB.FromJSONPB PingRequest where + parseJSONPB :: Value -> Parser PingRequest +parseJSONPB + = (String -> (Object -> Parser PingRequest) -> Value -> Parser PingRequest forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "PingRequest" - (\ obj :: Object -obj -> (PingRequest -> Parser PingRequest +HsJSONPB.withObject String +"PingRequest" + (\ Object +obj -> (PingRequest -> Parser PingRequest forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure PingRequest +Hs.pure PingRequest PingRequest))) - -instance HsJSONPB.ToJSON PingRequest where - toJSON :: PingRequest -> Value -toJSON = PingRequest -> Value + +instance HsJSONPB.ToJSON PingRequest where + toJSON :: PingRequest -> Value +toJSON = PingRequest -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: PingRequest -> Encoding -toEncoding = PingRequest -> Encoding +HsJSONPB.toAesonValue + toEncoding :: PingRequest -> Encoding +toEncoding = PingRequest -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON PingRequest where - parseJSON :: Value -> Parser PingRequest -parseJSON = Value -> Parser PingRequest +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON PingRequest where + parseJSON :: Value -> Parser PingRequest +parseJSON = Value -> Parser PingRequest forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema PingRequest where - declareNamedSchema :: Proxy PingRequest -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do NamedSchema -> Declare (Definitions Schema) NamedSchema +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema PingRequest where + declareNamedSchema :: Proxy PingRequest -> Declare (Definitions Schema) NamedSchema +declareNamedSchema Proxy PingRequest +_ + = do NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "PingRequest", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"PingRequest", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList []}}) - -data PingResponse = PingResponse{} - deriving (Int -> PingResponse -> ShowS +HsJSONPB.insOrdFromList []}}) + +data PingResponse = PingResponse{} + deriving (Int -> PingResponse -> ShowS [PingResponse] -> ShowS PingResponse -> String (Int -> PingResponse -> ShowS) @@ -1397,7 +1469,7 @@ show :: PingResponse -> String $cshow :: PingResponse -> String showsPrec :: Int -> PingResponse -> ShowS $cshowsPrec :: Int -> PingResponse -> ShowS -Hs.Show, PingResponse -> PingResponse -> Bool +Hs.Show, PingResponse -> PingResponse -> Bool (PingResponse -> PingResponse -> Bool) -> (PingResponse -> PingResponse -> Bool) -> Eq PingResponse forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a @@ -1405,9 +1477,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: PingResponse -> PingResponse -> Bool == :: PingResponse -> PingResponse -> Bool $c== :: PingResponse -> PingResponse -> Bool -Hs.Eq, Eq PingResponse -Eq PingResponse => -(PingResponse -> PingResponse -> Ordering) +Hs.Eq, Eq PingResponse +Eq PingResponse +-> (PingResponse -> PingResponse -> Ordering) -> (PingResponse -> PingResponse -> Bool) -> (PingResponse -> PingResponse -> Bool) -> (PingResponse -> PingResponse -> Bool) @@ -1419,8 +1491,8 @@ PingResponse -> PingResponse -> Bool PingResponse -> PingResponse -> Ordering PingResponse -> PingResponse -> PingResponse forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -1443,7 +1515,7 @@ $c< :: PingResponse -> PingResponse -> Bool compare :: PingResponse -> PingResponse -> Ordering $ccompare :: PingResponse -> PingResponse -> Ordering $cp1Ord :: Eq PingResponse -Hs.Ord, (forall x. PingResponse -> Rep PingResponse x) +Hs.Ord, (forall x. PingResponse -> Rep PingResponse x) -> (forall x. Rep PingResponse x -> PingResponse) -> Generic PingResponse forall x. Rep PingResponse x -> PingResponse @@ -1452,117 +1524,125 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep PingResponse x -> PingResponse $cfrom :: forall x. PingResponse -> Rep PingResponse x -Hs.Generic, PingResponse -> () +Hs.Generic, PingResponse -> () (PingResponse -> ()) -> NFData PingResponse forall a. (a -> ()) -> NFData a rnf :: PingResponse -> () $crnf :: PingResponse -> () -Hs.NFData) - -instance HsProtobuf.Named PingResponse where - nameOf :: Proxy# PingResponse -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named PingResponse where + nameOf :: Proxy# PingResponse -> string +nameOf Proxy# PingResponse +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "PingResponse") - -instance HsProtobuf.HasDefault PingResponse - -instance HsProtobuf.Message PingResponse where - encodeMessage :: FieldNumber -> PingResponse -> MessageBuilder -encodeMessage _ PingResponse{} = ([MessageBuilder] -> MessageBuilder +Hs.fromString String +"PingResponse") + +instance HsProtobuf.HasDefault PingResponse + +instance HsProtobuf.Message PingResponse where + encodeMessage :: FieldNumber -> PingResponse -> MessageBuilder +encodeMessage FieldNumber +_ PingResponse{} = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat []) - decodeMessage :: FieldNumber -> Parser RawMessage PingResponse -decodeMessage _ = (PingResponse -> Parser RawMessage PingResponse +Hs.mconcat []) + decodeMessage :: FieldNumber -> Parser RawMessage PingResponse +decodeMessage FieldNumber +_ = (PingResponse -> Parser RawMessage PingResponse forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure PingResponse +Hs.pure PingResponse PingResponse) - dotProto :: Proxy# PingResponse -> [DotProtoField] -dotProto _ = [] - -instance HsJSONPB.ToJSONPB PingResponse where - toJSONPB :: PingResponse -> Options -> Value -toJSONPB (PingResponse + dotProto :: Proxy# PingResponse -> [DotProtoField] +dotProto Proxy# PingResponse +_ = [] + +instance HsJSONPB.ToJSONPB PingResponse where + toJSONPB :: PingResponse -> Options -> Value +toJSONPB (PingResponse PingResponse) = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object []) - toEncodingPB :: PingResponse -> Options -> Encoding -toEncodingPB (PingResponse +HsJSONPB.object []) + toEncodingPB :: PingResponse -> Options -> Encoding +toEncodingPB (PingResponse PingResponse) = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs []) - -instance HsJSONPB.FromJSONPB PingResponse where - parseJSONPB :: Value -> Parser PingResponse -parseJSONPB - = (String +HsJSONPB.pairs []) + +instance HsJSONPB.FromJSONPB PingResponse where + parseJSONPB :: Value -> Parser PingResponse +parseJSONPB + = (String -> (Object -> Parser PingResponse) -> Value -> Parser PingResponse forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "PingResponse" - (\ obj :: Object -obj -> (PingResponse -> Parser PingResponse +HsJSONPB.withObject String +"PingResponse" + (\ Object +obj -> (PingResponse -> Parser PingResponse forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure PingResponse +Hs.pure PingResponse PingResponse))) - -instance HsJSONPB.ToJSON PingResponse where - toJSON :: PingResponse -> Value -toJSON = PingResponse -> Value + +instance HsJSONPB.ToJSON PingResponse where + toJSON :: PingResponse -> Value +toJSON = PingResponse -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: PingResponse -> Encoding -toEncoding = PingResponse -> Encoding +HsJSONPB.toAesonValue + toEncoding :: PingResponse -> Encoding +toEncoding = PingResponse -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON PingResponse where - parseJSON :: Value -> Parser PingResponse -parseJSON = Value -> Parser PingResponse +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON PingResponse where + parseJSON :: Value -> Parser PingResponse +parseJSON = Value -> Parser PingResponse forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema PingResponse where - declareNamedSchema :: Proxy PingResponse -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do NamedSchema -> Declare (Definitions Schema) NamedSchema +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema PingResponse where + declareNamedSchema :: Proxy PingResponse -> Declare (Definitions Schema) NamedSchema +declareNamedSchema Proxy PingResponse +_ + = do NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "PingResponse", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"PingResponse", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList []}}) - -data GossipMessage = GossipMessage{GossipMessage -> ByteString +HsJSONPB.insOrdFromList []}}) + +data GossipMessage = GossipMessage{GossipMessage -> ByteString gossipMessageContent :: - Hs.ByteString, - GossipMessage -> Enumerated GossipMessage_ContentType + Hs.ByteString, + GossipMessage -> Enumerated GossipMessage_ContentType gossipMessageContentType :: - HsProtobuf.Enumerated - Data.Sawtooth.Network.GossipMessage_ContentType, - GossipMessage -> Word32 -gossipMessageTimeToLive :: Hs.Word32} - deriving (Int -> GossipMessage -> ShowS + HsProtobuf.Enumerated + Data.Sawtooth.Network.GossipMessage_ContentType, + GossipMessage -> Word32 +gossipMessageTimeToLive :: Hs.Word32} + deriving (Int -> GossipMessage -> ShowS [GossipMessage] -> ShowS GossipMessage -> String (Int -> GossipMessage -> ShowS) @@ -1577,7 +1657,7 @@ show :: GossipMessage -> String $cshow :: GossipMessage -> String showsPrec :: Int -> GossipMessage -> ShowS $cshowsPrec :: Int -> GossipMessage -> ShowS -Hs.Show, GossipMessage -> GossipMessage -> Bool +Hs.Show, GossipMessage -> GossipMessage -> Bool (GossipMessage -> GossipMessage -> Bool) -> (GossipMessage -> GossipMessage -> Bool) -> Eq GossipMessage forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a @@ -1585,9 +1665,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: GossipMessage -> GossipMessage -> Bool == :: GossipMessage -> GossipMessage -> Bool $c== :: GossipMessage -> GossipMessage -> Bool -Hs.Eq, Eq GossipMessage -Eq GossipMessage => -(GossipMessage -> GossipMessage -> Ordering) +Hs.Eq, Eq GossipMessage +Eq GossipMessage +-> (GossipMessage -> GossipMessage -> Ordering) -> (GossipMessage -> GossipMessage -> Bool) -> (GossipMessage -> GossipMessage -> Bool) -> (GossipMessage -> GossipMessage -> Bool) @@ -1599,8 +1679,8 @@ GossipMessage -> GossipMessage -> Bool GossipMessage -> GossipMessage -> Ordering GossipMessage -> GossipMessage -> GossipMessage forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -1623,7 +1703,7 @@ $c< :: GossipMessage -> GossipMessage -> Bool compare :: GossipMessage -> GossipMessage -> Ordering $ccompare :: GossipMessage -> GossipMessage -> Ordering $cp1Ord :: Eq GossipMessage -Hs.Ord, (forall x. GossipMessage -> Rep GossipMessage x) +Hs.Ord, (forall x. GossipMessage -> Rep GossipMessage x) -> (forall x. Rep GossipMessage x -> GossipMessage) -> Generic GossipMessage forall x. Rep GossipMessage x -> GossipMessage @@ -1632,65 +1712,72 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep GossipMessage x -> GossipMessage $cfrom :: forall x. GossipMessage -> Rep GossipMessage x -Hs.Generic, GossipMessage -> () +Hs.Generic, GossipMessage -> () (GossipMessage -> ()) -> NFData GossipMessage forall a. (a -> ()) -> NFData a rnf :: GossipMessage -> () $crnf :: GossipMessage -> () -Hs.NFData) - -instance HsProtobuf.Named GossipMessage where - nameOf :: Proxy# GossipMessage -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named GossipMessage where + nameOf :: Proxy# GossipMessage -> string +nameOf Proxy# GossipMessage +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "GossipMessage") - -instance HsProtobuf.HasDefault GossipMessage - -instance HsProtobuf.Message GossipMessage where - encodeMessage :: FieldNumber -> GossipMessage -> MessageBuilder -encodeMessage _ - GossipMessage{gossipMessageContent :: GossipMessage -> ByteString -gossipMessageContent = ByteString -gossipMessageContent, - gossipMessageContentType :: GossipMessage -> Enumerated GossipMessage_ContentType -gossipMessageContentType = Enumerated GossipMessage_ContentType -gossipMessageContentType, - gossipMessageTimeToLive :: GossipMessage -> Word32 -gossipMessageTimeToLive = Word32 -gossipMessageTimeToLive} - = ([MessageBuilder] -> MessageBuilder +Hs.fromString String +"GossipMessage") + +instance HsProtobuf.HasDefault GossipMessage + +instance HsProtobuf.Message GossipMessage where + encodeMessage :: FieldNumber -> GossipMessage -> MessageBuilder +encodeMessage FieldNumber +_ + GossipMessage{gossipMessageContent :: GossipMessage -> ByteString +gossipMessageContent = ByteString +gossipMessageContent, + gossipMessageContentType :: GossipMessage -> Enumerated GossipMessage_ContentType +gossipMessageContentType = Enumerated GossipMessage_ContentType +gossipMessageContentType, + gossipMessageTimeToLive :: GossipMessage -> Word32 +gossipMessageTimeToLive = Word32 +gossipMessageTimeToLive} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> ByteString -> MessageBuilder +Hs.mconcat + [(FieldNumber -> ByteString -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - ByteString -gossipMessageContent), - (FieldNumber +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + ByteString +gossipMessageContent), + (FieldNumber -> Enumerated GossipMessage_ContentType -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - Enumerated GossipMessage_ContentType -gossipMessageContentType), - (FieldNumber -> Word32 -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + Enumerated GossipMessage_ContentType +gossipMessageContentType), + (FieldNumber -> Word32 -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - Word32 -gossipMessageTimeToLive)]) - decodeMessage :: FieldNumber -> Parser RawMessage GossipMessage -decodeMessage _ - = ((ByteString +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + Word32 +gossipMessageTimeToLive)]) + decodeMessage :: FieldNumber -> Parser RawMessage GossipMessage +decodeMessage FieldNumber +_ + = ((ByteString -> Enumerated GossipMessage_ContentType -> Word32 -> GossipMessage) -> Parser RawMessage (ByteString -> Enumerated GossipMessage_ContentType -> Word32 -> GossipMessage) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString +Hs.pure ByteString -> Enumerated GossipMessage_ContentType -> Word32 -> GossipMessage GossipMessage) Parser RawMessage @@ -1701,158 +1788,179 @@ forall (f :: * -> *) a. Applicative f => a -> f a RawMessage (Enumerated GossipMessage_ContentType -> Word32 -> GossipMessage) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField ByteString +<*> + (Parser RawField ByteString -> FieldNumber -> Parser RawMessage ByteString forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField ByteString +HsProtobuf.at Parser RawField ByteString forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (Enumerated GossipMessage_ContentType -> Word32 -> GossipMessage) -> Parser RawMessage (Enumerated GossipMessage_ContentType) -> Parser RawMessage (Word32 -> GossipMessage) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField (Enumerated GossipMessage_ContentType) +<*> + (Parser RawField (Enumerated GossipMessage_ContentType) -> FieldNumber -> Parser RawMessage (Enumerated GossipMessage_ContentType) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (Enumerated GossipMessage_ContentType) +HsProtobuf.at Parser RawField (Enumerated GossipMessage_ContentType) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2)) - Parser RawMessage (Word32 -> GossipMessage) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2)) + Parser RawMessage (Word32 -> GossipMessage) -> Parser RawMessage Word32 -> Parser RawMessage GossipMessage forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Word32 -> FieldNumber -> Parser RawMessage Word32 +<*> + (Parser RawField Word32 -> FieldNumber -> Parser RawMessage Word32 forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Word32 +HsProtobuf.at Parser RawField Word32 forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3)) - dotProto :: Proxy# GossipMessage -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3)) + dotProto :: Proxy# GossipMessage -> [DotProtoField] +dotProto Proxy# GossipMessage +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.Bytes) - (String -> DotProtoIdentifier -HsProtobuf.Single "content") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.Bytes) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"content") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim - (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "ContentType"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "content_type") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim + (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"ContentType"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"content_type") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.UInt32) - (String -> DotProtoIdentifier -HsProtobuf.Single "time_to_live") - [] - "")] - -instance HsJSONPB.ToJSONPB GossipMessage where - toJSONPB :: GossipMessage -> Options -> Value -toJSONPB (GossipMessage f1 :: ByteString -f1 f2 :: Enumerated GossipMessage_ContentType -f2 f3 :: Word32 -f3) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object - ["content" Text -> ByteString -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.UInt32) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"time_to_live") + [] + String +"")] + +instance HsJSONPB.ToJSONPB GossipMessage where + toJSONPB :: GossipMessage -> Options -> Value +toJSONPB (GossipMessage ByteString +f1 Enumerated GossipMessage_ContentType +f2 Word32 +f3) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object + [Text +"content" Text -> ByteString -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f1, "content_type" Text -> Enumerated GossipMessage_ContentType -> Options -> [Pair] +.= ByteString +f1, Text +"content_type" Text -> Enumerated GossipMessage_ContentType -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated GossipMessage_ContentType -f2, "time_to_live" Text -> Word32 -> Options -> [Pair] +.= Enumerated GossipMessage_ContentType +f2, Text +"time_to_live" Text -> Word32 -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Word32 -f3]) - toEncodingPB :: GossipMessage -> Options -> Encoding -toEncodingPB (GossipMessage f1 :: ByteString -f1 f2 :: Enumerated GossipMessage_ContentType -f2 f3 :: Word32 -f3) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs - ["content" Text -> ByteString -> Options -> Series +.= Word32 +f3]) + toEncodingPB :: GossipMessage -> Options -> Encoding +toEncodingPB (GossipMessage ByteString +f1 Enumerated GossipMessage_ContentType +f2 Word32 +f3) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs + [Text +"content" Text -> ByteString -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f1, "content_type" Text -> Enumerated GossipMessage_ContentType -> Options -> Series +.= ByteString +f1, Text +"content_type" Text -> Enumerated GossipMessage_ContentType -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated GossipMessage_ContentType -f2, "time_to_live" Text -> Word32 -> Options -> Series +.= Enumerated GossipMessage_ContentType +f2, Text +"time_to_live" Text -> Word32 -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Word32 -f3]) - -instance HsJSONPB.FromJSONPB GossipMessage where - parseJSONPB :: Value -> Parser GossipMessage -parseJSONPB - = (String +.= Word32 +f3]) + +instance HsJSONPB.FromJSONPB GossipMessage where + parseJSONPB :: Value -> Parser GossipMessage +parseJSONPB + = (String -> (Object -> Parser GossipMessage) -> Value -> Parser GossipMessage forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "GossipMessage" - (\ obj :: Object -obj -> - ((ByteString +HsJSONPB.withObject String +"GossipMessage" + (\ Object +obj -> + ((ByteString -> Enumerated GossipMessage_ContentType -> Word32 -> GossipMessage) -> Parser (ByteString -> Enumerated GossipMessage_ContentType -> Word32 -> GossipMessage) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString +Hs.pure ByteString -> Enumerated GossipMessage_ContentType -> Word32 -> GossipMessage GossipMessage) Parser (ByteString @@ -1861,102 +1969,106 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Parser (Enumerated GossipMessage_ContentType -> Word32 -> GossipMessage) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser ByteString +<*> Object +obj Object -> Text -> Parser ByteString forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "content" Parser +.: Text +"content" Parser (Enumerated GossipMessage_ContentType -> Word32 -> GossipMessage) -> Parser (Enumerated GossipMessage_ContentType) -> Parser (Word32 -> GossipMessage) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser (Enumerated GossipMessage_ContentType) +<*> + Object +obj Object -> Text -> Parser (Enumerated GossipMessage_ContentType) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "content_type" - Parser (Word32 -> GossipMessage) +.: Text +"content_type" + Parser (Word32 -> GossipMessage) -> Parser Word32 -> Parser GossipMessage forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Word32 +<*> Object +obj Object -> Text -> Parser Word32 forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "time_to_live")) - -instance HsJSONPB.ToJSON GossipMessage where - toJSON :: GossipMessage -> Value -toJSON = GossipMessage -> Value +.: Text +"time_to_live")) + +instance HsJSONPB.ToJSON GossipMessage where + toJSON :: GossipMessage -> Value +toJSON = GossipMessage -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: GossipMessage -> Encoding -toEncoding = GossipMessage -> Encoding +HsJSONPB.toAesonValue + toEncoding :: GossipMessage -> Encoding +toEncoding = GossipMessage -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON GossipMessage where - parseJSON :: Value -> Parser GossipMessage -parseJSON = Value -> Parser GossipMessage +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON GossipMessage where + parseJSON :: Value -> Parser GossipMessage +parseJSON = Value -> Parser GossipMessage forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema GossipMessage where - declareNamedSchema :: Proxy GossipMessage -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_content :: Proxy (OverrideToSchema ByteString) +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema GossipMessage where + declareNamedSchema :: Proxy GossipMessage -> Declare (Definitions Schema) NamedSchema +declareNamedSchema Proxy GossipMessage +_ + = do let declare_content :: Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_content = Proxy (OverrideToSchema ByteString) +declare_content = Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -gossipMessageContent <- Proxy (OverrideToSchema ByteString) +HsJSONPB.declareSchemaRef + Referenced Schema +gossipMessageContent <- Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_content Proxy (OverrideToSchema ByteString) +declare_content Proxy (OverrideToSchema ByteString) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_content_type :: Proxy (OverrideToSchema (Enumerated GossipMessage_ContentType)) +Proxy.Proxy + let declare_content_type :: Proxy (OverrideToSchema (Enumerated GossipMessage_ContentType)) -> Declare (Definitions Schema) (Referenced Schema) -declare_content_type = Proxy (OverrideToSchema (Enumerated GossipMessage_ContentType)) +declare_content_type = Proxy (OverrideToSchema (Enumerated GossipMessage_ContentType)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -gossipMessageContentType <- Proxy (OverrideToSchema (Enumerated GossipMessage_ContentType)) +HsJSONPB.declareSchemaRef + Referenced Schema +gossipMessageContentType <- Proxy (OverrideToSchema (Enumerated GossipMessage_ContentType)) -> Declare (Definitions Schema) (Referenced Schema) -declare_content_type Proxy (OverrideToSchema (Enumerated GossipMessage_ContentType)) +declare_content_type Proxy (OverrideToSchema (Enumerated GossipMessage_ContentType)) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_time_to_live :: Proxy (OverrideToSchema Word32) +Proxy.Proxy + let declare_time_to_live :: Proxy (OverrideToSchema Word32) -> Declare (Definitions Schema) (Referenced Schema) -declare_time_to_live = Proxy (OverrideToSchema Word32) +declare_time_to_live = Proxy (OverrideToSchema Word32) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -gossipMessageTimeToLive <- Proxy (OverrideToSchema Word32) +HsJSONPB.declareSchemaRef + Referenced Schema +gossipMessageTimeToLive <- Proxy (OverrideToSchema Word32) -> Declare (Definitions Schema) (Referenced Schema) -declare_time_to_live Proxy (OverrideToSchema Word32) +declare_time_to_live Proxy (OverrideToSchema Word32) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy GossipMessage +Proxy.Proxy + let Proxy GossipMessage _ = (ByteString -> Enumerated GossipMessage_ContentType -> Word32 -> GossipMessage) -> Proxy (ByteString -> Enumerated GossipMessage_ContentType -> Word32 -> GossipMessage) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString +Hs.pure ByteString -> Enumerated GossipMessage_ContentType -> Word32 -> GossipMessage GossipMessage Proxy (ByteString @@ -1965,78 +2077,82 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Proxy (Enumerated GossipMessage_ContentType -> Word32 -> GossipMessage) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema ByteString) +<*> (Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy ByteString forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) +HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_content - Proxy +declare_content + Proxy (Enumerated GossipMessage_ContentType -> Word32 -> GossipMessage) -> Proxy (Enumerated GossipMessage_ContentType) -> Proxy (Word32 -> GossipMessage) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema (Enumerated GossipMessage_ContentType)) +<*> (Proxy (OverrideToSchema (Enumerated GossipMessage_ContentType)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Enumerated GossipMessage_ContentType) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Enumerated GossipMessage_ContentType)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Enumerated GossipMessage_ContentType)) -> Declare (Definitions Schema) (Referenced Schema) -declare_content_type - Proxy (Word32 -> GossipMessage) +declare_content_type + Proxy (Word32 -> GossipMessage) -> Proxy Word32 -> Proxy GossipMessage forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema Word32) +<*> (Proxy (OverrideToSchema Word32) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Word32 forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Word32) +HsJSONPB.asProxy Proxy (OverrideToSchema Word32) -> Declare (Definitions Schema) (Referenced Schema) -declare_time_to_live - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_time_to_live + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "GossipMessage", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"GossipMessage", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("content", Referenced Schema -gossipMessageContent), - ("content_type", Referenced Schema -gossipMessageContentType), - ("time_to_live", - Referenced Schema -gossipMessageTimeToLive)]}}) - -data GossipMessage_ContentType = GossipMessage_ContentTypeCONTENT_TYPE_UNSET - | GossipMessage_ContentTypeBLOCK - | GossipMessage_ContentTypeBATCH - | GossipMessage_ContentTypeCONSENSUS - deriving (Int -> GossipMessage_ContentType -> ShowS +HsJSONPB.insOrdFromList + [(Text +"content", Referenced Schema +gossipMessageContent), + (Text +"content_type", Referenced Schema +gossipMessageContentType), + (Text +"time_to_live", + Referenced Schema +gossipMessageTimeToLive)]}}) + +data GossipMessage_ContentType = GossipMessage_ContentTypeCONTENT_TYPE_UNSET + | GossipMessage_ContentTypeBLOCK + | GossipMessage_ContentTypeBATCH + | GossipMessage_ContentTypeCONSENSUS + deriving (Int -> GossipMessage_ContentType -> ShowS [GossipMessage_ContentType] -> ShowS GossipMessage_ContentType -> String (Int -> GossipMessage_ContentType -> ShowS) @@ -2051,7 +2167,7 @@ show :: GossipMessage_ContentType -> String $cshow :: GossipMessage_ContentType -> String showsPrec :: Int -> GossipMessage_ContentType -> ShowS $cshowsPrec :: Int -> GossipMessage_ContentType -> ShowS -Hs.Show, GossipMessage_ContentType -> GossipMessage_ContentType -> Bool +Hs.Show, GossipMessage_ContentType -> GossipMessage_ContentType -> Bool (GossipMessage_ContentType -> GossipMessage_ContentType -> Bool) -> (GossipMessage_ContentType -> GossipMessage_ContentType -> Bool) -> Eq GossipMessage_ContentType @@ -2060,7 +2176,7 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: GossipMessage_ContentType -> GossipMessage_ContentType -> Bool == :: GossipMessage_ContentType -> GossipMessage_ContentType -> Bool $c== :: GossipMessage_ContentType -> GossipMessage_ContentType -> Bool -Hs.Eq, (forall x. +Hs.Eq, (forall x. GossipMessage_ContentType -> Rep GossipMessage_ContentType x) -> (forall x. Rep GossipMessage_ContentType x -> GossipMessage_ContentType) @@ -2075,145 +2191,163 @@ $cto :: forall x. Rep GossipMessage_ContentType x -> GossipMessage_ContentType $cfrom :: forall x. GossipMessage_ContentType -> Rep GossipMessage_ContentType x -Hs.Generic, GossipMessage_ContentType -> () +Hs.Generic, GossipMessage_ContentType -> () (GossipMessage_ContentType -> ()) -> NFData GossipMessage_ContentType forall a. (a -> ()) -> NFData a rnf :: GossipMessage_ContentType -> () $crnf :: GossipMessage_ContentType -> () -Hs.NFData) - -instance HsProtobuf.Named GossipMessage_ContentType where - nameOf :: Proxy# GossipMessage_ContentType -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named GossipMessage_ContentType where + nameOf :: Proxy# GossipMessage_ContentType -> string +nameOf Proxy# GossipMessage_ContentType +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "GossipMessage_ContentType") - -instance HsProtobuf.HasDefault GossipMessage_ContentType - -instance Hs.Bounded GossipMessage_ContentType where - minBound :: GossipMessage_ContentType -minBound = GossipMessage_ContentType +Hs.fromString String +"GossipMessage_ContentType") + +instance HsProtobuf.HasDefault GossipMessage_ContentType + +instance Hs.Bounded GossipMessage_ContentType where + minBound :: GossipMessage_ContentType +minBound = GossipMessage_ContentType GossipMessage_ContentTypeCONTENT_TYPE_UNSET - maxBound :: GossipMessage_ContentType -maxBound = GossipMessage_ContentType + maxBound :: GossipMessage_ContentType +maxBound = GossipMessage_ContentType GossipMessage_ContentTypeCONSENSUS - -instance Hs.Ord GossipMessage_ContentType where - compare :: GossipMessage_ContentType -> GossipMessage_ContentType -> Ordering -compare x :: GossipMessage_ContentType -x y :: GossipMessage_ContentType -y - = Int32 -> Int32 -> Ordering + +instance Hs.Ord GossipMessage_ContentType where + compare :: GossipMessage_ContentType -> GossipMessage_ContentType -> Ordering +compare GossipMessage_ContentType +x GossipMessage_ContentType +y + = Int32 -> Int32 -> Ordering forall a. Ord a => a -> a -> Ordering -Hs.compare (GossipMessage_ContentType -> Int32 +Hs.compare (GossipMessage_ContentType -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum GossipMessage_ContentType -x) - (GossipMessage_ContentType -> Int32 +HsProtobuf.fromProtoEnum GossipMessage_ContentType +x) + (GossipMessage_ContentType -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum GossipMessage_ContentType -y) - -instance HsProtobuf.ProtoEnum GossipMessage_ContentType where - toProtoEnumMay :: Int32 -> Maybe GossipMessage_ContentType -toProtoEnumMay 0 - = GossipMessage_ContentType -> Maybe GossipMessage_ContentType +HsProtobuf.fromProtoEnum GossipMessage_ContentType +y) + +instance HsProtobuf.ProtoEnum GossipMessage_ContentType where + toProtoEnumMay :: Int32 -> Maybe GossipMessage_ContentType +toProtoEnumMay Int32 +0 + = GossipMessage_ContentType -> Maybe GossipMessage_ContentType forall a. a -> Maybe a -Hs.Just GossipMessage_ContentType +Hs.Just GossipMessage_ContentType GossipMessage_ContentTypeCONTENT_TYPE_UNSET - toProtoEnumMay 1 = GossipMessage_ContentType -> Maybe GossipMessage_ContentType + toProtoEnumMay Int32 +1 = GossipMessage_ContentType -> Maybe GossipMessage_ContentType forall a. a -> Maybe a -Hs.Just GossipMessage_ContentType +Hs.Just GossipMessage_ContentType GossipMessage_ContentTypeBLOCK - toProtoEnumMay 2 = GossipMessage_ContentType -> Maybe GossipMessage_ContentType + toProtoEnumMay Int32 +2 = GossipMessage_ContentType -> Maybe GossipMessage_ContentType forall a. a -> Maybe a -Hs.Just GossipMessage_ContentType +Hs.Just GossipMessage_ContentType GossipMessage_ContentTypeBATCH - toProtoEnumMay 3 = GossipMessage_ContentType -> Maybe GossipMessage_ContentType + toProtoEnumMay Int32 +3 = GossipMessage_ContentType -> Maybe GossipMessage_ContentType forall a. a -> Maybe a -Hs.Just GossipMessage_ContentType +Hs.Just GossipMessage_ContentType GossipMessage_ContentTypeCONSENSUS - toProtoEnumMay _ = Maybe GossipMessage_ContentType + toProtoEnumMay Int32 +_ = Maybe GossipMessage_ContentType forall a. Maybe a -Hs.Nothing - fromProtoEnum :: GossipMessage_ContentType -> Int32 -fromProtoEnum (GossipMessage_ContentType -GossipMessage_ContentTypeCONTENT_TYPE_UNSET) = 0 - fromProtoEnum (GossipMessage_ContentType -GossipMessage_ContentTypeBLOCK) = 1 - fromProtoEnum (GossipMessage_ContentType -GossipMessage_ContentTypeBATCH) = 2 - fromProtoEnum (GossipMessage_ContentType -GossipMessage_ContentTypeCONSENSUS) = 3 - -instance HsJSONPB.ToJSONPB GossipMessage_ContentType where - toJSONPB :: GossipMessage_ContentType -> Options -> Value -toJSONPB x :: GossipMessage_ContentType -x _ = GossipMessage_ContentType -> Value +Hs.Nothing + fromProtoEnum :: GossipMessage_ContentType -> Int32 +fromProtoEnum (GossipMessage_ContentType +GossipMessage_ContentTypeCONTENT_TYPE_UNSET) = Int32 +0 + fromProtoEnum (GossipMessage_ContentType +GossipMessage_ContentTypeBLOCK) = Int32 +1 + fromProtoEnum (GossipMessage_ContentType +GossipMessage_ContentTypeBATCH) = Int32 +2 + fromProtoEnum (GossipMessage_ContentType +GossipMessage_ContentTypeCONSENSUS) = Int32 +3 + +instance HsJSONPB.ToJSONPB GossipMessage_ContentType where + toJSONPB :: GossipMessage_ContentType -> Options -> Value +toJSONPB GossipMessage_ContentType +x Options +_ = GossipMessage_ContentType -> Value forall a. (Named a, Show a) => a -> Value -HsJSONPB.enumFieldString GossipMessage_ContentType -x - toEncodingPB :: GossipMessage_ContentType -> Options -> Encoding -toEncodingPB x :: GossipMessage_ContentType -x _ = GossipMessage_ContentType -> Encoding +HsJSONPB.enumFieldString GossipMessage_ContentType +x + toEncodingPB :: GossipMessage_ContentType -> Options -> Encoding +toEncodingPB GossipMessage_ContentType +x Options +_ = GossipMessage_ContentType -> Encoding forall a. (Named a, Show a) => a -> Encoding -HsJSONPB.enumFieldEncoding GossipMessage_ContentType -x - -instance HsJSONPB.FromJSONPB GossipMessage_ContentType where - parseJSONPB :: Value -> Parser GossipMessage_ContentType -parseJSONPB (HsJSONPB.String "CONTENT_TYPE_UNSET") - = GossipMessage_ContentType -> Parser GossipMessage_ContentType +HsJSONPB.enumFieldEncoding GossipMessage_ContentType +x + +instance HsJSONPB.FromJSONPB GossipMessage_ContentType where + parseJSONPB :: Value -> Parser GossipMessage_ContentType +parseJSONPB (HsJSONPB.String Text +"CONTENT_TYPE_UNSET") + = GossipMessage_ContentType -> Parser GossipMessage_ContentType forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure GossipMessage_ContentType +Hs.pure GossipMessage_ContentType GossipMessage_ContentTypeCONTENT_TYPE_UNSET - parseJSONPB (HsJSONPB.String "BLOCK") - = GossipMessage_ContentType -> Parser GossipMessage_ContentType + parseJSONPB (HsJSONPB.String Text +"BLOCK") + = GossipMessage_ContentType -> Parser GossipMessage_ContentType forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure GossipMessage_ContentType +Hs.pure GossipMessage_ContentType GossipMessage_ContentTypeBLOCK - parseJSONPB (HsJSONPB.String "BATCH") - = GossipMessage_ContentType -> Parser GossipMessage_ContentType + parseJSONPB (HsJSONPB.String Text +"BATCH") + = GossipMessage_ContentType -> Parser GossipMessage_ContentType forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure GossipMessage_ContentType +Hs.pure GossipMessage_ContentType GossipMessage_ContentTypeBATCH - parseJSONPB (HsJSONPB.String "CONSENSUS") - = GossipMessage_ContentType -> Parser GossipMessage_ContentType + parseJSONPB (HsJSONPB.String Text +"CONSENSUS") + = GossipMessage_ContentType -> Parser GossipMessage_ContentType forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure GossipMessage_ContentType +Hs.pure GossipMessage_ContentType GossipMessage_ContentTypeCONSENSUS - parseJSONPB v :: Value -v - = (String -> Value -> Parser GossipMessage_ContentType + parseJSONPB Value +v + = (String -> Value -> Parser GossipMessage_ContentType forall a. String -> Value -> Parser a -HsJSONPB.typeMismatch "GossipMessage_ContentType" Value -v) - -instance HsJSONPB.ToJSON GossipMessage_ContentType where - toJSON :: GossipMessage_ContentType -> Value -toJSON = GossipMessage_ContentType -> Value +HsJSONPB.typeMismatch String +"GossipMessage_ContentType" Value +v) + +instance HsJSONPB.ToJSON GossipMessage_ContentType where + toJSON :: GossipMessage_ContentType -> Value +toJSON = GossipMessage_ContentType -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: GossipMessage_ContentType -> Encoding -toEncoding = GossipMessage_ContentType -> Encoding +HsJSONPB.toAesonValue + toEncoding :: GossipMessage_ContentType -> Encoding +toEncoding = GossipMessage_ContentType -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON GossipMessage_ContentType where - parseJSON :: Value -> Parser GossipMessage_ContentType -parseJSON = Value -> Parser GossipMessage_ContentType +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON GossipMessage_ContentType where + parseJSON :: Value -> Parser GossipMessage_ContentType +parseJSON = Value -> Parser GossipMessage_ContentType forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsProtobuf.Finite GossipMessage_ContentType - -newtype NetworkAcknowledgement = NetworkAcknowledgement{NetworkAcknowledgement -> Enumerated NetworkAcknowledgement_Status +HsJSONPB.parseJSONPB + +instance HsProtobuf.Finite GossipMessage_ContentType + +newtype NetworkAcknowledgement = NetworkAcknowledgement{NetworkAcknowledgement -> Enumerated NetworkAcknowledgement_Status networkAcknowledgementStatus - :: - HsProtobuf.Enumerated - Data.Sawtooth.Network.NetworkAcknowledgement_Status} - deriving (Int -> NetworkAcknowledgement -> ShowS + :: + HsProtobuf.Enumerated + Data.Sawtooth.Network.NetworkAcknowledgement_Status} + deriving (Int -> NetworkAcknowledgement -> ShowS [NetworkAcknowledgement] -> ShowS NetworkAcknowledgement -> String (Int -> NetworkAcknowledgement -> ShowS) @@ -2228,7 +2362,7 @@ show :: NetworkAcknowledgement -> String $cshow :: NetworkAcknowledgement -> String showsPrec :: Int -> NetworkAcknowledgement -> ShowS $cshowsPrec :: Int -> NetworkAcknowledgement -> ShowS -Hs.Show, NetworkAcknowledgement -> NetworkAcknowledgement -> Bool +Hs.Show, NetworkAcknowledgement -> NetworkAcknowledgement -> Bool (NetworkAcknowledgement -> NetworkAcknowledgement -> Bool) -> (NetworkAcknowledgement -> NetworkAcknowledgement -> Bool) -> Eq NetworkAcknowledgement @@ -2237,9 +2371,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: NetworkAcknowledgement -> NetworkAcknowledgement -> Bool == :: NetworkAcknowledgement -> NetworkAcknowledgement -> Bool $c== :: NetworkAcknowledgement -> NetworkAcknowledgement -> Bool -Hs.Eq, Eq NetworkAcknowledgement -Eq NetworkAcknowledgement => -(NetworkAcknowledgement -> NetworkAcknowledgement -> Ordering) +Hs.Eq, Eq NetworkAcknowledgement +Eq NetworkAcknowledgement +-> (NetworkAcknowledgement -> NetworkAcknowledgement -> Ordering) -> (NetworkAcknowledgement -> NetworkAcknowledgement -> Bool) -> (NetworkAcknowledgement -> NetworkAcknowledgement -> Bool) -> (NetworkAcknowledgement -> NetworkAcknowledgement -> Bool) @@ -2254,8 +2388,8 @@ NetworkAcknowledgement -> NetworkAcknowledgement -> Ordering NetworkAcknowledgement -> NetworkAcknowledgement -> NetworkAcknowledgement forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -2282,7 +2416,7 @@ $c< :: NetworkAcknowledgement -> NetworkAcknowledgement -> Bool compare :: NetworkAcknowledgement -> NetworkAcknowledgement -> Ordering $ccompare :: NetworkAcknowledgement -> NetworkAcknowledgement -> Ordering $cp1Ord :: Eq NetworkAcknowledgement -Hs.Ord, (forall x. NetworkAcknowledgement -> Rep NetworkAcknowledgement x) +Hs.Ord, (forall x. NetworkAcknowledgement -> Rep NetworkAcknowledgement x) -> (forall x. Rep NetworkAcknowledgement x -> NetworkAcknowledgement) -> Generic NetworkAcknowledgement @@ -2292,48 +2426,53 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep NetworkAcknowledgement x -> NetworkAcknowledgement $cfrom :: forall x. NetworkAcknowledgement -> Rep NetworkAcknowledgement x -Hs.Generic, NetworkAcknowledgement -> () +Hs.Generic, NetworkAcknowledgement -> () (NetworkAcknowledgement -> ()) -> NFData NetworkAcknowledgement forall a. (a -> ()) -> NFData a rnf :: NetworkAcknowledgement -> () $crnf :: NetworkAcknowledgement -> () -Hs.NFData) - -instance HsProtobuf.Named NetworkAcknowledgement where - nameOf :: Proxy# NetworkAcknowledgement -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named NetworkAcknowledgement where + nameOf :: Proxy# NetworkAcknowledgement -> string +nameOf Proxy# NetworkAcknowledgement +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "NetworkAcknowledgement") - -instance HsProtobuf.HasDefault NetworkAcknowledgement - -instance HsProtobuf.Message NetworkAcknowledgement where - encodeMessage :: FieldNumber -> NetworkAcknowledgement -> MessageBuilder -encodeMessage _ - NetworkAcknowledgement{networkAcknowledgementStatus :: NetworkAcknowledgement -> Enumerated NetworkAcknowledgement_Status +Hs.fromString String +"NetworkAcknowledgement") + +instance HsProtobuf.HasDefault NetworkAcknowledgement + +instance HsProtobuf.Message NetworkAcknowledgement where + encodeMessage :: FieldNumber -> NetworkAcknowledgement -> MessageBuilder +encodeMessage FieldNumber +_ + NetworkAcknowledgement{networkAcknowledgementStatus :: NetworkAcknowledgement -> Enumerated NetworkAcknowledgement_Status networkAcknowledgementStatus = - Enumerated NetworkAcknowledgement_Status -networkAcknowledgementStatus} - = ([MessageBuilder] -> MessageBuilder + Enumerated NetworkAcknowledgement_Status +networkAcknowledgementStatus} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber +Hs.mconcat + [(FieldNumber -> Enumerated NetworkAcknowledgement_Status -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Enumerated NetworkAcknowledgement_Status -networkAcknowledgementStatus)]) - decodeMessage :: FieldNumber -> Parser RawMessage NetworkAcknowledgement -decodeMessage _ - = ((Enumerated NetworkAcknowledgement_Status +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Enumerated NetworkAcknowledgement_Status +networkAcknowledgementStatus)]) + decodeMessage :: FieldNumber -> Parser RawMessage NetworkAcknowledgement +decodeMessage FieldNumber +_ + = ((Enumerated NetworkAcknowledgement_Status -> NetworkAcknowledgement) -> Parser RawMessage (Enumerated NetworkAcknowledgement_Status -> NetworkAcknowledgement) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated NetworkAcknowledgement_Status -> NetworkAcknowledgement +Hs.pure Enumerated NetworkAcknowledgement_Status -> NetworkAcknowledgement NetworkAcknowledgement) Parser RawMessage (Enumerated NetworkAcknowledgement_Status @@ -2341,183 +2480,196 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Parser RawMessage (Enumerated NetworkAcknowledgement_Status) -> Parser RawMessage NetworkAcknowledgement forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField (Enumerated NetworkAcknowledgement_Status) +<*> + (Parser RawField (Enumerated NetworkAcknowledgement_Status) -> FieldNumber -> Parser RawMessage (Enumerated NetworkAcknowledgement_Status) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (Enumerated NetworkAcknowledgement_Status) +HsProtobuf.at Parser RawField (Enumerated NetworkAcknowledgement_Status) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - dotProto :: Proxy# NetworkAcknowledgement -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + dotProto :: Proxy# NetworkAcknowledgement -> [DotProtoField] +dotProto Proxy# NetworkAcknowledgement +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "Status"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "status") - [] - "")] - -instance HsJSONPB.ToJSONPB NetworkAcknowledgement where - toJSONPB :: NetworkAcknowledgement -> Options -> Value -toJSONPB (NetworkAcknowledgement f1 :: Enumerated NetworkAcknowledgement_Status -f1) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["status" Text +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"Status"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"status") + [] + String +"")] + +instance HsJSONPB.ToJSONPB NetworkAcknowledgement where + toJSONPB :: NetworkAcknowledgement -> Options -> Value +toJSONPB (NetworkAcknowledgement Enumerated NetworkAcknowledgement_Status +f1) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"status" Text -> Enumerated NetworkAcknowledgement_Status -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated NetworkAcknowledgement_Status -f1]) - toEncodingPB :: NetworkAcknowledgement -> Options -> Encoding -toEncodingPB (NetworkAcknowledgement f1 :: Enumerated NetworkAcknowledgement_Status -f1) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["status" Text +.= Enumerated NetworkAcknowledgement_Status +f1]) + toEncodingPB :: NetworkAcknowledgement -> Options -> Encoding +toEncodingPB (NetworkAcknowledgement Enumerated NetworkAcknowledgement_Status +f1) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"status" Text -> Enumerated NetworkAcknowledgement_Status -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated NetworkAcknowledgement_Status -f1]) - -instance HsJSONPB.FromJSONPB NetworkAcknowledgement where - parseJSONPB :: Value -> Parser NetworkAcknowledgement -parseJSONPB - = (String +.= Enumerated NetworkAcknowledgement_Status +f1]) + +instance HsJSONPB.FromJSONPB NetworkAcknowledgement where + parseJSONPB :: Value -> Parser NetworkAcknowledgement +parseJSONPB + = (String -> (Object -> Parser NetworkAcknowledgement) -> Value -> Parser NetworkAcknowledgement forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "NetworkAcknowledgement" - (\ obj :: Object -obj -> ((Enumerated NetworkAcknowledgement_Status +HsJSONPB.withObject String +"NetworkAcknowledgement" + (\ Object +obj -> ((Enumerated NetworkAcknowledgement_Status -> NetworkAcknowledgement) -> Parser (Enumerated NetworkAcknowledgement_Status -> NetworkAcknowledgement) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated NetworkAcknowledgement_Status -> NetworkAcknowledgement +Hs.pure Enumerated NetworkAcknowledgement_Status -> NetworkAcknowledgement NetworkAcknowledgement) Parser (Enumerated NetworkAcknowledgement_Status -> NetworkAcknowledgement) -> Parser (Enumerated NetworkAcknowledgement_Status) -> Parser NetworkAcknowledgement forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser (Enumerated NetworkAcknowledgement_Status) +<*> Object +obj Object -> Text -> Parser (Enumerated NetworkAcknowledgement_Status) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "status")) - -instance HsJSONPB.ToJSON NetworkAcknowledgement where - toJSON :: NetworkAcknowledgement -> Value -toJSON = NetworkAcknowledgement -> Value +.: Text +"status")) + +instance HsJSONPB.ToJSON NetworkAcknowledgement where + toJSON :: NetworkAcknowledgement -> Value +toJSON = NetworkAcknowledgement -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: NetworkAcknowledgement -> Encoding -toEncoding = NetworkAcknowledgement -> Encoding +HsJSONPB.toAesonValue + toEncoding :: NetworkAcknowledgement -> Encoding +toEncoding = NetworkAcknowledgement -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON NetworkAcknowledgement where - parseJSON :: Value -> Parser NetworkAcknowledgement -parseJSON = Value -> Parser NetworkAcknowledgement +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON NetworkAcknowledgement where + parseJSON :: Value -> Parser NetworkAcknowledgement +parseJSON = Value -> Parser NetworkAcknowledgement forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema NetworkAcknowledgement where - declareNamedSchema :: Proxy NetworkAcknowledgement +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema NetworkAcknowledgement where + declareNamedSchema :: Proxy NetworkAcknowledgement -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_status :: Proxy (OverrideToSchema (Enumerated NetworkAcknowledgement_Status)) +declareNamedSchema Proxy NetworkAcknowledgement +_ + = do let declare_status :: Proxy (OverrideToSchema (Enumerated NetworkAcknowledgement_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status = Proxy (OverrideToSchema (Enumerated NetworkAcknowledgement_Status)) +declare_status = Proxy (OverrideToSchema (Enumerated NetworkAcknowledgement_Status)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -networkAcknowledgementStatus <- Proxy (OverrideToSchema (Enumerated NetworkAcknowledgement_Status)) +HsJSONPB.declareSchemaRef + Referenced Schema +networkAcknowledgementStatus <- Proxy (OverrideToSchema (Enumerated NetworkAcknowledgement_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status Proxy (OverrideToSchema (Enumerated NetworkAcknowledgement_Status)) +declare_status Proxy (OverrideToSchema (Enumerated NetworkAcknowledgement_Status)) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy NetworkAcknowledgement +Proxy.Proxy + let Proxy NetworkAcknowledgement _ = (Enumerated NetworkAcknowledgement_Status -> NetworkAcknowledgement) -> Proxy (Enumerated NetworkAcknowledgement_Status -> NetworkAcknowledgement) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated NetworkAcknowledgement_Status -> NetworkAcknowledgement +Hs.pure Enumerated NetworkAcknowledgement_Status -> NetworkAcknowledgement NetworkAcknowledgement Proxy (Enumerated NetworkAcknowledgement_Status -> NetworkAcknowledgement) -> Proxy (Enumerated NetworkAcknowledgement_Status) -> Proxy NetworkAcknowledgement forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy +<*> + (Proxy (OverrideToSchema (Enumerated NetworkAcknowledgement_Status)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Enumerated NetworkAcknowledgement_Status) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Enumerated NetworkAcknowledgement_Status)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Enumerated NetworkAcknowledgement_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_status + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "NetworkAcknowledgement", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"NetworkAcknowledgement", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("status", Referenced Schema -networkAcknowledgementStatus)]}}) - -data NetworkAcknowledgement_Status = NetworkAcknowledgement_StatusSTATUS_UNSET - | NetworkAcknowledgement_StatusOK - | NetworkAcknowledgement_StatusERROR - deriving (Int -> NetworkAcknowledgement_Status -> ShowS +HsJSONPB.insOrdFromList + [(Text +"status", Referenced Schema +networkAcknowledgementStatus)]}}) + +data NetworkAcknowledgement_Status = NetworkAcknowledgement_StatusSTATUS_UNSET + | NetworkAcknowledgement_StatusOK + | NetworkAcknowledgement_StatusERROR + deriving (Int -> NetworkAcknowledgement_Status -> ShowS [NetworkAcknowledgement_Status] -> ShowS NetworkAcknowledgement_Status -> String (Int -> NetworkAcknowledgement_Status -> ShowS) @@ -2532,7 +2684,7 @@ show :: NetworkAcknowledgement_Status -> String $cshow :: NetworkAcknowledgement_Status -> String showsPrec :: Int -> NetworkAcknowledgement_Status -> ShowS $cshowsPrec :: Int -> NetworkAcknowledgement_Status -> ShowS -Hs.Show, NetworkAcknowledgement_Status +Hs.Show, NetworkAcknowledgement_Status -> NetworkAcknowledgement_Status -> Bool (NetworkAcknowledgement_Status -> NetworkAcknowledgement_Status -> Bool) @@ -2548,7 +2700,7 @@ $c/= :: NetworkAcknowledgement_Status -> NetworkAcknowledgement_Status -> Bool $c== :: NetworkAcknowledgement_Status -> NetworkAcknowledgement_Status -> Bool -Hs.Eq, (forall x. +Hs.Eq, (forall x. NetworkAcknowledgement_Status -> Rep NetworkAcknowledgement_Status x) -> (forall x. @@ -2569,143 +2721,158 @@ Rep NetworkAcknowledgement_Status x $cfrom :: forall x. NetworkAcknowledgement_Status -> Rep NetworkAcknowledgement_Status x -Hs.Generic, NetworkAcknowledgement_Status -> () +Hs.Generic, NetworkAcknowledgement_Status -> () (NetworkAcknowledgement_Status -> ()) -> NFData NetworkAcknowledgement_Status forall a. (a -> ()) -> NFData a rnf :: NetworkAcknowledgement_Status -> () $crnf :: NetworkAcknowledgement_Status -> () -Hs.NFData) - -instance HsProtobuf.Named NetworkAcknowledgement_Status where - nameOf :: Proxy# NetworkAcknowledgement_Status -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named NetworkAcknowledgement_Status where + nameOf :: Proxy# NetworkAcknowledgement_Status -> string +nameOf Proxy# NetworkAcknowledgement_Status +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "NetworkAcknowledgement_Status") - -instance HsProtobuf.HasDefault NetworkAcknowledgement_Status - -instance Hs.Bounded NetworkAcknowledgement_Status where - minBound :: NetworkAcknowledgement_Status -minBound = NetworkAcknowledgement_Status +Hs.fromString String +"NetworkAcknowledgement_Status") + +instance HsProtobuf.HasDefault NetworkAcknowledgement_Status + +instance Hs.Bounded NetworkAcknowledgement_Status where + minBound :: NetworkAcknowledgement_Status +minBound = NetworkAcknowledgement_Status NetworkAcknowledgement_StatusSTATUS_UNSET - maxBound :: NetworkAcknowledgement_Status -maxBound = NetworkAcknowledgement_Status + maxBound :: NetworkAcknowledgement_Status +maxBound = NetworkAcknowledgement_Status NetworkAcknowledgement_StatusERROR - -instance Hs.Ord NetworkAcknowledgement_Status where - compare :: NetworkAcknowledgement_Status + +instance Hs.Ord NetworkAcknowledgement_Status where + compare :: NetworkAcknowledgement_Status -> NetworkAcknowledgement_Status -> Ordering -compare x :: NetworkAcknowledgement_Status -x y :: NetworkAcknowledgement_Status -y - = Int32 -> Int32 -> Ordering +compare NetworkAcknowledgement_Status +x NetworkAcknowledgement_Status +y + = Int32 -> Int32 -> Ordering forall a. Ord a => a -> a -> Ordering -Hs.compare (NetworkAcknowledgement_Status -> Int32 +Hs.compare (NetworkAcknowledgement_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum NetworkAcknowledgement_Status -x) - (NetworkAcknowledgement_Status -> Int32 +HsProtobuf.fromProtoEnum NetworkAcknowledgement_Status +x) + (NetworkAcknowledgement_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum NetworkAcknowledgement_Status -y) - -instance HsProtobuf.ProtoEnum NetworkAcknowledgement_Status where - toProtoEnumMay :: Int32 -> Maybe NetworkAcknowledgement_Status -toProtoEnumMay 0 - = NetworkAcknowledgement_Status +HsProtobuf.fromProtoEnum NetworkAcknowledgement_Status +y) + +instance HsProtobuf.ProtoEnum NetworkAcknowledgement_Status where + toProtoEnumMay :: Int32 -> Maybe NetworkAcknowledgement_Status +toProtoEnumMay Int32 +0 + = NetworkAcknowledgement_Status -> Maybe NetworkAcknowledgement_Status forall a. a -> Maybe a -Hs.Just NetworkAcknowledgement_Status +Hs.Just NetworkAcknowledgement_Status NetworkAcknowledgement_StatusSTATUS_UNSET - toProtoEnumMay 1 = NetworkAcknowledgement_Status + toProtoEnumMay Int32 +1 = NetworkAcknowledgement_Status -> Maybe NetworkAcknowledgement_Status forall a. a -> Maybe a -Hs.Just NetworkAcknowledgement_Status +Hs.Just NetworkAcknowledgement_Status NetworkAcknowledgement_StatusOK - toProtoEnumMay 2 = NetworkAcknowledgement_Status + toProtoEnumMay Int32 +2 = NetworkAcknowledgement_Status -> Maybe NetworkAcknowledgement_Status forall a. a -> Maybe a -Hs.Just NetworkAcknowledgement_Status +Hs.Just NetworkAcknowledgement_Status NetworkAcknowledgement_StatusERROR - toProtoEnumMay _ = Maybe NetworkAcknowledgement_Status + toProtoEnumMay Int32 +_ = Maybe NetworkAcknowledgement_Status forall a. Maybe a -Hs.Nothing - fromProtoEnum :: NetworkAcknowledgement_Status -> Int32 -fromProtoEnum (NetworkAcknowledgement_Status -NetworkAcknowledgement_StatusSTATUS_UNSET) = 0 - fromProtoEnum (NetworkAcknowledgement_Status -NetworkAcknowledgement_StatusOK) = 1 - fromProtoEnum (NetworkAcknowledgement_Status -NetworkAcknowledgement_StatusERROR) = 2 - -instance HsJSONPB.ToJSONPB NetworkAcknowledgement_Status where - toJSONPB :: NetworkAcknowledgement_Status -> Options -> Value -toJSONPB x :: NetworkAcknowledgement_Status -x _ = NetworkAcknowledgement_Status -> Value +Hs.Nothing + fromProtoEnum :: NetworkAcknowledgement_Status -> Int32 +fromProtoEnum (NetworkAcknowledgement_Status +NetworkAcknowledgement_StatusSTATUS_UNSET) = Int32 +0 + fromProtoEnum (NetworkAcknowledgement_Status +NetworkAcknowledgement_StatusOK) = Int32 +1 + fromProtoEnum (NetworkAcknowledgement_Status +NetworkAcknowledgement_StatusERROR) = Int32 +2 + +instance HsJSONPB.ToJSONPB NetworkAcknowledgement_Status where + toJSONPB :: NetworkAcknowledgement_Status -> Options -> Value +toJSONPB NetworkAcknowledgement_Status +x Options +_ = NetworkAcknowledgement_Status -> Value forall a. (Named a, Show a) => a -> Value -HsJSONPB.enumFieldString NetworkAcknowledgement_Status -x - toEncodingPB :: NetworkAcknowledgement_Status -> Options -> Encoding -toEncodingPB x :: NetworkAcknowledgement_Status -x _ = NetworkAcknowledgement_Status -> Encoding +HsJSONPB.enumFieldString NetworkAcknowledgement_Status +x + toEncodingPB :: NetworkAcknowledgement_Status -> Options -> Encoding +toEncodingPB NetworkAcknowledgement_Status +x Options +_ = NetworkAcknowledgement_Status -> Encoding forall a. (Named a, Show a) => a -> Encoding -HsJSONPB.enumFieldEncoding NetworkAcknowledgement_Status -x - -instance HsJSONPB.FromJSONPB NetworkAcknowledgement_Status where - parseJSONPB :: Value -> Parser NetworkAcknowledgement_Status -parseJSONPB (HsJSONPB.String "STATUS_UNSET") - = NetworkAcknowledgement_Status +HsJSONPB.enumFieldEncoding NetworkAcknowledgement_Status +x + +instance HsJSONPB.FromJSONPB NetworkAcknowledgement_Status where + parseJSONPB :: Value -> Parser NetworkAcknowledgement_Status +parseJSONPB (HsJSONPB.String Text +"STATUS_UNSET") + = NetworkAcknowledgement_Status -> Parser NetworkAcknowledgement_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure NetworkAcknowledgement_Status +Hs.pure NetworkAcknowledgement_Status NetworkAcknowledgement_StatusSTATUS_UNSET - parseJSONPB (HsJSONPB.String "OK") - = NetworkAcknowledgement_Status + parseJSONPB (HsJSONPB.String Text +"OK") + = NetworkAcknowledgement_Status -> Parser NetworkAcknowledgement_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure NetworkAcknowledgement_Status +Hs.pure NetworkAcknowledgement_Status NetworkAcknowledgement_StatusOK - parseJSONPB (HsJSONPB.String "ERROR") - = NetworkAcknowledgement_Status + parseJSONPB (HsJSONPB.String Text +"ERROR") + = NetworkAcknowledgement_Status -> Parser NetworkAcknowledgement_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure NetworkAcknowledgement_Status +Hs.pure NetworkAcknowledgement_Status NetworkAcknowledgement_StatusERROR - parseJSONPB v :: Value -v - = (String -> Value -> Parser NetworkAcknowledgement_Status + parseJSONPB Value +v + = (String -> Value -> Parser NetworkAcknowledgement_Status forall a. String -> Value -> Parser a -HsJSONPB.typeMismatch "NetworkAcknowledgement_Status" Value -v) - -instance HsJSONPB.ToJSON NetworkAcknowledgement_Status where - toJSON :: NetworkAcknowledgement_Status -> Value -toJSON = NetworkAcknowledgement_Status -> Value +HsJSONPB.typeMismatch String +"NetworkAcknowledgement_Status" Value +v) + +instance HsJSONPB.ToJSON NetworkAcknowledgement_Status where + toJSON :: NetworkAcknowledgement_Status -> Value +toJSON = NetworkAcknowledgement_Status -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: NetworkAcknowledgement_Status -> Encoding -toEncoding = NetworkAcknowledgement_Status -> Encoding +HsJSONPB.toAesonValue + toEncoding :: NetworkAcknowledgement_Status -> Encoding +toEncoding = NetworkAcknowledgement_Status -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON NetworkAcknowledgement_Status where - parseJSON :: Value -> Parser NetworkAcknowledgement_Status -parseJSON = Value -> Parser NetworkAcknowledgement_Status +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON NetworkAcknowledgement_Status where + parseJSON :: Value -> Parser NetworkAcknowledgement_Status +parseJSON = Value -> Parser NetworkAcknowledgement_Status forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsProtobuf.Finite NetworkAcknowledgement_Status - -data GossipBlockRequest = GossipBlockRequest{GossipBlockRequest -> Text +HsJSONPB.parseJSONPB + +instance HsProtobuf.Finite NetworkAcknowledgement_Status + +data GossipBlockRequest = GossipBlockRequest{GossipBlockRequest -> Text gossipBlockRequestBlockId - :: Hs.Text, - GossipBlockRequest -> Text -gossipBlockRequestNonce :: Hs.Text, - GossipBlockRequest -> Word32 -gossipBlockRequestTimeToLive :: Hs.Word32} - deriving (Int -> GossipBlockRequest -> ShowS + :: Hs.Text, + GossipBlockRequest -> Text +gossipBlockRequestNonce :: Hs.Text, + GossipBlockRequest -> Word32 +gossipBlockRequestTimeToLive :: Hs.Word32} + deriving (Int -> GossipBlockRequest -> ShowS [GossipBlockRequest] -> ShowS GossipBlockRequest -> String (Int -> GossipBlockRequest -> ShowS) @@ -2720,7 +2887,7 @@ show :: GossipBlockRequest -> String $cshow :: GossipBlockRequest -> String showsPrec :: Int -> GossipBlockRequest -> ShowS $cshowsPrec :: Int -> GossipBlockRequest -> ShowS -Hs.Show, GossipBlockRequest -> GossipBlockRequest -> Bool +Hs.Show, GossipBlockRequest -> GossipBlockRequest -> Bool (GossipBlockRequest -> GossipBlockRequest -> Bool) -> (GossipBlockRequest -> GossipBlockRequest -> Bool) -> Eq GossipBlockRequest @@ -2729,9 +2896,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: GossipBlockRequest -> GossipBlockRequest -> Bool == :: GossipBlockRequest -> GossipBlockRequest -> Bool $c== :: GossipBlockRequest -> GossipBlockRequest -> Bool -Hs.Eq, Eq GossipBlockRequest -Eq GossipBlockRequest => -(GossipBlockRequest -> GossipBlockRequest -> Ordering) +Hs.Eq, Eq GossipBlockRequest +Eq GossipBlockRequest +-> (GossipBlockRequest -> GossipBlockRequest -> Ordering) -> (GossipBlockRequest -> GossipBlockRequest -> Bool) -> (GossipBlockRequest -> GossipBlockRequest -> Bool) -> (GossipBlockRequest -> GossipBlockRequest -> Bool) @@ -2743,8 +2910,8 @@ GossipBlockRequest -> GossipBlockRequest -> Bool GossipBlockRequest -> GossipBlockRequest -> Ordering GossipBlockRequest -> GossipBlockRequest -> GossipBlockRequest forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -2767,7 +2934,7 @@ $c< :: GossipBlockRequest -> GossipBlockRequest -> Bool compare :: GossipBlockRequest -> GossipBlockRequest -> Ordering $ccompare :: GossipBlockRequest -> GossipBlockRequest -> Ordering $cp1Ord :: Eq GossipBlockRequest -Hs.Ord, (forall x. GossipBlockRequest -> Rep GossipBlockRequest x) +Hs.Ord, (forall x. GossipBlockRequest -> Rep GossipBlockRequest x) -> (forall x. Rep GossipBlockRequest x -> GossipBlockRequest) -> Generic GossipBlockRequest forall x. Rep GossipBlockRequest x -> GossipBlockRequest @@ -2776,375 +2943,410 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep GossipBlockRequest x -> GossipBlockRequest $cfrom :: forall x. GossipBlockRequest -> Rep GossipBlockRequest x -Hs.Generic, GossipBlockRequest -> () +Hs.Generic, GossipBlockRequest -> () (GossipBlockRequest -> ()) -> NFData GossipBlockRequest forall a. (a -> ()) -> NFData a rnf :: GossipBlockRequest -> () $crnf :: GossipBlockRequest -> () -Hs.NFData) - -instance HsProtobuf.Named GossipBlockRequest where - nameOf :: Proxy# GossipBlockRequest -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named GossipBlockRequest where + nameOf :: Proxy# GossipBlockRequest -> string +nameOf Proxy# GossipBlockRequest +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "GossipBlockRequest") - -instance HsProtobuf.HasDefault GossipBlockRequest - -instance HsProtobuf.Message GossipBlockRequest where - encodeMessage :: FieldNumber -> GossipBlockRequest -> MessageBuilder -encodeMessage _ - GossipBlockRequest{gossipBlockRequestBlockId :: GossipBlockRequest -> Text +Hs.fromString String +"GossipBlockRequest") + +instance HsProtobuf.HasDefault GossipBlockRequest + +instance HsProtobuf.Message GossipBlockRequest where + encodeMessage :: FieldNumber -> GossipBlockRequest -> MessageBuilder +encodeMessage FieldNumber +_ + GossipBlockRequest{gossipBlockRequestBlockId :: GossipBlockRequest -> Text gossipBlockRequestBlockId = - Text -gossipBlockRequestBlockId, - gossipBlockRequestNonce :: GossipBlockRequest -> Text -gossipBlockRequestNonce = Text -gossipBlockRequestNonce, - gossipBlockRequestTimeToLive :: GossipBlockRequest -> Word32 -gossipBlockRequestTimeToLive = Word32 -gossipBlockRequestTimeToLive} - = ([MessageBuilder] -> MessageBuilder + Text +gossipBlockRequestBlockId, + gossipBlockRequestNonce :: GossipBlockRequest -> Text +gossipBlockRequestNonce = Text +gossipBlockRequestNonce, + gossipBlockRequestTimeToLive :: GossipBlockRequest -> Word32 +gossipBlockRequestTimeToLive = Word32 +gossipBlockRequestTimeToLive} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> Text -> MessageBuilder +Hs.mconcat + [(FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Text -gossipBlockRequestBlockId), - (FieldNumber -> Text -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Text +gossipBlockRequestBlockId), + (FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - Text -gossipBlockRequestNonce), - (FieldNumber -> Word32 -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + Text +gossipBlockRequestNonce), + (FieldNumber -> Word32 -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - Word32 -gossipBlockRequestTimeToLive)]) - decodeMessage :: FieldNumber -> Parser RawMessage GossipBlockRequest -decodeMessage _ - = ((Text -> Text -> Word32 -> GossipBlockRequest) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + Word32 +gossipBlockRequestTimeToLive)]) + decodeMessage :: FieldNumber -> Parser RawMessage GossipBlockRequest +decodeMessage FieldNumber +_ + = ((Text -> Text -> Word32 -> GossipBlockRequest) -> Parser RawMessage (Text -> Text -> Word32 -> GossipBlockRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> Text -> Word32 -> GossipBlockRequest +Hs.pure Text -> Text -> Word32 -> GossipBlockRequest GossipBlockRequest) Parser RawMessage (Text -> Text -> Word32 -> GossipBlockRequest) -> Parser RawMessage Text -> Parser RawMessage (Text -> Word32 -> GossipBlockRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser RawMessage (Text -> Word32 -> GossipBlockRequest) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (Text -> Word32 -> GossipBlockRequest) -> Parser RawMessage Text -> Parser RawMessage (Word32 -> GossipBlockRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2)) - Parser RawMessage (Word32 -> GossipBlockRequest) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2)) + Parser RawMessage (Word32 -> GossipBlockRequest) -> Parser RawMessage Word32 -> Parser RawMessage GossipBlockRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Word32 -> FieldNumber -> Parser RawMessage Word32 +<*> + (Parser RawField Word32 -> FieldNumber -> Parser RawMessage Word32 forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Word32 +HsProtobuf.at Parser RawField Word32 forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3)) - dotProto :: Proxy# GossipBlockRequest -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3)) + dotProto :: Proxy# GossipBlockRequest -> [DotProtoField] +dotProto Proxy# GossipBlockRequest +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "block_id") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"block_id") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "nonce") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"nonce") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.UInt32) - (String -> DotProtoIdentifier -HsProtobuf.Single "time_to_live") - [] - "")] - -instance HsJSONPB.ToJSONPB GossipBlockRequest where - toJSONPB :: GossipBlockRequest -> Options -> Value -toJSONPB (GossipBlockRequest f1 :: Text -f1 f2 :: Text -f2 f3 :: Word32 -f3) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object - ["block_id" Text -> Text -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.UInt32) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"time_to_live") + [] + String +"")] + +instance HsJSONPB.ToJSONPB GossipBlockRequest where + toJSONPB :: GossipBlockRequest -> Options -> Value +toJSONPB (GossipBlockRequest Text +f1 Text +f2 Word32 +f3) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object + [Text +"block_id" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1, "nonce" Text -> Text -> Options -> [Pair] +.= Text +f1, Text +"nonce" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f2, "time_to_live" Text -> Word32 -> Options -> [Pair] +.= Text +f2, Text +"time_to_live" Text -> Word32 -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Word32 -f3]) - toEncodingPB :: GossipBlockRequest -> Options -> Encoding -toEncodingPB (GossipBlockRequest f1 :: Text -f1 f2 :: Text -f2 f3 :: Word32 -f3) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs - ["block_id" Text -> Text -> Options -> Series +.= Word32 +f3]) + toEncodingPB :: GossipBlockRequest -> Options -> Encoding +toEncodingPB (GossipBlockRequest Text +f1 Text +f2 Word32 +f3) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs + [Text +"block_id" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1, "nonce" Text -> Text -> Options -> Series +.= Text +f1, Text +"nonce" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f2, "time_to_live" Text -> Word32 -> Options -> Series +.= Text +f2, Text +"time_to_live" Text -> Word32 -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Word32 -f3]) - -instance HsJSONPB.FromJSONPB GossipBlockRequest where - parseJSONPB :: Value -> Parser GossipBlockRequest -parseJSONPB - = (String +.= Word32 +f3]) + +instance HsJSONPB.FromJSONPB GossipBlockRequest where + parseJSONPB :: Value -> Parser GossipBlockRequest +parseJSONPB + = (String -> (Object -> Parser GossipBlockRequest) -> Value -> Parser GossipBlockRequest forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "GossipBlockRequest" - (\ obj :: Object -obj -> - ((Text -> Text -> Word32 -> GossipBlockRequest) +HsJSONPB.withObject String +"GossipBlockRequest" + (\ Object +obj -> + ((Text -> Text -> Word32 -> GossipBlockRequest) -> Parser (Text -> Text -> Word32 -> GossipBlockRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> Text -> Word32 -> GossipBlockRequest +Hs.pure Text -> Text -> Word32 -> GossipBlockRequest GossipBlockRequest) Parser (Text -> Text -> Word32 -> GossipBlockRequest) -> Parser Text -> Parser (Text -> Word32 -> GossipBlockRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Text +<*> Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "block_id" Parser (Text -> Word32 -> GossipBlockRequest) +.: Text +"block_id" Parser (Text -> Word32 -> GossipBlockRequest) -> Parser Text -> Parser (Word32 -> GossipBlockRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser Text +<*> + Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "nonce" - Parser (Word32 -> GossipBlockRequest) +.: Text +"nonce" + Parser (Word32 -> GossipBlockRequest) -> Parser Word32 -> Parser GossipBlockRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Word32 +<*> Object +obj Object -> Text -> Parser Word32 forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "time_to_live")) - -instance HsJSONPB.ToJSON GossipBlockRequest where - toJSON :: GossipBlockRequest -> Value -toJSON = GossipBlockRequest -> Value +.: Text +"time_to_live")) + +instance HsJSONPB.ToJSON GossipBlockRequest where + toJSON :: GossipBlockRequest -> Value +toJSON = GossipBlockRequest -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: GossipBlockRequest -> Encoding -toEncoding = GossipBlockRequest -> Encoding +HsJSONPB.toAesonValue + toEncoding :: GossipBlockRequest -> Encoding +toEncoding = GossipBlockRequest -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON GossipBlockRequest where - parseJSON :: Value -> Parser GossipBlockRequest -parseJSON = Value -> Parser GossipBlockRequest +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON GossipBlockRequest where + parseJSON :: Value -> Parser GossipBlockRequest +parseJSON = Value -> Parser GossipBlockRequest forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema GossipBlockRequest where - declareNamedSchema :: Proxy GossipBlockRequest +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema GossipBlockRequest where + declareNamedSchema :: Proxy GossipBlockRequest -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_block_id :: Proxy (OverrideToSchema Text) +declareNamedSchema Proxy GossipBlockRequest +_ + = do let declare_block_id :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_block_id = Proxy (OverrideToSchema Text) +declare_block_id = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -gossipBlockRequestBlockId <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +gossipBlockRequestBlockId <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_block_id Proxy (OverrideToSchema Text) +declare_block_id Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_nonce :: Proxy (OverrideToSchema Text) +Proxy.Proxy + let declare_nonce :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_nonce = Proxy (OverrideToSchema Text) +declare_nonce = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -gossipBlockRequestNonce <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +gossipBlockRequestNonce <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_nonce Proxy (OverrideToSchema Text) +declare_nonce Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_time_to_live :: Proxy (OverrideToSchema Word32) +Proxy.Proxy + let declare_time_to_live :: Proxy (OverrideToSchema Word32) -> Declare (Definitions Schema) (Referenced Schema) -declare_time_to_live = Proxy (OverrideToSchema Word32) +declare_time_to_live = Proxy (OverrideToSchema Word32) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -gossipBlockRequestTimeToLive <- Proxy (OverrideToSchema Word32) +HsJSONPB.declareSchemaRef + Referenced Schema +gossipBlockRequestTimeToLive <- Proxy (OverrideToSchema Word32) -> Declare (Definitions Schema) (Referenced Schema) -declare_time_to_live Proxy (OverrideToSchema Word32) +declare_time_to_live Proxy (OverrideToSchema Word32) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy GossipBlockRequest +Proxy.Proxy + let Proxy GossipBlockRequest _ = (Text -> Text -> Word32 -> GossipBlockRequest) -> Proxy (Text -> Text -> Word32 -> GossipBlockRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> Text -> Word32 -> GossipBlockRequest +Hs.pure Text -> Text -> Word32 -> GossipBlockRequest GossipBlockRequest Proxy (Text -> Text -> Word32 -> GossipBlockRequest) -> Proxy Text -> Proxy (Text -> Word32 -> GossipBlockRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema Text) +<*> + (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_block_id - Proxy (Text -> Word32 -> GossipBlockRequest) +declare_block_id + Proxy (Text -> Word32 -> GossipBlockRequest) -> Proxy Text -> Proxy (Word32 -> GossipBlockRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema Text) +<*> (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_nonce - Proxy (Word32 -> GossipBlockRequest) +declare_nonce + Proxy (Word32 -> GossipBlockRequest) -> Proxy Word32 -> Proxy GossipBlockRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema Word32) +<*> (Proxy (OverrideToSchema Word32) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Word32 forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Word32) +HsJSONPB.asProxy Proxy (OverrideToSchema Word32) -> Declare (Definitions Schema) (Referenced Schema) -declare_time_to_live - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_time_to_live + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "GossipBlockRequest", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"GossipBlockRequest", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("block_id", Referenced Schema -gossipBlockRequestBlockId), - ("nonce", Referenced Schema -gossipBlockRequestNonce), - ("time_to_live", - Referenced Schema -gossipBlockRequestTimeToLive)]}}) - -newtype GossipBlockResponse = GossipBlockResponse{GossipBlockResponse -> ByteString +HsJSONPB.insOrdFromList + [(Text +"block_id", Referenced Schema +gossipBlockRequestBlockId), + (Text +"nonce", Referenced Schema +gossipBlockRequestNonce), + (Text +"time_to_live", + Referenced Schema +gossipBlockRequestTimeToLive)]}}) + +newtype GossipBlockResponse = GossipBlockResponse{GossipBlockResponse -> ByteString gossipBlockResponseContent - :: Hs.ByteString} - deriving (Int -> GossipBlockResponse -> ShowS + :: Hs.ByteString} + deriving (Int -> GossipBlockResponse -> ShowS [GossipBlockResponse] -> ShowS GossipBlockResponse -> String (Int -> GossipBlockResponse -> ShowS) @@ -3159,7 +3361,7 @@ show :: GossipBlockResponse -> String $cshow :: GossipBlockResponse -> String showsPrec :: Int -> GossipBlockResponse -> ShowS $cshowsPrec :: Int -> GossipBlockResponse -> ShowS -Hs.Show, GossipBlockResponse -> GossipBlockResponse -> Bool +Hs.Show, GossipBlockResponse -> GossipBlockResponse -> Bool (GossipBlockResponse -> GossipBlockResponse -> Bool) -> (GossipBlockResponse -> GossipBlockResponse -> Bool) -> Eq GossipBlockResponse @@ -3168,9 +3370,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: GossipBlockResponse -> GossipBlockResponse -> Bool == :: GossipBlockResponse -> GossipBlockResponse -> Bool $c== :: GossipBlockResponse -> GossipBlockResponse -> Bool -Hs.Eq, Eq GossipBlockResponse -Eq GossipBlockResponse => -(GossipBlockResponse -> GossipBlockResponse -> Ordering) +Hs.Eq, Eq GossipBlockResponse +Eq GossipBlockResponse +-> (GossipBlockResponse -> GossipBlockResponse -> Ordering) -> (GossipBlockResponse -> GossipBlockResponse -> Bool) -> (GossipBlockResponse -> GossipBlockResponse -> Bool) -> (GossipBlockResponse -> GossipBlockResponse -> Bool) @@ -3184,8 +3386,8 @@ GossipBlockResponse -> GossipBlockResponse -> Bool GossipBlockResponse -> GossipBlockResponse -> Ordering GossipBlockResponse -> GossipBlockResponse -> GossipBlockResponse forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -3208,7 +3410,7 @@ $c< :: GossipBlockResponse -> GossipBlockResponse -> Bool compare :: GossipBlockResponse -> GossipBlockResponse -> Ordering $ccompare :: GossipBlockResponse -> GossipBlockResponse -> Ordering $cp1Ord :: Eq GossipBlockResponse -Hs.Ord, (forall x. GossipBlockResponse -> Rep GossipBlockResponse x) +Hs.Ord, (forall x. GossipBlockResponse -> Rep GossipBlockResponse x) -> (forall x. Rep GossipBlockResponse x -> GossipBlockResponse) -> Generic GossipBlockResponse forall x. Rep GossipBlockResponse x -> GossipBlockResponse @@ -3217,207 +3419,224 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep GossipBlockResponse x -> GossipBlockResponse $cfrom :: forall x. GossipBlockResponse -> Rep GossipBlockResponse x -Hs.Generic, GossipBlockResponse -> () +Hs.Generic, GossipBlockResponse -> () (GossipBlockResponse -> ()) -> NFData GossipBlockResponse forall a. (a -> ()) -> NFData a rnf :: GossipBlockResponse -> () $crnf :: GossipBlockResponse -> () -Hs.NFData) - -instance HsProtobuf.Named GossipBlockResponse where - nameOf :: Proxy# GossipBlockResponse -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named GossipBlockResponse where + nameOf :: Proxy# GossipBlockResponse -> string +nameOf Proxy# GossipBlockResponse +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "GossipBlockResponse") - -instance HsProtobuf.HasDefault GossipBlockResponse - -instance HsProtobuf.Message GossipBlockResponse where - encodeMessage :: FieldNumber -> GossipBlockResponse -> MessageBuilder -encodeMessage _ - GossipBlockResponse{gossipBlockResponseContent :: GossipBlockResponse -> ByteString +Hs.fromString String +"GossipBlockResponse") + +instance HsProtobuf.HasDefault GossipBlockResponse + +instance HsProtobuf.Message GossipBlockResponse where + encodeMessage :: FieldNumber -> GossipBlockResponse -> MessageBuilder +encodeMessage FieldNumber +_ + GossipBlockResponse{gossipBlockResponseContent :: GossipBlockResponse -> ByteString gossipBlockResponseContent = - ByteString -gossipBlockResponseContent} - = ([MessageBuilder] -> MessageBuilder + ByteString +gossipBlockResponseContent} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> ByteString -> MessageBuilder +Hs.mconcat + [(FieldNumber -> ByteString -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - ByteString -gossipBlockResponseContent)]) - decodeMessage :: FieldNumber -> Parser RawMessage GossipBlockResponse -decodeMessage _ - = ((ByteString -> GossipBlockResponse) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + ByteString +gossipBlockResponseContent)]) + decodeMessage :: FieldNumber -> Parser RawMessage GossipBlockResponse +decodeMessage FieldNumber +_ + = ((ByteString -> GossipBlockResponse) -> Parser RawMessage (ByteString -> GossipBlockResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString -> GossipBlockResponse +Hs.pure ByteString -> GossipBlockResponse GossipBlockResponse) Parser RawMessage (ByteString -> GossipBlockResponse) -> Parser RawMessage ByteString -> Parser RawMessage GossipBlockResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField ByteString +<*> + (Parser RawField ByteString -> FieldNumber -> Parser RawMessage ByteString forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField ByteString +HsProtobuf.at Parser RawField ByteString forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - dotProto :: Proxy# GossipBlockResponse -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + dotProto :: Proxy# GossipBlockResponse -> [DotProtoField] +dotProto Proxy# GossipBlockResponse +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.Bytes) - (String -> DotProtoIdentifier -HsProtobuf.Single "content") - [] - "")] - -instance HsJSONPB.ToJSONPB GossipBlockResponse where - toJSONPB :: GossipBlockResponse -> Options -> Value -toJSONPB (GossipBlockResponse f1 :: ByteString -f1) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["content" Text -> ByteString -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.Bytes) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"content") + [] + String +"")] + +instance HsJSONPB.ToJSONPB GossipBlockResponse where + toJSONPB :: GossipBlockResponse -> Options -> Value +toJSONPB (GossipBlockResponse ByteString +f1) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"content" Text -> ByteString -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f1]) - toEncodingPB :: GossipBlockResponse -> Options -> Encoding -toEncodingPB (GossipBlockResponse f1 :: ByteString -f1) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["content" Text -> ByteString -> Options -> Series +.= ByteString +f1]) + toEncodingPB :: GossipBlockResponse -> Options -> Encoding +toEncodingPB (GossipBlockResponse ByteString +f1) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"content" Text -> ByteString -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f1]) - -instance HsJSONPB.FromJSONPB GossipBlockResponse where - parseJSONPB :: Value -> Parser GossipBlockResponse -parseJSONPB - = (String +.= ByteString +f1]) + +instance HsJSONPB.FromJSONPB GossipBlockResponse where + parseJSONPB :: Value -> Parser GossipBlockResponse +parseJSONPB + = (String -> (Object -> Parser GossipBlockResponse) -> Value -> Parser GossipBlockResponse forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "GossipBlockResponse" - (\ obj :: Object -obj -> ((ByteString -> GossipBlockResponse) +HsJSONPB.withObject String +"GossipBlockResponse" + (\ Object +obj -> ((ByteString -> GossipBlockResponse) -> Parser (ByteString -> GossipBlockResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString -> GossipBlockResponse +Hs.pure ByteString -> GossipBlockResponse GossipBlockResponse) Parser (ByteString -> GossipBlockResponse) -> Parser ByteString -> Parser GossipBlockResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser ByteString +<*> Object +obj Object -> Text -> Parser ByteString forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "content")) - -instance HsJSONPB.ToJSON GossipBlockResponse where - toJSON :: GossipBlockResponse -> Value -toJSON = GossipBlockResponse -> Value +.: Text +"content")) + +instance HsJSONPB.ToJSON GossipBlockResponse where + toJSON :: GossipBlockResponse -> Value +toJSON = GossipBlockResponse -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: GossipBlockResponse -> Encoding -toEncoding = GossipBlockResponse -> Encoding +HsJSONPB.toAesonValue + toEncoding :: GossipBlockResponse -> Encoding +toEncoding = GossipBlockResponse -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON GossipBlockResponse where - parseJSON :: Value -> Parser GossipBlockResponse -parseJSON = Value -> Parser GossipBlockResponse +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON GossipBlockResponse where + parseJSON :: Value -> Parser GossipBlockResponse +parseJSON = Value -> Parser GossipBlockResponse forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema GossipBlockResponse where - declareNamedSchema :: Proxy GossipBlockResponse +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema GossipBlockResponse where + declareNamedSchema :: Proxy GossipBlockResponse -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_content :: Proxy (OverrideToSchema ByteString) +declareNamedSchema Proxy GossipBlockResponse +_ + = do let declare_content :: Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_content = Proxy (OverrideToSchema ByteString) +declare_content = Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -gossipBlockResponseContent <- Proxy (OverrideToSchema ByteString) +HsJSONPB.declareSchemaRef + Referenced Schema +gossipBlockResponseContent <- Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_content Proxy (OverrideToSchema ByteString) +declare_content Proxy (OverrideToSchema ByteString) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy GossipBlockResponse +Proxy.Proxy + let Proxy GossipBlockResponse _ = (ByteString -> GossipBlockResponse) -> Proxy (ByteString -> GossipBlockResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString -> GossipBlockResponse +Hs.pure ByteString -> GossipBlockResponse GossipBlockResponse Proxy (ByteString -> GossipBlockResponse) -> Proxy ByteString -> Proxy GossipBlockResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema ByteString) +<*> + (Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy ByteString forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) +HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_content - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_content + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "GossipBlockResponse", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"GossipBlockResponse", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("content", Referenced Schema -gossipBlockResponseContent)]}}) - -newtype GossipBatchResponse = GossipBatchResponse{GossipBatchResponse -> ByteString +HsJSONPB.insOrdFromList + [(Text +"content", Referenced Schema +gossipBlockResponseContent)]}}) + +newtype GossipBatchResponse = GossipBatchResponse{GossipBatchResponse -> ByteString gossipBatchResponseContent - :: Hs.ByteString} - deriving (Int -> GossipBatchResponse -> ShowS + :: Hs.ByteString} + deriving (Int -> GossipBatchResponse -> ShowS [GossipBatchResponse] -> ShowS GossipBatchResponse -> String (Int -> GossipBatchResponse -> ShowS) @@ -3432,7 +3651,7 @@ show :: GossipBatchResponse -> String $cshow :: GossipBatchResponse -> String showsPrec :: Int -> GossipBatchResponse -> ShowS $cshowsPrec :: Int -> GossipBatchResponse -> ShowS -Hs.Show, GossipBatchResponse -> GossipBatchResponse -> Bool +Hs.Show, GossipBatchResponse -> GossipBatchResponse -> Bool (GossipBatchResponse -> GossipBatchResponse -> Bool) -> (GossipBatchResponse -> GossipBatchResponse -> Bool) -> Eq GossipBatchResponse @@ -3441,9 +3660,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: GossipBatchResponse -> GossipBatchResponse -> Bool == :: GossipBatchResponse -> GossipBatchResponse -> Bool $c== :: GossipBatchResponse -> GossipBatchResponse -> Bool -Hs.Eq, Eq GossipBatchResponse -Eq GossipBatchResponse => -(GossipBatchResponse -> GossipBatchResponse -> Ordering) +Hs.Eq, Eq GossipBatchResponse +Eq GossipBatchResponse +-> (GossipBatchResponse -> GossipBatchResponse -> Ordering) -> (GossipBatchResponse -> GossipBatchResponse -> Bool) -> (GossipBatchResponse -> GossipBatchResponse -> Bool) -> (GossipBatchResponse -> GossipBatchResponse -> Bool) @@ -3457,8 +3676,8 @@ GossipBatchResponse -> GossipBatchResponse -> Bool GossipBatchResponse -> GossipBatchResponse -> Ordering GossipBatchResponse -> GossipBatchResponse -> GossipBatchResponse forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -3481,7 +3700,7 @@ $c< :: GossipBatchResponse -> GossipBatchResponse -> Bool compare :: GossipBatchResponse -> GossipBatchResponse -> Ordering $ccompare :: GossipBatchResponse -> GossipBatchResponse -> Ordering $cp1Ord :: Eq GossipBatchResponse -Hs.Ord, (forall x. GossipBatchResponse -> Rep GossipBatchResponse x) +Hs.Ord, (forall x. GossipBatchResponse -> Rep GossipBatchResponse x) -> (forall x. Rep GossipBatchResponse x -> GossipBatchResponse) -> Generic GossipBatchResponse forall x. Rep GossipBatchResponse x -> GossipBatchResponse @@ -3490,213 +3709,230 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep GossipBatchResponse x -> GossipBatchResponse $cfrom :: forall x. GossipBatchResponse -> Rep GossipBatchResponse x -Hs.Generic, GossipBatchResponse -> () +Hs.Generic, GossipBatchResponse -> () (GossipBatchResponse -> ()) -> NFData GossipBatchResponse forall a. (a -> ()) -> NFData a rnf :: GossipBatchResponse -> () $crnf :: GossipBatchResponse -> () -Hs.NFData) - -instance HsProtobuf.Named GossipBatchResponse where - nameOf :: Proxy# GossipBatchResponse -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named GossipBatchResponse where + nameOf :: Proxy# GossipBatchResponse -> string +nameOf Proxy# GossipBatchResponse +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "GossipBatchResponse") - -instance HsProtobuf.HasDefault GossipBatchResponse - -instance HsProtobuf.Message GossipBatchResponse where - encodeMessage :: FieldNumber -> GossipBatchResponse -> MessageBuilder -encodeMessage _ - GossipBatchResponse{gossipBatchResponseContent :: GossipBatchResponse -> ByteString +Hs.fromString String +"GossipBatchResponse") + +instance HsProtobuf.HasDefault GossipBatchResponse + +instance HsProtobuf.Message GossipBatchResponse where + encodeMessage :: FieldNumber -> GossipBatchResponse -> MessageBuilder +encodeMessage FieldNumber +_ + GossipBatchResponse{gossipBatchResponseContent :: GossipBatchResponse -> ByteString gossipBatchResponseContent = - ByteString -gossipBatchResponseContent} - = ([MessageBuilder] -> MessageBuilder + ByteString +gossipBatchResponseContent} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> ByteString -> MessageBuilder +Hs.mconcat + [(FieldNumber -> ByteString -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - ByteString -gossipBatchResponseContent)]) - decodeMessage :: FieldNumber -> Parser RawMessage GossipBatchResponse -decodeMessage _ - = ((ByteString -> GossipBatchResponse) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + ByteString +gossipBatchResponseContent)]) + decodeMessage :: FieldNumber -> Parser RawMessage GossipBatchResponse +decodeMessage FieldNumber +_ + = ((ByteString -> GossipBatchResponse) -> Parser RawMessage (ByteString -> GossipBatchResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString -> GossipBatchResponse +Hs.pure ByteString -> GossipBatchResponse GossipBatchResponse) Parser RawMessage (ByteString -> GossipBatchResponse) -> Parser RawMessage ByteString -> Parser RawMessage GossipBatchResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField ByteString +<*> + (Parser RawField ByteString -> FieldNumber -> Parser RawMessage ByteString forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField ByteString +HsProtobuf.at Parser RawField ByteString forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - dotProto :: Proxy# GossipBatchResponse -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + dotProto :: Proxy# GossipBatchResponse -> [DotProtoField] +dotProto Proxy# GossipBatchResponse +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.Bytes) - (String -> DotProtoIdentifier -HsProtobuf.Single "content") - [] - "")] - -instance HsJSONPB.ToJSONPB GossipBatchResponse where - toJSONPB :: GossipBatchResponse -> Options -> Value -toJSONPB (GossipBatchResponse f1 :: ByteString -f1) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["content" Text -> ByteString -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.Bytes) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"content") + [] + String +"")] + +instance HsJSONPB.ToJSONPB GossipBatchResponse where + toJSONPB :: GossipBatchResponse -> Options -> Value +toJSONPB (GossipBatchResponse ByteString +f1) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"content" Text -> ByteString -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f1]) - toEncodingPB :: GossipBatchResponse -> Options -> Encoding -toEncodingPB (GossipBatchResponse f1 :: ByteString -f1) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["content" Text -> ByteString -> Options -> Series +.= ByteString +f1]) + toEncodingPB :: GossipBatchResponse -> Options -> Encoding +toEncodingPB (GossipBatchResponse ByteString +f1) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"content" Text -> ByteString -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f1]) - -instance HsJSONPB.FromJSONPB GossipBatchResponse where - parseJSONPB :: Value -> Parser GossipBatchResponse -parseJSONPB - = (String +.= ByteString +f1]) + +instance HsJSONPB.FromJSONPB GossipBatchResponse where + parseJSONPB :: Value -> Parser GossipBatchResponse +parseJSONPB + = (String -> (Object -> Parser GossipBatchResponse) -> Value -> Parser GossipBatchResponse forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "GossipBatchResponse" - (\ obj :: Object -obj -> ((ByteString -> GossipBatchResponse) +HsJSONPB.withObject String +"GossipBatchResponse" + (\ Object +obj -> ((ByteString -> GossipBatchResponse) -> Parser (ByteString -> GossipBatchResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString -> GossipBatchResponse +Hs.pure ByteString -> GossipBatchResponse GossipBatchResponse) Parser (ByteString -> GossipBatchResponse) -> Parser ByteString -> Parser GossipBatchResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser ByteString +<*> Object +obj Object -> Text -> Parser ByteString forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "content")) - -instance HsJSONPB.ToJSON GossipBatchResponse where - toJSON :: GossipBatchResponse -> Value -toJSON = GossipBatchResponse -> Value +.: Text +"content")) + +instance HsJSONPB.ToJSON GossipBatchResponse where + toJSON :: GossipBatchResponse -> Value +toJSON = GossipBatchResponse -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: GossipBatchResponse -> Encoding -toEncoding = GossipBatchResponse -> Encoding +HsJSONPB.toAesonValue + toEncoding :: GossipBatchResponse -> Encoding +toEncoding = GossipBatchResponse -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON GossipBatchResponse where - parseJSON :: Value -> Parser GossipBatchResponse -parseJSON = Value -> Parser GossipBatchResponse +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON GossipBatchResponse where + parseJSON :: Value -> Parser GossipBatchResponse +parseJSON = Value -> Parser GossipBatchResponse forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema GossipBatchResponse where - declareNamedSchema :: Proxy GossipBatchResponse +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema GossipBatchResponse where + declareNamedSchema :: Proxy GossipBatchResponse -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_content :: Proxy (OverrideToSchema ByteString) +declareNamedSchema Proxy GossipBatchResponse +_ + = do let declare_content :: Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_content = Proxy (OverrideToSchema ByteString) +declare_content = Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -gossipBatchResponseContent <- Proxy (OverrideToSchema ByteString) +HsJSONPB.declareSchemaRef + Referenced Schema +gossipBatchResponseContent <- Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_content Proxy (OverrideToSchema ByteString) +declare_content Proxy (OverrideToSchema ByteString) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy GossipBatchResponse +Proxy.Proxy + let Proxy GossipBatchResponse _ = (ByteString -> GossipBatchResponse) -> Proxy (ByteString -> GossipBatchResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString -> GossipBatchResponse +Hs.pure ByteString -> GossipBatchResponse GossipBatchResponse Proxy (ByteString -> GossipBatchResponse) -> Proxy ByteString -> Proxy GossipBatchResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema ByteString) +<*> + (Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy ByteString forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) +HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_content - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_content + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "GossipBatchResponse", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"GossipBatchResponse", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("content", Referenced Schema -gossipBatchResponseContent)]}}) - -data GossipBatchByBatchIdRequest = GossipBatchByBatchIdRequest{GossipBatchByBatchIdRequest -> Text +HsJSONPB.insOrdFromList + [(Text +"content", Referenced Schema +gossipBatchResponseContent)]}}) + +data GossipBatchByBatchIdRequest = GossipBatchByBatchIdRequest{GossipBatchByBatchIdRequest -> Text gossipBatchByBatchIdRequestId - :: Hs.Text, - GossipBatchByBatchIdRequest -> Text + :: Hs.Text, + GossipBatchByBatchIdRequest -> Text gossipBatchByBatchIdRequestNonce :: - Hs.Text, - GossipBatchByBatchIdRequest -> Word32 + Hs.Text, + GossipBatchByBatchIdRequest -> Word32 gossipBatchByBatchIdRequestTimeToLive - :: Hs.Word32} - deriving (Int -> GossipBatchByBatchIdRequest -> ShowS + :: Hs.Word32} + deriving (Int -> GossipBatchByBatchIdRequest -> ShowS [GossipBatchByBatchIdRequest] -> ShowS GossipBatchByBatchIdRequest -> String (Int -> GossipBatchByBatchIdRequest -> ShowS) @@ -3711,7 +3947,7 @@ show :: GossipBatchByBatchIdRequest -> String $cshow :: GossipBatchByBatchIdRequest -> String showsPrec :: Int -> GossipBatchByBatchIdRequest -> ShowS $cshowsPrec :: Int -> GossipBatchByBatchIdRequest -> ShowS -Hs.Show, GossipBatchByBatchIdRequest -> GossipBatchByBatchIdRequest -> Bool +Hs.Show, GossipBatchByBatchIdRequest -> GossipBatchByBatchIdRequest -> Bool (GossipBatchByBatchIdRequest -> GossipBatchByBatchIdRequest -> Bool) -> (GossipBatchByBatchIdRequest @@ -3722,10 +3958,10 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: GossipBatchByBatchIdRequest -> GossipBatchByBatchIdRequest -> Bool == :: GossipBatchByBatchIdRequest -> GossipBatchByBatchIdRequest -> Bool $c== :: GossipBatchByBatchIdRequest -> GossipBatchByBatchIdRequest -> Bool -Hs.Eq, Eq GossipBatchByBatchIdRequest -Eq GossipBatchByBatchIdRequest => -(GossipBatchByBatchIdRequest - -> GossipBatchByBatchIdRequest -> Ordering) +Hs.Eq, Eq GossipBatchByBatchIdRequest +Eq GossipBatchByBatchIdRequest +-> (GossipBatchByBatchIdRequest + -> GossipBatchByBatchIdRequest -> Ordering) -> (GossipBatchByBatchIdRequest -> GossipBatchByBatchIdRequest -> Bool) -> (GossipBatchByBatchIdRequest @@ -3745,8 +3981,8 @@ GossipBatchByBatchIdRequest GossipBatchByBatchIdRequest -> GossipBatchByBatchIdRequest -> GossipBatchByBatchIdRequest forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -3775,7 +4011,7 @@ compare :: GossipBatchByBatchIdRequest $ccompare :: GossipBatchByBatchIdRequest -> GossipBatchByBatchIdRequest -> Ordering $cp1Ord :: Eq GossipBatchByBatchIdRequest -Hs.Ord, (forall x. +Hs.Ord, (forall x. GossipBatchByBatchIdRequest -> Rep GossipBatchByBatchIdRequest x) -> (forall x. Rep GossipBatchByBatchIdRequest x -> GossipBatchByBatchIdRequest) @@ -3790,391 +4026,426 @@ $cto :: forall x. Rep GossipBatchByBatchIdRequest x -> GossipBatchByBatchIdRequest $cfrom :: forall x. GossipBatchByBatchIdRequest -> Rep GossipBatchByBatchIdRequest x -Hs.Generic, GossipBatchByBatchIdRequest -> () +Hs.Generic, GossipBatchByBatchIdRequest -> () (GossipBatchByBatchIdRequest -> ()) -> NFData GossipBatchByBatchIdRequest forall a. (a -> ()) -> NFData a rnf :: GossipBatchByBatchIdRequest -> () $crnf :: GossipBatchByBatchIdRequest -> () -Hs.NFData) - -instance HsProtobuf.Named GossipBatchByBatchIdRequest where - nameOf :: Proxy# GossipBatchByBatchIdRequest -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named GossipBatchByBatchIdRequest where + nameOf :: Proxy# GossipBatchByBatchIdRequest -> string +nameOf Proxy# GossipBatchByBatchIdRequest +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "GossipBatchByBatchIdRequest") - -instance HsProtobuf.HasDefault GossipBatchByBatchIdRequest - -instance HsProtobuf.Message GossipBatchByBatchIdRequest where - encodeMessage :: FieldNumber -> GossipBatchByBatchIdRequest -> MessageBuilder -encodeMessage _ - GossipBatchByBatchIdRequest{gossipBatchByBatchIdRequestId :: GossipBatchByBatchIdRequest -> Text +Hs.fromString String +"GossipBatchByBatchIdRequest") + +instance HsProtobuf.HasDefault GossipBatchByBatchIdRequest + +instance HsProtobuf.Message GossipBatchByBatchIdRequest where + encodeMessage :: FieldNumber -> GossipBatchByBatchIdRequest -> MessageBuilder +encodeMessage FieldNumber +_ + GossipBatchByBatchIdRequest{gossipBatchByBatchIdRequestId :: GossipBatchByBatchIdRequest -> Text gossipBatchByBatchIdRequestId = - Text -gossipBatchByBatchIdRequestId, - gossipBatchByBatchIdRequestNonce :: GossipBatchByBatchIdRequest -> Text + Text +gossipBatchByBatchIdRequestId, + gossipBatchByBatchIdRequestNonce :: GossipBatchByBatchIdRequest -> Text gossipBatchByBatchIdRequestNonce = - Text -gossipBatchByBatchIdRequestNonce, - gossipBatchByBatchIdRequestTimeToLive :: GossipBatchByBatchIdRequest -> Word32 + Text +gossipBatchByBatchIdRequestNonce, + gossipBatchByBatchIdRequestTimeToLive :: GossipBatchByBatchIdRequest -> Word32 gossipBatchByBatchIdRequestTimeToLive = - Word32 -gossipBatchByBatchIdRequestTimeToLive} - = ([MessageBuilder] -> MessageBuilder + Word32 +gossipBatchByBatchIdRequestTimeToLive} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> Text -> MessageBuilder +Hs.mconcat + [(FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Text -gossipBatchByBatchIdRequestId), - (FieldNumber -> Text -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Text +gossipBatchByBatchIdRequestId), + (FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - Text -gossipBatchByBatchIdRequestNonce), - (FieldNumber -> Word32 -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + Text +gossipBatchByBatchIdRequestNonce), + (FieldNumber -> Word32 -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - Word32 -gossipBatchByBatchIdRequestTimeToLive)]) - decodeMessage :: FieldNumber -> Parser RawMessage GossipBatchByBatchIdRequest -decodeMessage _ - = ((Text -> Text -> Word32 -> GossipBatchByBatchIdRequest) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + Word32 +gossipBatchByBatchIdRequestTimeToLive)]) + decodeMessage :: FieldNumber -> Parser RawMessage GossipBatchByBatchIdRequest +decodeMessage FieldNumber +_ + = ((Text -> Text -> Word32 -> GossipBatchByBatchIdRequest) -> Parser RawMessage (Text -> Text -> Word32 -> GossipBatchByBatchIdRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> Text -> Word32 -> GossipBatchByBatchIdRequest +Hs.pure Text -> Text -> Word32 -> GossipBatchByBatchIdRequest GossipBatchByBatchIdRequest) Parser RawMessage (Text -> Text -> Word32 -> GossipBatchByBatchIdRequest) -> Parser RawMessage Text -> Parser RawMessage (Text -> Word32 -> GossipBatchByBatchIdRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser RawMessage (Text -> Word32 -> GossipBatchByBatchIdRequest) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (Text -> Word32 -> GossipBatchByBatchIdRequest) -> Parser RawMessage Text -> Parser RawMessage (Word32 -> GossipBatchByBatchIdRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2)) - Parser RawMessage (Word32 -> GossipBatchByBatchIdRequest) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2)) + Parser RawMessage (Word32 -> GossipBatchByBatchIdRequest) -> Parser RawMessage Word32 -> Parser RawMessage GossipBatchByBatchIdRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Word32 -> FieldNumber -> Parser RawMessage Word32 +<*> + (Parser RawField Word32 -> FieldNumber -> Parser RawMessage Word32 forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Word32 +HsProtobuf.at Parser RawField Word32 forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3)) - dotProto :: Proxy# GossipBatchByBatchIdRequest -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3)) + dotProto :: Proxy# GossipBatchByBatchIdRequest -> [DotProtoField] +dotProto Proxy# GossipBatchByBatchIdRequest +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "id") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"id") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "nonce") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"nonce") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.UInt32) - (String -> DotProtoIdentifier -HsProtobuf.Single "time_to_live") - [] - "")] - -instance HsJSONPB.ToJSONPB GossipBatchByBatchIdRequest where - toJSONPB :: GossipBatchByBatchIdRequest -> Options -> Value -toJSONPB (GossipBatchByBatchIdRequest f1 :: Text -f1 f2 :: Text -f2 f3 :: Word32 -f3) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object - ["id" Text -> Text -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.UInt32) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"time_to_live") + [] + String +"")] + +instance HsJSONPB.ToJSONPB GossipBatchByBatchIdRequest where + toJSONPB :: GossipBatchByBatchIdRequest -> Options -> Value +toJSONPB (GossipBatchByBatchIdRequest Text +f1 Text +f2 Word32 +f3) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object + [Text +"id" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1, "nonce" Text -> Text -> Options -> [Pair] +.= Text +f1, Text +"nonce" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f2, "time_to_live" Text -> Word32 -> Options -> [Pair] +.= Text +f2, Text +"time_to_live" Text -> Word32 -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Word32 -f3]) - toEncodingPB :: GossipBatchByBatchIdRequest -> Options -> Encoding -toEncodingPB (GossipBatchByBatchIdRequest f1 :: Text -f1 f2 :: Text -f2 f3 :: Word32 -f3) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs - ["id" Text -> Text -> Options -> Series +.= Word32 +f3]) + toEncodingPB :: GossipBatchByBatchIdRequest -> Options -> Encoding +toEncodingPB (GossipBatchByBatchIdRequest Text +f1 Text +f2 Word32 +f3) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs + [Text +"id" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1, "nonce" Text -> Text -> Options -> Series +.= Text +f1, Text +"nonce" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f2, "time_to_live" Text -> Word32 -> Options -> Series +.= Text +f2, Text +"time_to_live" Text -> Word32 -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Word32 -f3]) - -instance HsJSONPB.FromJSONPB GossipBatchByBatchIdRequest where - parseJSONPB :: Value -> Parser GossipBatchByBatchIdRequest -parseJSONPB - = (String +.= Word32 +f3]) + +instance HsJSONPB.FromJSONPB GossipBatchByBatchIdRequest where + parseJSONPB :: Value -> Parser GossipBatchByBatchIdRequest +parseJSONPB + = (String -> (Object -> Parser GossipBatchByBatchIdRequest) -> Value -> Parser GossipBatchByBatchIdRequest forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "GossipBatchByBatchIdRequest" - (\ obj :: Object -obj -> - ((Text -> Text -> Word32 -> GossipBatchByBatchIdRequest) +HsJSONPB.withObject String +"GossipBatchByBatchIdRequest" + (\ Object +obj -> + ((Text -> Text -> Word32 -> GossipBatchByBatchIdRequest) -> Parser (Text -> Text -> Word32 -> GossipBatchByBatchIdRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> Text -> Word32 -> GossipBatchByBatchIdRequest +Hs.pure Text -> Text -> Word32 -> GossipBatchByBatchIdRequest GossipBatchByBatchIdRequest) Parser (Text -> Text -> Word32 -> GossipBatchByBatchIdRequest) -> Parser Text -> Parser (Text -> Word32 -> GossipBatchByBatchIdRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Text +<*> Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "id" Parser (Text -> Word32 -> GossipBatchByBatchIdRequest) +.: Text +"id" Parser (Text -> Word32 -> GossipBatchByBatchIdRequest) -> Parser Text -> Parser (Word32 -> GossipBatchByBatchIdRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser Text +<*> + Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "nonce" - Parser (Word32 -> GossipBatchByBatchIdRequest) +.: Text +"nonce" + Parser (Word32 -> GossipBatchByBatchIdRequest) -> Parser Word32 -> Parser GossipBatchByBatchIdRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Word32 +<*> Object +obj Object -> Text -> Parser Word32 forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "time_to_live")) - -instance HsJSONPB.ToJSON GossipBatchByBatchIdRequest where - toJSON :: GossipBatchByBatchIdRequest -> Value -toJSON = GossipBatchByBatchIdRequest -> Value +.: Text +"time_to_live")) + +instance HsJSONPB.ToJSON GossipBatchByBatchIdRequest where + toJSON :: GossipBatchByBatchIdRequest -> Value +toJSON = GossipBatchByBatchIdRequest -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: GossipBatchByBatchIdRequest -> Encoding -toEncoding = GossipBatchByBatchIdRequest -> Encoding +HsJSONPB.toAesonValue + toEncoding :: GossipBatchByBatchIdRequest -> Encoding +toEncoding = GossipBatchByBatchIdRequest -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON GossipBatchByBatchIdRequest where - parseJSON :: Value -> Parser GossipBatchByBatchIdRequest -parseJSON = Value -> Parser GossipBatchByBatchIdRequest +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON GossipBatchByBatchIdRequest where + parseJSON :: Value -> Parser GossipBatchByBatchIdRequest +parseJSON = Value -> Parser GossipBatchByBatchIdRequest forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema GossipBatchByBatchIdRequest where - declareNamedSchema :: Proxy GossipBatchByBatchIdRequest +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema GossipBatchByBatchIdRequest where + declareNamedSchema :: Proxy GossipBatchByBatchIdRequest -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_id :: Proxy (OverrideToSchema Text) +declareNamedSchema Proxy GossipBatchByBatchIdRequest +_ + = do let declare_id :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_id = Proxy (OverrideToSchema Text) +declare_id = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -gossipBatchByBatchIdRequestId <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +gossipBatchByBatchIdRequestId <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_id Proxy (OverrideToSchema Text) +declare_id Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_nonce :: Proxy (OverrideToSchema Text) +Proxy.Proxy + let declare_nonce :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_nonce = Proxy (OverrideToSchema Text) +declare_nonce = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -gossipBatchByBatchIdRequestNonce <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +gossipBatchByBatchIdRequestNonce <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_nonce Proxy (OverrideToSchema Text) +declare_nonce Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_time_to_live :: Proxy (OverrideToSchema Word32) +Proxy.Proxy + let declare_time_to_live :: Proxy (OverrideToSchema Word32) -> Declare (Definitions Schema) (Referenced Schema) -declare_time_to_live = Proxy (OverrideToSchema Word32) +declare_time_to_live = Proxy (OverrideToSchema Word32) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -gossipBatchByBatchIdRequestTimeToLive <- Proxy (OverrideToSchema Word32) +HsJSONPB.declareSchemaRef + Referenced Schema +gossipBatchByBatchIdRequestTimeToLive <- Proxy (OverrideToSchema Word32) -> Declare (Definitions Schema) (Referenced Schema) -declare_time_to_live - Proxy (OverrideToSchema Word32) +declare_time_to_live + Proxy (OverrideToSchema Word32) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy GossipBatchByBatchIdRequest +Proxy.Proxy + let Proxy GossipBatchByBatchIdRequest _ = (Text -> Text -> Word32 -> GossipBatchByBatchIdRequest) -> Proxy (Text -> Text -> Word32 -> GossipBatchByBatchIdRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> Text -> Word32 -> GossipBatchByBatchIdRequest +Hs.pure Text -> Text -> Word32 -> GossipBatchByBatchIdRequest GossipBatchByBatchIdRequest Proxy (Text -> Text -> Word32 -> GossipBatchByBatchIdRequest) -> Proxy Text -> Proxy (Text -> Word32 -> GossipBatchByBatchIdRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema Text) +<*> + (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_id - Proxy (Text -> Word32 -> GossipBatchByBatchIdRequest) +declare_id + Proxy (Text -> Word32 -> GossipBatchByBatchIdRequest) -> Proxy Text -> Proxy (Word32 -> GossipBatchByBatchIdRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema Text) +<*> (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_nonce - Proxy (Word32 -> GossipBatchByBatchIdRequest) +declare_nonce + Proxy (Word32 -> GossipBatchByBatchIdRequest) -> Proxy Word32 -> Proxy GossipBatchByBatchIdRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema Word32) +<*> (Proxy (OverrideToSchema Word32) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Word32 forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Word32) +HsJSONPB.asProxy Proxy (OverrideToSchema Word32) -> Declare (Definitions Schema) (Referenced Schema) -declare_time_to_live - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_time_to_live + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "GossipBatchByBatchIdRequest", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"GossipBatchByBatchIdRequest", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("id", Referenced Schema -gossipBatchByBatchIdRequestId), - ("nonce", Referenced Schema -gossipBatchByBatchIdRequestNonce), - ("time_to_live", - Referenced Schema -gossipBatchByBatchIdRequestTimeToLive)]}}) - -data GossipBatchByTransactionIdRequest = GossipBatchByTransactionIdRequest{GossipBatchByTransactionIdRequest -> Vector Text +HsJSONPB.insOrdFromList + [(Text +"id", Referenced Schema +gossipBatchByBatchIdRequestId), + (Text +"nonce", Referenced Schema +gossipBatchByBatchIdRequestNonce), + (Text +"time_to_live", + Referenced Schema +gossipBatchByBatchIdRequestTimeToLive)]}}) + +data GossipBatchByTransactionIdRequest = GossipBatchByTransactionIdRequest{GossipBatchByTransactionIdRequest -> Vector Text gossipBatchByTransactionIdRequestIds - :: Hs.Vector Hs.Text, - GossipBatchByTransactionIdRequest -> Text + :: Hs.Vector Hs.Text, + GossipBatchByTransactionIdRequest -> Text gossipBatchByTransactionIdRequestNonce - :: Hs.Text, - GossipBatchByTransactionIdRequest -> Word32 + :: Hs.Text, + GossipBatchByTransactionIdRequest -> Word32 gossipBatchByTransactionIdRequestTimeToLive - :: Hs.Word32} - deriving (Int -> GossipBatchByTransactionIdRequest -> ShowS + :: Hs.Word32} + deriving (Int -> GossipBatchByTransactionIdRequest -> ShowS [GossipBatchByTransactionIdRequest] -> ShowS GossipBatchByTransactionIdRequest -> String (Int -> GossipBatchByTransactionIdRequest -> ShowS) @@ -4189,7 +4460,7 @@ show :: GossipBatchByTransactionIdRequest -> String $cshow :: GossipBatchByTransactionIdRequest -> String showsPrec :: Int -> GossipBatchByTransactionIdRequest -> ShowS $cshowsPrec :: Int -> GossipBatchByTransactionIdRequest -> ShowS -Hs.Show, GossipBatchByTransactionIdRequest +Hs.Show, GossipBatchByTransactionIdRequest -> GossipBatchByTransactionIdRequest -> Bool (GossipBatchByTransactionIdRequest -> GossipBatchByTransactionIdRequest -> Bool) @@ -4205,10 +4476,10 @@ $c/= :: GossipBatchByTransactionIdRequest -> GossipBatchByTransactionIdRequest -> Bool $c== :: GossipBatchByTransactionIdRequest -> GossipBatchByTransactionIdRequest -> Bool -Hs.Eq, Eq GossipBatchByTransactionIdRequest -Eq GossipBatchByTransactionIdRequest => -(GossipBatchByTransactionIdRequest - -> GossipBatchByTransactionIdRequest -> Ordering) +Hs.Eq, Eq GossipBatchByTransactionIdRequest +Eq GossipBatchByTransactionIdRequest +-> (GossipBatchByTransactionIdRequest + -> GossipBatchByTransactionIdRequest -> Ordering) -> (GossipBatchByTransactionIdRequest -> GossipBatchByTransactionIdRequest -> Bool) -> (GossipBatchByTransactionIdRequest @@ -4232,8 +4503,8 @@ GossipBatchByTransactionIdRequest -> GossipBatchByTransactionIdRequest -> GossipBatchByTransactionIdRequest forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -4274,7 +4545,7 @@ compare :: GossipBatchByTransactionIdRequest $ccompare :: GossipBatchByTransactionIdRequest -> GossipBatchByTransactionIdRequest -> Ordering $cp1Ord :: Eq GossipBatchByTransactionIdRequest -Hs.Ord, (forall x. +Hs.Ord, (forall x. GossipBatchByTransactionIdRequest -> Rep GossipBatchByTransactionIdRequest x) -> (forall x. @@ -4295,71 +4566,77 @@ Rep GossipBatchByTransactionIdRequest x $cfrom :: forall x. GossipBatchByTransactionIdRequest -> Rep GossipBatchByTransactionIdRequest x -Hs.Generic, GossipBatchByTransactionIdRequest -> () +Hs.Generic, GossipBatchByTransactionIdRequest -> () (GossipBatchByTransactionIdRequest -> ()) -> NFData GossipBatchByTransactionIdRequest forall a. (a -> ()) -> NFData a rnf :: GossipBatchByTransactionIdRequest -> () $crnf :: GossipBatchByTransactionIdRequest -> () -Hs.NFData) - -instance HsProtobuf.Named GossipBatchByTransactionIdRequest where - nameOf :: Proxy# GossipBatchByTransactionIdRequest -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named GossipBatchByTransactionIdRequest where + nameOf :: Proxy# GossipBatchByTransactionIdRequest -> string +nameOf Proxy# GossipBatchByTransactionIdRequest +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "GossipBatchByTransactionIdRequest") - -instance HsProtobuf.HasDefault GossipBatchByTransactionIdRequest - -instance HsProtobuf.Message GossipBatchByTransactionIdRequest where - encodeMessage :: FieldNumber -> GossipBatchByTransactionIdRequest -> MessageBuilder -encodeMessage _ - GossipBatchByTransactionIdRequest{gossipBatchByTransactionIdRequestIds :: GossipBatchByTransactionIdRequest -> Vector Text +Hs.fromString String +"GossipBatchByTransactionIdRequest") + +instance HsProtobuf.HasDefault GossipBatchByTransactionIdRequest + +instance HsProtobuf.Message GossipBatchByTransactionIdRequest where + encodeMessage :: FieldNumber -> GossipBatchByTransactionIdRequest -> MessageBuilder +encodeMessage FieldNumber +_ + GossipBatchByTransactionIdRequest{gossipBatchByTransactionIdRequestIds :: GossipBatchByTransactionIdRequest -> Vector Text gossipBatchByTransactionIdRequestIds - = Vector Text -gossipBatchByTransactionIdRequestIds, - gossipBatchByTransactionIdRequestNonce :: GossipBatchByTransactionIdRequest -> Text + = Vector Text +gossipBatchByTransactionIdRequestIds, + gossipBatchByTransactionIdRequestNonce :: GossipBatchByTransactionIdRequest -> Text gossipBatchByTransactionIdRequestNonce = - Text -gossipBatchByTransactionIdRequestNonce, - gossipBatchByTransactionIdRequestTimeToLive :: GossipBatchByTransactionIdRequest -> Word32 + Text +gossipBatchByTransactionIdRequestNonce, + gossipBatchByTransactionIdRequestTimeToLive :: GossipBatchByTransactionIdRequest -> Word32 gossipBatchByTransactionIdRequestTimeToLive = - Word32 -gossipBatchByTransactionIdRequestTimeToLive} - = ([MessageBuilder] -> MessageBuilder + Word32 +gossipBatchByTransactionIdRequestTimeToLive} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> UnpackedVec Text -> MessageBuilder +Hs.mconcat + [(FieldNumber -> UnpackedVec Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (Vector Text -> UnpackedVec Text -forall a b. Coercible a b => a -> b -Hs.coerce @(Hs.Vector Hs.Text) @(HsProtobuf.UnpackedVec Hs.Text) - Vector Text -gossipBatchByTransactionIdRequestIds)), - (FieldNumber -> Text -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (Vector Text -> UnpackedVec Text +Hs.coerce @(Hs.Vector Hs.Text) @(HsProtobuf.UnpackedVec Hs.Text) + Vector Text +gossipBatchByTransactionIdRequestIds)), + (FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - Text -gossipBatchByTransactionIdRequestNonce), - (FieldNumber -> Word32 -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + Text +gossipBatchByTransactionIdRequestNonce), + (FieldNumber -> Word32 -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - Word32 -gossipBatchByTransactionIdRequestTimeToLive)]) - decodeMessage :: FieldNumber -> Parser RawMessage GossipBatchByTransactionIdRequest -decodeMessage _ - = ((Vector Text +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + Word32 +gossipBatchByTransactionIdRequestTimeToLive)]) + decodeMessage :: FieldNumber -> Parser RawMessage GossipBatchByTransactionIdRequest +decodeMessage FieldNumber +_ + = ((Vector Text -> Text -> Word32 -> GossipBatchByTransactionIdRequest) -> Parser RawMessage (Vector Text -> Text -> Word32 -> GossipBatchByTransactionIdRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector Text -> Text -> Word32 -> GossipBatchByTransactionIdRequest +Hs.pure Vector Text -> Text -> Word32 -> GossipBatchByTransactionIdRequest GossipBatchByTransactionIdRequest) Parser RawMessage (Vector Text @@ -4368,334 +4645,361 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Parser RawMessage (Text -> Word32 -> GossipBatchByTransactionIdRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (UnpackedVec Text) +<*> + (Parser RawMessage (UnpackedVec Text) -> Parser RawMessage (Vector Text) -forall a b. Coercible a b => a -> b -Hs.coerce @(_ (HsProtobuf.UnpackedVec Hs.Text)) - @(_ (Hs.Vector Hs.Text)) - (Parser RawField (UnpackedVec Text) +Hs.coerce @(_ (HsProtobuf.UnpackedVec Hs.Text)) + @(_ (Hs.Vector Hs.Text)) + (Parser RawField (UnpackedVec Text) -> FieldNumber -> Parser RawMessage (UnpackedVec Text) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (UnpackedVec Text) +HsProtobuf.at Parser RawField (UnpackedVec Text) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1))) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1))) + Parser RawMessage (Text -> Word32 -> GossipBatchByTransactionIdRequest) -> Parser RawMessage Text -> Parser RawMessage (Word32 -> GossipBatchByTransactionIdRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2)) - Parser RawMessage (Word32 -> GossipBatchByTransactionIdRequest) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2)) + Parser RawMessage (Word32 -> GossipBatchByTransactionIdRequest) -> Parser RawMessage Word32 -> Parser RawMessage GossipBatchByTransactionIdRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Word32 -> FieldNumber -> Parser RawMessage Word32 +<*> + (Parser RawField Word32 -> FieldNumber -> Parser RawMessage Word32 forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Word32 +HsProtobuf.at Parser RawField Word32 forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3)) - dotProto :: Proxy# GossipBatchByTransactionIdRequest -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3)) + dotProto :: Proxy# GossipBatchByTransactionIdRequest -> [DotProtoField] +dotProto Proxy# GossipBatchByTransactionIdRequest +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Repeated DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "ids") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Repeated DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"ids") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "nonce") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"nonce") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.UInt32) - (String -> DotProtoIdentifier -HsProtobuf.Single "time_to_live") - [] - "")] - -instance HsJSONPB.ToJSONPB GossipBatchByTransactionIdRequest where - toJSONPB :: GossipBatchByTransactionIdRequest -> Options -> Value -toJSONPB (GossipBatchByTransactionIdRequest f1 :: Vector Text -f1 f2 :: Text -f2 f3 :: Word32 -f3) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object - ["ids" Text -> Vector Text -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.UInt32) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"time_to_live") + [] + String +"")] + +instance HsJSONPB.ToJSONPB GossipBatchByTransactionIdRequest where + toJSONPB :: GossipBatchByTransactionIdRequest -> Options -> Value +toJSONPB (GossipBatchByTransactionIdRequest Vector Text +f1 Text +f2 Word32 +f3) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object + [Text +"ids" Text -> Vector Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Text -f1, "nonce" Text -> Text -> Options -> [Pair] +.= Vector Text +f1, Text +"nonce" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f2, "time_to_live" Text -> Word32 -> Options -> [Pair] +.= Text +f2, Text +"time_to_live" Text -> Word32 -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Word32 -f3]) - toEncodingPB :: GossipBatchByTransactionIdRequest -> Options -> Encoding -toEncodingPB (GossipBatchByTransactionIdRequest f1 :: Vector Text -f1 f2 :: Text -f2 f3 :: Word32 -f3) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs - ["ids" Text -> Vector Text -> Options -> Series +.= Word32 +f3]) + toEncodingPB :: GossipBatchByTransactionIdRequest -> Options -> Encoding +toEncodingPB (GossipBatchByTransactionIdRequest Vector Text +f1 Text +f2 Word32 +f3) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs + [Text +"ids" Text -> Vector Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Text -f1, "nonce" Text -> Text -> Options -> Series +.= Vector Text +f1, Text +"nonce" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f2, "time_to_live" Text -> Word32 -> Options -> Series +.= Text +f2, Text +"time_to_live" Text -> Word32 -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Word32 -f3]) - -instance HsJSONPB.FromJSONPB GossipBatchByTransactionIdRequest - where - parseJSONPB :: Value -> Parser GossipBatchByTransactionIdRequest -parseJSONPB - = (String +.= Word32 +f3]) + +instance HsJSONPB.FromJSONPB GossipBatchByTransactionIdRequest + where + parseJSONPB :: Value -> Parser GossipBatchByTransactionIdRequest +parseJSONPB + = (String -> (Object -> Parser GossipBatchByTransactionIdRequest) -> Value -> Parser GossipBatchByTransactionIdRequest forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "GossipBatchByTransactionIdRequest" - (\ obj :: Object -obj -> - ((Vector Text +HsJSONPB.withObject String +"GossipBatchByTransactionIdRequest" + (\ Object +obj -> + ((Vector Text -> Text -> Word32 -> GossipBatchByTransactionIdRequest) -> Parser (Vector Text -> Text -> Word32 -> GossipBatchByTransactionIdRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector Text -> Text -> Word32 -> GossipBatchByTransactionIdRequest +Hs.pure Vector Text -> Text -> Word32 -> GossipBatchByTransactionIdRequest GossipBatchByTransactionIdRequest) Parser (Vector Text -> Text -> Word32 -> GossipBatchByTransactionIdRequest) -> Parser (Vector Text) -> Parser (Text -> Word32 -> GossipBatchByTransactionIdRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser (Vector Text) +<*> Object +obj Object -> Text -> Parser (Vector Text) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "ids" Parser (Text -> Word32 -> GossipBatchByTransactionIdRequest) +.: Text +"ids" Parser (Text -> Word32 -> GossipBatchByTransactionIdRequest) -> Parser Text -> Parser (Word32 -> GossipBatchByTransactionIdRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser Text +<*> + Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "nonce" - Parser (Word32 -> GossipBatchByTransactionIdRequest) +.: Text +"nonce" + Parser (Word32 -> GossipBatchByTransactionIdRequest) -> Parser Word32 -> Parser GossipBatchByTransactionIdRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Word32 +<*> Object +obj Object -> Text -> Parser Word32 forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "time_to_live")) - -instance HsJSONPB.ToJSON GossipBatchByTransactionIdRequest where - toJSON :: GossipBatchByTransactionIdRequest -> Value -toJSON = GossipBatchByTransactionIdRequest -> Value +.: Text +"time_to_live")) + +instance HsJSONPB.ToJSON GossipBatchByTransactionIdRequest where + toJSON :: GossipBatchByTransactionIdRequest -> Value +toJSON = GossipBatchByTransactionIdRequest -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: GossipBatchByTransactionIdRequest -> Encoding -toEncoding = GossipBatchByTransactionIdRequest -> Encoding +HsJSONPB.toAesonValue + toEncoding :: GossipBatchByTransactionIdRequest -> Encoding +toEncoding = GossipBatchByTransactionIdRequest -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON GossipBatchByTransactionIdRequest where - parseJSON :: Value -> Parser GossipBatchByTransactionIdRequest -parseJSON = Value -> Parser GossipBatchByTransactionIdRequest +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON GossipBatchByTransactionIdRequest where + parseJSON :: Value -> Parser GossipBatchByTransactionIdRequest +parseJSON = Value -> Parser GossipBatchByTransactionIdRequest forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema GossipBatchByTransactionIdRequest where - declareNamedSchema :: Proxy GossipBatchByTransactionIdRequest +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema GossipBatchByTransactionIdRequest where + declareNamedSchema :: Proxy GossipBatchByTransactionIdRequest -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_ids :: Proxy (OverrideToSchema (Vector Text)) +declareNamedSchema Proxy GossipBatchByTransactionIdRequest +_ + = do let declare_ids :: Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) -declare_ids = Proxy (OverrideToSchema (Vector Text)) +declare_ids = Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -gossipBatchByTransactionIdRequestIds <- Proxy (OverrideToSchema (Vector Text)) +HsJSONPB.declareSchemaRef + Referenced Schema +gossipBatchByTransactionIdRequestIds <- Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) -declare_ids Proxy (OverrideToSchema (Vector Text)) +declare_ids Proxy (OverrideToSchema (Vector Text)) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_nonce :: Proxy (OverrideToSchema Text) +Proxy.Proxy + let declare_nonce :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_nonce = Proxy (OverrideToSchema Text) +declare_nonce = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -gossipBatchByTransactionIdRequestNonce <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +gossipBatchByTransactionIdRequestNonce <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_nonce Proxy (OverrideToSchema Text) +declare_nonce Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_time_to_live :: Proxy (OverrideToSchema Word32) +Proxy.Proxy + let declare_time_to_live :: Proxy (OverrideToSchema Word32) -> Declare (Definitions Schema) (Referenced Schema) -declare_time_to_live = Proxy (OverrideToSchema Word32) +declare_time_to_live = Proxy (OverrideToSchema Word32) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -gossipBatchByTransactionIdRequestTimeToLive <- Proxy (OverrideToSchema Word32) +HsJSONPB.declareSchemaRef + Referenced Schema +gossipBatchByTransactionIdRequestTimeToLive <- Proxy (OverrideToSchema Word32) -> Declare (Definitions Schema) (Referenced Schema) -declare_time_to_live - Proxy (OverrideToSchema Word32) +declare_time_to_live + Proxy (OverrideToSchema Word32) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy GossipBatchByTransactionIdRequest +Proxy.Proxy + let Proxy GossipBatchByTransactionIdRequest _ = (Vector Text -> Text -> Word32 -> GossipBatchByTransactionIdRequest) -> Proxy (Vector Text -> Text -> Word32 -> GossipBatchByTransactionIdRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector Text -> Text -> Word32 -> GossipBatchByTransactionIdRequest +Hs.pure Vector Text -> Text -> Word32 -> GossipBatchByTransactionIdRequest GossipBatchByTransactionIdRequest Proxy (Vector Text -> Text -> Word32 -> GossipBatchByTransactionIdRequest) -> Proxy (Vector Text) -> Proxy (Text -> Word32 -> GossipBatchByTransactionIdRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema (Vector Text)) +<*> + (Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Vector Text) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Text)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) -declare_ids - Proxy (Text -> Word32 -> GossipBatchByTransactionIdRequest) +declare_ids + Proxy (Text -> Word32 -> GossipBatchByTransactionIdRequest) -> Proxy Text -> Proxy (Word32 -> GossipBatchByTransactionIdRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema Text) +<*> (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_nonce - Proxy (Word32 -> GossipBatchByTransactionIdRequest) +declare_nonce + Proxy (Word32 -> GossipBatchByTransactionIdRequest) -> Proxy Word32 -> Proxy GossipBatchByTransactionIdRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema Word32) +<*> (Proxy (OverrideToSchema Word32) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Word32 forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Word32) +HsJSONPB.asProxy Proxy (OverrideToSchema Word32) -> Declare (Definitions Schema) (Referenced Schema) -declare_time_to_live - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_time_to_live + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "GossipBatchByTransactionIdRequest", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"GossipBatchByTransactionIdRequest", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("ids", - Referenced Schema -gossipBatchByTransactionIdRequestIds), - ("nonce", - Referenced Schema -gossipBatchByTransactionIdRequestNonce), - ("time_to_live", - Referenced Schema -gossipBatchByTransactionIdRequestTimeToLive)]}}) \ No newline at end of file +HsJSONPB.insOrdFromList + [(Text +"ids", + Referenced Schema +gossipBatchByTransactionIdRequestIds), + (Text +"nonce", + Referenced Schema +gossipBatchByTransactionIdRequestNonce), + (Text +"time_to_live", + Referenced Schema +gossipBatchByTransactionIdRequestTimeToLive)]}}) \ No newline at end of file diff --git a/src/Data.Sawtooth.Processor.html b/src/Data.Sawtooth.Processor.html index cec6280..1220734 100644 --- a/src/Data.Sawtooth.Processor.html +++ b/src/Data.Sawtooth.Processor.html @@ -9,51 +9,50 @@ {-# OPTIONS_GHC -fno-warn-unused-matches #-} -- | Generated by Haskell protocol buffer compiler. DO NOT EDIT! - -module Data.Sawtooth.Processor where -import qualified Prelude as Hs -import qualified Proto3.Suite.Class as HsProtobuf -import qualified Proto3.Suite.DotProto as HsProtobuf -import qualified Proto3.Suite.JSONPB as HsJSONPB -import Proto3.Suite.JSONPB ((.=), (.:)) -import qualified Proto3.Suite.Types as HsProtobuf -import qualified Proto3.Wire as HsProtobuf -import qualified Control.Applicative as Hs -import Control.Applicative ((<*>), (<|>), (<$>)) -import qualified Control.DeepSeq as Hs -import qualified Control.Monad as Hs -import qualified Data.ByteString as Hs -import qualified Data.Coerce as Hs -import qualified Data.Int as Hs (Int16, Int32, Int64) -import qualified Data.List.NonEmpty as Hs (NonEmpty(..)) -import qualified Data.Map as Hs (Map, mapKeysMonotonic) -import qualified Data.Proxy as Proxy -import qualified Data.String as Hs (fromString) -import qualified Data.Text.Lazy as Hs (Text) -import qualified Data.Vector as Hs (Vector) -import qualified Data.Word as Hs (Word16, Word32, Word64) -import qualified GHC.Enum as Hs -import qualified GHC.Generics as Hs -import qualified Unsafe.Coerce as Hs -import qualified Data.Sawtooth.Transaction - -data TpRegisterRequest = TpRegisterRequest{TpRegisterRequest -> Text +module Data.Sawtooth.Processor where +import qualified Prelude as Hs +import qualified Proto3.Suite.Class as HsProtobuf +import qualified Proto3.Suite.DotProto as HsProtobuf +import qualified Proto3.Suite.JSONPB as HsJSONPB +import Proto3.Suite.JSONPB ((.=), (.:)) +import qualified Proto3.Suite.Types as HsProtobuf +import qualified Proto3.Wire as HsProtobuf +import qualified Control.Applicative as Hs +import Control.Applicative ((<*>), (<|>), (<$>)) +import qualified Control.DeepSeq as Hs +import qualified Control.Monad as Hs +import qualified Data.ByteString as Hs +import qualified Data.Coerce as Hs +import qualified Data.Int as Hs (Int16, Int32, Int64) +import qualified Data.List.NonEmpty as Hs (NonEmpty(..)) +import qualified Data.Map as Hs (Map, mapKeysMonotonic) +import qualified Data.Proxy as Proxy +import qualified Data.String as Hs (fromString) +import qualified Data.Text.Lazy as Hs (Text) +import qualified Data.Vector as Hs (Vector) +import qualified Data.Word as Hs (Word16, Word32, Word64) +import qualified GHC.Enum as Hs +import qualified GHC.Generics as Hs +import qualified Unsafe.Coerce as Hs +import qualified Data.Sawtooth.Transaction + +data TpRegisterRequest = TpRegisterRequest{TpRegisterRequest -> Text tpRegisterRequestFamily - :: Hs.Text, - TpRegisterRequest -> Text -tpRegisterRequestVersion :: Hs.Text, - TpRegisterRequest -> Vector Text -tpRegisterRequestNamespaces :: Hs.Vector Hs.Text, - TpRegisterRequest -> Word32 -tpRegisterRequestMaxOccupancy :: Hs.Word32, - TpRegisterRequest -> Word32 -tpRegisterRequestProtocolVersion :: Hs.Word32, - TpRegisterRequest + :: Hs.Text, + TpRegisterRequest -> Text +tpRegisterRequestVersion :: Hs.Text, + TpRegisterRequest -> Vector Text +tpRegisterRequestNamespaces :: Hs.Vector Hs.Text, + TpRegisterRequest -> Word32 +tpRegisterRequestMaxOccupancy :: Hs.Word32, + TpRegisterRequest -> Word32 +tpRegisterRequestProtocolVersion :: Hs.Word32, + TpRegisterRequest -> Enumerated TpRegisterRequest_TpProcessRequestHeaderStyle tpRegisterRequestRequestHeaderStyle :: - HsProtobuf.Enumerated - Data.Sawtooth.Processor.TpRegisterRequest_TpProcessRequestHeaderStyle} - deriving (Int -> TpRegisterRequest -> ShowS + HsProtobuf.Enumerated + Data.Sawtooth.Processor.TpRegisterRequest_TpProcessRequestHeaderStyle} + deriving (Int -> TpRegisterRequest -> ShowS [TpRegisterRequest] -> ShowS TpRegisterRequest -> String (Int -> TpRegisterRequest -> ShowS) @@ -68,7 +67,7 @@ show :: TpRegisterRequest -> String $cshow :: TpRegisterRequest -> String showsPrec :: Int -> TpRegisterRequest -> ShowS $cshowsPrec :: Int -> TpRegisterRequest -> ShowS -Hs.Show, TpRegisterRequest -> TpRegisterRequest -> Bool +Hs.Show, TpRegisterRequest -> TpRegisterRequest -> Bool (TpRegisterRequest -> TpRegisterRequest -> Bool) -> (TpRegisterRequest -> TpRegisterRequest -> Bool) -> Eq TpRegisterRequest @@ -77,9 +76,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: TpRegisterRequest -> TpRegisterRequest -> Bool == :: TpRegisterRequest -> TpRegisterRequest -> Bool $c== :: TpRegisterRequest -> TpRegisterRequest -> Bool -Hs.Eq, Eq TpRegisterRequest -Eq TpRegisterRequest => -(TpRegisterRequest -> TpRegisterRequest -> Ordering) +Hs.Eq, Eq TpRegisterRequest +Eq TpRegisterRequest +-> (TpRegisterRequest -> TpRegisterRequest -> Ordering) -> (TpRegisterRequest -> TpRegisterRequest -> Bool) -> (TpRegisterRequest -> TpRegisterRequest -> Bool) -> (TpRegisterRequest -> TpRegisterRequest -> Bool) @@ -91,8 +90,8 @@ TpRegisterRequest -> TpRegisterRequest -> Bool TpRegisterRequest -> TpRegisterRequest -> Ordering TpRegisterRequest -> TpRegisterRequest -> TpRegisterRequest forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -115,7 +114,7 @@ $c< :: TpRegisterRequest -> TpRegisterRequest -> Bool compare :: TpRegisterRequest -> TpRegisterRequest -> Ordering $ccompare :: TpRegisterRequest -> TpRegisterRequest -> Ordering $cp1Ord :: Eq TpRegisterRequest -Hs.Ord, (forall x. TpRegisterRequest -> Rep TpRegisterRequest x) +Hs.Ord, (forall x. TpRegisterRequest -> Rep TpRegisterRequest x) -> (forall x. Rep TpRegisterRequest x -> TpRegisterRequest) -> Generic TpRegisterRequest forall x. Rep TpRegisterRequest x -> TpRegisterRequest @@ -124,93 +123,102 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep TpRegisterRequest x -> TpRegisterRequest $cfrom :: forall x. TpRegisterRequest -> Rep TpRegisterRequest x -Hs.Generic, TpRegisterRequest -> () +Hs.Generic, TpRegisterRequest -> () (TpRegisterRequest -> ()) -> NFData TpRegisterRequest forall a. (a -> ()) -> NFData a rnf :: TpRegisterRequest -> () $crnf :: TpRegisterRequest -> () -Hs.NFData) - -instance HsProtobuf.Named TpRegisterRequest where - nameOf :: Proxy# TpRegisterRequest -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named TpRegisterRequest where + nameOf :: Proxy# TpRegisterRequest -> string +nameOf Proxy# TpRegisterRequest +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "TpRegisterRequest") - -instance HsProtobuf.HasDefault TpRegisterRequest - -instance HsProtobuf.Message TpRegisterRequest where - encodeMessage :: FieldNumber -> TpRegisterRequest -> MessageBuilder -encodeMessage _ - TpRegisterRequest{tpRegisterRequestFamily :: TpRegisterRequest -> Text +Hs.fromString String +"TpRegisterRequest") + +instance HsProtobuf.HasDefault TpRegisterRequest + +instance HsProtobuf.Message TpRegisterRequest where + encodeMessage :: FieldNumber -> TpRegisterRequest -> MessageBuilder +encodeMessage FieldNumber +_ + TpRegisterRequest{tpRegisterRequestFamily :: TpRegisterRequest -> Text tpRegisterRequestFamily = - Text -tpRegisterRequestFamily, - tpRegisterRequestVersion :: TpRegisterRequest -> Text -tpRegisterRequestVersion = Text -tpRegisterRequestVersion, - tpRegisterRequestNamespaces :: TpRegisterRequest -> Vector Text -tpRegisterRequestNamespaces = Vector Text -tpRegisterRequestNamespaces, - tpRegisterRequestMaxOccupancy :: TpRegisterRequest -> Word32 -tpRegisterRequestMaxOccupancy = Word32 -tpRegisterRequestMaxOccupancy, - tpRegisterRequestProtocolVersion :: TpRegisterRequest -> Word32 + Text +tpRegisterRequestFamily, + tpRegisterRequestVersion :: TpRegisterRequest -> Text +tpRegisterRequestVersion = Text +tpRegisterRequestVersion, + tpRegisterRequestNamespaces :: TpRegisterRequest -> Vector Text +tpRegisterRequestNamespaces = Vector Text +tpRegisterRequestNamespaces, + tpRegisterRequestMaxOccupancy :: TpRegisterRequest -> Word32 +tpRegisterRequestMaxOccupancy = Word32 +tpRegisterRequestMaxOccupancy, + tpRegisterRequestProtocolVersion :: TpRegisterRequest -> Word32 tpRegisterRequestProtocolVersion = - Word32 -tpRegisterRequestProtocolVersion, - tpRegisterRequestRequestHeaderStyle :: TpRegisterRequest + Word32 +tpRegisterRequestProtocolVersion, + tpRegisterRequestRequestHeaderStyle :: TpRegisterRequest -> Enumerated TpRegisterRequest_TpProcessRequestHeaderStyle tpRegisterRequestRequestHeaderStyle = - Enumerated TpRegisterRequest_TpProcessRequestHeaderStyle -tpRegisterRequestRequestHeaderStyle} - = ([MessageBuilder] -> MessageBuilder + Enumerated TpRegisterRequest_TpProcessRequestHeaderStyle +tpRegisterRequestRequestHeaderStyle} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> Text -> MessageBuilder +Hs.mconcat + [(FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Text -tpRegisterRequestFamily), - (FieldNumber -> Text -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Text +tpRegisterRequestFamily), + (FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - Text -tpRegisterRequestVersion), - (FieldNumber -> UnpackedVec Text -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + Text +tpRegisterRequestVersion), + (FieldNumber -> UnpackedVec Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 4) - (Vector Text -> UnpackedVec Text -forall a b. Coercible a b => a -> b -Hs.coerce @(Hs.Vector Hs.Text) @(HsProtobuf.UnpackedVec Hs.Text) - Vector Text -tpRegisterRequestNamespaces)), - (FieldNumber -> Word32 -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +4) + (Vector Text -> UnpackedVec Text +Hs.coerce @(Hs.Vector Hs.Text) @(HsProtobuf.UnpackedVec Hs.Text) + Vector Text +tpRegisterRequestNamespaces)), + (FieldNumber -> Word32 -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 5) - Word32 -tpRegisterRequestMaxOccupancy), - (FieldNumber -> Word32 -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +5) + Word32 +tpRegisterRequestMaxOccupancy), + (FieldNumber -> Word32 -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 6) - Word32 -tpRegisterRequestProtocolVersion), - (FieldNumber +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +6) + Word32 +tpRegisterRequestProtocolVersion), + (FieldNumber -> Enumerated TpRegisterRequest_TpProcessRequestHeaderStyle -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 7) - Enumerated TpRegisterRequest_TpProcessRequestHeaderStyle -tpRegisterRequestRequestHeaderStyle)]) - decodeMessage :: FieldNumber -> Parser RawMessage TpRegisterRequest -decodeMessage _ - = ((Text +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +7) + Enumerated TpRegisterRequest_TpProcessRequestHeaderStyle +tpRegisterRequestRequestHeaderStyle)]) + decodeMessage :: FieldNumber -> Parser RawMessage TpRegisterRequest +decodeMessage FieldNumber +_ + = ((Text -> Text -> Vector Text -> Word32 @@ -227,7 +235,7 @@ forall a. MessageField a => FieldNumber -> a -> MessageBuilder -> Enumerated TpRegisterRequest_TpProcessRequestHeaderStyle -> TpRegisterRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text +Hs.pure Text -> Text -> Vector Text -> Word32 @@ -253,15 +261,16 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Enumerated TpRegisterRequest_TpProcessRequestHeaderStyle -> TpRegisterRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (Text -> Vector Text @@ -278,15 +287,16 @@ forall a. MessageField a => Parser RawField a -> Enumerated TpRegisterRequest_TpProcessRequestHeaderStyle -> TpRegisterRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2)) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2)) + Parser RawMessage (Vector Text -> Word32 @@ -301,21 +311,21 @@ forall a. MessageField a => Parser RawField a -> Enumerated TpRegisterRequest_TpProcessRequestHeaderStyle -> TpRegisterRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (UnpackedVec Text) +<*> + (Parser RawMessage (UnpackedVec Text) -> Parser RawMessage (Vector Text) -forall a b. Coercible a b => a -> b -Hs.coerce @(_ (HsProtobuf.UnpackedVec Hs.Text)) - @(_ (Hs.Vector Hs.Text)) - (Parser RawField (UnpackedVec Text) +Hs.coerce @(_ (HsProtobuf.UnpackedVec Hs.Text)) + @(_ (Hs.Vector Hs.Text)) + (Parser RawField (UnpackedVec Text) -> FieldNumber -> Parser RawMessage (UnpackedVec Text) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (UnpackedVec Text) +HsProtobuf.at Parser RawField (UnpackedVec Text) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 4))) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +4))) + Parser RawMessage (Word32 -> Word32 @@ -328,15 +338,16 @@ forall a. MessageField a => Parser RawField a -> Enumerated TpRegisterRequest_TpProcessRequestHeaderStyle -> TpRegisterRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Word32 -> FieldNumber -> Parser RawMessage Word32 +<*> + (Parser RawField Word32 -> FieldNumber -> Parser RawMessage Word32 forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Word32 +HsProtobuf.at Parser RawField Word32 forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 5)) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +5)) + Parser RawMessage (Word32 -> Enumerated TpRegisterRequest_TpProcessRequestHeaderStyle @@ -347,15 +358,16 @@ forall a. MessageField a => Parser RawField a (Enumerated TpRegisterRequest_TpProcessRequestHeaderStyle -> TpRegisterRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Word32 -> FieldNumber -> Parser RawMessage Word32 +<*> + (Parser RawField Word32 -> FieldNumber -> Parser RawMessage Word32 forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Word32 +HsProtobuf.at Parser RawField Word32 forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 6)) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +6)) + Parser RawMessage (Enumerated TpRegisterRequest_TpProcessRequestHeaderStyle -> TpRegisterRequest) @@ -364,222 +376,256 @@ forall a. MessageField a => Parser RawField a (Enumerated TpRegisterRequest_TpProcessRequestHeaderStyle) -> Parser RawMessage TpRegisterRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser +<*> + (Parser RawField (Enumerated TpRegisterRequest_TpProcessRequestHeaderStyle) -> FieldNumber -> Parser RawMessage (Enumerated TpRegisterRequest_TpProcessRequestHeaderStyle) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser +HsProtobuf.at Parser RawField (Enumerated TpRegisterRequest_TpProcessRequestHeaderStyle) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 7)) - dotProto :: Proxy# TpRegisterRequest -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +7)) + dotProto :: Proxy# TpRegisterRequest -> [DotProtoField] +dotProto Proxy# TpRegisterRequest +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "family") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"family") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "version") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"version") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 4) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Repeated DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "namespaces") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +4) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Repeated DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"namespaces") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 5) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.UInt32) - (String -> DotProtoIdentifier -HsProtobuf.Single "max_occupancy") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +5) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.UInt32) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"max_occupancy") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 6) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.UInt32) - (String -> DotProtoIdentifier -HsProtobuf.Single "protocol_version") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +6) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.UInt32) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"protocol_version") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 7) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim - (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named - (String -> DotProtoIdentifier -HsProtobuf.Single "TpProcessRequestHeaderStyle"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "request_header_style") - [] - "")] - -instance HsJSONPB.ToJSONPB TpRegisterRequest where - toJSONPB :: TpRegisterRequest -> Options -> Value -toJSONPB (TpRegisterRequest f1 :: Text -f1 f2 :: Text -f2 f4 :: Vector Text -f4 f5 :: Word32 -f5 f6 :: Word32 -f6 f7 :: Enumerated TpRegisterRequest_TpProcessRequestHeaderStyle -f7) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object - ["family" Text -> Text -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +7) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim + (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named + (String -> DotProtoIdentifier +HsProtobuf.Single String +"TpProcessRequestHeaderStyle"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"request_header_style") + [] + String +"")] + +instance HsJSONPB.ToJSONPB TpRegisterRequest where + toJSONPB :: TpRegisterRequest -> Options -> Value +toJSONPB (TpRegisterRequest Text +f1 Text +f2 Vector Text +f4 Word32 +f5 Word32 +f6 Enumerated TpRegisterRequest_TpProcessRequestHeaderStyle +f7) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object + [Text +"family" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1, "version" Text -> Text -> Options -> [Pair] +.= Text +f1, Text +"version" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f2, "namespaces" Text -> Vector Text -> Options -> [Pair] +.= Text +f2, Text +"namespaces" Text -> Vector Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Text -f4, - "max_occupancy" Text -> Word32 -> Options -> [Pair] +.= Vector Text +f4, + Text +"max_occupancy" Text -> Word32 -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Word32 -f5, "protocol_version" Text -> Word32 -> Options -> [Pair] +.= Word32 +f5, Text +"protocol_version" Text -> Word32 -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Word32 -f6, - "request_header_style" Text +.= Word32 +f6, + Text +"request_header_style" Text -> Enumerated TpRegisterRequest_TpProcessRequestHeaderStyle -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated TpRegisterRequest_TpProcessRequestHeaderStyle -f7]) - toEncodingPB :: TpRegisterRequest -> Options -> Encoding -toEncodingPB (TpRegisterRequest f1 :: Text -f1 f2 :: Text -f2 f4 :: Vector Text -f4 f5 :: Word32 -f5 f6 :: Word32 -f6 f7 :: Enumerated TpRegisterRequest_TpProcessRequestHeaderStyle -f7) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs - ["family" Text -> Text -> Options -> Series +.= Enumerated TpRegisterRequest_TpProcessRequestHeaderStyle +f7]) + toEncodingPB :: TpRegisterRequest -> Options -> Encoding +toEncodingPB (TpRegisterRequest Text +f1 Text +f2 Vector Text +f4 Word32 +f5 Word32 +f6 Enumerated TpRegisterRequest_TpProcessRequestHeaderStyle +f7) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs + [Text +"family" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1, "version" Text -> Text -> Options -> Series +.= Text +f1, Text +"version" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f2, "namespaces" Text -> Vector Text -> Options -> Series +.= Text +f2, Text +"namespaces" Text -> Vector Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Text -f4, - "max_occupancy" Text -> Word32 -> Options -> Series +.= Vector Text +f4, + Text +"max_occupancy" Text -> Word32 -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Word32 -f5, "protocol_version" Text -> Word32 -> Options -> Series +.= Word32 +f5, Text +"protocol_version" Text -> Word32 -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Word32 -f6, - "request_header_style" Text +.= Word32 +f6, + Text +"request_header_style" Text -> Enumerated TpRegisterRequest_TpProcessRequestHeaderStyle -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated TpRegisterRequest_TpProcessRequestHeaderStyle -f7]) - -instance HsJSONPB.FromJSONPB TpRegisterRequest where - parseJSONPB :: Value -> Parser TpRegisterRequest -parseJSONPB - = (String +.= Enumerated TpRegisterRequest_TpProcessRequestHeaderStyle +f7]) + +instance HsJSONPB.FromJSONPB TpRegisterRequest where + parseJSONPB :: Value -> Parser TpRegisterRequest +parseJSONPB + = (String -> (Object -> Parser TpRegisterRequest) -> Value -> Parser TpRegisterRequest forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "TpRegisterRequest" - (\ obj :: Object -obj -> - ((Text +HsJSONPB.withObject String +"TpRegisterRequest" + (\ Object +obj -> + ((Text -> Text -> Vector Text -> Word32 @@ -595,7 +641,7 @@ forall a. String -> (Object -> Parser a) -> Value -> Parser a -> Enumerated TpRegisterRequest_TpProcessRequestHeaderStyle -> TpRegisterRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text +Hs.pure Text -> Text -> Vector Text -> Word32 @@ -619,12 +665,13 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Enumerated TpRegisterRequest_TpProcessRequestHeaderStyle -> TpRegisterRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Text +<*> Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "family" Parser +.: Text +"family" Parser (Text -> Vector Text -> Word32 @@ -639,14 +686,15 @@ Object -> Text -> Parser a -> Enumerated TpRegisterRequest_TpProcessRequestHeaderStyle -> TpRegisterRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser Text +<*> + Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "version" - Parser +.: Text +"version" + Parser (Vector Text -> Word32 -> Word32 @@ -659,13 +707,14 @@ Object -> Text -> Parser a -> Enumerated TpRegisterRequest_TpProcessRequestHeaderStyle -> TpRegisterRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser (Vector Text) +<*> Object +obj Object -> Text -> Parser (Vector Text) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "namespaces" - Parser +.: Text +"namespaces" + Parser (Word32 -> Word32 -> Enumerated TpRegisterRequest_TpProcessRequestHeaderStyle @@ -676,13 +725,14 @@ Object -> Text -> Parser a -> Enumerated TpRegisterRequest_TpProcessRequestHeaderStyle -> TpRegisterRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Word32 +<*> Object +obj Object -> Text -> Parser Word32 forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "max_occupancy" - Parser +.: Text +"max_occupancy" + Parser (Word32 -> Enumerated TpRegisterRequest_TpProcessRequestHeaderStyle -> TpRegisterRequest) @@ -691,143 +741,146 @@ Object -> Text -> Parser a (Enumerated TpRegisterRequest_TpProcessRequestHeaderStyle -> TpRegisterRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Word32 +<*> Object +obj Object -> Text -> Parser Word32 forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "protocol_version" - Parser +.: Text +"protocol_version" + Parser (Enumerated TpRegisterRequest_TpProcessRequestHeaderStyle -> TpRegisterRequest) -> Parser (Enumerated TpRegisterRequest_TpProcessRequestHeaderStyle) -> Parser TpRegisterRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object +<*> Object +obj Object -> Text -> Parser (Enumerated TpRegisterRequest_TpProcessRequestHeaderStyle) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "request_header_style")) - -instance HsJSONPB.ToJSON TpRegisterRequest where - toJSON :: TpRegisterRequest -> Value -toJSON = TpRegisterRequest -> Value +.: Text +"request_header_style")) + +instance HsJSONPB.ToJSON TpRegisterRequest where + toJSON :: TpRegisterRequest -> Value +toJSON = TpRegisterRequest -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: TpRegisterRequest -> Encoding -toEncoding = TpRegisterRequest -> Encoding +HsJSONPB.toAesonValue + toEncoding :: TpRegisterRequest -> Encoding +toEncoding = TpRegisterRequest -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON TpRegisterRequest where - parseJSON :: Value -> Parser TpRegisterRequest -parseJSON = Value -> Parser TpRegisterRequest +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON TpRegisterRequest where + parseJSON :: Value -> Parser TpRegisterRequest +parseJSON = Value -> Parser TpRegisterRequest forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema TpRegisterRequest where - declareNamedSchema :: Proxy TpRegisterRequest -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_family :: Proxy (OverrideToSchema Text) +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema TpRegisterRequest where + declareNamedSchema :: Proxy TpRegisterRequest -> Declare (Definitions Schema) NamedSchema +declareNamedSchema Proxy TpRegisterRequest +_ + = do let declare_family :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_family = Proxy (OverrideToSchema Text) +declare_family = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -tpRegisterRequestFamily <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +tpRegisterRequestFamily <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_family Proxy (OverrideToSchema Text) +declare_family Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_version :: Proxy (OverrideToSchema Text) +Proxy.Proxy + let declare_version :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_version = Proxy (OverrideToSchema Text) +declare_version = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -tpRegisterRequestVersion <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +tpRegisterRequestVersion <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_version Proxy (OverrideToSchema Text) +declare_version Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_namespaces :: Proxy (OverrideToSchema (Vector Text)) +Proxy.Proxy + let declare_namespaces :: Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) -declare_namespaces = Proxy (OverrideToSchema (Vector Text)) +declare_namespaces = Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -tpRegisterRequestNamespaces <- Proxy (OverrideToSchema (Vector Text)) +HsJSONPB.declareSchemaRef + Referenced Schema +tpRegisterRequestNamespaces <- Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) -declare_namespaces Proxy (OverrideToSchema (Vector Text)) +declare_namespaces Proxy (OverrideToSchema (Vector Text)) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_max_occupancy :: Proxy (OverrideToSchema Word32) +Proxy.Proxy + let declare_max_occupancy :: Proxy (OverrideToSchema Word32) -> Declare (Definitions Schema) (Referenced Schema) -declare_max_occupancy = Proxy (OverrideToSchema Word32) +declare_max_occupancy = Proxy (OverrideToSchema Word32) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -tpRegisterRequestMaxOccupancy <- Proxy (OverrideToSchema Word32) +HsJSONPB.declareSchemaRef + Referenced Schema +tpRegisterRequestMaxOccupancy <- Proxy (OverrideToSchema Word32) -> Declare (Definitions Schema) (Referenced Schema) -declare_max_occupancy Proxy (OverrideToSchema Word32) +declare_max_occupancy Proxy (OverrideToSchema Word32) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_protocol_version :: Proxy (OverrideToSchema Word32) +Proxy.Proxy + let declare_protocol_version :: Proxy (OverrideToSchema Word32) -> Declare (Definitions Schema) (Referenced Schema) -declare_protocol_version = Proxy (OverrideToSchema Word32) +declare_protocol_version = Proxy (OverrideToSchema Word32) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -tpRegisterRequestProtocolVersion <- Proxy (OverrideToSchema Word32) +HsJSONPB.declareSchemaRef + Referenced Schema +tpRegisterRequestProtocolVersion <- Proxy (OverrideToSchema Word32) -> Declare (Definitions Schema) (Referenced Schema) -declare_protocol_version - Proxy (OverrideToSchema Word32) +declare_protocol_version + Proxy (OverrideToSchema Word32) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_request_header_style :: Proxy +Proxy.Proxy + let declare_request_header_style :: Proxy (OverrideToSchema (Enumerated TpRegisterRequest_TpProcessRequestHeaderStyle)) -> Declare (Definitions Schema) (Referenced Schema) -declare_request_header_style = Proxy +declare_request_header_style = Proxy (OverrideToSchema (Enumerated TpRegisterRequest_TpProcessRequestHeaderStyle)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -tpRegisterRequestRequestHeaderStyle <- Proxy +HsJSONPB.declareSchemaRef + Referenced Schema +tpRegisterRequestRequestHeaderStyle <- Proxy (OverrideToSchema (Enumerated TpRegisterRequest_TpProcessRequestHeaderStyle)) -> Declare (Definitions Schema) (Referenced Schema) -declare_request_header_style - Proxy +declare_request_header_style + Proxy (OverrideToSchema (Enumerated TpRegisterRequest_TpProcessRequestHeaderStyle)) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy TpRegisterRequest +Proxy.Proxy + let Proxy TpRegisterRequest _ = (Text -> Text -> Vector Text @@ -844,7 +897,7 @@ forall k (t :: k). Proxy t -> Enumerated TpRegisterRequest_TpProcessRequestHeaderStyle -> TpRegisterRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text +Hs.pure Text -> Text -> Vector Text -> Word32 @@ -868,15 +921,15 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Enumerated TpRegisterRequest_TpProcessRequestHeaderStyle -> TpRegisterRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema Text) +<*> + (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_family - Proxy +declare_family + Proxy (Text -> Vector Text -> Word32 @@ -891,14 +944,14 @@ forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -> Enumerated TpRegisterRequest_TpProcessRequestHeaderStyle -> TpRegisterRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema Text) +<*> (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_version - Proxy +declare_version + Proxy (Vector Text -> Word32 -> Word32 @@ -911,14 +964,14 @@ forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -> Enumerated TpRegisterRequest_TpProcessRequestHeaderStyle -> TpRegisterRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema (Vector Text)) +<*> (Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Vector Text) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Text)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) -declare_namespaces - Proxy +declare_namespaces + Proxy (Word32 -> Word32 -> Enumerated TpRegisterRequest_TpProcessRequestHeaderStyle @@ -929,14 +982,14 @@ forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -> Enumerated TpRegisterRequest_TpProcessRequestHeaderStyle -> TpRegisterRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema Word32) +<*> (Proxy (OverrideToSchema Word32) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Word32 forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Word32) +HsJSONPB.asProxy Proxy (OverrideToSchema Word32) -> Declare (Definitions Schema) (Referenced Schema) -declare_max_occupancy - Proxy +declare_max_occupancy + Proxy (Word32 -> Enumerated TpRegisterRequest_TpProcessRequestHeaderStyle -> TpRegisterRequest) @@ -945,80 +998,87 @@ forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a (Enumerated TpRegisterRequest_TpProcessRequestHeaderStyle -> TpRegisterRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema Word32) +<*> (Proxy (OverrideToSchema Word32) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Word32 forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Word32) +HsJSONPB.asProxy Proxy (OverrideToSchema Word32) -> Declare (Definitions Schema) (Referenced Schema) -declare_protocol_version - Proxy +declare_protocol_version + Proxy (Enumerated TpRegisterRequest_TpProcessRequestHeaderStyle -> TpRegisterRequest) -> Proxy (Enumerated TpRegisterRequest_TpProcessRequestHeaderStyle) -> Proxy TpRegisterRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy +<*> (Proxy (OverrideToSchema (Enumerated TpRegisterRequest_TpProcessRequestHeaderStyle)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Enumerated TpRegisterRequest_TpProcessRequestHeaderStyle) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy +HsJSONPB.asProxy Proxy (OverrideToSchema (Enumerated TpRegisterRequest_TpProcessRequestHeaderStyle)) -> Declare (Definitions Schema) (Referenced Schema) -declare_request_header_style - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_request_header_style + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "TpRegisterRequest", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"TpRegisterRequest", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("family", Referenced Schema -tpRegisterRequestFamily), - ("version", Referenced Schema -tpRegisterRequestVersion), - ("namespaces", Referenced Schema -tpRegisterRequestNamespaces), - ("max_occupancy", - Referenced Schema -tpRegisterRequestMaxOccupancy), - ("protocol_version", - Referenced Schema -tpRegisterRequestProtocolVersion), - ("request_header_style", - Referenced Schema -tpRegisterRequestRequestHeaderStyle)]}}) - -data TpRegisterRequest_TpProcessRequestHeaderStyle = TpRegisterRequest_TpProcessRequestHeaderStyleHEADER_STYLE_UNSET - | TpRegisterRequest_TpProcessRequestHeaderStyleEXPANDED - | TpRegisterRequest_TpProcessRequestHeaderStyleRAW - deriving (Int -> TpRegisterRequest_TpProcessRequestHeaderStyle -> ShowS +HsJSONPB.insOrdFromList + [(Text +"family", Referenced Schema +tpRegisterRequestFamily), + (Text +"version", Referenced Schema +tpRegisterRequestVersion), + (Text +"namespaces", Referenced Schema +tpRegisterRequestNamespaces), + (Text +"max_occupancy", + Referenced Schema +tpRegisterRequestMaxOccupancy), + (Text +"protocol_version", + Referenced Schema +tpRegisterRequestProtocolVersion), + (Text +"request_header_style", + Referenced Schema +tpRegisterRequestRequestHeaderStyle)]}}) + +data TpRegisterRequest_TpProcessRequestHeaderStyle = TpRegisterRequest_TpProcessRequestHeaderStyleHEADER_STYLE_UNSET + | TpRegisterRequest_TpProcessRequestHeaderStyleEXPANDED + | TpRegisterRequest_TpProcessRequestHeaderStyleRAW + deriving (Int -> TpRegisterRequest_TpProcessRequestHeaderStyle -> ShowS [TpRegisterRequest_TpProcessRequestHeaderStyle] -> ShowS TpRegisterRequest_TpProcessRequestHeaderStyle -> String (Int -> TpRegisterRequest_TpProcessRequestHeaderStyle -> ShowS) @@ -1033,7 +1093,7 @@ show :: TpRegisterRequest_TpProcessRequestHeaderStyle -> String $cshow :: TpRegisterRequest_TpProcessRequestHeaderStyle -> String showsPrec :: Int -> TpRegisterRequest_TpProcessRequestHeaderStyle -> ShowS $cshowsPrec :: Int -> TpRegisterRequest_TpProcessRequestHeaderStyle -> ShowS -Hs.Show, TpRegisterRequest_TpProcessRequestHeaderStyle +Hs.Show, TpRegisterRequest_TpProcessRequestHeaderStyle -> TpRegisterRequest_TpProcessRequestHeaderStyle -> Bool (TpRegisterRequest_TpProcessRequestHeaderStyle -> TpRegisterRequest_TpProcessRequestHeaderStyle -> Bool) @@ -1049,7 +1109,7 @@ $c/= :: TpRegisterRequest_TpProcessRequestHeaderStyle -> TpRegisterRequest_TpProcessRequestHeaderStyle -> Bool $c== :: TpRegisterRequest_TpProcessRequestHeaderStyle -> TpRegisterRequest_TpProcessRequestHeaderStyle -> Bool -Hs.Eq, (forall x. +Hs.Eq, (forall x. TpRegisterRequest_TpProcessRequestHeaderStyle -> Rep TpRegisterRequest_TpProcessRequestHeaderStyle x) -> (forall x. @@ -1070,166 +1130,181 @@ Rep TpRegisterRequest_TpProcessRequestHeaderStyle x $cfrom :: forall x. TpRegisterRequest_TpProcessRequestHeaderStyle -> Rep TpRegisterRequest_TpProcessRequestHeaderStyle x -Hs.Generic, TpRegisterRequest_TpProcessRequestHeaderStyle -> () +Hs.Generic, TpRegisterRequest_TpProcessRequestHeaderStyle -> () (TpRegisterRequest_TpProcessRequestHeaderStyle -> ()) -> NFData TpRegisterRequest_TpProcessRequestHeaderStyle forall a. (a -> ()) -> NFData a rnf :: TpRegisterRequest_TpProcessRequestHeaderStyle -> () $crnf :: TpRegisterRequest_TpProcessRequestHeaderStyle -> () -Hs.NFData) - -instance HsProtobuf.Named - TpRegisterRequest_TpProcessRequestHeaderStyle where - nameOf :: Proxy# TpRegisterRequest_TpProcessRequestHeaderStyle -> string -nameOf _ - = (String -> string +Hs.NFData) + +instance HsProtobuf.Named + TpRegisterRequest_TpProcessRequestHeaderStyle where + nameOf :: Proxy# TpRegisterRequest_TpProcessRequestHeaderStyle -> string +nameOf Proxy# TpRegisterRequest_TpProcessRequestHeaderStyle +_ + = (String -> string forall a. IsString a => String -> a -Hs.fromString "TpRegisterRequest_TpProcessRequestHeaderStyle") - -instance HsProtobuf.HasDefault - TpRegisterRequest_TpProcessRequestHeaderStyle - -instance Hs.Bounded TpRegisterRequest_TpProcessRequestHeaderStyle - where - minBound :: TpRegisterRequest_TpProcessRequestHeaderStyle -minBound - = TpRegisterRequest_TpProcessRequestHeaderStyle +Hs.fromString String +"TpRegisterRequest_TpProcessRequestHeaderStyle") + +instance HsProtobuf.HasDefault + TpRegisterRequest_TpProcessRequestHeaderStyle + +instance Hs.Bounded TpRegisterRequest_TpProcessRequestHeaderStyle + where + minBound :: TpRegisterRequest_TpProcessRequestHeaderStyle +minBound + = TpRegisterRequest_TpProcessRequestHeaderStyle TpRegisterRequest_TpProcessRequestHeaderStyleHEADER_STYLE_UNSET - maxBound :: TpRegisterRequest_TpProcessRequestHeaderStyle -maxBound = TpRegisterRequest_TpProcessRequestHeaderStyle + maxBound :: TpRegisterRequest_TpProcessRequestHeaderStyle +maxBound = TpRegisterRequest_TpProcessRequestHeaderStyle TpRegisterRequest_TpProcessRequestHeaderStyleRAW - -instance Hs.Ord TpRegisterRequest_TpProcessRequestHeaderStyle where - compare :: TpRegisterRequest_TpProcessRequestHeaderStyle + +instance Hs.Ord TpRegisterRequest_TpProcessRequestHeaderStyle where + compare :: TpRegisterRequest_TpProcessRequestHeaderStyle -> TpRegisterRequest_TpProcessRequestHeaderStyle -> Ordering -compare x :: TpRegisterRequest_TpProcessRequestHeaderStyle -x y :: TpRegisterRequest_TpProcessRequestHeaderStyle -y - = Int32 -> Int32 -> Ordering +compare TpRegisterRequest_TpProcessRequestHeaderStyle +x TpRegisterRequest_TpProcessRequestHeaderStyle +y + = Int32 -> Int32 -> Ordering forall a. Ord a => a -> a -> Ordering -Hs.compare (TpRegisterRequest_TpProcessRequestHeaderStyle -> Int32 +Hs.compare (TpRegisterRequest_TpProcessRequestHeaderStyle -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum TpRegisterRequest_TpProcessRequestHeaderStyle -x) - (TpRegisterRequest_TpProcessRequestHeaderStyle -> Int32 +HsProtobuf.fromProtoEnum TpRegisterRequest_TpProcessRequestHeaderStyle +x) + (TpRegisterRequest_TpProcessRequestHeaderStyle -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum TpRegisterRequest_TpProcessRequestHeaderStyle -y) - -instance HsProtobuf.ProtoEnum - TpRegisterRequest_TpProcessRequestHeaderStyle where - toProtoEnumMay :: Int32 -> Maybe TpRegisterRequest_TpProcessRequestHeaderStyle -toProtoEnumMay 0 - = TpRegisterRequest_TpProcessRequestHeaderStyle +HsProtobuf.fromProtoEnum TpRegisterRequest_TpProcessRequestHeaderStyle +y) + +instance HsProtobuf.ProtoEnum + TpRegisterRequest_TpProcessRequestHeaderStyle where + toProtoEnumMay :: Int32 -> Maybe TpRegisterRequest_TpProcessRequestHeaderStyle +toProtoEnumMay Int32 +0 + = TpRegisterRequest_TpProcessRequestHeaderStyle -> Maybe TpRegisterRequest_TpProcessRequestHeaderStyle forall a. a -> Maybe a -Hs.Just - TpRegisterRequest_TpProcessRequestHeaderStyle +Hs.Just + TpRegisterRequest_TpProcessRequestHeaderStyle TpRegisterRequest_TpProcessRequestHeaderStyleHEADER_STYLE_UNSET - toProtoEnumMay 1 - = TpRegisterRequest_TpProcessRequestHeaderStyle + toProtoEnumMay Int32 +1 + = TpRegisterRequest_TpProcessRequestHeaderStyle -> Maybe TpRegisterRequest_TpProcessRequestHeaderStyle forall a. a -> Maybe a -Hs.Just TpRegisterRequest_TpProcessRequestHeaderStyle +Hs.Just TpRegisterRequest_TpProcessRequestHeaderStyle TpRegisterRequest_TpProcessRequestHeaderStyleEXPANDED - toProtoEnumMay 2 - = TpRegisterRequest_TpProcessRequestHeaderStyle + toProtoEnumMay Int32 +2 + = TpRegisterRequest_TpProcessRequestHeaderStyle -> Maybe TpRegisterRequest_TpProcessRequestHeaderStyle forall a. a -> Maybe a -Hs.Just TpRegisterRequest_TpProcessRequestHeaderStyle +Hs.Just TpRegisterRequest_TpProcessRequestHeaderStyle TpRegisterRequest_TpProcessRequestHeaderStyleRAW - toProtoEnumMay _ = Maybe TpRegisterRequest_TpProcessRequestHeaderStyle + toProtoEnumMay Int32 +_ = Maybe TpRegisterRequest_TpProcessRequestHeaderStyle forall a. Maybe a -Hs.Nothing - fromProtoEnum :: TpRegisterRequest_TpProcessRequestHeaderStyle -> Int32 -fromProtoEnum - (TpRegisterRequest_TpProcessRequestHeaderStyle +Hs.Nothing + fromProtoEnum :: TpRegisterRequest_TpProcessRequestHeaderStyle -> Int32 +fromProtoEnum + (TpRegisterRequest_TpProcessRequestHeaderStyle TpRegisterRequest_TpProcessRequestHeaderStyleHEADER_STYLE_UNSET) - = 0 - fromProtoEnum - (TpRegisterRequest_TpProcessRequestHeaderStyle -TpRegisterRequest_TpProcessRequestHeaderStyleEXPANDED) = 1 - fromProtoEnum (TpRegisterRequest_TpProcessRequestHeaderStyle + = Int32 +0 + fromProtoEnum + (TpRegisterRequest_TpProcessRequestHeaderStyle +TpRegisterRequest_TpProcessRequestHeaderStyleEXPANDED) = Int32 +1 + fromProtoEnum (TpRegisterRequest_TpProcessRequestHeaderStyle TpRegisterRequest_TpProcessRequestHeaderStyleRAW) - = 2 - -instance HsJSONPB.ToJSONPB - TpRegisterRequest_TpProcessRequestHeaderStyle where - toJSONPB :: TpRegisterRequest_TpProcessRequestHeaderStyle -> Options -> Value -toJSONPB x :: TpRegisterRequest_TpProcessRequestHeaderStyle -x _ = TpRegisterRequest_TpProcessRequestHeaderStyle -> Value + = Int32 +2 + +instance HsJSONPB.ToJSONPB + TpRegisterRequest_TpProcessRequestHeaderStyle where + toJSONPB :: TpRegisterRequest_TpProcessRequestHeaderStyle -> Options -> Value +toJSONPB TpRegisterRequest_TpProcessRequestHeaderStyle +x Options +_ = TpRegisterRequest_TpProcessRequestHeaderStyle -> Value forall a. (Named a, Show a) => a -> Value -HsJSONPB.enumFieldString TpRegisterRequest_TpProcessRequestHeaderStyle -x - toEncodingPB :: TpRegisterRequest_TpProcessRequestHeaderStyle +HsJSONPB.enumFieldString TpRegisterRequest_TpProcessRequestHeaderStyle +x + toEncodingPB :: TpRegisterRequest_TpProcessRequestHeaderStyle -> Options -> Encoding -toEncodingPB x :: TpRegisterRequest_TpProcessRequestHeaderStyle -x _ = TpRegisterRequest_TpProcessRequestHeaderStyle -> Encoding +toEncodingPB TpRegisterRequest_TpProcessRequestHeaderStyle +x Options +_ = TpRegisterRequest_TpProcessRequestHeaderStyle -> Encoding forall a. (Named a, Show a) => a -> Encoding -HsJSONPB.enumFieldEncoding TpRegisterRequest_TpProcessRequestHeaderStyle -x - -instance HsJSONPB.FromJSONPB - TpRegisterRequest_TpProcessRequestHeaderStyle where - parseJSONPB :: Value -> Parser TpRegisterRequest_TpProcessRequestHeaderStyle -parseJSONPB (HsJSONPB.String "HEADER_STYLE_UNSET") - = TpRegisterRequest_TpProcessRequestHeaderStyle +HsJSONPB.enumFieldEncoding TpRegisterRequest_TpProcessRequestHeaderStyle +x + +instance HsJSONPB.FromJSONPB + TpRegisterRequest_TpProcessRequestHeaderStyle where + parseJSONPB :: Value -> Parser TpRegisterRequest_TpProcessRequestHeaderStyle +parseJSONPB (HsJSONPB.String Text +"HEADER_STYLE_UNSET") + = TpRegisterRequest_TpProcessRequestHeaderStyle -> Parser TpRegisterRequest_TpProcessRequestHeaderStyle forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure - TpRegisterRequest_TpProcessRequestHeaderStyle +Hs.pure + TpRegisterRequest_TpProcessRequestHeaderStyle TpRegisterRequest_TpProcessRequestHeaderStyleHEADER_STYLE_UNSET - parseJSONPB (HsJSONPB.String "EXPANDED") - = TpRegisterRequest_TpProcessRequestHeaderStyle + parseJSONPB (HsJSONPB.String Text +"EXPANDED") + = TpRegisterRequest_TpProcessRequestHeaderStyle -> Parser TpRegisterRequest_TpProcessRequestHeaderStyle forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure TpRegisterRequest_TpProcessRequestHeaderStyle +Hs.pure TpRegisterRequest_TpProcessRequestHeaderStyle TpRegisterRequest_TpProcessRequestHeaderStyleEXPANDED - parseJSONPB (HsJSONPB.String "RAW") - = TpRegisterRequest_TpProcessRequestHeaderStyle + parseJSONPB (HsJSONPB.String Text +"RAW") + = TpRegisterRequest_TpProcessRequestHeaderStyle -> Parser TpRegisterRequest_TpProcessRequestHeaderStyle forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure TpRegisterRequest_TpProcessRequestHeaderStyle +Hs.pure TpRegisterRequest_TpProcessRequestHeaderStyle TpRegisterRequest_TpProcessRequestHeaderStyleRAW - parseJSONPB v :: Value -v - = (String + parseJSONPB Value +v + = (String -> Value -> Parser TpRegisterRequest_TpProcessRequestHeaderStyle forall a. String -> Value -> Parser a -HsJSONPB.typeMismatch - "TpRegisterRequest_TpProcessRequestHeaderStyle" - Value -v) - -instance HsJSONPB.ToJSON - TpRegisterRequest_TpProcessRequestHeaderStyle where - toJSON :: TpRegisterRequest_TpProcessRequestHeaderStyle -> Value -toJSON = TpRegisterRequest_TpProcessRequestHeaderStyle -> Value +HsJSONPB.typeMismatch + String +"TpRegisterRequest_TpProcessRequestHeaderStyle" + Value +v) + +instance HsJSONPB.ToJSON + TpRegisterRequest_TpProcessRequestHeaderStyle where + toJSON :: TpRegisterRequest_TpProcessRequestHeaderStyle -> Value +toJSON = TpRegisterRequest_TpProcessRequestHeaderStyle -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: TpRegisterRequest_TpProcessRequestHeaderStyle -> Encoding -toEncoding = TpRegisterRequest_TpProcessRequestHeaderStyle -> Encoding +HsJSONPB.toAesonValue + toEncoding :: TpRegisterRequest_TpProcessRequestHeaderStyle -> Encoding +toEncoding = TpRegisterRequest_TpProcessRequestHeaderStyle -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON - TpRegisterRequest_TpProcessRequestHeaderStyle where - parseJSON :: Value -> Parser TpRegisterRequest_TpProcessRequestHeaderStyle -parseJSON = Value -> Parser TpRegisterRequest_TpProcessRequestHeaderStyle +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON + TpRegisterRequest_TpProcessRequestHeaderStyle where + parseJSON :: Value -> Parser TpRegisterRequest_TpProcessRequestHeaderStyle +parseJSON = Value -> Parser TpRegisterRequest_TpProcessRequestHeaderStyle forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsProtobuf.Finite - TpRegisterRequest_TpProcessRequestHeaderStyle - -data TpRegisterResponse = TpRegisterResponse{TpRegisterResponse -> Enumerated TpRegisterResponse_Status +HsJSONPB.parseJSONPB + +instance HsProtobuf.Finite + TpRegisterRequest_TpProcessRequestHeaderStyle + +data TpRegisterResponse = TpRegisterResponse{TpRegisterResponse -> Enumerated TpRegisterResponse_Status tpRegisterResponseStatus - :: - HsProtobuf.Enumerated - Data.Sawtooth.Processor.TpRegisterResponse_Status, - TpRegisterResponse -> Word32 -tpRegisterResponseProtocolVersion :: Hs.Word32} - deriving (Int -> TpRegisterResponse -> ShowS + :: + HsProtobuf.Enumerated + Data.Sawtooth.Processor.TpRegisterResponse_Status, + TpRegisterResponse -> Word32 +tpRegisterResponseProtocolVersion :: Hs.Word32} + deriving (Int -> TpRegisterResponse -> ShowS [TpRegisterResponse] -> ShowS TpRegisterResponse -> String (Int -> TpRegisterResponse -> ShowS) @@ -1244,7 +1319,7 @@ show :: TpRegisterResponse -> String $cshow :: TpRegisterResponse -> String showsPrec :: Int -> TpRegisterResponse -> ShowS $cshowsPrec :: Int -> TpRegisterResponse -> ShowS -Hs.Show, TpRegisterResponse -> TpRegisterResponse -> Bool +Hs.Show, TpRegisterResponse -> TpRegisterResponse -> Bool (TpRegisterResponse -> TpRegisterResponse -> Bool) -> (TpRegisterResponse -> TpRegisterResponse -> Bool) -> Eq TpRegisterResponse @@ -1253,9 +1328,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: TpRegisterResponse -> TpRegisterResponse -> Bool == :: TpRegisterResponse -> TpRegisterResponse -> Bool $c== :: TpRegisterResponse -> TpRegisterResponse -> Bool -Hs.Eq, Eq TpRegisterResponse -Eq TpRegisterResponse => -(TpRegisterResponse -> TpRegisterResponse -> Ordering) +Hs.Eq, Eq TpRegisterResponse +Eq TpRegisterResponse +-> (TpRegisterResponse -> TpRegisterResponse -> Ordering) -> (TpRegisterResponse -> TpRegisterResponse -> Bool) -> (TpRegisterResponse -> TpRegisterResponse -> Bool) -> (TpRegisterResponse -> TpRegisterResponse -> Bool) @@ -1267,8 +1342,8 @@ TpRegisterResponse -> TpRegisterResponse -> Bool TpRegisterResponse -> TpRegisterResponse -> Ordering TpRegisterResponse -> TpRegisterResponse -> TpRegisterResponse forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -1291,7 +1366,7 @@ $c< :: TpRegisterResponse -> TpRegisterResponse -> Bool compare :: TpRegisterResponse -> TpRegisterResponse -> Ordering $ccompare :: TpRegisterResponse -> TpRegisterResponse -> Ordering $cp1Ord :: Eq TpRegisterResponse -Hs.Ord, (forall x. TpRegisterResponse -> Rep TpRegisterResponse x) +Hs.Ord, (forall x. TpRegisterResponse -> Rep TpRegisterResponse x) -> (forall x. Rep TpRegisterResponse x -> TpRegisterResponse) -> Generic TpRegisterResponse forall x. Rep TpRegisterResponse x -> TpRegisterResponse @@ -1300,58 +1375,64 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep TpRegisterResponse x -> TpRegisterResponse $cfrom :: forall x. TpRegisterResponse -> Rep TpRegisterResponse x -Hs.Generic, TpRegisterResponse -> () +Hs.Generic, TpRegisterResponse -> () (TpRegisterResponse -> ()) -> NFData TpRegisterResponse forall a. (a -> ()) -> NFData a rnf :: TpRegisterResponse -> () $crnf :: TpRegisterResponse -> () -Hs.NFData) - -instance HsProtobuf.Named TpRegisterResponse where - nameOf :: Proxy# TpRegisterResponse -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named TpRegisterResponse where + nameOf :: Proxy# TpRegisterResponse -> string +nameOf Proxy# TpRegisterResponse +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "TpRegisterResponse") - -instance HsProtobuf.HasDefault TpRegisterResponse - -instance HsProtobuf.Message TpRegisterResponse where - encodeMessage :: FieldNumber -> TpRegisterResponse -> MessageBuilder -encodeMessage _ - TpRegisterResponse{tpRegisterResponseStatus :: TpRegisterResponse -> Enumerated TpRegisterResponse_Status +Hs.fromString String +"TpRegisterResponse") + +instance HsProtobuf.HasDefault TpRegisterResponse + +instance HsProtobuf.Message TpRegisterResponse where + encodeMessage :: FieldNumber -> TpRegisterResponse -> MessageBuilder +encodeMessage FieldNumber +_ + TpRegisterResponse{tpRegisterResponseStatus :: TpRegisterResponse -> Enumerated TpRegisterResponse_Status tpRegisterResponseStatus = - Enumerated TpRegisterResponse_Status -tpRegisterResponseStatus, - tpRegisterResponseProtocolVersion :: TpRegisterResponse -> Word32 + Enumerated TpRegisterResponse_Status +tpRegisterResponseStatus, + tpRegisterResponseProtocolVersion :: TpRegisterResponse -> Word32 tpRegisterResponseProtocolVersion = - Word32 -tpRegisterResponseProtocolVersion} - = ([MessageBuilder] -> MessageBuilder + Word32 +tpRegisterResponseProtocolVersion} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber +Hs.mconcat + [(FieldNumber -> Enumerated TpRegisterResponse_Status -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Enumerated TpRegisterResponse_Status -tpRegisterResponseStatus), - (FieldNumber -> Word32 -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Enumerated TpRegisterResponse_Status +tpRegisterResponseStatus), + (FieldNumber -> Word32 -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - Word32 -tpRegisterResponseProtocolVersion)]) - decodeMessage :: FieldNumber -> Parser RawMessage TpRegisterResponse -decodeMessage _ - = ((Enumerated TpRegisterResponse_Status +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + Word32 +tpRegisterResponseProtocolVersion)]) + decodeMessage :: FieldNumber -> Parser RawMessage TpRegisterResponse +decodeMessage FieldNumber +_ + = ((Enumerated TpRegisterResponse_Status -> Word32 -> TpRegisterResponse) -> Parser RawMessage (Enumerated TpRegisterResponse_Status -> Word32 -> TpRegisterResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated TpRegisterResponse_Status +Hs.pure Enumerated TpRegisterResponse_Status -> Word32 -> TpRegisterResponse TpRegisterResponse) Parser RawMessage @@ -1360,113 +1441,128 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Parser RawMessage (Enumerated TpRegisterResponse_Status) -> Parser RawMessage (Word32 -> TpRegisterResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField (Enumerated TpRegisterResponse_Status) +<*> + (Parser RawField (Enumerated TpRegisterResponse_Status) -> FieldNumber -> Parser RawMessage (Enumerated TpRegisterResponse_Status) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (Enumerated TpRegisterResponse_Status) +HsProtobuf.at Parser RawField (Enumerated TpRegisterResponse_Status) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser RawMessage (Word32 -> TpRegisterResponse) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (Word32 -> TpRegisterResponse) -> Parser RawMessage Word32 -> Parser RawMessage TpRegisterResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Word32 -> FieldNumber -> Parser RawMessage Word32 +<*> + (Parser RawField Word32 -> FieldNumber -> Parser RawMessage Word32 forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Word32 +HsProtobuf.at Parser RawField Word32 forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2)) - dotProto :: Proxy# TpRegisterResponse -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2)) + dotProto :: Proxy# TpRegisterResponse -> [DotProtoField] +dotProto Proxy# TpRegisterResponse +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "Status"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "status") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"Status"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"status") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.UInt32) - (String -> DotProtoIdentifier -HsProtobuf.Single "protocol_version") - [] - "")] - -instance HsJSONPB.ToJSONPB TpRegisterResponse where - toJSONPB :: TpRegisterResponse -> Options -> Value -toJSONPB (TpRegisterResponse f1 :: Enumerated TpRegisterResponse_Status -f1 f2 :: Word32 -f2) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["status" Text -> Enumerated TpRegisterResponse_Status -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.UInt32) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"protocol_version") + [] + String +"")] + +instance HsJSONPB.ToJSONPB TpRegisterResponse where + toJSONPB :: TpRegisterResponse -> Options -> Value +toJSONPB (TpRegisterResponse Enumerated TpRegisterResponse_Status +f1 Word32 +f2) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"status" Text -> Enumerated TpRegisterResponse_Status -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated TpRegisterResponse_Status -f1, "protocol_version" Text -> Word32 -> Options -> [Pair] +.= Enumerated TpRegisterResponse_Status +f1, Text +"protocol_version" Text -> Word32 -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Word32 -f2]) - toEncodingPB :: TpRegisterResponse -> Options -> Encoding -toEncodingPB (TpRegisterResponse f1 :: Enumerated TpRegisterResponse_Status -f1 f2 :: Word32 -f2) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["status" Text -> Enumerated TpRegisterResponse_Status -> Options -> Series +.= Word32 +f2]) + toEncodingPB :: TpRegisterResponse -> Options -> Encoding +toEncodingPB (TpRegisterResponse Enumerated TpRegisterResponse_Status +f1 Word32 +f2) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"status" Text -> Enumerated TpRegisterResponse_Status -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated TpRegisterResponse_Status -f1, "protocol_version" Text -> Word32 -> Options -> Series +.= Enumerated TpRegisterResponse_Status +f1, Text +"protocol_version" Text -> Word32 -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Word32 -f2]) - -instance HsJSONPB.FromJSONPB TpRegisterResponse where - parseJSONPB :: Value -> Parser TpRegisterResponse -parseJSONPB - = (String +.= Word32 +f2]) + +instance HsJSONPB.FromJSONPB TpRegisterResponse where + parseJSONPB :: Value -> Parser TpRegisterResponse +parseJSONPB + = (String -> (Object -> Parser TpRegisterResponse) -> Value -> Parser TpRegisterResponse forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "TpRegisterResponse" - (\ obj :: Object -obj -> - ((Enumerated TpRegisterResponse_Status +HsJSONPB.withObject String +"TpRegisterResponse" + (\ Object +obj -> + ((Enumerated TpRegisterResponse_Status -> Word32 -> TpRegisterResponse) -> Parser (Enumerated TpRegisterResponse_Status -> Word32 -> TpRegisterResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated TpRegisterResponse_Status +Hs.pure Enumerated TpRegisterResponse_Status -> Word32 -> TpRegisterResponse TpRegisterResponse) Parser (Enumerated TpRegisterResponse_Status @@ -1474,79 +1570,82 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Parser (Enumerated TpRegisterResponse_Status) -> Parser (Word32 -> TpRegisterResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser (Enumerated TpRegisterResponse_Status) +<*> Object +obj Object -> Text -> Parser (Enumerated TpRegisterResponse_Status) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "status" Parser (Word32 -> TpRegisterResponse) +.: Text +"status" Parser (Word32 -> TpRegisterResponse) -> Parser Word32 -> Parser TpRegisterResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser Word32 +<*> + Object +obj Object -> Text -> Parser Word32 forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "protocol_version")) - -instance HsJSONPB.ToJSON TpRegisterResponse where - toJSON :: TpRegisterResponse -> Value -toJSON = TpRegisterResponse -> Value +.: Text +"protocol_version")) + +instance HsJSONPB.ToJSON TpRegisterResponse where + toJSON :: TpRegisterResponse -> Value +toJSON = TpRegisterResponse -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: TpRegisterResponse -> Encoding -toEncoding = TpRegisterResponse -> Encoding +HsJSONPB.toAesonValue + toEncoding :: TpRegisterResponse -> Encoding +toEncoding = TpRegisterResponse -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON TpRegisterResponse where - parseJSON :: Value -> Parser TpRegisterResponse -parseJSON = Value -> Parser TpRegisterResponse +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON TpRegisterResponse where + parseJSON :: Value -> Parser TpRegisterResponse +parseJSON = Value -> Parser TpRegisterResponse forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema TpRegisterResponse where - declareNamedSchema :: Proxy TpRegisterResponse +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema TpRegisterResponse where + declareNamedSchema :: Proxy TpRegisterResponse -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_status :: Proxy (OverrideToSchema (Enumerated TpRegisterResponse_Status)) +declareNamedSchema Proxy TpRegisterResponse +_ + = do let declare_status :: Proxy (OverrideToSchema (Enumerated TpRegisterResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status = Proxy (OverrideToSchema (Enumerated TpRegisterResponse_Status)) +declare_status = Proxy (OverrideToSchema (Enumerated TpRegisterResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -tpRegisterResponseStatus <- Proxy (OverrideToSchema (Enumerated TpRegisterResponse_Status)) +HsJSONPB.declareSchemaRef + Referenced Schema +tpRegisterResponseStatus <- Proxy (OverrideToSchema (Enumerated TpRegisterResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status Proxy (OverrideToSchema (Enumerated TpRegisterResponse_Status)) +declare_status Proxy (OverrideToSchema (Enumerated TpRegisterResponse_Status)) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_protocol_version :: Proxy (OverrideToSchema Word32) +Proxy.Proxy + let declare_protocol_version :: Proxy (OverrideToSchema Word32) -> Declare (Definitions Schema) (Referenced Schema) -declare_protocol_version = Proxy (OverrideToSchema Word32) +declare_protocol_version = Proxy (OverrideToSchema Word32) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -tpRegisterResponseProtocolVersion <- Proxy (OverrideToSchema Word32) +HsJSONPB.declareSchemaRef + Referenced Schema +tpRegisterResponseProtocolVersion <- Proxy (OverrideToSchema Word32) -> Declare (Definitions Schema) (Referenced Schema) -declare_protocol_version - Proxy (OverrideToSchema Word32) +declare_protocol_version + Proxy (OverrideToSchema Word32) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy TpRegisterResponse +Proxy.Proxy + let Proxy TpRegisterResponse _ = (Enumerated TpRegisterResponse_Status -> Word32 -> TpRegisterResponse) -> Proxy (Enumerated TpRegisterResponse_Status -> Word32 -> TpRegisterResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated TpRegisterResponse_Status +Hs.pure Enumerated TpRegisterResponse_Status -> Word32 -> TpRegisterResponse TpRegisterResponse Proxy (Enumerated TpRegisterResponse_Status @@ -1554,64 +1653,67 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Proxy (Enumerated TpRegisterResponse_Status) -> Proxy (Word32 -> TpRegisterResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema (Enumerated TpRegisterResponse_Status)) +<*> + (Proxy (OverrideToSchema (Enumerated TpRegisterResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Enumerated TpRegisterResponse_Status) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Enumerated TpRegisterResponse_Status)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Enumerated TpRegisterResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status - Proxy (Word32 -> TpRegisterResponse) +declare_status + Proxy (Word32 -> TpRegisterResponse) -> Proxy Word32 -> Proxy TpRegisterResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema Word32) +<*> (Proxy (OverrideToSchema Word32) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Word32 forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Word32) +HsJSONPB.asProxy Proxy (OverrideToSchema Word32) -> Declare (Definitions Schema) (Referenced Schema) -declare_protocol_version - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_protocol_version + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "TpRegisterResponse", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"TpRegisterResponse", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("status", Referenced Schema -tpRegisterResponseStatus), - ("protocol_version", - Referenced Schema -tpRegisterResponseProtocolVersion)]}}) - -data TpRegisterResponse_Status = TpRegisterResponse_StatusSTATUS_UNSET - | TpRegisterResponse_StatusOK - | TpRegisterResponse_StatusERROR - deriving (Int -> TpRegisterResponse_Status -> ShowS +HsJSONPB.insOrdFromList + [(Text +"status", Referenced Schema +tpRegisterResponseStatus), + (Text +"protocol_version", + Referenced Schema +tpRegisterResponseProtocolVersion)]}}) + +data TpRegisterResponse_Status = TpRegisterResponse_StatusSTATUS_UNSET + | TpRegisterResponse_StatusOK + | TpRegisterResponse_StatusERROR + deriving (Int -> TpRegisterResponse_Status -> ShowS [TpRegisterResponse_Status] -> ShowS TpRegisterResponse_Status -> String (Int -> TpRegisterResponse_Status -> ShowS) @@ -1626,7 +1728,7 @@ show :: TpRegisterResponse_Status -> String $cshow :: TpRegisterResponse_Status -> String showsPrec :: Int -> TpRegisterResponse_Status -> ShowS $cshowsPrec :: Int -> TpRegisterResponse_Status -> ShowS -Hs.Show, TpRegisterResponse_Status -> TpRegisterResponse_Status -> Bool +Hs.Show, TpRegisterResponse_Status -> TpRegisterResponse_Status -> Bool (TpRegisterResponse_Status -> TpRegisterResponse_Status -> Bool) -> (TpRegisterResponse_Status -> TpRegisterResponse_Status -> Bool) -> Eq TpRegisterResponse_Status @@ -1635,7 +1737,7 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: TpRegisterResponse_Status -> TpRegisterResponse_Status -> Bool == :: TpRegisterResponse_Status -> TpRegisterResponse_Status -> Bool $c== :: TpRegisterResponse_Status -> TpRegisterResponse_Status -> Bool -Hs.Eq, (forall x. +Hs.Eq, (forall x. TpRegisterResponse_Status -> Rep TpRegisterResponse_Status x) -> (forall x. Rep TpRegisterResponse_Status x -> TpRegisterResponse_Status) @@ -1650,129 +1752,144 @@ $cto :: forall x. Rep TpRegisterResponse_Status x -> TpRegisterResponse_Status $cfrom :: forall x. TpRegisterResponse_Status -> Rep TpRegisterResponse_Status x -Hs.Generic, TpRegisterResponse_Status -> () +Hs.Generic, TpRegisterResponse_Status -> () (TpRegisterResponse_Status -> ()) -> NFData TpRegisterResponse_Status forall a. (a -> ()) -> NFData a rnf :: TpRegisterResponse_Status -> () $crnf :: TpRegisterResponse_Status -> () -Hs.NFData) - -instance HsProtobuf.Named TpRegisterResponse_Status where - nameOf :: Proxy# TpRegisterResponse_Status -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named TpRegisterResponse_Status where + nameOf :: Proxy# TpRegisterResponse_Status -> string +nameOf Proxy# TpRegisterResponse_Status +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "TpRegisterResponse_Status") - -instance HsProtobuf.HasDefault TpRegisterResponse_Status - -instance Hs.Bounded TpRegisterResponse_Status where - minBound :: TpRegisterResponse_Status -minBound = TpRegisterResponse_Status +Hs.fromString String +"TpRegisterResponse_Status") + +instance HsProtobuf.HasDefault TpRegisterResponse_Status + +instance Hs.Bounded TpRegisterResponse_Status where + minBound :: TpRegisterResponse_Status +minBound = TpRegisterResponse_Status TpRegisterResponse_StatusSTATUS_UNSET - maxBound :: TpRegisterResponse_Status -maxBound = TpRegisterResponse_Status + maxBound :: TpRegisterResponse_Status +maxBound = TpRegisterResponse_Status TpRegisterResponse_StatusERROR - -instance Hs.Ord TpRegisterResponse_Status where - compare :: TpRegisterResponse_Status -> TpRegisterResponse_Status -> Ordering -compare x :: TpRegisterResponse_Status -x y :: TpRegisterResponse_Status -y - = Int32 -> Int32 -> Ordering + +instance Hs.Ord TpRegisterResponse_Status where + compare :: TpRegisterResponse_Status -> TpRegisterResponse_Status -> Ordering +compare TpRegisterResponse_Status +x TpRegisterResponse_Status +y + = Int32 -> Int32 -> Ordering forall a. Ord a => a -> a -> Ordering -Hs.compare (TpRegisterResponse_Status -> Int32 +Hs.compare (TpRegisterResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum TpRegisterResponse_Status -x) - (TpRegisterResponse_Status -> Int32 +HsProtobuf.fromProtoEnum TpRegisterResponse_Status +x) + (TpRegisterResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum TpRegisterResponse_Status -y) - -instance HsProtobuf.ProtoEnum TpRegisterResponse_Status where - toProtoEnumMay :: Int32 -> Maybe TpRegisterResponse_Status -toProtoEnumMay 0 = TpRegisterResponse_Status -> Maybe TpRegisterResponse_Status +HsProtobuf.fromProtoEnum TpRegisterResponse_Status +y) + +instance HsProtobuf.ProtoEnum TpRegisterResponse_Status where + toProtoEnumMay :: Int32 -> Maybe TpRegisterResponse_Status +toProtoEnumMay Int32 +0 = TpRegisterResponse_Status -> Maybe TpRegisterResponse_Status forall a. a -> Maybe a -Hs.Just TpRegisterResponse_Status +Hs.Just TpRegisterResponse_Status TpRegisterResponse_StatusSTATUS_UNSET - toProtoEnumMay 1 = TpRegisterResponse_Status -> Maybe TpRegisterResponse_Status + toProtoEnumMay Int32 +1 = TpRegisterResponse_Status -> Maybe TpRegisterResponse_Status forall a. a -> Maybe a -Hs.Just TpRegisterResponse_Status +Hs.Just TpRegisterResponse_Status TpRegisterResponse_StatusOK - toProtoEnumMay 2 = TpRegisterResponse_Status -> Maybe TpRegisterResponse_Status + toProtoEnumMay Int32 +2 = TpRegisterResponse_Status -> Maybe TpRegisterResponse_Status forall a. a -> Maybe a -Hs.Just TpRegisterResponse_Status +Hs.Just TpRegisterResponse_Status TpRegisterResponse_StatusERROR - toProtoEnumMay _ = Maybe TpRegisterResponse_Status + toProtoEnumMay Int32 +_ = Maybe TpRegisterResponse_Status forall a. Maybe a -Hs.Nothing - fromProtoEnum :: TpRegisterResponse_Status -> Int32 -fromProtoEnum (TpRegisterResponse_Status -TpRegisterResponse_StatusSTATUS_UNSET) = 0 - fromProtoEnum (TpRegisterResponse_Status -TpRegisterResponse_StatusOK) = 1 - fromProtoEnum (TpRegisterResponse_Status -TpRegisterResponse_StatusERROR) = 2 - -instance HsJSONPB.ToJSONPB TpRegisterResponse_Status where - toJSONPB :: TpRegisterResponse_Status -> Options -> Value -toJSONPB x :: TpRegisterResponse_Status -x _ = TpRegisterResponse_Status -> Value +Hs.Nothing + fromProtoEnum :: TpRegisterResponse_Status -> Int32 +fromProtoEnum (TpRegisterResponse_Status +TpRegisterResponse_StatusSTATUS_UNSET) = Int32 +0 + fromProtoEnum (TpRegisterResponse_Status +TpRegisterResponse_StatusOK) = Int32 +1 + fromProtoEnum (TpRegisterResponse_Status +TpRegisterResponse_StatusERROR) = Int32 +2 + +instance HsJSONPB.ToJSONPB TpRegisterResponse_Status where + toJSONPB :: TpRegisterResponse_Status -> Options -> Value +toJSONPB TpRegisterResponse_Status +x Options +_ = TpRegisterResponse_Status -> Value forall a. (Named a, Show a) => a -> Value -HsJSONPB.enumFieldString TpRegisterResponse_Status -x - toEncodingPB :: TpRegisterResponse_Status -> Options -> Encoding -toEncodingPB x :: TpRegisterResponse_Status -x _ = TpRegisterResponse_Status -> Encoding +HsJSONPB.enumFieldString TpRegisterResponse_Status +x + toEncodingPB :: TpRegisterResponse_Status -> Options -> Encoding +toEncodingPB TpRegisterResponse_Status +x Options +_ = TpRegisterResponse_Status -> Encoding forall a. (Named a, Show a) => a -> Encoding -HsJSONPB.enumFieldEncoding TpRegisterResponse_Status -x - -instance HsJSONPB.FromJSONPB TpRegisterResponse_Status where - parseJSONPB :: Value -> Parser TpRegisterResponse_Status -parseJSONPB (HsJSONPB.String "STATUS_UNSET") - = TpRegisterResponse_Status -> Parser TpRegisterResponse_Status +HsJSONPB.enumFieldEncoding TpRegisterResponse_Status +x + +instance HsJSONPB.FromJSONPB TpRegisterResponse_Status where + parseJSONPB :: Value -> Parser TpRegisterResponse_Status +parseJSONPB (HsJSONPB.String Text +"STATUS_UNSET") + = TpRegisterResponse_Status -> Parser TpRegisterResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure TpRegisterResponse_Status +Hs.pure TpRegisterResponse_Status TpRegisterResponse_StatusSTATUS_UNSET - parseJSONPB (HsJSONPB.String "OK") - = TpRegisterResponse_Status -> Parser TpRegisterResponse_Status + parseJSONPB (HsJSONPB.String Text +"OK") + = TpRegisterResponse_Status -> Parser TpRegisterResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure TpRegisterResponse_Status +Hs.pure TpRegisterResponse_Status TpRegisterResponse_StatusOK - parseJSONPB (HsJSONPB.String "ERROR") - = TpRegisterResponse_Status -> Parser TpRegisterResponse_Status + parseJSONPB (HsJSONPB.String Text +"ERROR") + = TpRegisterResponse_Status -> Parser TpRegisterResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure TpRegisterResponse_Status +Hs.pure TpRegisterResponse_Status TpRegisterResponse_StatusERROR - parseJSONPB v :: Value -v - = (String -> Value -> Parser TpRegisterResponse_Status + parseJSONPB Value +v + = (String -> Value -> Parser TpRegisterResponse_Status forall a. String -> Value -> Parser a -HsJSONPB.typeMismatch "TpRegisterResponse_Status" Value -v) - -instance HsJSONPB.ToJSON TpRegisterResponse_Status where - toJSON :: TpRegisterResponse_Status -> Value -toJSON = TpRegisterResponse_Status -> Value +HsJSONPB.typeMismatch String +"TpRegisterResponse_Status" Value +v) + +instance HsJSONPB.ToJSON TpRegisterResponse_Status where + toJSON :: TpRegisterResponse_Status -> Value +toJSON = TpRegisterResponse_Status -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: TpRegisterResponse_Status -> Encoding -toEncoding = TpRegisterResponse_Status -> Encoding +HsJSONPB.toAesonValue + toEncoding :: TpRegisterResponse_Status -> Encoding +toEncoding = TpRegisterResponse_Status -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON TpRegisterResponse_Status where - parseJSON :: Value -> Parser TpRegisterResponse_Status -parseJSON = Value -> Parser TpRegisterResponse_Status +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON TpRegisterResponse_Status where + parseJSON :: Value -> Parser TpRegisterResponse_Status +parseJSON = Value -> Parser TpRegisterResponse_Status forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsProtobuf.Finite TpRegisterResponse_Status - -data TpUnregisterRequest = TpUnregisterRequest{} - deriving (Int -> TpUnregisterRequest -> ShowS +HsJSONPB.parseJSONPB + +instance HsProtobuf.Finite TpRegisterResponse_Status + +data TpUnregisterRequest = TpUnregisterRequest{} + deriving (Int -> TpUnregisterRequest -> ShowS [TpUnregisterRequest] -> ShowS TpUnregisterRequest -> String (Int -> TpUnregisterRequest -> ShowS) @@ -1787,7 +1904,7 @@ show :: TpUnregisterRequest -> String $cshow :: TpUnregisterRequest -> String showsPrec :: Int -> TpUnregisterRequest -> ShowS $cshowsPrec :: Int -> TpUnregisterRequest -> ShowS -Hs.Show, TpUnregisterRequest -> TpUnregisterRequest -> Bool +Hs.Show, TpUnregisterRequest -> TpUnregisterRequest -> Bool (TpUnregisterRequest -> TpUnregisterRequest -> Bool) -> (TpUnregisterRequest -> TpUnregisterRequest -> Bool) -> Eq TpUnregisterRequest @@ -1796,9 +1913,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: TpUnregisterRequest -> TpUnregisterRequest -> Bool == :: TpUnregisterRequest -> TpUnregisterRequest -> Bool $c== :: TpUnregisterRequest -> TpUnregisterRequest -> Bool -Hs.Eq, Eq TpUnregisterRequest -Eq TpUnregisterRequest => -(TpUnregisterRequest -> TpUnregisterRequest -> Ordering) +Hs.Eq, Eq TpUnregisterRequest +Eq TpUnregisterRequest +-> (TpUnregisterRequest -> TpUnregisterRequest -> Ordering) -> (TpUnregisterRequest -> TpUnregisterRequest -> Bool) -> (TpUnregisterRequest -> TpUnregisterRequest -> Bool) -> (TpUnregisterRequest -> TpUnregisterRequest -> Bool) @@ -1812,8 +1929,8 @@ TpUnregisterRequest -> TpUnregisterRequest -> Bool TpUnregisterRequest -> TpUnregisterRequest -> Ordering TpUnregisterRequest -> TpUnregisterRequest -> TpUnregisterRequest forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -1836,7 +1953,7 @@ $c< :: TpUnregisterRequest -> TpUnregisterRequest -> Bool compare :: TpUnregisterRequest -> TpUnregisterRequest -> Ordering $ccompare :: TpUnregisterRequest -> TpUnregisterRequest -> Ordering $cp1Ord :: Eq TpUnregisterRequest -Hs.Ord, (forall x. TpUnregisterRequest -> Rep TpUnregisterRequest x) +Hs.Ord, (forall x. TpUnregisterRequest -> Rep TpUnregisterRequest x) -> (forall x. Rep TpUnregisterRequest x -> TpUnregisterRequest) -> Generic TpUnregisterRequest forall x. Rep TpUnregisterRequest x -> TpUnregisterRequest @@ -1845,116 +1962,124 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep TpUnregisterRequest x -> TpUnregisterRequest $cfrom :: forall x. TpUnregisterRequest -> Rep TpUnregisterRequest x -Hs.Generic, TpUnregisterRequest -> () +Hs.Generic, TpUnregisterRequest -> () (TpUnregisterRequest -> ()) -> NFData TpUnregisterRequest forall a. (a -> ()) -> NFData a rnf :: TpUnregisterRequest -> () $crnf :: TpUnregisterRequest -> () -Hs.NFData) - -instance HsProtobuf.Named TpUnregisterRequest where - nameOf :: Proxy# TpUnregisterRequest -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named TpUnregisterRequest where + nameOf :: Proxy# TpUnregisterRequest -> string +nameOf Proxy# TpUnregisterRequest +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "TpUnregisterRequest") - -instance HsProtobuf.HasDefault TpUnregisterRequest - -instance HsProtobuf.Message TpUnregisterRequest where - encodeMessage :: FieldNumber -> TpUnregisterRequest -> MessageBuilder -encodeMessage _ TpUnregisterRequest{} = ([MessageBuilder] -> MessageBuilder +Hs.fromString String +"TpUnregisterRequest") + +instance HsProtobuf.HasDefault TpUnregisterRequest + +instance HsProtobuf.Message TpUnregisterRequest where + encodeMessage :: FieldNumber -> TpUnregisterRequest -> MessageBuilder +encodeMessage FieldNumber +_ TpUnregisterRequest{} = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat []) - decodeMessage :: FieldNumber -> Parser RawMessage TpUnregisterRequest -decodeMessage _ = (TpUnregisterRequest -> Parser RawMessage TpUnregisterRequest +Hs.mconcat []) + decodeMessage :: FieldNumber -> Parser RawMessage TpUnregisterRequest +decodeMessage FieldNumber +_ = (TpUnregisterRequest -> Parser RawMessage TpUnregisterRequest forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure TpUnregisterRequest +Hs.pure TpUnregisterRequest TpUnregisterRequest) - dotProto :: Proxy# TpUnregisterRequest -> [DotProtoField] -dotProto _ = [] - -instance HsJSONPB.ToJSONPB TpUnregisterRequest where - toJSONPB :: TpUnregisterRequest -> Options -> Value -toJSONPB (TpUnregisterRequest + dotProto :: Proxy# TpUnregisterRequest -> [DotProtoField] +dotProto Proxy# TpUnregisterRequest +_ = [] + +instance HsJSONPB.ToJSONPB TpUnregisterRequest where + toJSONPB :: TpUnregisterRequest -> Options -> Value +toJSONPB (TpUnregisterRequest TpUnregisterRequest) = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object []) - toEncodingPB :: TpUnregisterRequest -> Options -> Encoding -toEncodingPB (TpUnregisterRequest +HsJSONPB.object []) + toEncodingPB :: TpUnregisterRequest -> Options -> Encoding +toEncodingPB (TpUnregisterRequest TpUnregisterRequest) = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs []) - -instance HsJSONPB.FromJSONPB TpUnregisterRequest where - parseJSONPB :: Value -> Parser TpUnregisterRequest -parseJSONPB - = (String +HsJSONPB.pairs []) + +instance HsJSONPB.FromJSONPB TpUnregisterRequest where + parseJSONPB :: Value -> Parser TpUnregisterRequest +parseJSONPB + = (String -> (Object -> Parser TpUnregisterRequest) -> Value -> Parser TpUnregisterRequest forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "TpUnregisterRequest" - (\ obj :: Object -obj -> (TpUnregisterRequest -> Parser TpUnregisterRequest +HsJSONPB.withObject String +"TpUnregisterRequest" + (\ Object +obj -> (TpUnregisterRequest -> Parser TpUnregisterRequest forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure TpUnregisterRequest +Hs.pure TpUnregisterRequest TpUnregisterRequest))) - -instance HsJSONPB.ToJSON TpUnregisterRequest where - toJSON :: TpUnregisterRequest -> Value -toJSON = TpUnregisterRequest -> Value + +instance HsJSONPB.ToJSON TpUnregisterRequest where + toJSON :: TpUnregisterRequest -> Value +toJSON = TpUnregisterRequest -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: TpUnregisterRequest -> Encoding -toEncoding = TpUnregisterRequest -> Encoding +HsJSONPB.toAesonValue + toEncoding :: TpUnregisterRequest -> Encoding +toEncoding = TpUnregisterRequest -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON TpUnregisterRequest where - parseJSON :: Value -> Parser TpUnregisterRequest -parseJSON = Value -> Parser TpUnregisterRequest +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON TpUnregisterRequest where + parseJSON :: Value -> Parser TpUnregisterRequest +parseJSON = Value -> Parser TpUnregisterRequest forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema TpUnregisterRequest where - declareNamedSchema :: Proxy TpUnregisterRequest +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema TpUnregisterRequest where + declareNamedSchema :: Proxy TpUnregisterRequest -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do NamedSchema -> Declare (Definitions Schema) NamedSchema +declareNamedSchema Proxy TpUnregisterRequest +_ + = do NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "TpUnregisterRequest", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"TpUnregisterRequest", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList []}}) - -newtype TpUnregisterResponse = TpUnregisterResponse{TpUnregisterResponse -> Enumerated TpUnregisterResponse_Status +HsJSONPB.insOrdFromList []}}) + +newtype TpUnregisterResponse = TpUnregisterResponse{TpUnregisterResponse -> Enumerated TpUnregisterResponse_Status tpUnregisterResponseStatus - :: - HsProtobuf.Enumerated - Data.Sawtooth.Processor.TpUnregisterResponse_Status} - deriving (Int -> TpUnregisterResponse -> ShowS + :: + HsProtobuf.Enumerated + Data.Sawtooth.Processor.TpUnregisterResponse_Status} + deriving (Int -> TpUnregisterResponse -> ShowS [TpUnregisterResponse] -> ShowS TpUnregisterResponse -> String (Int -> TpUnregisterResponse -> ShowS) @@ -1969,7 +2094,7 @@ show :: TpUnregisterResponse -> String $cshow :: TpUnregisterResponse -> String showsPrec :: Int -> TpUnregisterResponse -> ShowS $cshowsPrec :: Int -> TpUnregisterResponse -> ShowS -Hs.Show, TpUnregisterResponse -> TpUnregisterResponse -> Bool +Hs.Show, TpUnregisterResponse -> TpUnregisterResponse -> Bool (TpUnregisterResponse -> TpUnregisterResponse -> Bool) -> (TpUnregisterResponse -> TpUnregisterResponse -> Bool) -> Eq TpUnregisterResponse @@ -1978,9 +2103,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: TpUnregisterResponse -> TpUnregisterResponse -> Bool == :: TpUnregisterResponse -> TpUnregisterResponse -> Bool $c== :: TpUnregisterResponse -> TpUnregisterResponse -> Bool -Hs.Eq, Eq TpUnregisterResponse -Eq TpUnregisterResponse => -(TpUnregisterResponse -> TpUnregisterResponse -> Ordering) +Hs.Eq, Eq TpUnregisterResponse +Eq TpUnregisterResponse +-> (TpUnregisterResponse -> TpUnregisterResponse -> Ordering) -> (TpUnregisterResponse -> TpUnregisterResponse -> Bool) -> (TpUnregisterResponse -> TpUnregisterResponse -> Bool) -> (TpUnregisterResponse -> TpUnregisterResponse -> Bool) @@ -1995,8 +2120,8 @@ TpUnregisterResponse -> TpUnregisterResponse -> Ordering TpUnregisterResponse -> TpUnregisterResponse -> TpUnregisterResponse forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -2023,7 +2148,7 @@ $c< :: TpUnregisterResponse -> TpUnregisterResponse -> Bool compare :: TpUnregisterResponse -> TpUnregisterResponse -> Ordering $ccompare :: TpUnregisterResponse -> TpUnregisterResponse -> Ordering $cp1Ord :: Eq TpUnregisterResponse -Hs.Ord, (forall x. TpUnregisterResponse -> Rep TpUnregisterResponse x) +Hs.Ord, (forall x. TpUnregisterResponse -> Rep TpUnregisterResponse x) -> (forall x. Rep TpUnregisterResponse x -> TpUnregisterResponse) -> Generic TpUnregisterResponse forall x. Rep TpUnregisterResponse x -> TpUnregisterResponse @@ -2032,220 +2157,238 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep TpUnregisterResponse x -> TpUnregisterResponse $cfrom :: forall x. TpUnregisterResponse -> Rep TpUnregisterResponse x -Hs.Generic, TpUnregisterResponse -> () +Hs.Generic, TpUnregisterResponse -> () (TpUnregisterResponse -> ()) -> NFData TpUnregisterResponse forall a. (a -> ()) -> NFData a rnf :: TpUnregisterResponse -> () $crnf :: TpUnregisterResponse -> () -Hs.NFData) - -instance HsProtobuf.Named TpUnregisterResponse where - nameOf :: Proxy# TpUnregisterResponse -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named TpUnregisterResponse where + nameOf :: Proxy# TpUnregisterResponse -> string +nameOf Proxy# TpUnregisterResponse +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "TpUnregisterResponse") - -instance HsProtobuf.HasDefault TpUnregisterResponse - -instance HsProtobuf.Message TpUnregisterResponse where - encodeMessage :: FieldNumber -> TpUnregisterResponse -> MessageBuilder -encodeMessage _ - TpUnregisterResponse{tpUnregisterResponseStatus :: TpUnregisterResponse -> Enumerated TpUnregisterResponse_Status +Hs.fromString String +"TpUnregisterResponse") + +instance HsProtobuf.HasDefault TpUnregisterResponse + +instance HsProtobuf.Message TpUnregisterResponse where + encodeMessage :: FieldNumber -> TpUnregisterResponse -> MessageBuilder +encodeMessage FieldNumber +_ + TpUnregisterResponse{tpUnregisterResponseStatus :: TpUnregisterResponse -> Enumerated TpUnregisterResponse_Status tpUnregisterResponseStatus = - Enumerated TpUnregisterResponse_Status -tpUnregisterResponseStatus} - = ([MessageBuilder] -> MessageBuilder + Enumerated TpUnregisterResponse_Status +tpUnregisterResponseStatus} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber +Hs.mconcat + [(FieldNumber -> Enumerated TpUnregisterResponse_Status -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Enumerated TpUnregisterResponse_Status -tpUnregisterResponseStatus)]) - decodeMessage :: FieldNumber -> Parser RawMessage TpUnregisterResponse -decodeMessage _ - = ((Enumerated TpUnregisterResponse_Status -> TpUnregisterResponse) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Enumerated TpUnregisterResponse_Status +tpUnregisterResponseStatus)]) + decodeMessage :: FieldNumber -> Parser RawMessage TpUnregisterResponse +decodeMessage FieldNumber +_ + = ((Enumerated TpUnregisterResponse_Status -> TpUnregisterResponse) -> Parser RawMessage (Enumerated TpUnregisterResponse_Status -> TpUnregisterResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated TpUnregisterResponse_Status -> TpUnregisterResponse +Hs.pure Enumerated TpUnregisterResponse_Status -> TpUnregisterResponse TpUnregisterResponse) Parser RawMessage (Enumerated TpUnregisterResponse_Status -> TpUnregisterResponse) -> Parser RawMessage (Enumerated TpUnregisterResponse_Status) -> Parser RawMessage TpUnregisterResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField (Enumerated TpUnregisterResponse_Status) +<*> + (Parser RawField (Enumerated TpUnregisterResponse_Status) -> FieldNumber -> Parser RawMessage (Enumerated TpUnregisterResponse_Status) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (Enumerated TpUnregisterResponse_Status) +HsProtobuf.at Parser RawField (Enumerated TpUnregisterResponse_Status) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - dotProto :: Proxy# TpUnregisterResponse -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + dotProto :: Proxy# TpUnregisterResponse -> [DotProtoField] +dotProto Proxy# TpUnregisterResponse +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "Status"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "status") - [] - "")] - -instance HsJSONPB.ToJSONPB TpUnregisterResponse where - toJSONPB :: TpUnregisterResponse -> Options -> Value -toJSONPB (TpUnregisterResponse f1 :: Enumerated TpUnregisterResponse_Status -f1) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["status" Text -> Enumerated TpUnregisterResponse_Status -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"Status"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"status") + [] + String +"")] + +instance HsJSONPB.ToJSONPB TpUnregisterResponse where + toJSONPB :: TpUnregisterResponse -> Options -> Value +toJSONPB (TpUnregisterResponse Enumerated TpUnregisterResponse_Status +f1) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"status" Text -> Enumerated TpUnregisterResponse_Status -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated TpUnregisterResponse_Status -f1]) - toEncodingPB :: TpUnregisterResponse -> Options -> Encoding -toEncodingPB (TpUnregisterResponse f1 :: Enumerated TpUnregisterResponse_Status -f1) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["status" Text -> Enumerated TpUnregisterResponse_Status -> Options -> Series +.= Enumerated TpUnregisterResponse_Status +f1]) + toEncodingPB :: TpUnregisterResponse -> Options -> Encoding +toEncodingPB (TpUnregisterResponse Enumerated TpUnregisterResponse_Status +f1) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"status" Text -> Enumerated TpUnregisterResponse_Status -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated TpUnregisterResponse_Status -f1]) - -instance HsJSONPB.FromJSONPB TpUnregisterResponse where - parseJSONPB :: Value -> Parser TpUnregisterResponse -parseJSONPB - = (String +.= Enumerated TpUnregisterResponse_Status +f1]) + +instance HsJSONPB.FromJSONPB TpUnregisterResponse where + parseJSONPB :: Value -> Parser TpUnregisterResponse +parseJSONPB + = (String -> (Object -> Parser TpUnregisterResponse) -> Value -> Parser TpUnregisterResponse forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "TpUnregisterResponse" - (\ obj :: Object -obj -> ((Enumerated TpUnregisterResponse_Status -> TpUnregisterResponse) +HsJSONPB.withObject String +"TpUnregisterResponse" + (\ Object +obj -> ((Enumerated TpUnregisterResponse_Status -> TpUnregisterResponse) -> Parser (Enumerated TpUnregisterResponse_Status -> TpUnregisterResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated TpUnregisterResponse_Status -> TpUnregisterResponse +Hs.pure Enumerated TpUnregisterResponse_Status -> TpUnregisterResponse TpUnregisterResponse) Parser (Enumerated TpUnregisterResponse_Status -> TpUnregisterResponse) -> Parser (Enumerated TpUnregisterResponse_Status) -> Parser TpUnregisterResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser (Enumerated TpUnregisterResponse_Status) +<*> Object +obj Object -> Text -> Parser (Enumerated TpUnregisterResponse_Status) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "status")) - -instance HsJSONPB.ToJSON TpUnregisterResponse where - toJSON :: TpUnregisterResponse -> Value -toJSON = TpUnregisterResponse -> Value +.: Text +"status")) + +instance HsJSONPB.ToJSON TpUnregisterResponse where + toJSON :: TpUnregisterResponse -> Value +toJSON = TpUnregisterResponse -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: TpUnregisterResponse -> Encoding -toEncoding = TpUnregisterResponse -> Encoding +HsJSONPB.toAesonValue + toEncoding :: TpUnregisterResponse -> Encoding +toEncoding = TpUnregisterResponse -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON TpUnregisterResponse where - parseJSON :: Value -> Parser TpUnregisterResponse -parseJSON = Value -> Parser TpUnregisterResponse +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON TpUnregisterResponse where + parseJSON :: Value -> Parser TpUnregisterResponse +parseJSON = Value -> Parser TpUnregisterResponse forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema TpUnregisterResponse where - declareNamedSchema :: Proxy TpUnregisterResponse +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema TpUnregisterResponse where + declareNamedSchema :: Proxy TpUnregisterResponse -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_status :: Proxy (OverrideToSchema (Enumerated TpUnregisterResponse_Status)) +declareNamedSchema Proxy TpUnregisterResponse +_ + = do let declare_status :: Proxy (OverrideToSchema (Enumerated TpUnregisterResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status = Proxy (OverrideToSchema (Enumerated TpUnregisterResponse_Status)) +declare_status = Proxy (OverrideToSchema (Enumerated TpUnregisterResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -tpUnregisterResponseStatus <- Proxy (OverrideToSchema (Enumerated TpUnregisterResponse_Status)) +HsJSONPB.declareSchemaRef + Referenced Schema +tpUnregisterResponseStatus <- Proxy (OverrideToSchema (Enumerated TpUnregisterResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status Proxy (OverrideToSchema (Enumerated TpUnregisterResponse_Status)) +declare_status Proxy (OverrideToSchema (Enumerated TpUnregisterResponse_Status)) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy TpUnregisterResponse +Proxy.Proxy + let Proxy TpUnregisterResponse _ = (Enumerated TpUnregisterResponse_Status -> TpUnregisterResponse) -> Proxy (Enumerated TpUnregisterResponse_Status -> TpUnregisterResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated TpUnregisterResponse_Status -> TpUnregisterResponse +Hs.pure Enumerated TpUnregisterResponse_Status -> TpUnregisterResponse TpUnregisterResponse Proxy (Enumerated TpUnregisterResponse_Status -> TpUnregisterResponse) -> Proxy (Enumerated TpUnregisterResponse_Status) -> Proxy TpUnregisterResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema (Enumerated TpUnregisterResponse_Status)) +<*> + (Proxy (OverrideToSchema (Enumerated TpUnregisterResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Enumerated TpUnregisterResponse_Status) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Enumerated TpUnregisterResponse_Status)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Enumerated TpUnregisterResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_status + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "TpUnregisterResponse", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"TpUnregisterResponse", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("status", Referenced Schema -tpUnregisterResponseStatus)]}}) - -data TpUnregisterResponse_Status = TpUnregisterResponse_StatusSTATUS_UNSET - | TpUnregisterResponse_StatusOK - | TpUnregisterResponse_StatusERROR - deriving (Int -> TpUnregisterResponse_Status -> ShowS +HsJSONPB.insOrdFromList + [(Text +"status", Referenced Schema +tpUnregisterResponseStatus)]}}) + +data TpUnregisterResponse_Status = TpUnregisterResponse_StatusSTATUS_UNSET + | TpUnregisterResponse_StatusOK + | TpUnregisterResponse_StatusERROR + deriving (Int -> TpUnregisterResponse_Status -> ShowS [TpUnregisterResponse_Status] -> ShowS TpUnregisterResponse_Status -> String (Int -> TpUnregisterResponse_Status -> ShowS) @@ -2260,7 +2403,7 @@ show :: TpUnregisterResponse_Status -> String $cshow :: TpUnregisterResponse_Status -> String showsPrec :: Int -> TpUnregisterResponse_Status -> ShowS $cshowsPrec :: Int -> TpUnregisterResponse_Status -> ShowS -Hs.Show, TpUnregisterResponse_Status -> TpUnregisterResponse_Status -> Bool +Hs.Show, TpUnregisterResponse_Status -> TpUnregisterResponse_Status -> Bool (TpUnregisterResponse_Status -> TpUnregisterResponse_Status -> Bool) -> (TpUnregisterResponse_Status @@ -2271,7 +2414,7 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: TpUnregisterResponse_Status -> TpUnregisterResponse_Status -> Bool == :: TpUnregisterResponse_Status -> TpUnregisterResponse_Status -> Bool $c== :: TpUnregisterResponse_Status -> TpUnregisterResponse_Status -> Bool -Hs.Eq, (forall x. +Hs.Eq, (forall x. TpUnregisterResponse_Status -> Rep TpUnregisterResponse_Status x) -> (forall x. Rep TpUnregisterResponse_Status x -> TpUnregisterResponse_Status) @@ -2286,140 +2429,155 @@ $cto :: forall x. Rep TpUnregisterResponse_Status x -> TpUnregisterResponse_Status $cfrom :: forall x. TpUnregisterResponse_Status -> Rep TpUnregisterResponse_Status x -Hs.Generic, TpUnregisterResponse_Status -> () +Hs.Generic, TpUnregisterResponse_Status -> () (TpUnregisterResponse_Status -> ()) -> NFData TpUnregisterResponse_Status forall a. (a -> ()) -> NFData a rnf :: TpUnregisterResponse_Status -> () $crnf :: TpUnregisterResponse_Status -> () -Hs.NFData) - -instance HsProtobuf.Named TpUnregisterResponse_Status where - nameOf :: Proxy# TpUnregisterResponse_Status -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named TpUnregisterResponse_Status where + nameOf :: Proxy# TpUnregisterResponse_Status -> string +nameOf Proxy# TpUnregisterResponse_Status +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "TpUnregisterResponse_Status") - -instance HsProtobuf.HasDefault TpUnregisterResponse_Status - -instance Hs.Bounded TpUnregisterResponse_Status where - minBound :: TpUnregisterResponse_Status -minBound = TpUnregisterResponse_Status +Hs.fromString String +"TpUnregisterResponse_Status") + +instance HsProtobuf.HasDefault TpUnregisterResponse_Status + +instance Hs.Bounded TpUnregisterResponse_Status where + minBound :: TpUnregisterResponse_Status +minBound = TpUnregisterResponse_Status TpUnregisterResponse_StatusSTATUS_UNSET - maxBound :: TpUnregisterResponse_Status -maxBound = TpUnregisterResponse_Status + maxBound :: TpUnregisterResponse_Status +maxBound = TpUnregisterResponse_Status TpUnregisterResponse_StatusERROR - -instance Hs.Ord TpUnregisterResponse_Status where - compare :: TpUnregisterResponse_Status + +instance Hs.Ord TpUnregisterResponse_Status where + compare :: TpUnregisterResponse_Status -> TpUnregisterResponse_Status -> Ordering -compare x :: TpUnregisterResponse_Status -x y :: TpUnregisterResponse_Status -y - = Int32 -> Int32 -> Ordering +compare TpUnregisterResponse_Status +x TpUnregisterResponse_Status +y + = Int32 -> Int32 -> Ordering forall a. Ord a => a -> a -> Ordering -Hs.compare (TpUnregisterResponse_Status -> Int32 +Hs.compare (TpUnregisterResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum TpUnregisterResponse_Status -x) - (TpUnregisterResponse_Status -> Int32 +HsProtobuf.fromProtoEnum TpUnregisterResponse_Status +x) + (TpUnregisterResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum TpUnregisterResponse_Status -y) - -instance HsProtobuf.ProtoEnum TpUnregisterResponse_Status where - toProtoEnumMay :: Int32 -> Maybe TpUnregisterResponse_Status -toProtoEnumMay 0 = TpUnregisterResponse_Status -> Maybe TpUnregisterResponse_Status +HsProtobuf.fromProtoEnum TpUnregisterResponse_Status +y) + +instance HsProtobuf.ProtoEnum TpUnregisterResponse_Status where + toProtoEnumMay :: Int32 -> Maybe TpUnregisterResponse_Status +toProtoEnumMay Int32 +0 = TpUnregisterResponse_Status -> Maybe TpUnregisterResponse_Status forall a. a -> Maybe a -Hs.Just TpUnregisterResponse_Status +Hs.Just TpUnregisterResponse_Status TpUnregisterResponse_StatusSTATUS_UNSET - toProtoEnumMay 1 = TpUnregisterResponse_Status -> Maybe TpUnregisterResponse_Status + toProtoEnumMay Int32 +1 = TpUnregisterResponse_Status -> Maybe TpUnregisterResponse_Status forall a. a -> Maybe a -Hs.Just TpUnregisterResponse_Status +Hs.Just TpUnregisterResponse_Status TpUnregisterResponse_StatusOK - toProtoEnumMay 2 = TpUnregisterResponse_Status -> Maybe TpUnregisterResponse_Status + toProtoEnumMay Int32 +2 = TpUnregisterResponse_Status -> Maybe TpUnregisterResponse_Status forall a. a -> Maybe a -Hs.Just TpUnregisterResponse_Status +Hs.Just TpUnregisterResponse_Status TpUnregisterResponse_StatusERROR - toProtoEnumMay _ = Maybe TpUnregisterResponse_Status + toProtoEnumMay Int32 +_ = Maybe TpUnregisterResponse_Status forall a. Maybe a -Hs.Nothing - fromProtoEnum :: TpUnregisterResponse_Status -> Int32 -fromProtoEnum (TpUnregisterResponse_Status -TpUnregisterResponse_StatusSTATUS_UNSET) = 0 - fromProtoEnum (TpUnregisterResponse_Status -TpUnregisterResponse_StatusOK) = 1 - fromProtoEnum (TpUnregisterResponse_Status -TpUnregisterResponse_StatusERROR) = 2 - -instance HsJSONPB.ToJSONPB TpUnregisterResponse_Status where - toJSONPB :: TpUnregisterResponse_Status -> Options -> Value -toJSONPB x :: TpUnregisterResponse_Status -x _ = TpUnregisterResponse_Status -> Value +Hs.Nothing + fromProtoEnum :: TpUnregisterResponse_Status -> Int32 +fromProtoEnum (TpUnregisterResponse_Status +TpUnregisterResponse_StatusSTATUS_UNSET) = Int32 +0 + fromProtoEnum (TpUnregisterResponse_Status +TpUnregisterResponse_StatusOK) = Int32 +1 + fromProtoEnum (TpUnregisterResponse_Status +TpUnregisterResponse_StatusERROR) = Int32 +2 + +instance HsJSONPB.ToJSONPB TpUnregisterResponse_Status where + toJSONPB :: TpUnregisterResponse_Status -> Options -> Value +toJSONPB TpUnregisterResponse_Status +x Options +_ = TpUnregisterResponse_Status -> Value forall a. (Named a, Show a) => a -> Value -HsJSONPB.enumFieldString TpUnregisterResponse_Status -x - toEncodingPB :: TpUnregisterResponse_Status -> Options -> Encoding -toEncodingPB x :: TpUnregisterResponse_Status -x _ = TpUnregisterResponse_Status -> Encoding +HsJSONPB.enumFieldString TpUnregisterResponse_Status +x + toEncodingPB :: TpUnregisterResponse_Status -> Options -> Encoding +toEncodingPB TpUnregisterResponse_Status +x Options +_ = TpUnregisterResponse_Status -> Encoding forall a. (Named a, Show a) => a -> Encoding -HsJSONPB.enumFieldEncoding TpUnregisterResponse_Status -x - -instance HsJSONPB.FromJSONPB TpUnregisterResponse_Status where - parseJSONPB :: Value -> Parser TpUnregisterResponse_Status -parseJSONPB (HsJSONPB.String "STATUS_UNSET") - = TpUnregisterResponse_Status -> Parser TpUnregisterResponse_Status +HsJSONPB.enumFieldEncoding TpUnregisterResponse_Status +x + +instance HsJSONPB.FromJSONPB TpUnregisterResponse_Status where + parseJSONPB :: Value -> Parser TpUnregisterResponse_Status +parseJSONPB (HsJSONPB.String Text +"STATUS_UNSET") + = TpUnregisterResponse_Status -> Parser TpUnregisterResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure TpUnregisterResponse_Status +Hs.pure TpUnregisterResponse_Status TpUnregisterResponse_StatusSTATUS_UNSET - parseJSONPB (HsJSONPB.String "OK") - = TpUnregisterResponse_Status -> Parser TpUnregisterResponse_Status + parseJSONPB (HsJSONPB.String Text +"OK") + = TpUnregisterResponse_Status -> Parser TpUnregisterResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure TpUnregisterResponse_Status +Hs.pure TpUnregisterResponse_Status TpUnregisterResponse_StatusOK - parseJSONPB (HsJSONPB.String "ERROR") - = TpUnregisterResponse_Status -> Parser TpUnregisterResponse_Status + parseJSONPB (HsJSONPB.String Text +"ERROR") + = TpUnregisterResponse_Status -> Parser TpUnregisterResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure TpUnregisterResponse_Status +Hs.pure TpUnregisterResponse_Status TpUnregisterResponse_StatusERROR - parseJSONPB v :: Value -v - = (String -> Value -> Parser TpUnregisterResponse_Status + parseJSONPB Value +v + = (String -> Value -> Parser TpUnregisterResponse_Status forall a. String -> Value -> Parser a -HsJSONPB.typeMismatch "TpUnregisterResponse_Status" Value -v) - -instance HsJSONPB.ToJSON TpUnregisterResponse_Status where - toJSON :: TpUnregisterResponse_Status -> Value -toJSON = TpUnregisterResponse_Status -> Value +HsJSONPB.typeMismatch String +"TpUnregisterResponse_Status" Value +v) + +instance HsJSONPB.ToJSON TpUnregisterResponse_Status where + toJSON :: TpUnregisterResponse_Status -> Value +toJSON = TpUnregisterResponse_Status -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: TpUnregisterResponse_Status -> Encoding -toEncoding = TpUnregisterResponse_Status -> Encoding +HsJSONPB.toAesonValue + toEncoding :: TpUnregisterResponse_Status -> Encoding +toEncoding = TpUnregisterResponse_Status -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON TpUnregisterResponse_Status where - parseJSON :: Value -> Parser TpUnregisterResponse_Status -parseJSON = Value -> Parser TpUnregisterResponse_Status +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON TpUnregisterResponse_Status where + parseJSON :: Value -> Parser TpUnregisterResponse_Status +parseJSON = Value -> Parser TpUnregisterResponse_Status forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsProtobuf.Finite TpUnregisterResponse_Status - -data TpProcessRequest = TpProcessRequest{TpProcessRequest -> Maybe TransactionHeader +HsJSONPB.parseJSONPB + +instance HsProtobuf.Finite TpUnregisterResponse_Status + +data TpProcessRequest = TpProcessRequest{TpProcessRequest -> Maybe TransactionHeader tpProcessRequestHeader :: - Hs.Maybe Data.Sawtooth.Transaction.TransactionHeader, - TpProcessRequest -> ByteString -tpProcessRequestPayload :: Hs.ByteString, - TpProcessRequest -> Text -tpProcessRequestSignature :: Hs.Text, - TpProcessRequest -> Text -tpProcessRequestContextId :: Hs.Text, - TpProcessRequest -> ByteString -tpProcessRequestHeaderBytes :: Hs.ByteString} - deriving (Int -> TpProcessRequest -> ShowS + Hs.Maybe Data.Sawtooth.Transaction.TransactionHeader, + TpProcessRequest -> ByteString +tpProcessRequestPayload :: Hs.ByteString, + TpProcessRequest -> Text +tpProcessRequestSignature :: Hs.Text, + TpProcessRequest -> Text +tpProcessRequestContextId :: Hs.Text, + TpProcessRequest -> ByteString +tpProcessRequestHeaderBytes :: Hs.ByteString} + deriving (Int -> TpProcessRequest -> ShowS [TpProcessRequest] -> ShowS TpProcessRequest -> String (Int -> TpProcessRequest -> ShowS) @@ -2434,7 +2592,7 @@ show :: TpProcessRequest -> String $cshow :: TpProcessRequest -> String showsPrec :: Int -> TpProcessRequest -> ShowS $cshowsPrec :: Int -> TpProcessRequest -> ShowS -Hs.Show, TpProcessRequest -> TpProcessRequest -> Bool +Hs.Show, TpProcessRequest -> TpProcessRequest -> Bool (TpProcessRequest -> TpProcessRequest -> Bool) -> (TpProcessRequest -> TpProcessRequest -> Bool) -> Eq TpProcessRequest @@ -2443,9 +2601,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: TpProcessRequest -> TpProcessRequest -> Bool == :: TpProcessRequest -> TpProcessRequest -> Bool $c== :: TpProcessRequest -> TpProcessRequest -> Bool -Hs.Eq, Eq TpProcessRequest -Eq TpProcessRequest => -(TpProcessRequest -> TpProcessRequest -> Ordering) +Hs.Eq, Eq TpProcessRequest +Eq TpProcessRequest +-> (TpProcessRequest -> TpProcessRequest -> Ordering) -> (TpProcessRequest -> TpProcessRequest -> Bool) -> (TpProcessRequest -> TpProcessRequest -> Bool) -> (TpProcessRequest -> TpProcessRequest -> Bool) @@ -2457,8 +2615,8 @@ TpProcessRequest -> TpProcessRequest -> Bool TpProcessRequest -> TpProcessRequest -> Ordering TpProcessRequest -> TpProcessRequest -> TpProcessRequest forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -2481,7 +2639,7 @@ $c< :: TpProcessRequest -> TpProcessRequest -> Bool compare :: TpProcessRequest -> TpProcessRequest -> Ordering $ccompare :: TpProcessRequest -> TpProcessRequest -> Ordering $cp1Ord :: Eq TpProcessRequest -Hs.Ord, (forall x. TpProcessRequest -> Rep TpProcessRequest x) +Hs.Ord, (forall x. TpProcessRequest -> Rep TpProcessRequest x) -> (forall x. Rep TpProcessRequest x -> TpProcessRequest) -> Generic TpProcessRequest forall x. Rep TpProcessRequest x -> TpProcessRequest @@ -2490,86 +2648,94 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep TpProcessRequest x -> TpProcessRequest $cfrom :: forall x. TpProcessRequest -> Rep TpProcessRequest x -Hs.Generic, TpProcessRequest -> () +Hs.Generic, TpProcessRequest -> () (TpProcessRequest -> ()) -> NFData TpProcessRequest forall a. (a -> ()) -> NFData a rnf :: TpProcessRequest -> () $crnf :: TpProcessRequest -> () -Hs.NFData) - -instance HsProtobuf.Named TpProcessRequest where - nameOf :: Proxy# TpProcessRequest -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named TpProcessRequest where + nameOf :: Proxy# TpProcessRequest -> string +nameOf Proxy# TpProcessRequest +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "TpProcessRequest") - -instance HsProtobuf.HasDefault TpProcessRequest - -instance HsProtobuf.Message TpProcessRequest where - encodeMessage :: FieldNumber -> TpProcessRequest -> MessageBuilder -encodeMessage _ - TpProcessRequest{tpProcessRequestHeader :: TpProcessRequest -> Maybe TransactionHeader -tpProcessRequestHeader = Maybe TransactionHeader -tpProcessRequestHeader, - tpProcessRequestPayload :: TpProcessRequest -> ByteString -tpProcessRequestPayload = ByteString -tpProcessRequestPayload, - tpProcessRequestSignature :: TpProcessRequest -> Text -tpProcessRequestSignature = Text -tpProcessRequestSignature, - tpProcessRequestContextId :: TpProcessRequest -> Text -tpProcessRequestContextId = Text -tpProcessRequestContextId, - tpProcessRequestHeaderBytes :: TpProcessRequest -> ByteString -tpProcessRequestHeaderBytes = ByteString -tpProcessRequestHeaderBytes} - = ([MessageBuilder] -> MessageBuilder +Hs.fromString String +"TpProcessRequest") + +instance HsProtobuf.HasDefault TpProcessRequest + +instance HsProtobuf.Message TpProcessRequest where + encodeMessage :: FieldNumber -> TpProcessRequest -> MessageBuilder +encodeMessage FieldNumber +_ + TpProcessRequest{tpProcessRequestHeader :: TpProcessRequest -> Maybe TransactionHeader +tpProcessRequestHeader = Maybe TransactionHeader +tpProcessRequestHeader, + tpProcessRequestPayload :: TpProcessRequest -> ByteString +tpProcessRequestPayload = ByteString +tpProcessRequestPayload, + tpProcessRequestSignature :: TpProcessRequest -> Text +tpProcessRequestSignature = Text +tpProcessRequestSignature, + tpProcessRequestContextId :: TpProcessRequest -> Text +tpProcessRequestContextId = Text +tpProcessRequestContextId, + tpProcessRequestHeaderBytes :: TpProcessRequest -> ByteString +tpProcessRequestHeaderBytes = ByteString +tpProcessRequestHeaderBytes} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> Nested TransactionHeader -> MessageBuilder +Hs.mconcat + [(FieldNumber -> Nested TransactionHeader -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (Maybe TransactionHeader -> Nested TransactionHeader -forall a b. Coercible a b => a -> b -Hs.coerce @(Hs.Maybe Data.Sawtooth.Transaction.TransactionHeader) - @(HsProtobuf.Nested Data.Sawtooth.Transaction.TransactionHeader) - Maybe TransactionHeader -tpProcessRequestHeader)), - (FieldNumber -> ByteString -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (Maybe TransactionHeader -> Nested TransactionHeader +Hs.coerce @(Hs.Maybe Data.Sawtooth.Transaction.TransactionHeader) + @(HsProtobuf.Nested Data.Sawtooth.Transaction.TransactionHeader) + Maybe TransactionHeader +tpProcessRequestHeader)), + (FieldNumber -> ByteString -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - ByteString -tpProcessRequestPayload), - (FieldNumber -> Text -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + ByteString +tpProcessRequestPayload), + (FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - Text -tpProcessRequestSignature), - (FieldNumber -> Text -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + Text +tpProcessRequestSignature), + (FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 4) - Text -tpProcessRequestContextId), - (FieldNumber -> ByteString -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +4) + Text +tpProcessRequestContextId), + (FieldNumber -> ByteString -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 5) - ByteString -tpProcessRequestHeaderBytes)]) - decodeMessage :: FieldNumber -> Parser RawMessage TpProcessRequest -decodeMessage _ - = ((Maybe TransactionHeader +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +5) + ByteString +tpProcessRequestHeaderBytes)]) + decodeMessage :: FieldNumber -> Parser RawMessage TpProcessRequest +decodeMessage FieldNumber +_ + = ((Maybe TransactionHeader -> ByteString -> Text -> Text -> ByteString -> TpProcessRequest) -> Parser RawMessage (Maybe TransactionHeader -> ByteString -> Text -> Text -> ByteString -> TpProcessRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Maybe TransactionHeader +Hs.pure Maybe TransactionHeader -> ByteString -> Text -> Text -> ByteString -> TpProcessRequest TpProcessRequest) Parser RawMessage @@ -2580,246 +2746,278 @@ forall (f :: * -> *) a. Applicative f => a -> f a RawMessage (ByteString -> Text -> Text -> ByteString -> TpProcessRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (Nested TransactionHeader) +<*> + (Parser RawMessage (Nested TransactionHeader) -> Parser RawMessage (Maybe TransactionHeader) -forall a b. Coercible a b => a -> b -Hs.coerce - @(_ (HsProtobuf.Nested Data.Sawtooth.Transaction.TransactionHeader)) - @(_ (Hs.Maybe Data.Sawtooth.Transaction.TransactionHeader)) - (Parser RawField (Nested TransactionHeader) +Hs.coerce + @(_ (HsProtobuf.Nested Data.Sawtooth.Transaction.TransactionHeader)) + @(_ (Hs.Maybe Data.Sawtooth.Transaction.TransactionHeader)) + (Parser RawField (Nested TransactionHeader) -> FieldNumber -> Parser RawMessage (Nested TransactionHeader) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (Nested TransactionHeader) +HsProtobuf.at Parser RawField (Nested TransactionHeader) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1))) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1))) + Parser RawMessage (ByteString -> Text -> Text -> ByteString -> TpProcessRequest) -> Parser RawMessage ByteString -> Parser RawMessage (Text -> Text -> ByteString -> TpProcessRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField ByteString +<*> + (Parser RawField ByteString -> FieldNumber -> Parser RawMessage ByteString forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField ByteString +HsProtobuf.at Parser RawField ByteString forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2)) - Parser RawMessage (Text -> Text -> ByteString -> TpProcessRequest) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2)) + Parser RawMessage (Text -> Text -> ByteString -> TpProcessRequest) -> Parser RawMessage Text -> Parser RawMessage (Text -> ByteString -> TpProcessRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3)) - Parser RawMessage (Text -> ByteString -> TpProcessRequest) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3)) + Parser RawMessage (Text -> ByteString -> TpProcessRequest) -> Parser RawMessage Text -> Parser RawMessage (ByteString -> TpProcessRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 4)) - Parser RawMessage (ByteString -> TpProcessRequest) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +4)) + Parser RawMessage (ByteString -> TpProcessRequest) -> Parser RawMessage ByteString -> Parser RawMessage TpProcessRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField ByteString +<*> + (Parser RawField ByteString -> FieldNumber -> Parser RawMessage ByteString forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField ByteString +HsProtobuf.at Parser RawField ByteString forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 5)) - dotProto :: Proxy# TpProcessRequest -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +5)) + dotProto :: Proxy# TpProcessRequest -> [DotProtoField] +dotProto Proxy# TpProcessRequest +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim - (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "TransactionHeader"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "header") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim + (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"TransactionHeader"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"header") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.Bytes) - (String -> DotProtoIdentifier -HsProtobuf.Single "payload") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.Bytes) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"payload") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "signature") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"signature") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 4) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "context_id") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +4) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"context_id") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 5) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.Bytes) - (String -> DotProtoIdentifier -HsProtobuf.Single "header_bytes") - [] - "")] - -instance HsJSONPB.ToJSONPB TpProcessRequest where - toJSONPB :: TpProcessRequest -> Options -> Value -toJSONPB (TpProcessRequest f1 :: Maybe TransactionHeader -f1 f2 :: ByteString -f2 f3 :: Text -f3 f4 :: Text -f4 f5 :: ByteString -f5) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object - ["header" Text -> Maybe TransactionHeader -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +5) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.Bytes) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"header_bytes") + [] + String +"")] + +instance HsJSONPB.ToJSONPB TpProcessRequest where + toJSONPB :: TpProcessRequest -> Options -> Value +toJSONPB (TpProcessRequest Maybe TransactionHeader +f1 ByteString +f2 Text +f3 Text +f4 ByteString +f5) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object + [Text +"header" Text -> Maybe TransactionHeader -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Maybe TransactionHeader -f1, "payload" Text -> ByteString -> Options -> [Pair] +.= Maybe TransactionHeader +f1, Text +"payload" Text -> ByteString -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f2, "signature" Text -> Text -> Options -> [Pair] +.= ByteString +f2, Text +"signature" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f3, - "context_id" Text -> Text -> Options -> [Pair] +.= Text +f3, + Text +"context_id" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f4, "header_bytes" Text -> ByteString -> Options -> [Pair] +.= Text +f4, Text +"header_bytes" Text -> ByteString -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f5]) - toEncodingPB :: TpProcessRequest -> Options -> Encoding -toEncodingPB (TpProcessRequest f1 :: Maybe TransactionHeader -f1 f2 :: ByteString -f2 f3 :: Text -f3 f4 :: Text -f4 f5 :: ByteString -f5) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs - ["header" Text -> Maybe TransactionHeader -> Options -> Series +.= ByteString +f5]) + toEncodingPB :: TpProcessRequest -> Options -> Encoding +toEncodingPB (TpProcessRequest Maybe TransactionHeader +f1 ByteString +f2 Text +f3 Text +f4 ByteString +f5) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs + [Text +"header" Text -> Maybe TransactionHeader -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Maybe TransactionHeader -f1, "payload" Text -> ByteString -> Options -> Series +.= Maybe TransactionHeader +f1, Text +"payload" Text -> ByteString -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f2, "signature" Text -> Text -> Options -> Series +.= ByteString +f2, Text +"signature" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f3, - "context_id" Text -> Text -> Options -> Series +.= Text +f3, + Text +"context_id" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f4, "header_bytes" Text -> ByteString -> Options -> Series +.= Text +f4, Text +"header_bytes" Text -> ByteString -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f5]) - -instance HsJSONPB.FromJSONPB TpProcessRequest where - parseJSONPB :: Value -> Parser TpProcessRequest -parseJSONPB - = (String +.= ByteString +f5]) + +instance HsJSONPB.FromJSONPB TpProcessRequest where + parseJSONPB :: Value -> Parser TpProcessRequest +parseJSONPB + = (String -> (Object -> Parser TpProcessRequest) -> Value -> Parser TpProcessRequest forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "TpProcessRequest" - (\ obj :: Object -obj -> - ((Maybe TransactionHeader +HsJSONPB.withObject String +"TpProcessRequest" + (\ Object +obj -> + ((Maybe TransactionHeader -> ByteString -> Text -> Text -> ByteString -> TpProcessRequest) -> Parser (Maybe TransactionHeader -> ByteString -> Text -> Text -> ByteString -> TpProcessRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Maybe TransactionHeader +Hs.pure Maybe TransactionHeader -> ByteString -> Text -> Text -> ByteString -> TpProcessRequest TpProcessRequest) Parser (Maybe TransactionHeader @@ -2828,147 +3026,153 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Parser (ByteString -> Text -> Text -> ByteString -> TpProcessRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser (Maybe TransactionHeader) +<*> Object +obj Object -> Text -> Parser (Maybe TransactionHeader) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "header" Parser +.: Text +"header" Parser (ByteString -> Text -> Text -> ByteString -> TpProcessRequest) -> Parser ByteString -> Parser (Text -> Text -> ByteString -> TpProcessRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser ByteString +<*> Object +obj Object -> Text -> Parser ByteString forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "payload" - Parser (Text -> Text -> ByteString -> TpProcessRequest) +.: Text +"payload" + Parser (Text -> Text -> ByteString -> TpProcessRequest) -> Parser Text -> Parser (Text -> ByteString -> TpProcessRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Text +<*> Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "signature" - Parser (Text -> ByteString -> TpProcessRequest) +.: Text +"signature" + Parser (Text -> ByteString -> TpProcessRequest) -> Parser Text -> Parser (ByteString -> TpProcessRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Text +<*> Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "context_id" - Parser (ByteString -> TpProcessRequest) +.: Text +"context_id" + Parser (ByteString -> TpProcessRequest) -> Parser ByteString -> Parser TpProcessRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser ByteString +<*> Object +obj Object -> Text -> Parser ByteString forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "header_bytes")) - -instance HsJSONPB.ToJSON TpProcessRequest where - toJSON :: TpProcessRequest -> Value -toJSON = TpProcessRequest -> Value +.: Text +"header_bytes")) + +instance HsJSONPB.ToJSON TpProcessRequest where + toJSON :: TpProcessRequest -> Value +toJSON = TpProcessRequest -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: TpProcessRequest -> Encoding -toEncoding = TpProcessRequest -> Encoding +HsJSONPB.toAesonValue + toEncoding :: TpProcessRequest -> Encoding +toEncoding = TpProcessRequest -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON TpProcessRequest where - parseJSON :: Value -> Parser TpProcessRequest -parseJSON = Value -> Parser TpProcessRequest +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON TpProcessRequest where + parseJSON :: Value -> Parser TpProcessRequest +parseJSON = Value -> Parser TpProcessRequest forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema TpProcessRequest where - declareNamedSchema :: Proxy TpProcessRequest -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_header :: Proxy (OverrideToSchema (Maybe TransactionHeader)) +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema TpProcessRequest where + declareNamedSchema :: Proxy TpProcessRequest -> Declare (Definitions Schema) NamedSchema +declareNamedSchema Proxy TpProcessRequest +_ + = do let declare_header :: Proxy (OverrideToSchema (Maybe TransactionHeader)) -> Declare (Definitions Schema) (Referenced Schema) -declare_header = Proxy (OverrideToSchema (Maybe TransactionHeader)) +declare_header = Proxy (OverrideToSchema (Maybe TransactionHeader)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -tpProcessRequestHeader <- Proxy (OverrideToSchema (Maybe TransactionHeader)) +HsJSONPB.declareSchemaRef + Referenced Schema +tpProcessRequestHeader <- Proxy (OverrideToSchema (Maybe TransactionHeader)) -> Declare (Definitions Schema) (Referenced Schema) -declare_header Proxy (OverrideToSchema (Maybe TransactionHeader)) +declare_header Proxy (OverrideToSchema (Maybe TransactionHeader)) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_payload :: Proxy (OverrideToSchema ByteString) +Proxy.Proxy + let declare_payload :: Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_payload = Proxy (OverrideToSchema ByteString) +declare_payload = Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -tpProcessRequestPayload <- Proxy (OverrideToSchema ByteString) +HsJSONPB.declareSchemaRef + Referenced Schema +tpProcessRequestPayload <- Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_payload Proxy (OverrideToSchema ByteString) +declare_payload Proxy (OverrideToSchema ByteString) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_signature :: Proxy (OverrideToSchema Text) +Proxy.Proxy + let declare_signature :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_signature = Proxy (OverrideToSchema Text) +declare_signature = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -tpProcessRequestSignature <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +tpProcessRequestSignature <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_signature Proxy (OverrideToSchema Text) +declare_signature Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_context_id :: Proxy (OverrideToSchema Text) +Proxy.Proxy + let declare_context_id :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_context_id = Proxy (OverrideToSchema Text) +declare_context_id = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -tpProcessRequestContextId <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +tpProcessRequestContextId <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_context_id Proxy (OverrideToSchema Text) +declare_context_id Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_header_bytes :: Proxy (OverrideToSchema ByteString) +Proxy.Proxy + let declare_header_bytes :: Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_header_bytes = Proxy (OverrideToSchema ByteString) +declare_header_bytes = Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -tpProcessRequestHeaderBytes <- Proxy (OverrideToSchema ByteString) +HsJSONPB.declareSchemaRef + Referenced Schema +tpProcessRequestHeaderBytes <- Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_header_bytes Proxy (OverrideToSchema ByteString) +declare_header_bytes Proxy (OverrideToSchema ByteString) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy TpProcessRequest +Proxy.Proxy + let Proxy TpProcessRequest _ = (Maybe TransactionHeader -> ByteString -> Text -> Text -> ByteString -> TpProcessRequest) -> Proxy (Maybe TransactionHeader -> ByteString -> Text -> Text -> ByteString -> TpProcessRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Maybe TransactionHeader +Hs.pure Maybe TransactionHeader -> ByteString -> Text -> Text -> ByteString -> TpProcessRequest TpProcessRequest Proxy (Maybe TransactionHeader @@ -2977,108 +3181,114 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Proxy (ByteString -> Text -> Text -> ByteString -> TpProcessRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema (Maybe TransactionHeader)) +<*> + (Proxy (OverrideToSchema (Maybe TransactionHeader)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Maybe TransactionHeader) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Maybe TransactionHeader)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Maybe TransactionHeader)) -> Declare (Definitions Schema) (Referenced Schema) -declare_header - Proxy +declare_header + Proxy (ByteString -> Text -> Text -> ByteString -> TpProcessRequest) -> Proxy ByteString -> Proxy (Text -> Text -> ByteString -> TpProcessRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema ByteString) +<*> (Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy ByteString forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) +HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_payload - Proxy (Text -> Text -> ByteString -> TpProcessRequest) +declare_payload + Proxy (Text -> Text -> ByteString -> TpProcessRequest) -> Proxy Text -> Proxy (Text -> ByteString -> TpProcessRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema Text) +<*> (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_signature - Proxy (Text -> ByteString -> TpProcessRequest) +declare_signature + Proxy (Text -> ByteString -> TpProcessRequest) -> Proxy Text -> Proxy (ByteString -> TpProcessRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema Text) +<*> (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_context_id - Proxy (ByteString -> TpProcessRequest) +declare_context_id + Proxy (ByteString -> TpProcessRequest) -> Proxy ByteString -> Proxy TpProcessRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema ByteString) +<*> (Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy ByteString forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) +HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_header_bytes - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_header_bytes + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "TpProcessRequest", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"TpProcessRequest", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("header", Referenced Schema -tpProcessRequestHeader), - ("payload", Referenced Schema -tpProcessRequestPayload), - ("signature", Referenced Schema -tpProcessRequestSignature), - ("context_id", Referenced Schema -tpProcessRequestContextId), - ("header_bytes", - Referenced Schema -tpProcessRequestHeaderBytes)]}}) - -data TpProcessResponse = TpProcessResponse{TpProcessResponse -> Enumerated TpProcessResponse_Status +HsJSONPB.insOrdFromList + [(Text +"header", Referenced Schema +tpProcessRequestHeader), + (Text +"payload", Referenced Schema +tpProcessRequestPayload), + (Text +"signature", Referenced Schema +tpProcessRequestSignature), + (Text +"context_id", Referenced Schema +tpProcessRequestContextId), + (Text +"header_bytes", + Referenced Schema +tpProcessRequestHeaderBytes)]}}) + +data TpProcessResponse = TpProcessResponse{TpProcessResponse -> Enumerated TpProcessResponse_Status tpProcessResponseStatus - :: - HsProtobuf.Enumerated - Data.Sawtooth.Processor.TpProcessResponse_Status, - TpProcessResponse -> Text -tpProcessResponseMessage :: Hs.Text, - TpProcessResponse -> ByteString -tpProcessResponseExtendedData :: Hs.ByteString} - deriving (Int -> TpProcessResponse -> ShowS + :: + HsProtobuf.Enumerated + Data.Sawtooth.Processor.TpProcessResponse_Status, + TpProcessResponse -> Text +tpProcessResponseMessage :: Hs.Text, + TpProcessResponse -> ByteString +tpProcessResponseExtendedData :: Hs.ByteString} + deriving (Int -> TpProcessResponse -> ShowS [TpProcessResponse] -> ShowS TpProcessResponse -> String (Int -> TpProcessResponse -> ShowS) @@ -3093,7 +3303,7 @@ show :: TpProcessResponse -> String $cshow :: TpProcessResponse -> String showsPrec :: Int -> TpProcessResponse -> ShowS $cshowsPrec :: Int -> TpProcessResponse -> ShowS -Hs.Show, TpProcessResponse -> TpProcessResponse -> Bool +Hs.Show, TpProcessResponse -> TpProcessResponse -> Bool (TpProcessResponse -> TpProcessResponse -> Bool) -> (TpProcessResponse -> TpProcessResponse -> Bool) -> Eq TpProcessResponse @@ -3102,9 +3312,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: TpProcessResponse -> TpProcessResponse -> Bool == :: TpProcessResponse -> TpProcessResponse -> Bool $c== :: TpProcessResponse -> TpProcessResponse -> Bool -Hs.Eq, Eq TpProcessResponse -Eq TpProcessResponse => -(TpProcessResponse -> TpProcessResponse -> Ordering) +Hs.Eq, Eq TpProcessResponse +Eq TpProcessResponse +-> (TpProcessResponse -> TpProcessResponse -> Ordering) -> (TpProcessResponse -> TpProcessResponse -> Bool) -> (TpProcessResponse -> TpProcessResponse -> Bool) -> (TpProcessResponse -> TpProcessResponse -> Bool) @@ -3116,8 +3326,8 @@ TpProcessResponse -> TpProcessResponse -> Bool TpProcessResponse -> TpProcessResponse -> Ordering TpProcessResponse -> TpProcessResponse -> TpProcessResponse forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -3140,7 +3350,7 @@ $c< :: TpProcessResponse -> TpProcessResponse -> Bool compare :: TpProcessResponse -> TpProcessResponse -> Ordering $ccompare :: TpProcessResponse -> TpProcessResponse -> Ordering $cp1Ord :: Eq TpProcessResponse -Hs.Ord, (forall x. TpProcessResponse -> Rep TpProcessResponse x) +Hs.Ord, (forall x. TpProcessResponse -> Rep TpProcessResponse x) -> (forall x. Rep TpProcessResponse x -> TpProcessResponse) -> Generic TpProcessResponse forall x. Rep TpProcessResponse x -> TpProcessResponse @@ -3149,66 +3359,73 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep TpProcessResponse x -> TpProcessResponse $cfrom :: forall x. TpProcessResponse -> Rep TpProcessResponse x -Hs.Generic, TpProcessResponse -> () +Hs.Generic, TpProcessResponse -> () (TpProcessResponse -> ()) -> NFData TpProcessResponse forall a. (a -> ()) -> NFData a rnf :: TpProcessResponse -> () $crnf :: TpProcessResponse -> () -Hs.NFData) - -instance HsProtobuf.Named TpProcessResponse where - nameOf :: Proxy# TpProcessResponse -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named TpProcessResponse where + nameOf :: Proxy# TpProcessResponse -> string +nameOf Proxy# TpProcessResponse +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "TpProcessResponse") - -instance HsProtobuf.HasDefault TpProcessResponse - -instance HsProtobuf.Message TpProcessResponse where - encodeMessage :: FieldNumber -> TpProcessResponse -> MessageBuilder -encodeMessage _ - TpProcessResponse{tpProcessResponseStatus :: TpProcessResponse -> Enumerated TpProcessResponse_Status +Hs.fromString String +"TpProcessResponse") + +instance HsProtobuf.HasDefault TpProcessResponse + +instance HsProtobuf.Message TpProcessResponse where + encodeMessage :: FieldNumber -> TpProcessResponse -> MessageBuilder +encodeMessage FieldNumber +_ + TpProcessResponse{tpProcessResponseStatus :: TpProcessResponse -> Enumerated TpProcessResponse_Status tpProcessResponseStatus = - Enumerated TpProcessResponse_Status -tpProcessResponseStatus, - tpProcessResponseMessage :: TpProcessResponse -> Text -tpProcessResponseMessage = Text -tpProcessResponseMessage, - tpProcessResponseExtendedData :: TpProcessResponse -> ByteString -tpProcessResponseExtendedData = ByteString -tpProcessResponseExtendedData} - = ([MessageBuilder] -> MessageBuilder + Enumerated TpProcessResponse_Status +tpProcessResponseStatus, + tpProcessResponseMessage :: TpProcessResponse -> Text +tpProcessResponseMessage = Text +tpProcessResponseMessage, + tpProcessResponseExtendedData :: TpProcessResponse -> ByteString +tpProcessResponseExtendedData = ByteString +tpProcessResponseExtendedData} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber +Hs.mconcat + [(FieldNumber -> Enumerated TpProcessResponse_Status -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Enumerated TpProcessResponse_Status -tpProcessResponseStatus), - (FieldNumber -> Text -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Enumerated TpProcessResponse_Status +tpProcessResponseStatus), + (FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - Text -tpProcessResponseMessage), - (FieldNumber -> ByteString -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + Text +tpProcessResponseMessage), + (FieldNumber -> ByteString -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - ByteString -tpProcessResponseExtendedData)]) - decodeMessage :: FieldNumber -> Parser RawMessage TpProcessResponse -decodeMessage _ - = ((Enumerated TpProcessResponse_Status +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + ByteString +tpProcessResponseExtendedData)]) + decodeMessage :: FieldNumber -> Parser RawMessage TpProcessResponse +decodeMessage FieldNumber +_ + = ((Enumerated TpProcessResponse_Status -> Text -> ByteString -> TpProcessResponse) -> Parser RawMessage (Enumerated TpProcessResponse_Status -> Text -> ByteString -> TpProcessResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated TpProcessResponse_Status +Hs.pure Enumerated TpProcessResponse_Status -> Text -> ByteString -> TpProcessResponse TpProcessResponse) Parser RawMessage @@ -3217,156 +3434,177 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Parser RawMessage (Enumerated TpProcessResponse_Status) -> Parser RawMessage (Text -> ByteString -> TpProcessResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField (Enumerated TpProcessResponse_Status) +<*> + (Parser RawField (Enumerated TpProcessResponse_Status) -> FieldNumber -> Parser RawMessage (Enumerated TpProcessResponse_Status) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (Enumerated TpProcessResponse_Status) +HsProtobuf.at Parser RawField (Enumerated TpProcessResponse_Status) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser RawMessage (Text -> ByteString -> TpProcessResponse) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (Text -> ByteString -> TpProcessResponse) -> Parser RawMessage Text -> Parser RawMessage (ByteString -> TpProcessResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2)) - Parser RawMessage (ByteString -> TpProcessResponse) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2)) + Parser RawMessage (ByteString -> TpProcessResponse) -> Parser RawMessage ByteString -> Parser RawMessage TpProcessResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField ByteString +<*> + (Parser RawField ByteString -> FieldNumber -> Parser RawMessage ByteString forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField ByteString +HsProtobuf.at Parser RawField ByteString forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3)) - dotProto :: Proxy# TpProcessResponse -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3)) + dotProto :: Proxy# TpProcessResponse -> [DotProtoField] +dotProto Proxy# TpProcessResponse +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "Status"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "status") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"Status"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"status") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "message") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"message") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.Bytes) - (String -> DotProtoIdentifier -HsProtobuf.Single "extended_data") - [] - "")] - -instance HsJSONPB.ToJSONPB TpProcessResponse where - toJSONPB :: TpProcessResponse -> Options -> Value -toJSONPB (TpProcessResponse f1 :: Enumerated TpProcessResponse_Status -f1 f2 :: Text -f2 f3 :: ByteString -f3) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object - ["status" Text -> Enumerated TpProcessResponse_Status -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.Bytes) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"extended_data") + [] + String +"")] + +instance HsJSONPB.ToJSONPB TpProcessResponse where + toJSONPB :: TpProcessResponse -> Options -> Value +toJSONPB (TpProcessResponse Enumerated TpProcessResponse_Status +f1 Text +f2 ByteString +f3) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object + [Text +"status" Text -> Enumerated TpProcessResponse_Status -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated TpProcessResponse_Status -f1, "message" Text -> Text -> Options -> [Pair] +.= Enumerated TpProcessResponse_Status +f1, Text +"message" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f2, "extended_data" Text -> ByteString -> Options -> [Pair] +.= Text +f2, Text +"extended_data" Text -> ByteString -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f3]) - toEncodingPB :: TpProcessResponse -> Options -> Encoding -toEncodingPB (TpProcessResponse f1 :: Enumerated TpProcessResponse_Status -f1 f2 :: Text -f2 f3 :: ByteString -f3) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs - ["status" Text -> Enumerated TpProcessResponse_Status -> Options -> Series +.= ByteString +f3]) + toEncodingPB :: TpProcessResponse -> Options -> Encoding +toEncodingPB (TpProcessResponse Enumerated TpProcessResponse_Status +f1 Text +f2 ByteString +f3) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs + [Text +"status" Text -> Enumerated TpProcessResponse_Status -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated TpProcessResponse_Status -f1, "message" Text -> Text -> Options -> Series +.= Enumerated TpProcessResponse_Status +f1, Text +"message" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f2, "extended_data" Text -> ByteString -> Options -> Series +.= Text +f2, Text +"extended_data" Text -> ByteString -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f3]) - -instance HsJSONPB.FromJSONPB TpProcessResponse where - parseJSONPB :: Value -> Parser TpProcessResponse -parseJSONPB - = (String +.= ByteString +f3]) + +instance HsJSONPB.FromJSONPB TpProcessResponse where + parseJSONPB :: Value -> Parser TpProcessResponse +parseJSONPB + = (String -> (Object -> Parser TpProcessResponse) -> Value -> Parser TpProcessResponse forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "TpProcessResponse" - (\ obj :: Object -obj -> - ((Enumerated TpProcessResponse_Status +HsJSONPB.withObject String +"TpProcessResponse" + (\ Object +obj -> + ((Enumerated TpProcessResponse_Status -> Text -> ByteString -> TpProcessResponse) -> Parser (Enumerated TpProcessResponse_Status -> Text -> ByteString -> TpProcessResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated TpProcessResponse_Status +Hs.pure Enumerated TpProcessResponse_Status -> Text -> ByteString -> TpProcessResponse TpProcessResponse) Parser (Enumerated TpProcessResponse_Status @@ -3374,100 +3612,104 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Parser (Enumerated TpProcessResponse_Status) -> Parser (Text -> ByteString -> TpProcessResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser (Enumerated TpProcessResponse_Status) +<*> Object +obj Object -> Text -> Parser (Enumerated TpProcessResponse_Status) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "status" Parser (Text -> ByteString -> TpProcessResponse) +.: Text +"status" Parser (Text -> ByteString -> TpProcessResponse) -> Parser Text -> Parser (ByteString -> TpProcessResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser Text +<*> + Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "message" - Parser (ByteString -> TpProcessResponse) +.: Text +"message" + Parser (ByteString -> TpProcessResponse) -> Parser ByteString -> Parser TpProcessResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser ByteString +<*> Object +obj Object -> Text -> Parser ByteString forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "extended_data")) - -instance HsJSONPB.ToJSON TpProcessResponse where - toJSON :: TpProcessResponse -> Value -toJSON = TpProcessResponse -> Value +.: Text +"extended_data")) + +instance HsJSONPB.ToJSON TpProcessResponse where + toJSON :: TpProcessResponse -> Value +toJSON = TpProcessResponse -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: TpProcessResponse -> Encoding -toEncoding = TpProcessResponse -> Encoding +HsJSONPB.toAesonValue + toEncoding :: TpProcessResponse -> Encoding +toEncoding = TpProcessResponse -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON TpProcessResponse where - parseJSON :: Value -> Parser TpProcessResponse -parseJSON = Value -> Parser TpProcessResponse +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON TpProcessResponse where + parseJSON :: Value -> Parser TpProcessResponse +parseJSON = Value -> Parser TpProcessResponse forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema TpProcessResponse where - declareNamedSchema :: Proxy TpProcessResponse -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_status :: Proxy (OverrideToSchema (Enumerated TpProcessResponse_Status)) +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema TpProcessResponse where + declareNamedSchema :: Proxy TpProcessResponse -> Declare (Definitions Schema) NamedSchema +declareNamedSchema Proxy TpProcessResponse +_ + = do let declare_status :: Proxy (OverrideToSchema (Enumerated TpProcessResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status = Proxy (OverrideToSchema (Enumerated TpProcessResponse_Status)) +declare_status = Proxy (OverrideToSchema (Enumerated TpProcessResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -tpProcessResponseStatus <- Proxy (OverrideToSchema (Enumerated TpProcessResponse_Status)) +HsJSONPB.declareSchemaRef + Referenced Schema +tpProcessResponseStatus <- Proxy (OverrideToSchema (Enumerated TpProcessResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status Proxy (OverrideToSchema (Enumerated TpProcessResponse_Status)) +declare_status Proxy (OverrideToSchema (Enumerated TpProcessResponse_Status)) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_message :: Proxy (OverrideToSchema Text) +Proxy.Proxy + let declare_message :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_message = Proxy (OverrideToSchema Text) +declare_message = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -tpProcessResponseMessage <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +tpProcessResponseMessage <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_message Proxy (OverrideToSchema Text) +declare_message Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_extended_data :: Proxy (OverrideToSchema ByteString) +Proxy.Proxy + let declare_extended_data :: Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_extended_data = Proxy (OverrideToSchema ByteString) +declare_extended_data = Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -tpProcessResponseExtendedData <- Proxy (OverrideToSchema ByteString) +HsJSONPB.declareSchemaRef + Referenced Schema +tpProcessResponseExtendedData <- Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_extended_data Proxy (OverrideToSchema ByteString) +declare_extended_data Proxy (OverrideToSchema ByteString) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy TpProcessResponse +Proxy.Proxy + let Proxy TpProcessResponse _ = (Enumerated TpProcessResponse_Status -> Text -> ByteString -> TpProcessResponse) -> Proxy (Enumerated TpProcessResponse_Status -> Text -> ByteString -> TpProcessResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated TpProcessResponse_Status +Hs.pure Enumerated TpProcessResponse_Status -> Text -> ByteString -> TpProcessResponse TpProcessResponse Proxy (Enumerated TpProcessResponse_Status @@ -3475,77 +3717,81 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Proxy (Enumerated TpProcessResponse_Status) -> Proxy (Text -> ByteString -> TpProcessResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema (Enumerated TpProcessResponse_Status)) +<*> + (Proxy (OverrideToSchema (Enumerated TpProcessResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Enumerated TpProcessResponse_Status) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Enumerated TpProcessResponse_Status)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Enumerated TpProcessResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status - Proxy (Text -> ByteString -> TpProcessResponse) +declare_status + Proxy (Text -> ByteString -> TpProcessResponse) -> Proxy Text -> Proxy (ByteString -> TpProcessResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema Text) +<*> (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_message - Proxy (ByteString -> TpProcessResponse) +declare_message + Proxy (ByteString -> TpProcessResponse) -> Proxy ByteString -> Proxy TpProcessResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema ByteString) +<*> (Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy ByteString forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) +HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_extended_data - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_extended_data + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "TpProcessResponse", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"TpProcessResponse", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("status", Referenced Schema -tpProcessResponseStatus), - ("message", Referenced Schema -tpProcessResponseMessage), - ("extended_data", - Referenced Schema -tpProcessResponseExtendedData)]}}) - -data TpProcessResponse_Status = TpProcessResponse_StatusSTATUS_UNSET - | TpProcessResponse_StatusOK - | TpProcessResponse_StatusINVALID_TRANSACTION - | TpProcessResponse_StatusINTERNAL_ERROR - deriving (Int -> TpProcessResponse_Status -> ShowS +HsJSONPB.insOrdFromList + [(Text +"status", Referenced Schema +tpProcessResponseStatus), + (Text +"message", Referenced Schema +tpProcessResponseMessage), + (Text +"extended_data", + Referenced Schema +tpProcessResponseExtendedData)]}}) + +data TpProcessResponse_Status = TpProcessResponse_StatusSTATUS_UNSET + | TpProcessResponse_StatusOK + | TpProcessResponse_StatusINVALID_TRANSACTION + | TpProcessResponse_StatusINTERNAL_ERROR + deriving (Int -> TpProcessResponse_Status -> ShowS [TpProcessResponse_Status] -> ShowS TpProcessResponse_Status -> String (Int -> TpProcessResponse_Status -> ShowS) @@ -3560,7 +3806,7 @@ show :: TpProcessResponse_Status -> String $cshow :: TpProcessResponse_Status -> String showsPrec :: Int -> TpProcessResponse_Status -> ShowS $cshowsPrec :: Int -> TpProcessResponse_Status -> ShowS -Hs.Show, TpProcessResponse_Status -> TpProcessResponse_Status -> Bool +Hs.Show, TpProcessResponse_Status -> TpProcessResponse_Status -> Bool (TpProcessResponse_Status -> TpProcessResponse_Status -> Bool) -> (TpProcessResponse_Status -> TpProcessResponse_Status -> Bool) -> Eq TpProcessResponse_Status @@ -3569,7 +3815,7 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: TpProcessResponse_Status -> TpProcessResponse_Status -> Bool == :: TpProcessResponse_Status -> TpProcessResponse_Status -> Bool $c== :: TpProcessResponse_Status -> TpProcessResponse_Status -> Bool -Hs.Eq, (forall x. +Hs.Eq, (forall x. TpProcessResponse_Status -> Rep TpProcessResponse_Status x) -> (forall x. Rep TpProcessResponse_Status x -> TpProcessResponse_Status) @@ -3584,134 +3830,152 @@ $cto :: forall x. Rep TpProcessResponse_Status x -> TpProcessResponse_Status $cfrom :: forall x. TpProcessResponse_Status -> Rep TpProcessResponse_Status x -Hs.Generic, TpProcessResponse_Status -> () +Hs.Generic, TpProcessResponse_Status -> () (TpProcessResponse_Status -> ()) -> NFData TpProcessResponse_Status forall a. (a -> ()) -> NFData a rnf :: TpProcessResponse_Status -> () $crnf :: TpProcessResponse_Status -> () -Hs.NFData) - -instance HsProtobuf.Named TpProcessResponse_Status where - nameOf :: Proxy# TpProcessResponse_Status -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named TpProcessResponse_Status where + nameOf :: Proxy# TpProcessResponse_Status -> string +nameOf Proxy# TpProcessResponse_Status +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "TpProcessResponse_Status") - -instance HsProtobuf.HasDefault TpProcessResponse_Status - -instance Hs.Bounded TpProcessResponse_Status where - minBound :: TpProcessResponse_Status -minBound = TpProcessResponse_Status +Hs.fromString String +"TpProcessResponse_Status") + +instance HsProtobuf.HasDefault TpProcessResponse_Status + +instance Hs.Bounded TpProcessResponse_Status where + minBound :: TpProcessResponse_Status +minBound = TpProcessResponse_Status TpProcessResponse_StatusSTATUS_UNSET - maxBound :: TpProcessResponse_Status -maxBound = TpProcessResponse_Status + maxBound :: TpProcessResponse_Status +maxBound = TpProcessResponse_Status TpProcessResponse_StatusINTERNAL_ERROR - -instance Hs.Ord TpProcessResponse_Status where - compare :: TpProcessResponse_Status -> TpProcessResponse_Status -> Ordering -compare x :: TpProcessResponse_Status -x y :: TpProcessResponse_Status -y - = Int32 -> Int32 -> Ordering + +instance Hs.Ord TpProcessResponse_Status where + compare :: TpProcessResponse_Status -> TpProcessResponse_Status -> Ordering +compare TpProcessResponse_Status +x TpProcessResponse_Status +y + = Int32 -> Int32 -> Ordering forall a. Ord a => a -> a -> Ordering -Hs.compare (TpProcessResponse_Status -> Int32 +Hs.compare (TpProcessResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum TpProcessResponse_Status -x) - (TpProcessResponse_Status -> Int32 +HsProtobuf.fromProtoEnum TpProcessResponse_Status +x) + (TpProcessResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum TpProcessResponse_Status -y) - -instance HsProtobuf.ProtoEnum TpProcessResponse_Status where - toProtoEnumMay :: Int32 -> Maybe TpProcessResponse_Status -toProtoEnumMay 0 = TpProcessResponse_Status -> Maybe TpProcessResponse_Status +HsProtobuf.fromProtoEnum TpProcessResponse_Status +y) + +instance HsProtobuf.ProtoEnum TpProcessResponse_Status where + toProtoEnumMay :: Int32 -> Maybe TpProcessResponse_Status +toProtoEnumMay Int32 +0 = TpProcessResponse_Status -> Maybe TpProcessResponse_Status forall a. a -> Maybe a -Hs.Just TpProcessResponse_Status +Hs.Just TpProcessResponse_Status TpProcessResponse_StatusSTATUS_UNSET - toProtoEnumMay 1 = TpProcessResponse_Status -> Maybe TpProcessResponse_Status + toProtoEnumMay Int32 +1 = TpProcessResponse_Status -> Maybe TpProcessResponse_Status forall a. a -> Maybe a -Hs.Just TpProcessResponse_Status +Hs.Just TpProcessResponse_Status TpProcessResponse_StatusOK - toProtoEnumMay 2 - = TpProcessResponse_Status -> Maybe TpProcessResponse_Status + toProtoEnumMay Int32 +2 + = TpProcessResponse_Status -> Maybe TpProcessResponse_Status forall a. a -> Maybe a -Hs.Just TpProcessResponse_Status +Hs.Just TpProcessResponse_Status TpProcessResponse_StatusINVALID_TRANSACTION - toProtoEnumMay 3 = TpProcessResponse_Status -> Maybe TpProcessResponse_Status + toProtoEnumMay Int32 +3 = TpProcessResponse_Status -> Maybe TpProcessResponse_Status forall a. a -> Maybe a -Hs.Just TpProcessResponse_Status +Hs.Just TpProcessResponse_Status TpProcessResponse_StatusINTERNAL_ERROR - toProtoEnumMay _ = Maybe TpProcessResponse_Status + toProtoEnumMay Int32 +_ = Maybe TpProcessResponse_Status forall a. Maybe a -Hs.Nothing - fromProtoEnum :: TpProcessResponse_Status -> Int32 -fromProtoEnum (TpProcessResponse_Status -TpProcessResponse_StatusSTATUS_UNSET) = 0 - fromProtoEnum (TpProcessResponse_Status -TpProcessResponse_StatusOK) = 1 - fromProtoEnum (TpProcessResponse_Status -TpProcessResponse_StatusINVALID_TRANSACTION) = 2 - fromProtoEnum (TpProcessResponse_Status -TpProcessResponse_StatusINTERNAL_ERROR) = 3 - -instance HsJSONPB.ToJSONPB TpProcessResponse_Status where - toJSONPB :: TpProcessResponse_Status -> Options -> Value -toJSONPB x :: TpProcessResponse_Status -x _ = TpProcessResponse_Status -> Value +Hs.Nothing + fromProtoEnum :: TpProcessResponse_Status -> Int32 +fromProtoEnum (TpProcessResponse_Status +TpProcessResponse_StatusSTATUS_UNSET) = Int32 +0 + fromProtoEnum (TpProcessResponse_Status +TpProcessResponse_StatusOK) = Int32 +1 + fromProtoEnum (TpProcessResponse_Status +TpProcessResponse_StatusINVALID_TRANSACTION) = Int32 +2 + fromProtoEnum (TpProcessResponse_Status +TpProcessResponse_StatusINTERNAL_ERROR) = Int32 +3 + +instance HsJSONPB.ToJSONPB TpProcessResponse_Status where + toJSONPB :: TpProcessResponse_Status -> Options -> Value +toJSONPB TpProcessResponse_Status +x Options +_ = TpProcessResponse_Status -> Value forall a. (Named a, Show a) => a -> Value -HsJSONPB.enumFieldString TpProcessResponse_Status -x - toEncodingPB :: TpProcessResponse_Status -> Options -> Encoding -toEncodingPB x :: TpProcessResponse_Status -x _ = TpProcessResponse_Status -> Encoding +HsJSONPB.enumFieldString TpProcessResponse_Status +x + toEncodingPB :: TpProcessResponse_Status -> Options -> Encoding +toEncodingPB TpProcessResponse_Status +x Options +_ = TpProcessResponse_Status -> Encoding forall a. (Named a, Show a) => a -> Encoding -HsJSONPB.enumFieldEncoding TpProcessResponse_Status -x - -instance HsJSONPB.FromJSONPB TpProcessResponse_Status where - parseJSONPB :: Value -> Parser TpProcessResponse_Status -parseJSONPB (HsJSONPB.String "STATUS_UNSET") - = TpProcessResponse_Status -> Parser TpProcessResponse_Status +HsJSONPB.enumFieldEncoding TpProcessResponse_Status +x + +instance HsJSONPB.FromJSONPB TpProcessResponse_Status where + parseJSONPB :: Value -> Parser TpProcessResponse_Status +parseJSONPB (HsJSONPB.String Text +"STATUS_UNSET") + = TpProcessResponse_Status -> Parser TpProcessResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure TpProcessResponse_Status +Hs.pure TpProcessResponse_Status TpProcessResponse_StatusSTATUS_UNSET - parseJSONPB (HsJSONPB.String "OK") - = TpProcessResponse_Status -> Parser TpProcessResponse_Status + parseJSONPB (HsJSONPB.String Text +"OK") + = TpProcessResponse_Status -> Parser TpProcessResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure TpProcessResponse_Status +Hs.pure TpProcessResponse_Status TpProcessResponse_StatusOK - parseJSONPB (HsJSONPB.String "INVALID_TRANSACTION") - = TpProcessResponse_Status -> Parser TpProcessResponse_Status + parseJSONPB (HsJSONPB.String Text +"INVALID_TRANSACTION") + = TpProcessResponse_Status -> Parser TpProcessResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure TpProcessResponse_Status +Hs.pure TpProcessResponse_Status TpProcessResponse_StatusINVALID_TRANSACTION - parseJSONPB (HsJSONPB.String "INTERNAL_ERROR") - = TpProcessResponse_Status -> Parser TpProcessResponse_Status + parseJSONPB (HsJSONPB.String Text +"INTERNAL_ERROR") + = TpProcessResponse_Status -> Parser TpProcessResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure TpProcessResponse_Status +Hs.pure TpProcessResponse_Status TpProcessResponse_StatusINTERNAL_ERROR - parseJSONPB v :: Value -v - = (String -> Value -> Parser TpProcessResponse_Status + parseJSONPB Value +v + = (String -> Value -> Parser TpProcessResponse_Status forall a. String -> Value -> Parser a -HsJSONPB.typeMismatch "TpProcessResponse_Status" Value -v) - -instance HsJSONPB.ToJSON TpProcessResponse_Status where - toJSON :: TpProcessResponse_Status -> Value -toJSON = TpProcessResponse_Status -> Value +HsJSONPB.typeMismatch String +"TpProcessResponse_Status" Value +v) + +instance HsJSONPB.ToJSON TpProcessResponse_Status where + toJSON :: TpProcessResponse_Status -> Value +toJSON = TpProcessResponse_Status -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: TpProcessResponse_Status -> Encoding -toEncoding = TpProcessResponse_Status -> Encoding +HsJSONPB.toAesonValue + toEncoding :: TpProcessResponse_Status -> Encoding +toEncoding = TpProcessResponse_Status -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON TpProcessResponse_Status where - parseJSON :: Value -> Parser TpProcessResponse_Status -parseJSON = Value -> Parser TpProcessResponse_Status +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON TpProcessResponse_Status where + parseJSON :: Value -> Parser TpProcessResponse_Status +parseJSON = Value -> Parser TpProcessResponse_Status forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsProtobuf.Finite TpProcessResponse_Status \ No newline at end of file +HsJSONPB.parseJSONPB + +instance HsProtobuf.Finite TpProcessResponse_Status \ No newline at end of file diff --git a/src/Data.Sawtooth.Setting.html b/src/Data.Sawtooth.Setting.html index c3b7f70..b163fd9 100644 --- a/src/Data.Sawtooth.Setting.html +++ b/src/Data.Sawtooth.Setting.html @@ -9,37 +9,36 @@ {-# OPTIONS_GHC -fno-warn-unused-matches #-} -- | Generated by Haskell protocol buffer compiler. DO NOT EDIT! - -module Data.Sawtooth.Setting where -import qualified Prelude as Hs -import qualified Proto3.Suite.Class as HsProtobuf -import qualified Proto3.Suite.DotProto as HsProtobuf -import qualified Proto3.Suite.JSONPB as HsJSONPB -import Proto3.Suite.JSONPB ((.=), (.:)) -import qualified Proto3.Suite.Types as HsProtobuf -import qualified Proto3.Wire as HsProtobuf -import qualified Control.Applicative as Hs -import Control.Applicative ((<*>), (<|>), (<$>)) -import qualified Control.DeepSeq as Hs -import qualified Control.Monad as Hs -import qualified Data.ByteString as Hs -import qualified Data.Coerce as Hs -import qualified Data.Int as Hs (Int16, Int32, Int64) -import qualified Data.List.NonEmpty as Hs (NonEmpty(..)) -import qualified Data.Map as Hs (Map, mapKeysMonotonic) -import qualified Data.Proxy as Proxy -import qualified Data.String as Hs (fromString) -import qualified Data.Text.Lazy as Hs (Text) -import qualified Data.Vector as Hs (Vector) -import qualified Data.Word as Hs (Word16, Word32, Word64) -import qualified GHC.Enum as Hs -import qualified GHC.Generics as Hs -import qualified Unsafe.Coerce as Hs - -newtype Setting = Setting{Setting -> Vector Setting_Entry +module Data.Sawtooth.Setting where +import qualified Prelude as Hs +import qualified Proto3.Suite.Class as HsProtobuf +import qualified Proto3.Suite.DotProto as HsProtobuf +import qualified Proto3.Suite.JSONPB as HsJSONPB +import Proto3.Suite.JSONPB ((.=), (.:)) +import qualified Proto3.Suite.Types as HsProtobuf +import qualified Proto3.Wire as HsProtobuf +import qualified Control.Applicative as Hs +import Control.Applicative ((<*>), (<|>), (<$>)) +import qualified Control.DeepSeq as Hs +import qualified Control.Monad as Hs +import qualified Data.ByteString as Hs +import qualified Data.Coerce as Hs +import qualified Data.Int as Hs (Int16, Int32, Int64) +import qualified Data.List.NonEmpty as Hs (NonEmpty(..)) +import qualified Data.Map as Hs (Map, mapKeysMonotonic) +import qualified Data.Proxy as Proxy +import qualified Data.String as Hs (fromString) +import qualified Data.Text.Lazy as Hs (Text) +import qualified Data.Vector as Hs (Vector) +import qualified Data.Word as Hs (Word16, Word32, Word64) +import qualified GHC.Enum as Hs +import qualified GHC.Generics as Hs +import qualified Unsafe.Coerce as Hs + +newtype Setting = Setting{Setting -> Vector Setting_Entry settingEntries :: - Hs.Vector Data.Sawtooth.Setting.Setting_Entry} - deriving (Int -> Setting -> ShowS + Hs.Vector Data.Sawtooth.Setting.Setting_Entry} + deriving (Int -> Setting -> ShowS [Setting] -> ShowS Setting -> String (Int -> Setting -> ShowS) @@ -52,7 +51,7 @@ show :: Setting -> String $cshow :: Setting -> String showsPrec :: Int -> Setting -> ShowS $cshowsPrec :: Int -> Setting -> ShowS -Hs.Show, Setting -> Setting -> Bool +Hs.Show, Setting -> Setting -> Bool (Setting -> Setting -> Bool) -> (Setting -> Setting -> Bool) -> Eq Setting forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a @@ -60,9 +59,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: Setting -> Setting -> Bool == :: Setting -> Setting -> Bool $c== :: Setting -> Setting -> Bool -Hs.Eq, Eq Setting -Eq Setting => -(Setting -> Setting -> Ordering) +Hs.Eq, Eq Setting +Eq Setting +-> (Setting -> Setting -> Ordering) -> (Setting -> Setting -> Bool) -> (Setting -> Setting -> Bool) -> (Setting -> Setting -> Bool) @@ -74,8 +73,8 @@ Setting -> Setting -> Bool Setting -> Setting -> Ordering Setting -> Setting -> Setting forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -98,7 +97,7 @@ $c< :: Setting -> Setting -> Bool compare :: Setting -> Setting -> Ordering $ccompare :: Setting -> Setting -> Ordering $cp1Ord :: Eq Setting -Hs.Ord, (forall x. Setting -> Rep Setting x) +Hs.Ord, (forall x. Setting -> Rep Setting x) -> (forall x. Rep Setting x -> Setting) -> Generic Setting forall x. Rep Setting x -> Setting forall x. Setting -> Rep Setting x @@ -106,211 +105,227 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep Setting x -> Setting $cfrom :: forall x. Setting -> Rep Setting x -Hs.Generic, Setting -> () +Hs.Generic, Setting -> () (Setting -> ()) -> NFData Setting forall a. (a -> ()) -> NFData a rnf :: Setting -> () $crnf :: Setting -> () -Hs.NFData) - -instance HsProtobuf.Named Setting where - nameOf :: Proxy# Setting -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named Setting where + nameOf :: Proxy# Setting -> string +nameOf Proxy# Setting +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "Setting") - -instance HsProtobuf.HasDefault Setting - -instance HsProtobuf.Message Setting where - encodeMessage :: FieldNumber -> Setting -> MessageBuilder -encodeMessage _ Setting{settingEntries :: Setting -> Vector Setting_Entry -settingEntries = Vector Setting_Entry -settingEntries} - = ([MessageBuilder] -> MessageBuilder +Hs.fromString String +"Setting") + +instance HsProtobuf.HasDefault Setting + +instance HsProtobuf.Message Setting where + encodeMessage :: FieldNumber -> Setting -> MessageBuilder +encodeMessage FieldNumber +_ Setting{settingEntries :: Setting -> Vector Setting_Entry +settingEntries = Vector Setting_Entry +settingEntries} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> NestedVec Setting_Entry -> MessageBuilder +Hs.mconcat + [(FieldNumber -> NestedVec Setting_Entry -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (Vector Setting_Entry -> NestedVec Setting_Entry -forall a b. Coercible a b => a -> b -Hs.coerce @(Hs.Vector Data.Sawtooth.Setting.Setting_Entry) - @(HsProtobuf.NestedVec Data.Sawtooth.Setting.Setting_Entry) - Vector Setting_Entry -settingEntries))]) - decodeMessage :: FieldNumber -> Parser RawMessage Setting -decodeMessage _ - = ((Vector Setting_Entry -> Setting) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (Vector Setting_Entry -> NestedVec Setting_Entry +Hs.coerce @(Hs.Vector Data.Sawtooth.Setting.Setting_Entry) + @(HsProtobuf.NestedVec Data.Sawtooth.Setting.Setting_Entry) + Vector Setting_Entry +settingEntries))]) + decodeMessage :: FieldNumber -> Parser RawMessage Setting +decodeMessage FieldNumber +_ + = ((Vector Setting_Entry -> Setting) -> Parser RawMessage (Vector Setting_Entry -> Setting) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector Setting_Entry -> Setting +Hs.pure Vector Setting_Entry -> Setting Setting) Parser RawMessage (Vector Setting_Entry -> Setting) -> Parser RawMessage (Vector Setting_Entry) -> Parser RawMessage Setting forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (NestedVec Setting_Entry) +<*> + (Parser RawMessage (NestedVec Setting_Entry) -> Parser RawMessage (Vector Setting_Entry) -forall a b. Coercible a b => a -> b -Hs.coerce - @(_ (HsProtobuf.NestedVec Data.Sawtooth.Setting.Setting_Entry)) - @(_ (Hs.Vector Data.Sawtooth.Setting.Setting_Entry)) - (Parser RawField (NestedVec Setting_Entry) +Hs.coerce + @(_ (HsProtobuf.NestedVec Data.Sawtooth.Setting.Setting_Entry)) + @(_ (Hs.Vector Data.Sawtooth.Setting.Setting_Entry)) + (Parser RawField (NestedVec Setting_Entry) -> FieldNumber -> Parser RawMessage (NestedVec Setting_Entry) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (NestedVec Setting_Entry) +HsProtobuf.at Parser RawField (NestedVec Setting_Entry) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1))) - dotProto :: Proxy# Setting -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1))) + dotProto :: Proxy# Setting -> [DotProtoField] +dotProto Proxy# Setting +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Repeated - (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "Entry"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "entries") - [] - "")] - -instance HsJSONPB.ToJSONPB Setting where - toJSONPB :: Setting -> Options -> Value -toJSONPB (Setting f1 :: Vector Setting_Entry -f1) = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["entries" Text -> Vector Setting_Entry -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Repeated + (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"Entry"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"entries") + [] + String +"")] + +instance HsJSONPB.ToJSONPB Setting where + toJSONPB :: Setting -> Options -> Value +toJSONPB (Setting Vector Setting_Entry +f1) = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"entries" Text -> Vector Setting_Entry -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Setting_Entry -f1]) - toEncodingPB :: Setting -> Options -> Encoding -toEncodingPB (Setting f1 :: Vector Setting_Entry -f1) = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["entries" Text -> Vector Setting_Entry -> Options -> Series +.= Vector Setting_Entry +f1]) + toEncodingPB :: Setting -> Options -> Encoding +toEncodingPB (Setting Vector Setting_Entry +f1) = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"entries" Text -> Vector Setting_Entry -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Setting_Entry -f1]) - -instance HsJSONPB.FromJSONPB Setting where - parseJSONPB :: Value -> Parser Setting -parseJSONPB - = (String -> (Object -> Parser Setting) -> Value -> Parser Setting +.= Vector Setting_Entry +f1]) + +instance HsJSONPB.FromJSONPB Setting where + parseJSONPB :: Value -> Parser Setting +parseJSONPB + = (String -> (Object -> Parser Setting) -> Value -> Parser Setting forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "Setting" - (\ obj :: Object -obj -> ((Vector Setting_Entry -> Setting) +HsJSONPB.withObject String +"Setting" + (\ Object +obj -> ((Vector Setting_Entry -> Setting) -> Parser (Vector Setting_Entry -> Setting) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector Setting_Entry -> Setting +Hs.pure Vector Setting_Entry -> Setting Setting) Parser (Vector Setting_Entry -> Setting) -> Parser (Vector Setting_Entry) -> Parser Setting forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser (Vector Setting_Entry) +<*> Object +obj Object -> Text -> Parser (Vector Setting_Entry) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "entries")) - -instance HsJSONPB.ToJSON Setting where - toJSON :: Setting -> Value -toJSON = Setting -> Value +.: Text +"entries")) + +instance HsJSONPB.ToJSON Setting where + toJSON :: Setting -> Value +toJSON = Setting -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: Setting -> Encoding -toEncoding = Setting -> Encoding +HsJSONPB.toAesonValue + toEncoding :: Setting -> Encoding +toEncoding = Setting -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON Setting where - parseJSON :: Value -> Parser Setting -parseJSON = Value -> Parser Setting +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON Setting where + parseJSON :: Value -> Parser Setting +parseJSON = Value -> Parser Setting forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema Setting where - declareNamedSchema :: Proxy Setting -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_entries :: Proxy (OverrideToSchema (Vector Setting_Entry)) +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema Setting where + declareNamedSchema :: Proxy Setting -> Declare (Definitions Schema) NamedSchema +declareNamedSchema Proxy Setting +_ + = do let declare_entries :: Proxy (OverrideToSchema (Vector Setting_Entry)) -> Declare (Definitions Schema) (Referenced Schema) -declare_entries = Proxy (OverrideToSchema (Vector Setting_Entry)) +declare_entries = Proxy (OverrideToSchema (Vector Setting_Entry)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -settingEntries <- Proxy (OverrideToSchema (Vector Setting_Entry)) +HsJSONPB.declareSchemaRef + Referenced Schema +settingEntries <- Proxy (OverrideToSchema (Vector Setting_Entry)) -> Declare (Definitions Schema) (Referenced Schema) -declare_entries Proxy (OverrideToSchema (Vector Setting_Entry)) +declare_entries Proxy (OverrideToSchema (Vector Setting_Entry)) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy Setting +Proxy.Proxy + let Proxy Setting _ = (Vector Setting_Entry -> Setting) -> Proxy (Vector Setting_Entry -> Setting) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector Setting_Entry -> Setting +Hs.pure Vector Setting_Entry -> Setting Setting Proxy (Vector Setting_Entry -> Setting) -> Proxy (Vector Setting_Entry) -> Proxy Setting forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema (Vector Setting_Entry)) +<*> (Proxy (OverrideToSchema (Vector Setting_Entry)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Vector Setting_Entry) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Setting_Entry)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Setting_Entry)) -> Declare (Definitions Schema) (Referenced Schema) -declare_entries - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_entries + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "Setting", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"Setting", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("entries", Referenced Schema -settingEntries)]}}) - -data Setting_Entry = Setting_Entry{Setting_Entry -> Text -setting_EntryKey :: Hs.Text, - Setting_Entry -> Text -setting_EntryValue :: Hs.Text} - deriving (Int -> Setting_Entry -> ShowS +HsJSONPB.insOrdFromList + [(Text +"entries", Referenced Schema +settingEntries)]}}) + +data Setting_Entry = Setting_Entry{Setting_Entry -> Text +setting_EntryKey :: Hs.Text, + Setting_Entry -> Text +setting_EntryValue :: Hs.Text} + deriving (Int -> Setting_Entry -> ShowS [Setting_Entry] -> ShowS Setting_Entry -> String (Int -> Setting_Entry -> ShowS) @@ -325,7 +340,7 @@ show :: Setting_Entry -> String $cshow :: Setting_Entry -> String showsPrec :: Int -> Setting_Entry -> ShowS $cshowsPrec :: Int -> Setting_Entry -> ShowS -Hs.Show, Setting_Entry -> Setting_Entry -> Bool +Hs.Show, Setting_Entry -> Setting_Entry -> Bool (Setting_Entry -> Setting_Entry -> Bool) -> (Setting_Entry -> Setting_Entry -> Bool) -> Eq Setting_Entry forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a @@ -333,9 +348,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: Setting_Entry -> Setting_Entry -> Bool == :: Setting_Entry -> Setting_Entry -> Bool $c== :: Setting_Entry -> Setting_Entry -> Bool -Hs.Eq, Eq Setting_Entry -Eq Setting_Entry => -(Setting_Entry -> Setting_Entry -> Ordering) +Hs.Eq, Eq Setting_Entry +Eq Setting_Entry +-> (Setting_Entry -> Setting_Entry -> Ordering) -> (Setting_Entry -> Setting_Entry -> Bool) -> (Setting_Entry -> Setting_Entry -> Bool) -> (Setting_Entry -> Setting_Entry -> Bool) @@ -347,8 +362,8 @@ Setting_Entry -> Setting_Entry -> Bool Setting_Entry -> Setting_Entry -> Ordering Setting_Entry -> Setting_Entry -> Setting_Entry forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -371,7 +386,7 @@ $c< :: Setting_Entry -> Setting_Entry -> Bool compare :: Setting_Entry -> Setting_Entry -> Ordering $ccompare :: Setting_Entry -> Setting_Entry -> Ordering $cp1Ord :: Eq Setting_Entry -Hs.Ord, (forall x. Setting_Entry -> Rep Setting_Entry x) +Hs.Ord, (forall x. Setting_Entry -> Rep Setting_Entry x) -> (forall x. Rep Setting_Entry x -> Setting_Entry) -> Generic Setting_Entry forall x. Rep Setting_Entry x -> Setting_Entry @@ -380,276 +395,302 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep Setting_Entry x -> Setting_Entry $cfrom :: forall x. Setting_Entry -> Rep Setting_Entry x -Hs.Generic, Setting_Entry -> () +Hs.Generic, Setting_Entry -> () (Setting_Entry -> ()) -> NFData Setting_Entry forall a. (a -> ()) -> NFData a rnf :: Setting_Entry -> () $crnf :: Setting_Entry -> () -Hs.NFData) - -instance HsProtobuf.Named Setting_Entry where - nameOf :: Proxy# Setting_Entry -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named Setting_Entry where + nameOf :: Proxy# Setting_Entry -> string +nameOf Proxy# Setting_Entry +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "Setting_Entry") - -instance HsProtobuf.HasDefault Setting_Entry - -instance HsProtobuf.Message Setting_Entry where - encodeMessage :: FieldNumber -> Setting_Entry -> MessageBuilder -encodeMessage _ - Setting_Entry{setting_EntryKey :: Setting_Entry -> Text -setting_EntryKey = Text -setting_EntryKey, - setting_EntryValue :: Setting_Entry -> Text -setting_EntryValue = Text -setting_EntryValue} - = ([MessageBuilder] -> MessageBuilder +Hs.fromString String +"Setting_Entry") + +instance HsProtobuf.HasDefault Setting_Entry + +instance HsProtobuf.Message Setting_Entry where + encodeMessage :: FieldNumber -> Setting_Entry -> MessageBuilder +encodeMessage FieldNumber +_ + Setting_Entry{setting_EntryKey :: Setting_Entry -> Text +setting_EntryKey = Text +setting_EntryKey, + setting_EntryValue :: Setting_Entry -> Text +setting_EntryValue = Text +setting_EntryValue} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> Text -> MessageBuilder +Hs.mconcat + [(FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Text -setting_EntryKey), - (FieldNumber -> Text -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Text +setting_EntryKey), + (FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - Text -setting_EntryValue)]) - decodeMessage :: FieldNumber -> Parser RawMessage Setting_Entry -decodeMessage _ - = ((Text -> Text -> Setting_Entry) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + Text +setting_EntryValue)]) + decodeMessage :: FieldNumber -> Parser RawMessage Setting_Entry +decodeMessage FieldNumber +_ + = ((Text -> Text -> Setting_Entry) -> Parser RawMessage (Text -> Text -> Setting_Entry) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> Text -> Setting_Entry +Hs.pure Text -> Text -> Setting_Entry Setting_Entry) Parser RawMessage (Text -> Text -> Setting_Entry) -> Parser RawMessage Text -> Parser RawMessage (Text -> Setting_Entry) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser RawMessage (Text -> Setting_Entry) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (Text -> Setting_Entry) -> Parser RawMessage Text -> Parser RawMessage Setting_Entry forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2)) - dotProto :: Proxy# Setting_Entry -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2)) + dotProto :: Proxy# Setting_Entry -> [DotProtoField] +dotProto Proxy# Setting_Entry +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "key") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"key") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "value") - [] - "")] - -instance HsJSONPB.ToJSONPB Setting_Entry where - toJSONPB :: Setting_Entry -> Options -> Value -toJSONPB (Setting_Entry f1 :: Text -f1 f2 :: Text -f2) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["key" Text -> Text -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"value") + [] + String +"")] + +instance HsJSONPB.ToJSONPB Setting_Entry where + toJSONPB :: Setting_Entry -> Options -> Value +toJSONPB (Setting_Entry Text +f1 Text +f2) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"key" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1, "value" Text -> Text -> Options -> [Pair] +.= Text +f1, Text +"value" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f2]) - toEncodingPB :: Setting_Entry -> Options -> Encoding -toEncodingPB (Setting_Entry f1 :: Text -f1 f2 :: Text -f2) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["key" Text -> Text -> Options -> Series +.= Text +f2]) + toEncodingPB :: Setting_Entry -> Options -> Encoding +toEncodingPB (Setting_Entry Text +f1 Text +f2) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"key" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1, "value" Text -> Text -> Options -> Series +.= Text +f1, Text +"value" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f2]) - -instance HsJSONPB.FromJSONPB Setting_Entry where - parseJSONPB :: Value -> Parser Setting_Entry -parseJSONPB - = (String +.= Text +f2]) + +instance HsJSONPB.FromJSONPB Setting_Entry where + parseJSONPB :: Value -> Parser Setting_Entry +parseJSONPB + = (String -> (Object -> Parser Setting_Entry) -> Value -> Parser Setting_Entry forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "Setting_Entry" - (\ obj :: Object -obj -> - ((Text -> Text -> Setting_Entry) +HsJSONPB.withObject String +"Setting_Entry" + (\ Object +obj -> + ((Text -> Text -> Setting_Entry) -> Parser (Text -> Text -> Setting_Entry) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> Text -> Setting_Entry +Hs.pure Text -> Text -> Setting_Entry Setting_Entry) Parser (Text -> Text -> Setting_Entry) -> Parser Text -> Parser (Text -> Setting_Entry) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Text +<*> Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "key" Parser (Text -> Setting_Entry) +.: Text +"key" Parser (Text -> Setting_Entry) -> Parser Text -> Parser Setting_Entry forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Text +<*> Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "value")) - -instance HsJSONPB.ToJSON Setting_Entry where - toJSON :: Setting_Entry -> Value -toJSON = Setting_Entry -> Value +.: Text +"value")) + +instance HsJSONPB.ToJSON Setting_Entry where + toJSON :: Setting_Entry -> Value +toJSON = Setting_Entry -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: Setting_Entry -> Encoding -toEncoding = Setting_Entry -> Encoding +HsJSONPB.toAesonValue + toEncoding :: Setting_Entry -> Encoding +toEncoding = Setting_Entry -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON Setting_Entry where - parseJSON :: Value -> Parser Setting_Entry -parseJSON = Value -> Parser Setting_Entry +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON Setting_Entry where + parseJSON :: Value -> Parser Setting_Entry +parseJSON = Value -> Parser Setting_Entry forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema Setting_Entry where - declareNamedSchema :: Proxy Setting_Entry -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_key :: Proxy (OverrideToSchema Text) +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema Setting_Entry where + declareNamedSchema :: Proxy Setting_Entry -> Declare (Definitions Schema) NamedSchema +declareNamedSchema Proxy Setting_Entry +_ + = do let declare_key :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_key = Proxy (OverrideToSchema Text) +declare_key = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -setting_EntryKey <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +setting_EntryKey <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_key Proxy (OverrideToSchema Text) +declare_key Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_value :: Proxy (OverrideToSchema Text) +Proxy.Proxy + let declare_value :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_value = Proxy (OverrideToSchema Text) +declare_value = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -setting_EntryValue <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +setting_EntryValue <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_value Proxy (OverrideToSchema Text) +declare_value Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy Setting_Entry +Proxy.Proxy + let Proxy Setting_Entry _ = (Text -> Text -> Setting_Entry) -> Proxy (Text -> Text -> Setting_Entry) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> Text -> Setting_Entry +Hs.pure Text -> Text -> Setting_Entry Setting_Entry Proxy (Text -> Text -> Setting_Entry) -> Proxy Text -> Proxy (Text -> Setting_Entry) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema Text) +<*> (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_key Proxy (Text -> Setting_Entry) -> Proxy Text -> Proxy Setting_Entry +declare_key Proxy (Text -> Setting_Entry) -> Proxy Text -> Proxy Setting_Entry forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema Text) +<*> + (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_value - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_value + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "Setting_Entry", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"Setting_Entry", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("key", Referenced Schema -setting_EntryKey), - ("value", Referenced Schema -setting_EntryValue)]}}) \ No newline at end of file +HsJSONPB.insOrdFromList + [(Text +"key", Referenced Schema +setting_EntryKey), + (Text +"value", Referenced Schema +setting_EntryValue)]}}) \ No newline at end of file diff --git a/src/Data.Sawtooth.StateContext.html b/src/Data.Sawtooth.StateContext.html index c2fc16c..e13ebed 100644 --- a/src/Data.Sawtooth.StateContext.html +++ b/src/Data.Sawtooth.StateContext.html @@ -9,39 +9,38 @@ {-# OPTIONS_GHC -fno-warn-unused-matches #-} -- | Generated by Haskell protocol buffer compiler. DO NOT EDIT! - -module Data.Sawtooth.StateContext where -import qualified Prelude as Hs -import qualified Proto3.Suite.Class as HsProtobuf -import qualified Proto3.Suite.DotProto as HsProtobuf -import qualified Proto3.Suite.JSONPB as HsJSONPB -import Proto3.Suite.JSONPB ((.=), (.:)) -import qualified Proto3.Suite.Types as HsProtobuf -import qualified Proto3.Wire as HsProtobuf -import qualified Control.Applicative as Hs -import Control.Applicative ((<*>), (<|>), (<$>)) -import qualified Control.DeepSeq as Hs -import qualified Control.Monad as Hs -import qualified Data.ByteString as Hs -import qualified Data.Coerce as Hs -import qualified Data.Int as Hs (Int16, Int32, Int64) -import qualified Data.List.NonEmpty as Hs (NonEmpty(..)) -import qualified Data.Map as Hs (Map, mapKeysMonotonic) -import qualified Data.Proxy as Proxy -import qualified Data.String as Hs (fromString) -import qualified Data.Text.Lazy as Hs (Text) -import qualified Data.Vector as Hs (Vector) -import qualified Data.Word as Hs (Word16, Word32, Word64) -import qualified GHC.Enum as Hs -import qualified GHC.Generics as Hs -import qualified Unsafe.Coerce as Hs -import qualified Data.Sawtooth.Events - -data TpStateEntry = TpStateEntry{TpStateEntry -> Text -tpStateEntryAddress :: Hs.Text, - TpStateEntry -> ByteString -tpStateEntryData :: Hs.ByteString} - deriving (Int -> TpStateEntry -> ShowS +module Data.Sawtooth.StateContext where +import qualified Prelude as Hs +import qualified Proto3.Suite.Class as HsProtobuf +import qualified Proto3.Suite.DotProto as HsProtobuf +import qualified Proto3.Suite.JSONPB as HsJSONPB +import Proto3.Suite.JSONPB ((.=), (.:)) +import qualified Proto3.Suite.Types as HsProtobuf +import qualified Proto3.Wire as HsProtobuf +import qualified Control.Applicative as Hs +import Control.Applicative ((<*>), (<|>), (<$>)) +import qualified Control.DeepSeq as Hs +import qualified Control.Monad as Hs +import qualified Data.ByteString as Hs +import qualified Data.Coerce as Hs +import qualified Data.Int as Hs (Int16, Int32, Int64) +import qualified Data.List.NonEmpty as Hs (NonEmpty(..)) +import qualified Data.Map as Hs (Map, mapKeysMonotonic) +import qualified Data.Proxy as Proxy +import qualified Data.String as Hs (fromString) +import qualified Data.Text.Lazy as Hs (Text) +import qualified Data.Vector as Hs (Vector) +import qualified Data.Word as Hs (Word16, Word32, Word64) +import qualified GHC.Enum as Hs +import qualified GHC.Generics as Hs +import qualified Unsafe.Coerce as Hs +import qualified Data.Sawtooth.Events + +data TpStateEntry = TpStateEntry{TpStateEntry -> Text +tpStateEntryAddress :: Hs.Text, + TpStateEntry -> ByteString +tpStateEntryData :: Hs.ByteString} + deriving (Int -> TpStateEntry -> ShowS [TpStateEntry] -> ShowS TpStateEntry -> String (Int -> TpStateEntry -> ShowS) @@ -56,7 +55,7 @@ show :: TpStateEntry -> String $cshow :: TpStateEntry -> String showsPrec :: Int -> TpStateEntry -> ShowS $cshowsPrec :: Int -> TpStateEntry -> ShowS -Hs.Show, TpStateEntry -> TpStateEntry -> Bool +Hs.Show, TpStateEntry -> TpStateEntry -> Bool (TpStateEntry -> TpStateEntry -> Bool) -> (TpStateEntry -> TpStateEntry -> Bool) -> Eq TpStateEntry forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a @@ -64,9 +63,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: TpStateEntry -> TpStateEntry -> Bool == :: TpStateEntry -> TpStateEntry -> Bool $c== :: TpStateEntry -> TpStateEntry -> Bool -Hs.Eq, Eq TpStateEntry -Eq TpStateEntry => -(TpStateEntry -> TpStateEntry -> Ordering) +Hs.Eq, Eq TpStateEntry +Eq TpStateEntry +-> (TpStateEntry -> TpStateEntry -> Ordering) -> (TpStateEntry -> TpStateEntry -> Bool) -> (TpStateEntry -> TpStateEntry -> Bool) -> (TpStateEntry -> TpStateEntry -> Bool) @@ -78,8 +77,8 @@ TpStateEntry -> TpStateEntry -> Bool TpStateEntry -> TpStateEntry -> Ordering TpStateEntry -> TpStateEntry -> TpStateEntry forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -102,7 +101,7 @@ $c< :: TpStateEntry -> TpStateEntry -> Bool compare :: TpStateEntry -> TpStateEntry -> Ordering $ccompare :: TpStateEntry -> TpStateEntry -> Ordering $cp1Ord :: Eq TpStateEntry -Hs.Ord, (forall x. TpStateEntry -> Rep TpStateEntry x) +Hs.Ord, (forall x. TpStateEntry -> Rep TpStateEntry x) -> (forall x. Rep TpStateEntry x -> TpStateEntry) -> Generic TpStateEntry forall x. Rep TpStateEntry x -> TpStateEntry @@ -111,286 +110,312 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep TpStateEntry x -> TpStateEntry $cfrom :: forall x. TpStateEntry -> Rep TpStateEntry x -Hs.Generic, TpStateEntry -> () +Hs.Generic, TpStateEntry -> () (TpStateEntry -> ()) -> NFData TpStateEntry forall a. (a -> ()) -> NFData a rnf :: TpStateEntry -> () $crnf :: TpStateEntry -> () -Hs.NFData) - -instance HsProtobuf.Named TpStateEntry where - nameOf :: Proxy# TpStateEntry -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named TpStateEntry where + nameOf :: Proxy# TpStateEntry -> string +nameOf Proxy# TpStateEntry +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "TpStateEntry") - -instance HsProtobuf.HasDefault TpStateEntry - -instance HsProtobuf.Message TpStateEntry where - encodeMessage :: FieldNumber -> TpStateEntry -> MessageBuilder -encodeMessage _ - TpStateEntry{tpStateEntryAddress :: TpStateEntry -> Text -tpStateEntryAddress = Text -tpStateEntryAddress, - tpStateEntryData :: TpStateEntry -> ByteString -tpStateEntryData = ByteString -tpStateEntryData} - = ([MessageBuilder] -> MessageBuilder +Hs.fromString String +"TpStateEntry") + +instance HsProtobuf.HasDefault TpStateEntry + +instance HsProtobuf.Message TpStateEntry where + encodeMessage :: FieldNumber -> TpStateEntry -> MessageBuilder +encodeMessage FieldNumber +_ + TpStateEntry{tpStateEntryAddress :: TpStateEntry -> Text +tpStateEntryAddress = Text +tpStateEntryAddress, + tpStateEntryData :: TpStateEntry -> ByteString +tpStateEntryData = ByteString +tpStateEntryData} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> Text -> MessageBuilder +Hs.mconcat + [(FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Text -tpStateEntryAddress), - (FieldNumber -> ByteString -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Text +tpStateEntryAddress), + (FieldNumber -> ByteString -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - ByteString -tpStateEntryData)]) - decodeMessage :: FieldNumber -> Parser RawMessage TpStateEntry -decodeMessage _ - = ((Text -> ByteString -> TpStateEntry) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + ByteString +tpStateEntryData)]) + decodeMessage :: FieldNumber -> Parser RawMessage TpStateEntry +decodeMessage FieldNumber +_ + = ((Text -> ByteString -> TpStateEntry) -> Parser RawMessage (Text -> ByteString -> TpStateEntry) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> ByteString -> TpStateEntry +Hs.pure Text -> ByteString -> TpStateEntry TpStateEntry) Parser RawMessage (Text -> ByteString -> TpStateEntry) -> Parser RawMessage Text -> Parser RawMessage (ByteString -> TpStateEntry) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser RawMessage (ByteString -> TpStateEntry) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (ByteString -> TpStateEntry) -> Parser RawMessage ByteString -> Parser RawMessage TpStateEntry forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField ByteString +<*> + (Parser RawField ByteString -> FieldNumber -> Parser RawMessage ByteString forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField ByteString +HsProtobuf.at Parser RawField ByteString forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2)) - dotProto :: Proxy# TpStateEntry -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2)) + dotProto :: Proxy# TpStateEntry -> [DotProtoField] +dotProto Proxy# TpStateEntry +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "address") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"address") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.Bytes) - (String -> DotProtoIdentifier -HsProtobuf.Single "data") - [] - "")] - -instance HsJSONPB.ToJSONPB TpStateEntry where - toJSONPB :: TpStateEntry -> Options -> Value -toJSONPB (TpStateEntry f1 :: Text -f1 f2 :: ByteString -f2) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["address" Text -> Text -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.Bytes) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"data") + [] + String +"")] + +instance HsJSONPB.ToJSONPB TpStateEntry where + toJSONPB :: TpStateEntry -> Options -> Value +toJSONPB (TpStateEntry Text +f1 ByteString +f2) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"address" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1, "data" Text -> ByteString -> Options -> [Pair] +.= Text +f1, Text +"data" Text -> ByteString -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f2]) - toEncodingPB :: TpStateEntry -> Options -> Encoding -toEncodingPB (TpStateEntry f1 :: Text -f1 f2 :: ByteString -f2) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["address" Text -> Text -> Options -> Series +.= ByteString +f2]) + toEncodingPB :: TpStateEntry -> Options -> Encoding +toEncodingPB (TpStateEntry Text +f1 ByteString +f2) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"address" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1, "data" Text -> ByteString -> Options -> Series +.= Text +f1, Text +"data" Text -> ByteString -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f2]) - -instance HsJSONPB.FromJSONPB TpStateEntry where - parseJSONPB :: Value -> Parser TpStateEntry -parseJSONPB - = (String +.= ByteString +f2]) + +instance HsJSONPB.FromJSONPB TpStateEntry where + parseJSONPB :: Value -> Parser TpStateEntry +parseJSONPB + = (String -> (Object -> Parser TpStateEntry) -> Value -> Parser TpStateEntry forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "TpStateEntry" - (\ obj :: Object -obj -> - ((Text -> ByteString -> TpStateEntry) +HsJSONPB.withObject String +"TpStateEntry" + (\ Object +obj -> + ((Text -> ByteString -> TpStateEntry) -> Parser (Text -> ByteString -> TpStateEntry) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> ByteString -> TpStateEntry +Hs.pure Text -> ByteString -> TpStateEntry TpStateEntry) Parser (Text -> ByteString -> TpStateEntry) -> Parser Text -> Parser (ByteString -> TpStateEntry) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Text +<*> Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "address" Parser (ByteString -> TpStateEntry) +.: Text +"address" Parser (ByteString -> TpStateEntry) -> Parser ByteString -> Parser TpStateEntry forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser ByteString +<*> Object +obj Object -> Text -> Parser ByteString forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "data")) - -instance HsJSONPB.ToJSON TpStateEntry where - toJSON :: TpStateEntry -> Value -toJSON = TpStateEntry -> Value +.: Text +"data")) + +instance HsJSONPB.ToJSON TpStateEntry where + toJSON :: TpStateEntry -> Value +toJSON = TpStateEntry -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: TpStateEntry -> Encoding -toEncoding = TpStateEntry -> Encoding +HsJSONPB.toAesonValue + toEncoding :: TpStateEntry -> Encoding +toEncoding = TpStateEntry -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON TpStateEntry where - parseJSON :: Value -> Parser TpStateEntry -parseJSON = Value -> Parser TpStateEntry +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON TpStateEntry where + parseJSON :: Value -> Parser TpStateEntry +parseJSON = Value -> Parser TpStateEntry forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema TpStateEntry where - declareNamedSchema :: Proxy TpStateEntry -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_address :: Proxy (OverrideToSchema Text) +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema TpStateEntry where + declareNamedSchema :: Proxy TpStateEntry -> Declare (Definitions Schema) NamedSchema +declareNamedSchema Proxy TpStateEntry +_ + = do let declare_address :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_address = Proxy (OverrideToSchema Text) +declare_address = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -tpStateEntryAddress <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +tpStateEntryAddress <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_address Proxy (OverrideToSchema Text) +declare_address Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_data :: Proxy (OverrideToSchema ByteString) +Proxy.Proxy + let declare_data :: Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_data = Proxy (OverrideToSchema ByteString) +declare_data = Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -tpStateEntryData <- Proxy (OverrideToSchema ByteString) +HsJSONPB.declareSchemaRef + Referenced Schema +tpStateEntryData <- Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_data Proxy (OverrideToSchema ByteString) +declare_data Proxy (OverrideToSchema ByteString) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy TpStateEntry +Proxy.Proxy + let Proxy TpStateEntry _ = (Text -> ByteString -> TpStateEntry) -> Proxy (Text -> ByteString -> TpStateEntry) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> ByteString -> TpStateEntry +Hs.pure Text -> ByteString -> TpStateEntry TpStateEntry Proxy (Text -> ByteString -> TpStateEntry) -> Proxy Text -> Proxy (ByteString -> TpStateEntry) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema Text) +<*> (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_address - Proxy (ByteString -> TpStateEntry) +declare_address + Proxy (ByteString -> TpStateEntry) -> Proxy ByteString -> Proxy TpStateEntry forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema ByteString) +<*> (Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy ByteString forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) +HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_data - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_data + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "TpStateEntry", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"TpStateEntry", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("address", Referenced Schema -tpStateEntryAddress), - ("data", Referenced Schema -tpStateEntryData)]}}) - -data TpStateGetRequest = TpStateGetRequest{TpStateGetRequest -> Text +HsJSONPB.insOrdFromList + [(Text +"address", Referenced Schema +tpStateEntryAddress), + (Text +"data", Referenced Schema +tpStateEntryData)]}}) + +data TpStateGetRequest = TpStateGetRequest{TpStateGetRequest -> Text tpStateGetRequestContextId - :: Hs.Text, - TpStateGetRequest -> Vector Text -tpStateGetRequestAddresses :: Hs.Vector Hs.Text} - deriving (Int -> TpStateGetRequest -> ShowS + :: Hs.Text, + TpStateGetRequest -> Vector Text +tpStateGetRequestAddresses :: Hs.Vector Hs.Text} + deriving (Int -> TpStateGetRequest -> ShowS [TpStateGetRequest] -> ShowS TpStateGetRequest -> String (Int -> TpStateGetRequest -> ShowS) @@ -405,7 +430,7 @@ show :: TpStateGetRequest -> String $cshow :: TpStateGetRequest -> String showsPrec :: Int -> TpStateGetRequest -> ShowS $cshowsPrec :: Int -> TpStateGetRequest -> ShowS -Hs.Show, TpStateGetRequest -> TpStateGetRequest -> Bool +Hs.Show, TpStateGetRequest -> TpStateGetRequest -> Bool (TpStateGetRequest -> TpStateGetRequest -> Bool) -> (TpStateGetRequest -> TpStateGetRequest -> Bool) -> Eq TpStateGetRequest @@ -414,9 +439,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: TpStateGetRequest -> TpStateGetRequest -> Bool == :: TpStateGetRequest -> TpStateGetRequest -> Bool $c== :: TpStateGetRequest -> TpStateGetRequest -> Bool -Hs.Eq, Eq TpStateGetRequest -Eq TpStateGetRequest => -(TpStateGetRequest -> TpStateGetRequest -> Ordering) +Hs.Eq, Eq TpStateGetRequest +Eq TpStateGetRequest +-> (TpStateGetRequest -> TpStateGetRequest -> Ordering) -> (TpStateGetRequest -> TpStateGetRequest -> Bool) -> (TpStateGetRequest -> TpStateGetRequest -> Bool) -> (TpStateGetRequest -> TpStateGetRequest -> Bool) @@ -428,8 +453,8 @@ TpStateGetRequest -> TpStateGetRequest -> Bool TpStateGetRequest -> TpStateGetRequest -> Ordering TpStateGetRequest -> TpStateGetRequest -> TpStateGetRequest forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -452,7 +477,7 @@ $c< :: TpStateGetRequest -> TpStateGetRequest -> Bool compare :: TpStateGetRequest -> TpStateGetRequest -> Ordering $ccompare :: TpStateGetRequest -> TpStateGetRequest -> Ordering $cp1Ord :: Eq TpStateGetRequest -Hs.Ord, (forall x. TpStateGetRequest -> Rep TpStateGetRequest x) +Hs.Ord, (forall x. TpStateGetRequest -> Rep TpStateGetRequest x) -> (forall x. Rep TpStateGetRequest x -> TpStateGetRequest) -> Generic TpStateGetRequest forall x. Rep TpStateGetRequest x -> TpStateGetRequest @@ -461,303 +486,327 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep TpStateGetRequest x -> TpStateGetRequest $cfrom :: forall x. TpStateGetRequest -> Rep TpStateGetRequest x -Hs.Generic, TpStateGetRequest -> () +Hs.Generic, TpStateGetRequest -> () (TpStateGetRequest -> ()) -> NFData TpStateGetRequest forall a. (a -> ()) -> NFData a rnf :: TpStateGetRequest -> () $crnf :: TpStateGetRequest -> () -Hs.NFData) - -instance HsProtobuf.Named TpStateGetRequest where - nameOf :: Proxy# TpStateGetRequest -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named TpStateGetRequest where + nameOf :: Proxy# TpStateGetRequest -> string +nameOf Proxy# TpStateGetRequest +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "TpStateGetRequest") - -instance HsProtobuf.HasDefault TpStateGetRequest - -instance HsProtobuf.Message TpStateGetRequest where - encodeMessage :: FieldNumber -> TpStateGetRequest -> MessageBuilder -encodeMessage _ - TpStateGetRequest{tpStateGetRequestContextId :: TpStateGetRequest -> Text +Hs.fromString String +"TpStateGetRequest") + +instance HsProtobuf.HasDefault TpStateGetRequest + +instance HsProtobuf.Message TpStateGetRequest where + encodeMessage :: FieldNumber -> TpStateGetRequest -> MessageBuilder +encodeMessage FieldNumber +_ + TpStateGetRequest{tpStateGetRequestContextId :: TpStateGetRequest -> Text tpStateGetRequestContextId = - Text -tpStateGetRequestContextId, - tpStateGetRequestAddresses :: TpStateGetRequest -> Vector Text -tpStateGetRequestAddresses = Vector Text -tpStateGetRequestAddresses} - = ([MessageBuilder] -> MessageBuilder + Text +tpStateGetRequestContextId, + tpStateGetRequestAddresses :: TpStateGetRequest -> Vector Text +tpStateGetRequestAddresses = Vector Text +tpStateGetRequestAddresses} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> Text -> MessageBuilder +Hs.mconcat + [(FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Text -tpStateGetRequestContextId), - (FieldNumber -> UnpackedVec Text -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Text +tpStateGetRequestContextId), + (FieldNumber -> UnpackedVec Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (Vector Text -> UnpackedVec Text -forall a b. Coercible a b => a -> b -Hs.coerce @(Hs.Vector Hs.Text) @(HsProtobuf.UnpackedVec Hs.Text) - Vector Text -tpStateGetRequestAddresses))]) - decodeMessage :: FieldNumber -> Parser RawMessage TpStateGetRequest -decodeMessage _ - = ((Text -> Vector Text -> TpStateGetRequest) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (Vector Text -> UnpackedVec Text +Hs.coerce @(Hs.Vector Hs.Text) @(HsProtobuf.UnpackedVec Hs.Text) + Vector Text +tpStateGetRequestAddresses))]) + decodeMessage :: FieldNumber -> Parser RawMessage TpStateGetRequest +decodeMessage FieldNumber +_ + = ((Text -> Vector Text -> TpStateGetRequest) -> Parser RawMessage (Text -> Vector Text -> TpStateGetRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> Vector Text -> TpStateGetRequest +Hs.pure Text -> Vector Text -> TpStateGetRequest TpStateGetRequest) Parser RawMessage (Text -> Vector Text -> TpStateGetRequest) -> Parser RawMessage Text -> Parser RawMessage (Vector Text -> TpStateGetRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser RawMessage (Vector Text -> TpStateGetRequest) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (Vector Text -> TpStateGetRequest) -> Parser RawMessage (Vector Text) -> Parser RawMessage TpStateGetRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (UnpackedVec Text) +<*> + (Parser RawMessage (UnpackedVec Text) -> Parser RawMessage (Vector Text) -forall a b. Coercible a b => a -> b -Hs.coerce @(_ (HsProtobuf.UnpackedVec Hs.Text)) - @(_ (Hs.Vector Hs.Text)) - (Parser RawField (UnpackedVec Text) +Hs.coerce @(_ (HsProtobuf.UnpackedVec Hs.Text)) + @(_ (Hs.Vector Hs.Text)) + (Parser RawField (UnpackedVec Text) -> FieldNumber -> Parser RawMessage (UnpackedVec Text) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (UnpackedVec Text) +HsProtobuf.at Parser RawField (UnpackedVec Text) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2))) - dotProto :: Proxy# TpStateGetRequest -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2))) + dotProto :: Proxy# TpStateGetRequest -> [DotProtoField] +dotProto Proxy# TpStateGetRequest +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "context_id") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"context_id") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Repeated DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "addresses") - [] - "")] - -instance HsJSONPB.ToJSONPB TpStateGetRequest where - toJSONPB :: TpStateGetRequest -> Options -> Value -toJSONPB (TpStateGetRequest f1 :: Text -f1 f2 :: Vector Text -f2) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["context_id" Text -> Text -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Repeated DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"addresses") + [] + String +"")] + +instance HsJSONPB.ToJSONPB TpStateGetRequest where + toJSONPB :: TpStateGetRequest -> Options -> Value +toJSONPB (TpStateGetRequest Text +f1 Vector Text +f2) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"context_id" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1, "addresses" Text -> Vector Text -> Options -> [Pair] +.= Text +f1, Text +"addresses" Text -> Vector Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Text -f2]) - toEncodingPB :: TpStateGetRequest -> Options -> Encoding -toEncodingPB (TpStateGetRequest f1 :: Text -f1 f2 :: Vector Text -f2) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["context_id" Text -> Text -> Options -> Series +.= Vector Text +f2]) + toEncodingPB :: TpStateGetRequest -> Options -> Encoding +toEncodingPB (TpStateGetRequest Text +f1 Vector Text +f2) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"context_id" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1, "addresses" Text -> Vector Text -> Options -> Series +.= Text +f1, Text +"addresses" Text -> Vector Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Text -f2]) - -instance HsJSONPB.FromJSONPB TpStateGetRequest where - parseJSONPB :: Value -> Parser TpStateGetRequest -parseJSONPB - = (String +.= Vector Text +f2]) + +instance HsJSONPB.FromJSONPB TpStateGetRequest where + parseJSONPB :: Value -> Parser TpStateGetRequest +parseJSONPB + = (String -> (Object -> Parser TpStateGetRequest) -> Value -> Parser TpStateGetRequest forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "TpStateGetRequest" - (\ obj :: Object -obj -> - ((Text -> Vector Text -> TpStateGetRequest) +HsJSONPB.withObject String +"TpStateGetRequest" + (\ Object +obj -> + ((Text -> Vector Text -> TpStateGetRequest) -> Parser (Text -> Vector Text -> TpStateGetRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> Vector Text -> TpStateGetRequest +Hs.pure Text -> Vector Text -> TpStateGetRequest TpStateGetRequest) Parser (Text -> Vector Text -> TpStateGetRequest) -> Parser Text -> Parser (Vector Text -> TpStateGetRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Text +<*> Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "context_id" Parser (Vector Text -> TpStateGetRequest) +.: Text +"context_id" Parser (Vector Text -> TpStateGetRequest) -> Parser (Vector Text) -> Parser TpStateGetRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser (Vector Text) +<*> + Object +obj Object -> Text -> Parser (Vector Text) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "addresses")) - -instance HsJSONPB.ToJSON TpStateGetRequest where - toJSON :: TpStateGetRequest -> Value -toJSON = TpStateGetRequest -> Value +.: Text +"addresses")) + +instance HsJSONPB.ToJSON TpStateGetRequest where + toJSON :: TpStateGetRequest -> Value +toJSON = TpStateGetRequest -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: TpStateGetRequest -> Encoding -toEncoding = TpStateGetRequest -> Encoding +HsJSONPB.toAesonValue + toEncoding :: TpStateGetRequest -> Encoding +toEncoding = TpStateGetRequest -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON TpStateGetRequest where - parseJSON :: Value -> Parser TpStateGetRequest -parseJSON = Value -> Parser TpStateGetRequest +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON TpStateGetRequest where + parseJSON :: Value -> Parser TpStateGetRequest +parseJSON = Value -> Parser TpStateGetRequest forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema TpStateGetRequest where - declareNamedSchema :: Proxy TpStateGetRequest -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_context_id :: Proxy (OverrideToSchema Text) +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema TpStateGetRequest where + declareNamedSchema :: Proxy TpStateGetRequest -> Declare (Definitions Schema) NamedSchema +declareNamedSchema Proxy TpStateGetRequest +_ + = do let declare_context_id :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_context_id = Proxy (OverrideToSchema Text) +declare_context_id = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -tpStateGetRequestContextId <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +tpStateGetRequestContextId <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_context_id Proxy (OverrideToSchema Text) +declare_context_id Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_addresses :: Proxy (OverrideToSchema (Vector Text)) +Proxy.Proxy + let declare_addresses :: Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) -declare_addresses = Proxy (OverrideToSchema (Vector Text)) +declare_addresses = Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -tpStateGetRequestAddresses <- Proxy (OverrideToSchema (Vector Text)) +HsJSONPB.declareSchemaRef + Referenced Schema +tpStateGetRequestAddresses <- Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) -declare_addresses Proxy (OverrideToSchema (Vector Text)) +declare_addresses Proxy (OverrideToSchema (Vector Text)) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy TpStateGetRequest +Proxy.Proxy + let Proxy TpStateGetRequest _ = (Text -> Vector Text -> TpStateGetRequest) -> Proxy (Text -> Vector Text -> TpStateGetRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> Vector Text -> TpStateGetRequest +Hs.pure Text -> Vector Text -> TpStateGetRequest TpStateGetRequest Proxy (Text -> Vector Text -> TpStateGetRequest) -> Proxy Text -> Proxy (Vector Text -> TpStateGetRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema Text) +<*> + (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_context_id - Proxy (Vector Text -> TpStateGetRequest) +declare_context_id + Proxy (Vector Text -> TpStateGetRequest) -> Proxy (Vector Text) -> Proxy TpStateGetRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema (Vector Text)) +<*> (Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Vector Text) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Text)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) -declare_addresses - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_addresses + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "TpStateGetRequest", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"TpStateGetRequest", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("context_id", Referenced Schema -tpStateGetRequestContextId), - ("addresses", - Referenced Schema -tpStateGetRequestAddresses)]}}) - -data TpStateGetResponse = TpStateGetResponse{TpStateGetResponse -> Vector TpStateEntry +HsJSONPB.insOrdFromList + [(Text +"context_id", Referenced Schema +tpStateGetRequestContextId), + (Text +"addresses", + Referenced Schema +tpStateGetRequestAddresses)]}}) + +data TpStateGetResponse = TpStateGetResponse{TpStateGetResponse -> Vector TpStateEntry tpStateGetResponseEntries - :: Hs.Vector Data.Sawtooth.StateContext.TpStateEntry, - TpStateGetResponse -> Enumerated TpStateGetResponse_Status + :: Hs.Vector Data.Sawtooth.StateContext.TpStateEntry, + TpStateGetResponse -> Enumerated TpStateGetResponse_Status tpStateGetResponseStatus :: - HsProtobuf.Enumerated - Data.Sawtooth.StateContext.TpStateGetResponse_Status} - deriving (Int -> TpStateGetResponse -> ShowS + HsProtobuf.Enumerated + Data.Sawtooth.StateContext.TpStateGetResponse_Status} + deriving (Int -> TpStateGetResponse -> ShowS [TpStateGetResponse] -> ShowS TpStateGetResponse -> String (Int -> TpStateGetResponse -> ShowS) @@ -772,7 +821,7 @@ show :: TpStateGetResponse -> String $cshow :: TpStateGetResponse -> String showsPrec :: Int -> TpStateGetResponse -> ShowS $cshowsPrec :: Int -> TpStateGetResponse -> ShowS -Hs.Show, TpStateGetResponse -> TpStateGetResponse -> Bool +Hs.Show, TpStateGetResponse -> TpStateGetResponse -> Bool (TpStateGetResponse -> TpStateGetResponse -> Bool) -> (TpStateGetResponse -> TpStateGetResponse -> Bool) -> Eq TpStateGetResponse @@ -781,9 +830,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: TpStateGetResponse -> TpStateGetResponse -> Bool == :: TpStateGetResponse -> TpStateGetResponse -> Bool $c== :: TpStateGetResponse -> TpStateGetResponse -> Bool -Hs.Eq, Eq TpStateGetResponse -Eq TpStateGetResponse => -(TpStateGetResponse -> TpStateGetResponse -> Ordering) +Hs.Eq, Eq TpStateGetResponse +Eq TpStateGetResponse +-> (TpStateGetResponse -> TpStateGetResponse -> Ordering) -> (TpStateGetResponse -> TpStateGetResponse -> Bool) -> (TpStateGetResponse -> TpStateGetResponse -> Bool) -> (TpStateGetResponse -> TpStateGetResponse -> Bool) @@ -795,8 +844,8 @@ TpStateGetResponse -> TpStateGetResponse -> Bool TpStateGetResponse -> TpStateGetResponse -> Ordering TpStateGetResponse -> TpStateGetResponse -> TpStateGetResponse forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -819,7 +868,7 @@ $c< :: TpStateGetResponse -> TpStateGetResponse -> Bool compare :: TpStateGetResponse -> TpStateGetResponse -> Ordering $ccompare :: TpStateGetResponse -> TpStateGetResponse -> Ordering $cp1Ord :: Eq TpStateGetResponse -Hs.Ord, (forall x. TpStateGetResponse -> Rep TpStateGetResponse x) +Hs.Ord, (forall x. TpStateGetResponse -> Rep TpStateGetResponse x) -> (forall x. Rep TpStateGetResponse x -> TpStateGetResponse) -> Generic TpStateGetResponse forall x. Rep TpStateGetResponse x -> TpStateGetResponse @@ -828,61 +877,66 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep TpStateGetResponse x -> TpStateGetResponse $cfrom :: forall x. TpStateGetResponse -> Rep TpStateGetResponse x -Hs.Generic, TpStateGetResponse -> () +Hs.Generic, TpStateGetResponse -> () (TpStateGetResponse -> ()) -> NFData TpStateGetResponse forall a. (a -> ()) -> NFData a rnf :: TpStateGetResponse -> () $crnf :: TpStateGetResponse -> () -Hs.NFData) - -instance HsProtobuf.Named TpStateGetResponse where - nameOf :: Proxy# TpStateGetResponse -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named TpStateGetResponse where + nameOf :: Proxy# TpStateGetResponse -> string +nameOf Proxy# TpStateGetResponse +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "TpStateGetResponse") - -instance HsProtobuf.HasDefault TpStateGetResponse - -instance HsProtobuf.Message TpStateGetResponse where - encodeMessage :: FieldNumber -> TpStateGetResponse -> MessageBuilder -encodeMessage _ - TpStateGetResponse{tpStateGetResponseEntries :: TpStateGetResponse -> Vector TpStateEntry +Hs.fromString String +"TpStateGetResponse") + +instance HsProtobuf.HasDefault TpStateGetResponse + +instance HsProtobuf.Message TpStateGetResponse where + encodeMessage :: FieldNumber -> TpStateGetResponse -> MessageBuilder +encodeMessage FieldNumber +_ + TpStateGetResponse{tpStateGetResponseEntries :: TpStateGetResponse -> Vector TpStateEntry tpStateGetResponseEntries = - Vector TpStateEntry -tpStateGetResponseEntries, - tpStateGetResponseStatus :: TpStateGetResponse -> Enumerated TpStateGetResponse_Status -tpStateGetResponseStatus = Enumerated TpStateGetResponse_Status -tpStateGetResponseStatus} - = ([MessageBuilder] -> MessageBuilder + Vector TpStateEntry +tpStateGetResponseEntries, + tpStateGetResponseStatus :: TpStateGetResponse -> Enumerated TpStateGetResponse_Status +tpStateGetResponseStatus = Enumerated TpStateGetResponse_Status +tpStateGetResponseStatus} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> NestedVec TpStateEntry -> MessageBuilder +Hs.mconcat + [(FieldNumber -> NestedVec TpStateEntry -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (Vector TpStateEntry -> NestedVec TpStateEntry -forall a b. Coercible a b => a -> b -Hs.coerce @(Hs.Vector Data.Sawtooth.StateContext.TpStateEntry) - @(HsProtobuf.NestedVec Data.Sawtooth.StateContext.TpStateEntry) - Vector TpStateEntry -tpStateGetResponseEntries)), - (FieldNumber +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (Vector TpStateEntry -> NestedVec TpStateEntry +Hs.coerce @(Hs.Vector Data.Sawtooth.StateContext.TpStateEntry) + @(HsProtobuf.NestedVec Data.Sawtooth.StateContext.TpStateEntry) + Vector TpStateEntry +tpStateGetResponseEntries)), + (FieldNumber -> Enumerated TpStateGetResponse_Status -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - Enumerated TpStateGetResponse_Status -tpStateGetResponseStatus)]) - decodeMessage :: FieldNumber -> Parser RawMessage TpStateGetResponse -decodeMessage _ - = ((Vector TpStateEntry +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + Enumerated TpStateGetResponse_Status +tpStateGetResponseStatus)]) + decodeMessage :: FieldNumber -> Parser RawMessage TpStateGetResponse +decodeMessage FieldNumber +_ + = ((Vector TpStateEntry -> Enumerated TpStateGetResponse_Status -> TpStateGetResponse) -> Parser RawMessage (Vector TpStateEntry -> Enumerated TpStateGetResponse_Status -> TpStateGetResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector TpStateEntry +Hs.pure Vector TpStateEntry -> Enumerated TpStateGetResponse_Status -> TpStateGetResponse TpStateGetResponse) Parser RawMessage @@ -893,125 +947,140 @@ forall (f :: * -> *) a. Applicative f => a -> f a RawMessage (Enumerated TpStateGetResponse_Status -> TpStateGetResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (NestedVec TpStateEntry) +<*> + (Parser RawMessage (NestedVec TpStateEntry) -> Parser RawMessage (Vector TpStateEntry) -forall a b. Coercible a b => a -> b -Hs.coerce - @(_ (HsProtobuf.NestedVec Data.Sawtooth.StateContext.TpStateEntry)) - @(_ (Hs.Vector Data.Sawtooth.StateContext.TpStateEntry)) - (Parser RawField (NestedVec TpStateEntry) +Hs.coerce + @(_ (HsProtobuf.NestedVec Data.Sawtooth.StateContext.TpStateEntry)) + @(_ (Hs.Vector Data.Sawtooth.StateContext.TpStateEntry)) + (Parser RawField (NestedVec TpStateEntry) -> FieldNumber -> Parser RawMessage (NestedVec TpStateEntry) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (NestedVec TpStateEntry) +HsProtobuf.at Parser RawField (NestedVec TpStateEntry) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1))) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1))) + Parser RawMessage (Enumerated TpStateGetResponse_Status -> TpStateGetResponse) -> Parser RawMessage (Enumerated TpStateGetResponse_Status) -> Parser RawMessage TpStateGetResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField (Enumerated TpStateGetResponse_Status) +<*> + (Parser RawField (Enumerated TpStateGetResponse_Status) -> FieldNumber -> Parser RawMessage (Enumerated TpStateGetResponse_Status) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (Enumerated TpStateGetResponse_Status) +HsProtobuf.at Parser RawField (Enumerated TpStateGetResponse_Status) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2)) - dotProto :: Proxy# TpStateGetResponse -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2)) + dotProto :: Proxy# TpStateGetResponse -> [DotProtoField] +dotProto Proxy# TpStateGetResponse +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Repeated - (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "TpStateEntry"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "entries") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Repeated + (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"TpStateEntry"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"entries") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "Status"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "status") - [] - "")] - -instance HsJSONPB.ToJSONPB TpStateGetResponse where - toJSONPB :: TpStateGetResponse -> Options -> Value -toJSONPB (TpStateGetResponse f1 :: Vector TpStateEntry -f1 f2 :: Enumerated TpStateGetResponse_Status -f2) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["entries" Text -> Vector TpStateEntry -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"Status"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"status") + [] + String +"")] + +instance HsJSONPB.ToJSONPB TpStateGetResponse where + toJSONPB :: TpStateGetResponse -> Options -> Value +toJSONPB (TpStateGetResponse Vector TpStateEntry +f1 Enumerated TpStateGetResponse_Status +f2) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"entries" Text -> Vector TpStateEntry -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector TpStateEntry -f1, "status" Text -> Enumerated TpStateGetResponse_Status -> Options -> [Pair] +.= Vector TpStateEntry +f1, Text +"status" Text -> Enumerated TpStateGetResponse_Status -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated TpStateGetResponse_Status -f2]) - toEncodingPB :: TpStateGetResponse -> Options -> Encoding -toEncodingPB (TpStateGetResponse f1 :: Vector TpStateEntry -f1 f2 :: Enumerated TpStateGetResponse_Status -f2) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["entries" Text -> Vector TpStateEntry -> Options -> Series +.= Enumerated TpStateGetResponse_Status +f2]) + toEncodingPB :: TpStateGetResponse -> Options -> Encoding +toEncodingPB (TpStateGetResponse Vector TpStateEntry +f1 Enumerated TpStateGetResponse_Status +f2) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"entries" Text -> Vector TpStateEntry -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector TpStateEntry -f1, "status" Text -> Enumerated TpStateGetResponse_Status -> Options -> Series +.= Vector TpStateEntry +f1, Text +"status" Text -> Enumerated TpStateGetResponse_Status -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated TpStateGetResponse_Status -f2]) - -instance HsJSONPB.FromJSONPB TpStateGetResponse where - parseJSONPB :: Value -> Parser TpStateGetResponse -parseJSONPB - = (String +.= Enumerated TpStateGetResponse_Status +f2]) + +instance HsJSONPB.FromJSONPB TpStateGetResponse where + parseJSONPB :: Value -> Parser TpStateGetResponse +parseJSONPB + = (String -> (Object -> Parser TpStateGetResponse) -> Value -> Parser TpStateGetResponse forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "TpStateGetResponse" - (\ obj :: Object -obj -> - ((Vector TpStateEntry +HsJSONPB.withObject String +"TpStateGetResponse" + (\ Object +obj -> + ((Vector TpStateEntry -> Enumerated TpStateGetResponse_Status -> TpStateGetResponse) -> Parser (Vector TpStateEntry -> Enumerated TpStateGetResponse_Status -> TpStateGetResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector TpStateEntry +Hs.pure Vector TpStateEntry -> Enumerated TpStateGetResponse_Status -> TpStateGetResponse TpStateGetResponse) Parser (Vector TpStateEntry @@ -1020,79 +1089,82 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Parser (Enumerated TpStateGetResponse_Status -> TpStateGetResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser (Vector TpStateEntry) +<*> Object +obj Object -> Text -> Parser (Vector TpStateEntry) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "entries" Parser (Enumerated TpStateGetResponse_Status -> TpStateGetResponse) +.: Text +"entries" Parser (Enumerated TpStateGetResponse_Status -> TpStateGetResponse) -> Parser (Enumerated TpStateGetResponse_Status) -> Parser TpStateGetResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser (Enumerated TpStateGetResponse_Status) +<*> + Object +obj Object -> Text -> Parser (Enumerated TpStateGetResponse_Status) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "status")) - -instance HsJSONPB.ToJSON TpStateGetResponse where - toJSON :: TpStateGetResponse -> Value -toJSON = TpStateGetResponse -> Value +.: Text +"status")) + +instance HsJSONPB.ToJSON TpStateGetResponse where + toJSON :: TpStateGetResponse -> Value +toJSON = TpStateGetResponse -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: TpStateGetResponse -> Encoding -toEncoding = TpStateGetResponse -> Encoding +HsJSONPB.toAesonValue + toEncoding :: TpStateGetResponse -> Encoding +toEncoding = TpStateGetResponse -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON TpStateGetResponse where - parseJSON :: Value -> Parser TpStateGetResponse -parseJSON = Value -> Parser TpStateGetResponse +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON TpStateGetResponse where + parseJSON :: Value -> Parser TpStateGetResponse +parseJSON = Value -> Parser TpStateGetResponse forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema TpStateGetResponse where - declareNamedSchema :: Proxy TpStateGetResponse +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema TpStateGetResponse where + declareNamedSchema :: Proxy TpStateGetResponse -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_entries :: Proxy (OverrideToSchema (Vector TpStateEntry)) +declareNamedSchema Proxy TpStateGetResponse +_ + = do let declare_entries :: Proxy (OverrideToSchema (Vector TpStateEntry)) -> Declare (Definitions Schema) (Referenced Schema) -declare_entries = Proxy (OverrideToSchema (Vector TpStateEntry)) +declare_entries = Proxy (OverrideToSchema (Vector TpStateEntry)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -tpStateGetResponseEntries <- Proxy (OverrideToSchema (Vector TpStateEntry)) +HsJSONPB.declareSchemaRef + Referenced Schema +tpStateGetResponseEntries <- Proxy (OverrideToSchema (Vector TpStateEntry)) -> Declare (Definitions Schema) (Referenced Schema) -declare_entries Proxy (OverrideToSchema (Vector TpStateEntry)) +declare_entries Proxy (OverrideToSchema (Vector TpStateEntry)) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_status :: Proxy (OverrideToSchema (Enumerated TpStateGetResponse_Status)) +Proxy.Proxy + let declare_status :: Proxy (OverrideToSchema (Enumerated TpStateGetResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status = Proxy (OverrideToSchema (Enumerated TpStateGetResponse_Status)) +declare_status = Proxy (OverrideToSchema (Enumerated TpStateGetResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -tpStateGetResponseStatus <- Proxy (OverrideToSchema (Enumerated TpStateGetResponse_Status)) +HsJSONPB.declareSchemaRef + Referenced Schema +tpStateGetResponseStatus <- Proxy (OverrideToSchema (Enumerated TpStateGetResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status Proxy (OverrideToSchema (Enumerated TpStateGetResponse_Status)) +declare_status Proxy (OverrideToSchema (Enumerated TpStateGetResponse_Status)) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy TpStateGetResponse +Proxy.Proxy + let Proxy TpStateGetResponse _ = (Vector TpStateEntry -> Enumerated TpStateGetResponse_Status -> TpStateGetResponse) -> Proxy (Vector TpStateEntry -> Enumerated TpStateGetResponse_Status -> TpStateGetResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector TpStateEntry +Hs.pure Vector TpStateEntry -> Enumerated TpStateGetResponse_Status -> TpStateGetResponse TpStateGetResponse Proxy (Vector TpStateEntry @@ -1101,64 +1173,67 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Proxy (Enumerated TpStateGetResponse_Status -> TpStateGetResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema (Vector TpStateEntry)) +<*> + (Proxy (OverrideToSchema (Vector TpStateEntry)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Vector TpStateEntry) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Vector TpStateEntry)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Vector TpStateEntry)) -> Declare (Definitions Schema) (Referenced Schema) -declare_entries - Proxy (Enumerated TpStateGetResponse_Status -> TpStateGetResponse) +declare_entries + Proxy (Enumerated TpStateGetResponse_Status -> TpStateGetResponse) -> Proxy (Enumerated TpStateGetResponse_Status) -> Proxy TpStateGetResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema (Enumerated TpStateGetResponse_Status)) +<*> (Proxy (OverrideToSchema (Enumerated TpStateGetResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Enumerated TpStateGetResponse_Status) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Enumerated TpStateGetResponse_Status)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Enumerated TpStateGetResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_status + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "TpStateGetResponse", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"TpStateGetResponse", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("entries", Referenced Schema -tpStateGetResponseEntries), - ("status", Referenced Schema -tpStateGetResponseStatus)]}}) - -data TpStateGetResponse_Status = TpStateGetResponse_StatusSTATUS_UNSET - | TpStateGetResponse_StatusOK - | TpStateGetResponse_StatusAUTHORIZATION_ERROR - deriving (Int -> TpStateGetResponse_Status -> ShowS +HsJSONPB.insOrdFromList + [(Text +"entries", Referenced Schema +tpStateGetResponseEntries), + (Text +"status", Referenced Schema +tpStateGetResponseStatus)]}}) + +data TpStateGetResponse_Status = TpStateGetResponse_StatusSTATUS_UNSET + | TpStateGetResponse_StatusOK + | TpStateGetResponse_StatusAUTHORIZATION_ERROR + deriving (Int -> TpStateGetResponse_Status -> ShowS [TpStateGetResponse_Status] -> ShowS TpStateGetResponse_Status -> String (Int -> TpStateGetResponse_Status -> ShowS) @@ -1173,7 +1248,7 @@ show :: TpStateGetResponse_Status -> String $cshow :: TpStateGetResponse_Status -> String showsPrec :: Int -> TpStateGetResponse_Status -> ShowS $cshowsPrec :: Int -> TpStateGetResponse_Status -> ShowS -Hs.Show, TpStateGetResponse_Status -> TpStateGetResponse_Status -> Bool +Hs.Show, TpStateGetResponse_Status -> TpStateGetResponse_Status -> Bool (TpStateGetResponse_Status -> TpStateGetResponse_Status -> Bool) -> (TpStateGetResponse_Status -> TpStateGetResponse_Status -> Bool) -> Eq TpStateGetResponse_Status @@ -1182,7 +1257,7 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: TpStateGetResponse_Status -> TpStateGetResponse_Status -> Bool == :: TpStateGetResponse_Status -> TpStateGetResponse_Status -> Bool $c== :: TpStateGetResponse_Status -> TpStateGetResponse_Status -> Bool -Hs.Eq, (forall x. +Hs.Eq, (forall x. TpStateGetResponse_Status -> Rep TpStateGetResponse_Status x) -> (forall x. Rep TpStateGetResponse_Status x -> TpStateGetResponse_Status) @@ -1197,135 +1272,150 @@ $cto :: forall x. Rep TpStateGetResponse_Status x -> TpStateGetResponse_Status $cfrom :: forall x. TpStateGetResponse_Status -> Rep TpStateGetResponse_Status x -Hs.Generic, TpStateGetResponse_Status -> () +Hs.Generic, TpStateGetResponse_Status -> () (TpStateGetResponse_Status -> ()) -> NFData TpStateGetResponse_Status forall a. (a -> ()) -> NFData a rnf :: TpStateGetResponse_Status -> () $crnf :: TpStateGetResponse_Status -> () -Hs.NFData) - -instance HsProtobuf.Named TpStateGetResponse_Status where - nameOf :: Proxy# TpStateGetResponse_Status -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named TpStateGetResponse_Status where + nameOf :: Proxy# TpStateGetResponse_Status -> string +nameOf Proxy# TpStateGetResponse_Status +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "TpStateGetResponse_Status") - -instance HsProtobuf.HasDefault TpStateGetResponse_Status - -instance Hs.Bounded TpStateGetResponse_Status where - minBound :: TpStateGetResponse_Status -minBound = TpStateGetResponse_Status +Hs.fromString String +"TpStateGetResponse_Status") + +instance HsProtobuf.HasDefault TpStateGetResponse_Status + +instance Hs.Bounded TpStateGetResponse_Status where + minBound :: TpStateGetResponse_Status +minBound = TpStateGetResponse_Status TpStateGetResponse_StatusSTATUS_UNSET - maxBound :: TpStateGetResponse_Status -maxBound = TpStateGetResponse_Status + maxBound :: TpStateGetResponse_Status +maxBound = TpStateGetResponse_Status TpStateGetResponse_StatusAUTHORIZATION_ERROR - -instance Hs.Ord TpStateGetResponse_Status where - compare :: TpStateGetResponse_Status -> TpStateGetResponse_Status -> Ordering -compare x :: TpStateGetResponse_Status -x y :: TpStateGetResponse_Status -y - = Int32 -> Int32 -> Ordering + +instance Hs.Ord TpStateGetResponse_Status where + compare :: TpStateGetResponse_Status -> TpStateGetResponse_Status -> Ordering +compare TpStateGetResponse_Status +x TpStateGetResponse_Status +y + = Int32 -> Int32 -> Ordering forall a. Ord a => a -> a -> Ordering -Hs.compare (TpStateGetResponse_Status -> Int32 +Hs.compare (TpStateGetResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum TpStateGetResponse_Status -x) - (TpStateGetResponse_Status -> Int32 +HsProtobuf.fromProtoEnum TpStateGetResponse_Status +x) + (TpStateGetResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum TpStateGetResponse_Status -y) - -instance HsProtobuf.ProtoEnum TpStateGetResponse_Status where - toProtoEnumMay :: Int32 -> Maybe TpStateGetResponse_Status -toProtoEnumMay 0 = TpStateGetResponse_Status -> Maybe TpStateGetResponse_Status +HsProtobuf.fromProtoEnum TpStateGetResponse_Status +y) + +instance HsProtobuf.ProtoEnum TpStateGetResponse_Status where + toProtoEnumMay :: Int32 -> Maybe TpStateGetResponse_Status +toProtoEnumMay Int32 +0 = TpStateGetResponse_Status -> Maybe TpStateGetResponse_Status forall a. a -> Maybe a -Hs.Just TpStateGetResponse_Status +Hs.Just TpStateGetResponse_Status TpStateGetResponse_StatusSTATUS_UNSET - toProtoEnumMay 1 = TpStateGetResponse_Status -> Maybe TpStateGetResponse_Status + toProtoEnumMay Int32 +1 = TpStateGetResponse_Status -> Maybe TpStateGetResponse_Status forall a. a -> Maybe a -Hs.Just TpStateGetResponse_Status +Hs.Just TpStateGetResponse_Status TpStateGetResponse_StatusOK - toProtoEnumMay 2 - = TpStateGetResponse_Status -> Maybe TpStateGetResponse_Status + toProtoEnumMay Int32 +2 + = TpStateGetResponse_Status -> Maybe TpStateGetResponse_Status forall a. a -> Maybe a -Hs.Just TpStateGetResponse_Status +Hs.Just TpStateGetResponse_Status TpStateGetResponse_StatusAUTHORIZATION_ERROR - toProtoEnumMay _ = Maybe TpStateGetResponse_Status + toProtoEnumMay Int32 +_ = Maybe TpStateGetResponse_Status forall a. Maybe a -Hs.Nothing - fromProtoEnum :: TpStateGetResponse_Status -> Int32 -fromProtoEnum (TpStateGetResponse_Status -TpStateGetResponse_StatusSTATUS_UNSET) = 0 - fromProtoEnum (TpStateGetResponse_Status -TpStateGetResponse_StatusOK) = 1 - fromProtoEnum (TpStateGetResponse_Status -TpStateGetResponse_StatusAUTHORIZATION_ERROR) = 2 - -instance HsJSONPB.ToJSONPB TpStateGetResponse_Status where - toJSONPB :: TpStateGetResponse_Status -> Options -> Value -toJSONPB x :: TpStateGetResponse_Status -x _ = TpStateGetResponse_Status -> Value +Hs.Nothing + fromProtoEnum :: TpStateGetResponse_Status -> Int32 +fromProtoEnum (TpStateGetResponse_Status +TpStateGetResponse_StatusSTATUS_UNSET) = Int32 +0 + fromProtoEnum (TpStateGetResponse_Status +TpStateGetResponse_StatusOK) = Int32 +1 + fromProtoEnum (TpStateGetResponse_Status +TpStateGetResponse_StatusAUTHORIZATION_ERROR) = Int32 +2 + +instance HsJSONPB.ToJSONPB TpStateGetResponse_Status where + toJSONPB :: TpStateGetResponse_Status -> Options -> Value +toJSONPB TpStateGetResponse_Status +x Options +_ = TpStateGetResponse_Status -> Value forall a. (Named a, Show a) => a -> Value -HsJSONPB.enumFieldString TpStateGetResponse_Status -x - toEncodingPB :: TpStateGetResponse_Status -> Options -> Encoding -toEncodingPB x :: TpStateGetResponse_Status -x _ = TpStateGetResponse_Status -> Encoding +HsJSONPB.enumFieldString TpStateGetResponse_Status +x + toEncodingPB :: TpStateGetResponse_Status -> Options -> Encoding +toEncodingPB TpStateGetResponse_Status +x Options +_ = TpStateGetResponse_Status -> Encoding forall a. (Named a, Show a) => a -> Encoding -HsJSONPB.enumFieldEncoding TpStateGetResponse_Status -x - -instance HsJSONPB.FromJSONPB TpStateGetResponse_Status where - parseJSONPB :: Value -> Parser TpStateGetResponse_Status -parseJSONPB (HsJSONPB.String "STATUS_UNSET") - = TpStateGetResponse_Status -> Parser TpStateGetResponse_Status +HsJSONPB.enumFieldEncoding TpStateGetResponse_Status +x + +instance HsJSONPB.FromJSONPB TpStateGetResponse_Status where + parseJSONPB :: Value -> Parser TpStateGetResponse_Status +parseJSONPB (HsJSONPB.String Text +"STATUS_UNSET") + = TpStateGetResponse_Status -> Parser TpStateGetResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure TpStateGetResponse_Status +Hs.pure TpStateGetResponse_Status TpStateGetResponse_StatusSTATUS_UNSET - parseJSONPB (HsJSONPB.String "OK") - = TpStateGetResponse_Status -> Parser TpStateGetResponse_Status + parseJSONPB (HsJSONPB.String Text +"OK") + = TpStateGetResponse_Status -> Parser TpStateGetResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure TpStateGetResponse_Status +Hs.pure TpStateGetResponse_Status TpStateGetResponse_StatusOK - parseJSONPB (HsJSONPB.String "AUTHORIZATION_ERROR") - = TpStateGetResponse_Status -> Parser TpStateGetResponse_Status + parseJSONPB (HsJSONPB.String Text +"AUTHORIZATION_ERROR") + = TpStateGetResponse_Status -> Parser TpStateGetResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure TpStateGetResponse_Status +Hs.pure TpStateGetResponse_Status TpStateGetResponse_StatusAUTHORIZATION_ERROR - parseJSONPB v :: Value -v - = (String -> Value -> Parser TpStateGetResponse_Status + parseJSONPB Value +v + = (String -> Value -> Parser TpStateGetResponse_Status forall a. String -> Value -> Parser a -HsJSONPB.typeMismatch "TpStateGetResponse_Status" Value -v) - -instance HsJSONPB.ToJSON TpStateGetResponse_Status where - toJSON :: TpStateGetResponse_Status -> Value -toJSON = TpStateGetResponse_Status -> Value +HsJSONPB.typeMismatch String +"TpStateGetResponse_Status" Value +v) + +instance HsJSONPB.ToJSON TpStateGetResponse_Status where + toJSON :: TpStateGetResponse_Status -> Value +toJSON = TpStateGetResponse_Status -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: TpStateGetResponse_Status -> Encoding -toEncoding = TpStateGetResponse_Status -> Encoding +HsJSONPB.toAesonValue + toEncoding :: TpStateGetResponse_Status -> Encoding +toEncoding = TpStateGetResponse_Status -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON TpStateGetResponse_Status where - parseJSON :: Value -> Parser TpStateGetResponse_Status -parseJSON = Value -> Parser TpStateGetResponse_Status +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON TpStateGetResponse_Status where + parseJSON :: Value -> Parser TpStateGetResponse_Status +parseJSON = Value -> Parser TpStateGetResponse_Status forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsProtobuf.Finite TpStateGetResponse_Status - -data TpStateSetRequest = TpStateSetRequest{TpStateSetRequest -> Text +HsJSONPB.parseJSONPB + +instance HsProtobuf.Finite TpStateGetResponse_Status + +data TpStateSetRequest = TpStateSetRequest{TpStateSetRequest -> Text tpStateSetRequestContextId - :: Hs.Text, - TpStateSetRequest -> Vector TpStateEntry + :: Hs.Text, + TpStateSetRequest -> Vector TpStateEntry tpStateSetRequestEntries :: - Hs.Vector Data.Sawtooth.StateContext.TpStateEntry} - deriving (Int -> TpStateSetRequest -> ShowS + Hs.Vector Data.Sawtooth.StateContext.TpStateEntry} + deriving (Int -> TpStateSetRequest -> ShowS [TpStateSetRequest] -> ShowS TpStateSetRequest -> String (Int -> TpStateSetRequest -> ShowS) @@ -1340,7 +1430,7 @@ show :: TpStateSetRequest -> String $cshow :: TpStateSetRequest -> String showsPrec :: Int -> TpStateSetRequest -> ShowS $cshowsPrec :: Int -> TpStateSetRequest -> ShowS -Hs.Show, TpStateSetRequest -> TpStateSetRequest -> Bool +Hs.Show, TpStateSetRequest -> TpStateSetRequest -> Bool (TpStateSetRequest -> TpStateSetRequest -> Bool) -> (TpStateSetRequest -> TpStateSetRequest -> Bool) -> Eq TpStateSetRequest @@ -1349,9 +1439,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: TpStateSetRequest -> TpStateSetRequest -> Bool == :: TpStateSetRequest -> TpStateSetRequest -> Bool $c== :: TpStateSetRequest -> TpStateSetRequest -> Bool -Hs.Eq, Eq TpStateSetRequest -Eq TpStateSetRequest => -(TpStateSetRequest -> TpStateSetRequest -> Ordering) +Hs.Eq, Eq TpStateSetRequest +Eq TpStateSetRequest +-> (TpStateSetRequest -> TpStateSetRequest -> Ordering) -> (TpStateSetRequest -> TpStateSetRequest -> Bool) -> (TpStateSetRequest -> TpStateSetRequest -> Bool) -> (TpStateSetRequest -> TpStateSetRequest -> Bool) @@ -1363,8 +1453,8 @@ TpStateSetRequest -> TpStateSetRequest -> Bool TpStateSetRequest -> TpStateSetRequest -> Ordering TpStateSetRequest -> TpStateSetRequest -> TpStateSetRequest forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -1387,7 +1477,7 @@ $c< :: TpStateSetRequest -> TpStateSetRequest -> Bool compare :: TpStateSetRequest -> TpStateSetRequest -> Ordering $ccompare :: TpStateSetRequest -> TpStateSetRequest -> Ordering $cp1Ord :: Eq TpStateSetRequest -Hs.Ord, (forall x. TpStateSetRequest -> Rep TpStateSetRequest x) +Hs.Ord, (forall x. TpStateSetRequest -> Rep TpStateSetRequest x) -> (forall x. Rep TpStateSetRequest x -> TpStateSetRequest) -> Generic TpStateSetRequest forall x. Rep TpStateSetRequest x -> TpStateSetRequest @@ -1396,308 +1486,333 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep TpStateSetRequest x -> TpStateSetRequest $cfrom :: forall x. TpStateSetRequest -> Rep TpStateSetRequest x -Hs.Generic, TpStateSetRequest -> () +Hs.Generic, TpStateSetRequest -> () (TpStateSetRequest -> ()) -> NFData TpStateSetRequest forall a. (a -> ()) -> NFData a rnf :: TpStateSetRequest -> () $crnf :: TpStateSetRequest -> () -Hs.NFData) - -instance HsProtobuf.Named TpStateSetRequest where - nameOf :: Proxy# TpStateSetRequest -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named TpStateSetRequest where + nameOf :: Proxy# TpStateSetRequest -> string +nameOf Proxy# TpStateSetRequest +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "TpStateSetRequest") - -instance HsProtobuf.HasDefault TpStateSetRequest - -instance HsProtobuf.Message TpStateSetRequest where - encodeMessage :: FieldNumber -> TpStateSetRequest -> MessageBuilder -encodeMessage _ - TpStateSetRequest{tpStateSetRequestContextId :: TpStateSetRequest -> Text +Hs.fromString String +"TpStateSetRequest") + +instance HsProtobuf.HasDefault TpStateSetRequest + +instance HsProtobuf.Message TpStateSetRequest where + encodeMessage :: FieldNumber -> TpStateSetRequest -> MessageBuilder +encodeMessage FieldNumber +_ + TpStateSetRequest{tpStateSetRequestContextId :: TpStateSetRequest -> Text tpStateSetRequestContextId = - Text -tpStateSetRequestContextId, - tpStateSetRequestEntries :: TpStateSetRequest -> Vector TpStateEntry -tpStateSetRequestEntries = Vector TpStateEntry -tpStateSetRequestEntries} - = ([MessageBuilder] -> MessageBuilder + Text +tpStateSetRequestContextId, + tpStateSetRequestEntries :: TpStateSetRequest -> Vector TpStateEntry +tpStateSetRequestEntries = Vector TpStateEntry +tpStateSetRequestEntries} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> Text -> MessageBuilder +Hs.mconcat + [(FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Text -tpStateSetRequestContextId), - (FieldNumber -> NestedVec TpStateEntry -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Text +tpStateSetRequestContextId), + (FieldNumber -> NestedVec TpStateEntry -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (Vector TpStateEntry -> NestedVec TpStateEntry -forall a b. Coercible a b => a -> b -Hs.coerce @(Hs.Vector Data.Sawtooth.StateContext.TpStateEntry) - @(HsProtobuf.NestedVec Data.Sawtooth.StateContext.TpStateEntry) - Vector TpStateEntry -tpStateSetRequestEntries))]) - decodeMessage :: FieldNumber -> Parser RawMessage TpStateSetRequest -decodeMessage _ - = ((Text -> Vector TpStateEntry -> TpStateSetRequest) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (Vector TpStateEntry -> NestedVec TpStateEntry +Hs.coerce @(Hs.Vector Data.Sawtooth.StateContext.TpStateEntry) + @(HsProtobuf.NestedVec Data.Sawtooth.StateContext.TpStateEntry) + Vector TpStateEntry +tpStateSetRequestEntries))]) + decodeMessage :: FieldNumber -> Parser RawMessage TpStateSetRequest +decodeMessage FieldNumber +_ + = ((Text -> Vector TpStateEntry -> TpStateSetRequest) -> Parser RawMessage (Text -> Vector TpStateEntry -> TpStateSetRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> Vector TpStateEntry -> TpStateSetRequest +Hs.pure Text -> Vector TpStateEntry -> TpStateSetRequest TpStateSetRequest) Parser RawMessage (Text -> Vector TpStateEntry -> TpStateSetRequest) -> Parser RawMessage Text -> Parser RawMessage (Vector TpStateEntry -> TpStateSetRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser RawMessage (Vector TpStateEntry -> TpStateSetRequest) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (Vector TpStateEntry -> TpStateSetRequest) -> Parser RawMessage (Vector TpStateEntry) -> Parser RawMessage TpStateSetRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (NestedVec TpStateEntry) +<*> + (Parser RawMessage (NestedVec TpStateEntry) -> Parser RawMessage (Vector TpStateEntry) -forall a b. Coercible a b => a -> b -Hs.coerce - @(_ (HsProtobuf.NestedVec Data.Sawtooth.StateContext.TpStateEntry)) - @(_ (Hs.Vector Data.Sawtooth.StateContext.TpStateEntry)) - (Parser RawField (NestedVec TpStateEntry) +Hs.coerce + @(_ (HsProtobuf.NestedVec Data.Sawtooth.StateContext.TpStateEntry)) + @(_ (Hs.Vector Data.Sawtooth.StateContext.TpStateEntry)) + (Parser RawField (NestedVec TpStateEntry) -> FieldNumber -> Parser RawMessage (NestedVec TpStateEntry) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (NestedVec TpStateEntry) +HsProtobuf.at Parser RawField (NestedVec TpStateEntry) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2))) - dotProto :: Proxy# TpStateSetRequest -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2))) + dotProto :: Proxy# TpStateSetRequest -> [DotProtoField] +dotProto Proxy# TpStateSetRequest +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "context_id") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"context_id") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Repeated - (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "TpStateEntry"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "entries") - [] - "")] - -instance HsJSONPB.ToJSONPB TpStateSetRequest where - toJSONPB :: TpStateSetRequest -> Options -> Value -toJSONPB (TpStateSetRequest f1 :: Text -f1 f2 :: Vector TpStateEntry -f2) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["context_id" Text -> Text -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Repeated + (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"TpStateEntry"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"entries") + [] + String +"")] + +instance HsJSONPB.ToJSONPB TpStateSetRequest where + toJSONPB :: TpStateSetRequest -> Options -> Value +toJSONPB (TpStateSetRequest Text +f1 Vector TpStateEntry +f2) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"context_id" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1, "entries" Text -> Vector TpStateEntry -> Options -> [Pair] +.= Text +f1, Text +"entries" Text -> Vector TpStateEntry -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector TpStateEntry -f2]) - toEncodingPB :: TpStateSetRequest -> Options -> Encoding -toEncodingPB (TpStateSetRequest f1 :: Text -f1 f2 :: Vector TpStateEntry -f2) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["context_id" Text -> Text -> Options -> Series +.= Vector TpStateEntry +f2]) + toEncodingPB :: TpStateSetRequest -> Options -> Encoding +toEncodingPB (TpStateSetRequest Text +f1 Vector TpStateEntry +f2) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"context_id" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1, "entries" Text -> Vector TpStateEntry -> Options -> Series +.= Text +f1, Text +"entries" Text -> Vector TpStateEntry -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector TpStateEntry -f2]) - -instance HsJSONPB.FromJSONPB TpStateSetRequest where - parseJSONPB :: Value -> Parser TpStateSetRequest -parseJSONPB - = (String +.= Vector TpStateEntry +f2]) + +instance HsJSONPB.FromJSONPB TpStateSetRequest where + parseJSONPB :: Value -> Parser TpStateSetRequest +parseJSONPB + = (String -> (Object -> Parser TpStateSetRequest) -> Value -> Parser TpStateSetRequest forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "TpStateSetRequest" - (\ obj :: Object -obj -> - ((Text -> Vector TpStateEntry -> TpStateSetRequest) +HsJSONPB.withObject String +"TpStateSetRequest" + (\ Object +obj -> + ((Text -> Vector TpStateEntry -> TpStateSetRequest) -> Parser (Text -> Vector TpStateEntry -> TpStateSetRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> Vector TpStateEntry -> TpStateSetRequest +Hs.pure Text -> Vector TpStateEntry -> TpStateSetRequest TpStateSetRequest) Parser (Text -> Vector TpStateEntry -> TpStateSetRequest) -> Parser Text -> Parser (Vector TpStateEntry -> TpStateSetRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Text +<*> Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "context_id" Parser (Vector TpStateEntry -> TpStateSetRequest) +.: Text +"context_id" Parser (Vector TpStateEntry -> TpStateSetRequest) -> Parser (Vector TpStateEntry) -> Parser TpStateSetRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser (Vector TpStateEntry) +<*> + Object +obj Object -> Text -> Parser (Vector TpStateEntry) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "entries")) - -instance HsJSONPB.ToJSON TpStateSetRequest where - toJSON :: TpStateSetRequest -> Value -toJSON = TpStateSetRequest -> Value +.: Text +"entries")) + +instance HsJSONPB.ToJSON TpStateSetRequest where + toJSON :: TpStateSetRequest -> Value +toJSON = TpStateSetRequest -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: TpStateSetRequest -> Encoding -toEncoding = TpStateSetRequest -> Encoding +HsJSONPB.toAesonValue + toEncoding :: TpStateSetRequest -> Encoding +toEncoding = TpStateSetRequest -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON TpStateSetRequest where - parseJSON :: Value -> Parser TpStateSetRequest -parseJSON = Value -> Parser TpStateSetRequest +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON TpStateSetRequest where + parseJSON :: Value -> Parser TpStateSetRequest +parseJSON = Value -> Parser TpStateSetRequest forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema TpStateSetRequest where - declareNamedSchema :: Proxy TpStateSetRequest -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_context_id :: Proxy (OverrideToSchema Text) +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema TpStateSetRequest where + declareNamedSchema :: Proxy TpStateSetRequest -> Declare (Definitions Schema) NamedSchema +declareNamedSchema Proxy TpStateSetRequest +_ + = do let declare_context_id :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_context_id = Proxy (OverrideToSchema Text) +declare_context_id = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -tpStateSetRequestContextId <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +tpStateSetRequestContextId <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_context_id Proxy (OverrideToSchema Text) +declare_context_id Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_entries :: Proxy (OverrideToSchema (Vector TpStateEntry)) +Proxy.Proxy + let declare_entries :: Proxy (OverrideToSchema (Vector TpStateEntry)) -> Declare (Definitions Schema) (Referenced Schema) -declare_entries = Proxy (OverrideToSchema (Vector TpStateEntry)) +declare_entries = Proxy (OverrideToSchema (Vector TpStateEntry)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -tpStateSetRequestEntries <- Proxy (OverrideToSchema (Vector TpStateEntry)) +HsJSONPB.declareSchemaRef + Referenced Schema +tpStateSetRequestEntries <- Proxy (OverrideToSchema (Vector TpStateEntry)) -> Declare (Definitions Schema) (Referenced Schema) -declare_entries Proxy (OverrideToSchema (Vector TpStateEntry)) +declare_entries Proxy (OverrideToSchema (Vector TpStateEntry)) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy TpStateSetRequest +Proxy.Proxy + let Proxy TpStateSetRequest _ = (Text -> Vector TpStateEntry -> TpStateSetRequest) -> Proxy (Text -> Vector TpStateEntry -> TpStateSetRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> Vector TpStateEntry -> TpStateSetRequest +Hs.pure Text -> Vector TpStateEntry -> TpStateSetRequest TpStateSetRequest Proxy (Text -> Vector TpStateEntry -> TpStateSetRequest) -> Proxy Text -> Proxy (Vector TpStateEntry -> TpStateSetRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema Text) +<*> + (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_context_id - Proxy (Vector TpStateEntry -> TpStateSetRequest) +declare_context_id + Proxy (Vector TpStateEntry -> TpStateSetRequest) -> Proxy (Vector TpStateEntry) -> Proxy TpStateSetRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema (Vector TpStateEntry)) +<*> (Proxy (OverrideToSchema (Vector TpStateEntry)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Vector TpStateEntry) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Vector TpStateEntry)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Vector TpStateEntry)) -> Declare (Definitions Schema) (Referenced Schema) -declare_entries - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_entries + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "TpStateSetRequest", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"TpStateSetRequest", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("context_id", Referenced Schema -tpStateSetRequestContextId), - ("entries", Referenced Schema -tpStateSetRequestEntries)]}}) - -data TpStateSetResponse = TpStateSetResponse{TpStateSetResponse -> Vector Text +HsJSONPB.insOrdFromList + [(Text +"context_id", Referenced Schema +tpStateSetRequestContextId), + (Text +"entries", Referenced Schema +tpStateSetRequestEntries)]}}) + +data TpStateSetResponse = TpStateSetResponse{TpStateSetResponse -> Vector Text tpStateSetResponseAddresses - :: Hs.Vector Hs.Text, - TpStateSetResponse -> Enumerated TpStateSetResponse_Status + :: Hs.Vector Hs.Text, + TpStateSetResponse -> Enumerated TpStateSetResponse_Status tpStateSetResponseStatus :: - HsProtobuf.Enumerated - Data.Sawtooth.StateContext.TpStateSetResponse_Status} - deriving (Int -> TpStateSetResponse -> ShowS + HsProtobuf.Enumerated + Data.Sawtooth.StateContext.TpStateSetResponse_Status} + deriving (Int -> TpStateSetResponse -> ShowS [TpStateSetResponse] -> ShowS TpStateSetResponse -> String (Int -> TpStateSetResponse -> ShowS) @@ -1712,7 +1827,7 @@ show :: TpStateSetResponse -> String $cshow :: TpStateSetResponse -> String showsPrec :: Int -> TpStateSetResponse -> ShowS $cshowsPrec :: Int -> TpStateSetResponse -> ShowS -Hs.Show, TpStateSetResponse -> TpStateSetResponse -> Bool +Hs.Show, TpStateSetResponse -> TpStateSetResponse -> Bool (TpStateSetResponse -> TpStateSetResponse -> Bool) -> (TpStateSetResponse -> TpStateSetResponse -> Bool) -> Eq TpStateSetResponse @@ -1721,9 +1836,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: TpStateSetResponse -> TpStateSetResponse -> Bool == :: TpStateSetResponse -> TpStateSetResponse -> Bool $c== :: TpStateSetResponse -> TpStateSetResponse -> Bool -Hs.Eq, Eq TpStateSetResponse -Eq TpStateSetResponse => -(TpStateSetResponse -> TpStateSetResponse -> Ordering) +Hs.Eq, Eq TpStateSetResponse +Eq TpStateSetResponse +-> (TpStateSetResponse -> TpStateSetResponse -> Ordering) -> (TpStateSetResponse -> TpStateSetResponse -> Bool) -> (TpStateSetResponse -> TpStateSetResponse -> Bool) -> (TpStateSetResponse -> TpStateSetResponse -> Bool) @@ -1735,8 +1850,8 @@ TpStateSetResponse -> TpStateSetResponse -> Bool TpStateSetResponse -> TpStateSetResponse -> Ordering TpStateSetResponse -> TpStateSetResponse -> TpStateSetResponse forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -1759,7 +1874,7 @@ $c< :: TpStateSetResponse -> TpStateSetResponse -> Bool compare :: TpStateSetResponse -> TpStateSetResponse -> Ordering $ccompare :: TpStateSetResponse -> TpStateSetResponse -> Ordering $cp1Ord :: Eq TpStateSetResponse -Hs.Ord, (forall x. TpStateSetResponse -> Rep TpStateSetResponse x) +Hs.Ord, (forall x. TpStateSetResponse -> Rep TpStateSetResponse x) -> (forall x. Rep TpStateSetResponse x -> TpStateSetResponse) -> Generic TpStateSetResponse forall x. Rep TpStateSetResponse x -> TpStateSetResponse @@ -1768,60 +1883,65 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep TpStateSetResponse x -> TpStateSetResponse $cfrom :: forall x. TpStateSetResponse -> Rep TpStateSetResponse x -Hs.Generic, TpStateSetResponse -> () +Hs.Generic, TpStateSetResponse -> () (TpStateSetResponse -> ()) -> NFData TpStateSetResponse forall a. (a -> ()) -> NFData a rnf :: TpStateSetResponse -> () $crnf :: TpStateSetResponse -> () -Hs.NFData) - -instance HsProtobuf.Named TpStateSetResponse where - nameOf :: Proxy# TpStateSetResponse -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named TpStateSetResponse where + nameOf :: Proxy# TpStateSetResponse -> string +nameOf Proxy# TpStateSetResponse +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "TpStateSetResponse") - -instance HsProtobuf.HasDefault TpStateSetResponse - -instance HsProtobuf.Message TpStateSetResponse where - encodeMessage :: FieldNumber -> TpStateSetResponse -> MessageBuilder -encodeMessage _ - TpStateSetResponse{tpStateSetResponseAddresses :: TpStateSetResponse -> Vector Text +Hs.fromString String +"TpStateSetResponse") + +instance HsProtobuf.HasDefault TpStateSetResponse + +instance HsProtobuf.Message TpStateSetResponse where + encodeMessage :: FieldNumber -> TpStateSetResponse -> MessageBuilder +encodeMessage FieldNumber +_ + TpStateSetResponse{tpStateSetResponseAddresses :: TpStateSetResponse -> Vector Text tpStateSetResponseAddresses = - Vector Text -tpStateSetResponseAddresses, - tpStateSetResponseStatus :: TpStateSetResponse -> Enumerated TpStateSetResponse_Status -tpStateSetResponseStatus = Enumerated TpStateSetResponse_Status -tpStateSetResponseStatus} - = ([MessageBuilder] -> MessageBuilder + Vector Text +tpStateSetResponseAddresses, + tpStateSetResponseStatus :: TpStateSetResponse -> Enumerated TpStateSetResponse_Status +tpStateSetResponseStatus = Enumerated TpStateSetResponse_Status +tpStateSetResponseStatus} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> UnpackedVec Text -> MessageBuilder +Hs.mconcat + [(FieldNumber -> UnpackedVec Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (Vector Text -> UnpackedVec Text -forall a b. Coercible a b => a -> b -Hs.coerce @(Hs.Vector Hs.Text) @(HsProtobuf.UnpackedVec Hs.Text) - Vector Text -tpStateSetResponseAddresses)), - (FieldNumber +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (Vector Text -> UnpackedVec Text +Hs.coerce @(Hs.Vector Hs.Text) @(HsProtobuf.UnpackedVec Hs.Text) + Vector Text +tpStateSetResponseAddresses)), + (FieldNumber -> Enumerated TpStateSetResponse_Status -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - Enumerated TpStateSetResponse_Status -tpStateSetResponseStatus)]) - decodeMessage :: FieldNumber -> Parser RawMessage TpStateSetResponse -decodeMessage _ - = ((Vector Text +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + Enumerated TpStateSetResponse_Status +tpStateSetResponseStatus)]) + decodeMessage :: FieldNumber -> Parser RawMessage TpStateSetResponse +decodeMessage FieldNumber +_ + = ((Vector Text -> Enumerated TpStateSetResponse_Status -> TpStateSetResponse) -> Parser RawMessage (Vector Text -> Enumerated TpStateSetResponse_Status -> TpStateSetResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector Text +Hs.pure Vector Text -> Enumerated TpStateSetResponse_Status -> TpStateSetResponse TpStateSetResponse) Parser RawMessage @@ -1832,122 +1952,136 @@ forall (f :: * -> *) a. Applicative f => a -> f a RawMessage (Enumerated TpStateSetResponse_Status -> TpStateSetResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (UnpackedVec Text) +<*> + (Parser RawMessage (UnpackedVec Text) -> Parser RawMessage (Vector Text) -forall a b. Coercible a b => a -> b -Hs.coerce @(_ (HsProtobuf.UnpackedVec Hs.Text)) - @(_ (Hs.Vector Hs.Text)) - (Parser RawField (UnpackedVec Text) +Hs.coerce @(_ (HsProtobuf.UnpackedVec Hs.Text)) + @(_ (Hs.Vector Hs.Text)) + (Parser RawField (UnpackedVec Text) -> FieldNumber -> Parser RawMessage (UnpackedVec Text) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (UnpackedVec Text) +HsProtobuf.at Parser RawField (UnpackedVec Text) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1))) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1))) + Parser RawMessage (Enumerated TpStateSetResponse_Status -> TpStateSetResponse) -> Parser RawMessage (Enumerated TpStateSetResponse_Status) -> Parser RawMessage TpStateSetResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField (Enumerated TpStateSetResponse_Status) +<*> + (Parser RawField (Enumerated TpStateSetResponse_Status) -> FieldNumber -> Parser RawMessage (Enumerated TpStateSetResponse_Status) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (Enumerated TpStateSetResponse_Status) +HsProtobuf.at Parser RawField (Enumerated TpStateSetResponse_Status) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2)) - dotProto :: Proxy# TpStateSetResponse -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2)) + dotProto :: Proxy# TpStateSetResponse -> [DotProtoField] +dotProto Proxy# TpStateSetResponse +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Repeated DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "addresses") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Repeated DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"addresses") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "Status"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "status") - [] - "")] - -instance HsJSONPB.ToJSONPB TpStateSetResponse where - toJSONPB :: TpStateSetResponse -> Options -> Value -toJSONPB (TpStateSetResponse f1 :: Vector Text -f1 f2 :: Enumerated TpStateSetResponse_Status -f2) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["addresses" Text -> Vector Text -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"Status"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"status") + [] + String +"")] + +instance HsJSONPB.ToJSONPB TpStateSetResponse where + toJSONPB :: TpStateSetResponse -> Options -> Value +toJSONPB (TpStateSetResponse Vector Text +f1 Enumerated TpStateSetResponse_Status +f2) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"addresses" Text -> Vector Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Text -f1, "status" Text -> Enumerated TpStateSetResponse_Status -> Options -> [Pair] +.= Vector Text +f1, Text +"status" Text -> Enumerated TpStateSetResponse_Status -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated TpStateSetResponse_Status -f2]) - toEncodingPB :: TpStateSetResponse -> Options -> Encoding -toEncodingPB (TpStateSetResponse f1 :: Vector Text -f1 f2 :: Enumerated TpStateSetResponse_Status -f2) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["addresses" Text -> Vector Text -> Options -> Series +.= Enumerated TpStateSetResponse_Status +f2]) + toEncodingPB :: TpStateSetResponse -> Options -> Encoding +toEncodingPB (TpStateSetResponse Vector Text +f1 Enumerated TpStateSetResponse_Status +f2) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"addresses" Text -> Vector Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Text -f1, "status" Text -> Enumerated TpStateSetResponse_Status -> Options -> Series +.= Vector Text +f1, Text +"status" Text -> Enumerated TpStateSetResponse_Status -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated TpStateSetResponse_Status -f2]) - -instance HsJSONPB.FromJSONPB TpStateSetResponse where - parseJSONPB :: Value -> Parser TpStateSetResponse -parseJSONPB - = (String +.= Enumerated TpStateSetResponse_Status +f2]) + +instance HsJSONPB.FromJSONPB TpStateSetResponse where + parseJSONPB :: Value -> Parser TpStateSetResponse +parseJSONPB + = (String -> (Object -> Parser TpStateSetResponse) -> Value -> Parser TpStateSetResponse forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "TpStateSetResponse" - (\ obj :: Object -obj -> - ((Vector Text +HsJSONPB.withObject String +"TpStateSetResponse" + (\ Object +obj -> + ((Vector Text -> Enumerated TpStateSetResponse_Status -> TpStateSetResponse) -> Parser (Vector Text -> Enumerated TpStateSetResponse_Status -> TpStateSetResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector Text +Hs.pure Vector Text -> Enumerated TpStateSetResponse_Status -> TpStateSetResponse TpStateSetResponse) Parser (Vector Text @@ -1956,79 +2090,82 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Parser (Enumerated TpStateSetResponse_Status -> TpStateSetResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser (Vector Text) +<*> Object +obj Object -> Text -> Parser (Vector Text) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "addresses" Parser (Enumerated TpStateSetResponse_Status -> TpStateSetResponse) +.: Text +"addresses" Parser (Enumerated TpStateSetResponse_Status -> TpStateSetResponse) -> Parser (Enumerated TpStateSetResponse_Status) -> Parser TpStateSetResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser (Enumerated TpStateSetResponse_Status) +<*> + Object +obj Object -> Text -> Parser (Enumerated TpStateSetResponse_Status) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "status")) - -instance HsJSONPB.ToJSON TpStateSetResponse where - toJSON :: TpStateSetResponse -> Value -toJSON = TpStateSetResponse -> Value +.: Text +"status")) + +instance HsJSONPB.ToJSON TpStateSetResponse where + toJSON :: TpStateSetResponse -> Value +toJSON = TpStateSetResponse -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: TpStateSetResponse -> Encoding -toEncoding = TpStateSetResponse -> Encoding +HsJSONPB.toAesonValue + toEncoding :: TpStateSetResponse -> Encoding +toEncoding = TpStateSetResponse -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON TpStateSetResponse where - parseJSON :: Value -> Parser TpStateSetResponse -parseJSON = Value -> Parser TpStateSetResponse +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON TpStateSetResponse where + parseJSON :: Value -> Parser TpStateSetResponse +parseJSON = Value -> Parser TpStateSetResponse forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema TpStateSetResponse where - declareNamedSchema :: Proxy TpStateSetResponse +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema TpStateSetResponse where + declareNamedSchema :: Proxy TpStateSetResponse -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_addresses :: Proxy (OverrideToSchema (Vector Text)) +declareNamedSchema Proxy TpStateSetResponse +_ + = do let declare_addresses :: Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) -declare_addresses = Proxy (OverrideToSchema (Vector Text)) +declare_addresses = Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -tpStateSetResponseAddresses <- Proxy (OverrideToSchema (Vector Text)) +HsJSONPB.declareSchemaRef + Referenced Schema +tpStateSetResponseAddresses <- Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) -declare_addresses Proxy (OverrideToSchema (Vector Text)) +declare_addresses Proxy (OverrideToSchema (Vector Text)) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_status :: Proxy (OverrideToSchema (Enumerated TpStateSetResponse_Status)) +Proxy.Proxy + let declare_status :: Proxy (OverrideToSchema (Enumerated TpStateSetResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status = Proxy (OverrideToSchema (Enumerated TpStateSetResponse_Status)) +declare_status = Proxy (OverrideToSchema (Enumerated TpStateSetResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -tpStateSetResponseStatus <- Proxy (OverrideToSchema (Enumerated TpStateSetResponse_Status)) +HsJSONPB.declareSchemaRef + Referenced Schema +tpStateSetResponseStatus <- Proxy (OverrideToSchema (Enumerated TpStateSetResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status Proxy (OverrideToSchema (Enumerated TpStateSetResponse_Status)) +declare_status Proxy (OverrideToSchema (Enumerated TpStateSetResponse_Status)) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy TpStateSetResponse +Proxy.Proxy + let Proxy TpStateSetResponse _ = (Vector Text -> Enumerated TpStateSetResponse_Status -> TpStateSetResponse) -> Proxy (Vector Text -> Enumerated TpStateSetResponse_Status -> TpStateSetResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector Text +Hs.pure Vector Text -> Enumerated TpStateSetResponse_Status -> TpStateSetResponse TpStateSetResponse Proxy (Vector Text @@ -2037,64 +2174,67 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Proxy (Enumerated TpStateSetResponse_Status -> TpStateSetResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema (Vector Text)) +<*> + (Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Vector Text) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Text)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) -declare_addresses - Proxy (Enumerated TpStateSetResponse_Status -> TpStateSetResponse) +declare_addresses + Proxy (Enumerated TpStateSetResponse_Status -> TpStateSetResponse) -> Proxy (Enumerated TpStateSetResponse_Status) -> Proxy TpStateSetResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema (Enumerated TpStateSetResponse_Status)) +<*> (Proxy (OverrideToSchema (Enumerated TpStateSetResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Enumerated TpStateSetResponse_Status) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Enumerated TpStateSetResponse_Status)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Enumerated TpStateSetResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_status + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "TpStateSetResponse", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"TpStateSetResponse", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("addresses", Referenced Schema -tpStateSetResponseAddresses), - ("status", Referenced Schema -tpStateSetResponseStatus)]}}) - -data TpStateSetResponse_Status = TpStateSetResponse_StatusSTATUS_UNSET - | TpStateSetResponse_StatusOK - | TpStateSetResponse_StatusAUTHORIZATION_ERROR - deriving (Int -> TpStateSetResponse_Status -> ShowS +HsJSONPB.insOrdFromList + [(Text +"addresses", Referenced Schema +tpStateSetResponseAddresses), + (Text +"status", Referenced Schema +tpStateSetResponseStatus)]}}) + +data TpStateSetResponse_Status = TpStateSetResponse_StatusSTATUS_UNSET + | TpStateSetResponse_StatusOK + | TpStateSetResponse_StatusAUTHORIZATION_ERROR + deriving (Int -> TpStateSetResponse_Status -> ShowS [TpStateSetResponse_Status] -> ShowS TpStateSetResponse_Status -> String (Int -> TpStateSetResponse_Status -> ShowS) @@ -2109,7 +2249,7 @@ show :: TpStateSetResponse_Status -> String $cshow :: TpStateSetResponse_Status -> String showsPrec :: Int -> TpStateSetResponse_Status -> ShowS $cshowsPrec :: Int -> TpStateSetResponse_Status -> ShowS -Hs.Show, TpStateSetResponse_Status -> TpStateSetResponse_Status -> Bool +Hs.Show, TpStateSetResponse_Status -> TpStateSetResponse_Status -> Bool (TpStateSetResponse_Status -> TpStateSetResponse_Status -> Bool) -> (TpStateSetResponse_Status -> TpStateSetResponse_Status -> Bool) -> Eq TpStateSetResponse_Status @@ -2118,7 +2258,7 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: TpStateSetResponse_Status -> TpStateSetResponse_Status -> Bool == :: TpStateSetResponse_Status -> TpStateSetResponse_Status -> Bool $c== :: TpStateSetResponse_Status -> TpStateSetResponse_Status -> Bool -Hs.Eq, (forall x. +Hs.Eq, (forall x. TpStateSetResponse_Status -> Rep TpStateSetResponse_Status x) -> (forall x. Rep TpStateSetResponse_Status x -> TpStateSetResponse_Status) @@ -2133,134 +2273,149 @@ $cto :: forall x. Rep TpStateSetResponse_Status x -> TpStateSetResponse_Status $cfrom :: forall x. TpStateSetResponse_Status -> Rep TpStateSetResponse_Status x -Hs.Generic, TpStateSetResponse_Status -> () +Hs.Generic, TpStateSetResponse_Status -> () (TpStateSetResponse_Status -> ()) -> NFData TpStateSetResponse_Status forall a. (a -> ()) -> NFData a rnf :: TpStateSetResponse_Status -> () $crnf :: TpStateSetResponse_Status -> () -Hs.NFData) - -instance HsProtobuf.Named TpStateSetResponse_Status where - nameOf :: Proxy# TpStateSetResponse_Status -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named TpStateSetResponse_Status where + nameOf :: Proxy# TpStateSetResponse_Status -> string +nameOf Proxy# TpStateSetResponse_Status +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "TpStateSetResponse_Status") - -instance HsProtobuf.HasDefault TpStateSetResponse_Status - -instance Hs.Bounded TpStateSetResponse_Status where - minBound :: TpStateSetResponse_Status -minBound = TpStateSetResponse_Status +Hs.fromString String +"TpStateSetResponse_Status") + +instance HsProtobuf.HasDefault TpStateSetResponse_Status + +instance Hs.Bounded TpStateSetResponse_Status where + minBound :: TpStateSetResponse_Status +minBound = TpStateSetResponse_Status TpStateSetResponse_StatusSTATUS_UNSET - maxBound :: TpStateSetResponse_Status -maxBound = TpStateSetResponse_Status + maxBound :: TpStateSetResponse_Status +maxBound = TpStateSetResponse_Status TpStateSetResponse_StatusAUTHORIZATION_ERROR - -instance Hs.Ord TpStateSetResponse_Status where - compare :: TpStateSetResponse_Status -> TpStateSetResponse_Status -> Ordering -compare x :: TpStateSetResponse_Status -x y :: TpStateSetResponse_Status -y - = Int32 -> Int32 -> Ordering + +instance Hs.Ord TpStateSetResponse_Status where + compare :: TpStateSetResponse_Status -> TpStateSetResponse_Status -> Ordering +compare TpStateSetResponse_Status +x TpStateSetResponse_Status +y + = Int32 -> Int32 -> Ordering forall a. Ord a => a -> a -> Ordering -Hs.compare (TpStateSetResponse_Status -> Int32 +Hs.compare (TpStateSetResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum TpStateSetResponse_Status -x) - (TpStateSetResponse_Status -> Int32 +HsProtobuf.fromProtoEnum TpStateSetResponse_Status +x) + (TpStateSetResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum TpStateSetResponse_Status -y) - -instance HsProtobuf.ProtoEnum TpStateSetResponse_Status where - toProtoEnumMay :: Int32 -> Maybe TpStateSetResponse_Status -toProtoEnumMay 0 = TpStateSetResponse_Status -> Maybe TpStateSetResponse_Status +HsProtobuf.fromProtoEnum TpStateSetResponse_Status +y) + +instance HsProtobuf.ProtoEnum TpStateSetResponse_Status where + toProtoEnumMay :: Int32 -> Maybe TpStateSetResponse_Status +toProtoEnumMay Int32 +0 = TpStateSetResponse_Status -> Maybe TpStateSetResponse_Status forall a. a -> Maybe a -Hs.Just TpStateSetResponse_Status +Hs.Just TpStateSetResponse_Status TpStateSetResponse_StatusSTATUS_UNSET - toProtoEnumMay 1 = TpStateSetResponse_Status -> Maybe TpStateSetResponse_Status + toProtoEnumMay Int32 +1 = TpStateSetResponse_Status -> Maybe TpStateSetResponse_Status forall a. a -> Maybe a -Hs.Just TpStateSetResponse_Status +Hs.Just TpStateSetResponse_Status TpStateSetResponse_StatusOK - toProtoEnumMay 2 - = TpStateSetResponse_Status -> Maybe TpStateSetResponse_Status + toProtoEnumMay Int32 +2 + = TpStateSetResponse_Status -> Maybe TpStateSetResponse_Status forall a. a -> Maybe a -Hs.Just TpStateSetResponse_Status +Hs.Just TpStateSetResponse_Status TpStateSetResponse_StatusAUTHORIZATION_ERROR - toProtoEnumMay _ = Maybe TpStateSetResponse_Status + toProtoEnumMay Int32 +_ = Maybe TpStateSetResponse_Status forall a. Maybe a -Hs.Nothing - fromProtoEnum :: TpStateSetResponse_Status -> Int32 -fromProtoEnum (TpStateSetResponse_Status -TpStateSetResponse_StatusSTATUS_UNSET) = 0 - fromProtoEnum (TpStateSetResponse_Status -TpStateSetResponse_StatusOK) = 1 - fromProtoEnum (TpStateSetResponse_Status -TpStateSetResponse_StatusAUTHORIZATION_ERROR) = 2 - -instance HsJSONPB.ToJSONPB TpStateSetResponse_Status where - toJSONPB :: TpStateSetResponse_Status -> Options -> Value -toJSONPB x :: TpStateSetResponse_Status -x _ = TpStateSetResponse_Status -> Value +Hs.Nothing + fromProtoEnum :: TpStateSetResponse_Status -> Int32 +fromProtoEnum (TpStateSetResponse_Status +TpStateSetResponse_StatusSTATUS_UNSET) = Int32 +0 + fromProtoEnum (TpStateSetResponse_Status +TpStateSetResponse_StatusOK) = Int32 +1 + fromProtoEnum (TpStateSetResponse_Status +TpStateSetResponse_StatusAUTHORIZATION_ERROR) = Int32 +2 + +instance HsJSONPB.ToJSONPB TpStateSetResponse_Status where + toJSONPB :: TpStateSetResponse_Status -> Options -> Value +toJSONPB TpStateSetResponse_Status +x Options +_ = TpStateSetResponse_Status -> Value forall a. (Named a, Show a) => a -> Value -HsJSONPB.enumFieldString TpStateSetResponse_Status -x - toEncodingPB :: TpStateSetResponse_Status -> Options -> Encoding -toEncodingPB x :: TpStateSetResponse_Status -x _ = TpStateSetResponse_Status -> Encoding +HsJSONPB.enumFieldString TpStateSetResponse_Status +x + toEncodingPB :: TpStateSetResponse_Status -> Options -> Encoding +toEncodingPB TpStateSetResponse_Status +x Options +_ = TpStateSetResponse_Status -> Encoding forall a. (Named a, Show a) => a -> Encoding -HsJSONPB.enumFieldEncoding TpStateSetResponse_Status -x - -instance HsJSONPB.FromJSONPB TpStateSetResponse_Status where - parseJSONPB :: Value -> Parser TpStateSetResponse_Status -parseJSONPB (HsJSONPB.String "STATUS_UNSET") - = TpStateSetResponse_Status -> Parser TpStateSetResponse_Status +HsJSONPB.enumFieldEncoding TpStateSetResponse_Status +x + +instance HsJSONPB.FromJSONPB TpStateSetResponse_Status where + parseJSONPB :: Value -> Parser TpStateSetResponse_Status +parseJSONPB (HsJSONPB.String Text +"STATUS_UNSET") + = TpStateSetResponse_Status -> Parser TpStateSetResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure TpStateSetResponse_Status +Hs.pure TpStateSetResponse_Status TpStateSetResponse_StatusSTATUS_UNSET - parseJSONPB (HsJSONPB.String "OK") - = TpStateSetResponse_Status -> Parser TpStateSetResponse_Status + parseJSONPB (HsJSONPB.String Text +"OK") + = TpStateSetResponse_Status -> Parser TpStateSetResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure TpStateSetResponse_Status +Hs.pure TpStateSetResponse_Status TpStateSetResponse_StatusOK - parseJSONPB (HsJSONPB.String "AUTHORIZATION_ERROR") - = TpStateSetResponse_Status -> Parser TpStateSetResponse_Status + parseJSONPB (HsJSONPB.String Text +"AUTHORIZATION_ERROR") + = TpStateSetResponse_Status -> Parser TpStateSetResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure TpStateSetResponse_Status +Hs.pure TpStateSetResponse_Status TpStateSetResponse_StatusAUTHORIZATION_ERROR - parseJSONPB v :: Value -v - = (String -> Value -> Parser TpStateSetResponse_Status + parseJSONPB Value +v + = (String -> Value -> Parser TpStateSetResponse_Status forall a. String -> Value -> Parser a -HsJSONPB.typeMismatch "TpStateSetResponse_Status" Value -v) - -instance HsJSONPB.ToJSON TpStateSetResponse_Status where - toJSON :: TpStateSetResponse_Status -> Value -toJSON = TpStateSetResponse_Status -> Value +HsJSONPB.typeMismatch String +"TpStateSetResponse_Status" Value +v) + +instance HsJSONPB.ToJSON TpStateSetResponse_Status where + toJSON :: TpStateSetResponse_Status -> Value +toJSON = TpStateSetResponse_Status -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: TpStateSetResponse_Status -> Encoding -toEncoding = TpStateSetResponse_Status -> Encoding +HsJSONPB.toAesonValue + toEncoding :: TpStateSetResponse_Status -> Encoding +toEncoding = TpStateSetResponse_Status -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON TpStateSetResponse_Status where - parseJSON :: Value -> Parser TpStateSetResponse_Status -parseJSON = Value -> Parser TpStateSetResponse_Status +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON TpStateSetResponse_Status where + parseJSON :: Value -> Parser TpStateSetResponse_Status +parseJSON = Value -> Parser TpStateSetResponse_Status forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsProtobuf.Finite TpStateSetResponse_Status - -data TpStateDeleteRequest = TpStateDeleteRequest{TpStateDeleteRequest -> Text +HsJSONPB.parseJSONPB + +instance HsProtobuf.Finite TpStateSetResponse_Status + +data TpStateDeleteRequest = TpStateDeleteRequest{TpStateDeleteRequest -> Text tpStateDeleteRequestContextId - :: Hs.Text, - TpStateDeleteRequest -> Vector Text -tpStateDeleteRequestAddresses :: Hs.Vector Hs.Text} - deriving (Int -> TpStateDeleteRequest -> ShowS + :: Hs.Text, + TpStateDeleteRequest -> Vector Text +tpStateDeleteRequestAddresses :: Hs.Vector Hs.Text} + deriving (Int -> TpStateDeleteRequest -> ShowS [TpStateDeleteRequest] -> ShowS TpStateDeleteRequest -> String (Int -> TpStateDeleteRequest -> ShowS) @@ -2275,7 +2430,7 @@ show :: TpStateDeleteRequest -> String $cshow :: TpStateDeleteRequest -> String showsPrec :: Int -> TpStateDeleteRequest -> ShowS $cshowsPrec :: Int -> TpStateDeleteRequest -> ShowS -Hs.Show, TpStateDeleteRequest -> TpStateDeleteRequest -> Bool +Hs.Show, TpStateDeleteRequest -> TpStateDeleteRequest -> Bool (TpStateDeleteRequest -> TpStateDeleteRequest -> Bool) -> (TpStateDeleteRequest -> TpStateDeleteRequest -> Bool) -> Eq TpStateDeleteRequest @@ -2284,9 +2439,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: TpStateDeleteRequest -> TpStateDeleteRequest -> Bool == :: TpStateDeleteRequest -> TpStateDeleteRequest -> Bool $c== :: TpStateDeleteRequest -> TpStateDeleteRequest -> Bool -Hs.Eq, Eq TpStateDeleteRequest -Eq TpStateDeleteRequest => -(TpStateDeleteRequest -> TpStateDeleteRequest -> Ordering) +Hs.Eq, Eq TpStateDeleteRequest +Eq TpStateDeleteRequest +-> (TpStateDeleteRequest -> TpStateDeleteRequest -> Ordering) -> (TpStateDeleteRequest -> TpStateDeleteRequest -> Bool) -> (TpStateDeleteRequest -> TpStateDeleteRequest -> Bool) -> (TpStateDeleteRequest -> TpStateDeleteRequest -> Bool) @@ -2301,8 +2456,8 @@ TpStateDeleteRequest -> TpStateDeleteRequest -> Ordering TpStateDeleteRequest -> TpStateDeleteRequest -> TpStateDeleteRequest forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -2329,7 +2484,7 @@ $c< :: TpStateDeleteRequest -> TpStateDeleteRequest -> Bool compare :: TpStateDeleteRequest -> TpStateDeleteRequest -> Ordering $ccompare :: TpStateDeleteRequest -> TpStateDeleteRequest -> Ordering $cp1Ord :: Eq TpStateDeleteRequest -Hs.Ord, (forall x. TpStateDeleteRequest -> Rep TpStateDeleteRequest x) +Hs.Ord, (forall x. TpStateDeleteRequest -> Rep TpStateDeleteRequest x) -> (forall x. Rep TpStateDeleteRequest x -> TpStateDeleteRequest) -> Generic TpStateDeleteRequest forall x. Rep TpStateDeleteRequest x -> TpStateDeleteRequest @@ -2338,305 +2493,329 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep TpStateDeleteRequest x -> TpStateDeleteRequest $cfrom :: forall x. TpStateDeleteRequest -> Rep TpStateDeleteRequest x -Hs.Generic, TpStateDeleteRequest -> () +Hs.Generic, TpStateDeleteRequest -> () (TpStateDeleteRequest -> ()) -> NFData TpStateDeleteRequest forall a. (a -> ()) -> NFData a rnf :: TpStateDeleteRequest -> () $crnf :: TpStateDeleteRequest -> () -Hs.NFData) - -instance HsProtobuf.Named TpStateDeleteRequest where - nameOf :: Proxy# TpStateDeleteRequest -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named TpStateDeleteRequest where + nameOf :: Proxy# TpStateDeleteRequest -> string +nameOf Proxy# TpStateDeleteRequest +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "TpStateDeleteRequest") - -instance HsProtobuf.HasDefault TpStateDeleteRequest - -instance HsProtobuf.Message TpStateDeleteRequest where - encodeMessage :: FieldNumber -> TpStateDeleteRequest -> MessageBuilder -encodeMessage _ - TpStateDeleteRequest{tpStateDeleteRequestContextId :: TpStateDeleteRequest -> Text +Hs.fromString String +"TpStateDeleteRequest") + +instance HsProtobuf.HasDefault TpStateDeleteRequest + +instance HsProtobuf.Message TpStateDeleteRequest where + encodeMessage :: FieldNumber -> TpStateDeleteRequest -> MessageBuilder +encodeMessage FieldNumber +_ + TpStateDeleteRequest{tpStateDeleteRequestContextId :: TpStateDeleteRequest -> Text tpStateDeleteRequestContextId = - Text -tpStateDeleteRequestContextId, - tpStateDeleteRequestAddresses :: TpStateDeleteRequest -> Vector Text -tpStateDeleteRequestAddresses = Vector Text -tpStateDeleteRequestAddresses} - = ([MessageBuilder] -> MessageBuilder + Text +tpStateDeleteRequestContextId, + tpStateDeleteRequestAddresses :: TpStateDeleteRequest -> Vector Text +tpStateDeleteRequestAddresses = Vector Text +tpStateDeleteRequestAddresses} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> Text -> MessageBuilder +Hs.mconcat + [(FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Text -tpStateDeleteRequestContextId), - (FieldNumber -> UnpackedVec Text -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Text +tpStateDeleteRequestContextId), + (FieldNumber -> UnpackedVec Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (Vector Text -> UnpackedVec Text -forall a b. Coercible a b => a -> b -Hs.coerce @(Hs.Vector Hs.Text) @(HsProtobuf.UnpackedVec Hs.Text) - Vector Text -tpStateDeleteRequestAddresses))]) - decodeMessage :: FieldNumber -> Parser RawMessage TpStateDeleteRequest -decodeMessage _ - = ((Text -> Vector Text -> TpStateDeleteRequest) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (Vector Text -> UnpackedVec Text +Hs.coerce @(Hs.Vector Hs.Text) @(HsProtobuf.UnpackedVec Hs.Text) + Vector Text +tpStateDeleteRequestAddresses))]) + decodeMessage :: FieldNumber -> Parser RawMessage TpStateDeleteRequest +decodeMessage FieldNumber +_ + = ((Text -> Vector Text -> TpStateDeleteRequest) -> Parser RawMessage (Text -> Vector Text -> TpStateDeleteRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> Vector Text -> TpStateDeleteRequest +Hs.pure Text -> Vector Text -> TpStateDeleteRequest TpStateDeleteRequest) Parser RawMessage (Text -> Vector Text -> TpStateDeleteRequest) -> Parser RawMessage Text -> Parser RawMessage (Vector Text -> TpStateDeleteRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser RawMessage (Vector Text -> TpStateDeleteRequest) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (Vector Text -> TpStateDeleteRequest) -> Parser RawMessage (Vector Text) -> Parser RawMessage TpStateDeleteRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (UnpackedVec Text) +<*> + (Parser RawMessage (UnpackedVec Text) -> Parser RawMessage (Vector Text) -forall a b. Coercible a b => a -> b -Hs.coerce @(_ (HsProtobuf.UnpackedVec Hs.Text)) - @(_ (Hs.Vector Hs.Text)) - (Parser RawField (UnpackedVec Text) +Hs.coerce @(_ (HsProtobuf.UnpackedVec Hs.Text)) + @(_ (Hs.Vector Hs.Text)) + (Parser RawField (UnpackedVec Text) -> FieldNumber -> Parser RawMessage (UnpackedVec Text) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (UnpackedVec Text) +HsProtobuf.at Parser RawField (UnpackedVec Text) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2))) - dotProto :: Proxy# TpStateDeleteRequest -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2))) + dotProto :: Proxy# TpStateDeleteRequest -> [DotProtoField] +dotProto Proxy# TpStateDeleteRequest +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "context_id") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"context_id") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Repeated DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "addresses") - [] - "")] - -instance HsJSONPB.ToJSONPB TpStateDeleteRequest where - toJSONPB :: TpStateDeleteRequest -> Options -> Value -toJSONPB (TpStateDeleteRequest f1 :: Text -f1 f2 :: Vector Text -f2) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["context_id" Text -> Text -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Repeated DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"addresses") + [] + String +"")] + +instance HsJSONPB.ToJSONPB TpStateDeleteRequest where + toJSONPB :: TpStateDeleteRequest -> Options -> Value +toJSONPB (TpStateDeleteRequest Text +f1 Vector Text +f2) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"context_id" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1, "addresses" Text -> Vector Text -> Options -> [Pair] +.= Text +f1, Text +"addresses" Text -> Vector Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Text -f2]) - toEncodingPB :: TpStateDeleteRequest -> Options -> Encoding -toEncodingPB (TpStateDeleteRequest f1 :: Text -f1 f2 :: Vector Text -f2) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["context_id" Text -> Text -> Options -> Series +.= Vector Text +f2]) + toEncodingPB :: TpStateDeleteRequest -> Options -> Encoding +toEncodingPB (TpStateDeleteRequest Text +f1 Vector Text +f2) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"context_id" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1, "addresses" Text -> Vector Text -> Options -> Series +.= Text +f1, Text +"addresses" Text -> Vector Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Text -f2]) - -instance HsJSONPB.FromJSONPB TpStateDeleteRequest where - parseJSONPB :: Value -> Parser TpStateDeleteRequest -parseJSONPB - = (String +.= Vector Text +f2]) + +instance HsJSONPB.FromJSONPB TpStateDeleteRequest where + parseJSONPB :: Value -> Parser TpStateDeleteRequest +parseJSONPB + = (String -> (Object -> Parser TpStateDeleteRequest) -> Value -> Parser TpStateDeleteRequest forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "TpStateDeleteRequest" - (\ obj :: Object -obj -> - ((Text -> Vector Text -> TpStateDeleteRequest) +HsJSONPB.withObject String +"TpStateDeleteRequest" + (\ Object +obj -> + ((Text -> Vector Text -> TpStateDeleteRequest) -> Parser (Text -> Vector Text -> TpStateDeleteRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> Vector Text -> TpStateDeleteRequest +Hs.pure Text -> Vector Text -> TpStateDeleteRequest TpStateDeleteRequest) Parser (Text -> Vector Text -> TpStateDeleteRequest) -> Parser Text -> Parser (Vector Text -> TpStateDeleteRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Text +<*> Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "context_id" Parser (Vector Text -> TpStateDeleteRequest) +.: Text +"context_id" Parser (Vector Text -> TpStateDeleteRequest) -> Parser (Vector Text) -> Parser TpStateDeleteRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser (Vector Text) +<*> + Object +obj Object -> Text -> Parser (Vector Text) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "addresses")) - -instance HsJSONPB.ToJSON TpStateDeleteRequest where - toJSON :: TpStateDeleteRequest -> Value -toJSON = TpStateDeleteRequest -> Value +.: Text +"addresses")) + +instance HsJSONPB.ToJSON TpStateDeleteRequest where + toJSON :: TpStateDeleteRequest -> Value +toJSON = TpStateDeleteRequest -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: TpStateDeleteRequest -> Encoding -toEncoding = TpStateDeleteRequest -> Encoding +HsJSONPB.toAesonValue + toEncoding :: TpStateDeleteRequest -> Encoding +toEncoding = TpStateDeleteRequest -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON TpStateDeleteRequest where - parseJSON :: Value -> Parser TpStateDeleteRequest -parseJSON = Value -> Parser TpStateDeleteRequest +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON TpStateDeleteRequest where + parseJSON :: Value -> Parser TpStateDeleteRequest +parseJSON = Value -> Parser TpStateDeleteRequest forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema TpStateDeleteRequest where - declareNamedSchema :: Proxy TpStateDeleteRequest +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema TpStateDeleteRequest where + declareNamedSchema :: Proxy TpStateDeleteRequest -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_context_id :: Proxy (OverrideToSchema Text) +declareNamedSchema Proxy TpStateDeleteRequest +_ + = do let declare_context_id :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_context_id = Proxy (OverrideToSchema Text) +declare_context_id = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -tpStateDeleteRequestContextId <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +tpStateDeleteRequestContextId <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_context_id Proxy (OverrideToSchema Text) +declare_context_id Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_addresses :: Proxy (OverrideToSchema (Vector Text)) +Proxy.Proxy + let declare_addresses :: Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) -declare_addresses = Proxy (OverrideToSchema (Vector Text)) +declare_addresses = Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -tpStateDeleteRequestAddresses <- Proxy (OverrideToSchema (Vector Text)) +HsJSONPB.declareSchemaRef + Referenced Schema +tpStateDeleteRequestAddresses <- Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) -declare_addresses Proxy (OverrideToSchema (Vector Text)) +declare_addresses Proxy (OverrideToSchema (Vector Text)) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy TpStateDeleteRequest +Proxy.Proxy + let Proxy TpStateDeleteRequest _ = (Text -> Vector Text -> TpStateDeleteRequest) -> Proxy (Text -> Vector Text -> TpStateDeleteRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> Vector Text -> TpStateDeleteRequest +Hs.pure Text -> Vector Text -> TpStateDeleteRequest TpStateDeleteRequest Proxy (Text -> Vector Text -> TpStateDeleteRequest) -> Proxy Text -> Proxy (Vector Text -> TpStateDeleteRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema Text) +<*> + (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_context_id - Proxy (Vector Text -> TpStateDeleteRequest) +declare_context_id + Proxy (Vector Text -> TpStateDeleteRequest) -> Proxy (Vector Text) -> Proxy TpStateDeleteRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema (Vector Text)) +<*> (Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Vector Text) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Text)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) -declare_addresses - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_addresses + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "TpStateDeleteRequest", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"TpStateDeleteRequest", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("context_id", - Referenced Schema -tpStateDeleteRequestContextId), - ("addresses", - Referenced Schema -tpStateDeleteRequestAddresses)]}}) - -data TpStateDeleteResponse = TpStateDeleteResponse{TpStateDeleteResponse -> Vector Text +HsJSONPB.insOrdFromList + [(Text +"context_id", + Referenced Schema +tpStateDeleteRequestContextId), + (Text +"addresses", + Referenced Schema +tpStateDeleteRequestAddresses)]}}) + +data TpStateDeleteResponse = TpStateDeleteResponse{TpStateDeleteResponse -> Vector Text tpStateDeleteResponseAddresses - :: Hs.Vector Hs.Text, - TpStateDeleteResponse -> Enumerated TpStateDeleteResponse_Status + :: Hs.Vector Hs.Text, + TpStateDeleteResponse -> Enumerated TpStateDeleteResponse_Status tpStateDeleteResponseStatus :: - HsProtobuf.Enumerated - Data.Sawtooth.StateContext.TpStateDeleteResponse_Status} - deriving (Int -> TpStateDeleteResponse -> ShowS + HsProtobuf.Enumerated + Data.Sawtooth.StateContext.TpStateDeleteResponse_Status} + deriving (Int -> TpStateDeleteResponse -> ShowS [TpStateDeleteResponse] -> ShowS TpStateDeleteResponse -> String (Int -> TpStateDeleteResponse -> ShowS) @@ -2651,7 +2830,7 @@ show :: TpStateDeleteResponse -> String $cshow :: TpStateDeleteResponse -> String showsPrec :: Int -> TpStateDeleteResponse -> ShowS $cshowsPrec :: Int -> TpStateDeleteResponse -> ShowS -Hs.Show, TpStateDeleteResponse -> TpStateDeleteResponse -> Bool +Hs.Show, TpStateDeleteResponse -> TpStateDeleteResponse -> Bool (TpStateDeleteResponse -> TpStateDeleteResponse -> Bool) -> (TpStateDeleteResponse -> TpStateDeleteResponse -> Bool) -> Eq TpStateDeleteResponse @@ -2660,9 +2839,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: TpStateDeleteResponse -> TpStateDeleteResponse -> Bool == :: TpStateDeleteResponse -> TpStateDeleteResponse -> Bool $c== :: TpStateDeleteResponse -> TpStateDeleteResponse -> Bool -Hs.Eq, Eq TpStateDeleteResponse -Eq TpStateDeleteResponse => -(TpStateDeleteResponse -> TpStateDeleteResponse -> Ordering) +Hs.Eq, Eq TpStateDeleteResponse +Eq TpStateDeleteResponse +-> (TpStateDeleteResponse -> TpStateDeleteResponse -> Ordering) -> (TpStateDeleteResponse -> TpStateDeleteResponse -> Bool) -> (TpStateDeleteResponse -> TpStateDeleteResponse -> Bool) -> (TpStateDeleteResponse -> TpStateDeleteResponse -> Bool) @@ -2677,8 +2856,8 @@ TpStateDeleteResponse -> TpStateDeleteResponse -> Ordering TpStateDeleteResponse -> TpStateDeleteResponse -> TpStateDeleteResponse forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -2705,7 +2884,7 @@ $c< :: TpStateDeleteResponse -> TpStateDeleteResponse -> Bool compare :: TpStateDeleteResponse -> TpStateDeleteResponse -> Ordering $ccompare :: TpStateDeleteResponse -> TpStateDeleteResponse -> Ordering $cp1Ord :: Eq TpStateDeleteResponse -Hs.Ord, (forall x. TpStateDeleteResponse -> Rep TpStateDeleteResponse x) +Hs.Ord, (forall x. TpStateDeleteResponse -> Rep TpStateDeleteResponse x) -> (forall x. Rep TpStateDeleteResponse x -> TpStateDeleteResponse) -> Generic TpStateDeleteResponse forall x. Rep TpStateDeleteResponse x -> TpStateDeleteResponse @@ -2714,53 +2893,58 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep TpStateDeleteResponse x -> TpStateDeleteResponse $cfrom :: forall x. TpStateDeleteResponse -> Rep TpStateDeleteResponse x -Hs.Generic, TpStateDeleteResponse -> () +Hs.Generic, TpStateDeleteResponse -> () (TpStateDeleteResponse -> ()) -> NFData TpStateDeleteResponse forall a. (a -> ()) -> NFData a rnf :: TpStateDeleteResponse -> () $crnf :: TpStateDeleteResponse -> () -Hs.NFData) - -instance HsProtobuf.Named TpStateDeleteResponse where - nameOf :: Proxy# TpStateDeleteResponse -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named TpStateDeleteResponse where + nameOf :: Proxy# TpStateDeleteResponse -> string +nameOf Proxy# TpStateDeleteResponse +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "TpStateDeleteResponse") - -instance HsProtobuf.HasDefault TpStateDeleteResponse - -instance HsProtobuf.Message TpStateDeleteResponse where - encodeMessage :: FieldNumber -> TpStateDeleteResponse -> MessageBuilder -encodeMessage _ - TpStateDeleteResponse{tpStateDeleteResponseAddresses :: TpStateDeleteResponse -> Vector Text +Hs.fromString String +"TpStateDeleteResponse") + +instance HsProtobuf.HasDefault TpStateDeleteResponse + +instance HsProtobuf.Message TpStateDeleteResponse where + encodeMessage :: FieldNumber -> TpStateDeleteResponse -> MessageBuilder +encodeMessage FieldNumber +_ + TpStateDeleteResponse{tpStateDeleteResponseAddresses :: TpStateDeleteResponse -> Vector Text tpStateDeleteResponseAddresses = - Vector Text -tpStateDeleteResponseAddresses, - tpStateDeleteResponseStatus :: TpStateDeleteResponse -> Enumerated TpStateDeleteResponse_Status -tpStateDeleteResponseStatus = Enumerated TpStateDeleteResponse_Status -tpStateDeleteResponseStatus} - = ([MessageBuilder] -> MessageBuilder + Vector Text +tpStateDeleteResponseAddresses, + tpStateDeleteResponseStatus :: TpStateDeleteResponse -> Enumerated TpStateDeleteResponse_Status +tpStateDeleteResponseStatus = Enumerated TpStateDeleteResponse_Status +tpStateDeleteResponseStatus} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> UnpackedVec Text -> MessageBuilder +Hs.mconcat + [(FieldNumber -> UnpackedVec Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (Vector Text -> UnpackedVec Text -forall a b. Coercible a b => a -> b -Hs.coerce @(Hs.Vector Hs.Text) @(HsProtobuf.UnpackedVec Hs.Text) - Vector Text -tpStateDeleteResponseAddresses)), - (FieldNumber +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (Vector Text -> UnpackedVec Text +Hs.coerce @(Hs.Vector Hs.Text) @(HsProtobuf.UnpackedVec Hs.Text) + Vector Text +tpStateDeleteResponseAddresses)), + (FieldNumber -> Enumerated TpStateDeleteResponse_Status -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - Enumerated TpStateDeleteResponse_Status -tpStateDeleteResponseStatus)]) - decodeMessage :: FieldNumber -> Parser RawMessage TpStateDeleteResponse -decodeMessage _ - = ((Vector Text +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + Enumerated TpStateDeleteResponse_Status +tpStateDeleteResponseStatus)]) + decodeMessage :: FieldNumber -> Parser RawMessage TpStateDeleteResponse +decodeMessage FieldNumber +_ + = ((Vector Text -> Enumerated TpStateDeleteResponse_Status -> TpStateDeleteResponse) -> Parser @@ -2769,7 +2953,7 @@ forall a. MessageField a => FieldNumber -> a -> MessageBuilder -> Enumerated TpStateDeleteResponse_Status -> TpStateDeleteResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector Text +Hs.pure Vector Text -> Enumerated TpStateDeleteResponse_Status -> TpStateDeleteResponse TpStateDeleteResponse) Parser RawMessage @@ -2781,118 +2965,132 @@ forall (f :: * -> *) a. Applicative f => a -> f a RawMessage (Enumerated TpStateDeleteResponse_Status -> TpStateDeleteResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (UnpackedVec Text) +<*> + (Parser RawMessage (UnpackedVec Text) -> Parser RawMessage (Vector Text) -forall a b. Coercible a b => a -> b -Hs.coerce @(_ (HsProtobuf.UnpackedVec Hs.Text)) - @(_ (Hs.Vector Hs.Text)) - (Parser RawField (UnpackedVec Text) +Hs.coerce @(_ (HsProtobuf.UnpackedVec Hs.Text)) + @(_ (Hs.Vector Hs.Text)) + (Parser RawField (UnpackedVec Text) -> FieldNumber -> Parser RawMessage (UnpackedVec Text) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (UnpackedVec Text) +HsProtobuf.at Parser RawField (UnpackedVec Text) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1))) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1))) + Parser RawMessage (Enumerated TpStateDeleteResponse_Status -> TpStateDeleteResponse) -> Parser RawMessage (Enumerated TpStateDeleteResponse_Status) -> Parser RawMessage TpStateDeleteResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField (Enumerated TpStateDeleteResponse_Status) +<*> + (Parser RawField (Enumerated TpStateDeleteResponse_Status) -> FieldNumber -> Parser RawMessage (Enumerated TpStateDeleteResponse_Status) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (Enumerated TpStateDeleteResponse_Status) +HsProtobuf.at Parser RawField (Enumerated TpStateDeleteResponse_Status) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2)) - dotProto :: Proxy# TpStateDeleteResponse -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2)) + dotProto :: Proxy# TpStateDeleteResponse -> [DotProtoField] +dotProto Proxy# TpStateDeleteResponse +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Repeated DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "addresses") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Repeated DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"addresses") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "Status"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "status") - [] - "")] - -instance HsJSONPB.ToJSONPB TpStateDeleteResponse where - toJSONPB :: TpStateDeleteResponse -> Options -> Value -toJSONPB (TpStateDeleteResponse f1 :: Vector Text -f1 f2 :: Enumerated TpStateDeleteResponse_Status -f2) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["addresses" Text -> Vector Text -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"Status"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"status") + [] + String +"")] + +instance HsJSONPB.ToJSONPB TpStateDeleteResponse where + toJSONPB :: TpStateDeleteResponse -> Options -> Value +toJSONPB (TpStateDeleteResponse Vector Text +f1 Enumerated TpStateDeleteResponse_Status +f2) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"addresses" Text -> Vector Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Text -f1, "status" Text +.= Vector Text +f1, Text +"status" Text -> Enumerated TpStateDeleteResponse_Status -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated TpStateDeleteResponse_Status -f2]) - toEncodingPB :: TpStateDeleteResponse -> Options -> Encoding -toEncodingPB (TpStateDeleteResponse f1 :: Vector Text -f1 f2 :: Enumerated TpStateDeleteResponse_Status -f2) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["addresses" Text -> Vector Text -> Options -> Series +.= Enumerated TpStateDeleteResponse_Status +f2]) + toEncodingPB :: TpStateDeleteResponse -> Options -> Encoding +toEncodingPB (TpStateDeleteResponse Vector Text +f1 Enumerated TpStateDeleteResponse_Status +f2) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"addresses" Text -> Vector Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Text -f1, "status" Text +.= Vector Text +f1, Text +"status" Text -> Enumerated TpStateDeleteResponse_Status -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated TpStateDeleteResponse_Status -f2]) - -instance HsJSONPB.FromJSONPB TpStateDeleteResponse where - parseJSONPB :: Value -> Parser TpStateDeleteResponse -parseJSONPB - = (String +.= Enumerated TpStateDeleteResponse_Status +f2]) + +instance HsJSONPB.FromJSONPB TpStateDeleteResponse where + parseJSONPB :: Value -> Parser TpStateDeleteResponse +parseJSONPB + = (String -> (Object -> Parser TpStateDeleteResponse) -> Value -> Parser TpStateDeleteResponse forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "TpStateDeleteResponse" - (\ obj :: Object -obj -> - ((Vector Text +HsJSONPB.withObject String +"TpStateDeleteResponse" + (\ Object +obj -> + ((Vector Text -> Enumerated TpStateDeleteResponse_Status -> TpStateDeleteResponse) -> Parser @@ -2900,7 +3098,7 @@ forall a. String -> (Object -> Parser a) -> Value -> Parser a -> Enumerated TpStateDeleteResponse_Status -> TpStateDeleteResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector Text +Hs.pure Vector Text -> Enumerated TpStateDeleteResponse_Status -> TpStateDeleteResponse TpStateDeleteResponse) Parser (Vector Text @@ -2910,73 +3108,76 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Parser (Enumerated TpStateDeleteResponse_Status -> TpStateDeleteResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser (Vector Text) +<*> Object +obj Object -> Text -> Parser (Vector Text) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "addresses" Parser +.: Text +"addresses" Parser (Enumerated TpStateDeleteResponse_Status -> TpStateDeleteResponse) -> Parser (Enumerated TpStateDeleteResponse_Status) -> Parser TpStateDeleteResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser (Enumerated TpStateDeleteResponse_Status) +<*> + Object +obj Object -> Text -> Parser (Enumerated TpStateDeleteResponse_Status) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "status")) - -instance HsJSONPB.ToJSON TpStateDeleteResponse where - toJSON :: TpStateDeleteResponse -> Value -toJSON = TpStateDeleteResponse -> Value +.: Text +"status")) + +instance HsJSONPB.ToJSON TpStateDeleteResponse where + toJSON :: TpStateDeleteResponse -> Value +toJSON = TpStateDeleteResponse -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: TpStateDeleteResponse -> Encoding -toEncoding = TpStateDeleteResponse -> Encoding +HsJSONPB.toAesonValue + toEncoding :: TpStateDeleteResponse -> Encoding +toEncoding = TpStateDeleteResponse -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON TpStateDeleteResponse where - parseJSON :: Value -> Parser TpStateDeleteResponse -parseJSON = Value -> Parser TpStateDeleteResponse +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON TpStateDeleteResponse where + parseJSON :: Value -> Parser TpStateDeleteResponse +parseJSON = Value -> Parser TpStateDeleteResponse forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema TpStateDeleteResponse where - declareNamedSchema :: Proxy TpStateDeleteResponse +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema TpStateDeleteResponse where + declareNamedSchema :: Proxy TpStateDeleteResponse -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_addresses :: Proxy (OverrideToSchema (Vector Text)) +declareNamedSchema Proxy TpStateDeleteResponse +_ + = do let declare_addresses :: Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) -declare_addresses = Proxy (OverrideToSchema (Vector Text)) +declare_addresses = Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -tpStateDeleteResponseAddresses <- Proxy (OverrideToSchema (Vector Text)) +HsJSONPB.declareSchemaRef + Referenced Schema +tpStateDeleteResponseAddresses <- Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) -declare_addresses Proxy (OverrideToSchema (Vector Text)) +declare_addresses Proxy (OverrideToSchema (Vector Text)) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_status :: Proxy (OverrideToSchema (Enumerated TpStateDeleteResponse_Status)) +Proxy.Proxy + let declare_status :: Proxy (OverrideToSchema (Enumerated TpStateDeleteResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status = Proxy (OverrideToSchema (Enumerated TpStateDeleteResponse_Status)) +declare_status = Proxy (OverrideToSchema (Enumerated TpStateDeleteResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -tpStateDeleteResponseStatus <- Proxy (OverrideToSchema (Enumerated TpStateDeleteResponse_Status)) +HsJSONPB.declareSchemaRef + Referenced Schema +tpStateDeleteResponseStatus <- Proxy (OverrideToSchema (Enumerated TpStateDeleteResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status Proxy (OverrideToSchema (Enumerated TpStateDeleteResponse_Status)) +declare_status Proxy (OverrideToSchema (Enumerated TpStateDeleteResponse_Status)) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy TpStateDeleteResponse +Proxy.Proxy + let Proxy TpStateDeleteResponse _ = (Vector Text -> Enumerated TpStateDeleteResponse_Status -> TpStateDeleteResponse) @@ -2985,7 +3186,7 @@ forall k (t :: k). Proxy t -> Enumerated TpStateDeleteResponse_Status -> TpStateDeleteResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector Text +Hs.pure Vector Text -> Enumerated TpStateDeleteResponse_Status -> TpStateDeleteResponse TpStateDeleteResponse Proxy (Vector Text @@ -2995,66 +3196,69 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Proxy (Enumerated TpStateDeleteResponse_Status -> TpStateDeleteResponse) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema (Vector Text)) +<*> + (Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Vector Text) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Text)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) -declare_addresses - Proxy +declare_addresses + Proxy (Enumerated TpStateDeleteResponse_Status -> TpStateDeleteResponse) -> Proxy (Enumerated TpStateDeleteResponse_Status) -> Proxy TpStateDeleteResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema (Enumerated TpStateDeleteResponse_Status)) +<*> (Proxy (OverrideToSchema (Enumerated TpStateDeleteResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Enumerated TpStateDeleteResponse_Status) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Enumerated TpStateDeleteResponse_Status)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Enumerated TpStateDeleteResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_status + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "TpStateDeleteResponse", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"TpStateDeleteResponse", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("addresses", - Referenced Schema -tpStateDeleteResponseAddresses), - ("status", Referenced Schema -tpStateDeleteResponseStatus)]}}) - -data TpStateDeleteResponse_Status = TpStateDeleteResponse_StatusSTATUS_UNSET - | TpStateDeleteResponse_StatusOK - | TpStateDeleteResponse_StatusAUTHORIZATION_ERROR - deriving (Int -> TpStateDeleteResponse_Status -> ShowS +HsJSONPB.insOrdFromList + [(Text +"addresses", + Referenced Schema +tpStateDeleteResponseAddresses), + (Text +"status", Referenced Schema +tpStateDeleteResponseStatus)]}}) + +data TpStateDeleteResponse_Status = TpStateDeleteResponse_StatusSTATUS_UNSET + | TpStateDeleteResponse_StatusOK + | TpStateDeleteResponse_StatusAUTHORIZATION_ERROR + deriving (Int -> TpStateDeleteResponse_Status -> ShowS [TpStateDeleteResponse_Status] -> ShowS TpStateDeleteResponse_Status -> String (Int -> TpStateDeleteResponse_Status -> ShowS) @@ -3069,7 +3273,7 @@ show :: TpStateDeleteResponse_Status -> String $cshow :: TpStateDeleteResponse_Status -> String showsPrec :: Int -> TpStateDeleteResponse_Status -> ShowS $cshowsPrec :: Int -> TpStateDeleteResponse_Status -> ShowS -Hs.Show, TpStateDeleteResponse_Status +Hs.Show, TpStateDeleteResponse_Status -> TpStateDeleteResponse_Status -> Bool (TpStateDeleteResponse_Status -> TpStateDeleteResponse_Status -> Bool) @@ -3085,7 +3289,7 @@ $c/= :: TpStateDeleteResponse_Status -> TpStateDeleteResponse_Status -> Bool $c== :: TpStateDeleteResponse_Status -> TpStateDeleteResponse_Status -> Bool -Hs.Eq, (forall x. +Hs.Eq, (forall x. TpStateDeleteResponse_Status -> Rep TpStateDeleteResponse_Status x) -> (forall x. Rep TpStateDeleteResponse_Status x -> TpStateDeleteResponse_Status) @@ -3100,135 +3304,150 @@ $cto :: forall x. Rep TpStateDeleteResponse_Status x -> TpStateDeleteResponse_Status $cfrom :: forall x. TpStateDeleteResponse_Status -> Rep TpStateDeleteResponse_Status x -Hs.Generic, TpStateDeleteResponse_Status -> () +Hs.Generic, TpStateDeleteResponse_Status -> () (TpStateDeleteResponse_Status -> ()) -> NFData TpStateDeleteResponse_Status forall a. (a -> ()) -> NFData a rnf :: TpStateDeleteResponse_Status -> () $crnf :: TpStateDeleteResponse_Status -> () -Hs.NFData) - -instance HsProtobuf.Named TpStateDeleteResponse_Status where - nameOf :: Proxy# TpStateDeleteResponse_Status -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named TpStateDeleteResponse_Status where + nameOf :: Proxy# TpStateDeleteResponse_Status -> string +nameOf Proxy# TpStateDeleteResponse_Status +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "TpStateDeleteResponse_Status") - -instance HsProtobuf.HasDefault TpStateDeleteResponse_Status - -instance Hs.Bounded TpStateDeleteResponse_Status where - minBound :: TpStateDeleteResponse_Status -minBound = TpStateDeleteResponse_Status +Hs.fromString String +"TpStateDeleteResponse_Status") + +instance HsProtobuf.HasDefault TpStateDeleteResponse_Status + +instance Hs.Bounded TpStateDeleteResponse_Status where + minBound :: TpStateDeleteResponse_Status +minBound = TpStateDeleteResponse_Status TpStateDeleteResponse_StatusSTATUS_UNSET - maxBound :: TpStateDeleteResponse_Status -maxBound = TpStateDeleteResponse_Status + maxBound :: TpStateDeleteResponse_Status +maxBound = TpStateDeleteResponse_Status TpStateDeleteResponse_StatusAUTHORIZATION_ERROR - -instance Hs.Ord TpStateDeleteResponse_Status where - compare :: TpStateDeleteResponse_Status + +instance Hs.Ord TpStateDeleteResponse_Status where + compare :: TpStateDeleteResponse_Status -> TpStateDeleteResponse_Status -> Ordering -compare x :: TpStateDeleteResponse_Status -x y :: TpStateDeleteResponse_Status -y - = Int32 -> Int32 -> Ordering +compare TpStateDeleteResponse_Status +x TpStateDeleteResponse_Status +y + = Int32 -> Int32 -> Ordering forall a. Ord a => a -> a -> Ordering -Hs.compare (TpStateDeleteResponse_Status -> Int32 +Hs.compare (TpStateDeleteResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum TpStateDeleteResponse_Status -x) - (TpStateDeleteResponse_Status -> Int32 +HsProtobuf.fromProtoEnum TpStateDeleteResponse_Status +x) + (TpStateDeleteResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum TpStateDeleteResponse_Status -y) - -instance HsProtobuf.ProtoEnum TpStateDeleteResponse_Status where - toProtoEnumMay :: Int32 -> Maybe TpStateDeleteResponse_Status -toProtoEnumMay 0 = TpStateDeleteResponse_Status -> Maybe TpStateDeleteResponse_Status +HsProtobuf.fromProtoEnum TpStateDeleteResponse_Status +y) + +instance HsProtobuf.ProtoEnum TpStateDeleteResponse_Status where + toProtoEnumMay :: Int32 -> Maybe TpStateDeleteResponse_Status +toProtoEnumMay Int32 +0 = TpStateDeleteResponse_Status -> Maybe TpStateDeleteResponse_Status forall a. a -> Maybe a -Hs.Just TpStateDeleteResponse_Status +Hs.Just TpStateDeleteResponse_Status TpStateDeleteResponse_StatusSTATUS_UNSET - toProtoEnumMay 1 = TpStateDeleteResponse_Status -> Maybe TpStateDeleteResponse_Status + toProtoEnumMay Int32 +1 = TpStateDeleteResponse_Status -> Maybe TpStateDeleteResponse_Status forall a. a -> Maybe a -Hs.Just TpStateDeleteResponse_Status +Hs.Just TpStateDeleteResponse_Status TpStateDeleteResponse_StatusOK - toProtoEnumMay 2 - = TpStateDeleteResponse_Status -> Maybe TpStateDeleteResponse_Status + toProtoEnumMay Int32 +2 + = TpStateDeleteResponse_Status -> Maybe TpStateDeleteResponse_Status forall a. a -> Maybe a -Hs.Just TpStateDeleteResponse_Status +Hs.Just TpStateDeleteResponse_Status TpStateDeleteResponse_StatusAUTHORIZATION_ERROR - toProtoEnumMay _ = Maybe TpStateDeleteResponse_Status + toProtoEnumMay Int32 +_ = Maybe TpStateDeleteResponse_Status forall a. Maybe a -Hs.Nothing - fromProtoEnum :: TpStateDeleteResponse_Status -> Int32 -fromProtoEnum (TpStateDeleteResponse_Status -TpStateDeleteResponse_StatusSTATUS_UNSET) = 0 - fromProtoEnum (TpStateDeleteResponse_Status -TpStateDeleteResponse_StatusOK) = 1 - fromProtoEnum (TpStateDeleteResponse_Status -TpStateDeleteResponse_StatusAUTHORIZATION_ERROR) = 2 - -instance HsJSONPB.ToJSONPB TpStateDeleteResponse_Status where - toJSONPB :: TpStateDeleteResponse_Status -> Options -> Value -toJSONPB x :: TpStateDeleteResponse_Status -x _ = TpStateDeleteResponse_Status -> Value +Hs.Nothing + fromProtoEnum :: TpStateDeleteResponse_Status -> Int32 +fromProtoEnum (TpStateDeleteResponse_Status +TpStateDeleteResponse_StatusSTATUS_UNSET) = Int32 +0 + fromProtoEnum (TpStateDeleteResponse_Status +TpStateDeleteResponse_StatusOK) = Int32 +1 + fromProtoEnum (TpStateDeleteResponse_Status +TpStateDeleteResponse_StatusAUTHORIZATION_ERROR) = Int32 +2 + +instance HsJSONPB.ToJSONPB TpStateDeleteResponse_Status where + toJSONPB :: TpStateDeleteResponse_Status -> Options -> Value +toJSONPB TpStateDeleteResponse_Status +x Options +_ = TpStateDeleteResponse_Status -> Value forall a. (Named a, Show a) => a -> Value -HsJSONPB.enumFieldString TpStateDeleteResponse_Status -x - toEncodingPB :: TpStateDeleteResponse_Status -> Options -> Encoding -toEncodingPB x :: TpStateDeleteResponse_Status -x _ = TpStateDeleteResponse_Status -> Encoding +HsJSONPB.enumFieldString TpStateDeleteResponse_Status +x + toEncodingPB :: TpStateDeleteResponse_Status -> Options -> Encoding +toEncodingPB TpStateDeleteResponse_Status +x Options +_ = TpStateDeleteResponse_Status -> Encoding forall a. (Named a, Show a) => a -> Encoding -HsJSONPB.enumFieldEncoding TpStateDeleteResponse_Status -x - -instance HsJSONPB.FromJSONPB TpStateDeleteResponse_Status where - parseJSONPB :: Value -> Parser TpStateDeleteResponse_Status -parseJSONPB (HsJSONPB.String "STATUS_UNSET") - = TpStateDeleteResponse_Status -> Parser TpStateDeleteResponse_Status +HsJSONPB.enumFieldEncoding TpStateDeleteResponse_Status +x + +instance HsJSONPB.FromJSONPB TpStateDeleteResponse_Status where + parseJSONPB :: Value -> Parser TpStateDeleteResponse_Status +parseJSONPB (HsJSONPB.String Text +"STATUS_UNSET") + = TpStateDeleteResponse_Status -> Parser TpStateDeleteResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure TpStateDeleteResponse_Status +Hs.pure TpStateDeleteResponse_Status TpStateDeleteResponse_StatusSTATUS_UNSET - parseJSONPB (HsJSONPB.String "OK") - = TpStateDeleteResponse_Status -> Parser TpStateDeleteResponse_Status + parseJSONPB (HsJSONPB.String Text +"OK") + = TpStateDeleteResponse_Status -> Parser TpStateDeleteResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure TpStateDeleteResponse_Status +Hs.pure TpStateDeleteResponse_Status TpStateDeleteResponse_StatusOK - parseJSONPB (HsJSONPB.String "AUTHORIZATION_ERROR") - = TpStateDeleteResponse_Status -> Parser TpStateDeleteResponse_Status + parseJSONPB (HsJSONPB.String Text +"AUTHORIZATION_ERROR") + = TpStateDeleteResponse_Status -> Parser TpStateDeleteResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure TpStateDeleteResponse_Status +Hs.pure TpStateDeleteResponse_Status TpStateDeleteResponse_StatusAUTHORIZATION_ERROR - parseJSONPB v :: Value -v - = (String -> Value -> Parser TpStateDeleteResponse_Status + parseJSONPB Value +v + = (String -> Value -> Parser TpStateDeleteResponse_Status forall a. String -> Value -> Parser a -HsJSONPB.typeMismatch "TpStateDeleteResponse_Status" Value -v) - -instance HsJSONPB.ToJSON TpStateDeleteResponse_Status where - toJSON :: TpStateDeleteResponse_Status -> Value -toJSON = TpStateDeleteResponse_Status -> Value +HsJSONPB.typeMismatch String +"TpStateDeleteResponse_Status" Value +v) + +instance HsJSONPB.ToJSON TpStateDeleteResponse_Status where + toJSON :: TpStateDeleteResponse_Status -> Value +toJSON = TpStateDeleteResponse_Status -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: TpStateDeleteResponse_Status -> Encoding -toEncoding = TpStateDeleteResponse_Status -> Encoding +HsJSONPB.toAesonValue + toEncoding :: TpStateDeleteResponse_Status -> Encoding +toEncoding = TpStateDeleteResponse_Status -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON TpStateDeleteResponse_Status where - parseJSON :: Value -> Parser TpStateDeleteResponse_Status -parseJSON = Value -> Parser TpStateDeleteResponse_Status +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON TpStateDeleteResponse_Status where + parseJSON :: Value -> Parser TpStateDeleteResponse_Status +parseJSON = Value -> Parser TpStateDeleteResponse_Status forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsProtobuf.Finite TpStateDeleteResponse_Status - -data TpReceiptAddDataRequest = TpReceiptAddDataRequest{TpReceiptAddDataRequest -> Text +HsJSONPB.parseJSONPB + +instance HsProtobuf.Finite TpStateDeleteResponse_Status + +data TpReceiptAddDataRequest = TpReceiptAddDataRequest{TpReceiptAddDataRequest -> Text tpReceiptAddDataRequestContextId - :: Hs.Text, - TpReceiptAddDataRequest -> ByteString -tpReceiptAddDataRequestData :: Hs.ByteString} - deriving (Int -> TpReceiptAddDataRequest -> ShowS + :: Hs.Text, + TpReceiptAddDataRequest -> ByteString +tpReceiptAddDataRequestData :: Hs.ByteString} + deriving (Int -> TpReceiptAddDataRequest -> ShowS [TpReceiptAddDataRequest] -> ShowS TpReceiptAddDataRequest -> String (Int -> TpReceiptAddDataRequest -> ShowS) @@ -3243,7 +3462,7 @@ show :: TpReceiptAddDataRequest -> String $cshow :: TpReceiptAddDataRequest -> String showsPrec :: Int -> TpReceiptAddDataRequest -> ShowS $cshowsPrec :: Int -> TpReceiptAddDataRequest -> ShowS -Hs.Show, TpReceiptAddDataRequest -> TpReceiptAddDataRequest -> Bool +Hs.Show, TpReceiptAddDataRequest -> TpReceiptAddDataRequest -> Bool (TpReceiptAddDataRequest -> TpReceiptAddDataRequest -> Bool) -> (TpReceiptAddDataRequest -> TpReceiptAddDataRequest -> Bool) -> Eq TpReceiptAddDataRequest @@ -3252,9 +3471,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: TpReceiptAddDataRequest -> TpReceiptAddDataRequest -> Bool == :: TpReceiptAddDataRequest -> TpReceiptAddDataRequest -> Bool $c== :: TpReceiptAddDataRequest -> TpReceiptAddDataRequest -> Bool -Hs.Eq, Eq TpReceiptAddDataRequest -Eq TpReceiptAddDataRequest => -(TpReceiptAddDataRequest -> TpReceiptAddDataRequest -> Ordering) +Hs.Eq, Eq TpReceiptAddDataRequest +Eq TpReceiptAddDataRequest +-> (TpReceiptAddDataRequest -> TpReceiptAddDataRequest -> Ordering) -> (TpReceiptAddDataRequest -> TpReceiptAddDataRequest -> Bool) -> (TpReceiptAddDataRequest -> TpReceiptAddDataRequest -> Bool) -> (TpReceiptAddDataRequest -> TpReceiptAddDataRequest -> Bool) @@ -3269,8 +3488,8 @@ TpReceiptAddDataRequest -> TpReceiptAddDataRequest -> Ordering TpReceiptAddDataRequest -> TpReceiptAddDataRequest -> TpReceiptAddDataRequest forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -3297,7 +3516,7 @@ $c< :: TpReceiptAddDataRequest -> TpReceiptAddDataRequest -> Bool compare :: TpReceiptAddDataRequest -> TpReceiptAddDataRequest -> Ordering $ccompare :: TpReceiptAddDataRequest -> TpReceiptAddDataRequest -> Ordering $cp1Ord :: Eq TpReceiptAddDataRequest -Hs.Ord, (forall x. +Hs.Ord, (forall x. TpReceiptAddDataRequest -> Rep TpReceiptAddDataRequest x) -> (forall x. Rep TpReceiptAddDataRequest x -> TpReceiptAddDataRequest) @@ -3308,296 +3527,322 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep TpReceiptAddDataRequest x -> TpReceiptAddDataRequest $cfrom :: forall x. TpReceiptAddDataRequest -> Rep TpReceiptAddDataRequest x -Hs.Generic, TpReceiptAddDataRequest -> () +Hs.Generic, TpReceiptAddDataRequest -> () (TpReceiptAddDataRequest -> ()) -> NFData TpReceiptAddDataRequest forall a. (a -> ()) -> NFData a rnf :: TpReceiptAddDataRequest -> () $crnf :: TpReceiptAddDataRequest -> () -Hs.NFData) - -instance HsProtobuf.Named TpReceiptAddDataRequest where - nameOf :: Proxy# TpReceiptAddDataRequest -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named TpReceiptAddDataRequest where + nameOf :: Proxy# TpReceiptAddDataRequest -> string +nameOf Proxy# TpReceiptAddDataRequest +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "TpReceiptAddDataRequest") - -instance HsProtobuf.HasDefault TpReceiptAddDataRequest - -instance HsProtobuf.Message TpReceiptAddDataRequest where - encodeMessage :: FieldNumber -> TpReceiptAddDataRequest -> MessageBuilder -encodeMessage _ - TpReceiptAddDataRequest{tpReceiptAddDataRequestContextId :: TpReceiptAddDataRequest -> Text +Hs.fromString String +"TpReceiptAddDataRequest") + +instance HsProtobuf.HasDefault TpReceiptAddDataRequest + +instance HsProtobuf.Message TpReceiptAddDataRequest where + encodeMessage :: FieldNumber -> TpReceiptAddDataRequest -> MessageBuilder +encodeMessage FieldNumber +_ + TpReceiptAddDataRequest{tpReceiptAddDataRequestContextId :: TpReceiptAddDataRequest -> Text tpReceiptAddDataRequestContextId = - Text -tpReceiptAddDataRequestContextId, - tpReceiptAddDataRequestData :: TpReceiptAddDataRequest -> ByteString -tpReceiptAddDataRequestData = ByteString -tpReceiptAddDataRequestData} - = ([MessageBuilder] -> MessageBuilder + Text +tpReceiptAddDataRequestContextId, + tpReceiptAddDataRequestData :: TpReceiptAddDataRequest -> ByteString +tpReceiptAddDataRequestData = ByteString +tpReceiptAddDataRequestData} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> Text -> MessageBuilder +Hs.mconcat + [(FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Text -tpReceiptAddDataRequestContextId), - (FieldNumber -> ByteString -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Text +tpReceiptAddDataRequestContextId), + (FieldNumber -> ByteString -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - ByteString -tpReceiptAddDataRequestData)]) - decodeMessage :: FieldNumber -> Parser RawMessage TpReceiptAddDataRequest -decodeMessage _ - = ((Text -> ByteString -> TpReceiptAddDataRequest) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + ByteString +tpReceiptAddDataRequestData)]) + decodeMessage :: FieldNumber -> Parser RawMessage TpReceiptAddDataRequest +decodeMessage FieldNumber +_ + = ((Text -> ByteString -> TpReceiptAddDataRequest) -> Parser RawMessage (Text -> ByteString -> TpReceiptAddDataRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> ByteString -> TpReceiptAddDataRequest +Hs.pure Text -> ByteString -> TpReceiptAddDataRequest TpReceiptAddDataRequest) Parser RawMessage (Text -> ByteString -> TpReceiptAddDataRequest) -> Parser RawMessage Text -> Parser RawMessage (ByteString -> TpReceiptAddDataRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser RawMessage (ByteString -> TpReceiptAddDataRequest) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (ByteString -> TpReceiptAddDataRequest) -> Parser RawMessage ByteString -> Parser RawMessage TpReceiptAddDataRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField ByteString +<*> + (Parser RawField ByteString -> FieldNumber -> Parser RawMessage ByteString forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField ByteString +HsProtobuf.at Parser RawField ByteString forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3)) - dotProto :: Proxy# TpReceiptAddDataRequest -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3)) + dotProto :: Proxy# TpReceiptAddDataRequest -> [DotProtoField] +dotProto Proxy# TpReceiptAddDataRequest +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "context_id") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"context_id") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.Bytes) - (String -> DotProtoIdentifier -HsProtobuf.Single "data") - [] - "")] - -instance HsJSONPB.ToJSONPB TpReceiptAddDataRequest where - toJSONPB :: TpReceiptAddDataRequest -> Options -> Value -toJSONPB (TpReceiptAddDataRequest f1 :: Text -f1 f3 :: ByteString -f3) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["context_id" Text -> Text -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.Bytes) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"data") + [] + String +"")] + +instance HsJSONPB.ToJSONPB TpReceiptAddDataRequest where + toJSONPB :: TpReceiptAddDataRequest -> Options -> Value +toJSONPB (TpReceiptAddDataRequest Text +f1 ByteString +f3) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"context_id" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1, "data" Text -> ByteString -> Options -> [Pair] +.= Text +f1, Text +"data" Text -> ByteString -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f3]) - toEncodingPB :: TpReceiptAddDataRequest -> Options -> Encoding -toEncodingPB (TpReceiptAddDataRequest f1 :: Text -f1 f3 :: ByteString -f3) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["context_id" Text -> Text -> Options -> Series +.= ByteString +f3]) + toEncodingPB :: TpReceiptAddDataRequest -> Options -> Encoding +toEncodingPB (TpReceiptAddDataRequest Text +f1 ByteString +f3) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"context_id" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1, "data" Text -> ByteString -> Options -> Series +.= Text +f1, Text +"data" Text -> ByteString -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f3]) - -instance HsJSONPB.FromJSONPB TpReceiptAddDataRequest where - parseJSONPB :: Value -> Parser TpReceiptAddDataRequest -parseJSONPB - = (String +.= ByteString +f3]) + +instance HsJSONPB.FromJSONPB TpReceiptAddDataRequest where + parseJSONPB :: Value -> Parser TpReceiptAddDataRequest +parseJSONPB + = (String -> (Object -> Parser TpReceiptAddDataRequest) -> Value -> Parser TpReceiptAddDataRequest forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "TpReceiptAddDataRequest" - (\ obj :: Object -obj -> - ((Text -> ByteString -> TpReceiptAddDataRequest) +HsJSONPB.withObject String +"TpReceiptAddDataRequest" + (\ Object +obj -> + ((Text -> ByteString -> TpReceiptAddDataRequest) -> Parser (Text -> ByteString -> TpReceiptAddDataRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> ByteString -> TpReceiptAddDataRequest +Hs.pure Text -> ByteString -> TpReceiptAddDataRequest TpReceiptAddDataRequest) Parser (Text -> ByteString -> TpReceiptAddDataRequest) -> Parser Text -> Parser (ByteString -> TpReceiptAddDataRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Text +<*> Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "context_id" Parser (ByteString -> TpReceiptAddDataRequest) +.: Text +"context_id" Parser (ByteString -> TpReceiptAddDataRequest) -> Parser ByteString -> Parser TpReceiptAddDataRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser ByteString +<*> + Object +obj Object -> Text -> Parser ByteString forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "data")) - -instance HsJSONPB.ToJSON TpReceiptAddDataRequest where - toJSON :: TpReceiptAddDataRequest -> Value -toJSON = TpReceiptAddDataRequest -> Value +.: Text +"data")) + +instance HsJSONPB.ToJSON TpReceiptAddDataRequest where + toJSON :: TpReceiptAddDataRequest -> Value +toJSON = TpReceiptAddDataRequest -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: TpReceiptAddDataRequest -> Encoding -toEncoding = TpReceiptAddDataRequest -> Encoding +HsJSONPB.toAesonValue + toEncoding :: TpReceiptAddDataRequest -> Encoding +toEncoding = TpReceiptAddDataRequest -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON TpReceiptAddDataRequest where - parseJSON :: Value -> Parser TpReceiptAddDataRequest -parseJSON = Value -> Parser TpReceiptAddDataRequest +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON TpReceiptAddDataRequest where + parseJSON :: Value -> Parser TpReceiptAddDataRequest +parseJSON = Value -> Parser TpReceiptAddDataRequest forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema TpReceiptAddDataRequest where - declareNamedSchema :: Proxy TpReceiptAddDataRequest +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema TpReceiptAddDataRequest where + declareNamedSchema :: Proxy TpReceiptAddDataRequest -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_context_id :: Proxy (OverrideToSchema Text) +declareNamedSchema Proxy TpReceiptAddDataRequest +_ + = do let declare_context_id :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_context_id = Proxy (OverrideToSchema Text) +declare_context_id = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -tpReceiptAddDataRequestContextId <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +tpReceiptAddDataRequestContextId <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_context_id Proxy (OverrideToSchema Text) +declare_context_id Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_data :: Proxy (OverrideToSchema ByteString) +Proxy.Proxy + let declare_data :: Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_data = Proxy (OverrideToSchema ByteString) +declare_data = Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -tpReceiptAddDataRequestData <- Proxy (OverrideToSchema ByteString) +HsJSONPB.declareSchemaRef + Referenced Schema +tpReceiptAddDataRequestData <- Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_data Proxy (OverrideToSchema ByteString) +declare_data Proxy (OverrideToSchema ByteString) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy TpReceiptAddDataRequest +Proxy.Proxy + let Proxy TpReceiptAddDataRequest _ = (Text -> ByteString -> TpReceiptAddDataRequest) -> Proxy (Text -> ByteString -> TpReceiptAddDataRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> ByteString -> TpReceiptAddDataRequest +Hs.pure Text -> ByteString -> TpReceiptAddDataRequest TpReceiptAddDataRequest Proxy (Text -> ByteString -> TpReceiptAddDataRequest) -> Proxy Text -> Proxy (ByteString -> TpReceiptAddDataRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema Text) +<*> + (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_context_id - Proxy (ByteString -> TpReceiptAddDataRequest) +declare_context_id + Proxy (ByteString -> TpReceiptAddDataRequest) -> Proxy ByteString -> Proxy TpReceiptAddDataRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema ByteString) +<*> (Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy ByteString forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) +HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_data - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_data + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "TpReceiptAddDataRequest", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"TpReceiptAddDataRequest", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("context_id", - Referenced Schema -tpReceiptAddDataRequestContextId), - ("data", Referenced Schema -tpReceiptAddDataRequestData)]}}) - -newtype TpReceiptAddDataResponse = TpReceiptAddDataResponse{TpReceiptAddDataResponse +HsJSONPB.insOrdFromList + [(Text +"context_id", + Referenced Schema +tpReceiptAddDataRequestContextId), + (Text +"data", Referenced Schema +tpReceiptAddDataRequestData)]}}) + +newtype TpReceiptAddDataResponse = TpReceiptAddDataResponse{TpReceiptAddDataResponse -> Enumerated TpReceiptAddDataResponse_Status tpReceiptAddDataResponseStatus - :: - HsProtobuf.Enumerated - Data.Sawtooth.StateContext.TpReceiptAddDataResponse_Status} - deriving (Int -> TpReceiptAddDataResponse -> ShowS + :: + HsProtobuf.Enumerated + Data.Sawtooth.StateContext.TpReceiptAddDataResponse_Status} + deriving (Int -> TpReceiptAddDataResponse -> ShowS [TpReceiptAddDataResponse] -> ShowS TpReceiptAddDataResponse -> String (Int -> TpReceiptAddDataResponse -> ShowS) @@ -3612,7 +3857,7 @@ show :: TpReceiptAddDataResponse -> String $cshow :: TpReceiptAddDataResponse -> String showsPrec :: Int -> TpReceiptAddDataResponse -> ShowS $cshowsPrec :: Int -> TpReceiptAddDataResponse -> ShowS -Hs.Show, TpReceiptAddDataResponse -> TpReceiptAddDataResponse -> Bool +Hs.Show, TpReceiptAddDataResponse -> TpReceiptAddDataResponse -> Bool (TpReceiptAddDataResponse -> TpReceiptAddDataResponse -> Bool) -> (TpReceiptAddDataResponse -> TpReceiptAddDataResponse -> Bool) -> Eq TpReceiptAddDataResponse @@ -3621,9 +3866,10 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: TpReceiptAddDataResponse -> TpReceiptAddDataResponse -> Bool == :: TpReceiptAddDataResponse -> TpReceiptAddDataResponse -> Bool $c== :: TpReceiptAddDataResponse -> TpReceiptAddDataResponse -> Bool -Hs.Eq, Eq TpReceiptAddDataResponse -Eq TpReceiptAddDataResponse => -(TpReceiptAddDataResponse -> TpReceiptAddDataResponse -> Ordering) +Hs.Eq, Eq TpReceiptAddDataResponse +Eq TpReceiptAddDataResponse +-> (TpReceiptAddDataResponse + -> TpReceiptAddDataResponse -> Ordering) -> (TpReceiptAddDataResponse -> TpReceiptAddDataResponse -> Bool) -> (TpReceiptAddDataResponse -> TpReceiptAddDataResponse -> Bool) -> (TpReceiptAddDataResponse -> TpReceiptAddDataResponse -> Bool) @@ -3638,8 +3884,8 @@ TpReceiptAddDataResponse -> TpReceiptAddDataResponse -> Ordering TpReceiptAddDataResponse -> TpReceiptAddDataResponse -> TpReceiptAddDataResponse forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -3666,7 +3912,7 @@ $c< :: TpReceiptAddDataResponse -> TpReceiptAddDataResponse -> Bool compare :: TpReceiptAddDataResponse -> TpReceiptAddDataResponse -> Ordering $ccompare :: TpReceiptAddDataResponse -> TpReceiptAddDataResponse -> Ordering $cp1Ord :: Eq TpReceiptAddDataResponse -Hs.Ord, (forall x. +Hs.Ord, (forall x. TpReceiptAddDataResponse -> Rep TpReceiptAddDataResponse x) -> (forall x. Rep TpReceiptAddDataResponse x -> TpReceiptAddDataResponse) @@ -3681,49 +3927,54 @@ $cto :: forall x. Rep TpReceiptAddDataResponse x -> TpReceiptAddDataResponse $cfrom :: forall x. TpReceiptAddDataResponse -> Rep TpReceiptAddDataResponse x -Hs.Generic, TpReceiptAddDataResponse -> () +Hs.Generic, TpReceiptAddDataResponse -> () (TpReceiptAddDataResponse -> ()) -> NFData TpReceiptAddDataResponse forall a. (a -> ()) -> NFData a rnf :: TpReceiptAddDataResponse -> () $crnf :: TpReceiptAddDataResponse -> () -Hs.NFData) - -instance HsProtobuf.Named TpReceiptAddDataResponse where - nameOf :: Proxy# TpReceiptAddDataResponse -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named TpReceiptAddDataResponse where + nameOf :: Proxy# TpReceiptAddDataResponse -> string +nameOf Proxy# TpReceiptAddDataResponse +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "TpReceiptAddDataResponse") - -instance HsProtobuf.HasDefault TpReceiptAddDataResponse - -instance HsProtobuf.Message TpReceiptAddDataResponse where - encodeMessage :: FieldNumber -> TpReceiptAddDataResponse -> MessageBuilder -encodeMessage _ - TpReceiptAddDataResponse{tpReceiptAddDataResponseStatus :: TpReceiptAddDataResponse +Hs.fromString String +"TpReceiptAddDataResponse") + +instance HsProtobuf.HasDefault TpReceiptAddDataResponse + +instance HsProtobuf.Message TpReceiptAddDataResponse where + encodeMessage :: FieldNumber -> TpReceiptAddDataResponse -> MessageBuilder +encodeMessage FieldNumber +_ + TpReceiptAddDataResponse{tpReceiptAddDataResponseStatus :: TpReceiptAddDataResponse -> Enumerated TpReceiptAddDataResponse_Status tpReceiptAddDataResponseStatus = - Enumerated TpReceiptAddDataResponse_Status -tpReceiptAddDataResponseStatus} - = ([MessageBuilder] -> MessageBuilder + Enumerated TpReceiptAddDataResponse_Status +tpReceiptAddDataResponseStatus} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber +Hs.mconcat + [(FieldNumber -> Enumerated TpReceiptAddDataResponse_Status -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - Enumerated TpReceiptAddDataResponse_Status -tpReceiptAddDataResponseStatus)]) - decodeMessage :: FieldNumber -> Parser RawMessage TpReceiptAddDataResponse -decodeMessage _ - = ((Enumerated TpReceiptAddDataResponse_Status +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + Enumerated TpReceiptAddDataResponse_Status +tpReceiptAddDataResponseStatus)]) + decodeMessage :: FieldNumber -> Parser RawMessage TpReceiptAddDataResponse +decodeMessage FieldNumber +_ + = ((Enumerated TpReceiptAddDataResponse_Status -> TpReceiptAddDataResponse) -> Parser RawMessage (Enumerated TpReceiptAddDataResponse_Status -> TpReceiptAddDataResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated TpReceiptAddDataResponse_Status +Hs.pure Enumerated TpReceiptAddDataResponse_Status -> TpReceiptAddDataResponse TpReceiptAddDataResponse) Parser RawMessage @@ -3732,76 +3983,85 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Parser RawMessage (Enumerated TpReceiptAddDataResponse_Status) -> Parser RawMessage TpReceiptAddDataResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField (Enumerated TpReceiptAddDataResponse_Status) +<*> + (Parser RawField (Enumerated TpReceiptAddDataResponse_Status) -> FieldNumber -> Parser RawMessage (Enumerated TpReceiptAddDataResponse_Status) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (Enumerated TpReceiptAddDataResponse_Status) +HsProtobuf.at Parser RawField (Enumerated TpReceiptAddDataResponse_Status) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2)) - dotProto :: Proxy# TpReceiptAddDataResponse -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2)) + dotProto :: Proxy# TpReceiptAddDataResponse -> [DotProtoField] +dotProto Proxy# TpReceiptAddDataResponse +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "Status"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "status") - [] - "")] - -instance HsJSONPB.ToJSONPB TpReceiptAddDataResponse where - toJSONPB :: TpReceiptAddDataResponse -> Options -> Value -toJSONPB (TpReceiptAddDataResponse f2 :: Enumerated TpReceiptAddDataResponse_Status -f2) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["status" Text +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"Status"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"status") + [] + String +"")] + +instance HsJSONPB.ToJSONPB TpReceiptAddDataResponse where + toJSONPB :: TpReceiptAddDataResponse -> Options -> Value +toJSONPB (TpReceiptAddDataResponse Enumerated TpReceiptAddDataResponse_Status +f2) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"status" Text -> Enumerated TpReceiptAddDataResponse_Status -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated TpReceiptAddDataResponse_Status -f2]) - toEncodingPB :: TpReceiptAddDataResponse -> Options -> Encoding -toEncodingPB (TpReceiptAddDataResponse f2 :: Enumerated TpReceiptAddDataResponse_Status -f2) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["status" Text +.= Enumerated TpReceiptAddDataResponse_Status +f2]) + toEncodingPB :: TpReceiptAddDataResponse -> Options -> Encoding +toEncodingPB (TpReceiptAddDataResponse Enumerated TpReceiptAddDataResponse_Status +f2) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"status" Text -> Enumerated TpReceiptAddDataResponse_Status -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated TpReceiptAddDataResponse_Status -f2]) - -instance HsJSONPB.FromJSONPB TpReceiptAddDataResponse where - parseJSONPB :: Value -> Parser TpReceiptAddDataResponse -parseJSONPB - = (String +.= Enumerated TpReceiptAddDataResponse_Status +f2]) + +instance HsJSONPB.FromJSONPB TpReceiptAddDataResponse where + parseJSONPB :: Value -> Parser TpReceiptAddDataResponse +parseJSONPB + = (String -> (Object -> Parser TpReceiptAddDataResponse) -> Value -> Parser TpReceiptAddDataResponse forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "TpReceiptAddDataResponse" - (\ obj :: Object -obj -> ((Enumerated TpReceiptAddDataResponse_Status +HsJSONPB.withObject String +"TpReceiptAddDataResponse" + (\ Object +obj -> ((Enumerated TpReceiptAddDataResponse_Status -> TpReceiptAddDataResponse) -> Parser (Enumerated TpReceiptAddDataResponse_Status -> TpReceiptAddDataResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated TpReceiptAddDataResponse_Status +Hs.pure Enumerated TpReceiptAddDataResponse_Status -> TpReceiptAddDataResponse TpReceiptAddDataResponse) Parser (Enumerated TpReceiptAddDataResponse_Status @@ -3809,60 +4069,62 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Parser (Enumerated TpReceiptAddDataResponse_Status) -> Parser TpReceiptAddDataResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object +<*> Object +obj Object -> Text -> Parser (Enumerated TpReceiptAddDataResponse_Status) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "status")) - -instance HsJSONPB.ToJSON TpReceiptAddDataResponse where - toJSON :: TpReceiptAddDataResponse -> Value -toJSON = TpReceiptAddDataResponse -> Value +.: Text +"status")) + +instance HsJSONPB.ToJSON TpReceiptAddDataResponse where + toJSON :: TpReceiptAddDataResponse -> Value +toJSON = TpReceiptAddDataResponse -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: TpReceiptAddDataResponse -> Encoding -toEncoding = TpReceiptAddDataResponse -> Encoding +HsJSONPB.toAesonValue + toEncoding :: TpReceiptAddDataResponse -> Encoding +toEncoding = TpReceiptAddDataResponse -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON TpReceiptAddDataResponse where - parseJSON :: Value -> Parser TpReceiptAddDataResponse -parseJSON = Value -> Parser TpReceiptAddDataResponse +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON TpReceiptAddDataResponse where + parseJSON :: Value -> Parser TpReceiptAddDataResponse +parseJSON = Value -> Parser TpReceiptAddDataResponse forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema TpReceiptAddDataResponse where - declareNamedSchema :: Proxy TpReceiptAddDataResponse +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema TpReceiptAddDataResponse where + declareNamedSchema :: Proxy TpReceiptAddDataResponse -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_status :: Proxy +declareNamedSchema Proxy TpReceiptAddDataResponse +_ + = do let declare_status :: Proxy (OverrideToSchema (Enumerated TpReceiptAddDataResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status = Proxy +declare_status = Proxy (OverrideToSchema (Enumerated TpReceiptAddDataResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -tpReceiptAddDataResponseStatus <- Proxy +HsJSONPB.declareSchemaRef + Referenced Schema +tpReceiptAddDataResponseStatus <- Proxy (OverrideToSchema (Enumerated TpReceiptAddDataResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status Proxy +declare_status Proxy (OverrideToSchema (Enumerated TpReceiptAddDataResponse_Status)) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy TpReceiptAddDataResponse +Proxy.Proxy + let Proxy TpReceiptAddDataResponse _ = (Enumerated TpReceiptAddDataResponse_Status -> TpReceiptAddDataResponse) -> Proxy (Enumerated TpReceiptAddDataResponse_Status -> TpReceiptAddDataResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated TpReceiptAddDataResponse_Status +Hs.pure Enumerated TpReceiptAddDataResponse_Status -> TpReceiptAddDataResponse TpReceiptAddDataResponse Proxy (Enumerated TpReceiptAddDataResponse_Status @@ -3870,54 +4132,56 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Proxy (Enumerated TpReceiptAddDataResponse_Status) -> Proxy TpReceiptAddDataResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy +<*> + (Proxy (OverrideToSchema (Enumerated TpReceiptAddDataResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Enumerated TpReceiptAddDataResponse_Status) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy +HsJSONPB.asProxy Proxy (OverrideToSchema (Enumerated TpReceiptAddDataResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_status + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "TpReceiptAddDataResponse", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"TpReceiptAddDataResponse", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("status", - Referenced Schema -tpReceiptAddDataResponseStatus)]}}) - -data TpReceiptAddDataResponse_Status = TpReceiptAddDataResponse_StatusSTATUS_UNSET - | TpReceiptAddDataResponse_StatusOK - | TpReceiptAddDataResponse_StatusERROR - deriving (Int -> TpReceiptAddDataResponse_Status -> ShowS +HsJSONPB.insOrdFromList + [(Text +"status", + Referenced Schema +tpReceiptAddDataResponseStatus)]}}) + +data TpReceiptAddDataResponse_Status = TpReceiptAddDataResponse_StatusSTATUS_UNSET + | TpReceiptAddDataResponse_StatusOK + | TpReceiptAddDataResponse_StatusERROR + deriving (Int -> TpReceiptAddDataResponse_Status -> ShowS [TpReceiptAddDataResponse_Status] -> ShowS TpReceiptAddDataResponse_Status -> String (Int -> TpReceiptAddDataResponse_Status -> ShowS) @@ -3932,7 +4196,7 @@ show :: TpReceiptAddDataResponse_Status -> String $cshow :: TpReceiptAddDataResponse_Status -> String showsPrec :: Int -> TpReceiptAddDataResponse_Status -> ShowS $cshowsPrec :: Int -> TpReceiptAddDataResponse_Status -> ShowS -Hs.Show, TpReceiptAddDataResponse_Status +Hs.Show, TpReceiptAddDataResponse_Status -> TpReceiptAddDataResponse_Status -> Bool (TpReceiptAddDataResponse_Status -> TpReceiptAddDataResponse_Status -> Bool) @@ -3948,7 +4212,7 @@ $c/= :: TpReceiptAddDataResponse_Status -> TpReceiptAddDataResponse_Status -> Bool $c== :: TpReceiptAddDataResponse_Status -> TpReceiptAddDataResponse_Status -> Bool -Hs.Eq, (forall x. +Hs.Eq, (forall x. TpReceiptAddDataResponse_Status -> Rep TpReceiptAddDataResponse_Status x) -> (forall x. @@ -3969,142 +4233,157 @@ Rep TpReceiptAddDataResponse_Status x $cfrom :: forall x. TpReceiptAddDataResponse_Status -> Rep TpReceiptAddDataResponse_Status x -Hs.Generic, TpReceiptAddDataResponse_Status -> () +Hs.Generic, TpReceiptAddDataResponse_Status -> () (TpReceiptAddDataResponse_Status -> ()) -> NFData TpReceiptAddDataResponse_Status forall a. (a -> ()) -> NFData a rnf :: TpReceiptAddDataResponse_Status -> () $crnf :: TpReceiptAddDataResponse_Status -> () -Hs.NFData) - -instance HsProtobuf.Named TpReceiptAddDataResponse_Status where - nameOf :: Proxy# TpReceiptAddDataResponse_Status -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named TpReceiptAddDataResponse_Status where + nameOf :: Proxy# TpReceiptAddDataResponse_Status -> string +nameOf Proxy# TpReceiptAddDataResponse_Status +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "TpReceiptAddDataResponse_Status") - -instance HsProtobuf.HasDefault TpReceiptAddDataResponse_Status - -instance Hs.Bounded TpReceiptAddDataResponse_Status where - minBound :: TpReceiptAddDataResponse_Status -minBound = TpReceiptAddDataResponse_Status +Hs.fromString String +"TpReceiptAddDataResponse_Status") + +instance HsProtobuf.HasDefault TpReceiptAddDataResponse_Status + +instance Hs.Bounded TpReceiptAddDataResponse_Status where + minBound :: TpReceiptAddDataResponse_Status +minBound = TpReceiptAddDataResponse_Status TpReceiptAddDataResponse_StatusSTATUS_UNSET - maxBound :: TpReceiptAddDataResponse_Status -maxBound = TpReceiptAddDataResponse_Status + maxBound :: TpReceiptAddDataResponse_Status +maxBound = TpReceiptAddDataResponse_Status TpReceiptAddDataResponse_StatusERROR - -instance Hs.Ord TpReceiptAddDataResponse_Status where - compare :: TpReceiptAddDataResponse_Status + +instance Hs.Ord TpReceiptAddDataResponse_Status where + compare :: TpReceiptAddDataResponse_Status -> TpReceiptAddDataResponse_Status -> Ordering -compare x :: TpReceiptAddDataResponse_Status -x y :: TpReceiptAddDataResponse_Status -y - = Int32 -> Int32 -> Ordering +compare TpReceiptAddDataResponse_Status +x TpReceiptAddDataResponse_Status +y + = Int32 -> Int32 -> Ordering forall a. Ord a => a -> a -> Ordering -Hs.compare (TpReceiptAddDataResponse_Status -> Int32 +Hs.compare (TpReceiptAddDataResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum TpReceiptAddDataResponse_Status -x) - (TpReceiptAddDataResponse_Status -> Int32 +HsProtobuf.fromProtoEnum TpReceiptAddDataResponse_Status +x) + (TpReceiptAddDataResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum TpReceiptAddDataResponse_Status -y) - -instance HsProtobuf.ProtoEnum TpReceiptAddDataResponse_Status where - toProtoEnumMay :: Int32 -> Maybe TpReceiptAddDataResponse_Status -toProtoEnumMay 0 - = TpReceiptAddDataResponse_Status +HsProtobuf.fromProtoEnum TpReceiptAddDataResponse_Status +y) + +instance HsProtobuf.ProtoEnum TpReceiptAddDataResponse_Status where + toProtoEnumMay :: Int32 -> Maybe TpReceiptAddDataResponse_Status +toProtoEnumMay Int32 +0 + = TpReceiptAddDataResponse_Status -> Maybe TpReceiptAddDataResponse_Status forall a. a -> Maybe a -Hs.Just TpReceiptAddDataResponse_Status +Hs.Just TpReceiptAddDataResponse_Status TpReceiptAddDataResponse_StatusSTATUS_UNSET - toProtoEnumMay 1 = TpReceiptAddDataResponse_Status + toProtoEnumMay Int32 +1 = TpReceiptAddDataResponse_Status -> Maybe TpReceiptAddDataResponse_Status forall a. a -> Maybe a -Hs.Just TpReceiptAddDataResponse_Status +Hs.Just TpReceiptAddDataResponse_Status TpReceiptAddDataResponse_StatusOK - toProtoEnumMay 2 = TpReceiptAddDataResponse_Status + toProtoEnumMay Int32 +2 = TpReceiptAddDataResponse_Status -> Maybe TpReceiptAddDataResponse_Status forall a. a -> Maybe a -Hs.Just TpReceiptAddDataResponse_Status +Hs.Just TpReceiptAddDataResponse_Status TpReceiptAddDataResponse_StatusERROR - toProtoEnumMay _ = Maybe TpReceiptAddDataResponse_Status + toProtoEnumMay Int32 +_ = Maybe TpReceiptAddDataResponse_Status forall a. Maybe a -Hs.Nothing - fromProtoEnum :: TpReceiptAddDataResponse_Status -> Int32 -fromProtoEnum (TpReceiptAddDataResponse_Status -TpReceiptAddDataResponse_StatusSTATUS_UNSET) = 0 - fromProtoEnum (TpReceiptAddDataResponse_Status -TpReceiptAddDataResponse_StatusOK) = 1 - fromProtoEnum (TpReceiptAddDataResponse_Status -TpReceiptAddDataResponse_StatusERROR) = 2 - -instance HsJSONPB.ToJSONPB TpReceiptAddDataResponse_Status where - toJSONPB :: TpReceiptAddDataResponse_Status -> Options -> Value -toJSONPB x :: TpReceiptAddDataResponse_Status -x _ = TpReceiptAddDataResponse_Status -> Value +Hs.Nothing + fromProtoEnum :: TpReceiptAddDataResponse_Status -> Int32 +fromProtoEnum (TpReceiptAddDataResponse_Status +TpReceiptAddDataResponse_StatusSTATUS_UNSET) = Int32 +0 + fromProtoEnum (TpReceiptAddDataResponse_Status +TpReceiptAddDataResponse_StatusOK) = Int32 +1 + fromProtoEnum (TpReceiptAddDataResponse_Status +TpReceiptAddDataResponse_StatusERROR) = Int32 +2 + +instance HsJSONPB.ToJSONPB TpReceiptAddDataResponse_Status where + toJSONPB :: TpReceiptAddDataResponse_Status -> Options -> Value +toJSONPB TpReceiptAddDataResponse_Status +x Options +_ = TpReceiptAddDataResponse_Status -> Value forall a. (Named a, Show a) => a -> Value -HsJSONPB.enumFieldString TpReceiptAddDataResponse_Status -x - toEncodingPB :: TpReceiptAddDataResponse_Status -> Options -> Encoding -toEncodingPB x :: TpReceiptAddDataResponse_Status -x _ = TpReceiptAddDataResponse_Status -> Encoding +HsJSONPB.enumFieldString TpReceiptAddDataResponse_Status +x + toEncodingPB :: TpReceiptAddDataResponse_Status -> Options -> Encoding +toEncodingPB TpReceiptAddDataResponse_Status +x Options +_ = TpReceiptAddDataResponse_Status -> Encoding forall a. (Named a, Show a) => a -> Encoding -HsJSONPB.enumFieldEncoding TpReceiptAddDataResponse_Status -x - -instance HsJSONPB.FromJSONPB TpReceiptAddDataResponse_Status where - parseJSONPB :: Value -> Parser TpReceiptAddDataResponse_Status -parseJSONPB (HsJSONPB.String "STATUS_UNSET") - = TpReceiptAddDataResponse_Status +HsJSONPB.enumFieldEncoding TpReceiptAddDataResponse_Status +x + +instance HsJSONPB.FromJSONPB TpReceiptAddDataResponse_Status where + parseJSONPB :: Value -> Parser TpReceiptAddDataResponse_Status +parseJSONPB (HsJSONPB.String Text +"STATUS_UNSET") + = TpReceiptAddDataResponse_Status -> Parser TpReceiptAddDataResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure TpReceiptAddDataResponse_Status +Hs.pure TpReceiptAddDataResponse_Status TpReceiptAddDataResponse_StatusSTATUS_UNSET - parseJSONPB (HsJSONPB.String "OK") - = TpReceiptAddDataResponse_Status + parseJSONPB (HsJSONPB.String Text +"OK") + = TpReceiptAddDataResponse_Status -> Parser TpReceiptAddDataResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure TpReceiptAddDataResponse_Status +Hs.pure TpReceiptAddDataResponse_Status TpReceiptAddDataResponse_StatusOK - parseJSONPB (HsJSONPB.String "ERROR") - = TpReceiptAddDataResponse_Status + parseJSONPB (HsJSONPB.String Text +"ERROR") + = TpReceiptAddDataResponse_Status -> Parser TpReceiptAddDataResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure TpReceiptAddDataResponse_Status +Hs.pure TpReceiptAddDataResponse_Status TpReceiptAddDataResponse_StatusERROR - parseJSONPB v :: Value -v - = (String -> Value -> Parser TpReceiptAddDataResponse_Status + parseJSONPB Value +v + = (String -> Value -> Parser TpReceiptAddDataResponse_Status forall a. String -> Value -> Parser a -HsJSONPB.typeMismatch "TpReceiptAddDataResponse_Status" Value -v) - -instance HsJSONPB.ToJSON TpReceiptAddDataResponse_Status where - toJSON :: TpReceiptAddDataResponse_Status -> Value -toJSON = TpReceiptAddDataResponse_Status -> Value +HsJSONPB.typeMismatch String +"TpReceiptAddDataResponse_Status" Value +v) + +instance HsJSONPB.ToJSON TpReceiptAddDataResponse_Status where + toJSON :: TpReceiptAddDataResponse_Status -> Value +toJSON = TpReceiptAddDataResponse_Status -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: TpReceiptAddDataResponse_Status -> Encoding -toEncoding = TpReceiptAddDataResponse_Status -> Encoding +HsJSONPB.toAesonValue + toEncoding :: TpReceiptAddDataResponse_Status -> Encoding +toEncoding = TpReceiptAddDataResponse_Status -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON TpReceiptAddDataResponse_Status where - parseJSON :: Value -> Parser TpReceiptAddDataResponse_Status -parseJSON = Value -> Parser TpReceiptAddDataResponse_Status +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON TpReceiptAddDataResponse_Status where + parseJSON :: Value -> Parser TpReceiptAddDataResponse_Status +parseJSON = Value -> Parser TpReceiptAddDataResponse_Status forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsProtobuf.Finite TpReceiptAddDataResponse_Status - -data TpEventAddRequest = TpEventAddRequest{TpEventAddRequest -> Text +HsJSONPB.parseJSONPB + +instance HsProtobuf.Finite TpReceiptAddDataResponse_Status + +data TpEventAddRequest = TpEventAddRequest{TpEventAddRequest -> Text tpEventAddRequestContextId - :: Hs.Text, - TpEventAddRequest -> Maybe Event + :: Hs.Text, + TpEventAddRequest -> Maybe Event tpEventAddRequestEvent :: - Hs.Maybe Data.Sawtooth.Events.Event} - deriving (Int -> TpEventAddRequest -> ShowS + Hs.Maybe Data.Sawtooth.Events.Event} + deriving (Int -> TpEventAddRequest -> ShowS [TpEventAddRequest] -> ShowS TpEventAddRequest -> String (Int -> TpEventAddRequest -> ShowS) @@ -4119,7 +4398,7 @@ show :: TpEventAddRequest -> String $cshow :: TpEventAddRequest -> String showsPrec :: Int -> TpEventAddRequest -> ShowS $cshowsPrec :: Int -> TpEventAddRequest -> ShowS -Hs.Show, TpEventAddRequest -> TpEventAddRequest -> Bool +Hs.Show, TpEventAddRequest -> TpEventAddRequest -> Bool (TpEventAddRequest -> TpEventAddRequest -> Bool) -> (TpEventAddRequest -> TpEventAddRequest -> Bool) -> Eq TpEventAddRequest @@ -4128,9 +4407,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: TpEventAddRequest -> TpEventAddRequest -> Bool == :: TpEventAddRequest -> TpEventAddRequest -> Bool $c== :: TpEventAddRequest -> TpEventAddRequest -> Bool -Hs.Eq, Eq TpEventAddRequest -Eq TpEventAddRequest => -(TpEventAddRequest -> TpEventAddRequest -> Ordering) +Hs.Eq, Eq TpEventAddRequest +Eq TpEventAddRequest +-> (TpEventAddRequest -> TpEventAddRequest -> Ordering) -> (TpEventAddRequest -> TpEventAddRequest -> Bool) -> (TpEventAddRequest -> TpEventAddRequest -> Bool) -> (TpEventAddRequest -> TpEventAddRequest -> Bool) @@ -4142,8 +4421,8 @@ TpEventAddRequest -> TpEventAddRequest -> Bool TpEventAddRequest -> TpEventAddRequest -> Ordering TpEventAddRequest -> TpEventAddRequest -> TpEventAddRequest forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -4166,7 +4445,7 @@ $c< :: TpEventAddRequest -> TpEventAddRequest -> Bool compare :: TpEventAddRequest -> TpEventAddRequest -> Ordering $ccompare :: TpEventAddRequest -> TpEventAddRequest -> Ordering $cp1Ord :: Eq TpEventAddRequest -Hs.Ord, (forall x. TpEventAddRequest -> Rep TpEventAddRequest x) +Hs.Ord, (forall x. TpEventAddRequest -> Rep TpEventAddRequest x) -> (forall x. Rep TpEventAddRequest x -> TpEventAddRequest) -> Generic TpEventAddRequest forall x. Rep TpEventAddRequest x -> TpEventAddRequest @@ -4175,301 +4454,326 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep TpEventAddRequest x -> TpEventAddRequest $cfrom :: forall x. TpEventAddRequest -> Rep TpEventAddRequest x -Hs.Generic, TpEventAddRequest -> () +Hs.Generic, TpEventAddRequest -> () (TpEventAddRequest -> ()) -> NFData TpEventAddRequest forall a. (a -> ()) -> NFData a rnf :: TpEventAddRequest -> () $crnf :: TpEventAddRequest -> () -Hs.NFData) - -instance HsProtobuf.Named TpEventAddRequest where - nameOf :: Proxy# TpEventAddRequest -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named TpEventAddRequest where + nameOf :: Proxy# TpEventAddRequest -> string +nameOf Proxy# TpEventAddRequest +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "TpEventAddRequest") - -instance HsProtobuf.HasDefault TpEventAddRequest - -instance HsProtobuf.Message TpEventAddRequest where - encodeMessage :: FieldNumber -> TpEventAddRequest -> MessageBuilder -encodeMessage _ - TpEventAddRequest{tpEventAddRequestContextId :: TpEventAddRequest -> Text +Hs.fromString String +"TpEventAddRequest") + +instance HsProtobuf.HasDefault TpEventAddRequest + +instance HsProtobuf.Message TpEventAddRequest where + encodeMessage :: FieldNumber -> TpEventAddRequest -> MessageBuilder +encodeMessage FieldNumber +_ + TpEventAddRequest{tpEventAddRequestContextId :: TpEventAddRequest -> Text tpEventAddRequestContextId = - Text -tpEventAddRequestContextId, - tpEventAddRequestEvent :: TpEventAddRequest -> Maybe Event -tpEventAddRequestEvent = Maybe Event -tpEventAddRequestEvent} - = ([MessageBuilder] -> MessageBuilder + Text +tpEventAddRequestContextId, + tpEventAddRequestEvent :: TpEventAddRequest -> Maybe Event +tpEventAddRequestEvent = Maybe Event +tpEventAddRequestEvent} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> Text -> MessageBuilder +Hs.mconcat + [(FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Text -tpEventAddRequestContextId), - (FieldNumber -> Nested Event -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Text +tpEventAddRequestContextId), + (FieldNumber -> Nested Event -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (Maybe Event -> Nested Event -forall a b. Coercible a b => a -> b -Hs.coerce @(Hs.Maybe Data.Sawtooth.Events.Event) - @(HsProtobuf.Nested Data.Sawtooth.Events.Event) - Maybe Event -tpEventAddRequestEvent))]) - decodeMessage :: FieldNumber -> Parser RawMessage TpEventAddRequest -decodeMessage _ - = ((Text -> Maybe Event -> TpEventAddRequest) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (Maybe Event -> Nested Event +Hs.coerce @(Hs.Maybe Data.Sawtooth.Events.Event) + @(HsProtobuf.Nested Data.Sawtooth.Events.Event) + Maybe Event +tpEventAddRequestEvent))]) + decodeMessage :: FieldNumber -> Parser RawMessage TpEventAddRequest +decodeMessage FieldNumber +_ + = ((Text -> Maybe Event -> TpEventAddRequest) -> Parser RawMessage (Text -> Maybe Event -> TpEventAddRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> Maybe Event -> TpEventAddRequest +Hs.pure Text -> Maybe Event -> TpEventAddRequest TpEventAddRequest) Parser RawMessage (Text -> Maybe Event -> TpEventAddRequest) -> Parser RawMessage Text -> Parser RawMessage (Maybe Event -> TpEventAddRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser RawMessage (Maybe Event -> TpEventAddRequest) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (Maybe Event -> TpEventAddRequest) -> Parser RawMessage (Maybe Event) -> Parser RawMessage TpEventAddRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (Nested Event) -> Parser RawMessage (Maybe Event) -forall a b. Coercible a b => a -> b -Hs.coerce @(_ (HsProtobuf.Nested Data.Sawtooth.Events.Event)) - @(_ (Hs.Maybe Data.Sawtooth.Events.Event)) - (Parser RawField (Nested Event) +<*> + (Parser RawMessage (Nested Event) -> Parser RawMessage (Maybe Event) +Hs.coerce @(_ (HsProtobuf.Nested Data.Sawtooth.Events.Event)) + @(_ (Hs.Maybe Data.Sawtooth.Events.Event)) + (Parser RawField (Nested Event) -> FieldNumber -> Parser RawMessage (Nested Event) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (Nested Event) +HsProtobuf.at Parser RawField (Nested Event) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2))) - dotProto :: Proxy# TpEventAddRequest -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2))) + dotProto :: Proxy# TpEventAddRequest -> [DotProtoField] +dotProto Proxy# TpEventAddRequest +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "context_id") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"context_id") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "Event"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "event") - [] - "")] - -instance HsJSONPB.ToJSONPB TpEventAddRequest where - toJSONPB :: TpEventAddRequest -> Options -> Value -toJSONPB (TpEventAddRequest f1 :: Text -f1 f2 :: Maybe Event -f2) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["context_id" Text -> Text -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"Event"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"event") + [] + String +"")] + +instance HsJSONPB.ToJSONPB TpEventAddRequest where + toJSONPB :: TpEventAddRequest -> Options -> Value +toJSONPB (TpEventAddRequest Text +f1 Maybe Event +f2) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"context_id" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1, "event" Text -> Maybe Event -> Options -> [Pair] +.= Text +f1, Text +"event" Text -> Maybe Event -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Maybe Event -f2]) - toEncodingPB :: TpEventAddRequest -> Options -> Encoding -toEncodingPB (TpEventAddRequest f1 :: Text -f1 f2 :: Maybe Event -f2) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["context_id" Text -> Text -> Options -> Series +.= Maybe Event +f2]) + toEncodingPB :: TpEventAddRequest -> Options -> Encoding +toEncodingPB (TpEventAddRequest Text +f1 Maybe Event +f2) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"context_id" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1, "event" Text -> Maybe Event -> Options -> Series +.= Text +f1, Text +"event" Text -> Maybe Event -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Maybe Event -f2]) - -instance HsJSONPB.FromJSONPB TpEventAddRequest where - parseJSONPB :: Value -> Parser TpEventAddRequest -parseJSONPB - = (String +.= Maybe Event +f2]) + +instance HsJSONPB.FromJSONPB TpEventAddRequest where + parseJSONPB :: Value -> Parser TpEventAddRequest +parseJSONPB + = (String -> (Object -> Parser TpEventAddRequest) -> Value -> Parser TpEventAddRequest forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "TpEventAddRequest" - (\ obj :: Object -obj -> - ((Text -> Maybe Event -> TpEventAddRequest) +HsJSONPB.withObject String +"TpEventAddRequest" + (\ Object +obj -> + ((Text -> Maybe Event -> TpEventAddRequest) -> Parser (Text -> Maybe Event -> TpEventAddRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> Maybe Event -> TpEventAddRequest +Hs.pure Text -> Maybe Event -> TpEventAddRequest TpEventAddRequest) Parser (Text -> Maybe Event -> TpEventAddRequest) -> Parser Text -> Parser (Maybe Event -> TpEventAddRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Text +<*> Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "context_id" Parser (Maybe Event -> TpEventAddRequest) +.: Text +"context_id" Parser (Maybe Event -> TpEventAddRequest) -> Parser (Maybe Event) -> Parser TpEventAddRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser (Maybe Event) +<*> + Object +obj Object -> Text -> Parser (Maybe Event) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "event")) - -instance HsJSONPB.ToJSON TpEventAddRequest where - toJSON :: TpEventAddRequest -> Value -toJSON = TpEventAddRequest -> Value +.: Text +"event")) + +instance HsJSONPB.ToJSON TpEventAddRequest where + toJSON :: TpEventAddRequest -> Value +toJSON = TpEventAddRequest -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: TpEventAddRequest -> Encoding -toEncoding = TpEventAddRequest -> Encoding +HsJSONPB.toAesonValue + toEncoding :: TpEventAddRequest -> Encoding +toEncoding = TpEventAddRequest -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON TpEventAddRequest where - parseJSON :: Value -> Parser TpEventAddRequest -parseJSON = Value -> Parser TpEventAddRequest +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON TpEventAddRequest where + parseJSON :: Value -> Parser TpEventAddRequest +parseJSON = Value -> Parser TpEventAddRequest forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema TpEventAddRequest where - declareNamedSchema :: Proxy TpEventAddRequest -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_context_id :: Proxy (OverrideToSchema Text) +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema TpEventAddRequest where + declareNamedSchema :: Proxy TpEventAddRequest -> Declare (Definitions Schema) NamedSchema +declareNamedSchema Proxy TpEventAddRequest +_ + = do let declare_context_id :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_context_id = Proxy (OverrideToSchema Text) +declare_context_id = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -tpEventAddRequestContextId <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +tpEventAddRequestContextId <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_context_id Proxy (OverrideToSchema Text) +declare_context_id Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_event :: Proxy (OverrideToSchema (Maybe Event)) +Proxy.Proxy + let declare_event :: Proxy (OverrideToSchema (Maybe Event)) -> Declare (Definitions Schema) (Referenced Schema) -declare_event = Proxy (OverrideToSchema (Maybe Event)) +declare_event = Proxy (OverrideToSchema (Maybe Event)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -tpEventAddRequestEvent <- Proxy (OverrideToSchema (Maybe Event)) +HsJSONPB.declareSchemaRef + Referenced Schema +tpEventAddRequestEvent <- Proxy (OverrideToSchema (Maybe Event)) -> Declare (Definitions Schema) (Referenced Schema) -declare_event Proxy (OverrideToSchema (Maybe Event)) +declare_event Proxy (OverrideToSchema (Maybe Event)) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy TpEventAddRequest +Proxy.Proxy + let Proxy TpEventAddRequest _ = (Text -> Maybe Event -> TpEventAddRequest) -> Proxy (Text -> Maybe Event -> TpEventAddRequest) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> Maybe Event -> TpEventAddRequest +Hs.pure Text -> Maybe Event -> TpEventAddRequest TpEventAddRequest Proxy (Text -> Maybe Event -> TpEventAddRequest) -> Proxy Text -> Proxy (Maybe Event -> TpEventAddRequest) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema Text) +<*> + (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_context_id - Proxy (Maybe Event -> TpEventAddRequest) +declare_context_id + Proxy (Maybe Event -> TpEventAddRequest) -> Proxy (Maybe Event) -> Proxy TpEventAddRequest forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema (Maybe Event)) +<*> (Proxy (OverrideToSchema (Maybe Event)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Maybe Event) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Maybe Event)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Maybe Event)) -> Declare (Definitions Schema) (Referenced Schema) -declare_event - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_event + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "TpEventAddRequest", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"TpEventAddRequest", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("context_id", Referenced Schema -tpEventAddRequestContextId), - ("event", Referenced Schema -tpEventAddRequestEvent)]}}) - -newtype TpEventAddResponse = TpEventAddResponse{TpEventAddResponse -> Enumerated TpEventAddResponse_Status +HsJSONPB.insOrdFromList + [(Text +"context_id", Referenced Schema +tpEventAddRequestContextId), + (Text +"event", Referenced Schema +tpEventAddRequestEvent)]}}) + +newtype TpEventAddResponse = TpEventAddResponse{TpEventAddResponse -> Enumerated TpEventAddResponse_Status tpEventAddResponseStatus - :: - HsProtobuf.Enumerated - Data.Sawtooth.StateContext.TpEventAddResponse_Status} - deriving (Int -> TpEventAddResponse -> ShowS + :: + HsProtobuf.Enumerated + Data.Sawtooth.StateContext.TpEventAddResponse_Status} + deriving (Int -> TpEventAddResponse -> ShowS [TpEventAddResponse] -> ShowS TpEventAddResponse -> String (Int -> TpEventAddResponse -> ShowS) @@ -4484,7 +4788,7 @@ show :: TpEventAddResponse -> String $cshow :: TpEventAddResponse -> String showsPrec :: Int -> TpEventAddResponse -> ShowS $cshowsPrec :: Int -> TpEventAddResponse -> ShowS -Hs.Show, TpEventAddResponse -> TpEventAddResponse -> Bool +Hs.Show, TpEventAddResponse -> TpEventAddResponse -> Bool (TpEventAddResponse -> TpEventAddResponse -> Bool) -> (TpEventAddResponse -> TpEventAddResponse -> Bool) -> Eq TpEventAddResponse @@ -4493,9 +4797,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: TpEventAddResponse -> TpEventAddResponse -> Bool == :: TpEventAddResponse -> TpEventAddResponse -> Bool $c== :: TpEventAddResponse -> TpEventAddResponse -> Bool -Hs.Eq, Eq TpEventAddResponse -Eq TpEventAddResponse => -(TpEventAddResponse -> TpEventAddResponse -> Ordering) +Hs.Eq, Eq TpEventAddResponse +Eq TpEventAddResponse +-> (TpEventAddResponse -> TpEventAddResponse -> Ordering) -> (TpEventAddResponse -> TpEventAddResponse -> Bool) -> (TpEventAddResponse -> TpEventAddResponse -> Bool) -> (TpEventAddResponse -> TpEventAddResponse -> Bool) @@ -4507,8 +4811,8 @@ TpEventAddResponse -> TpEventAddResponse -> Bool TpEventAddResponse -> TpEventAddResponse -> Ordering TpEventAddResponse -> TpEventAddResponse -> TpEventAddResponse forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -4531,7 +4835,7 @@ $c< :: TpEventAddResponse -> TpEventAddResponse -> Bool compare :: TpEventAddResponse -> TpEventAddResponse -> Ordering $ccompare :: TpEventAddResponse -> TpEventAddResponse -> Ordering $cp1Ord :: Eq TpEventAddResponse -Hs.Ord, (forall x. TpEventAddResponse -> Rep TpEventAddResponse x) +Hs.Ord, (forall x. TpEventAddResponse -> Rep TpEventAddResponse x) -> (forall x. Rep TpEventAddResponse x -> TpEventAddResponse) -> Generic TpEventAddResponse forall x. Rep TpEventAddResponse x -> TpEventAddResponse @@ -4540,218 +4844,236 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep TpEventAddResponse x -> TpEventAddResponse $cfrom :: forall x. TpEventAddResponse -> Rep TpEventAddResponse x -Hs.Generic, TpEventAddResponse -> () +Hs.Generic, TpEventAddResponse -> () (TpEventAddResponse -> ()) -> NFData TpEventAddResponse forall a. (a -> ()) -> NFData a rnf :: TpEventAddResponse -> () $crnf :: TpEventAddResponse -> () -Hs.NFData) - -instance HsProtobuf.Named TpEventAddResponse where - nameOf :: Proxy# TpEventAddResponse -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named TpEventAddResponse where + nameOf :: Proxy# TpEventAddResponse -> string +nameOf Proxy# TpEventAddResponse +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "TpEventAddResponse") - -instance HsProtobuf.HasDefault TpEventAddResponse - -instance HsProtobuf.Message TpEventAddResponse where - encodeMessage :: FieldNumber -> TpEventAddResponse -> MessageBuilder -encodeMessage _ - TpEventAddResponse{tpEventAddResponseStatus :: TpEventAddResponse -> Enumerated TpEventAddResponse_Status +Hs.fromString String +"TpEventAddResponse") + +instance HsProtobuf.HasDefault TpEventAddResponse + +instance HsProtobuf.Message TpEventAddResponse where + encodeMessage :: FieldNumber -> TpEventAddResponse -> MessageBuilder +encodeMessage FieldNumber +_ + TpEventAddResponse{tpEventAddResponseStatus :: TpEventAddResponse -> Enumerated TpEventAddResponse_Status tpEventAddResponseStatus = - Enumerated TpEventAddResponse_Status -tpEventAddResponseStatus} - = ([MessageBuilder] -> MessageBuilder + Enumerated TpEventAddResponse_Status +tpEventAddResponseStatus} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber +Hs.mconcat + [(FieldNumber -> Enumerated TpEventAddResponse_Status -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - Enumerated TpEventAddResponse_Status -tpEventAddResponseStatus)]) - decodeMessage :: FieldNumber -> Parser RawMessage TpEventAddResponse -decodeMessage _ - = ((Enumerated TpEventAddResponse_Status -> TpEventAddResponse) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + Enumerated TpEventAddResponse_Status +tpEventAddResponseStatus)]) + decodeMessage :: FieldNumber -> Parser RawMessage TpEventAddResponse +decodeMessage FieldNumber +_ + = ((Enumerated TpEventAddResponse_Status -> TpEventAddResponse) -> Parser RawMessage (Enumerated TpEventAddResponse_Status -> TpEventAddResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated TpEventAddResponse_Status -> TpEventAddResponse +Hs.pure Enumerated TpEventAddResponse_Status -> TpEventAddResponse TpEventAddResponse) Parser RawMessage (Enumerated TpEventAddResponse_Status -> TpEventAddResponse) -> Parser RawMessage (Enumerated TpEventAddResponse_Status) -> Parser RawMessage TpEventAddResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField (Enumerated TpEventAddResponse_Status) +<*> + (Parser RawField (Enumerated TpEventAddResponse_Status) -> FieldNumber -> Parser RawMessage (Enumerated TpEventAddResponse_Status) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (Enumerated TpEventAddResponse_Status) +HsProtobuf.at Parser RawField (Enumerated TpEventAddResponse_Status) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2)) - dotProto :: Proxy# TpEventAddResponse -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2)) + dotProto :: Proxy# TpEventAddResponse -> [DotProtoField] +dotProto Proxy# TpEventAddResponse +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "Status"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "status") - [] - "")] - -instance HsJSONPB.ToJSONPB TpEventAddResponse where - toJSONPB :: TpEventAddResponse -> Options -> Value -toJSONPB (TpEventAddResponse f2 :: Enumerated TpEventAddResponse_Status -f2) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["status" Text -> Enumerated TpEventAddResponse_Status -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"Status"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"status") + [] + String +"")] + +instance HsJSONPB.ToJSONPB TpEventAddResponse where + toJSONPB :: TpEventAddResponse -> Options -> Value +toJSONPB (TpEventAddResponse Enumerated TpEventAddResponse_Status +f2) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"status" Text -> Enumerated TpEventAddResponse_Status -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated TpEventAddResponse_Status -f2]) - toEncodingPB :: TpEventAddResponse -> Options -> Encoding -toEncodingPB (TpEventAddResponse f2 :: Enumerated TpEventAddResponse_Status -f2) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["status" Text -> Enumerated TpEventAddResponse_Status -> Options -> Series +.= Enumerated TpEventAddResponse_Status +f2]) + toEncodingPB :: TpEventAddResponse -> Options -> Encoding +toEncodingPB (TpEventAddResponse Enumerated TpEventAddResponse_Status +f2) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"status" Text -> Enumerated TpEventAddResponse_Status -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated TpEventAddResponse_Status -f2]) - -instance HsJSONPB.FromJSONPB TpEventAddResponse where - parseJSONPB :: Value -> Parser TpEventAddResponse -parseJSONPB - = (String +.= Enumerated TpEventAddResponse_Status +f2]) + +instance HsJSONPB.FromJSONPB TpEventAddResponse where + parseJSONPB :: Value -> Parser TpEventAddResponse +parseJSONPB + = (String -> (Object -> Parser TpEventAddResponse) -> Value -> Parser TpEventAddResponse forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "TpEventAddResponse" - (\ obj :: Object -obj -> ((Enumerated TpEventAddResponse_Status -> TpEventAddResponse) +HsJSONPB.withObject String +"TpEventAddResponse" + (\ Object +obj -> ((Enumerated TpEventAddResponse_Status -> TpEventAddResponse) -> Parser (Enumerated TpEventAddResponse_Status -> TpEventAddResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated TpEventAddResponse_Status -> TpEventAddResponse +Hs.pure Enumerated TpEventAddResponse_Status -> TpEventAddResponse TpEventAddResponse) Parser (Enumerated TpEventAddResponse_Status -> TpEventAddResponse) -> Parser (Enumerated TpEventAddResponse_Status) -> Parser TpEventAddResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser (Enumerated TpEventAddResponse_Status) +<*> Object +obj Object -> Text -> Parser (Enumerated TpEventAddResponse_Status) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "status")) - -instance HsJSONPB.ToJSON TpEventAddResponse where - toJSON :: TpEventAddResponse -> Value -toJSON = TpEventAddResponse -> Value +.: Text +"status")) + +instance HsJSONPB.ToJSON TpEventAddResponse where + toJSON :: TpEventAddResponse -> Value +toJSON = TpEventAddResponse -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: TpEventAddResponse -> Encoding -toEncoding = TpEventAddResponse -> Encoding +HsJSONPB.toAesonValue + toEncoding :: TpEventAddResponse -> Encoding +toEncoding = TpEventAddResponse -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON TpEventAddResponse where - parseJSON :: Value -> Parser TpEventAddResponse -parseJSON = Value -> Parser TpEventAddResponse +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON TpEventAddResponse where + parseJSON :: Value -> Parser TpEventAddResponse +parseJSON = Value -> Parser TpEventAddResponse forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema TpEventAddResponse where - declareNamedSchema :: Proxy TpEventAddResponse +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema TpEventAddResponse where + declareNamedSchema :: Proxy TpEventAddResponse -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_status :: Proxy (OverrideToSchema (Enumerated TpEventAddResponse_Status)) +declareNamedSchema Proxy TpEventAddResponse +_ + = do let declare_status :: Proxy (OverrideToSchema (Enumerated TpEventAddResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status = Proxy (OverrideToSchema (Enumerated TpEventAddResponse_Status)) +declare_status = Proxy (OverrideToSchema (Enumerated TpEventAddResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -tpEventAddResponseStatus <- Proxy (OverrideToSchema (Enumerated TpEventAddResponse_Status)) +HsJSONPB.declareSchemaRef + Referenced Schema +tpEventAddResponseStatus <- Proxy (OverrideToSchema (Enumerated TpEventAddResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status Proxy (OverrideToSchema (Enumerated TpEventAddResponse_Status)) +declare_status Proxy (OverrideToSchema (Enumerated TpEventAddResponse_Status)) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy TpEventAddResponse +Proxy.Proxy + let Proxy TpEventAddResponse _ = (Enumerated TpEventAddResponse_Status -> TpEventAddResponse) -> Proxy (Enumerated TpEventAddResponse_Status -> TpEventAddResponse) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Enumerated TpEventAddResponse_Status -> TpEventAddResponse +Hs.pure Enumerated TpEventAddResponse_Status -> TpEventAddResponse TpEventAddResponse Proxy (Enumerated TpEventAddResponse_Status -> TpEventAddResponse) -> Proxy (Enumerated TpEventAddResponse_Status) -> Proxy TpEventAddResponse forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema (Enumerated TpEventAddResponse_Status)) +<*> + (Proxy (OverrideToSchema (Enumerated TpEventAddResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Enumerated TpEventAddResponse_Status) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Enumerated TpEventAddResponse_Status)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Enumerated TpEventAddResponse_Status)) -> Declare (Definitions Schema) (Referenced Schema) -declare_status - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_status + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "TpEventAddResponse", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"TpEventAddResponse", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("status", Referenced Schema -tpEventAddResponseStatus)]}}) - -data TpEventAddResponse_Status = TpEventAddResponse_StatusSTATUS_UNSET - | TpEventAddResponse_StatusOK - | TpEventAddResponse_StatusERROR - deriving (Int -> TpEventAddResponse_Status -> ShowS +HsJSONPB.insOrdFromList + [(Text +"status", Referenced Schema +tpEventAddResponseStatus)]}}) + +data TpEventAddResponse_Status = TpEventAddResponse_StatusSTATUS_UNSET + | TpEventAddResponse_StatusOK + | TpEventAddResponse_StatusERROR + deriving (Int -> TpEventAddResponse_Status -> ShowS [TpEventAddResponse_Status] -> ShowS TpEventAddResponse_Status -> String (Int -> TpEventAddResponse_Status -> ShowS) @@ -4766,7 +5088,7 @@ show :: TpEventAddResponse_Status -> String $cshow :: TpEventAddResponse_Status -> String showsPrec :: Int -> TpEventAddResponse_Status -> ShowS $cshowsPrec :: Int -> TpEventAddResponse_Status -> ShowS -Hs.Show, TpEventAddResponse_Status -> TpEventAddResponse_Status -> Bool +Hs.Show, TpEventAddResponse_Status -> TpEventAddResponse_Status -> Bool (TpEventAddResponse_Status -> TpEventAddResponse_Status -> Bool) -> (TpEventAddResponse_Status -> TpEventAddResponse_Status -> Bool) -> Eq TpEventAddResponse_Status @@ -4775,7 +5097,7 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: TpEventAddResponse_Status -> TpEventAddResponse_Status -> Bool == :: TpEventAddResponse_Status -> TpEventAddResponse_Status -> Bool $c== :: TpEventAddResponse_Status -> TpEventAddResponse_Status -> Bool -Hs.Eq, (forall x. +Hs.Eq, (forall x. TpEventAddResponse_Status -> Rep TpEventAddResponse_Status x) -> (forall x. Rep TpEventAddResponse_Status x -> TpEventAddResponse_Status) @@ -4790,123 +5112,138 @@ $cto :: forall x. Rep TpEventAddResponse_Status x -> TpEventAddResponse_Status $cfrom :: forall x. TpEventAddResponse_Status -> Rep TpEventAddResponse_Status x -Hs.Generic, TpEventAddResponse_Status -> () +Hs.Generic, TpEventAddResponse_Status -> () (TpEventAddResponse_Status -> ()) -> NFData TpEventAddResponse_Status forall a. (a -> ()) -> NFData a rnf :: TpEventAddResponse_Status -> () $crnf :: TpEventAddResponse_Status -> () -Hs.NFData) - -instance HsProtobuf.Named TpEventAddResponse_Status where - nameOf :: Proxy# TpEventAddResponse_Status -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named TpEventAddResponse_Status where + nameOf :: Proxy# TpEventAddResponse_Status -> string +nameOf Proxy# TpEventAddResponse_Status +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "TpEventAddResponse_Status") - -instance HsProtobuf.HasDefault TpEventAddResponse_Status - -instance Hs.Bounded TpEventAddResponse_Status where - minBound :: TpEventAddResponse_Status -minBound = TpEventAddResponse_Status +Hs.fromString String +"TpEventAddResponse_Status") + +instance HsProtobuf.HasDefault TpEventAddResponse_Status + +instance Hs.Bounded TpEventAddResponse_Status where + minBound :: TpEventAddResponse_Status +minBound = TpEventAddResponse_Status TpEventAddResponse_StatusSTATUS_UNSET - maxBound :: TpEventAddResponse_Status -maxBound = TpEventAddResponse_Status + maxBound :: TpEventAddResponse_Status +maxBound = TpEventAddResponse_Status TpEventAddResponse_StatusERROR - -instance Hs.Ord TpEventAddResponse_Status where - compare :: TpEventAddResponse_Status -> TpEventAddResponse_Status -> Ordering -compare x :: TpEventAddResponse_Status -x y :: TpEventAddResponse_Status -y - = Int32 -> Int32 -> Ordering + +instance Hs.Ord TpEventAddResponse_Status where + compare :: TpEventAddResponse_Status -> TpEventAddResponse_Status -> Ordering +compare TpEventAddResponse_Status +x TpEventAddResponse_Status +y + = Int32 -> Int32 -> Ordering forall a. Ord a => a -> a -> Ordering -Hs.compare (TpEventAddResponse_Status -> Int32 +Hs.compare (TpEventAddResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum TpEventAddResponse_Status -x) - (TpEventAddResponse_Status -> Int32 +HsProtobuf.fromProtoEnum TpEventAddResponse_Status +x) + (TpEventAddResponse_Status -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum TpEventAddResponse_Status -y) - -instance HsProtobuf.ProtoEnum TpEventAddResponse_Status where - toProtoEnumMay :: Int32 -> Maybe TpEventAddResponse_Status -toProtoEnumMay 0 = TpEventAddResponse_Status -> Maybe TpEventAddResponse_Status +HsProtobuf.fromProtoEnum TpEventAddResponse_Status +y) + +instance HsProtobuf.ProtoEnum TpEventAddResponse_Status where + toProtoEnumMay :: Int32 -> Maybe TpEventAddResponse_Status +toProtoEnumMay Int32 +0 = TpEventAddResponse_Status -> Maybe TpEventAddResponse_Status forall a. a -> Maybe a -Hs.Just TpEventAddResponse_Status +Hs.Just TpEventAddResponse_Status TpEventAddResponse_StatusSTATUS_UNSET - toProtoEnumMay 1 = TpEventAddResponse_Status -> Maybe TpEventAddResponse_Status + toProtoEnumMay Int32 +1 = TpEventAddResponse_Status -> Maybe TpEventAddResponse_Status forall a. a -> Maybe a -Hs.Just TpEventAddResponse_Status +Hs.Just TpEventAddResponse_Status TpEventAddResponse_StatusOK - toProtoEnumMay 2 = TpEventAddResponse_Status -> Maybe TpEventAddResponse_Status + toProtoEnumMay Int32 +2 = TpEventAddResponse_Status -> Maybe TpEventAddResponse_Status forall a. a -> Maybe a -Hs.Just TpEventAddResponse_Status +Hs.Just TpEventAddResponse_Status TpEventAddResponse_StatusERROR - toProtoEnumMay _ = Maybe TpEventAddResponse_Status + toProtoEnumMay Int32 +_ = Maybe TpEventAddResponse_Status forall a. Maybe a -Hs.Nothing - fromProtoEnum :: TpEventAddResponse_Status -> Int32 -fromProtoEnum (TpEventAddResponse_Status -TpEventAddResponse_StatusSTATUS_UNSET) = 0 - fromProtoEnum (TpEventAddResponse_Status -TpEventAddResponse_StatusOK) = 1 - fromProtoEnum (TpEventAddResponse_Status -TpEventAddResponse_StatusERROR) = 2 - -instance HsJSONPB.ToJSONPB TpEventAddResponse_Status where - toJSONPB :: TpEventAddResponse_Status -> Options -> Value -toJSONPB x :: TpEventAddResponse_Status -x _ = TpEventAddResponse_Status -> Value +Hs.Nothing + fromProtoEnum :: TpEventAddResponse_Status -> Int32 +fromProtoEnum (TpEventAddResponse_Status +TpEventAddResponse_StatusSTATUS_UNSET) = Int32 +0 + fromProtoEnum (TpEventAddResponse_Status +TpEventAddResponse_StatusOK) = Int32 +1 + fromProtoEnum (TpEventAddResponse_Status +TpEventAddResponse_StatusERROR) = Int32 +2 + +instance HsJSONPB.ToJSONPB TpEventAddResponse_Status where + toJSONPB :: TpEventAddResponse_Status -> Options -> Value +toJSONPB TpEventAddResponse_Status +x Options +_ = TpEventAddResponse_Status -> Value forall a. (Named a, Show a) => a -> Value -HsJSONPB.enumFieldString TpEventAddResponse_Status -x - toEncodingPB :: TpEventAddResponse_Status -> Options -> Encoding -toEncodingPB x :: TpEventAddResponse_Status -x _ = TpEventAddResponse_Status -> Encoding +HsJSONPB.enumFieldString TpEventAddResponse_Status +x + toEncodingPB :: TpEventAddResponse_Status -> Options -> Encoding +toEncodingPB TpEventAddResponse_Status +x Options +_ = TpEventAddResponse_Status -> Encoding forall a. (Named a, Show a) => a -> Encoding -HsJSONPB.enumFieldEncoding TpEventAddResponse_Status -x - -instance HsJSONPB.FromJSONPB TpEventAddResponse_Status where - parseJSONPB :: Value -> Parser TpEventAddResponse_Status -parseJSONPB (HsJSONPB.String "STATUS_UNSET") - = TpEventAddResponse_Status -> Parser TpEventAddResponse_Status +HsJSONPB.enumFieldEncoding TpEventAddResponse_Status +x + +instance HsJSONPB.FromJSONPB TpEventAddResponse_Status where + parseJSONPB :: Value -> Parser TpEventAddResponse_Status +parseJSONPB (HsJSONPB.String Text +"STATUS_UNSET") + = TpEventAddResponse_Status -> Parser TpEventAddResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure TpEventAddResponse_Status +Hs.pure TpEventAddResponse_Status TpEventAddResponse_StatusSTATUS_UNSET - parseJSONPB (HsJSONPB.String "OK") - = TpEventAddResponse_Status -> Parser TpEventAddResponse_Status + parseJSONPB (HsJSONPB.String Text +"OK") + = TpEventAddResponse_Status -> Parser TpEventAddResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure TpEventAddResponse_Status +Hs.pure TpEventAddResponse_Status TpEventAddResponse_StatusOK - parseJSONPB (HsJSONPB.String "ERROR") - = TpEventAddResponse_Status -> Parser TpEventAddResponse_Status + parseJSONPB (HsJSONPB.String Text +"ERROR") + = TpEventAddResponse_Status -> Parser TpEventAddResponse_Status forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure TpEventAddResponse_Status +Hs.pure TpEventAddResponse_Status TpEventAddResponse_StatusERROR - parseJSONPB v :: Value -v - = (String -> Value -> Parser TpEventAddResponse_Status + parseJSONPB Value +v + = (String -> Value -> Parser TpEventAddResponse_Status forall a. String -> Value -> Parser a -HsJSONPB.typeMismatch "TpEventAddResponse_Status" Value -v) - -instance HsJSONPB.ToJSON TpEventAddResponse_Status where - toJSON :: TpEventAddResponse_Status -> Value -toJSON = TpEventAddResponse_Status -> Value +HsJSONPB.typeMismatch String +"TpEventAddResponse_Status" Value +v) + +instance HsJSONPB.ToJSON TpEventAddResponse_Status where + toJSON :: TpEventAddResponse_Status -> Value +toJSON = TpEventAddResponse_Status -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: TpEventAddResponse_Status -> Encoding -toEncoding = TpEventAddResponse_Status -> Encoding +HsJSONPB.toAesonValue + toEncoding :: TpEventAddResponse_Status -> Encoding +toEncoding = TpEventAddResponse_Status -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON TpEventAddResponse_Status where - parseJSON :: Value -> Parser TpEventAddResponse_Status -parseJSON = Value -> Parser TpEventAddResponse_Status +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON TpEventAddResponse_Status where + parseJSON :: Value -> Parser TpEventAddResponse_Status +parseJSON = Value -> Parser TpEventAddResponse_Status forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsProtobuf.Finite TpEventAddResponse_Status \ No newline at end of file +HsJSONPB.parseJSONPB + +instance HsProtobuf.Finite TpEventAddResponse_Status \ No newline at end of file diff --git a/src/Data.Sawtooth.Transaction.html b/src/Data.Sawtooth.Transaction.html index cfc8be0..edeb8d6 100644 --- a/src/Data.Sawtooth.Transaction.html +++ b/src/Data.Sawtooth.Transaction.html @@ -9,53 +9,52 @@ {-# OPTIONS_GHC -fno-warn-unused-matches #-} -- | Generated by Haskell protocol buffer compiler. DO NOT EDIT! - -module Data.Sawtooth.Transaction where -import qualified Prelude as Hs -import qualified Proto3.Suite.Class as HsProtobuf -import qualified Proto3.Suite.DotProto as HsProtobuf -import qualified Proto3.Suite.JSONPB as HsJSONPB -import Proto3.Suite.JSONPB ((.=), (.:)) -import qualified Proto3.Suite.Types as HsProtobuf -import qualified Proto3.Wire as HsProtobuf -import qualified Control.Applicative as Hs -import Control.Applicative ((<*>), (<|>), (<$>)) -import qualified Control.DeepSeq as Hs -import qualified Control.Monad as Hs -import qualified Data.ByteString as Hs -import qualified Data.Coerce as Hs -import qualified Data.Int as Hs (Int16, Int32, Int64) -import qualified Data.List.NonEmpty as Hs (NonEmpty(..)) -import qualified Data.Map as Hs (Map, mapKeysMonotonic) -import qualified Data.Proxy as Proxy -import qualified Data.String as Hs (fromString) -import qualified Data.Text.Lazy as Hs (Text) -import qualified Data.Vector as Hs (Vector) -import qualified Data.Word as Hs (Word16, Word32, Word64) -import qualified GHC.Enum as Hs -import qualified GHC.Generics as Hs -import qualified Unsafe.Coerce as Hs - -data TransactionHeader = TransactionHeader{TransactionHeader -> Text +module Data.Sawtooth.Transaction where +import qualified Prelude as Hs +import qualified Proto3.Suite.Class as HsProtobuf +import qualified Proto3.Suite.DotProto as HsProtobuf +import qualified Proto3.Suite.JSONPB as HsJSONPB +import Proto3.Suite.JSONPB ((.=), (.:)) +import qualified Proto3.Suite.Types as HsProtobuf +import qualified Proto3.Wire as HsProtobuf +import qualified Control.Applicative as Hs +import Control.Applicative ((<*>), (<|>), (<$>)) +import qualified Control.DeepSeq as Hs +import qualified Control.Monad as Hs +import qualified Data.ByteString as Hs +import qualified Data.Coerce as Hs +import qualified Data.Int as Hs (Int16, Int32, Int64) +import qualified Data.List.NonEmpty as Hs (NonEmpty(..)) +import qualified Data.Map as Hs (Map, mapKeysMonotonic) +import qualified Data.Proxy as Proxy +import qualified Data.String as Hs (fromString) +import qualified Data.Text.Lazy as Hs (Text) +import qualified Data.Vector as Hs (Vector) +import qualified Data.Word as Hs (Word16, Word32, Word64) +import qualified GHC.Enum as Hs +import qualified GHC.Generics as Hs +import qualified Unsafe.Coerce as Hs + +data TransactionHeader = TransactionHeader{TransactionHeader -> Text transactionHeaderBatcherPublicKey - :: Hs.Text, - TransactionHeader -> Vector Text -transactionHeaderDependencies :: Hs.Vector Hs.Text, - TransactionHeader -> Text -transactionHeaderFamilyName :: Hs.Text, - TransactionHeader -> Text -transactionHeaderFamilyVersion :: Hs.Text, - TransactionHeader -> Vector Text -transactionHeaderInputs :: Hs.Vector Hs.Text, - TransactionHeader -> Text -transactionHeaderNonce :: Hs.Text, - TransactionHeader -> Vector Text -transactionHeaderOutputs :: Hs.Vector Hs.Text, - TransactionHeader -> Text -transactionHeaderPayloadSha512 :: Hs.Text, - TransactionHeader -> Text -transactionHeaderSignerPublicKey :: Hs.Text} - deriving (Int -> TransactionHeader -> ShowS + :: Hs.Text, + TransactionHeader -> Vector Text +transactionHeaderDependencies :: Hs.Vector Hs.Text, + TransactionHeader -> Text +transactionHeaderFamilyName :: Hs.Text, + TransactionHeader -> Text +transactionHeaderFamilyVersion :: Hs.Text, + TransactionHeader -> Vector Text +transactionHeaderInputs :: Hs.Vector Hs.Text, + TransactionHeader -> Text +transactionHeaderNonce :: Hs.Text, + TransactionHeader -> Vector Text +transactionHeaderOutputs :: Hs.Vector Hs.Text, + TransactionHeader -> Text +transactionHeaderPayloadSha512 :: Hs.Text, + TransactionHeader -> Text +transactionHeaderSignerPublicKey :: Hs.Text} + deriving (Int -> TransactionHeader -> ShowS [TransactionHeader] -> ShowS TransactionHeader -> String (Int -> TransactionHeader -> ShowS) @@ -70,7 +69,7 @@ show :: TransactionHeader -> String $cshow :: TransactionHeader -> String showsPrec :: Int -> TransactionHeader -> ShowS $cshowsPrec :: Int -> TransactionHeader -> ShowS -Hs.Show, TransactionHeader -> TransactionHeader -> Bool +Hs.Show, TransactionHeader -> TransactionHeader -> Bool (TransactionHeader -> TransactionHeader -> Bool) -> (TransactionHeader -> TransactionHeader -> Bool) -> Eq TransactionHeader @@ -79,9 +78,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: TransactionHeader -> TransactionHeader -> Bool == :: TransactionHeader -> TransactionHeader -> Bool $c== :: TransactionHeader -> TransactionHeader -> Bool -Hs.Eq, Eq TransactionHeader -Eq TransactionHeader => -(TransactionHeader -> TransactionHeader -> Ordering) +Hs.Eq, Eq TransactionHeader +Eq TransactionHeader +-> (TransactionHeader -> TransactionHeader -> Ordering) -> (TransactionHeader -> TransactionHeader -> Bool) -> (TransactionHeader -> TransactionHeader -> Bool) -> (TransactionHeader -> TransactionHeader -> Bool) @@ -93,8 +92,8 @@ TransactionHeader -> TransactionHeader -> Bool TransactionHeader -> TransactionHeader -> Ordering TransactionHeader -> TransactionHeader -> TransactionHeader forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -117,7 +116,7 @@ $c< :: TransactionHeader -> TransactionHeader -> Bool compare :: TransactionHeader -> TransactionHeader -> Ordering $ccompare :: TransactionHeader -> TransactionHeader -> Ordering $cp1Ord :: Eq TransactionHeader -Hs.Ord, (forall x. TransactionHeader -> Rep TransactionHeader x) +Hs.Ord, (forall x. TransactionHeader -> Rep TransactionHeader x) -> (forall x. Rep TransactionHeader x -> TransactionHeader) -> Generic TransactionHeader forall x. Rep TransactionHeader x -> TransactionHeader @@ -126,122 +125,132 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep TransactionHeader x -> TransactionHeader $cfrom :: forall x. TransactionHeader -> Rep TransactionHeader x -Hs.Generic, TransactionHeader -> () +Hs.Generic, TransactionHeader -> () (TransactionHeader -> ()) -> NFData TransactionHeader forall a. (a -> ()) -> NFData a rnf :: TransactionHeader -> () $crnf :: TransactionHeader -> () -Hs.NFData) - -instance HsProtobuf.Named TransactionHeader where - nameOf :: Proxy# TransactionHeader -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named TransactionHeader where + nameOf :: Proxy# TransactionHeader -> string +nameOf Proxy# TransactionHeader +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "TransactionHeader") - -instance HsProtobuf.HasDefault TransactionHeader - -instance HsProtobuf.Message TransactionHeader where - encodeMessage :: FieldNumber -> TransactionHeader -> MessageBuilder -encodeMessage _ - TransactionHeader{transactionHeaderBatcherPublicKey :: TransactionHeader -> Text +Hs.fromString String +"TransactionHeader") + +instance HsProtobuf.HasDefault TransactionHeader + +instance HsProtobuf.Message TransactionHeader where + encodeMessage :: FieldNumber -> TransactionHeader -> MessageBuilder +encodeMessage FieldNumber +_ + TransactionHeader{transactionHeaderBatcherPublicKey :: TransactionHeader -> Text transactionHeaderBatcherPublicKey = - Text -transactionHeaderBatcherPublicKey, - transactionHeaderDependencies :: TransactionHeader -> Vector Text -transactionHeaderDependencies = Vector Text -transactionHeaderDependencies, - transactionHeaderFamilyName :: TransactionHeader -> Text -transactionHeaderFamilyName = Text -transactionHeaderFamilyName, - transactionHeaderFamilyVersion :: TransactionHeader -> Text -transactionHeaderFamilyVersion = Text -transactionHeaderFamilyVersion, - transactionHeaderInputs :: TransactionHeader -> Vector Text -transactionHeaderInputs = Vector Text -transactionHeaderInputs, - transactionHeaderNonce :: TransactionHeader -> Text -transactionHeaderNonce = Text -transactionHeaderNonce, - transactionHeaderOutputs :: TransactionHeader -> Vector Text -transactionHeaderOutputs = Vector Text -transactionHeaderOutputs, - transactionHeaderPayloadSha512 :: TransactionHeader -> Text -transactionHeaderPayloadSha512 = Text -transactionHeaderPayloadSha512, - transactionHeaderSignerPublicKey :: TransactionHeader -> Text + Text +transactionHeaderBatcherPublicKey, + transactionHeaderDependencies :: TransactionHeader -> Vector Text +transactionHeaderDependencies = Vector Text +transactionHeaderDependencies, + transactionHeaderFamilyName :: TransactionHeader -> Text +transactionHeaderFamilyName = Text +transactionHeaderFamilyName, + transactionHeaderFamilyVersion :: TransactionHeader -> Text +transactionHeaderFamilyVersion = Text +transactionHeaderFamilyVersion, + transactionHeaderInputs :: TransactionHeader -> Vector Text +transactionHeaderInputs = Vector Text +transactionHeaderInputs, + transactionHeaderNonce :: TransactionHeader -> Text +transactionHeaderNonce = Text +transactionHeaderNonce, + transactionHeaderOutputs :: TransactionHeader -> Vector Text +transactionHeaderOutputs = Vector Text +transactionHeaderOutputs, + transactionHeaderPayloadSha512 :: TransactionHeader -> Text +transactionHeaderPayloadSha512 = Text +transactionHeaderPayloadSha512, + transactionHeaderSignerPublicKey :: TransactionHeader -> Text transactionHeaderSignerPublicKey = - Text -transactionHeaderSignerPublicKey} - = ([MessageBuilder] -> MessageBuilder + Text +transactionHeaderSignerPublicKey} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> Text -> MessageBuilder +Hs.mconcat + [(FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Text -transactionHeaderBatcherPublicKey), - (FieldNumber -> UnpackedVec Text -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Text +transactionHeaderBatcherPublicKey), + (FieldNumber -> UnpackedVec Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (Vector Text -> UnpackedVec Text -forall a b. Coercible a b => a -> b -Hs.coerce @(Hs.Vector Hs.Text) @(HsProtobuf.UnpackedVec Hs.Text) - Vector Text -transactionHeaderDependencies)), - (FieldNumber -> Text -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (Vector Text -> UnpackedVec Text +Hs.coerce @(Hs.Vector Hs.Text) @(HsProtobuf.UnpackedVec Hs.Text) + Vector Text +transactionHeaderDependencies)), + (FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - Text -transactionHeaderFamilyName), - (FieldNumber -> Text -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + Text +transactionHeaderFamilyName), + (FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 4) - Text -transactionHeaderFamilyVersion), - (FieldNumber -> UnpackedVec Text -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +4) + Text +transactionHeaderFamilyVersion), + (FieldNumber -> UnpackedVec Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 5) - (Vector Text -> UnpackedVec Text -forall a b. Coercible a b => a -> b -Hs.coerce @(Hs.Vector Hs.Text) @(HsProtobuf.UnpackedVec Hs.Text) - Vector Text -transactionHeaderInputs)), - (FieldNumber -> Text -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +5) + (Vector Text -> UnpackedVec Text +Hs.coerce @(Hs.Vector Hs.Text) @(HsProtobuf.UnpackedVec Hs.Text) + Vector Text +transactionHeaderInputs)), + (FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 6) - Text -transactionHeaderNonce), - (FieldNumber -> UnpackedVec Text -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +6) + Text +transactionHeaderNonce), + (FieldNumber -> UnpackedVec Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 7) - (Vector Text -> UnpackedVec Text -forall a b. Coercible a b => a -> b -Hs.coerce @(Hs.Vector Hs.Text) @(HsProtobuf.UnpackedVec Hs.Text) - Vector Text -transactionHeaderOutputs)), - (FieldNumber -> Text -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +7) + (Vector Text -> UnpackedVec Text +Hs.coerce @(Hs.Vector Hs.Text) @(HsProtobuf.UnpackedVec Hs.Text) + Vector Text +transactionHeaderOutputs)), + (FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 9) - Text -transactionHeaderPayloadSha512), - (FieldNumber -> Text -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +9) + Text +transactionHeaderPayloadSha512), + (FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 10) - Text -transactionHeaderSignerPublicKey)]) - decodeMessage :: FieldNumber -> Parser RawMessage TransactionHeader -decodeMessage _ - = ((Text +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +10) + Text +transactionHeaderSignerPublicKey)]) + decodeMessage :: FieldNumber -> Parser RawMessage TransactionHeader +decodeMessage FieldNumber +_ + = ((Text -> Vector Text -> Text -> Text @@ -264,7 +273,7 @@ forall a. MessageField a => FieldNumber -> a -> MessageBuilder -> Text -> TransactionHeader) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text +Hs.pure Text -> Vector Text -> Text -> Text @@ -299,15 +308,16 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Text -> TransactionHeader) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (Vector Text -> Text @@ -330,21 +340,21 @@ forall a. MessageField a => Parser RawField a -> Text -> TransactionHeader) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (UnpackedVec Text) +<*> + (Parser RawMessage (UnpackedVec Text) -> Parser RawMessage (Vector Text) -forall a b. Coercible a b => a -> b -Hs.coerce @(_ (HsProtobuf.UnpackedVec Hs.Text)) - @(_ (Hs.Vector Hs.Text)) - (Parser RawField (UnpackedVec Text) +Hs.coerce @(_ (HsProtobuf.UnpackedVec Hs.Text)) + @(_ (Hs.Vector Hs.Text)) + (Parser RawField (UnpackedVec Text) -> FieldNumber -> Parser RawMessage (UnpackedVec Text) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (UnpackedVec Text) +HsProtobuf.at Parser RawField (UnpackedVec Text) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2))) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2))) + Parser RawMessage (Text -> Text @@ -365,15 +375,16 @@ forall a. MessageField a => Parser RawField a -> Text -> TransactionHeader) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3)) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3)) + Parser RawMessage (Text -> Vector Text @@ -388,15 +399,16 @@ forall a. MessageField a => Parser RawField a (Vector Text -> Text -> Vector Text -> Text -> Text -> TransactionHeader) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 4)) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +4)) + Parser RawMessage (Vector Text -> Text -> Vector Text -> Text -> Text -> TransactionHeader) @@ -405,353 +417,403 @@ forall a. MessageField a => Parser RawField a RawMessage (Text -> Vector Text -> Text -> Text -> TransactionHeader) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (UnpackedVec Text) +<*> + (Parser RawMessage (UnpackedVec Text) -> Parser RawMessage (Vector Text) -forall a b. Coercible a b => a -> b -Hs.coerce @(_ (HsProtobuf.UnpackedVec Hs.Text)) - @(_ (Hs.Vector Hs.Text)) - (Parser RawField (UnpackedVec Text) +Hs.coerce @(_ (HsProtobuf.UnpackedVec Hs.Text)) + @(_ (Hs.Vector Hs.Text)) + (Parser RawField (UnpackedVec Text) -> FieldNumber -> Parser RawMessage (UnpackedVec Text) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (UnpackedVec Text) +HsProtobuf.at Parser RawField (UnpackedVec Text) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 5))) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +5))) + Parser RawMessage (Text -> Vector Text -> Text -> Text -> TransactionHeader) -> Parser RawMessage Text -> Parser RawMessage (Vector Text -> Text -> Text -> TransactionHeader) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 6)) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +6)) + Parser RawMessage (Vector Text -> Text -> Text -> TransactionHeader) -> Parser RawMessage (Vector Text) -> Parser RawMessage (Text -> Text -> TransactionHeader) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (UnpackedVec Text) +<*> + (Parser RawMessage (UnpackedVec Text) -> Parser RawMessage (Vector Text) -forall a b. Coercible a b => a -> b -Hs.coerce @(_ (HsProtobuf.UnpackedVec Hs.Text)) - @(_ (Hs.Vector Hs.Text)) - (Parser RawField (UnpackedVec Text) +Hs.coerce @(_ (HsProtobuf.UnpackedVec Hs.Text)) + @(_ (Hs.Vector Hs.Text)) + (Parser RawField (UnpackedVec Text) -> FieldNumber -> Parser RawMessage (UnpackedVec Text) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (UnpackedVec Text) +HsProtobuf.at Parser RawField (UnpackedVec Text) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 7))) - Parser RawMessage (Text -> Text -> TransactionHeader) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +7))) + Parser RawMessage (Text -> Text -> TransactionHeader) -> Parser RawMessage Text -> Parser RawMessage (Text -> TransactionHeader) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 9)) - Parser RawMessage (Text -> TransactionHeader) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +9)) + Parser RawMessage (Text -> TransactionHeader) -> Parser RawMessage Text -> Parser RawMessage TransactionHeader forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 10)) - dotProto :: Proxy# TransactionHeader -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +10)) + dotProto :: Proxy# TransactionHeader -> [DotProtoField] +dotProto Proxy# TransactionHeader +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "batcher_public_key") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"batcher_public_key") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Repeated DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "dependencies") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Repeated DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"dependencies") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "family_name") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"family_name") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 4) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "family_version") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +4) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"family_version") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 5) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Repeated DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "inputs") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +5) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Repeated DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"inputs") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 6) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "nonce") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +6) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"nonce") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 7) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Repeated DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "outputs") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +7) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Repeated DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"outputs") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 9) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "payload_sha512") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +9) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"payload_sha512") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 10) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "signer_public_key") - [] - "")] - -instance HsJSONPB.ToJSONPB TransactionHeader where - toJSONPB :: TransactionHeader -> Options -> Value -toJSONPB (TransactionHeader f1 :: Text -f1 f2 :: Vector Text -f2 f3 :: Text -f3 f4 :: Text -f4 f5 :: Vector Text -f5 f6 :: Text -f6 f7 :: Vector Text -f7 f9 :: Text -f9 f10 :: Text -f10) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object - ["batcher_public_key" Text -> Text -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +10) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"signer_public_key") + [] + String +"")] + +instance HsJSONPB.ToJSONPB TransactionHeader where + toJSONPB :: TransactionHeader -> Options -> Value +toJSONPB (TransactionHeader Text +f1 Vector Text +f2 Text +f3 Text +f4 Vector Text +f5 Text +f6 Vector Text +f7 Text +f9 Text +f10) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object + [Text +"batcher_public_key" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1, "dependencies" Text -> Vector Text -> Options -> [Pair] +.= Text +f1, Text +"dependencies" Text -> Vector Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Text -f2, - "family_name" Text -> Text -> Options -> [Pair] +.= Vector Text +f2, + Text +"family_name" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f3, "family_version" Text -> Text -> Options -> [Pair] +.= Text +f3, Text +"family_version" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f4, "inputs" Text -> Vector Text -> Options -> [Pair] +.= Text +f4, Text +"inputs" Text -> Vector Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Text -f5, - "nonce" Text -> Text -> Options -> [Pair] +.= Vector Text +f5, + Text +"nonce" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f6, "outputs" Text -> Vector Text -> Options -> [Pair] +.= Text +f6, Text +"outputs" Text -> Vector Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Text -f7, "payload_sha512" Text -> Text -> Options -> [Pair] +.= Vector Text +f7, Text +"payload_sha512" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f9, - "signer_public_key" Text -> Text -> Options -> [Pair] +.= Text +f9, + Text +"signer_public_key" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f10]) - toEncodingPB :: TransactionHeader -> Options -> Encoding -toEncodingPB (TransactionHeader f1 :: Text -f1 f2 :: Vector Text -f2 f3 :: Text -f3 f4 :: Text -f4 f5 :: Vector Text -f5 f6 :: Text -f6 f7 :: Vector Text -f7 f9 :: Text -f9 f10 :: Text -f10) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs - ["batcher_public_key" Text -> Text -> Options -> Series +.= Text +f10]) + toEncodingPB :: TransactionHeader -> Options -> Encoding +toEncodingPB (TransactionHeader Text +f1 Vector Text +f2 Text +f3 Text +f4 Vector Text +f5 Text +f6 Vector Text +f7 Text +f9 Text +f10) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs + [Text +"batcher_public_key" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1, "dependencies" Text -> Vector Text -> Options -> Series +.= Text +f1, Text +"dependencies" Text -> Vector Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Text -f2, - "family_name" Text -> Text -> Options -> Series +.= Vector Text +f2, + Text +"family_name" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f3, "family_version" Text -> Text -> Options -> Series +.= Text +f3, Text +"family_version" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f4, "inputs" Text -> Vector Text -> Options -> Series +.= Text +f4, Text +"inputs" Text -> Vector Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Text -f5, - "nonce" Text -> Text -> Options -> Series +.= Vector Text +f5, + Text +"nonce" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f6, "outputs" Text -> Vector Text -> Options -> Series +.= Text +f6, Text +"outputs" Text -> Vector Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Text -f7, "payload_sha512" Text -> Text -> Options -> Series +.= Vector Text +f7, Text +"payload_sha512" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f9, - "signer_public_key" Text -> Text -> Options -> Series +.= Text +f9, + Text +"signer_public_key" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f10]) - -instance HsJSONPB.FromJSONPB TransactionHeader where - parseJSONPB :: Value -> Parser TransactionHeader -parseJSONPB - = (String +.= Text +f10]) + +instance HsJSONPB.FromJSONPB TransactionHeader where + parseJSONPB :: Value -> Parser TransactionHeader +parseJSONPB + = (String -> (Object -> Parser TransactionHeader) -> Value -> Parser TransactionHeader forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "TransactionHeader" - (\ obj :: Object -obj -> - ((Text +HsJSONPB.withObject String +"TransactionHeader" + (\ Object +obj -> + ((Text -> Vector Text -> Text -> Text @@ -773,7 +835,7 @@ forall a. String -> (Object -> Parser a) -> Value -> Parser a -> Text -> TransactionHeader) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text +Hs.pure Text -> Vector Text -> Text -> Text @@ -806,12 +868,13 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Text -> TransactionHeader) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Text +<*> Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "batcher_public_key" Parser +.: Text +"batcher_public_key" Parser (Vector Text -> Text -> Text @@ -832,14 +895,15 @@ Object -> Text -> Parser a -> Text -> TransactionHeader) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser (Vector Text) +<*> + Object +obj Object -> Text -> Parser (Vector Text) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "dependencies" - Parser +.: Text +"dependencies" + Parser (Text -> Text -> Vector Text @@ -858,13 +922,14 @@ Object -> Text -> Parser a -> Text -> TransactionHeader) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Text +<*> Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "family_name" - Parser +.: Text +"family_name" + Parser (Text -> Vector Text -> Text @@ -877,214 +942,221 @@ Object -> Text -> Parser a (Vector Text -> Text -> Vector Text -> Text -> Text -> TransactionHeader) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Text +<*> Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "family_version" - Parser +.: Text +"family_version" + Parser (Vector Text -> Text -> Vector Text -> Text -> Text -> TransactionHeader) -> Parser (Vector Text) -> Parser (Text -> Vector Text -> Text -> Text -> TransactionHeader) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser (Vector Text) +<*> Object +obj Object -> Text -> Parser (Vector Text) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "inputs" - Parser (Text -> Vector Text -> Text -> Text -> TransactionHeader) +.: Text +"inputs" + Parser (Text -> Vector Text -> Text -> Text -> TransactionHeader) -> Parser Text -> Parser (Vector Text -> Text -> Text -> TransactionHeader) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Text +<*> Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "nonce" - Parser (Vector Text -> Text -> Text -> TransactionHeader) +.: Text +"nonce" + Parser (Vector Text -> Text -> Text -> TransactionHeader) -> Parser (Vector Text) -> Parser (Text -> Text -> TransactionHeader) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser (Vector Text) +<*> Object +obj Object -> Text -> Parser (Vector Text) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "outputs" - Parser (Text -> Text -> TransactionHeader) +.: Text +"outputs" + Parser (Text -> Text -> TransactionHeader) -> Parser Text -> Parser (Text -> TransactionHeader) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Text +<*> Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "payload_sha512" - Parser (Text -> TransactionHeader) +.: Text +"payload_sha512" + Parser (Text -> TransactionHeader) -> Parser Text -> Parser TransactionHeader forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Text +<*> Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "signer_public_key")) - -instance HsJSONPB.ToJSON TransactionHeader where - toJSON :: TransactionHeader -> Value -toJSON = TransactionHeader -> Value +.: Text +"signer_public_key")) + +instance HsJSONPB.ToJSON TransactionHeader where + toJSON :: TransactionHeader -> Value +toJSON = TransactionHeader -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: TransactionHeader -> Encoding -toEncoding = TransactionHeader -> Encoding +HsJSONPB.toAesonValue + toEncoding :: TransactionHeader -> Encoding +toEncoding = TransactionHeader -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON TransactionHeader where - parseJSON :: Value -> Parser TransactionHeader -parseJSON = Value -> Parser TransactionHeader +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON TransactionHeader where + parseJSON :: Value -> Parser TransactionHeader +parseJSON = Value -> Parser TransactionHeader forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema TransactionHeader where - declareNamedSchema :: Proxy TransactionHeader -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_batcher_public_key :: Proxy (OverrideToSchema Text) +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema TransactionHeader where + declareNamedSchema :: Proxy TransactionHeader -> Declare (Definitions Schema) NamedSchema +declareNamedSchema Proxy TransactionHeader +_ + = do let declare_batcher_public_key :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_batcher_public_key = Proxy (OverrideToSchema Text) +declare_batcher_public_key = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -transactionHeaderBatcherPublicKey <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +transactionHeaderBatcherPublicKey <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_batcher_public_key - Proxy (OverrideToSchema Text) +declare_batcher_public_key + Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_dependencies :: Proxy (OverrideToSchema (Vector Text)) +Proxy.Proxy + let declare_dependencies :: Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) -declare_dependencies = Proxy (OverrideToSchema (Vector Text)) +declare_dependencies = Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -transactionHeaderDependencies <- Proxy (OverrideToSchema (Vector Text)) +HsJSONPB.declareSchemaRef + Referenced Schema +transactionHeaderDependencies <- Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) -declare_dependencies Proxy (OverrideToSchema (Vector Text)) +declare_dependencies Proxy (OverrideToSchema (Vector Text)) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_family_name :: Proxy (OverrideToSchema Text) +Proxy.Proxy + let declare_family_name :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_family_name = Proxy (OverrideToSchema Text) +declare_family_name = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -transactionHeaderFamilyName <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +transactionHeaderFamilyName <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_family_name Proxy (OverrideToSchema Text) +declare_family_name Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_family_version :: Proxy (OverrideToSchema Text) +Proxy.Proxy + let declare_family_version :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_family_version = Proxy (OverrideToSchema Text) +declare_family_version = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -transactionHeaderFamilyVersion <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +transactionHeaderFamilyVersion <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_family_version - Proxy (OverrideToSchema Text) +declare_family_version + Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_inputs :: Proxy (OverrideToSchema (Vector Text)) +Proxy.Proxy + let declare_inputs :: Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) -declare_inputs = Proxy (OverrideToSchema (Vector Text)) +declare_inputs = Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -transactionHeaderInputs <- Proxy (OverrideToSchema (Vector Text)) +HsJSONPB.declareSchemaRef + Referenced Schema +transactionHeaderInputs <- Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) -declare_inputs Proxy (OverrideToSchema (Vector Text)) +declare_inputs Proxy (OverrideToSchema (Vector Text)) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_nonce :: Proxy (OverrideToSchema Text) +Proxy.Proxy + let declare_nonce :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_nonce = Proxy (OverrideToSchema Text) +declare_nonce = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -transactionHeaderNonce <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +transactionHeaderNonce <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_nonce Proxy (OverrideToSchema Text) +declare_nonce Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_outputs :: Proxy (OverrideToSchema (Vector Text)) +Proxy.Proxy + let declare_outputs :: Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) -declare_outputs = Proxy (OverrideToSchema (Vector Text)) +declare_outputs = Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -transactionHeaderOutputs <- Proxy (OverrideToSchema (Vector Text)) +HsJSONPB.declareSchemaRef + Referenced Schema +transactionHeaderOutputs <- Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) -declare_outputs Proxy (OverrideToSchema (Vector Text)) +declare_outputs Proxy (OverrideToSchema (Vector Text)) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_payload_sha512 :: Proxy (OverrideToSchema Text) +Proxy.Proxy + let declare_payload_sha512 :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_payload_sha512 = Proxy (OverrideToSchema Text) +declare_payload_sha512 = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -transactionHeaderPayloadSha512 <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +transactionHeaderPayloadSha512 <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_payload_sha512 - Proxy (OverrideToSchema Text) +declare_payload_sha512 + Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_signer_public_key :: Proxy (OverrideToSchema Text) +Proxy.Proxy + let declare_signer_public_key :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_signer_public_key = Proxy (OverrideToSchema Text) +declare_signer_public_key = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -transactionHeaderSignerPublicKey <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +transactionHeaderSignerPublicKey <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_signer_public_key - Proxy (OverrideToSchema Text) +declare_signer_public_key + Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy TransactionHeader +Proxy.Proxy + let Proxy TransactionHeader _ = (Text -> Vector Text -> Text @@ -1107,7 +1179,7 @@ forall k (t :: k). Proxy t -> Text -> TransactionHeader) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text +Hs.pure Text -> Vector Text -> Text -> Text @@ -1140,15 +1212,15 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Text -> TransactionHeader) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema Text) +<*> + (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_batcher_public_key - Proxy +declare_batcher_public_key + Proxy (Vector Text -> Text -> Text @@ -1169,14 +1241,14 @@ forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -> Text -> TransactionHeader) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema (Vector Text)) +<*> (Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Vector Text) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Text)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) -declare_dependencies - Proxy +declare_dependencies + Proxy (Text -> Text -> Vector Text @@ -1195,14 +1267,14 @@ forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -> Text -> TransactionHeader) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema Text) +<*> (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_family_name - Proxy +declare_family_name + Proxy (Text -> Vector Text -> Text @@ -1215,129 +1287,139 @@ forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a (Vector Text -> Text -> Vector Text -> Text -> Text -> TransactionHeader) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema Text) +<*> (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_family_version - Proxy +declare_family_version + Proxy (Vector Text -> Text -> Vector Text -> Text -> Text -> TransactionHeader) -> Proxy (Vector Text) -> Proxy (Text -> Vector Text -> Text -> Text -> TransactionHeader) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema (Vector Text)) +<*> (Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Vector Text) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Text)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) -declare_inputs - Proxy (Text -> Vector Text -> Text -> Text -> TransactionHeader) +declare_inputs + Proxy (Text -> Vector Text -> Text -> Text -> TransactionHeader) -> Proxy Text -> Proxy (Vector Text -> Text -> Text -> TransactionHeader) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema Text) +<*> (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_nonce - Proxy (Vector Text -> Text -> Text -> TransactionHeader) +declare_nonce + Proxy (Vector Text -> Text -> Text -> TransactionHeader) -> Proxy (Vector Text) -> Proxy (Text -> Text -> TransactionHeader) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema (Vector Text)) +<*> (Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Vector Text) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Text)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Text)) -> Declare (Definitions Schema) (Referenced Schema) -declare_outputs - Proxy (Text -> Text -> TransactionHeader) +declare_outputs + Proxy (Text -> Text -> TransactionHeader) -> Proxy Text -> Proxy (Text -> TransactionHeader) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema Text) +<*> (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_payload_sha512 - Proxy (Text -> TransactionHeader) +declare_payload_sha512 + Proxy (Text -> TransactionHeader) -> Proxy Text -> Proxy TransactionHeader forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema Text) +<*> (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_signer_public_key - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_signer_public_key + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "TransactionHeader", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"TransactionHeader", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("batcher_public_key", - Referenced Schema -transactionHeaderBatcherPublicKey), - ("dependencies", - Referenced Schema -transactionHeaderDependencies), - ("family_name", - Referenced Schema -transactionHeaderFamilyName), - ("family_version", - Referenced Schema -transactionHeaderFamilyVersion), - ("inputs", Referenced Schema -transactionHeaderInputs), - ("nonce", Referenced Schema -transactionHeaderNonce), - ("outputs", Referenced Schema -transactionHeaderOutputs), - ("payload_sha512", - Referenced Schema -transactionHeaderPayloadSha512), - ("signer_public_key", - Referenced Schema -transactionHeaderSignerPublicKey)]}}) - -data Transaction = Transaction{Transaction -> ByteString -transactionHeader :: Hs.ByteString, - Transaction -> Text -transactionHeaderSignature :: Hs.Text, - Transaction -> ByteString -transactionPayload :: Hs.ByteString} - deriving (Int -> Transaction -> ShowS +HsJSONPB.insOrdFromList + [(Text +"batcher_public_key", + Referenced Schema +transactionHeaderBatcherPublicKey), + (Text +"dependencies", + Referenced Schema +transactionHeaderDependencies), + (Text +"family_name", + Referenced Schema +transactionHeaderFamilyName), + (Text +"family_version", + Referenced Schema +transactionHeaderFamilyVersion), + (Text +"inputs", Referenced Schema +transactionHeaderInputs), + (Text +"nonce", Referenced Schema +transactionHeaderNonce), + (Text +"outputs", Referenced Schema +transactionHeaderOutputs), + (Text +"payload_sha512", + Referenced Schema +transactionHeaderPayloadSha512), + (Text +"signer_public_key", + Referenced Schema +transactionHeaderSignerPublicKey)]}}) + +data Transaction = Transaction{Transaction -> ByteString +transactionHeader :: Hs.ByteString, + Transaction -> Text +transactionHeaderSignature :: Hs.Text, + Transaction -> ByteString +transactionPayload :: Hs.ByteString} + deriving (Int -> Transaction -> ShowS [Transaction] -> ShowS Transaction -> String (Int -> Transaction -> ShowS) @@ -1352,7 +1434,7 @@ show :: Transaction -> String $cshow :: Transaction -> String showsPrec :: Int -> Transaction -> ShowS $cshowsPrec :: Int -> Transaction -> ShowS -Hs.Show, Transaction -> Transaction -> Bool +Hs.Show, Transaction -> Transaction -> Bool (Transaction -> Transaction -> Bool) -> (Transaction -> Transaction -> Bool) -> Eq Transaction forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a @@ -1360,9 +1442,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: Transaction -> Transaction -> Bool == :: Transaction -> Transaction -> Bool $c== :: Transaction -> Transaction -> Bool -Hs.Eq, Eq Transaction -Eq Transaction => -(Transaction -> Transaction -> Ordering) +Hs.Eq, Eq Transaction +Eq Transaction +-> (Transaction -> Transaction -> Ordering) -> (Transaction -> Transaction -> Bool) -> (Transaction -> Transaction -> Bool) -> (Transaction -> Transaction -> Bool) @@ -1374,8 +1456,8 @@ Transaction -> Transaction -> Bool Transaction -> Transaction -> Ordering Transaction -> Transaction -> Transaction forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -1398,7 +1480,7 @@ $c< :: Transaction -> Transaction -> Bool compare :: Transaction -> Transaction -> Ordering $ccompare :: Transaction -> Transaction -> Ordering $cp1Ord :: Eq Transaction -Hs.Ord, (forall x. Transaction -> Rep Transaction x) +Hs.Ord, (forall x. Transaction -> Rep Transaction x) -> (forall x. Rep Transaction x -> Transaction) -> Generic Transaction forall x. Rep Transaction x -> Transaction @@ -1407,373 +1489,408 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep Transaction x -> Transaction $cfrom :: forall x. Transaction -> Rep Transaction x -Hs.Generic, Transaction -> () +Hs.Generic, Transaction -> () (Transaction -> ()) -> NFData Transaction forall a. (a -> ()) -> NFData a rnf :: Transaction -> () $crnf :: Transaction -> () -Hs.NFData) - -instance HsProtobuf.Named Transaction where - nameOf :: Proxy# Transaction -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named Transaction where + nameOf :: Proxy# Transaction -> string +nameOf Proxy# Transaction +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "Transaction") - -instance HsProtobuf.HasDefault Transaction - -instance HsProtobuf.Message Transaction where - encodeMessage :: FieldNumber -> Transaction -> MessageBuilder -encodeMessage _ - Transaction{transactionHeader :: Transaction -> ByteString -transactionHeader = ByteString -transactionHeader, - transactionHeaderSignature :: Transaction -> Text -transactionHeaderSignature = Text -transactionHeaderSignature, - transactionPayload :: Transaction -> ByteString -transactionPayload = ByteString -transactionPayload} - = ([MessageBuilder] -> MessageBuilder +Hs.fromString String +"Transaction") + +instance HsProtobuf.HasDefault Transaction + +instance HsProtobuf.Message Transaction where + encodeMessage :: FieldNumber -> Transaction -> MessageBuilder +encodeMessage FieldNumber +_ + Transaction{transactionHeader :: Transaction -> ByteString +transactionHeader = ByteString +transactionHeader, + transactionHeaderSignature :: Transaction -> Text +transactionHeaderSignature = Text +transactionHeaderSignature, + transactionPayload :: Transaction -> ByteString +transactionPayload = ByteString +transactionPayload} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> ByteString -> MessageBuilder +Hs.mconcat + [(FieldNumber -> ByteString -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - ByteString -transactionHeader), - (FieldNumber -> Text -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + ByteString +transactionHeader), + (FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - Text -transactionHeaderSignature), - (FieldNumber -> ByteString -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + Text +transactionHeaderSignature), + (FieldNumber -> ByteString -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - ByteString -transactionPayload)]) - decodeMessage :: FieldNumber -> Parser RawMessage Transaction -decodeMessage _ - = ((ByteString -> Text -> ByteString -> Transaction) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + ByteString +transactionPayload)]) + decodeMessage :: FieldNumber -> Parser RawMessage Transaction +decodeMessage FieldNumber +_ + = ((ByteString -> Text -> ByteString -> Transaction) -> Parser RawMessage (ByteString -> Text -> ByteString -> Transaction) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString -> Text -> ByteString -> Transaction +Hs.pure ByteString -> Text -> ByteString -> Transaction Transaction) Parser RawMessage (ByteString -> Text -> ByteString -> Transaction) -> Parser RawMessage ByteString -> Parser RawMessage (Text -> ByteString -> Transaction) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField ByteString +<*> + (Parser RawField ByteString -> FieldNumber -> Parser RawMessage ByteString forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField ByteString +HsProtobuf.at Parser RawField ByteString forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser RawMessage (Text -> ByteString -> Transaction) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (Text -> ByteString -> Transaction) -> Parser RawMessage Text -> Parser RawMessage (ByteString -> Transaction) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2)) - Parser RawMessage (ByteString -> Transaction) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2)) + Parser RawMessage (ByteString -> Transaction) -> Parser RawMessage ByteString -> Parser RawMessage Transaction forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField ByteString +<*> + (Parser RawField ByteString -> FieldNumber -> Parser RawMessage ByteString forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField ByteString +HsProtobuf.at Parser RawField ByteString forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3)) - dotProto :: Proxy# Transaction -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3)) + dotProto :: Proxy# Transaction -> [DotProtoField] +dotProto Proxy# Transaction +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.Bytes) - (String -> DotProtoIdentifier -HsProtobuf.Single "header") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.Bytes) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"header") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "header_signature") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"header_signature") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.Bytes) - (String -> DotProtoIdentifier -HsProtobuf.Single "payload") - [] - "")] - -instance HsJSONPB.ToJSONPB Transaction where - toJSONPB :: Transaction -> Options -> Value -toJSONPB (Transaction f1 :: ByteString -f1 f2 :: Text -f2 f3 :: ByteString -f3) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object - ["header" Text -> ByteString -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.Bytes) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"payload") + [] + String +"")] + +instance HsJSONPB.ToJSONPB Transaction where + toJSONPB :: Transaction -> Options -> Value +toJSONPB (Transaction ByteString +f1 Text +f2 ByteString +f3) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object + [Text +"header" Text -> ByteString -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f1, "header_signature" Text -> Text -> Options -> [Pair] +.= ByteString +f1, Text +"header_signature" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f2, "payload" Text -> ByteString -> Options -> [Pair] +.= Text +f2, Text +"payload" Text -> ByteString -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f3]) - toEncodingPB :: Transaction -> Options -> Encoding -toEncodingPB (Transaction f1 :: ByteString -f1 f2 :: Text -f2 f3 :: ByteString -f3) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs - ["header" Text -> ByteString -> Options -> Series +.= ByteString +f3]) + toEncodingPB :: Transaction -> Options -> Encoding +toEncodingPB (Transaction ByteString +f1 Text +f2 ByteString +f3) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs + [Text +"header" Text -> ByteString -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f1, "header_signature" Text -> Text -> Options -> Series +.= ByteString +f1, Text +"header_signature" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f2, "payload" Text -> ByteString -> Options -> Series +.= Text +f2, Text +"payload" Text -> ByteString -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f3]) - -instance HsJSONPB.FromJSONPB Transaction where - parseJSONPB :: Value -> Parser Transaction -parseJSONPB - = (String +.= ByteString +f3]) + +instance HsJSONPB.FromJSONPB Transaction where + parseJSONPB :: Value -> Parser Transaction +parseJSONPB + = (String -> (Object -> Parser Transaction) -> Value -> Parser Transaction forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "Transaction" - (\ obj :: Object -obj -> - ((ByteString -> Text -> ByteString -> Transaction) +HsJSONPB.withObject String +"Transaction" + (\ Object +obj -> + ((ByteString -> Text -> ByteString -> Transaction) -> Parser (ByteString -> Text -> ByteString -> Transaction) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString -> Text -> ByteString -> Transaction +Hs.pure ByteString -> Text -> ByteString -> Transaction Transaction) Parser (ByteString -> Text -> ByteString -> Transaction) -> Parser ByteString -> Parser (Text -> ByteString -> Transaction) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser ByteString +<*> Object +obj Object -> Text -> Parser ByteString forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "header" Parser (Text -> ByteString -> Transaction) +.: Text +"header" Parser (Text -> ByteString -> Transaction) -> Parser Text -> Parser (ByteString -> Transaction) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser Text +<*> + Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "header_signature" - Parser (ByteString -> Transaction) +.: Text +"header_signature" + Parser (ByteString -> Transaction) -> Parser ByteString -> Parser Transaction forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser ByteString +<*> Object +obj Object -> Text -> Parser ByteString forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "payload")) - -instance HsJSONPB.ToJSON Transaction where - toJSON :: Transaction -> Value -toJSON = Transaction -> Value +.: Text +"payload")) + +instance HsJSONPB.ToJSON Transaction where + toJSON :: Transaction -> Value +toJSON = Transaction -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: Transaction -> Encoding -toEncoding = Transaction -> Encoding +HsJSONPB.toAesonValue + toEncoding :: Transaction -> Encoding +toEncoding = Transaction -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON Transaction where - parseJSON :: Value -> Parser Transaction -parseJSON = Value -> Parser Transaction +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON Transaction where + parseJSON :: Value -> Parser Transaction +parseJSON = Value -> Parser Transaction forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema Transaction where - declareNamedSchema :: Proxy Transaction -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_header :: Proxy (OverrideToSchema ByteString) +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema Transaction where + declareNamedSchema :: Proxy Transaction -> Declare (Definitions Schema) NamedSchema +declareNamedSchema Proxy Transaction +_ + = do let declare_header :: Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_header = Proxy (OverrideToSchema ByteString) +declare_header = Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -transactionHeader <- Proxy (OverrideToSchema ByteString) +HsJSONPB.declareSchemaRef + Referenced Schema +transactionHeader <- Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_header Proxy (OverrideToSchema ByteString) +declare_header Proxy (OverrideToSchema ByteString) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_header_signature :: Proxy (OverrideToSchema Text) +Proxy.Proxy + let declare_header_signature :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_header_signature = Proxy (OverrideToSchema Text) +declare_header_signature = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -transactionHeaderSignature <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +transactionHeaderSignature <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_header_signature Proxy (OverrideToSchema Text) +declare_header_signature Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_payload :: Proxy (OverrideToSchema ByteString) +Proxy.Proxy + let declare_payload :: Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_payload = Proxy (OverrideToSchema ByteString) +declare_payload = Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -transactionPayload <- Proxy (OverrideToSchema ByteString) +HsJSONPB.declareSchemaRef + Referenced Schema +transactionPayload <- Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_payload Proxy (OverrideToSchema ByteString) +declare_payload Proxy (OverrideToSchema ByteString) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy Transaction +Proxy.Proxy + let Proxy Transaction _ = (ByteString -> Text -> ByteString -> Transaction) -> Proxy (ByteString -> Text -> ByteString -> Transaction) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure ByteString -> Text -> ByteString -> Transaction +Hs.pure ByteString -> Text -> ByteString -> Transaction Transaction Proxy (ByteString -> Text -> ByteString -> Transaction) -> Proxy ByteString -> Proxy (Text -> ByteString -> Transaction) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema ByteString) +<*> (Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy ByteString forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) +HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_header Proxy (Text -> ByteString -> Transaction) +declare_header Proxy (Text -> ByteString -> Transaction) -> Proxy Text -> Proxy (ByteString -> Transaction) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema Text) +<*> + (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_header_signature - Proxy (ByteString -> Transaction) +declare_header_signature + Proxy (ByteString -> Transaction) -> Proxy ByteString -> Proxy Transaction forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema ByteString) +<*> (Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy ByteString forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) +HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_payload - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_payload + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "Transaction", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"Transaction", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("header", Referenced Schema -transactionHeader), - ("header_signature", - Referenced Schema -transactionHeaderSignature), - ("payload", Referenced Schema -transactionPayload)]}}) - -newtype TransactionList = TransactionList{TransactionList -> Vector Transaction +HsJSONPB.insOrdFromList + [(Text +"header", Referenced Schema +transactionHeader), + (Text +"header_signature", + Referenced Schema +transactionHeaderSignature), + (Text +"payload", Referenced Schema +transactionPayload)]}}) + +newtype TransactionList = TransactionList{TransactionList -> Vector Transaction transactionListTransactions - :: Hs.Vector Data.Sawtooth.Transaction.Transaction} - deriving (Int -> TransactionList -> ShowS + :: Hs.Vector Data.Sawtooth.Transaction.Transaction} + deriving (Int -> TransactionList -> ShowS [TransactionList] -> ShowS TransactionList -> String (Int -> TransactionList -> ShowS) @@ -1788,7 +1905,7 @@ show :: TransactionList -> String $cshow :: TransactionList -> String showsPrec :: Int -> TransactionList -> ShowS $cshowsPrec :: Int -> TransactionList -> ShowS -Hs.Show, TransactionList -> TransactionList -> Bool +Hs.Show, TransactionList -> TransactionList -> Bool (TransactionList -> TransactionList -> Bool) -> (TransactionList -> TransactionList -> Bool) -> Eq TransactionList @@ -1797,9 +1914,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: TransactionList -> TransactionList -> Bool == :: TransactionList -> TransactionList -> Bool $c== :: TransactionList -> TransactionList -> Bool -Hs.Eq, Eq TransactionList -Eq TransactionList => -(TransactionList -> TransactionList -> Ordering) +Hs.Eq, Eq TransactionList +Eq TransactionList +-> (TransactionList -> TransactionList -> Ordering) -> (TransactionList -> TransactionList -> Bool) -> (TransactionList -> TransactionList -> Bool) -> (TransactionList -> TransactionList -> Bool) @@ -1811,8 +1928,8 @@ TransactionList -> TransactionList -> Bool TransactionList -> TransactionList -> Ordering TransactionList -> TransactionList -> TransactionList forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -1835,7 +1952,7 @@ $c< :: TransactionList -> TransactionList -> Bool compare :: TransactionList -> TransactionList -> Ordering $ccompare :: TransactionList -> TransactionList -> Ordering $cp1Ord :: Eq TransactionList -Hs.Ord, (forall x. TransactionList -> Rep TransactionList x) +Hs.Ord, (forall x. TransactionList -> Rep TransactionList x) -> (forall x. Rep TransactionList x -> TransactionList) -> Generic TransactionList forall x. Rep TransactionList x -> TransactionList @@ -1844,211 +1961,227 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep TransactionList x -> TransactionList $cfrom :: forall x. TransactionList -> Rep TransactionList x -Hs.Generic, TransactionList -> () +Hs.Generic, TransactionList -> () (TransactionList -> ()) -> NFData TransactionList forall a. (a -> ()) -> NFData a rnf :: TransactionList -> () $crnf :: TransactionList -> () -Hs.NFData) - -instance HsProtobuf.Named TransactionList where - nameOf :: Proxy# TransactionList -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named TransactionList where + nameOf :: Proxy# TransactionList -> string +nameOf Proxy# TransactionList +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "TransactionList") - -instance HsProtobuf.HasDefault TransactionList - -instance HsProtobuf.Message TransactionList where - encodeMessage :: FieldNumber -> TransactionList -> MessageBuilder -encodeMessage _ - TransactionList{transactionListTransactions :: TransactionList -> Vector Transaction +Hs.fromString String +"TransactionList") + +instance HsProtobuf.HasDefault TransactionList + +instance HsProtobuf.Message TransactionList where + encodeMessage :: FieldNumber -> TransactionList -> MessageBuilder +encodeMessage FieldNumber +_ + TransactionList{transactionListTransactions :: TransactionList -> Vector Transaction transactionListTransactions = - Vector Transaction -transactionListTransactions} - = ([MessageBuilder] -> MessageBuilder + Vector Transaction +transactionListTransactions} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> NestedVec Transaction -> MessageBuilder +Hs.mconcat + [(FieldNumber -> NestedVec Transaction -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (Vector Transaction -> NestedVec Transaction -forall a b. Coercible a b => a -> b -Hs.coerce @(Hs.Vector Data.Sawtooth.Transaction.Transaction) - @(HsProtobuf.NestedVec Data.Sawtooth.Transaction.Transaction) - Vector Transaction -transactionListTransactions))]) - decodeMessage :: FieldNumber -> Parser RawMessage TransactionList -decodeMessage _ - = ((Vector Transaction -> TransactionList) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (Vector Transaction -> NestedVec Transaction +Hs.coerce @(Hs.Vector Data.Sawtooth.Transaction.Transaction) + @(HsProtobuf.NestedVec Data.Sawtooth.Transaction.Transaction) + Vector Transaction +transactionListTransactions))]) + decodeMessage :: FieldNumber -> Parser RawMessage TransactionList +decodeMessage FieldNumber +_ + = ((Vector Transaction -> TransactionList) -> Parser RawMessage (Vector Transaction -> TransactionList) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector Transaction -> TransactionList +Hs.pure Vector Transaction -> TransactionList TransactionList) Parser RawMessage (Vector Transaction -> TransactionList) -> Parser RawMessage (Vector Transaction) -> Parser RawMessage TransactionList forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (NestedVec Transaction) +<*> + (Parser RawMessage (NestedVec Transaction) -> Parser RawMessage (Vector Transaction) -forall a b. Coercible a b => a -> b -Hs.coerce - @(_ (HsProtobuf.NestedVec Data.Sawtooth.Transaction.Transaction)) - @(_ (Hs.Vector Data.Sawtooth.Transaction.Transaction)) - (Parser RawField (NestedVec Transaction) +Hs.coerce + @(_ (HsProtobuf.NestedVec Data.Sawtooth.Transaction.Transaction)) + @(_ (Hs.Vector Data.Sawtooth.Transaction.Transaction)) + (Parser RawField (NestedVec Transaction) -> FieldNumber -> Parser RawMessage (NestedVec Transaction) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (NestedVec Transaction) +HsProtobuf.at Parser RawField (NestedVec Transaction) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1))) - dotProto :: Proxy# TransactionList -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1))) + dotProto :: Proxy# TransactionList -> [DotProtoField] +dotProto Proxy# TransactionList +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Repeated - (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "Transaction"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "transactions") - [] - "")] - -instance HsJSONPB.ToJSONPB TransactionList where - toJSONPB :: TransactionList -> Options -> Value -toJSONPB (TransactionList f1 :: Vector Transaction -f1) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["transactions" Text -> Vector Transaction -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Repeated + (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"Transaction"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"transactions") + [] + String +"")] + +instance HsJSONPB.ToJSONPB TransactionList where + toJSONPB :: TransactionList -> Options -> Value +toJSONPB (TransactionList Vector Transaction +f1) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"transactions" Text -> Vector Transaction -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Transaction -f1]) - toEncodingPB :: TransactionList -> Options -> Encoding -toEncodingPB (TransactionList f1 :: Vector Transaction -f1) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["transactions" Text -> Vector Transaction -> Options -> Series +.= Vector Transaction +f1]) + toEncodingPB :: TransactionList -> Options -> Encoding +toEncodingPB (TransactionList Vector Transaction +f1) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"transactions" Text -> Vector Transaction -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Transaction -f1]) - -instance HsJSONPB.FromJSONPB TransactionList where - parseJSONPB :: Value -> Parser TransactionList -parseJSONPB - = (String +.= Vector Transaction +f1]) + +instance HsJSONPB.FromJSONPB TransactionList where + parseJSONPB :: Value -> Parser TransactionList +parseJSONPB + = (String -> (Object -> Parser TransactionList) -> Value -> Parser TransactionList forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "TransactionList" - (\ obj :: Object -obj -> ((Vector Transaction -> TransactionList) +HsJSONPB.withObject String +"TransactionList" + (\ Object +obj -> ((Vector Transaction -> TransactionList) -> Parser (Vector Transaction -> TransactionList) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector Transaction -> TransactionList +Hs.pure Vector Transaction -> TransactionList TransactionList) Parser (Vector Transaction -> TransactionList) -> Parser (Vector Transaction) -> Parser TransactionList forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser (Vector Transaction) +<*> Object +obj Object -> Text -> Parser (Vector Transaction) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "transactions")) - -instance HsJSONPB.ToJSON TransactionList where - toJSON :: TransactionList -> Value -toJSON = TransactionList -> Value +.: Text +"transactions")) + +instance HsJSONPB.ToJSON TransactionList where + toJSON :: TransactionList -> Value +toJSON = TransactionList -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: TransactionList -> Encoding -toEncoding = TransactionList -> Encoding +HsJSONPB.toAesonValue + toEncoding :: TransactionList -> Encoding +toEncoding = TransactionList -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON TransactionList where - parseJSON :: Value -> Parser TransactionList -parseJSON = Value -> Parser TransactionList +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON TransactionList where + parseJSON :: Value -> Parser TransactionList +parseJSON = Value -> Parser TransactionList forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema TransactionList where - declareNamedSchema :: Proxy TransactionList -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_transactions :: Proxy (OverrideToSchema (Vector Transaction)) +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema TransactionList where + declareNamedSchema :: Proxy TransactionList -> Declare (Definitions Schema) NamedSchema +declareNamedSchema Proxy TransactionList +_ + = do let declare_transactions :: Proxy (OverrideToSchema (Vector Transaction)) -> Declare (Definitions Schema) (Referenced Schema) -declare_transactions = Proxy (OverrideToSchema (Vector Transaction)) +declare_transactions = Proxy (OverrideToSchema (Vector Transaction)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -transactionListTransactions <- Proxy (OverrideToSchema (Vector Transaction)) +HsJSONPB.declareSchemaRef + Referenced Schema +transactionListTransactions <- Proxy (OverrideToSchema (Vector Transaction)) -> Declare (Definitions Schema) (Referenced Schema) -declare_transactions Proxy (OverrideToSchema (Vector Transaction)) +declare_transactions Proxy (OverrideToSchema (Vector Transaction)) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy TransactionList +Proxy.Proxy + let Proxy TransactionList _ = (Vector Transaction -> TransactionList) -> Proxy (Vector Transaction -> TransactionList) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector Transaction -> TransactionList +Hs.pure Vector Transaction -> TransactionList TransactionList Proxy (Vector Transaction -> TransactionList) -> Proxy (Vector Transaction) -> Proxy TransactionList forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema (Vector Transaction)) +<*> + (Proxy (OverrideToSchema (Vector Transaction)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Vector Transaction) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Transaction)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Transaction)) -> Declare (Definitions Schema) (Referenced Schema) -declare_transactions - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_transactions + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "TransactionList", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"TransactionList", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("transactions", - Referenced Schema -transactionListTransactions)]}}) \ No newline at end of file +HsJSONPB.insOrdFromList + [(Text +"transactions", + Referenced Schema +transactionListTransactions)]}}) \ No newline at end of file diff --git a/src/Data.Sawtooth.TransactionReceipt.html b/src/Data.Sawtooth.TransactionReceipt.html index 090b0ff..7dc33d1 100644 --- a/src/Data.Sawtooth.TransactionReceipt.html +++ b/src/Data.Sawtooth.TransactionReceipt.html @@ -9,46 +9,45 @@ {-# OPTIONS_GHC -fno-warn-unused-matches #-} -- | Generated by Haskell protocol buffer compiler. DO NOT EDIT! - -module Data.Sawtooth.TransactionReceipt where -import qualified Prelude as Hs -import qualified Proto3.Suite.Class as HsProtobuf -import qualified Proto3.Suite.DotProto as HsProtobuf -import qualified Proto3.Suite.JSONPB as HsJSONPB -import Proto3.Suite.JSONPB ((.=), (.:)) -import qualified Proto3.Suite.Types as HsProtobuf -import qualified Proto3.Wire as HsProtobuf -import qualified Control.Applicative as Hs -import Control.Applicative ((<*>), (<|>), (<$>)) -import qualified Control.DeepSeq as Hs -import qualified Control.Monad as Hs -import qualified Data.ByteString as Hs -import qualified Data.Coerce as Hs -import qualified Data.Int as Hs (Int16, Int32, Int64) -import qualified Data.List.NonEmpty as Hs (NonEmpty(..)) -import qualified Data.Map as Hs (Map, mapKeysMonotonic) -import qualified Data.Proxy as Proxy -import qualified Data.String as Hs (fromString) -import qualified Data.Text.Lazy as Hs (Text) -import qualified Data.Vector as Hs (Vector) -import qualified Data.Word as Hs (Word16, Word32, Word64) -import qualified GHC.Enum as Hs -import qualified GHC.Generics as Hs -import qualified Unsafe.Coerce as Hs -import qualified Data.Sawtooth.Events - -data TransactionReceipt = TransactionReceipt{TransactionReceipt -> Vector StateChange +module Data.Sawtooth.TransactionReceipt where +import qualified Prelude as Hs +import qualified Proto3.Suite.Class as HsProtobuf +import qualified Proto3.Suite.DotProto as HsProtobuf +import qualified Proto3.Suite.JSONPB as HsJSONPB +import Proto3.Suite.JSONPB ((.=), (.:)) +import qualified Proto3.Suite.Types as HsProtobuf +import qualified Proto3.Wire as HsProtobuf +import qualified Control.Applicative as Hs +import Control.Applicative ((<*>), (<|>), (<$>)) +import qualified Control.DeepSeq as Hs +import qualified Control.Monad as Hs +import qualified Data.ByteString as Hs +import qualified Data.Coerce as Hs +import qualified Data.Int as Hs (Int16, Int32, Int64) +import qualified Data.List.NonEmpty as Hs (NonEmpty(..)) +import qualified Data.Map as Hs (Map, mapKeysMonotonic) +import qualified Data.Proxy as Proxy +import qualified Data.String as Hs (fromString) +import qualified Data.Text.Lazy as Hs (Text) +import qualified Data.Vector as Hs (Vector) +import qualified Data.Word as Hs (Word16, Word32, Word64) +import qualified GHC.Enum as Hs +import qualified GHC.Generics as Hs +import qualified Unsafe.Coerce as Hs +import qualified Data.Sawtooth.Events + +data TransactionReceipt = TransactionReceipt{TransactionReceipt -> Vector StateChange transactionReceiptStateChanges - :: - Hs.Vector Data.Sawtooth.TransactionReceipt.StateChange, - TransactionReceipt -> Vector Event + :: + Hs.Vector Data.Sawtooth.TransactionReceipt.StateChange, + TransactionReceipt -> Vector Event transactionReceiptEvents :: - Hs.Vector Data.Sawtooth.Events.Event, - TransactionReceipt -> Vector ByteString -transactionReceiptData :: Hs.Vector Hs.ByteString, - TransactionReceipt -> Text -transactionReceiptTransactionId :: Hs.Text} - deriving (Int -> TransactionReceipt -> ShowS + Hs.Vector Data.Sawtooth.Events.Event, + TransactionReceipt -> Vector ByteString +transactionReceiptData :: Hs.Vector Hs.ByteString, + TransactionReceipt -> Text +transactionReceiptTransactionId :: Hs.Text} + deriving (Int -> TransactionReceipt -> ShowS [TransactionReceipt] -> ShowS TransactionReceipt -> String (Int -> TransactionReceipt -> ShowS) @@ -63,7 +62,7 @@ show :: TransactionReceipt -> String $cshow :: TransactionReceipt -> String showsPrec :: Int -> TransactionReceipt -> ShowS $cshowsPrec :: Int -> TransactionReceipt -> ShowS -Hs.Show, TransactionReceipt -> TransactionReceipt -> Bool +Hs.Show, TransactionReceipt -> TransactionReceipt -> Bool (TransactionReceipt -> TransactionReceipt -> Bool) -> (TransactionReceipt -> TransactionReceipt -> Bool) -> Eq TransactionReceipt @@ -72,9 +71,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: TransactionReceipt -> TransactionReceipt -> Bool == :: TransactionReceipt -> TransactionReceipt -> Bool $c== :: TransactionReceipt -> TransactionReceipt -> Bool -Hs.Eq, Eq TransactionReceipt -Eq TransactionReceipt => -(TransactionReceipt -> TransactionReceipt -> Ordering) +Hs.Eq, Eq TransactionReceipt +Eq TransactionReceipt +-> (TransactionReceipt -> TransactionReceipt -> Ordering) -> (TransactionReceipt -> TransactionReceipt -> Bool) -> (TransactionReceipt -> TransactionReceipt -> Bool) -> (TransactionReceipt -> TransactionReceipt -> Bool) @@ -86,8 +85,8 @@ TransactionReceipt -> TransactionReceipt -> Bool TransactionReceipt -> TransactionReceipt -> Ordering TransactionReceipt -> TransactionReceipt -> TransactionReceipt forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -110,7 +109,7 @@ $c< :: TransactionReceipt -> TransactionReceipt -> Bool compare :: TransactionReceipt -> TransactionReceipt -> Ordering $ccompare :: TransactionReceipt -> TransactionReceipt -> Ordering $cp1Ord :: Eq TransactionReceipt -Hs.Ord, (forall x. TransactionReceipt -> Rep TransactionReceipt x) +Hs.Ord, (forall x. TransactionReceipt -> Rep TransactionReceipt x) -> (forall x. Rep TransactionReceipt x -> TransactionReceipt) -> Generic TransactionReceipt forall x. Rep TransactionReceipt x -> TransactionReceipt @@ -119,87 +118,92 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep TransactionReceipt x -> TransactionReceipt $cfrom :: forall x. TransactionReceipt -> Rep TransactionReceipt x -Hs.Generic, TransactionReceipt -> () +Hs.Generic, TransactionReceipt -> () (TransactionReceipt -> ()) -> NFData TransactionReceipt forall a. (a -> ()) -> NFData a rnf :: TransactionReceipt -> () $crnf :: TransactionReceipt -> () -Hs.NFData) - -instance HsProtobuf.Named TransactionReceipt where - nameOf :: Proxy# TransactionReceipt -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named TransactionReceipt where + nameOf :: Proxy# TransactionReceipt -> string +nameOf Proxy# TransactionReceipt +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "TransactionReceipt") - -instance HsProtobuf.HasDefault TransactionReceipt - -instance HsProtobuf.Message TransactionReceipt where - encodeMessage :: FieldNumber -> TransactionReceipt -> MessageBuilder -encodeMessage _ - TransactionReceipt{transactionReceiptStateChanges :: TransactionReceipt -> Vector StateChange +Hs.fromString String +"TransactionReceipt") + +instance HsProtobuf.HasDefault TransactionReceipt + +instance HsProtobuf.Message TransactionReceipt where + encodeMessage :: FieldNumber -> TransactionReceipt -> MessageBuilder +encodeMessage FieldNumber +_ + TransactionReceipt{transactionReceiptStateChanges :: TransactionReceipt -> Vector StateChange transactionReceiptStateChanges = - Vector StateChange -transactionReceiptStateChanges, - transactionReceiptEvents :: TransactionReceipt -> Vector Event -transactionReceiptEvents = Vector Event -transactionReceiptEvents, - transactionReceiptData :: TransactionReceipt -> Vector ByteString -transactionReceiptData = Vector ByteString -transactionReceiptData, - transactionReceiptTransactionId :: TransactionReceipt -> Text -transactionReceiptTransactionId = Text -transactionReceiptTransactionId} - = ([MessageBuilder] -> MessageBuilder + Vector StateChange +transactionReceiptStateChanges, + transactionReceiptEvents :: TransactionReceipt -> Vector Event +transactionReceiptEvents = Vector Event +transactionReceiptEvents, + transactionReceiptData :: TransactionReceipt -> Vector ByteString +transactionReceiptData = Vector ByteString +transactionReceiptData, + transactionReceiptTransactionId :: TransactionReceipt -> Text +transactionReceiptTransactionId = Text +transactionReceiptTransactionId} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> NestedVec StateChange -> MessageBuilder +Hs.mconcat + [(FieldNumber -> NestedVec StateChange -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (Vector StateChange -> NestedVec StateChange -forall a b. Coercible a b => a -> b -Hs.coerce - @(Hs.Vector Data.Sawtooth.TransactionReceipt.StateChange) - @(HsProtobuf.NestedVec Data.Sawtooth.TransactionReceipt.StateChange) - Vector StateChange -transactionReceiptStateChanges)), - (FieldNumber -> NestedVec Event -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (Vector StateChange -> NestedVec StateChange +Hs.coerce + @(Hs.Vector Data.Sawtooth.TransactionReceipt.StateChange) + @(HsProtobuf.NestedVec Data.Sawtooth.TransactionReceipt.StateChange) + Vector StateChange +transactionReceiptStateChanges)), + (FieldNumber -> NestedVec Event -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (Vector Event -> NestedVec Event -forall a b. Coercible a b => a -> b -Hs.coerce @(Hs.Vector Data.Sawtooth.Events.Event) - @(HsProtobuf.NestedVec Data.Sawtooth.Events.Event) - Vector Event -transactionReceiptEvents)), - (FieldNumber -> UnpackedVec ByteString -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (Vector Event -> NestedVec Event +Hs.coerce @(Hs.Vector Data.Sawtooth.Events.Event) + @(HsProtobuf.NestedVec Data.Sawtooth.Events.Event) + Vector Event +transactionReceiptEvents)), + (FieldNumber -> UnpackedVec ByteString -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - (Vector ByteString -> UnpackedVec ByteString -forall a b. Coercible a b => a -> b -Hs.coerce @(Hs.Vector Hs.ByteString) - @(HsProtobuf.UnpackedVec Hs.ByteString) - Vector ByteString -transactionReceiptData)), - (FieldNumber -> Text -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + (Vector ByteString -> UnpackedVec ByteString +Hs.coerce @(Hs.Vector Hs.ByteString) + @(HsProtobuf.UnpackedVec Hs.ByteString) + Vector ByteString +transactionReceiptData)), + (FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 4) - Text -transactionReceiptTransactionId)]) - decodeMessage :: FieldNumber -> Parser RawMessage TransactionReceipt -decodeMessage _ - = ((Vector StateChange +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +4) + Text +transactionReceiptTransactionId)]) + decodeMessage :: FieldNumber -> Parser RawMessage TransactionReceipt +decodeMessage FieldNumber +_ + = ((Vector StateChange -> Vector Event -> Vector ByteString -> Text -> TransactionReceipt) -> Parser RawMessage (Vector StateChange -> Vector Event -> Vector ByteString -> Text -> TransactionReceipt) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector StateChange +Hs.pure Vector StateChange -> Vector Event -> Vector ByteString -> Text -> TransactionReceipt TransactionReceipt) Parser RawMessage @@ -210,218 +214,243 @@ forall (f :: * -> *) a. Applicative f => a -> f a RawMessage (Vector Event -> Vector ByteString -> Text -> TransactionReceipt) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (NestedVec StateChange) +<*> + (Parser RawMessage (NestedVec StateChange) -> Parser RawMessage (Vector StateChange) -forall a b. Coercible a b => a -> b -Hs.coerce - @(_ (HsProtobuf.NestedVec Data.Sawtooth.TransactionReceipt.StateChange)) - @(_ (Hs.Vector Data.Sawtooth.TransactionReceipt.StateChange)) - (Parser RawField (NestedVec StateChange) +Hs.coerce + @(_ (HsProtobuf.NestedVec Data.Sawtooth.TransactionReceipt.StateChange)) + @(_ (Hs.Vector Data.Sawtooth.TransactionReceipt.StateChange)) + (Parser RawField (NestedVec StateChange) -> FieldNumber -> Parser RawMessage (NestedVec StateChange) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (NestedVec StateChange) +HsProtobuf.at Parser RawField (NestedVec StateChange) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1))) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1))) + Parser RawMessage (Vector Event -> Vector ByteString -> Text -> TransactionReceipt) -> Parser RawMessage (Vector Event) -> Parser RawMessage (Vector ByteString -> Text -> TransactionReceipt) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (NestedVec Event) +<*> + (Parser RawMessage (NestedVec Event) -> Parser RawMessage (Vector Event) -forall a b. Coercible a b => a -> b -Hs.coerce @(_ (HsProtobuf.NestedVec Data.Sawtooth.Events.Event)) - @(_ (Hs.Vector Data.Sawtooth.Events.Event)) - (Parser RawField (NestedVec Event) +Hs.coerce @(_ (HsProtobuf.NestedVec Data.Sawtooth.Events.Event)) + @(_ (Hs.Vector Data.Sawtooth.Events.Event)) + (Parser RawField (NestedVec Event) -> FieldNumber -> Parser RawMessage (NestedVec Event) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (NestedVec Event) +HsProtobuf.at Parser RawField (NestedVec Event) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2))) - Parser RawMessage (Vector ByteString -> Text -> TransactionReceipt) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2))) + Parser RawMessage (Vector ByteString -> Text -> TransactionReceipt) -> Parser RawMessage (Vector ByteString) -> Parser RawMessage (Text -> TransactionReceipt) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (UnpackedVec ByteString) +<*> + (Parser RawMessage (UnpackedVec ByteString) -> Parser RawMessage (Vector ByteString) -forall a b. Coercible a b => a -> b -Hs.coerce @(_ (HsProtobuf.UnpackedVec Hs.ByteString)) - @(_ (Hs.Vector Hs.ByteString)) - (Parser RawField (UnpackedVec ByteString) +Hs.coerce @(_ (HsProtobuf.UnpackedVec Hs.ByteString)) + @(_ (Hs.Vector Hs.ByteString)) + (Parser RawField (UnpackedVec ByteString) -> FieldNumber -> Parser RawMessage (UnpackedVec ByteString) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (UnpackedVec ByteString) +HsProtobuf.at Parser RawField (UnpackedVec ByteString) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3))) - Parser RawMessage (Text -> TransactionReceipt) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3))) + Parser RawMessage (Text -> TransactionReceipt) -> Parser RawMessage Text -> Parser RawMessage TransactionReceipt forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 4)) - dotProto :: Proxy# TransactionReceipt -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +4)) + dotProto :: Proxy# TransactionReceipt -> [DotProtoField] +dotProto Proxy# TransactionReceipt +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Repeated - (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "StateChange"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "state_changes") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Repeated + (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"StateChange"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"state_changes") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Repeated - (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "Event"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "events") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Repeated + (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"Event"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"events") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Repeated DotProtoPrimType -HsProtobuf.Bytes) - (String -> DotProtoIdentifier -HsProtobuf.Single "data") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Repeated DotProtoPrimType +HsProtobuf.Bytes) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"data") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 4) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "transaction_id") - [] - "")] - -instance HsJSONPB.ToJSONPB TransactionReceipt where - toJSONPB :: TransactionReceipt -> Options -> Value -toJSONPB (TransactionReceipt f1 :: Vector StateChange -f1 f2 :: Vector Event -f2 f3 :: Vector ByteString -f3 f4 :: Text -f4) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object - ["state_changes" Text -> Vector StateChange -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +4) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"transaction_id") + [] + String +"")] + +instance HsJSONPB.ToJSONPB TransactionReceipt where + toJSONPB :: TransactionReceipt -> Options -> Value +toJSONPB (TransactionReceipt Vector StateChange +f1 Vector Event +f2 Vector ByteString +f3 Text +f4) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object + [Text +"state_changes" Text -> Vector StateChange -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector StateChange -f1, "events" Text -> Vector Event -> Options -> [Pair] +.= Vector StateChange +f1, Text +"events" Text -> Vector Event -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Event -f2, "data" Text -> Vector ByteString -> Options -> [Pair] +.= Vector Event +f2, Text +"data" Text -> Vector ByteString -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector ByteString -f3, - "transaction_id" Text -> Text -> Options -> [Pair] +.= Vector ByteString +f3, + Text +"transaction_id" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f4]) - toEncodingPB :: TransactionReceipt -> Options -> Encoding -toEncodingPB (TransactionReceipt f1 :: Vector StateChange -f1 f2 :: Vector Event -f2 f3 :: Vector ByteString -f3 f4 :: Text -f4) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs - ["state_changes" Text -> Vector StateChange -> Options -> Series +.= Text +f4]) + toEncodingPB :: TransactionReceipt -> Options -> Encoding +toEncodingPB (TransactionReceipt Vector StateChange +f1 Vector Event +f2 Vector ByteString +f3 Text +f4) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs + [Text +"state_changes" Text -> Vector StateChange -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector StateChange -f1, "events" Text -> Vector Event -> Options -> Series +.= Vector StateChange +f1, Text +"events" Text -> Vector Event -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector Event -f2, "data" Text -> Vector ByteString -> Options -> Series +.= Vector Event +f2, Text +"data" Text -> Vector ByteString -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector ByteString -f3, - "transaction_id" Text -> Text -> Options -> Series +.= Vector ByteString +f3, + Text +"transaction_id" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f4]) - -instance HsJSONPB.FromJSONPB TransactionReceipt where - parseJSONPB :: Value -> Parser TransactionReceipt -parseJSONPB - = (String +.= Text +f4]) + +instance HsJSONPB.FromJSONPB TransactionReceipt where + parseJSONPB :: Value -> Parser TransactionReceipt +parseJSONPB + = (String -> (Object -> Parser TransactionReceipt) -> Value -> Parser TransactionReceipt forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "TransactionReceipt" - (\ obj :: Object -obj -> - ((Vector StateChange +HsJSONPB.withObject String +"TransactionReceipt" + (\ Object +obj -> + ((Vector StateChange -> Vector Event -> Vector ByteString -> Text -> TransactionReceipt) -> Parser (Vector StateChange -> Vector Event -> Vector ByteString -> Text -> TransactionReceipt) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector StateChange +Hs.pure Vector StateChange -> Vector Event -> Vector ByteString -> Text -> TransactionReceipt TransactionReceipt) Parser (Vector StateChange @@ -430,128 +459,133 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Parser (Vector Event -> Vector ByteString -> Text -> TransactionReceipt) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser (Vector StateChange) +<*> Object +obj Object -> Text -> Parser (Vector StateChange) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "state_changes" Parser +.: Text +"state_changes" Parser (Vector Event -> Vector ByteString -> Text -> TransactionReceipt) -> Parser (Vector Event) -> Parser (Vector ByteString -> Text -> TransactionReceipt) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser (Vector Event) +<*> + Object +obj Object -> Text -> Parser (Vector Event) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "events" - Parser (Vector ByteString -> Text -> TransactionReceipt) +.: Text +"events" + Parser (Vector ByteString -> Text -> TransactionReceipt) -> Parser (Vector ByteString) -> Parser (Text -> TransactionReceipt) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser (Vector ByteString) +<*> Object +obj Object -> Text -> Parser (Vector ByteString) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "data" - Parser (Text -> TransactionReceipt) +.: Text +"data" + Parser (Text -> TransactionReceipt) -> Parser Text -> Parser TransactionReceipt forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Text +<*> Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "transaction_id")) - -instance HsJSONPB.ToJSON TransactionReceipt where - toJSON :: TransactionReceipt -> Value -toJSON = TransactionReceipt -> Value +.: Text +"transaction_id")) + +instance HsJSONPB.ToJSON TransactionReceipt where + toJSON :: TransactionReceipt -> Value +toJSON = TransactionReceipt -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: TransactionReceipt -> Encoding -toEncoding = TransactionReceipt -> Encoding +HsJSONPB.toAesonValue + toEncoding :: TransactionReceipt -> Encoding +toEncoding = TransactionReceipt -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON TransactionReceipt where - parseJSON :: Value -> Parser TransactionReceipt -parseJSON = Value -> Parser TransactionReceipt +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON TransactionReceipt where + parseJSON :: Value -> Parser TransactionReceipt +parseJSON = Value -> Parser TransactionReceipt forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema TransactionReceipt where - declareNamedSchema :: Proxy TransactionReceipt +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema TransactionReceipt where + declareNamedSchema :: Proxy TransactionReceipt -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_state_changes :: Proxy (OverrideToSchema (Vector StateChange)) +declareNamedSchema Proxy TransactionReceipt +_ + = do let declare_state_changes :: Proxy (OverrideToSchema (Vector StateChange)) -> Declare (Definitions Schema) (Referenced Schema) -declare_state_changes = Proxy (OverrideToSchema (Vector StateChange)) +declare_state_changes = Proxy (OverrideToSchema (Vector StateChange)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -transactionReceiptStateChanges <- Proxy (OverrideToSchema (Vector StateChange)) +HsJSONPB.declareSchemaRef + Referenced Schema +transactionReceiptStateChanges <- Proxy (OverrideToSchema (Vector StateChange)) -> Declare (Definitions Schema) (Referenced Schema) -declare_state_changes Proxy (OverrideToSchema (Vector StateChange)) +declare_state_changes Proxy (OverrideToSchema (Vector StateChange)) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_events :: Proxy (OverrideToSchema (Vector Event)) +Proxy.Proxy + let declare_events :: Proxy (OverrideToSchema (Vector Event)) -> Declare (Definitions Schema) (Referenced Schema) -declare_events = Proxy (OverrideToSchema (Vector Event)) +declare_events = Proxy (OverrideToSchema (Vector Event)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -transactionReceiptEvents <- Proxy (OverrideToSchema (Vector Event)) +HsJSONPB.declareSchemaRef + Referenced Schema +transactionReceiptEvents <- Proxy (OverrideToSchema (Vector Event)) -> Declare (Definitions Schema) (Referenced Schema) -declare_events Proxy (OverrideToSchema (Vector Event)) +declare_events Proxy (OverrideToSchema (Vector Event)) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_data :: Proxy (OverrideToSchema (Vector ByteString)) +Proxy.Proxy + let declare_data :: Proxy (OverrideToSchema (Vector ByteString)) -> Declare (Definitions Schema) (Referenced Schema) -declare_data = Proxy (OverrideToSchema (Vector ByteString)) +declare_data = Proxy (OverrideToSchema (Vector ByteString)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -transactionReceiptData <- Proxy (OverrideToSchema (Vector ByteString)) +HsJSONPB.declareSchemaRef + Referenced Schema +transactionReceiptData <- Proxy (OverrideToSchema (Vector ByteString)) -> Declare (Definitions Schema) (Referenced Schema) -declare_data Proxy (OverrideToSchema (Vector ByteString)) +declare_data Proxy (OverrideToSchema (Vector ByteString)) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_transaction_id :: Proxy (OverrideToSchema Text) +Proxy.Proxy + let declare_transaction_id :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_transaction_id = Proxy (OverrideToSchema Text) +declare_transaction_id = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -transactionReceiptTransactionId <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +transactionReceiptTransactionId <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_transaction_id - Proxy (OverrideToSchema Text) +declare_transaction_id + Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy TransactionReceipt +Proxy.Proxy + let Proxy TransactionReceipt _ = (Vector StateChange -> Vector Event -> Vector ByteString -> Text -> TransactionReceipt) -> Proxy (Vector StateChange -> Vector Event -> Vector ByteString -> Text -> TransactionReceipt) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector StateChange +Hs.pure Vector StateChange -> Vector Event -> Vector ByteString -> Text -> TransactionReceipt TransactionReceipt Proxy (Vector StateChange @@ -560,96 +594,101 @@ forall (f :: * -> *) a. Applicative f => a -> f a -> Proxy (Vector Event -> Vector ByteString -> Text -> TransactionReceipt) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema (Vector StateChange)) +<*> + (Proxy (OverrideToSchema (Vector StateChange)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Vector StateChange) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Vector StateChange)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Vector StateChange)) -> Declare (Definitions Schema) (Referenced Schema) -declare_state_changes - Proxy +declare_state_changes + Proxy (Vector Event -> Vector ByteString -> Text -> TransactionReceipt) -> Proxy (Vector Event) -> Proxy (Vector ByteString -> Text -> TransactionReceipt) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema (Vector Event)) +<*> (Proxy (OverrideToSchema (Vector Event)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Vector Event) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Event)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Event)) -> Declare (Definitions Schema) (Referenced Schema) -declare_events - Proxy (Vector ByteString -> Text -> TransactionReceipt) +declare_events + Proxy (Vector ByteString -> Text -> TransactionReceipt) -> Proxy (Vector ByteString) -> Proxy (Text -> TransactionReceipt) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema (Vector ByteString)) +<*> (Proxy (OverrideToSchema (Vector ByteString)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Vector ByteString) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Vector ByteString)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Vector ByteString)) -> Declare (Definitions Schema) (Referenced Schema) -declare_data - Proxy (Text -> TransactionReceipt) +declare_data + Proxy (Text -> TransactionReceipt) -> Proxy Text -> Proxy TransactionReceipt forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema Text) +<*> (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_transaction_id - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_transaction_id + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "TransactionReceipt", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"TransactionReceipt", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("state_changes", - Referenced Schema -transactionReceiptStateChanges), - ("events", Referenced Schema -transactionReceiptEvents), - ("data", Referenced Schema -transactionReceiptData), - ("transaction_id", - Referenced Schema -transactionReceiptTransactionId)]}}) - -data StateChange = StateChange{StateChange -> Text -stateChangeAddress :: Hs.Text, - StateChange -> ByteString -stateChangeValue :: Hs.ByteString, - StateChange -> Enumerated StateChange_Type +HsJSONPB.insOrdFromList + [(Text +"state_changes", + Referenced Schema +transactionReceiptStateChanges), + (Text +"events", Referenced Schema +transactionReceiptEvents), + (Text +"data", Referenced Schema +transactionReceiptData), + (Text +"transaction_id", + Referenced Schema +transactionReceiptTransactionId)]}}) + +data StateChange = StateChange{StateChange -> Text +stateChangeAddress :: Hs.Text, + StateChange -> ByteString +stateChangeValue :: Hs.ByteString, + StateChange -> Enumerated StateChange_Type stateChangeType :: - HsProtobuf.Enumerated - Data.Sawtooth.TransactionReceipt.StateChange_Type} - deriving (Int -> StateChange -> ShowS + HsProtobuf.Enumerated + Data.Sawtooth.TransactionReceipt.StateChange_Type} + deriving (Int -> StateChange -> ShowS [StateChange] -> ShowS StateChange -> String (Int -> StateChange -> ShowS) @@ -664,7 +703,7 @@ show :: StateChange -> String $cshow :: StateChange -> String showsPrec :: Int -> StateChange -> ShowS $cshowsPrec :: Int -> StateChange -> ShowS -Hs.Show, StateChange -> StateChange -> Bool +Hs.Show, StateChange -> StateChange -> Bool (StateChange -> StateChange -> Bool) -> (StateChange -> StateChange -> Bool) -> Eq StateChange forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a @@ -672,9 +711,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: StateChange -> StateChange -> Bool == :: StateChange -> StateChange -> Bool $c== :: StateChange -> StateChange -> Bool -Hs.Eq, Eq StateChange -Eq StateChange => -(StateChange -> StateChange -> Ordering) +Hs.Eq, Eq StateChange +Eq StateChange +-> (StateChange -> StateChange -> Ordering) -> (StateChange -> StateChange -> Bool) -> (StateChange -> StateChange -> Bool) -> (StateChange -> StateChange -> Bool) @@ -686,8 +725,8 @@ StateChange -> StateChange -> Bool StateChange -> StateChange -> Ordering StateChange -> StateChange -> StateChange forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -710,7 +749,7 @@ $c< :: StateChange -> StateChange -> Bool compare :: StateChange -> StateChange -> Ordering $ccompare :: StateChange -> StateChange -> Ordering $cp1Ord :: Eq StateChange -Hs.Ord, (forall x. StateChange -> Rep StateChange x) +Hs.Ord, (forall x. StateChange -> Rep StateChange x) -> (forall x. Rep StateChange x -> StateChange) -> Generic StateChange forall x. Rep StateChange x -> StateChange @@ -719,62 +758,69 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep StateChange x -> StateChange $cfrom :: forall x. StateChange -> Rep StateChange x -Hs.Generic, StateChange -> () +Hs.Generic, StateChange -> () (StateChange -> ()) -> NFData StateChange forall a. (a -> ()) -> NFData a rnf :: StateChange -> () $crnf :: StateChange -> () -Hs.NFData) - -instance HsProtobuf.Named StateChange where - nameOf :: Proxy# StateChange -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named StateChange where + nameOf :: Proxy# StateChange -> string +nameOf Proxy# StateChange +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "StateChange") - -instance HsProtobuf.HasDefault StateChange - -instance HsProtobuf.Message StateChange where - encodeMessage :: FieldNumber -> StateChange -> MessageBuilder -encodeMessage _ - StateChange{stateChangeAddress :: StateChange -> Text -stateChangeAddress = Text -stateChangeAddress, - stateChangeValue :: StateChange -> ByteString -stateChangeValue = ByteString -stateChangeValue, - stateChangeType :: StateChange -> Enumerated StateChange_Type -stateChangeType = Enumerated StateChange_Type -stateChangeType} - = ([MessageBuilder] -> MessageBuilder +Hs.fromString String +"StateChange") + +instance HsProtobuf.HasDefault StateChange + +instance HsProtobuf.Message StateChange where + encodeMessage :: FieldNumber -> StateChange -> MessageBuilder +encodeMessage FieldNumber +_ + StateChange{stateChangeAddress :: StateChange -> Text +stateChangeAddress = Text +stateChangeAddress, + stateChangeValue :: StateChange -> ByteString +stateChangeValue = ByteString +stateChangeValue, + stateChangeType :: StateChange -> Enumerated StateChange_Type +stateChangeType = Enumerated StateChange_Type +stateChangeType} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> Text -> MessageBuilder +Hs.mconcat + [(FieldNumber -> Text -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - Text -stateChangeAddress), - (FieldNumber -> ByteString -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + Text +stateChangeAddress), + (FieldNumber -> ByteString -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - ByteString -stateChangeValue), - (FieldNumber -> Enumerated StateChange_Type -> MessageBuilder +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + ByteString +stateChangeValue), + (FieldNumber -> Enumerated StateChange_Type -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - Enumerated StateChange_Type -stateChangeType)]) - decodeMessage :: FieldNumber -> Parser RawMessage StateChange -decodeMessage _ - = ((Text -> ByteString -> Enumerated StateChange_Type -> StateChange) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + Enumerated StateChange_Type +stateChangeType)]) + decodeMessage :: FieldNumber -> Parser RawMessage StateChange +decodeMessage FieldNumber +_ + = ((Text -> ByteString -> Enumerated StateChange_Type -> StateChange) -> Parser RawMessage (Text -> ByteString -> Enumerated StateChange_Type -> StateChange) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> ByteString -> Enumerated StateChange_Type -> StateChange +Hs.pure Text -> ByteString -> Enumerated StateChange_Type -> StateChange StateChange) Parser RawMessage (Text -> ByteString -> Enumerated StateChange_Type -> StateChange) @@ -783,323 +829,352 @@ forall (f :: * -> *) a. Applicative f => a -> f a RawMessage (ByteString -> Enumerated StateChange_Type -> StateChange) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField Text -> FieldNumber -> Parser RawMessage Text +<*> + (Parser RawField Text -> FieldNumber -> Parser RawMessage Text forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField Text +HsProtobuf.at Parser RawField Text forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1)) - Parser +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1)) + Parser RawMessage (ByteString -> Enumerated StateChange_Type -> StateChange) -> Parser RawMessage ByteString -> Parser RawMessage (Enumerated StateChange_Type -> StateChange) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField ByteString +<*> + (Parser RawField ByteString -> FieldNumber -> Parser RawMessage ByteString forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField ByteString +HsProtobuf.at Parser RawField ByteString forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2)) - Parser RawMessage (Enumerated StateChange_Type -> StateChange) +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2)) + Parser RawMessage (Enumerated StateChange_Type -> StateChange) -> Parser RawMessage (Enumerated StateChange_Type) -> Parser RawMessage StateChange forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawField (Enumerated StateChange_Type) +<*> + (Parser RawField (Enumerated StateChange_Type) -> FieldNumber -> Parser RawMessage (Enumerated StateChange_Type) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (Enumerated StateChange_Type) +HsProtobuf.at Parser RawField (Enumerated StateChange_Type) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3)) - dotProto :: Proxy# StateChange -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3)) + dotProto :: Proxy# StateChange -> [DotProtoField] +dotProto Proxy# StateChange +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.String) - (String -> DotProtoIdentifier -HsProtobuf.Single "address") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.String) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"address") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 2) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim DotProtoPrimType -HsProtobuf.Bytes) - (String -> DotProtoIdentifier -HsProtobuf.Single "value") - [] - ""), - (FieldNumber +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +2) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim DotProtoPrimType +HsProtobuf.Bytes) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"value") + [] + String +""), + (FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 3) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "Type"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "type") - [] - "")] - -instance HsJSONPB.ToJSONPB StateChange where - toJSONPB :: StateChange -> Options -> Value -toJSONPB (StateChange f1 :: Text -f1 f2 :: ByteString -f2 f3 :: Enumerated StateChange_Type -f3) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["address" Text -> Text -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +3) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Prim (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"Type"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"type") + [] + String +"")] + +instance HsJSONPB.ToJSONPB StateChange where + toJSONPB :: StateChange -> Options -> Value +toJSONPB (StateChange Text +f1 ByteString +f2 Enumerated StateChange_Type +f3) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"address" Text -> Text -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1, "value" Text -> ByteString -> Options -> [Pair] +.= Text +f1, Text +"value" Text -> ByteString -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f2, "type" Text -> Enumerated StateChange_Type -> Options -> [Pair] +.= ByteString +f2, Text +"type" Text -> Enumerated StateChange_Type -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated StateChange_Type -f3]) - toEncodingPB :: StateChange -> Options -> Encoding -toEncodingPB (StateChange f1 :: Text -f1 f2 :: ByteString -f2 f3 :: Enumerated StateChange_Type -f3) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["address" Text -> Text -> Options -> Series +.= Enumerated StateChange_Type +f3]) + toEncodingPB :: StateChange -> Options -> Encoding +toEncodingPB (StateChange Text +f1 ByteString +f2 Enumerated StateChange_Type +f3) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"address" Text -> Text -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Text -f1, "value" Text -> ByteString -> Options -> Series +.= Text +f1, Text +"value" Text -> ByteString -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= ByteString -f2, "type" Text -> Enumerated StateChange_Type -> Options -> Series +.= ByteString +f2, Text +"type" Text -> Enumerated StateChange_Type -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Enumerated StateChange_Type -f3]) - -instance HsJSONPB.FromJSONPB StateChange where - parseJSONPB :: Value -> Parser StateChange -parseJSONPB - = (String +.= Enumerated StateChange_Type +f3]) + +instance HsJSONPB.FromJSONPB StateChange where + parseJSONPB :: Value -> Parser StateChange +parseJSONPB + = (String -> (Object -> Parser StateChange) -> Value -> Parser StateChange forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "StateChange" - (\ obj :: Object -obj -> - ((Text -> ByteString -> Enumerated StateChange_Type -> StateChange) +HsJSONPB.withObject String +"StateChange" + (\ Object +obj -> + ((Text -> ByteString -> Enumerated StateChange_Type -> StateChange) -> Parser (Text -> ByteString -> Enumerated StateChange_Type -> StateChange) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> ByteString -> Enumerated StateChange_Type -> StateChange +Hs.pure Text -> ByteString -> Enumerated StateChange_Type -> StateChange StateChange) Parser (Text -> ByteString -> Enumerated StateChange_Type -> StateChange) -> Parser Text -> Parser (ByteString -> Enumerated StateChange_Type -> StateChange) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser Text +<*> Object +obj Object -> Text -> Parser Text forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "address" Parser (ByteString -> Enumerated StateChange_Type -> StateChange) +.: Text +"address" Parser (ByteString -> Enumerated StateChange_Type -> StateChange) -> Parser ByteString -> Parser (Enumerated StateChange_Type -> StateChange) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser ByteString +<*> Object +obj Object -> Text -> Parser ByteString forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "value" Parser (Enumerated StateChange_Type -> StateChange) +.: Text +"value" Parser (Enumerated StateChange_Type -> StateChange) -> Parser (Enumerated StateChange_Type) -> Parser StateChange forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - Object -obj Object -> Text -> Parser (Enumerated StateChange_Type) +<*> + Object +obj Object -> Text -> Parser (Enumerated StateChange_Type) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "type")) - -instance HsJSONPB.ToJSON StateChange where - toJSON :: StateChange -> Value -toJSON = StateChange -> Value +.: Text +"type")) + +instance HsJSONPB.ToJSON StateChange where + toJSON :: StateChange -> Value +toJSON = StateChange -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: StateChange -> Encoding -toEncoding = StateChange -> Encoding +HsJSONPB.toAesonValue + toEncoding :: StateChange -> Encoding +toEncoding = StateChange -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON StateChange where - parseJSON :: Value -> Parser StateChange -parseJSON = Value -> Parser StateChange +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON StateChange where + parseJSON :: Value -> Parser StateChange +parseJSON = Value -> Parser StateChange forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema StateChange where - declareNamedSchema :: Proxy StateChange -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_address :: Proxy (OverrideToSchema Text) +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema StateChange where + declareNamedSchema :: Proxy StateChange -> Declare (Definitions Schema) NamedSchema +declareNamedSchema Proxy StateChange +_ + = do let declare_address :: Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_address = Proxy (OverrideToSchema Text) +declare_address = Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -stateChangeAddress <- Proxy (OverrideToSchema Text) +HsJSONPB.declareSchemaRef + Referenced Schema +stateChangeAddress <- Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_address Proxy (OverrideToSchema Text) +declare_address Proxy (OverrideToSchema Text) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_value :: Proxy (OverrideToSchema ByteString) +Proxy.Proxy + let declare_value :: Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_value = Proxy (OverrideToSchema ByteString) +declare_value = Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -stateChangeValue <- Proxy (OverrideToSchema ByteString) +HsJSONPB.declareSchemaRef + Referenced Schema +stateChangeValue <- Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_value Proxy (OverrideToSchema ByteString) +declare_value Proxy (OverrideToSchema ByteString) forall k (t :: k). Proxy t -Proxy.Proxy - let declare_type :: Proxy (OverrideToSchema (Enumerated StateChange_Type)) +Proxy.Proxy + let declare_type :: Proxy (OverrideToSchema (Enumerated StateChange_Type)) -> Declare (Definitions Schema) (Referenced Schema) -declare_type = Proxy (OverrideToSchema (Enumerated StateChange_Type)) +declare_type = Proxy (OverrideToSchema (Enumerated StateChange_Type)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -stateChangeType <- Proxy (OverrideToSchema (Enumerated StateChange_Type)) +HsJSONPB.declareSchemaRef + Referenced Schema +stateChangeType <- Proxy (OverrideToSchema (Enumerated StateChange_Type)) -> Declare (Definitions Schema) (Referenced Schema) -declare_type Proxy (OverrideToSchema (Enumerated StateChange_Type)) +declare_type Proxy (OverrideToSchema (Enumerated StateChange_Type)) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy StateChange +Proxy.Proxy + let Proxy StateChange _ = (Text -> ByteString -> Enumerated StateChange_Type -> StateChange) -> Proxy (Text -> ByteString -> Enumerated StateChange_Type -> StateChange) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Text -> ByteString -> Enumerated StateChange_Type -> StateChange +Hs.pure Text -> ByteString -> Enumerated StateChange_Type -> StateChange StateChange Proxy (Text -> ByteString -> Enumerated StateChange_Type -> StateChange) -> Proxy Text -> Proxy (ByteString -> Enumerated StateChange_Type -> StateChange) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema Text) +<*> (Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy Text forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema Text) +HsJSONPB.asProxy Proxy (OverrideToSchema Text) -> Declare (Definitions Schema) (Referenced Schema) -declare_address - Proxy (ByteString -> Enumerated StateChange_Type -> StateChange) +declare_address + Proxy (ByteString -> Enumerated StateChange_Type -> StateChange) -> Proxy ByteString -> Proxy (Enumerated StateChange_Type -> StateChange) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema ByteString) +<*> (Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy ByteString forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) +HsJSONPB.asProxy Proxy (OverrideToSchema ByteString) -> Declare (Definitions Schema) (Referenced Schema) -declare_value - Proxy (Enumerated StateChange_Type -> StateChange) +declare_value + Proxy (Enumerated StateChange_Type -> StateChange) -> Proxy (Enumerated StateChange_Type) -> Proxy StateChange forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> (Proxy (OverrideToSchema (Enumerated StateChange_Type)) +<*> (Proxy (OverrideToSchema (Enumerated StateChange_Type)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Enumerated StateChange_Type) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Enumerated StateChange_Type)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Enumerated StateChange_Type)) -> Declare (Definitions Schema) (Referenced Schema) -declare_type - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_type + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "StateChange", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"StateChange", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("address", Referenced Schema -stateChangeAddress), - ("value", Referenced Schema -stateChangeValue), - ("type", Referenced Schema -stateChangeType)]}}) - -data StateChange_Type = StateChange_TypeTYPE_UNSET - | StateChange_TypeSET - | StateChange_TypeDELETE - deriving (Int -> StateChange_Type -> ShowS +HsJSONPB.insOrdFromList + [(Text +"address", Referenced Schema +stateChangeAddress), + (Text +"value", Referenced Schema +stateChangeValue), + (Text +"type", Referenced Schema +stateChangeType)]}}) + +data StateChange_Type = StateChange_TypeTYPE_UNSET + | StateChange_TypeSET + | StateChange_TypeDELETE + deriving (Int -> StateChange_Type -> ShowS [StateChange_Type] -> ShowS StateChange_Type -> String (Int -> StateChange_Type -> ShowS) @@ -1114,7 +1189,7 @@ show :: StateChange_Type -> String $cshow :: StateChange_Type -> String showsPrec :: Int -> StateChange_Type -> ShowS $cshowsPrec :: Int -> StateChange_Type -> ShowS -Hs.Show, StateChange_Type -> StateChange_Type -> Bool +Hs.Show, StateChange_Type -> StateChange_Type -> Bool (StateChange_Type -> StateChange_Type -> Bool) -> (StateChange_Type -> StateChange_Type -> Bool) -> Eq StateChange_Type @@ -1123,7 +1198,7 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: StateChange_Type -> StateChange_Type -> Bool == :: StateChange_Type -> StateChange_Type -> Bool $c== :: StateChange_Type -> StateChange_Type -> Bool -Hs.Eq, (forall x. StateChange_Type -> Rep StateChange_Type x) +Hs.Eq, (forall x. StateChange_Type -> Rep StateChange_Type x) -> (forall x. Rep StateChange_Type x -> StateChange_Type) -> Generic StateChange_Type forall x. Rep StateChange_Type x -> StateChange_Type @@ -1132,128 +1207,143 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep StateChange_Type x -> StateChange_Type $cfrom :: forall x. StateChange_Type -> Rep StateChange_Type x -Hs.Generic, StateChange_Type -> () +Hs.Generic, StateChange_Type -> () (StateChange_Type -> ()) -> NFData StateChange_Type forall a. (a -> ()) -> NFData a rnf :: StateChange_Type -> () $crnf :: StateChange_Type -> () -Hs.NFData) - -instance HsProtobuf.Named StateChange_Type where - nameOf :: Proxy# StateChange_Type -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named StateChange_Type where + nameOf :: Proxy# StateChange_Type -> string +nameOf Proxy# StateChange_Type +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "StateChange_Type") - -instance HsProtobuf.HasDefault StateChange_Type - -instance Hs.Bounded StateChange_Type where - minBound :: StateChange_Type -minBound = StateChange_Type +Hs.fromString String +"StateChange_Type") + +instance HsProtobuf.HasDefault StateChange_Type + +instance Hs.Bounded StateChange_Type where + minBound :: StateChange_Type +minBound = StateChange_Type StateChange_TypeTYPE_UNSET - maxBound :: StateChange_Type -maxBound = StateChange_Type + maxBound :: StateChange_Type +maxBound = StateChange_Type StateChange_TypeDELETE - -instance Hs.Ord StateChange_Type where - compare :: StateChange_Type -> StateChange_Type -> Ordering -compare x :: StateChange_Type -x y :: StateChange_Type -y - = Int32 -> Int32 -> Ordering + +instance Hs.Ord StateChange_Type where + compare :: StateChange_Type -> StateChange_Type -> Ordering +compare StateChange_Type +x StateChange_Type +y + = Int32 -> Int32 -> Ordering forall a. Ord a => a -> a -> Ordering -Hs.compare (StateChange_Type -> Int32 +Hs.compare (StateChange_Type -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum StateChange_Type -x) - (StateChange_Type -> Int32 +HsProtobuf.fromProtoEnum StateChange_Type +x) + (StateChange_Type -> Int32 forall a. ProtoEnum a => a -> Int32 -HsProtobuf.fromProtoEnum StateChange_Type -y) - -instance HsProtobuf.ProtoEnum StateChange_Type where - toProtoEnumMay :: Int32 -> Maybe StateChange_Type -toProtoEnumMay 0 = StateChange_Type -> Maybe StateChange_Type +HsProtobuf.fromProtoEnum StateChange_Type +y) + +instance HsProtobuf.ProtoEnum StateChange_Type where + toProtoEnumMay :: Int32 -> Maybe StateChange_Type +toProtoEnumMay Int32 +0 = StateChange_Type -> Maybe StateChange_Type forall a. a -> Maybe a -Hs.Just StateChange_Type +Hs.Just StateChange_Type StateChange_TypeTYPE_UNSET - toProtoEnumMay 1 = StateChange_Type -> Maybe StateChange_Type + toProtoEnumMay Int32 +1 = StateChange_Type -> Maybe StateChange_Type forall a. a -> Maybe a -Hs.Just StateChange_Type +Hs.Just StateChange_Type StateChange_TypeSET - toProtoEnumMay 2 = StateChange_Type -> Maybe StateChange_Type + toProtoEnumMay Int32 +2 = StateChange_Type -> Maybe StateChange_Type forall a. a -> Maybe a -Hs.Just StateChange_Type +Hs.Just StateChange_Type StateChange_TypeDELETE - toProtoEnumMay _ = Maybe StateChange_Type + toProtoEnumMay Int32 +_ = Maybe StateChange_Type forall a. Maybe a -Hs.Nothing - fromProtoEnum :: StateChange_Type -> Int32 -fromProtoEnum (StateChange_Type -StateChange_TypeTYPE_UNSET) = 0 - fromProtoEnum (StateChange_Type -StateChange_TypeSET) = 1 - fromProtoEnum (StateChange_Type -StateChange_TypeDELETE) = 2 - -instance HsJSONPB.ToJSONPB StateChange_Type where - toJSONPB :: StateChange_Type -> Options -> Value -toJSONPB x :: StateChange_Type -x _ = StateChange_Type -> Value +Hs.Nothing + fromProtoEnum :: StateChange_Type -> Int32 +fromProtoEnum (StateChange_Type +StateChange_TypeTYPE_UNSET) = Int32 +0 + fromProtoEnum (StateChange_Type +StateChange_TypeSET) = Int32 +1 + fromProtoEnum (StateChange_Type +StateChange_TypeDELETE) = Int32 +2 + +instance HsJSONPB.ToJSONPB StateChange_Type where + toJSONPB :: StateChange_Type -> Options -> Value +toJSONPB StateChange_Type +x Options +_ = StateChange_Type -> Value forall a. (Named a, Show a) => a -> Value -HsJSONPB.enumFieldString StateChange_Type -x - toEncodingPB :: StateChange_Type -> Options -> Encoding -toEncodingPB x :: StateChange_Type -x _ = StateChange_Type -> Encoding +HsJSONPB.enumFieldString StateChange_Type +x + toEncodingPB :: StateChange_Type -> Options -> Encoding +toEncodingPB StateChange_Type +x Options +_ = StateChange_Type -> Encoding forall a. (Named a, Show a) => a -> Encoding -HsJSONPB.enumFieldEncoding StateChange_Type -x - -instance HsJSONPB.FromJSONPB StateChange_Type where - parseJSONPB :: Value -> Parser StateChange_Type -parseJSONPB (HsJSONPB.String "TYPE_UNSET") - = StateChange_Type -> Parser StateChange_Type +HsJSONPB.enumFieldEncoding StateChange_Type +x + +instance HsJSONPB.FromJSONPB StateChange_Type where + parseJSONPB :: Value -> Parser StateChange_Type +parseJSONPB (HsJSONPB.String Text +"TYPE_UNSET") + = StateChange_Type -> Parser StateChange_Type forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure StateChange_Type +Hs.pure StateChange_Type StateChange_TypeTYPE_UNSET - parseJSONPB (HsJSONPB.String "SET") = StateChange_Type -> Parser StateChange_Type + parseJSONPB (HsJSONPB.String Text +"SET") = StateChange_Type -> Parser StateChange_Type forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure StateChange_Type +Hs.pure StateChange_Type StateChange_TypeSET - parseJSONPB (HsJSONPB.String "DELETE") - = StateChange_Type -> Parser StateChange_Type + parseJSONPB (HsJSONPB.String Text +"DELETE") + = StateChange_Type -> Parser StateChange_Type forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure StateChange_Type +Hs.pure StateChange_Type StateChange_TypeDELETE - parseJSONPB v :: Value -v = (String -> Value -> Parser StateChange_Type + parseJSONPB Value +v = (String -> Value -> Parser StateChange_Type forall a. String -> Value -> Parser a -HsJSONPB.typeMismatch "StateChange_Type" Value -v) - -instance HsJSONPB.ToJSON StateChange_Type where - toJSON :: StateChange_Type -> Value -toJSON = StateChange_Type -> Value +HsJSONPB.typeMismatch String +"StateChange_Type" Value +v) + +instance HsJSONPB.ToJSON StateChange_Type where + toJSON :: StateChange_Type -> Value +toJSON = StateChange_Type -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: StateChange_Type -> Encoding -toEncoding = StateChange_Type -> Encoding +HsJSONPB.toAesonValue + toEncoding :: StateChange_Type -> Encoding +toEncoding = StateChange_Type -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON StateChange_Type where - parseJSON :: Value -> Parser StateChange_Type -parseJSON = Value -> Parser StateChange_Type +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON StateChange_Type where + parseJSON :: Value -> Parser StateChange_Type +parseJSON = Value -> Parser StateChange_Type forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsProtobuf.Finite StateChange_Type - -newtype StateChangeList = StateChangeList{StateChangeList -> Vector StateChange +HsJSONPB.parseJSONPB + +instance HsProtobuf.Finite StateChange_Type + +newtype StateChangeList = StateChangeList{StateChangeList -> Vector StateChange stateChangeListStateChanges - :: Hs.Vector Data.Sawtooth.TransactionReceipt.StateChange} - deriving (Int -> StateChangeList -> ShowS + :: Hs.Vector Data.Sawtooth.TransactionReceipt.StateChange} + deriving (Int -> StateChangeList -> ShowS [StateChangeList] -> ShowS StateChangeList -> String (Int -> StateChangeList -> ShowS) @@ -1268,7 +1358,7 @@ show :: StateChangeList -> String $cshow :: StateChangeList -> String showsPrec :: Int -> StateChangeList -> ShowS $cshowsPrec :: Int -> StateChangeList -> ShowS -Hs.Show, StateChangeList -> StateChangeList -> Bool +Hs.Show, StateChangeList -> StateChangeList -> Bool (StateChangeList -> StateChangeList -> Bool) -> (StateChangeList -> StateChangeList -> Bool) -> Eq StateChangeList @@ -1277,9 +1367,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c/= :: StateChangeList -> StateChangeList -> Bool == :: StateChangeList -> StateChangeList -> Bool $c== :: StateChangeList -> StateChangeList -> Bool -Hs.Eq, Eq StateChangeList -Eq StateChangeList => -(StateChangeList -> StateChangeList -> Ordering) +Hs.Eq, Eq StateChangeList +Eq StateChangeList +-> (StateChangeList -> StateChangeList -> Ordering) -> (StateChangeList -> StateChangeList -> Bool) -> (StateChangeList -> StateChangeList -> Bool) -> (StateChangeList -> StateChangeList -> Bool) @@ -1291,8 +1381,8 @@ StateChangeList -> StateChangeList -> Bool StateChangeList -> StateChangeList -> Ordering StateChangeList -> StateChangeList -> StateChangeList forall a. -Eq a => -(a -> a -> Ordering) +Eq a +-> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) @@ -1315,7 +1405,7 @@ $c< :: StateChangeList -> StateChangeList -> Bool compare :: StateChangeList -> StateChangeList -> Ordering $ccompare :: StateChangeList -> StateChangeList -> Ordering $cp1Ord :: Eq StateChangeList -Hs.Ord, (forall x. StateChangeList -> Rep StateChangeList x) +Hs.Ord, (forall x. StateChangeList -> Rep StateChangeList x) -> (forall x. Rep StateChangeList x -> StateChangeList) -> Generic StateChangeList forall x. Rep StateChangeList x -> StateChangeList @@ -1324,212 +1414,228 @@ forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep StateChangeList x -> StateChangeList $cfrom :: forall x. StateChangeList -> Rep StateChangeList x -Hs.Generic, StateChangeList -> () +Hs.Generic, StateChangeList -> () (StateChangeList -> ()) -> NFData StateChangeList forall a. (a -> ()) -> NFData a rnf :: StateChangeList -> () $crnf :: StateChangeList -> () -Hs.NFData) - -instance HsProtobuf.Named StateChangeList where - nameOf :: Proxy# StateChangeList -> string -nameOf _ = (String -> string +Hs.NFData) + +instance HsProtobuf.Named StateChangeList where + nameOf :: Proxy# StateChangeList -> string +nameOf Proxy# StateChangeList +_ = (String -> string forall a. IsString a => String -> a -Hs.fromString "StateChangeList") - -instance HsProtobuf.HasDefault StateChangeList - -instance HsProtobuf.Message StateChangeList where - encodeMessage :: FieldNumber -> StateChangeList -> MessageBuilder -encodeMessage _ - StateChangeList{stateChangeListStateChanges :: StateChangeList -> Vector StateChange +Hs.fromString String +"StateChangeList") + +instance HsProtobuf.HasDefault StateChangeList + +instance HsProtobuf.Message StateChangeList where + encodeMessage :: FieldNumber -> StateChangeList -> MessageBuilder +encodeMessage FieldNumber +_ + StateChangeList{stateChangeListStateChanges :: StateChangeList -> Vector StateChange stateChangeListStateChanges = - Vector StateChange -stateChangeListStateChanges} - = ([MessageBuilder] -> MessageBuilder + Vector StateChange +stateChangeListStateChanges} + = ([MessageBuilder] -> MessageBuilder forall a. Monoid a => [a] -> a -Hs.mconcat - [(FieldNumber -> NestedVec StateChange -> MessageBuilder +Hs.mconcat + [(FieldNumber -> NestedVec StateChange -> MessageBuilder forall a. MessageField a => FieldNumber -> a -> MessageBuilder -HsProtobuf.encodeMessageField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (Vector StateChange -> NestedVec StateChange -forall a b. Coercible a b => a -> b -Hs.coerce - @(Hs.Vector Data.Sawtooth.TransactionReceipt.StateChange) - @(HsProtobuf.NestedVec Data.Sawtooth.TransactionReceipt.StateChange) - Vector StateChange -stateChangeListStateChanges))]) - decodeMessage :: FieldNumber -> Parser RawMessage StateChangeList -decodeMessage _ - = ((Vector StateChange -> StateChangeList) +HsProtobuf.encodeMessageField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (Vector StateChange -> NestedVec StateChange +Hs.coerce + @(Hs.Vector Data.Sawtooth.TransactionReceipt.StateChange) + @(HsProtobuf.NestedVec Data.Sawtooth.TransactionReceipt.StateChange) + Vector StateChange +stateChangeListStateChanges))]) + decodeMessage :: FieldNumber -> Parser RawMessage StateChangeList +decodeMessage FieldNumber +_ + = ((Vector StateChange -> StateChangeList) -> Parser RawMessage (Vector StateChange -> StateChangeList) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector StateChange -> StateChangeList +Hs.pure Vector StateChange -> StateChangeList StateChangeList) Parser RawMessage (Vector StateChange -> StateChangeList) -> Parser RawMessage (Vector StateChange) -> Parser RawMessage StateChangeList forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Parser RawMessage (NestedVec StateChange) +<*> + (Parser RawMessage (NestedVec StateChange) -> Parser RawMessage (Vector StateChange) -forall a b. Coercible a b => a -> b -Hs.coerce - @(_ (HsProtobuf.NestedVec Data.Sawtooth.TransactionReceipt.StateChange)) - @(_ (Hs.Vector Data.Sawtooth.TransactionReceipt.StateChange)) - (Parser RawField (NestedVec StateChange) +Hs.coerce + @(_ (HsProtobuf.NestedVec Data.Sawtooth.TransactionReceipt.StateChange)) + @(_ (Hs.Vector Data.Sawtooth.TransactionReceipt.StateChange)) + (Parser RawField (NestedVec StateChange) -> FieldNumber -> Parser RawMessage (NestedVec StateChange) forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a -HsProtobuf.at Parser RawField (NestedVec StateChange) +HsProtobuf.at Parser RawField (NestedVec StateChange) forall a. MessageField a => Parser RawField a -HsProtobuf.decodeMessageField - (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1))) - dotProto :: Proxy# StateChangeList -> [DotProtoField] -dotProto _ - = [(FieldNumber +HsProtobuf.decodeMessageField + (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1))) + dotProto :: Proxy# StateChangeList -> [DotProtoField] +dotProto Proxy# StateChangeList +_ + = [(FieldNumber -> DotProtoType -> DotProtoIdentifier -> [DotProtoOption] -> String -> DotProtoField -HsProtobuf.DotProtoField (Word64 -> FieldNumber -HsProtobuf.FieldNumber 1) - (DotProtoPrimType -> DotProtoType -HsProtobuf.Repeated - (DotProtoIdentifier -> DotProtoPrimType -HsProtobuf.Named (String -> DotProtoIdentifier -HsProtobuf.Single "StateChange"))) - (String -> DotProtoIdentifier -HsProtobuf.Single "state_changes") - [] - "")] - -instance HsJSONPB.ToJSONPB StateChangeList where - toJSONPB :: StateChangeList -> Options -> Value -toJSONPB (StateChangeList f1 :: Vector StateChange -f1) - = ([Options -> [Pair]] -> Options -> Value -HsJSONPB.object ["state_changes" Text -> Vector StateChange -> Options -> [Pair] +HsProtobuf.DotProtoField (Word64 -> FieldNumber +HsProtobuf.FieldNumber Word64 +1) + (DotProtoPrimType -> DotProtoType +HsProtobuf.Repeated + (DotProtoIdentifier -> DotProtoPrimType +HsProtobuf.Named (String -> DotProtoIdentifier +HsProtobuf.Single String +"StateChange"))) + (String -> DotProtoIdentifier +HsProtobuf.Single String +"state_changes") + [] + String +"")] + +instance HsJSONPB.ToJSONPB StateChangeList where + toJSONPB :: StateChangeList -> Options -> Value +toJSONPB (StateChangeList Vector StateChange +f1) + = ([Options -> [Pair]] -> Options -> Value +HsJSONPB.object [Text +"state_changes" Text -> Vector StateChange -> Options -> [Pair] forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector StateChange -f1]) - toEncodingPB :: StateChangeList -> Options -> Encoding -toEncodingPB (StateChangeList f1 :: Vector StateChange -f1) - = ([Options -> Series] -> Options -> Encoding -HsJSONPB.pairs ["state_changes" Text -> Vector StateChange -> Options -> Series +.= Vector StateChange +f1]) + toEncodingPB :: StateChangeList -> Options -> Encoding +toEncodingPB (StateChangeList Vector StateChange +f1) + = ([Options -> Series] -> Options -> Encoding +HsJSONPB.pairs [Text +"state_changes" Text -> Vector StateChange -> Options -> Series forall v kvp. (HasDefault v, ToJSONPB v, KeyValuePB kvp) => Text -> v -> Options -> kvp -.= Vector StateChange -f1]) - -instance HsJSONPB.FromJSONPB StateChangeList where - parseJSONPB :: Value -> Parser StateChangeList -parseJSONPB - = (String +.= Vector StateChange +f1]) + +instance HsJSONPB.FromJSONPB StateChangeList where + parseJSONPB :: Value -> Parser StateChangeList +parseJSONPB + = (String -> (Object -> Parser StateChangeList) -> Value -> Parser StateChangeList forall a. String -> (Object -> Parser a) -> Value -> Parser a -HsJSONPB.withObject "StateChangeList" - (\ obj :: Object -obj -> ((Vector StateChange -> StateChangeList) +HsJSONPB.withObject String +"StateChangeList" + (\ Object +obj -> ((Vector StateChange -> StateChangeList) -> Parser (Vector StateChange -> StateChangeList) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector StateChange -> StateChangeList +Hs.pure Vector StateChange -> StateChangeList StateChangeList) Parser (Vector StateChange -> StateChangeList) -> Parser (Vector StateChange) -> Parser StateChangeList forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> Object -obj Object -> Text -> Parser (Vector StateChange) +<*> Object +obj Object -> Text -> Parser (Vector StateChange) forall a. (FromJSONPB a, HasDefault a) => Object -> Text -> Parser a -.: "state_changes")) - -instance HsJSONPB.ToJSON StateChangeList where - toJSON :: StateChangeList -> Value -toJSON = StateChangeList -> Value +.: Text +"state_changes")) + +instance HsJSONPB.ToJSON StateChangeList where + toJSON :: StateChangeList -> Value +toJSON = StateChangeList -> Value forall a. ToJSONPB a => a -> Value -HsJSONPB.toAesonValue - toEncoding :: StateChangeList -> Encoding -toEncoding = StateChangeList -> Encoding +HsJSONPB.toAesonValue + toEncoding :: StateChangeList -> Encoding +toEncoding = StateChangeList -> Encoding forall a. ToJSONPB a => a -> Encoding -HsJSONPB.toAesonEncoding - -instance HsJSONPB.FromJSON StateChangeList where - parseJSON :: Value -> Parser StateChangeList -parseJSON = Value -> Parser StateChangeList +HsJSONPB.toAesonEncoding + +instance HsJSONPB.FromJSON StateChangeList where + parseJSON :: Value -> Parser StateChangeList +parseJSON = Value -> Parser StateChangeList forall a. FromJSONPB a => Value -> Parser a -HsJSONPB.parseJSONPB - -instance HsJSONPB.ToSchema StateChangeList where - declareNamedSchema :: Proxy StateChangeList -> Declare (Definitions Schema) NamedSchema -declareNamedSchema _ - = do let declare_state_changes :: Proxy (OverrideToSchema (Vector StateChange)) +HsJSONPB.parseJSONPB + +instance HsJSONPB.ToSchema StateChangeList where + declareNamedSchema :: Proxy StateChangeList -> Declare (Definitions Schema) NamedSchema +declareNamedSchema Proxy StateChangeList +_ + = do let declare_state_changes :: Proxy (OverrideToSchema (Vector StateChange)) -> Declare (Definitions Schema) (Referenced Schema) -declare_state_changes = Proxy (OverrideToSchema (Vector StateChange)) +declare_state_changes = Proxy (OverrideToSchema (Vector StateChange)) -> Declare (Definitions Schema) (Referenced Schema) forall a. ToSchema a => Proxy a -> Declare (Definitions Schema) (Referenced Schema) -HsJSONPB.declareSchemaRef - Referenced Schema -stateChangeListStateChanges <- Proxy (OverrideToSchema (Vector StateChange)) +HsJSONPB.declareSchemaRef + Referenced Schema +stateChangeListStateChanges <- Proxy (OverrideToSchema (Vector StateChange)) -> Declare (Definitions Schema) (Referenced Schema) -declare_state_changes Proxy (OverrideToSchema (Vector StateChange)) +declare_state_changes Proxy (OverrideToSchema (Vector StateChange)) forall k (t :: k). Proxy t -Proxy.Proxy - let Proxy StateChangeList +Proxy.Proxy + let Proxy StateChangeList _ = (Vector StateChange -> StateChangeList) -> Proxy (Vector StateChange -> StateChangeList) forall (f :: * -> *) a. Applicative f => a -> f a -Hs.pure Vector StateChange -> StateChangeList +Hs.pure Vector StateChange -> StateChangeList StateChangeList Proxy (Vector StateChange -> StateChangeList) -> Proxy (Vector StateChange) -> Proxy StateChangeList forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b -<*> - (Proxy (OverrideToSchema (Vector StateChange)) +<*> + (Proxy (OverrideToSchema (Vector StateChange)) -> Declare (Definitions Schema) (Referenced Schema)) -> Proxy (Vector StateChange) forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a -HsJSONPB.asProxy Proxy (OverrideToSchema (Vector StateChange)) +HsJSONPB.asProxy Proxy (OverrideToSchema (Vector StateChange)) -> Declare (Definitions Schema) (Referenced Schema) -declare_state_changes - NamedSchema -> Declare (Definitions Schema) NamedSchema +declare_state_changes + NamedSchema -> Declare (Definitions Schema) NamedSchema forall (m :: * -> *) a. Monad m => a -> m a -Hs.return - (NamedSchema :: Maybe Text -> Schema -> NamedSchema -HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text -HsJSONPB._namedSchemaName = - Text -> Maybe Text +Hs.return + (NamedSchema :: Maybe Text -> Schema -> NamedSchema +HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text +HsJSONPB._namedSchemaName = + Text -> Maybe Text forall a. a -> Maybe a -Hs.Just "StateChangeList", - _namedSchemaSchema :: Schema -HsJSONPB._namedSchemaSchema = - Schema +Hs.Just Text +"StateChangeList", + _namedSchemaSchema :: Schema +HsJSONPB._namedSchemaSchema = + Schema forall a. Monoid a => a -Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema -HsJSONPB._schemaParamSchema = - ParamSchema 'SwaggerKindSchema +Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema +HsJSONPB._schemaParamSchema = + ParamSchema 'SwaggerKindSchema forall a. Monoid a => a -Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) -HsJSONPB._paramSchemaType = - SwaggerType 'SwaggerKindSchema +Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema) +HsJSONPB._paramSchemaType = + SwaggerType 'SwaggerKindSchema -> Maybe (SwaggerType 'SwaggerKindSchema) forall a. a -> Maybe a -Hs.Just SwaggerType 'SwaggerKindSchema -HsJSONPB.SwaggerObject}, - _schemaProperties :: InsOrdHashMap Text (Referenced Schema) -HsJSONPB._schemaProperties = - [(Text, Referenced Schema)] +Hs.Just SwaggerType 'SwaggerKindSchema +HsJSONPB.SwaggerObject}, + _schemaProperties :: InsOrdHashMap Text (Referenced Schema) +HsJSONPB._schemaProperties = + [(Text, Referenced Schema)] -> InsOrdHashMap Text (Referenced Schema) forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v -HsJSONPB.insOrdFromList - [("state_changes", - Referenced Schema -stateChangeListStateChanges)]}}) \ No newline at end of file +HsJSONPB.insOrdFromList + [(Text +"state_changes", + Referenced Schema +stateChangeListStateChanges)]}}) \ No newline at end of file diff --git a/src/Data.Sawtooth.Validator.html b/src/Data.Sawtooth.Validator.html index 24929c2..f45d0be 100644 --- a/src/Data.Sawtooth.Validator.html +++ b/src/Data.Sawtooth.Validator.html @@ -1,4 +1,4 @@ -
{-# LANGUAGE DeriveGeneric     #-}
+
{-# LANGUAGE DeriveGeneric     #-}
 {-# LANGUAGE DeriveAnyClass    #-}
 {-# LANGUAGE DataKinds         #-}
 {-# LANGUAGE GADTs             #-}
@@ -9,37 +9,36 @@
 {-# OPTIONS_GHC -fno-warn-unused-matches #-}
 
 -- | Generated by Haskell protocol buffer compiler. DO NOT EDIT!
-
-module Data.Sawtooth.Validator where
-import qualified Prelude as Hs
-import qualified Proto3.Suite.Class as HsProtobuf
-import qualified Proto3.Suite.DotProto as HsProtobuf
-import qualified Proto3.Suite.JSONPB as HsJSONPB
-import Proto3.Suite.JSONPB ((.=), (.:))
-import qualified Proto3.Suite.Types as HsProtobuf
-import qualified Proto3.Wire as HsProtobuf
-import qualified Control.Applicative as Hs
-import Control.Applicative ((<*>), (<|>), (<$>))
-import qualified Control.DeepSeq as Hs
-import qualified Control.Monad as Hs
-import qualified Data.ByteString as Hs
-import qualified Data.Coerce as Hs
-import qualified Data.Int as Hs (Int16, Int32, Int64)
-import qualified Data.List.NonEmpty as Hs (NonEmpty(..))
-import qualified Data.Map as Hs (Map, mapKeysMonotonic)
-import qualified Data.Proxy as Proxy
-import qualified Data.String as Hs (fromString)
-import qualified Data.Text.Lazy as Hs (Text)
-import qualified Data.Vector as Hs (Vector)
-import qualified Data.Word as Hs (Word16, Word32, Word64)
-import qualified GHC.Enum as Hs
-import qualified GHC.Generics as Hs
-import qualified Unsafe.Coerce as Hs
- 
-newtype MessageList = MessageList{MessageList -> Vector Message
+module Data.Sawtooth.Validator where
+import qualified Prelude as Hs
+import qualified Proto3.Suite.Class as HsProtobuf
+import qualified Proto3.Suite.DotProto as HsProtobuf
+import qualified Proto3.Suite.JSONPB as HsJSONPB
+import Proto3.Suite.JSONPB ((.=), (.:))
+import qualified Proto3.Suite.Types as HsProtobuf
+import qualified Proto3.Wire as HsProtobuf
+import qualified Control.Applicative as Hs
+import Control.Applicative ((<*>), (<|>), (<$>))
+import qualified Control.DeepSeq as Hs
+import qualified Control.Monad as Hs
+import qualified Data.ByteString as Hs
+import qualified Data.Coerce as Hs
+import qualified Data.Int as Hs (Int16, Int32, Int64)
+import qualified Data.List.NonEmpty as Hs (NonEmpty(..))
+import qualified Data.Map as Hs (Map, mapKeysMonotonic)
+import qualified Data.Proxy as Proxy
+import qualified Data.String as Hs (fromString)
+import qualified Data.Text.Lazy as Hs (Text)
+import qualified Data.Vector as Hs (Vector)
+import qualified Data.Word as Hs (Word16, Word32, Word64)
+import qualified GHC.Enum as Hs
+import qualified GHC.Generics as Hs
+import qualified Unsafe.Coerce as Hs
+ 
+newtype MessageList = MessageList{MessageList -> Vector Message
 messageListMessages ::
-                                  Hs.Vector Data.Sawtooth.Validator.Message}
-                      deriving (Int -> MessageList -> ShowS
+                                  Hs.Vector Data.Sawtooth.Validator.Message}
+                      deriving (Int -> MessageList -> ShowS
 [MessageList] -> ShowS
 MessageList -> String
 (Int -> MessageList -> ShowS)
@@ -54,7 +53,7 @@ show :: MessageList -> String
 $cshow :: MessageList -> String
 showsPrec :: Int -> MessageList -> ShowS
 $cshowsPrec :: Int -> MessageList -> ShowS
-Hs.Show, MessageList -> MessageList -> Bool
+Hs.Show, MessageList -> MessageList -> Bool
 (MessageList -> MessageList -> Bool)
 -> (MessageList -> MessageList -> Bool) -> Eq MessageList
 forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
@@ -62,9 +61,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
 $c/= :: MessageList -> MessageList -> Bool
 == :: MessageList -> MessageList -> Bool
 $c== :: MessageList -> MessageList -> Bool
-Hs.Eq, Eq MessageList
-Eq MessageList =>
-(MessageList -> MessageList -> Ordering)
+Hs.Eq, Eq MessageList
+Eq MessageList
+-> (MessageList -> MessageList -> Ordering)
 -> (MessageList -> MessageList -> Bool)
 -> (MessageList -> MessageList -> Bool)
 -> (MessageList -> MessageList -> Bool)
@@ -76,8 +75,8 @@ MessageList -> MessageList -> Bool
 MessageList -> MessageList -> Ordering
 MessageList -> MessageList -> MessageList
 forall a.
-Eq a =>
-(a -> a -> Ordering)
+Eq a
+-> (a -> a -> Ordering)
 -> (a -> a -> Bool)
 -> (a -> a -> Bool)
 -> (a -> a -> Bool)
@@ -100,7 +99,7 @@ $c< :: MessageList -> MessageList -> Bool
 compare :: MessageList -> MessageList -> Ordering
 $ccompare :: MessageList -> MessageList -> Ordering
 $cp1Ord :: Eq MessageList
-Hs.Ord, (forall x. MessageList -> Rep MessageList x)
+Hs.Ord, (forall x. MessageList -> Rep MessageList x)
 -> (forall x. Rep MessageList x -> MessageList)
 -> Generic MessageList
 forall x. Rep MessageList x -> MessageList
@@ -109,215 +108,231 @@ forall a.
 (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
 $cto :: forall x. Rep MessageList x -> MessageList
 $cfrom :: forall x. MessageList -> Rep MessageList x
-Hs.Generic, MessageList -> ()
+Hs.Generic, MessageList -> ()
 (MessageList -> ()) -> NFData MessageList
 forall a. (a -> ()) -> NFData a
 rnf :: MessageList -> ()
 $crnf :: MessageList -> ()
-Hs.NFData)
- 
-instance HsProtobuf.Named MessageList where
-        nameOf :: Proxy# MessageList -> string
-nameOf _ = (String -> string
+Hs.NFData)
+ 
+instance HsProtobuf.Named MessageList where
+        nameOf :: Proxy# MessageList -> string
+nameOf Proxy# MessageList
+_ = (String -> string
 forall a. IsString a => String -> a
-Hs.fromString "MessageList")
- 
-instance HsProtobuf.HasDefault MessageList
- 
-instance HsProtobuf.Message MessageList where
-        encodeMessage :: FieldNumber -> MessageList -> MessageBuilder
-encodeMessage _
-          MessageList{messageListMessages :: MessageList -> Vector Message
-messageListMessages = Vector Message
-messageListMessages}
-          = ([MessageBuilder] -> MessageBuilder
+Hs.fromString String
+"MessageList")
+ 
+instance HsProtobuf.HasDefault MessageList
+ 
+instance HsProtobuf.Message MessageList where
+        encodeMessage :: FieldNumber -> MessageList -> MessageBuilder
+encodeMessage FieldNumber
+_
+          MessageList{messageListMessages :: MessageList -> Vector Message
+messageListMessages = Vector Message
+messageListMessages}
+          = ([MessageBuilder] -> MessageBuilder
 forall a. Monoid a => [a] -> a
-Hs.mconcat
-               [(FieldNumber -> NestedVec Message -> MessageBuilder
+Hs.mconcat
+               [(FieldNumber -> NestedVec Message -> MessageBuilder
 forall a. MessageField a => FieldNumber -> a -> MessageBuilder
-HsProtobuf.encodeMessageField (Word64 -> FieldNumber
-HsProtobuf.FieldNumber 1)
-                   (Vector Message -> NestedVec Message
-forall a b. Coercible a b => a -> b
-Hs.coerce @(Hs.Vector Data.Sawtooth.Validator.Message)
-                      @(HsProtobuf.NestedVec Data.Sawtooth.Validator.Message)
-                      Vector Message
-messageListMessages))])
-        decodeMessage :: FieldNumber -> Parser RawMessage MessageList
-decodeMessage _
-          = ((Vector Message -> MessageList)
+HsProtobuf.encodeMessageField (Word64 -> FieldNumber
+HsProtobuf.FieldNumber Word64
+1)
+                   (Vector Message -> NestedVec Message
+Hs.coerce @(Hs.Vector Data.Sawtooth.Validator.Message)
+                      @(HsProtobuf.NestedVec Data.Sawtooth.Validator.Message)
+                      Vector Message
+messageListMessages))])
+        decodeMessage :: FieldNumber -> Parser RawMessage MessageList
+decodeMessage FieldNumber
+_
+          = ((Vector Message -> MessageList)
 -> Parser RawMessage (Vector Message -> MessageList)
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Vector Message -> MessageList
+Hs.pure Vector Message -> MessageList
 MessageList) Parser RawMessage (Vector Message -> MessageList)
 -> Parser RawMessage (Vector Message)
 -> Parser RawMessage MessageList
 forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
-<*>
-              (Parser RawMessage (NestedVec Message)
+<*>
+              (Parser RawMessage (NestedVec Message)
 -> Parser RawMessage (Vector Message)
-forall a b. Coercible a b => a -> b
-Hs.coerce
-                 @(_ (HsProtobuf.NestedVec Data.Sawtooth.Validator.Message))
-                 @(_ (Hs.Vector Data.Sawtooth.Validator.Message))
-                 (Parser RawField (NestedVec Message)
+Hs.coerce
+                 @(_ (HsProtobuf.NestedVec Data.Sawtooth.Validator.Message))
+                 @(_ (Hs.Vector Data.Sawtooth.Validator.Message))
+                 (Parser RawField (NestedVec Message)
 -> FieldNumber -> Parser RawMessage (NestedVec Message)
 forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a
-HsProtobuf.at Parser RawField (NestedVec Message)
+HsProtobuf.at Parser RawField (NestedVec Message)
 forall a. MessageField a => Parser RawField a
-HsProtobuf.decodeMessageField
-                    (Word64 -> FieldNumber
-HsProtobuf.FieldNumber 1)))
-        dotProto :: Proxy# MessageList -> [DotProtoField]
-dotProto _
-          = [(FieldNumber
+HsProtobuf.decodeMessageField
+                    (Word64 -> FieldNumber
+HsProtobuf.FieldNumber Word64
+1)))
+        dotProto :: Proxy# MessageList -> [DotProtoField]
+dotProto Proxy# MessageList
+_
+          = [(FieldNumber
 -> DotProtoType
 -> DotProtoIdentifier
 -> [DotProtoOption]
 -> String
 -> DotProtoField
-HsProtobuf.DotProtoField (Word64 -> FieldNumber
-HsProtobuf.FieldNumber 1)
-                (DotProtoPrimType -> DotProtoType
-HsProtobuf.Repeated
-                   (DotProtoIdentifier -> DotProtoPrimType
-HsProtobuf.Named (String -> DotProtoIdentifier
-HsProtobuf.Single "Message")))
-                (String -> DotProtoIdentifier
-HsProtobuf.Single "messages")
-                []
-                "")]
- 
-instance HsJSONPB.ToJSONPB MessageList where
-        toJSONPB :: MessageList -> Options -> Value
-toJSONPB (MessageList f1 :: Vector Message
-f1) = ([Options -> [Pair]] -> Options -> Value
-HsJSONPB.object ["messages" Text -> Vector Message -> Options -> [Pair]
+HsProtobuf.DotProtoField (Word64 -> FieldNumber
+HsProtobuf.FieldNumber Word64
+1)
+                (DotProtoPrimType -> DotProtoType
+HsProtobuf.Repeated
+                   (DotProtoIdentifier -> DotProtoPrimType
+HsProtobuf.Named (String -> DotProtoIdentifier
+HsProtobuf.Single String
+"Message")))
+                (String -> DotProtoIdentifier
+HsProtobuf.Single String
+"messages")
+                []
+                String
+"")]
+ 
+instance HsJSONPB.ToJSONPB MessageList where
+        toJSONPB :: MessageList -> Options -> Value
+toJSONPB (MessageList Vector Message
+f1) = ([Options -> [Pair]] -> Options -> Value
+HsJSONPB.object [Text
+"messages" Text -> Vector Message -> Options -> [Pair]
 forall v kvp.
 (HasDefault v, ToJSONPB v, KeyValuePB kvp) =>
 Text -> v -> Options -> kvp
-.= Vector Message
-f1])
-        toEncodingPB :: MessageList -> Options -> Encoding
-toEncodingPB (MessageList f1 :: Vector Message
-f1) = ([Options -> Series] -> Options -> Encoding
-HsJSONPB.pairs ["messages" Text -> Vector Message -> Options -> Series
+.= Vector Message
+f1])
+        toEncodingPB :: MessageList -> Options -> Encoding
+toEncodingPB (MessageList Vector Message
+f1) = ([Options -> Series] -> Options -> Encoding
+HsJSONPB.pairs [Text
+"messages" Text -> Vector Message -> Options -> Series
 forall v kvp.
 (HasDefault v, ToJSONPB v, KeyValuePB kvp) =>
 Text -> v -> Options -> kvp
-.= Vector Message
-f1])
- 
-instance HsJSONPB.FromJSONPB MessageList where
-        parseJSONPB :: Value -> Parser MessageList
-parseJSONPB
-          = (String
+.= Vector Message
+f1])
+ 
+instance HsJSONPB.FromJSONPB MessageList where
+        parseJSONPB :: Value -> Parser MessageList
+parseJSONPB
+          = (String
 -> (Object -> Parser MessageList) -> Value -> Parser MessageList
 forall a. String -> (Object -> Parser a) -> Value -> Parser a
-HsJSONPB.withObject "MessageList"
-               (\ obj :: Object
-obj -> ((Vector Message -> MessageList)
+HsJSONPB.withObject String
+"MessageList"
+               (\ Object
+obj -> ((Vector Message -> MessageList)
 -> Parser (Vector Message -> MessageList)
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Vector Message -> MessageList
+Hs.pure Vector Message -> MessageList
 MessageList) Parser (Vector Message -> MessageList)
 -> Parser (Vector Message) -> Parser MessageList
 forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
-<*> Object
-obj Object -> Text -> Parser (Vector Message)
+<*> Object
+obj Object -> Text -> Parser (Vector Message)
 forall a.
 (FromJSONPB a, HasDefault a) =>
 Object -> Text -> Parser a
-.: "messages"))
- 
-instance HsJSONPB.ToJSON MessageList where
-        toJSON :: MessageList -> Value
-toJSON = MessageList -> Value
+.: Text
+"messages"))
+ 
+instance HsJSONPB.ToJSON MessageList where
+        toJSON :: MessageList -> Value
+toJSON = MessageList -> Value
 forall a. ToJSONPB a => a -> Value
-HsJSONPB.toAesonValue
-        toEncoding :: MessageList -> Encoding
-toEncoding = MessageList -> Encoding
+HsJSONPB.toAesonValue
+        toEncoding :: MessageList -> Encoding
+toEncoding = MessageList -> Encoding
 forall a. ToJSONPB a => a -> Encoding
-HsJSONPB.toAesonEncoding
- 
-instance HsJSONPB.FromJSON MessageList where
-        parseJSON :: Value -> Parser MessageList
-parseJSON = Value -> Parser MessageList
+HsJSONPB.toAesonEncoding
+ 
+instance HsJSONPB.FromJSON MessageList where
+        parseJSON :: Value -> Parser MessageList
+parseJSON = Value -> Parser MessageList
 forall a. FromJSONPB a => Value -> Parser a
-HsJSONPB.parseJSONPB
- 
-instance HsJSONPB.ToSchema MessageList where
-        declareNamedSchema :: Proxy MessageList -> Declare (Definitions Schema) NamedSchema
-declareNamedSchema _
-          = do let declare_messages :: Proxy (OverrideToSchema (Vector Message))
+HsJSONPB.parseJSONPB
+ 
+instance HsJSONPB.ToSchema MessageList where
+        declareNamedSchema :: Proxy MessageList -> Declare (Definitions Schema) NamedSchema
+declareNamedSchema Proxy MessageList
+_
+          = do let declare_messages :: Proxy (OverrideToSchema (Vector Message))
 -> Declare (Definitions Schema) (Referenced Schema)
-declare_messages = Proxy (OverrideToSchema (Vector Message))
+declare_messages = Proxy (OverrideToSchema (Vector Message))
 -> Declare (Definitions Schema) (Referenced Schema)
 forall a.
 ToSchema a =>
 Proxy a -> Declare (Definitions Schema) (Referenced Schema)
-HsJSONPB.declareSchemaRef
-               Referenced Schema
-messageListMessages <- Proxy (OverrideToSchema (Vector Message))
+HsJSONPB.declareSchemaRef
+               Referenced Schema
+messageListMessages <- Proxy (OverrideToSchema (Vector Message))
 -> Declare (Definitions Schema) (Referenced Schema)
-declare_messages Proxy (OverrideToSchema (Vector Message))
+declare_messages Proxy (OverrideToSchema (Vector Message))
 forall k (t :: k). Proxy t
-Proxy.Proxy
-               let Proxy MessageList
+Proxy.Proxy
+               let Proxy MessageList
 _ = (Vector Message -> MessageList)
 -> Proxy (Vector Message -> MessageList)
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Vector Message -> MessageList
+Hs.pure Vector Message -> MessageList
 MessageList Proxy (Vector Message -> MessageList)
 -> Proxy (Vector Message) -> Proxy MessageList
 forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
-<*> (Proxy (OverrideToSchema (Vector Message))
+<*> (Proxy (OverrideToSchema (Vector Message))
  -> Declare (Definitions Schema) (Referenced Schema))
 -> Proxy (Vector Message)
 forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a
-HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Message))
+HsJSONPB.asProxy Proxy (OverrideToSchema (Vector Message))
 -> Declare (Definitions Schema) (Referenced Schema)
-declare_messages
-               NamedSchema -> Declare (Definitions Schema) NamedSchema
+declare_messages
+               NamedSchema -> Declare (Definitions Schema) NamedSchema
 forall (m :: * -> *) a. Monad m => a -> m a
-Hs.return
-                 (NamedSchema :: Maybe Text -> Schema -> NamedSchema
-HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text
-HsJSONPB._namedSchemaName =
-                                         Text -> Maybe Text
+Hs.return
+                 (NamedSchema :: Maybe Text -> Schema -> NamedSchema
+HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text
+HsJSONPB._namedSchemaName =
+                                         Text -> Maybe Text
 forall a. a -> Maybe a
-Hs.Just "MessageList",
-                                       _namedSchemaSchema :: Schema
-HsJSONPB._namedSchemaSchema =
-                                         Schema
+Hs.Just Text
+"MessageList",
+                                       _namedSchemaSchema :: Schema
+HsJSONPB._namedSchemaSchema =
+                                         Schema
 forall a. Monoid a => a
-Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema
-HsJSONPB._schemaParamSchema =
-                                                     ParamSchema 'SwaggerKindSchema
+Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema
+HsJSONPB._schemaParamSchema =
+                                                     ParamSchema 'SwaggerKindSchema
 forall a. Monoid a => a
-Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema)
-HsJSONPB._paramSchemaType =
-                                                                 SwaggerType 'SwaggerKindSchema
+Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema)
+HsJSONPB._paramSchemaType =
+                                                                 SwaggerType 'SwaggerKindSchema
 -> Maybe (SwaggerType 'SwaggerKindSchema)
 forall a. a -> Maybe a
-Hs.Just SwaggerType 'SwaggerKindSchema
-HsJSONPB.SwaggerObject},
-                                                   _schemaProperties :: InsOrdHashMap Text (Referenced Schema)
-HsJSONPB._schemaProperties =
-                                                     [(Text, Referenced Schema)]
+Hs.Just SwaggerType 'SwaggerKindSchema
+HsJSONPB.SwaggerObject},
+                                                   _schemaProperties :: InsOrdHashMap Text (Referenced Schema)
+HsJSONPB._schemaProperties =
+                                                     [(Text, Referenced Schema)]
 -> InsOrdHashMap Text (Referenced Schema)
 forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v
-HsJSONPB.insOrdFromList
-                                                       [("messages", Referenced Schema
-messageListMessages)]}})
- 
-data Message = Message{Message -> Enumerated Message_MessageType
+HsJSONPB.insOrdFromList
+                                                       [(Text
+"messages", Referenced Schema
+messageListMessages)]}})
+ 
+data Message = Message{Message -> Enumerated Message_MessageType
 messageMessageType ::
-                       HsProtobuf.Enumerated Data.Sawtooth.Validator.Message_MessageType,
-                       Message -> Text
-messageCorrelationId :: Hs.Text, Message -> ByteString
-messageContent :: Hs.ByteString}
-             deriving (Int -> Message -> ShowS
+                       HsProtobuf.Enumerated Data.Sawtooth.Validator.Message_MessageType,
+                       Message -> Text
+messageCorrelationId :: Hs.Text, Message -> ByteString
+messageContent :: Hs.ByteString}
+             deriving (Int -> Message -> ShowS
 [Message] -> ShowS
 Message -> String
 (Int -> Message -> ShowS)
@@ -330,7 +345,7 @@ show :: Message -> String
 $cshow :: Message -> String
 showsPrec :: Int -> Message -> ShowS
 $cshowsPrec :: Int -> Message -> ShowS
-Hs.Show, Message -> Message -> Bool
+Hs.Show, Message -> Message -> Bool
 (Message -> Message -> Bool)
 -> (Message -> Message -> Bool) -> Eq Message
 forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
@@ -338,9 +353,9 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
 $c/= :: Message -> Message -> Bool
 == :: Message -> Message -> Bool
 $c== :: Message -> Message -> Bool
-Hs.Eq, Eq Message
-Eq Message =>
-(Message -> Message -> Ordering)
+Hs.Eq, Eq Message
+Eq Message
+-> (Message -> Message -> Ordering)
 -> (Message -> Message -> Bool)
 -> (Message -> Message -> Bool)
 -> (Message -> Message -> Bool)
@@ -352,8 +367,8 @@ Message -> Message -> Bool
 Message -> Message -> Ordering
 Message -> Message -> Message
 forall a.
-Eq a =>
-(a -> a -> Ordering)
+Eq a
+-> (a -> a -> Ordering)
 -> (a -> a -> Bool)
 -> (a -> a -> Bool)
 -> (a -> a -> Bool)
@@ -376,7 +391,7 @@ $c< :: Message -> Message -> Bool
 compare :: Message -> Message -> Ordering
 $ccompare :: Message -> Message -> Ordering
 $cp1Ord :: Eq Message
-Hs.Ord, (forall x. Message -> Rep Message x)
+Hs.Ord, (forall x. Message -> Rep Message x)
 -> (forall x. Rep Message x -> Message) -> Generic Message
 forall x. Rep Message x -> Message
 forall x. Message -> Rep Message x
@@ -384,498 +399,534 @@ forall a.
 (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
 $cto :: forall x. Rep Message x -> Message
 $cfrom :: forall x. Message -> Rep Message x
-Hs.Generic, Message -> ()
+Hs.Generic, Message -> ()
 (Message -> ()) -> NFData Message
 forall a. (a -> ()) -> NFData a
 rnf :: Message -> ()
 $crnf :: Message -> ()
-Hs.NFData)
- 
-instance HsProtobuf.Named Message where
-        nameOf :: Proxy# Message -> string
-nameOf _ = (String -> string
+Hs.NFData)
+ 
+instance HsProtobuf.Named Message where
+        nameOf :: Proxy# Message -> string
+nameOf Proxy# Message
+_ = (String -> string
 forall a. IsString a => String -> a
-Hs.fromString "Message")
- 
-instance HsProtobuf.HasDefault Message
- 
-instance HsProtobuf.Message Message where
-        encodeMessage :: FieldNumber -> Message -> MessageBuilder
-encodeMessage _
-          Message{messageMessageType :: Message -> Enumerated Message_MessageType
-messageMessageType = Enumerated Message_MessageType
-messageMessageType,
-                  messageCorrelationId :: Message -> Text
-messageCorrelationId = Text
-messageCorrelationId,
-                  messageContent :: Message -> ByteString
-messageContent = ByteString
-messageContent}
-          = ([MessageBuilder] -> MessageBuilder
+Hs.fromString String
+"Message")
+ 
+instance HsProtobuf.HasDefault Message
+ 
+instance HsProtobuf.Message Message where
+        encodeMessage :: FieldNumber -> Message -> MessageBuilder
+encodeMessage FieldNumber
+_
+          Message{messageMessageType :: Message -> Enumerated Message_MessageType
+messageMessageType = Enumerated Message_MessageType
+messageMessageType,
+                  messageCorrelationId :: Message -> Text
+messageCorrelationId = Text
+messageCorrelationId,
+                  messageContent :: Message -> ByteString
+messageContent = ByteString
+messageContent}
+          = ([MessageBuilder] -> MessageBuilder
 forall a. Monoid a => [a] -> a
-Hs.mconcat
-               [(FieldNumber -> Enumerated Message_MessageType -> MessageBuilder
+Hs.mconcat
+               [(FieldNumber -> Enumerated Message_MessageType -> MessageBuilder
 forall a. MessageField a => FieldNumber -> a -> MessageBuilder
-HsProtobuf.encodeMessageField (Word64 -> FieldNumber
-HsProtobuf.FieldNumber 1)
-                   Enumerated Message_MessageType
-messageMessageType),
-                (FieldNumber -> Text -> MessageBuilder
+HsProtobuf.encodeMessageField (Word64 -> FieldNumber
+HsProtobuf.FieldNumber Word64
+1)
+                   Enumerated Message_MessageType
+messageMessageType),
+                (FieldNumber -> Text -> MessageBuilder
 forall a. MessageField a => FieldNumber -> a -> MessageBuilder
-HsProtobuf.encodeMessageField (Word64 -> FieldNumber
-HsProtobuf.FieldNumber 2)
-                   Text
-messageCorrelationId),
-                (FieldNumber -> ByteString -> MessageBuilder
+HsProtobuf.encodeMessageField (Word64 -> FieldNumber
+HsProtobuf.FieldNumber Word64
+2)
+                   Text
+messageCorrelationId),
+                (FieldNumber -> ByteString -> MessageBuilder
 forall a. MessageField a => FieldNumber -> a -> MessageBuilder
-HsProtobuf.encodeMessageField (Word64 -> FieldNumber
-HsProtobuf.FieldNumber 3)
-                   ByteString
-messageContent)])
-        decodeMessage :: FieldNumber -> Parser RawMessage Message
-decodeMessage _
-          = ((Enumerated Message_MessageType -> Text -> ByteString -> Message)
+HsProtobuf.encodeMessageField (Word64 -> FieldNumber
+HsProtobuf.FieldNumber Word64
+3)
+                   ByteString
+messageContent)])
+        decodeMessage :: FieldNumber -> Parser RawMessage Message
+decodeMessage FieldNumber
+_
+          = ((Enumerated Message_MessageType -> Text -> ByteString -> Message)
 -> Parser
      RawMessage
      (Enumerated Message_MessageType -> Text -> ByteString -> Message)
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Enumerated Message_MessageType -> Text -> ByteString -> Message
+Hs.pure Enumerated Message_MessageType -> Text -> ByteString -> Message
 Message) Parser
   RawMessage
   (Enumerated Message_MessageType -> Text -> ByteString -> Message)
 -> Parser RawMessage (Enumerated Message_MessageType)
 -> Parser RawMessage (Text -> ByteString -> Message)
 forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
-<*>
-              (Parser RawField (Enumerated Message_MessageType)
+<*>
+              (Parser RawField (Enumerated Message_MessageType)
 -> FieldNumber
 -> Parser RawMessage (Enumerated Message_MessageType)
 forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a
-HsProtobuf.at Parser RawField (Enumerated Message_MessageType)
+HsProtobuf.at Parser RawField (Enumerated Message_MessageType)
 forall a. MessageField a => Parser RawField a
-HsProtobuf.decodeMessageField
-                 (Word64 -> FieldNumber
-HsProtobuf.FieldNumber 1))
-              Parser RawMessage (Text -> ByteString -> Message)
+HsProtobuf.decodeMessageField
+                 (Word64 -> FieldNumber
+HsProtobuf.FieldNumber Word64
+1))
+              Parser RawMessage (Text -> ByteString -> Message)
 -> Parser RawMessage Text
 -> Parser RawMessage (ByteString -> Message)
 forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
-<*>
-              (Parser RawField Text -> FieldNumber -> Parser RawMessage Text
+<*>
+              (Parser RawField Text -> FieldNumber -> Parser RawMessage Text
 forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a
-HsProtobuf.at Parser RawField Text
+HsProtobuf.at Parser RawField Text
 forall a. MessageField a => Parser RawField a
-HsProtobuf.decodeMessageField
-                 (Word64 -> FieldNumber
-HsProtobuf.FieldNumber 2))
-              Parser RawMessage (ByteString -> Message)
+HsProtobuf.decodeMessageField
+                 (Word64 -> FieldNumber
+HsProtobuf.FieldNumber Word64
+2))
+              Parser RawMessage (ByteString -> Message)
 -> Parser RawMessage ByteString -> Parser RawMessage Message
 forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
-<*>
-              (Parser RawField ByteString
+<*>
+              (Parser RawField ByteString
 -> FieldNumber -> Parser RawMessage ByteString
 forall a. Parser RawField a -> FieldNumber -> Parser RawMessage a
-HsProtobuf.at Parser RawField ByteString
+HsProtobuf.at Parser RawField ByteString
 forall a. MessageField a => Parser RawField a
-HsProtobuf.decodeMessageField
-                 (Word64 -> FieldNumber
-HsProtobuf.FieldNumber 3))
-        dotProto :: Proxy# Message -> [DotProtoField]
-dotProto _
-          = [(FieldNumber
+HsProtobuf.decodeMessageField
+                 (Word64 -> FieldNumber
+HsProtobuf.FieldNumber Word64
+3))
+        dotProto :: Proxy# Message -> [DotProtoField]
+dotProto Proxy# Message
+_
+          = [(FieldNumber
 -> DotProtoType
 -> DotProtoIdentifier
 -> [DotProtoOption]
 -> String
 -> DotProtoField
-HsProtobuf.DotProtoField (Word64 -> FieldNumber
-HsProtobuf.FieldNumber 1)
-                (DotProtoPrimType -> DotProtoType
-HsProtobuf.Prim
-                   (DotProtoIdentifier -> DotProtoPrimType
-HsProtobuf.Named (String -> DotProtoIdentifier
-HsProtobuf.Single "MessageType")))
-                (String -> DotProtoIdentifier
-HsProtobuf.Single "message_type")
-                []
-                ""),
-             (FieldNumber
+HsProtobuf.DotProtoField (Word64 -> FieldNumber
+HsProtobuf.FieldNumber Word64
+1)
+                (DotProtoPrimType -> DotProtoType
+HsProtobuf.Prim
+                   (DotProtoIdentifier -> DotProtoPrimType
+HsProtobuf.Named (String -> DotProtoIdentifier
+HsProtobuf.Single String
+"MessageType")))
+                (String -> DotProtoIdentifier
+HsProtobuf.Single String
+"message_type")
+                []
+                String
+""),
+             (FieldNumber
 -> DotProtoType
 -> DotProtoIdentifier
 -> [DotProtoOption]
 -> String
 -> DotProtoField
-HsProtobuf.DotProtoField (Word64 -> FieldNumber
-HsProtobuf.FieldNumber 2)
-                (DotProtoPrimType -> DotProtoType
-HsProtobuf.Prim DotProtoPrimType
-HsProtobuf.String)
-                (String -> DotProtoIdentifier
-HsProtobuf.Single "correlation_id")
-                []
-                ""),
-             (FieldNumber
+HsProtobuf.DotProtoField (Word64 -> FieldNumber
+HsProtobuf.FieldNumber Word64
+2)
+                (DotProtoPrimType -> DotProtoType
+HsProtobuf.Prim DotProtoPrimType
+HsProtobuf.String)
+                (String -> DotProtoIdentifier
+HsProtobuf.Single String
+"correlation_id")
+                []
+                String
+""),
+             (FieldNumber
 -> DotProtoType
 -> DotProtoIdentifier
 -> [DotProtoOption]
 -> String
 -> DotProtoField
-HsProtobuf.DotProtoField (Word64 -> FieldNumber
-HsProtobuf.FieldNumber 3)
-                (DotProtoPrimType -> DotProtoType
-HsProtobuf.Prim DotProtoPrimType
-HsProtobuf.Bytes)
-                (String -> DotProtoIdentifier
-HsProtobuf.Single "content")
-                []
-                "")]
- 
-instance HsJSONPB.ToJSONPB Message where
-        toJSONPB :: Message -> Options -> Value
-toJSONPB (Message f1 :: Enumerated Message_MessageType
-f1 f2 :: Text
-f2 f3 :: ByteString
-f3)
-          = ([Options -> [Pair]] -> Options -> Value
-HsJSONPB.object
-               ["message_type" Text -> Enumerated Message_MessageType -> Options -> [Pair]
+HsProtobuf.DotProtoField (Word64 -> FieldNumber
+HsProtobuf.FieldNumber Word64
+3)
+                (DotProtoPrimType -> DotProtoType
+HsProtobuf.Prim DotProtoPrimType
+HsProtobuf.Bytes)
+                (String -> DotProtoIdentifier
+HsProtobuf.Single String
+"content")
+                []
+                String
+"")]
+ 
+instance HsJSONPB.ToJSONPB Message where
+        toJSONPB :: Message -> Options -> Value
+toJSONPB (Message Enumerated Message_MessageType
+f1 Text
+f2 ByteString
+f3)
+          = ([Options -> [Pair]] -> Options -> Value
+HsJSONPB.object
+               [Text
+"message_type" Text -> Enumerated Message_MessageType -> Options -> [Pair]
 forall v kvp.
 (HasDefault v, ToJSONPB v, KeyValuePB kvp) =>
 Text -> v -> Options -> kvp
-.= Enumerated Message_MessageType
-f1, "correlation_id" Text -> Text -> Options -> [Pair]
+.= Enumerated Message_MessageType
+f1, Text
+"correlation_id" Text -> Text -> Options -> [Pair]
 forall v kvp.
 (HasDefault v, ToJSONPB v, KeyValuePB kvp) =>
 Text -> v -> Options -> kvp
-.= Text
-f2, "content" Text -> ByteString -> Options -> [Pair]
+.= Text
+f2, Text
+"content" Text -> ByteString -> Options -> [Pair]
 forall v kvp.
 (HasDefault v, ToJSONPB v, KeyValuePB kvp) =>
 Text -> v -> Options -> kvp
-.= ByteString
-f3])
-        toEncodingPB :: Message -> Options -> Encoding
-toEncodingPB (Message f1 :: Enumerated Message_MessageType
-f1 f2 :: Text
-f2 f3 :: ByteString
-f3)
-          = ([Options -> Series] -> Options -> Encoding
-HsJSONPB.pairs
-               ["message_type" Text -> Enumerated Message_MessageType -> Options -> Series
+.= ByteString
+f3])
+        toEncodingPB :: Message -> Options -> Encoding
+toEncodingPB (Message Enumerated Message_MessageType
+f1 Text
+f2 ByteString
+f3)
+          = ([Options -> Series] -> Options -> Encoding
+HsJSONPB.pairs
+               [Text
+"message_type" Text -> Enumerated Message_MessageType -> Options -> Series
 forall v kvp.
 (HasDefault v, ToJSONPB v, KeyValuePB kvp) =>
 Text -> v -> Options -> kvp
-.= Enumerated Message_MessageType
-f1, "correlation_id" Text -> Text -> Options -> Series
+.= Enumerated Message_MessageType
+f1, Text
+"correlation_id" Text -> Text -> Options -> Series
 forall v kvp.
 (HasDefault v, ToJSONPB v, KeyValuePB kvp) =>
 Text -> v -> Options -> kvp
-.= Text
-f2, "content" Text -> ByteString -> Options -> Series
+.= Text
+f2, Text
+"content" Text -> ByteString -> Options -> Series
 forall v kvp.
 (HasDefault v, ToJSONPB v, KeyValuePB kvp) =>
 Text -> v -> Options -> kvp
-.= ByteString
-f3])
- 
-instance HsJSONPB.FromJSONPB Message where
-        parseJSONPB :: Value -> Parser Message
-parseJSONPB
-          = (String -> (Object -> Parser Message) -> Value -> Parser Message
+.= ByteString
+f3])
+ 
+instance HsJSONPB.FromJSONPB Message where
+        parseJSONPB :: Value -> Parser Message
+parseJSONPB
+          = (String -> (Object -> Parser Message) -> Value -> Parser Message
 forall a. String -> (Object -> Parser a) -> Value -> Parser a
-HsJSONPB.withObject "Message"
-               (\ obj :: Object
-obj ->
-                  ((Enumerated Message_MessageType -> Text -> ByteString -> Message)
+HsJSONPB.withObject String
+"Message"
+               (\ Object
+obj ->
+                  ((Enumerated Message_MessageType -> Text -> ByteString -> Message)
 -> Parser
      (Enumerated Message_MessageType -> Text -> ByteString -> Message)
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Enumerated Message_MessageType -> Text -> ByteString -> Message
+Hs.pure Enumerated Message_MessageType -> Text -> ByteString -> Message
 Message) Parser
   (Enumerated Message_MessageType -> Text -> ByteString -> Message)
 -> Parser (Enumerated Message_MessageType)
 -> Parser (Text -> ByteString -> Message)
 forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
-<*> Object
-obj Object -> Text -> Parser (Enumerated Message_MessageType)
+<*> Object
+obj Object -> Text -> Parser (Enumerated Message_MessageType)
 forall a.
 (FromJSONPB a, HasDefault a) =>
 Object -> Text -> Parser a
-.: "message_type" Parser (Text -> ByteString -> Message)
+.: Text
+"message_type" Parser (Text -> ByteString -> Message)
 -> Parser Text -> Parser (ByteString -> Message)
 forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
-<*>
-                    Object
-obj Object -> Text -> Parser Text
+<*>
+                    Object
+obj Object -> Text -> Parser Text
 forall a.
 (FromJSONPB a, HasDefault a) =>
 Object -> Text -> Parser a
-.: "correlation_id"
-                    Parser (ByteString -> Message)
+.: Text
+"correlation_id"
+                    Parser (ByteString -> Message)
 -> Parser ByteString -> Parser Message
 forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
-<*> Object
-obj Object -> Text -> Parser ByteString
+<*> Object
+obj Object -> Text -> Parser ByteString
 forall a.
 (FromJSONPB a, HasDefault a) =>
 Object -> Text -> Parser a
-.: "content"))
- 
-instance HsJSONPB.ToJSON Message where
-        toJSON :: Message -> Value
-toJSON = Message -> Value
+.: Text
+"content"))
+ 
+instance HsJSONPB.ToJSON Message where
+        toJSON :: Message -> Value
+toJSON = Message -> Value
 forall a. ToJSONPB a => a -> Value
-HsJSONPB.toAesonValue
-        toEncoding :: Message -> Encoding
-toEncoding = Message -> Encoding
+HsJSONPB.toAesonValue
+        toEncoding :: Message -> Encoding
+toEncoding = Message -> Encoding
 forall a. ToJSONPB a => a -> Encoding
-HsJSONPB.toAesonEncoding
- 
-instance HsJSONPB.FromJSON Message where
-        parseJSON :: Value -> Parser Message
-parseJSON = Value -> Parser Message
+HsJSONPB.toAesonEncoding
+ 
+instance HsJSONPB.FromJSON Message where
+        parseJSON :: Value -> Parser Message
+parseJSON = Value -> Parser Message
 forall a. FromJSONPB a => Value -> Parser a
-HsJSONPB.parseJSONPB
- 
-instance HsJSONPB.ToSchema Message where
-        declareNamedSchema :: Proxy Message -> Declare (Definitions Schema) NamedSchema
-declareNamedSchema _
-          = do let declare_message_type :: Proxy (OverrideToSchema (Enumerated Message_MessageType))
+HsJSONPB.parseJSONPB
+ 
+instance HsJSONPB.ToSchema Message where
+        declareNamedSchema :: Proxy Message -> Declare (Definitions Schema) NamedSchema
+declareNamedSchema Proxy Message
+_
+          = do let declare_message_type :: Proxy (OverrideToSchema (Enumerated Message_MessageType))
 -> Declare (Definitions Schema) (Referenced Schema)
-declare_message_type = Proxy (OverrideToSchema (Enumerated Message_MessageType))
+declare_message_type = Proxy (OverrideToSchema (Enumerated Message_MessageType))
 -> Declare (Definitions Schema) (Referenced Schema)
 forall a.
 ToSchema a =>
 Proxy a -> Declare (Definitions Schema) (Referenced Schema)
-HsJSONPB.declareSchemaRef
-               Referenced Schema
-messageMessageType <- Proxy (OverrideToSchema (Enumerated Message_MessageType))
+HsJSONPB.declareSchemaRef
+               Referenced Schema
+messageMessageType <- Proxy (OverrideToSchema (Enumerated Message_MessageType))
 -> Declare (Definitions Schema) (Referenced Schema)
-declare_message_type Proxy (OverrideToSchema (Enumerated Message_MessageType))
+declare_message_type Proxy (OverrideToSchema (Enumerated Message_MessageType))
 forall k (t :: k). Proxy t
-Proxy.Proxy
-               let declare_correlation_id :: Proxy (OverrideToSchema Text)
+Proxy.Proxy
+               let declare_correlation_id :: Proxy (OverrideToSchema Text)
 -> Declare (Definitions Schema) (Referenced Schema)
-declare_correlation_id = Proxy (OverrideToSchema Text)
+declare_correlation_id = Proxy (OverrideToSchema Text)
 -> Declare (Definitions Schema) (Referenced Schema)
 forall a.
 ToSchema a =>
 Proxy a -> Declare (Definitions Schema) (Referenced Schema)
-HsJSONPB.declareSchemaRef
-               Referenced Schema
-messageCorrelationId <- Proxy (OverrideToSchema Text)
+HsJSONPB.declareSchemaRef
+               Referenced Schema
+messageCorrelationId <- Proxy (OverrideToSchema Text)
 -> Declare (Definitions Schema) (Referenced Schema)
-declare_correlation_id Proxy (OverrideToSchema Text)
+declare_correlation_id Proxy (OverrideToSchema Text)
 forall k (t :: k). Proxy t
-Proxy.Proxy
-               let declare_content :: Proxy (OverrideToSchema ByteString)
+Proxy.Proxy
+               let declare_content :: Proxy (OverrideToSchema ByteString)
 -> Declare (Definitions Schema) (Referenced Schema)
-declare_content = Proxy (OverrideToSchema ByteString)
+declare_content = Proxy (OverrideToSchema ByteString)
 -> Declare (Definitions Schema) (Referenced Schema)
 forall a.
 ToSchema a =>
 Proxy a -> Declare (Definitions Schema) (Referenced Schema)
-HsJSONPB.declareSchemaRef
-               Referenced Schema
-messageContent <- Proxy (OverrideToSchema ByteString)
+HsJSONPB.declareSchemaRef
+               Referenced Schema
+messageContent <- Proxy (OverrideToSchema ByteString)
 -> Declare (Definitions Schema) (Referenced Schema)
-declare_content Proxy (OverrideToSchema ByteString)
+declare_content Proxy (OverrideToSchema ByteString)
 forall k (t :: k). Proxy t
-Proxy.Proxy
-               let Proxy Message
+Proxy.Proxy
+               let Proxy Message
 _ = (Enumerated Message_MessageType -> Text -> ByteString -> Message)
 -> Proxy
      (Enumerated Message_MessageType -> Text -> ByteString -> Message)
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Enumerated Message_MessageType -> Text -> ByteString -> Message
+Hs.pure Enumerated Message_MessageType -> Text -> ByteString -> Message
 Message Proxy
   (Enumerated Message_MessageType -> Text -> ByteString -> Message)
 -> Proxy (Enumerated Message_MessageType)
 -> Proxy (Text -> ByteString -> Message)
 forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
-<*> (Proxy (OverrideToSchema (Enumerated Message_MessageType))
+<*> (Proxy (OverrideToSchema (Enumerated Message_MessageType))
  -> Declare (Definitions Schema) (Referenced Schema))
 -> Proxy (Enumerated Message_MessageType)
 forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a
-HsJSONPB.asProxy Proxy (OverrideToSchema (Enumerated Message_MessageType))
+HsJSONPB.asProxy Proxy (OverrideToSchema (Enumerated Message_MessageType))
 -> Declare (Definitions Schema) (Referenced Schema)
-declare_message_type
-                         Proxy (Text -> ByteString -> Message)
+declare_message_type
+                         Proxy (Text -> ByteString -> Message)
 -> Proxy Text -> Proxy (ByteString -> Message)
 forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
-<*> (Proxy (OverrideToSchema Text)
+<*> (Proxy (OverrideToSchema Text)
  -> Declare (Definitions Schema) (Referenced Schema))
 -> Proxy Text
 forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a
-HsJSONPB.asProxy Proxy (OverrideToSchema Text)
+HsJSONPB.asProxy Proxy (OverrideToSchema Text)
 -> Declare (Definitions Schema) (Referenced Schema)
-declare_correlation_id
-                         Proxy (ByteString -> Message) -> Proxy ByteString -> Proxy Message
+declare_correlation_id
+                         Proxy (ByteString -> Message) -> Proxy ByteString -> Proxy Message
 forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
-<*> (Proxy (OverrideToSchema ByteString)
+<*> (Proxy (OverrideToSchema ByteString)
  -> Declare (Definitions Schema) (Referenced Schema))
 -> Proxy ByteString
 forall a b. (Proxy (OverrideToSchema a) -> b) -> Proxy a
-HsJSONPB.asProxy Proxy (OverrideToSchema ByteString)
+HsJSONPB.asProxy Proxy (OverrideToSchema ByteString)
 -> Declare (Definitions Schema) (Referenced Schema)
-declare_content
-               NamedSchema -> Declare (Definitions Schema) NamedSchema
+declare_content
+               NamedSchema -> Declare (Definitions Schema) NamedSchema
 forall (m :: * -> *) a. Monad m => a -> m a
-Hs.return
-                 (NamedSchema :: Maybe Text -> Schema -> NamedSchema
-HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text
-HsJSONPB._namedSchemaName =
-                                         Text -> Maybe Text
+Hs.return
+                 (NamedSchema :: Maybe Text -> Schema -> NamedSchema
+HsJSONPB.NamedSchema{_namedSchemaName :: Maybe Text
+HsJSONPB._namedSchemaName =
+                                         Text -> Maybe Text
 forall a. a -> Maybe a
-Hs.Just "Message",
-                                       _namedSchemaSchema :: Schema
-HsJSONPB._namedSchemaSchema =
-                                         Schema
+Hs.Just Text
+"Message",
+                                       _namedSchemaSchema :: Schema
+HsJSONPB._namedSchemaSchema =
+                                         Schema
 forall a. Monoid a => a
-Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema
-HsJSONPB._schemaParamSchema =
-                                                     ParamSchema 'SwaggerKindSchema
+Hs.mempty{_schemaParamSchema :: ParamSchema 'SwaggerKindSchema
+HsJSONPB._schemaParamSchema =
+                                                     ParamSchema 'SwaggerKindSchema
 forall a. Monoid a => a
-Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema)
-HsJSONPB._paramSchemaType =
-                                                                 SwaggerType 'SwaggerKindSchema
+Hs.mempty{_paramSchemaType :: Maybe (SwaggerType 'SwaggerKindSchema)
+HsJSONPB._paramSchemaType =
+                                                                 SwaggerType 'SwaggerKindSchema
 -> Maybe (SwaggerType 'SwaggerKindSchema)
 forall a. a -> Maybe a
-Hs.Just SwaggerType 'SwaggerKindSchema
-HsJSONPB.SwaggerObject},
-                                                   _schemaProperties :: InsOrdHashMap Text (Referenced Schema)
-HsJSONPB._schemaProperties =
-                                                     [(Text, Referenced Schema)]
+Hs.Just SwaggerType 'SwaggerKindSchema
+HsJSONPB.SwaggerObject},
+                                                   _schemaProperties :: InsOrdHashMap Text (Referenced Schema)
+HsJSONPB._schemaProperties =
+                                                     [(Text, Referenced Schema)]
 -> InsOrdHashMap Text (Referenced Schema)
 forall k v. (Eq k, Hashable k) => [(k, v)] -> InsOrdHashMap k v
-HsJSONPB.insOrdFromList
-                                                       [("message_type", Referenced Schema
-messageMessageType),
-                                                        ("correlation_id", Referenced Schema
-messageCorrelationId),
-                                                        ("content", Referenced Schema
-messageContent)]}})
- 
-data Message_MessageType = Message_MessageTypeDEFAULT
-                         | Message_MessageTypeTP_REGISTER_REQUEST
-                         | Message_MessageTypeTP_REGISTER_RESPONSE
-                         | Message_MessageTypeTP_UNREGISTER_REQUEST
-                         | Message_MessageTypeTP_UNREGISTER_RESPONSE
-                         | Message_MessageTypeTP_PROCESS_REQUEST
-                         | Message_MessageTypeTP_PROCESS_RESPONSE
-                         | Message_MessageTypeTP_STATE_GET_REQUEST
-                         | Message_MessageTypeTP_STATE_GET_RESPONSE
-                         | Message_MessageTypeTP_STATE_SET_REQUEST
-                         | Message_MessageTypeTP_STATE_SET_RESPONSE
-                         | Message_MessageTypeTP_STATE_DELETE_REQUEST
-                         | Message_MessageTypeTP_STATE_DELETE_RESPONSE
-                         | Message_MessageTypeTP_RECEIPT_ADD_DATA_REQUEST
-                         | Message_MessageTypeTP_RECEIPT_ADD_DATA_RESPONSE
-                         | Message_MessageTypeTP_EVENT_ADD_REQUEST
-                         | Message_MessageTypeTP_EVENT_ADD_RESPONSE
-                         | Message_MessageTypeCLIENT_BATCH_SUBMIT_REQUEST
-                         | Message_MessageTypeCLIENT_BATCH_SUBMIT_RESPONSE
-                         | Message_MessageTypeCLIENT_BLOCK_LIST_REQUEST
-                         | Message_MessageTypeCLIENT_BLOCK_LIST_RESPONSE
-                         | Message_MessageTypeCLIENT_BLOCK_GET_BY_ID_REQUEST
-                         | Message_MessageTypeCLIENT_BLOCK_GET_RESPONSE
-                         | Message_MessageTypeCLIENT_BATCH_LIST_REQUEST
-                         | Message_MessageTypeCLIENT_BATCH_LIST_RESPONSE
-                         | Message_MessageTypeCLIENT_BATCH_GET_REQUEST
-                         | Message_MessageTypeCLIENT_BATCH_GET_RESPONSE
-                         | Message_MessageTypeCLIENT_TRANSACTION_LIST_REQUEST
-                         | Message_MessageTypeCLIENT_TRANSACTION_LIST_RESPONSE
-                         | Message_MessageTypeCLIENT_TRANSACTION_GET_REQUEST
-                         | Message_MessageTypeCLIENT_TRANSACTION_GET_RESPONSE
-                         | Message_MessageTypeCLIENT_STATE_CURRENT_REQUEST
-                         | Message_MessageTypeCLIENT_STATE_CURRENT_RESPONSE
-                         | Message_MessageTypeCLIENT_STATE_LIST_REQUEST
-                         | Message_MessageTypeCLIENT_STATE_LIST_RESPONSE
-                         | Message_MessageTypeCLIENT_STATE_GET_REQUEST
-                         | Message_MessageTypeCLIENT_STATE_GET_RESPONSE
-                         | Message_MessageTypeCLIENT_BATCH_STATUS_REQUEST
-                         | Message_MessageTypeCLIENT_BATCH_STATUS_RESPONSE
-                         | Message_MessageTypeCLIENT_RECEIPT_GET_REQUEST
-                         | Message_MessageTypeCLIENT_RECEIPT_GET_RESPONSE
-                         | Message_MessageTypeCLIENT_BLOCK_GET_BY_NUM_REQUEST
-                         | Message_MessageTypeCLIENT_PEERS_GET_REQUEST
-                         | Message_MessageTypeCLIENT_PEERS_GET_RESPONSE
-                         | Message_MessageTypeCLIENT_BLOCK_GET_BY_TRANSACTION_ID_REQUEST
-                         | Message_MessageTypeCLIENT_BLOCK_GET_BY_BATCH_ID_REQUEST
-                         | Message_MessageTypeCLIENT_STATUS_GET_REQUEST
-                         | Message_MessageTypeCLIENT_STATUS_GET_RESPONSE
-                         | Message_MessageTypeGOSSIP_MESSAGE
-                         | Message_MessageTypeGOSSIP_REGISTER
-                         | Message_MessageTypeGOSSIP_UNREGISTER
-                         | Message_MessageTypeGOSSIP_BLOCK_REQUEST
-                         | Message_MessageTypeGOSSIP_BLOCK_RESPONSE
-                         | Message_MessageTypeGOSSIP_BATCH_BY_BATCH_ID_REQUEST
-                         | Message_MessageTypeGOSSIP_BATCH_BY_TRANSACTION_ID_REQUEST
-                         | Message_MessageTypeGOSSIP_BATCH_RESPONSE
-                         | Message_MessageTypeGOSSIP_GET_PEERS_REQUEST
-                         | Message_MessageTypeGOSSIP_GET_PEERS_RESPONSE
-                         | Message_MessageTypeGOSSIP_CONSENSUS_MESSAGE
-                         | Message_MessageTypeNETWORK_ACK
-                         | Message_MessageTypeNETWORK_CONNECT
-                         | Message_MessageTypeNETWORK_DISCONNECT
-                         | Message_MessageTypeCLIENT_EVENTS_SUBSCRIBE_REQUEST
-                         | Message_MessageTypeCLIENT_EVENTS_SUBSCRIBE_RESPONSE
-                         | Message_MessageTypeCLIENT_EVENTS_UNSUBSCRIBE_REQUEST
-                         | Message_MessageTypeCLIENT_EVENTS_UNSUBSCRIBE_RESPONSE
-                         | Message_MessageTypeCLIENT_EVENTS
-                         | Message_MessageTypeCLIENT_EVENTS_GET_REQUEST
-                         | Message_MessageTypeCLIENT_EVENTS_GET_RESPONSE
-                         | Message_MessageTypeAUTHORIZATION_CONNECTION_RESPONSE
-                         | Message_MessageTypeAUTHORIZATION_VIOLATION
-                         | Message_MessageTypeAUTHORIZATION_TRUST_REQUEST
-                         | Message_MessageTypeAUTHORIZATION_TRUST_RESPONSE
-                         | Message_MessageTypeAUTHORIZATION_CHALLENGE_REQUEST
-                         | Message_MessageTypeAUTHORIZATION_CHALLENGE_RESPONSE
-                         | Message_MessageTypeAUTHORIZATION_CHALLENGE_SUBMIT
-                         | Message_MessageTypeAUTHORIZATION_CHALLENGE_RESULT
-                         | Message_MessageTypePING_REQUEST
-                         | Message_MessageTypePING_RESPONSE
-                         | Message_MessageTypeCONSENSUS_REGISTER_REQUEST
-                         | Message_MessageTypeCONSENSUS_REGISTER_RESPONSE
-                         | Message_MessageTypeCONSENSUS_SEND_TO_REQUEST
-                         | Message_MessageTypeCONSENSUS_SEND_TO_RESPONSE
-                         | Message_MessageTypeCONSENSUS_BROADCAST_REQUEST
-                         | Message_MessageTypeCONSENSUS_BROADCAST_RESPONSE
-                         | Message_MessageTypeCONSENSUS_INITIALIZE_BLOCK_REQUEST
-                         | Message_MessageTypeCONSENSUS_INITIALIZE_BLOCK_RESPONSE
-                         | Message_MessageTypeCONSENSUS_FINALIZE_BLOCK_REQUEST
-                         | Message_MessageTypeCONSENSUS_FINALIZE_BLOCK_RESPONSE
-                         | Message_MessageTypeCONSENSUS_CANCEL_BLOCK_REQUEST
-                         | Message_MessageTypeCONSENSUS_CANCEL_BLOCK_RESPONSE
-                         | Message_MessageTypeCONSENSUS_CHECK_BLOCKS_REQUEST
-                         | Message_MessageTypeCONSENSUS_CHECK_BLOCKS_RESPONSE
-                         | Message_MessageTypeCONSENSUS_COMMIT_BLOCK_REQUEST
-                         | Message_MessageTypeCONSENSUS_COMMIT_BLOCK_RESPONSE
-                         | Message_MessageTypeCONSENSUS_IGNORE_BLOCK_REQUEST
-                         | Message_MessageTypeCONSENSUS_IGNORE_BLOCK_RESPONSE
-                         | Message_MessageTypeCONSENSUS_FAIL_BLOCK_REQUEST
-                         | Message_MessageTypeCONSENSUS_FAIL_BLOCK_RESPONSE
-                         | Message_MessageTypeCONSENSUS_SETTINGS_GET_REQUEST
-                         | Message_MessageTypeCONSENSUS_SETTINGS_GET_RESPONSE
-                         | Message_MessageTypeCONSENSUS_STATE_GET_REQUEST
-                         | Message_MessageTypeCONSENSUS_STATE_GET_RESPONSE
-                         | Message_MessageTypeCONSENSUS_BLOCKS_GET_REQUEST
-                         | Message_MessageTypeCONSENSUS_BLOCKS_GET_RESPONSE
-                         | Message_MessageTypeCONSENSUS_CHAIN_HEAD_GET_REQUEST
-                         | Message_MessageTypeCONSENSUS_CHAIN_HEAD_GET_RESPONSE
-                         | Message_MessageTypeCONSENSUS_SUMMARIZE_BLOCK_REQUEST
-                         | Message_MessageTypeCONSENSUS_SUMMARIZE_BLOCK_RESPONSE
-                         | Message_MessageTypeCONSENSUS_NOTIFY_PEER_CONNECTED
-                         | Message_MessageTypeCONSENSUS_NOTIFY_PEER_DISCONNECTED
-                         | Message_MessageTypeCONSENSUS_NOTIFY_PEER_MESSAGE
-                         | Message_MessageTypeCONSENSUS_NOTIFY_BLOCK_NEW
-                         | Message_MessageTypeCONSENSUS_NOTIFY_BLOCK_VALID
-                         | Message_MessageTypeCONSENSUS_NOTIFY_BLOCK_INVALID
-                         | Message_MessageTypeCONSENSUS_NOTIFY_BLOCK_COMMIT
-                         | Message_MessageTypeCONSENSUS_NOTIFY_ENGINE_ACTIVATED
-                         | Message_MessageTypeCONSENSUS_NOTIFY_ENGINE_DEACTIVATED
-                         | Message_MessageTypeCONSENSUS_NOTIFY_ACK
-                         deriving (Int -> Message_MessageType -> ShowS
+HsJSONPB.insOrdFromList
+                                                       [(Text
+"message_type", Referenced Schema
+messageMessageType),
+                                                        (Text
+"correlation_id", Referenced Schema
+messageCorrelationId),
+                                                        (Text
+"content", Referenced Schema
+messageContent)]}})
+ 
+data Message_MessageType = Message_MessageTypeDEFAULT
+                         | Message_MessageTypeTP_REGISTER_REQUEST
+                         | Message_MessageTypeTP_REGISTER_RESPONSE
+                         | Message_MessageTypeTP_UNREGISTER_REQUEST
+                         | Message_MessageTypeTP_UNREGISTER_RESPONSE
+                         | Message_MessageTypeTP_PROCESS_REQUEST
+                         | Message_MessageTypeTP_PROCESS_RESPONSE
+                         | Message_MessageTypeTP_STATE_GET_REQUEST
+                         | Message_MessageTypeTP_STATE_GET_RESPONSE
+                         | Message_MessageTypeTP_STATE_SET_REQUEST
+                         | Message_MessageTypeTP_STATE_SET_RESPONSE
+                         | Message_MessageTypeTP_STATE_DELETE_REQUEST
+                         | Message_MessageTypeTP_STATE_DELETE_RESPONSE
+                         | Message_MessageTypeTP_RECEIPT_ADD_DATA_REQUEST
+                         | Message_MessageTypeTP_RECEIPT_ADD_DATA_RESPONSE
+                         | Message_MessageTypeTP_EVENT_ADD_REQUEST
+                         | Message_MessageTypeTP_EVENT_ADD_RESPONSE
+                         | Message_MessageTypeCLIENT_BATCH_SUBMIT_REQUEST
+                         | Message_MessageTypeCLIENT_BATCH_SUBMIT_RESPONSE
+                         | Message_MessageTypeCLIENT_BLOCK_LIST_REQUEST
+                         | Message_MessageTypeCLIENT_BLOCK_LIST_RESPONSE
+                         | Message_MessageTypeCLIENT_BLOCK_GET_BY_ID_REQUEST
+                         | Message_MessageTypeCLIENT_BLOCK_GET_RESPONSE
+                         | Message_MessageTypeCLIENT_BATCH_LIST_REQUEST
+                         | Message_MessageTypeCLIENT_BATCH_LIST_RESPONSE
+                         | Message_MessageTypeCLIENT_BATCH_GET_REQUEST
+                         | Message_MessageTypeCLIENT_BATCH_GET_RESPONSE
+                         | Message_MessageTypeCLIENT_TRANSACTION_LIST_REQUEST
+                         | Message_MessageTypeCLIENT_TRANSACTION_LIST_RESPONSE
+                         | Message_MessageTypeCLIENT_TRANSACTION_GET_REQUEST
+                         | Message_MessageTypeCLIENT_TRANSACTION_GET_RESPONSE
+                         | Message_MessageTypeCLIENT_STATE_CURRENT_REQUEST
+                         | Message_MessageTypeCLIENT_STATE_CURRENT_RESPONSE
+                         | Message_MessageTypeCLIENT_STATE_LIST_REQUEST
+                         | Message_MessageTypeCLIENT_STATE_LIST_RESPONSE
+                         | Message_MessageTypeCLIENT_STATE_GET_REQUEST
+                         | Message_MessageTypeCLIENT_STATE_GET_RESPONSE
+                         | Message_MessageTypeCLIENT_BATCH_STATUS_REQUEST
+                         | Message_MessageTypeCLIENT_BATCH_STATUS_RESPONSE
+                         | Message_MessageTypeCLIENT_RECEIPT_GET_REQUEST
+                         | Message_MessageTypeCLIENT_RECEIPT_GET_RESPONSE
+                         | Message_MessageTypeCLIENT_BLOCK_GET_BY_NUM_REQUEST
+                         | Message_MessageTypeCLIENT_PEERS_GET_REQUEST
+                         | Message_MessageTypeCLIENT_PEERS_GET_RESPONSE
+                         | Message_MessageTypeCLIENT_BLOCK_GET_BY_TRANSACTION_ID_REQUEST
+                         | Message_MessageTypeCLIENT_BLOCK_GET_BY_BATCH_ID_REQUEST
+                         | Message_MessageTypeCLIENT_STATUS_GET_REQUEST
+                         | Message_MessageTypeCLIENT_STATUS_GET_RESPONSE
+                         | Message_MessageTypeGOSSIP_MESSAGE
+                         | Message_MessageTypeGOSSIP_REGISTER
+                         | Message_MessageTypeGOSSIP_UNREGISTER
+                         | Message_MessageTypeGOSSIP_BLOCK_REQUEST
+                         | Message_MessageTypeGOSSIP_BLOCK_RESPONSE
+                         | Message_MessageTypeGOSSIP_BATCH_BY_BATCH_ID_REQUEST
+                         | Message_MessageTypeGOSSIP_BATCH_BY_TRANSACTION_ID_REQUEST
+                         | Message_MessageTypeGOSSIP_BATCH_RESPONSE
+                         | Message_MessageTypeGOSSIP_GET_PEERS_REQUEST
+                         | Message_MessageTypeGOSSIP_GET_PEERS_RESPONSE
+                         | Message_MessageTypeGOSSIP_CONSENSUS_MESSAGE
+                         | Message_MessageTypeNETWORK_ACK
+                         | Message_MessageTypeNETWORK_CONNECT
+                         | Message_MessageTypeNETWORK_DISCONNECT
+                         | Message_MessageTypeCLIENT_EVENTS_SUBSCRIBE_REQUEST
+                         | Message_MessageTypeCLIENT_EVENTS_SUBSCRIBE_RESPONSE
+                         | Message_MessageTypeCLIENT_EVENTS_UNSUBSCRIBE_REQUEST
+                         | Message_MessageTypeCLIENT_EVENTS_UNSUBSCRIBE_RESPONSE
+                         | Message_MessageTypeCLIENT_EVENTS
+                         | Message_MessageTypeCLIENT_EVENTS_GET_REQUEST
+                         | Message_MessageTypeCLIENT_EVENTS_GET_RESPONSE
+                         | Message_MessageTypeAUTHORIZATION_CONNECTION_RESPONSE
+                         | Message_MessageTypeAUTHORIZATION_VIOLATION
+                         | Message_MessageTypeAUTHORIZATION_TRUST_REQUEST
+                         | Message_MessageTypeAUTHORIZATION_TRUST_RESPONSE
+                         | Message_MessageTypeAUTHORIZATION_CHALLENGE_REQUEST
+                         | Message_MessageTypeAUTHORIZATION_CHALLENGE_RESPONSE
+                         | Message_MessageTypeAUTHORIZATION_CHALLENGE_SUBMIT
+                         | Message_MessageTypeAUTHORIZATION_CHALLENGE_RESULT
+                         | Message_MessageTypePING_REQUEST
+                         | Message_MessageTypePING_RESPONSE
+                         | Message_MessageTypeCONSENSUS_REGISTER_REQUEST
+                         | Message_MessageTypeCONSENSUS_REGISTER_RESPONSE
+                         | Message_MessageTypeCONSENSUS_SEND_TO_REQUEST
+                         | Message_MessageTypeCONSENSUS_SEND_TO_RESPONSE
+                         | Message_MessageTypeCONSENSUS_BROADCAST_REQUEST
+                         | Message_MessageTypeCONSENSUS_BROADCAST_RESPONSE
+                         | Message_MessageTypeCONSENSUS_INITIALIZE_BLOCK_REQUEST
+                         | Message_MessageTypeCONSENSUS_INITIALIZE_BLOCK_RESPONSE
+                         | Message_MessageTypeCONSENSUS_FINALIZE_BLOCK_REQUEST
+                         | Message_MessageTypeCONSENSUS_FINALIZE_BLOCK_RESPONSE
+                         | Message_MessageTypeCONSENSUS_CANCEL_BLOCK_REQUEST
+                         | Message_MessageTypeCONSENSUS_CANCEL_BLOCK_RESPONSE
+                         | Message_MessageTypeCONSENSUS_CHECK_BLOCKS_REQUEST
+                         | Message_MessageTypeCONSENSUS_CHECK_BLOCKS_RESPONSE
+                         | Message_MessageTypeCONSENSUS_COMMIT_BLOCK_REQUEST
+                         | Message_MessageTypeCONSENSUS_COMMIT_BLOCK_RESPONSE
+                         | Message_MessageTypeCONSENSUS_IGNORE_BLOCK_REQUEST
+                         | Message_MessageTypeCONSENSUS_IGNORE_BLOCK_RESPONSE
+                         | Message_MessageTypeCONSENSUS_FAIL_BLOCK_REQUEST
+                         | Message_MessageTypeCONSENSUS_FAIL_BLOCK_RESPONSE
+                         | Message_MessageTypeCONSENSUS_SETTINGS_GET_REQUEST
+                         | Message_MessageTypeCONSENSUS_SETTINGS_GET_RESPONSE
+                         | Message_MessageTypeCONSENSUS_STATE_GET_REQUEST
+                         | Message_MessageTypeCONSENSUS_STATE_GET_RESPONSE
+                         | Message_MessageTypeCONSENSUS_BLOCKS_GET_REQUEST
+                         | Message_MessageTypeCONSENSUS_BLOCKS_GET_RESPONSE
+                         | Message_MessageTypeCONSENSUS_CHAIN_HEAD_GET_REQUEST
+                         | Message_MessageTypeCONSENSUS_CHAIN_HEAD_GET_RESPONSE
+                         | Message_MessageTypeCONSENSUS_SUMMARIZE_BLOCK_REQUEST
+                         | Message_MessageTypeCONSENSUS_SUMMARIZE_BLOCK_RESPONSE
+                         | Message_MessageTypeCONSENSUS_NOTIFY_PEER_CONNECTED
+                         | Message_MessageTypeCONSENSUS_NOTIFY_PEER_DISCONNECTED
+                         | Message_MessageTypeCONSENSUS_NOTIFY_PEER_MESSAGE
+                         | Message_MessageTypeCONSENSUS_NOTIFY_BLOCK_NEW
+                         | Message_MessageTypeCONSENSUS_NOTIFY_BLOCK_VALID
+                         | Message_MessageTypeCONSENSUS_NOTIFY_BLOCK_INVALID
+                         | Message_MessageTypeCONSENSUS_NOTIFY_BLOCK_COMMIT
+                         | Message_MessageTypeCONSENSUS_NOTIFY_ENGINE_ACTIVATED
+                         | Message_MessageTypeCONSENSUS_NOTIFY_ENGINE_DEACTIVATED
+                         | Message_MessageTypeCONSENSUS_NOTIFY_ACK
+                         deriving (Int -> Message_MessageType -> ShowS
 [Message_MessageType] -> ShowS
 Message_MessageType -> String
 (Int -> Message_MessageType -> ShowS)
@@ -890,7 +941,7 @@ show :: Message_MessageType -> String
 $cshow :: Message_MessageType -> String
 showsPrec :: Int -> Message_MessageType -> ShowS
 $cshowsPrec :: Int -> Message_MessageType -> ShowS
-Hs.Show, Message_MessageType -> Message_MessageType -> Bool
+Hs.Show, Message_MessageType -> Message_MessageType -> Bool
 (Message_MessageType -> Message_MessageType -> Bool)
 -> (Message_MessageType -> Message_MessageType -> Bool)
 -> Eq Message_MessageType
@@ -899,7 +950,7 @@ forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
 $c/= :: Message_MessageType -> Message_MessageType -> Bool
 == :: Message_MessageType -> Message_MessageType -> Bool
 $c== :: Message_MessageType -> Message_MessageType -> Bool
-Hs.Eq, (forall x. Message_MessageType -> Rep Message_MessageType x)
+Hs.Eq, (forall x. Message_MessageType -> Rep Message_MessageType x)
 -> (forall x. Rep Message_MessageType x -> Message_MessageType)
 -> Generic Message_MessageType
 forall x. Rep Message_MessageType x -> Message_MessageType
@@ -908,1567 +959,1930 @@ forall a.
 (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
 $cto :: forall x. Rep Message_MessageType x -> Message_MessageType
 $cfrom :: forall x. Message_MessageType -> Rep Message_MessageType x
-Hs.Generic, Message_MessageType -> ()
+Hs.Generic, Message_MessageType -> ()
 (Message_MessageType -> ()) -> NFData Message_MessageType
 forall a. (a -> ()) -> NFData a
 rnf :: Message_MessageType -> ()
 $crnf :: Message_MessageType -> ()
-Hs.NFData)
- 
-instance HsProtobuf.Named Message_MessageType where
-        nameOf :: Proxy# Message_MessageType -> string
-nameOf _ = (String -> string
+Hs.NFData)
+ 
+instance HsProtobuf.Named Message_MessageType where
+        nameOf :: Proxy# Message_MessageType -> string
+nameOf Proxy# Message_MessageType
+_ = (String -> string
 forall a. IsString a => String -> a
-Hs.fromString "Message_MessageType")
- 
-instance HsProtobuf.HasDefault Message_MessageType
- 
-instance Hs.Bounded Message_MessageType where
-        minBound :: Message_MessageType
-minBound = Message_MessageType
+Hs.fromString String
+"Message_MessageType")
+ 
+instance HsProtobuf.HasDefault Message_MessageType
+ 
+instance Hs.Bounded Message_MessageType where
+        minBound :: Message_MessageType
+minBound = Message_MessageType
 Message_MessageTypeDEFAULT
-        maxBound :: Message_MessageType
-maxBound = Message_MessageType
+        maxBound :: Message_MessageType
+maxBound = Message_MessageType
 Message_MessageTypeCONSENSUS_NOTIFY_ACK
- 
-instance Hs.Ord Message_MessageType where
-        compare :: Message_MessageType -> Message_MessageType -> Ordering
-compare x :: Message_MessageType
-x y :: Message_MessageType
-y
-          = Int32 -> Int32 -> Ordering
+ 
+instance Hs.Ord Message_MessageType where
+        compare :: Message_MessageType -> Message_MessageType -> Ordering
+compare Message_MessageType
+x Message_MessageType
+y
+          = Int32 -> Int32 -> Ordering
 forall a. Ord a => a -> a -> Ordering
-Hs.compare (Message_MessageType -> Int32
+Hs.compare (Message_MessageType -> Int32
 forall a. ProtoEnum a => a -> Int32
-HsProtobuf.fromProtoEnum Message_MessageType
-x)
-              (Message_MessageType -> Int32
+HsProtobuf.fromProtoEnum Message_MessageType
+x)
+              (Message_MessageType -> Int32
 forall a. ProtoEnum a => a -> Int32
-HsProtobuf.fromProtoEnum Message_MessageType
-y)
- 
-instance HsProtobuf.ProtoEnum Message_MessageType where
-        toProtoEnumMay :: Int32 -> Maybe Message_MessageType
-toProtoEnumMay 0 = Message_MessageType -> Maybe Message_MessageType
+HsProtobuf.fromProtoEnum Message_MessageType
+y)
+ 
+instance HsProtobuf.ProtoEnum Message_MessageType where
+        toProtoEnumMay :: Int32 -> Maybe Message_MessageType
+toProtoEnumMay Int32
+0 = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeDEFAULT
-        toProtoEnumMay 1 = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+1 = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeTP_REGISTER_REQUEST
-        toProtoEnumMay 2 = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+2 = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeTP_REGISTER_RESPONSE
-        toProtoEnumMay 3 = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+3 = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeTP_UNREGISTER_REQUEST
-        toProtoEnumMay 4
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+4
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeTP_UNREGISTER_RESPONSE
-        toProtoEnumMay 5 = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+5 = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeTP_PROCESS_REQUEST
-        toProtoEnumMay 6 = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+6 = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeTP_PROCESS_RESPONSE
-        toProtoEnumMay 7 = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+7 = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeTP_STATE_GET_REQUEST
-        toProtoEnumMay 8 = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+8 = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeTP_STATE_GET_RESPONSE
-        toProtoEnumMay 9 = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+9 = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeTP_STATE_SET_REQUEST
-        toProtoEnumMay 10
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+10
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeTP_STATE_SET_RESPONSE
-        toProtoEnumMay 11
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+11
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeTP_STATE_DELETE_REQUEST
-        toProtoEnumMay 12
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+12
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeTP_STATE_DELETE_RESPONSE
-        toProtoEnumMay 13
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+13
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeTP_RECEIPT_ADD_DATA_REQUEST
-        toProtoEnumMay 14
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+14
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeTP_RECEIPT_ADD_DATA_RESPONSE
-        toProtoEnumMay 15 = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+15 = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeTP_EVENT_ADD_REQUEST
-        toProtoEnumMay 16
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+16
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeTP_EVENT_ADD_RESPONSE
-        toProtoEnumMay 100
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+100
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCLIENT_BATCH_SUBMIT_REQUEST
-        toProtoEnumMay 101
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+101
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCLIENT_BATCH_SUBMIT_RESPONSE
-        toProtoEnumMay 102
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+102
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCLIENT_BLOCK_LIST_REQUEST
-        toProtoEnumMay 103
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+103
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCLIENT_BLOCK_LIST_RESPONSE
-        toProtoEnumMay 104
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+104
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCLIENT_BLOCK_GET_BY_ID_REQUEST
-        toProtoEnumMay 105
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+105
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCLIENT_BLOCK_GET_RESPONSE
-        toProtoEnumMay 106
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+106
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCLIENT_BATCH_LIST_REQUEST
-        toProtoEnumMay 107
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+107
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCLIENT_BATCH_LIST_RESPONSE
-        toProtoEnumMay 108
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+108
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCLIENT_BATCH_GET_REQUEST
-        toProtoEnumMay 109
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+109
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCLIENT_BATCH_GET_RESPONSE
-        toProtoEnumMay 110
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+110
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCLIENT_TRANSACTION_LIST_REQUEST
-        toProtoEnumMay 111
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+111
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCLIENT_TRANSACTION_LIST_RESPONSE
-        toProtoEnumMay 112
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+112
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCLIENT_TRANSACTION_GET_REQUEST
-        toProtoEnumMay 113
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+113
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCLIENT_TRANSACTION_GET_RESPONSE
-        toProtoEnumMay 114
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+114
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCLIENT_STATE_CURRENT_REQUEST
-        toProtoEnumMay 115
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+115
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCLIENT_STATE_CURRENT_RESPONSE
-        toProtoEnumMay 116
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+116
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCLIENT_STATE_LIST_REQUEST
-        toProtoEnumMay 117
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+117
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCLIENT_STATE_LIST_RESPONSE
-        toProtoEnumMay 118
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+118
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCLIENT_STATE_GET_REQUEST
-        toProtoEnumMay 119
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+119
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCLIENT_STATE_GET_RESPONSE
-        toProtoEnumMay 120
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+120
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCLIENT_BATCH_STATUS_REQUEST
-        toProtoEnumMay 121
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+121
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCLIENT_BATCH_STATUS_RESPONSE
-        toProtoEnumMay 122
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+122
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCLIENT_RECEIPT_GET_REQUEST
-        toProtoEnumMay 123
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+123
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCLIENT_RECEIPT_GET_RESPONSE
-        toProtoEnumMay 124
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+124
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCLIENT_BLOCK_GET_BY_NUM_REQUEST
-        toProtoEnumMay 125
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+125
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCLIENT_PEERS_GET_REQUEST
-        toProtoEnumMay 126
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+126
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCLIENT_PEERS_GET_RESPONSE
-        toProtoEnumMay 127
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+127
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just
-              Message_MessageType
+Hs.Just
+              Message_MessageType
 Message_MessageTypeCLIENT_BLOCK_GET_BY_TRANSACTION_ID_REQUEST
-        toProtoEnumMay 128
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+128
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCLIENT_BLOCK_GET_BY_BATCH_ID_REQUEST
-        toProtoEnumMay 129
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+129
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCLIENT_STATUS_GET_REQUEST
-        toProtoEnumMay 130
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+130
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCLIENT_STATUS_GET_RESPONSE
-        toProtoEnumMay 200 = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+200 = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeGOSSIP_MESSAGE
-        toProtoEnumMay 201 = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+201 = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeGOSSIP_REGISTER
-        toProtoEnumMay 202 = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+202 = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeGOSSIP_UNREGISTER
-        toProtoEnumMay 205
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+205
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeGOSSIP_BLOCK_REQUEST
-        toProtoEnumMay 206
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+206
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeGOSSIP_BLOCK_RESPONSE
-        toProtoEnumMay 207
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+207
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeGOSSIP_BATCH_BY_BATCH_ID_REQUEST
-        toProtoEnumMay 208
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+208
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeGOSSIP_BATCH_BY_TRANSACTION_ID_REQUEST
-        toProtoEnumMay 209
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+209
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeGOSSIP_BATCH_RESPONSE
-        toProtoEnumMay 210
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+210
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeGOSSIP_GET_PEERS_REQUEST
-        toProtoEnumMay 211
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+211
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeGOSSIP_GET_PEERS_RESPONSE
-        toProtoEnumMay 212
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+212
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeGOSSIP_CONSENSUS_MESSAGE
-        toProtoEnumMay 300 = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+300 = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeNETWORK_ACK
-        toProtoEnumMay 301 = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+301 = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeNETWORK_CONNECT
-        toProtoEnumMay 302 = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+302 = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeNETWORK_DISCONNECT
-        toProtoEnumMay 500
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+500
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCLIENT_EVENTS_SUBSCRIBE_REQUEST
-        toProtoEnumMay 501
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+501
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCLIENT_EVENTS_SUBSCRIBE_RESPONSE
-        toProtoEnumMay 502
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+502
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCLIENT_EVENTS_UNSUBSCRIBE_REQUEST
-        toProtoEnumMay 503
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+503
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCLIENT_EVENTS_UNSUBSCRIBE_RESPONSE
-        toProtoEnumMay 504 = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+504 = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCLIENT_EVENTS
-        toProtoEnumMay 505
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+505
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCLIENT_EVENTS_GET_REQUEST
-        toProtoEnumMay 506
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+506
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCLIENT_EVENTS_GET_RESPONSE
-        toProtoEnumMay 600
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+600
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeAUTHORIZATION_CONNECTION_RESPONSE
-        toProtoEnumMay 601
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+601
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeAUTHORIZATION_VIOLATION
-        toProtoEnumMay 602
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+602
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeAUTHORIZATION_TRUST_REQUEST
-        toProtoEnumMay 603
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+603
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeAUTHORIZATION_TRUST_RESPONSE
-        toProtoEnumMay 604
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+604
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeAUTHORIZATION_CHALLENGE_REQUEST
-        toProtoEnumMay 605
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+605
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeAUTHORIZATION_CHALLENGE_RESPONSE
-        toProtoEnumMay 606
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+606
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeAUTHORIZATION_CHALLENGE_SUBMIT
-        toProtoEnumMay 607
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+607
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeAUTHORIZATION_CHALLENGE_RESULT
-        toProtoEnumMay 700 = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+700 = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypePING_REQUEST
-        toProtoEnumMay 701 = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+701 = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypePING_RESPONSE
-        toProtoEnumMay 800
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+800
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCONSENSUS_REGISTER_REQUEST
-        toProtoEnumMay 801
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+801
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCONSENSUS_REGISTER_RESPONSE
-        toProtoEnumMay 802
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+802
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCONSENSUS_SEND_TO_REQUEST
-        toProtoEnumMay 803
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+803
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCONSENSUS_SEND_TO_RESPONSE
-        toProtoEnumMay 804
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+804
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCONSENSUS_BROADCAST_REQUEST
-        toProtoEnumMay 805
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+805
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCONSENSUS_BROADCAST_RESPONSE
-        toProtoEnumMay 806
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+806
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCONSENSUS_INITIALIZE_BLOCK_REQUEST
-        toProtoEnumMay 807
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+807
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCONSENSUS_INITIALIZE_BLOCK_RESPONSE
-        toProtoEnumMay 808
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+808
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCONSENSUS_FINALIZE_BLOCK_REQUEST
-        toProtoEnumMay 809
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+809
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCONSENSUS_FINALIZE_BLOCK_RESPONSE
-        toProtoEnumMay 810
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+810
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCONSENSUS_CANCEL_BLOCK_REQUEST
-        toProtoEnumMay 811
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+811
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCONSENSUS_CANCEL_BLOCK_RESPONSE
-        toProtoEnumMay 812
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+812
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCONSENSUS_CHECK_BLOCKS_REQUEST
-        toProtoEnumMay 813
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+813
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCONSENSUS_CHECK_BLOCKS_RESPONSE
-        toProtoEnumMay 814
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+814
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCONSENSUS_COMMIT_BLOCK_REQUEST
-        toProtoEnumMay 815
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+815
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCONSENSUS_COMMIT_BLOCK_RESPONSE
-        toProtoEnumMay 816
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+816
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCONSENSUS_IGNORE_BLOCK_REQUEST
-        toProtoEnumMay 817
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+817
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCONSENSUS_IGNORE_BLOCK_RESPONSE
-        toProtoEnumMay 818
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+818
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCONSENSUS_FAIL_BLOCK_REQUEST
-        toProtoEnumMay 819
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+819
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCONSENSUS_FAIL_BLOCK_RESPONSE
-        toProtoEnumMay 820
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+820
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCONSENSUS_SETTINGS_GET_REQUEST
-        toProtoEnumMay 821
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+821
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCONSENSUS_SETTINGS_GET_RESPONSE
-        toProtoEnumMay 822
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+822
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCONSENSUS_STATE_GET_REQUEST
-        toProtoEnumMay 823
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+823
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCONSENSUS_STATE_GET_RESPONSE
-        toProtoEnumMay 824
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+824
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCONSENSUS_BLOCKS_GET_REQUEST
-        toProtoEnumMay 825
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+825
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCONSENSUS_BLOCKS_GET_RESPONSE
-        toProtoEnumMay 826
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+826
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCONSENSUS_CHAIN_HEAD_GET_REQUEST
-        toProtoEnumMay 827
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+827
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCONSENSUS_CHAIN_HEAD_GET_RESPONSE
-        toProtoEnumMay 828
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+828
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCONSENSUS_SUMMARIZE_BLOCK_REQUEST
-        toProtoEnumMay 829
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+829
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCONSENSUS_SUMMARIZE_BLOCK_RESPONSE
-        toProtoEnumMay 900
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+900
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCONSENSUS_NOTIFY_PEER_CONNECTED
-        toProtoEnumMay 901
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+901
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCONSENSUS_NOTIFY_PEER_DISCONNECTED
-        toProtoEnumMay 902
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+902
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCONSENSUS_NOTIFY_PEER_MESSAGE
-        toProtoEnumMay 903
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+903
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCONSENSUS_NOTIFY_BLOCK_NEW
-        toProtoEnumMay 904
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+904
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCONSENSUS_NOTIFY_BLOCK_VALID
-        toProtoEnumMay 905
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+905
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCONSENSUS_NOTIFY_BLOCK_INVALID
-        toProtoEnumMay 906
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+906
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCONSENSUS_NOTIFY_BLOCK_COMMIT
-        toProtoEnumMay 907
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+907
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCONSENSUS_NOTIFY_ENGINE_ACTIVATED
-        toProtoEnumMay 908
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+908
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCONSENSUS_NOTIFY_ENGINE_DEACTIVATED
-        toProtoEnumMay 999
-          = Message_MessageType -> Maybe Message_MessageType
+        toProtoEnumMay Int32
+999
+          = Message_MessageType -> Maybe Message_MessageType
 forall a. a -> Maybe a
-Hs.Just Message_MessageType
+Hs.Just Message_MessageType
 Message_MessageTypeCONSENSUS_NOTIFY_ACK
-        toProtoEnumMay _ = Maybe Message_MessageType
+        toProtoEnumMay Int32
+_ = Maybe Message_MessageType
 forall a. Maybe a
-Hs.Nothing
-        fromProtoEnum :: Message_MessageType -> Int32
-fromProtoEnum (Message_MessageType
-Message_MessageTypeDEFAULT) = 0
-        fromProtoEnum (Message_MessageType
-Message_MessageTypeTP_REGISTER_REQUEST) = 1
-        fromProtoEnum (Message_MessageType
-Message_MessageTypeTP_REGISTER_RESPONSE) = 2
-        fromProtoEnum (Message_MessageType
-Message_MessageTypeTP_UNREGISTER_REQUEST) = 3
-        fromProtoEnum (Message_MessageType
-Message_MessageTypeTP_UNREGISTER_RESPONSE) = 4
-        fromProtoEnum (Message_MessageType
-Message_MessageTypeTP_PROCESS_REQUEST) = 5
-        fromProtoEnum (Message_MessageType
-Message_MessageTypeTP_PROCESS_RESPONSE) = 6
-        fromProtoEnum (Message_MessageType
-Message_MessageTypeTP_STATE_GET_REQUEST) = 7
-        fromProtoEnum (Message_MessageType
-Message_MessageTypeTP_STATE_GET_RESPONSE) = 8
-        fromProtoEnum (Message_MessageType
-Message_MessageTypeTP_STATE_SET_REQUEST) = 9
-        fromProtoEnum (Message_MessageType
-Message_MessageTypeTP_STATE_SET_RESPONSE) = 10
-        fromProtoEnum (Message_MessageType
-Message_MessageTypeTP_STATE_DELETE_REQUEST) = 11
-        fromProtoEnum (Message_MessageType
-Message_MessageTypeTP_STATE_DELETE_RESPONSE) = 12
-        fromProtoEnum (Message_MessageType
-Message_MessageTypeTP_RECEIPT_ADD_DATA_REQUEST) = 13
-        fromProtoEnum (Message_MessageType
+Hs.Nothing
+        fromProtoEnum :: Message_MessageType -> Int32
+fromProtoEnum (Message_MessageType
+Message_MessageTypeDEFAULT) = Int32
+0
+        fromProtoEnum (Message_MessageType
+Message_MessageTypeTP_REGISTER_REQUEST) = Int32
+1
+        fromProtoEnum (Message_MessageType
+Message_MessageTypeTP_REGISTER_RESPONSE) = Int32
+2
+        fromProtoEnum (Message_MessageType
+Message_MessageTypeTP_UNREGISTER_REQUEST) = Int32
+3
+        fromProtoEnum (Message_MessageType
+Message_MessageTypeTP_UNREGISTER_RESPONSE) = Int32
+4
+        fromProtoEnum (Message_MessageType
+Message_MessageTypeTP_PROCESS_REQUEST) = Int32
+5
+        fromProtoEnum (Message_MessageType
+Message_MessageTypeTP_PROCESS_RESPONSE) = Int32
+6
+        fromProtoEnum (Message_MessageType
+Message_MessageTypeTP_STATE_GET_REQUEST) = Int32
+7
+        fromProtoEnum (Message_MessageType
+Message_MessageTypeTP_STATE_GET_RESPONSE) = Int32
+8
+        fromProtoEnum (Message_MessageType
+Message_MessageTypeTP_STATE_SET_REQUEST) = Int32
+9
+        fromProtoEnum (Message_MessageType
+Message_MessageTypeTP_STATE_SET_RESPONSE) = Int32
+10
+        fromProtoEnum (Message_MessageType
+Message_MessageTypeTP_STATE_DELETE_REQUEST) = Int32
+11
+        fromProtoEnum (Message_MessageType
+Message_MessageTypeTP_STATE_DELETE_RESPONSE) = Int32
+12
+        fromProtoEnum (Message_MessageType
+Message_MessageTypeTP_RECEIPT_ADD_DATA_REQUEST) = Int32
+13
+        fromProtoEnum (Message_MessageType
 Message_MessageTypeTP_RECEIPT_ADD_DATA_RESPONSE)
-          = 14
-        fromProtoEnum (Message_MessageType
-Message_MessageTypeTP_EVENT_ADD_REQUEST) = 15
-        fromProtoEnum (Message_MessageType
-Message_MessageTypeTP_EVENT_ADD_RESPONSE) = 16
-        fromProtoEnum (Message_MessageType
+          = Int32
+14
+        fromProtoEnum (Message_MessageType
+Message_MessageTypeTP_EVENT_ADD_REQUEST) = Int32
+15
+        fromProtoEnum (Message_MessageType
+Message_MessageTypeTP_EVENT_ADD_RESPONSE) = Int32
+16
+        fromProtoEnum (Message_MessageType
 Message_MessageTypeCLIENT_BATCH_SUBMIT_REQUEST)
-          = 100
-        fromProtoEnum (Message_MessageType
+          = Int32
+100
+        fromProtoEnum (Message_MessageType
 Message_MessageTypeCLIENT_BATCH_SUBMIT_RESPONSE)
-          = 101
-        fromProtoEnum (Message_MessageType
-Message_MessageTypeCLIENT_BLOCK_LIST_REQUEST) = 102
-        fromProtoEnum (Message_MessageType
-Message_MessageTypeCLIENT_BLOCK_LIST_RESPONSE) = 103
-        fromProtoEnum (Message_MessageType
+          = Int32
+101
+        fromProtoEnum (Message_MessageType
+Message_MessageTypeCLIENT_BLOCK_LIST_REQUEST) = Int32
+102
+        fromProtoEnum (Message_MessageType
+Message_MessageTypeCLIENT_BLOCK_LIST_RESPONSE) = Int32
+103
+        fromProtoEnum (Message_MessageType
 Message_MessageTypeCLIENT_BLOCK_GET_BY_ID_REQUEST)
-          = 104
-        fromProtoEnum (Message_MessageType
-Message_MessageTypeCLIENT_BLOCK_GET_RESPONSE) = 105
-        fromProtoEnum (Message_MessageType
-Message_MessageTypeCLIENT_BATCH_LIST_REQUEST) = 106
-        fromProtoEnum (Message_MessageType
-Message_MessageTypeCLIENT_BATCH_LIST_RESPONSE) = 107
-        fromProtoEnum (Message_MessageType
-Message_MessageTypeCLIENT_BATCH_GET_REQUEST) = 108
-        fromProtoEnum (Message_MessageType
-Message_MessageTypeCLIENT_BATCH_GET_RESPONSE) = 109
-        fromProtoEnum (Message_MessageType
+          = Int32
+104
+        fromProtoEnum (Message_MessageType
+Message_MessageTypeCLIENT_BLOCK_GET_RESPONSE) = Int32
+105
+        fromProtoEnum (Message_MessageType
+Message_MessageTypeCLIENT_BATCH_LIST_REQUEST) = Int32
+106
+        fromProtoEnum (Message_MessageType
+Message_MessageTypeCLIENT_BATCH_LIST_RESPONSE) = Int32
+107
+        fromProtoEnum (Message_MessageType
+Message_MessageTypeCLIENT_BATCH_GET_REQUEST) = Int32
+108
+        fromProtoEnum (Message_MessageType
+Message_MessageTypeCLIENT_BATCH_GET_RESPONSE) = Int32
+109
+        fromProtoEnum (Message_MessageType
 Message_MessageTypeCLIENT_TRANSACTION_LIST_REQUEST)
-          = 110
-        fromProtoEnum (Message_MessageType
+          = Int32
+110
+        fromProtoEnum (Message_MessageType
 Message_MessageTypeCLIENT_TRANSACTION_LIST_RESPONSE)
-          = 111
-        fromProtoEnum (Message_MessageType
+          = Int32
+111
+        fromProtoEnum (Message_MessageType
 Message_MessageTypeCLIENT_TRANSACTION_GET_REQUEST)
-          = 112
-        fromProtoEnum (Message_MessageType
+          = Int32
+112
+        fromProtoEnum (Message_MessageType
 Message_MessageTypeCLIENT_TRANSACTION_GET_RESPONSE)
-          = 113
-        fromProtoEnum (Message_MessageType
+          = Int32
+113
+        fromProtoEnum (Message_MessageType
 Message_MessageTypeCLIENT_STATE_CURRENT_REQUEST)
-          = 114
-        fromProtoEnum (Message_MessageType
+          = Int32
+114
+        fromProtoEnum (Message_MessageType
 Message_MessageTypeCLIENT_STATE_CURRENT_RESPONSE)
-          = 115
-        fromProtoEnum (Message_MessageType
-Message_MessageTypeCLIENT_STATE_LIST_REQUEST) = 116
-        fromProtoEnum (Message_MessageType
-Message_MessageTypeCLIENT_STATE_LIST_RESPONSE) = 117
-        fromProtoEnum (Message_MessageType
-Message_MessageTypeCLIENT_STATE_GET_REQUEST) = 118
-        fromProtoEnum (Message_MessageType
-Message_MessageTypeCLIENT_STATE_GET_RESPONSE) = 119
-        fromProtoEnum (Message_MessageType
+          = Int32
+115
+        fromProtoEnum (Message_MessageType
+Message_MessageTypeCLIENT_STATE_LIST_REQUEST) = Int32
+116
+        fromProtoEnum (Message_MessageType
+Message_MessageTypeCLIENT_STATE_LIST_RESPONSE) = Int32
+117
+        fromProtoEnum (Message_MessageType
+Message_MessageTypeCLIENT_STATE_GET_REQUEST) = Int32
+118
+        fromProtoEnum (Message_MessageType
+Message_MessageTypeCLIENT_STATE_GET_RESPONSE) = Int32
+119
+        fromProtoEnum (Message_MessageType
 Message_MessageTypeCLIENT_BATCH_STATUS_REQUEST)
-          = 120
-        fromProtoEnum (Message_MessageType
+          = Int32
+120
+        fromProtoEnum (Message_MessageType
 Message_MessageTypeCLIENT_BATCH_STATUS_RESPONSE)
-          = 121
-        fromProtoEnum (Message_MessageType
-Message_MessageTypeCLIENT_RECEIPT_GET_REQUEST) = 122
-        fromProtoEnum (Message_MessageType
+          = Int32
+121
+        fromProtoEnum (Message_MessageType
+Message_MessageTypeCLIENT_RECEIPT_GET_REQUEST) = Int32
+122
+        fromProtoEnum (Message_MessageType
 Message_MessageTypeCLIENT_RECEIPT_GET_RESPONSE)
-          = 123
-        fromProtoEnum (Message_MessageType
+          = Int32
+123
+        fromProtoEnum (Message_MessageType
 Message_MessageTypeCLIENT_BLOCK_GET_BY_NUM_REQUEST)
-          = 124
-        fromProtoEnum (Message_MessageType
-Message_MessageTypeCLIENT_PEERS_GET_REQUEST) = 125
-        fromProtoEnum (Message_MessageType
-Message_MessageTypeCLIENT_PEERS_GET_RESPONSE) = 126
-        fromProtoEnum
-          (Message_MessageType
+          = Int32
+124
+        fromProtoEnum (Message_MessageType
+Message_MessageTypeCLIENT_PEERS_GET_REQUEST) = Int32
+125
+        fromProtoEnum (Message_MessageType
+Message_MessageTypeCLIENT_PEERS_GET_RESPONSE) = Int32
+126
+        fromProtoEnum
+          (Message_MessageType
 Message_MessageTypeCLIENT_BLOCK_GET_BY_TRANSACTION_ID_REQUEST)
-          = 127
-        fromProtoEnum
-          (Message_MessageType
-Message_MessageTypeCLIENT_BLOCK_GET_BY_BATCH_ID_REQUEST) = 128
-        fromProtoEnum (Message_MessageType
-Message_MessageTypeCLIENT_STATUS_GET_REQUEST) = 129
-        fromProtoEnum (Message_MessageType
-Message_MessageTypeCLIENT_STATUS_GET_RESPONSE) = 130
-        fromProtoEnum (Message_MessageType
-Message_MessageTypeGOSSIP_MESSAGE) = 200
-        fromProtoEnum (Message_MessageType
-Message_MessageTypeGOSSIP_REGISTER) = 201
-        fromProtoEnum (Message_MessageType
-Message_MessageTypeGOSSIP_UNREGISTER) = 202
-        fromProtoEnum (Message_MessageType
-Message_MessageTypeGOSSIP_BLOCK_REQUEST) = 205
-        fromProtoEnum (Message_MessageType
-Message_MessageTypeGOSSIP_BLOCK_RESPONSE) = 206
-        fromProtoEnum (Message_MessageType
+          = Int32
+127
+        fromProtoEnum
+          (Message_MessageType
+Message_MessageTypeCLIENT_BLOCK_GET_BY_BATCH_ID_REQUEST) = Int32
+128
+        fromProtoEnum (Message_MessageType
+Message_MessageTypeCLIENT_STATUS_GET_REQUEST) = Int32
+129
+        fromProtoEnum (Message_MessageType
+Message_MessageTypeCLIENT_STATUS_GET_RESPONSE) = Int32
+130
+        fromProtoEnum (Message_MessageType
+Message_MessageTypeGOSSIP_MESSAGE) = Int32
+200
+        fromProtoEnum (Message_MessageType
+Message_MessageTypeGOSSIP_REGISTER) = Int32
+201
+        fromProtoEnum (Message_MessageType
+Message_MessageTypeGOSSIP_UNREGISTER) = Int32
+202
+        fromProtoEnum (Message_MessageType
+Message_MessageTypeGOSSIP_BLOCK_REQUEST) = Int32
+205
+        fromProtoEnum (Message_MessageType
+Message_MessageTypeGOSSIP_BLOCK_RESPONSE) = Int32
+206
+        fromProtoEnum (Message_MessageType
 Message_MessageTypeGOSSIP_BATCH_BY_BATCH_ID_REQUEST)
-          = 207
-        fromProtoEnum
-          (Message_MessageType
-Message_MessageTypeGOSSIP_BATCH_BY_TRANSACTION_ID_REQUEST) = 208
-        fromProtoEnum (Message_MessageType
-Message_MessageTypeGOSSIP_BATCH_RESPONSE) = 209
-        fromProtoEnum (Message_MessageType
-Message_MessageTypeGOSSIP_GET_PEERS_REQUEST) = 210
-        fromProtoEnum (Message_MessageType
-Message_MessageTypeGOSSIP_GET_PEERS_RESPONSE) = 211
-        fromProtoEnum (Message_MessageType
-Message_MessageTypeGOSSIP_CONSENSUS_MESSAGE) = 212
-        fromProtoEnum (Message_MessageType
-Message_MessageTypeNETWORK_ACK) = 300
-        fromProtoEnum (Message_MessageType
-Message_MessageTypeNETWORK_CONNECT) = 301
-        fromProtoEnum (Message_MessageType
-Message_MessageTypeNETWORK_DISCONNECT) = 302
-        fromProtoEnum (Message_MessageType
+          = Int32
+207
+        fromProtoEnum
+          (Message_MessageType
+Message_MessageTypeGOSSIP_BATCH_BY_TRANSACTION_ID_REQUEST) = Int32
+208
+        fromProtoEnum (Message_MessageType
+Message_MessageTypeGOSSIP_BATCH_RESPONSE) = Int32
+209
+        fromProtoEnum (Message_MessageType
+Message_MessageTypeGOSSIP_GET_PEERS_REQUEST) = Int32
+210
+        fromProtoEnum (Message_MessageType
+Message_MessageTypeGOSSIP_GET_PEERS_RESPONSE) = Int32
+211
+        fromProtoEnum (Message_MessageType
+Message_MessageTypeGOSSIP_CONSENSUS_MESSAGE) = Int32
+212
+        fromProtoEnum (Message_MessageType
+Message_MessageTypeNETWORK_ACK) = Int32
+300
+        fromProtoEnum (Message_MessageType
+Message_MessageTypeNETWORK_CONNECT) = Int32
+301
+        fromProtoEnum (Message_MessageType
+Message_MessageTypeNETWORK_DISCONNECT) = Int32
+302
+        fromProtoEnum (Message_MessageType
 Message_MessageTypeCLIENT_EVENTS_SUBSCRIBE_REQUEST)
-          = 500
-        fromProtoEnum (Message_MessageType
+          = Int32
+500
+        fromProtoEnum (Message_MessageType
 Message_MessageTypeCLIENT_EVENTS_SUBSCRIBE_RESPONSE)
-          = 501
-        fromProtoEnum
-          (Message_MessageType
-Message_MessageTypeCLIENT_EVENTS_UNSUBSCRIBE_REQUEST) = 502
-        fromProtoEnum
-          (Message_MessageType
-Message_MessageTypeCLIENT_EVENTS_UNSUBSCRIBE_RESPONSE) = 503
-        fromProtoEnum (Message_MessageType
-Message_MessageTypeCLIENT_EVENTS) = 504
-        fromProtoEnum (Message_MessageType
-Message_MessageTypeCLIENT_EVENTS_GET_REQUEST) = 505
-        fromProtoEnum (Message_MessageType
-Message_MessageTypeCLIENT_EVENTS_GET_RESPONSE) = 506
-        fromProtoEnum
-          (Message_MessageType
-Message_MessageTypeAUTHORIZATION_CONNECTION_RESPONSE) = 600
-        fromProtoEnum (Message_MessageType
-Message_MessageTypeAUTHORIZATION_VIOLATION) = 601
-        fromProtoEnum (Message_MessageType
+          = Int32
+501
+        fromProtoEnum
+          (Message_MessageType
+Message_MessageTypeCLIENT_EVENTS_UNSUBSCRIBE_REQUEST) = Int32
+502
+        fromProtoEnum
+          (Message_MessageType
+Message_MessageTypeCLIENT_EVENTS_UNSUBSCRIBE_RESPONSE) = Int32
+503
+        fromProtoEnum (Message_MessageType
+Message_MessageTypeCLIENT_EVENTS) = Int32
+504
+        fromProtoEnum (Message_MessageType
+Message_MessageTypeCLIENT_EVENTS_GET_REQUEST) = Int32
+505
+        fromProtoEnum (Message_MessageType
+Message_MessageTypeCLIENT_EVENTS_GET_RESPONSE) = Int32
+506
+        fromProtoEnum
+          (Message_MessageType
+Message_MessageTypeAUTHORIZATION_CONNECTION_RESPONSE) = Int32
+600
+        fromProtoEnum (Message_MessageType
+Message_MessageTypeAUTHORIZATION_VIOLATION) = Int32
+601
+        fromProtoEnum (Message_MessageType
 Message_MessageTypeAUTHORIZATION_TRUST_REQUEST)
-          = 602
-        fromProtoEnum (Message_MessageType
+          = Int32
+602
+        fromProtoEnum (Message_MessageType
 Message_MessageTypeAUTHORIZATION_TRUST_RESPONSE)
-          = 603
-        fromProtoEnum (Message_MessageType
+          = Int32
+603
+        fromProtoEnum (Message_MessageType
 Message_MessageTypeAUTHORIZATION_CHALLENGE_REQUEST)
-          = 604
-        fromProtoEnum (Message_MessageType
+          = Int32
+604
+        fromProtoEnum (Message_MessageType
 Message_MessageTypeAUTHORIZATION_CHALLENGE_RESPONSE)
-          = 605
-        fromProtoEnum (Message_MessageType
+          = Int32
+605
+        fromProtoEnum (Message_MessageType
 Message_MessageTypeAUTHORIZATION_CHALLENGE_SUBMIT)
-          = 606
-        fromProtoEnum (Message_MessageType
+          = Int32
+606
+        fromProtoEnum (Message_MessageType
 Message_MessageTypeAUTHORIZATION_CHALLENGE_RESULT)
-          = 607
-        fromProtoEnum (Message_MessageType
-Message_MessageTypePING_REQUEST) = 700
-        fromProtoEnum (Message_MessageType
-Message_MessageTypePING_RESPONSE) = 701
-        fromProtoEnum (Message_MessageType
-Message_MessageTypeCONSENSUS_REGISTER_REQUEST) = 800
-        fromProtoEnum (Message_MessageType
+          = Int32
+607
+        fromProtoEnum (Message_MessageType
+Message_MessageTypePING_REQUEST) = Int32
+700
+        fromProtoEnum (Message_MessageType
+Message_MessageTypePING_RESPONSE) = Int32
+701
+        fromProtoEnum (Message_MessageType
+Message_MessageTypeCONSENSUS_REGISTER_REQUEST) = Int32
+800
+        fromProtoEnum (Message_MessageType
 Message_MessageTypeCONSENSUS_REGISTER_RESPONSE)
-          = 801
-        fromProtoEnum (Message_MessageType
-Message_MessageTypeCONSENSUS_SEND_TO_REQUEST) = 802
-        fromProtoEnum (Message_MessageType
-Message_MessageTypeCONSENSUS_SEND_TO_RESPONSE) = 803
-        fromProtoEnum (Message_MessageType
+          = Int32
+801
+        fromProtoEnum (Message_MessageType
+Message_MessageTypeCONSENSUS_SEND_TO_REQUEST) = Int32
+802
+        fromProtoEnum (Message_MessageType
+Message_MessageTypeCONSENSUS_SEND_TO_RESPONSE) = Int32
+803
+        fromProtoEnum (Message_MessageType
 Message_MessageTypeCONSENSUS_BROADCAST_REQUEST)
-          = 804
-        fromProtoEnum (Message_MessageType
+          = Int32
+804
+        fromProtoEnum (Message_MessageType
 Message_MessageTypeCONSENSUS_BROADCAST_RESPONSE)
-          = 805
-        fromProtoEnum
-          (Message_MessageType
-Message_MessageTypeCONSENSUS_INITIALIZE_BLOCK_REQUEST) = 806
-        fromProtoEnum
-          (Message_MessageType
-Message_MessageTypeCONSENSUS_INITIALIZE_BLOCK_RESPONSE) = 807
-        fromProtoEnum (Message_MessageType
+          = Int32
+805
+        fromProtoEnum
+          (Message_MessageType
+Message_MessageTypeCONSENSUS_INITIALIZE_BLOCK_REQUEST) = Int32
+806
+        fromProtoEnum
+          (Message_MessageType
+Message_MessageTypeCONSENSUS_INITIALIZE_BLOCK_RESPONSE) = Int32
+807
+        fromProtoEnum (Message_MessageType
 Message_MessageTypeCONSENSUS_FINALIZE_BLOCK_REQUEST)
-          = 808
-        fromProtoEnum
-          (Message_MessageType
-Message_MessageTypeCONSENSUS_FINALIZE_BLOCK_RESPONSE) = 809
-        fromProtoEnum (Message_MessageType
+          = Int32
+808
+        fromProtoEnum
+          (Message_MessageType
+Message_MessageTypeCONSENSUS_FINALIZE_BLOCK_RESPONSE) = Int32
+809
+        fromProtoEnum (Message_MessageType
 Message_MessageTypeCONSENSUS_CANCEL_BLOCK_REQUEST)
-          = 810
-        fromProtoEnum (Message_MessageType
+          = Int32
+810
+        fromProtoEnum (Message_MessageType
 Message_MessageTypeCONSENSUS_CANCEL_BLOCK_RESPONSE)
-          = 811
-        fromProtoEnum (Message_MessageType
+          = Int32
+811
+        fromProtoEnum (Message_MessageType
 Message_MessageTypeCONSENSUS_CHECK_BLOCKS_REQUEST)
-          = 812
-        fromProtoEnum (Message_MessageType
+          = Int32
+812
+        fromProtoEnum (Message_MessageType
 Message_MessageTypeCONSENSUS_CHECK_BLOCKS_RESPONSE)
-          = 813
-        fromProtoEnum (Message_MessageType
+          = Int32
+813
+        fromProtoEnum (Message_MessageType
 Message_MessageTypeCONSENSUS_COMMIT_BLOCK_REQUEST)
-          = 814
-        fromProtoEnum (Message_MessageType
+          = Int32
+814
+        fromProtoEnum (Message_MessageType
 Message_MessageTypeCONSENSUS_COMMIT_BLOCK_RESPONSE)
-          = 815
-        fromProtoEnum (Message_MessageType
+          = Int32
+815
+        fromProtoEnum (Message_MessageType
 Message_MessageTypeCONSENSUS_IGNORE_BLOCK_REQUEST)
-          = 816
-        fromProtoEnum (Message_MessageType
+          = Int32
+816
+        fromProtoEnum (Message_MessageType
 Message_MessageTypeCONSENSUS_IGNORE_BLOCK_RESPONSE)
-          = 817
-        fromProtoEnum (Message_MessageType
+          = Int32
+817
+        fromProtoEnum (Message_MessageType
 Message_MessageTypeCONSENSUS_FAIL_BLOCK_REQUEST)
-          = 818
-        fromProtoEnum (Message_MessageType
+          = Int32
+818
+        fromProtoEnum (Message_MessageType
 Message_MessageTypeCONSENSUS_FAIL_BLOCK_RESPONSE)
-          = 819
-        fromProtoEnum (Message_MessageType
+          = Int32
+819
+        fromProtoEnum (Message_MessageType
 Message_MessageTypeCONSENSUS_SETTINGS_GET_REQUEST)
-          = 820
-        fromProtoEnum (Message_MessageType
+          = Int32
+820
+        fromProtoEnum (Message_MessageType
 Message_MessageTypeCONSENSUS_SETTINGS_GET_RESPONSE)
-          = 821
-        fromProtoEnum (Message_MessageType
+          = Int32
+821
+        fromProtoEnum (Message_MessageType
 Message_MessageTypeCONSENSUS_STATE_GET_REQUEST)
-          = 822
-        fromProtoEnum (Message_MessageType
+          = Int32
+822
+        fromProtoEnum (Message_MessageType
 Message_MessageTypeCONSENSUS_STATE_GET_RESPONSE)
-          = 823
-        fromProtoEnum (Message_MessageType
+          = Int32
+823
+        fromProtoEnum (Message_MessageType
 Message_MessageTypeCONSENSUS_BLOCKS_GET_REQUEST)
-          = 824
-        fromProtoEnum (Message_MessageType
+          = Int32
+824
+        fromProtoEnum (Message_MessageType
 Message_MessageTypeCONSENSUS_BLOCKS_GET_RESPONSE)
-          = 825
-        fromProtoEnum (Message_MessageType
+          = Int32
+825
+        fromProtoEnum (Message_MessageType
 Message_MessageTypeCONSENSUS_CHAIN_HEAD_GET_REQUEST)
-          = 826
-        fromProtoEnum
-          (Message_MessageType
-Message_MessageTypeCONSENSUS_CHAIN_HEAD_GET_RESPONSE) = 827
-        fromProtoEnum
-          (Message_MessageType
-Message_MessageTypeCONSENSUS_SUMMARIZE_BLOCK_REQUEST) = 828
-        fromProtoEnum
-          (Message_MessageType
-Message_MessageTypeCONSENSUS_SUMMARIZE_BLOCK_RESPONSE) = 829
-        fromProtoEnum (Message_MessageType
+          = Int32
+826
+        fromProtoEnum
+          (Message_MessageType
+Message_MessageTypeCONSENSUS_CHAIN_HEAD_GET_RESPONSE) = Int32
+827
+        fromProtoEnum
+          (Message_MessageType
+Message_MessageTypeCONSENSUS_SUMMARIZE_BLOCK_REQUEST) = Int32
+828
+        fromProtoEnum
+          (Message_MessageType
+Message_MessageTypeCONSENSUS_SUMMARIZE_BLOCK_RESPONSE) = Int32
+829
+        fromProtoEnum (Message_MessageType
 Message_MessageTypeCONSENSUS_NOTIFY_PEER_CONNECTED)
-          = 900
-        fromProtoEnum
-          (Message_MessageType
-Message_MessageTypeCONSENSUS_NOTIFY_PEER_DISCONNECTED) = 901
-        fromProtoEnum (Message_MessageType
+          = Int32
+900
+        fromProtoEnum
+          (Message_MessageType
+Message_MessageTypeCONSENSUS_NOTIFY_PEER_DISCONNECTED) = Int32
+901
+        fromProtoEnum (Message_MessageType
 Message_MessageTypeCONSENSUS_NOTIFY_PEER_MESSAGE)
-          = 902
-        fromProtoEnum (Message_MessageType
-Message_MessageTypeCONSENSUS_NOTIFY_BLOCK_NEW) = 903
-        fromProtoEnum (Message_MessageType
+          = Int32
+902
+        fromProtoEnum (Message_MessageType
+Message_MessageTypeCONSENSUS_NOTIFY_BLOCK_NEW) = Int32
+903
+        fromProtoEnum (Message_MessageType
 Message_MessageTypeCONSENSUS_NOTIFY_BLOCK_VALID)
-          = 904
-        fromProtoEnum (Message_MessageType
+          = Int32
+904
+        fromProtoEnum (Message_MessageType
 Message_MessageTypeCONSENSUS_NOTIFY_BLOCK_INVALID)
-          = 905
-        fromProtoEnum (Message_MessageType
+          = Int32
+905
+        fromProtoEnum (Message_MessageType
 Message_MessageTypeCONSENSUS_NOTIFY_BLOCK_COMMIT)
-          = 906
-        fromProtoEnum
-          (Message_MessageType
-Message_MessageTypeCONSENSUS_NOTIFY_ENGINE_ACTIVATED) = 907
-        fromProtoEnum
-          (Message_MessageType
-Message_MessageTypeCONSENSUS_NOTIFY_ENGINE_DEACTIVATED) = 908
-        fromProtoEnum (Message_MessageType
-Message_MessageTypeCONSENSUS_NOTIFY_ACK) = 999
- 
-instance HsJSONPB.ToJSONPB Message_MessageType where
-        toJSONPB :: Message_MessageType -> Options -> Value
-toJSONPB x :: Message_MessageType
-x _ = Message_MessageType -> Value
+          = Int32
+906
+        fromProtoEnum
+          (Message_MessageType
+Message_MessageTypeCONSENSUS_NOTIFY_ENGINE_ACTIVATED) = Int32
+907
+        fromProtoEnum
+          (Message_MessageType
+Message_MessageTypeCONSENSUS_NOTIFY_ENGINE_DEACTIVATED) = Int32
+908
+        fromProtoEnum (Message_MessageType
+Message_MessageTypeCONSENSUS_NOTIFY_ACK) = Int32
+999
+ 
+instance HsJSONPB.ToJSONPB Message_MessageType where
+        toJSONPB :: Message_MessageType -> Options -> Value
+toJSONPB Message_MessageType
+x Options
+_ = Message_MessageType -> Value
 forall a. (Named a, Show a) => a -> Value
-HsJSONPB.enumFieldString Message_MessageType
-x
-        toEncodingPB :: Message_MessageType -> Options -> Encoding
-toEncodingPB x :: Message_MessageType
-x _ = Message_MessageType -> Encoding
+HsJSONPB.enumFieldString Message_MessageType
+x
+        toEncodingPB :: Message_MessageType -> Options -> Encoding
+toEncodingPB Message_MessageType
+x Options
+_ = Message_MessageType -> Encoding
 forall a. (Named a, Show a) => a -> Encoding
-HsJSONPB.enumFieldEncoding Message_MessageType
-x
- 
-instance HsJSONPB.FromJSONPB Message_MessageType where
-        parseJSONPB :: Value -> Parser Message_MessageType
-parseJSONPB (HsJSONPB.String "DEFAULT")
-          = Message_MessageType -> Parser Message_MessageType
+HsJSONPB.enumFieldEncoding Message_MessageType
+x
+ 
+instance HsJSONPB.FromJSONPB Message_MessageType where
+        parseJSONPB :: Value -> Parser Message_MessageType
+parseJSONPB (HsJSONPB.String Text
+"DEFAULT")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeDEFAULT
-        parseJSONPB (HsJSONPB.String "TP_REGISTER_REQUEST")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"TP_REGISTER_REQUEST")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeTP_REGISTER_REQUEST
-        parseJSONPB (HsJSONPB.String "TP_REGISTER_RESPONSE")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"TP_REGISTER_RESPONSE")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeTP_REGISTER_RESPONSE
-        parseJSONPB (HsJSONPB.String "TP_UNREGISTER_REQUEST")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"TP_UNREGISTER_REQUEST")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeTP_UNREGISTER_REQUEST
-        parseJSONPB (HsJSONPB.String "TP_UNREGISTER_RESPONSE")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"TP_UNREGISTER_RESPONSE")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeTP_UNREGISTER_RESPONSE
-        parseJSONPB (HsJSONPB.String "TP_PROCESS_REQUEST")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"TP_PROCESS_REQUEST")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeTP_PROCESS_REQUEST
-        parseJSONPB (HsJSONPB.String "TP_PROCESS_RESPONSE")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"TP_PROCESS_RESPONSE")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeTP_PROCESS_RESPONSE
-        parseJSONPB (HsJSONPB.String "TP_STATE_GET_REQUEST")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"TP_STATE_GET_REQUEST")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeTP_STATE_GET_REQUEST
-        parseJSONPB (HsJSONPB.String "TP_STATE_GET_RESPONSE")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"TP_STATE_GET_RESPONSE")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeTP_STATE_GET_RESPONSE
-        parseJSONPB (HsJSONPB.String "TP_STATE_SET_REQUEST")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"TP_STATE_SET_REQUEST")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeTP_STATE_SET_REQUEST
-        parseJSONPB (HsJSONPB.String "TP_STATE_SET_RESPONSE")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"TP_STATE_SET_RESPONSE")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeTP_STATE_SET_RESPONSE
-        parseJSONPB (HsJSONPB.String "TP_STATE_DELETE_REQUEST")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"TP_STATE_DELETE_REQUEST")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeTP_STATE_DELETE_REQUEST
-        parseJSONPB (HsJSONPB.String "TP_STATE_DELETE_RESPONSE")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"TP_STATE_DELETE_RESPONSE")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeTP_STATE_DELETE_RESPONSE
-        parseJSONPB (HsJSONPB.String "TP_RECEIPT_ADD_DATA_REQUEST")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"TP_RECEIPT_ADD_DATA_REQUEST")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeTP_RECEIPT_ADD_DATA_REQUEST
-        parseJSONPB (HsJSONPB.String "TP_RECEIPT_ADD_DATA_RESPONSE")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"TP_RECEIPT_ADD_DATA_RESPONSE")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeTP_RECEIPT_ADD_DATA_RESPONSE
-        parseJSONPB (HsJSONPB.String "TP_EVENT_ADD_REQUEST")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"TP_EVENT_ADD_REQUEST")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeTP_EVENT_ADD_REQUEST
-        parseJSONPB (HsJSONPB.String "TP_EVENT_ADD_RESPONSE")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"TP_EVENT_ADD_RESPONSE")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeTP_EVENT_ADD_RESPONSE
-        parseJSONPB (HsJSONPB.String "CLIENT_BATCH_SUBMIT_REQUEST")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CLIENT_BATCH_SUBMIT_REQUEST")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCLIENT_BATCH_SUBMIT_REQUEST
-        parseJSONPB (HsJSONPB.String "CLIENT_BATCH_SUBMIT_RESPONSE")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CLIENT_BATCH_SUBMIT_RESPONSE")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCLIENT_BATCH_SUBMIT_RESPONSE
-        parseJSONPB (HsJSONPB.String "CLIENT_BLOCK_LIST_REQUEST")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CLIENT_BLOCK_LIST_REQUEST")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCLIENT_BLOCK_LIST_REQUEST
-        parseJSONPB (HsJSONPB.String "CLIENT_BLOCK_LIST_RESPONSE")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CLIENT_BLOCK_LIST_RESPONSE")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCLIENT_BLOCK_LIST_RESPONSE
-        parseJSONPB (HsJSONPB.String "CLIENT_BLOCK_GET_BY_ID_REQUEST")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CLIENT_BLOCK_GET_BY_ID_REQUEST")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCLIENT_BLOCK_GET_BY_ID_REQUEST
-        parseJSONPB (HsJSONPB.String "CLIENT_BLOCK_GET_RESPONSE")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CLIENT_BLOCK_GET_RESPONSE")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCLIENT_BLOCK_GET_RESPONSE
-        parseJSONPB (HsJSONPB.String "CLIENT_BATCH_LIST_REQUEST")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CLIENT_BATCH_LIST_REQUEST")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCLIENT_BATCH_LIST_REQUEST
-        parseJSONPB (HsJSONPB.String "CLIENT_BATCH_LIST_RESPONSE")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CLIENT_BATCH_LIST_RESPONSE")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCLIENT_BATCH_LIST_RESPONSE
-        parseJSONPB (HsJSONPB.String "CLIENT_BATCH_GET_REQUEST")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CLIENT_BATCH_GET_REQUEST")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCLIENT_BATCH_GET_REQUEST
-        parseJSONPB (HsJSONPB.String "CLIENT_BATCH_GET_RESPONSE")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CLIENT_BATCH_GET_RESPONSE")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCLIENT_BATCH_GET_RESPONSE
-        parseJSONPB (HsJSONPB.String "CLIENT_TRANSACTION_LIST_REQUEST")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CLIENT_TRANSACTION_LIST_REQUEST")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCLIENT_TRANSACTION_LIST_REQUEST
-        parseJSONPB (HsJSONPB.String "CLIENT_TRANSACTION_LIST_RESPONSE")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CLIENT_TRANSACTION_LIST_RESPONSE")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCLIENT_TRANSACTION_LIST_RESPONSE
-        parseJSONPB (HsJSONPB.String "CLIENT_TRANSACTION_GET_REQUEST")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CLIENT_TRANSACTION_GET_REQUEST")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCLIENT_TRANSACTION_GET_REQUEST
-        parseJSONPB (HsJSONPB.String "CLIENT_TRANSACTION_GET_RESPONSE")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CLIENT_TRANSACTION_GET_RESPONSE")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCLIENT_TRANSACTION_GET_RESPONSE
-        parseJSONPB (HsJSONPB.String "CLIENT_STATE_CURRENT_REQUEST")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CLIENT_STATE_CURRENT_REQUEST")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCLIENT_STATE_CURRENT_REQUEST
-        parseJSONPB (HsJSONPB.String "CLIENT_STATE_CURRENT_RESPONSE")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CLIENT_STATE_CURRENT_RESPONSE")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCLIENT_STATE_CURRENT_RESPONSE
-        parseJSONPB (HsJSONPB.String "CLIENT_STATE_LIST_REQUEST")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CLIENT_STATE_LIST_REQUEST")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCLIENT_STATE_LIST_REQUEST
-        parseJSONPB (HsJSONPB.String "CLIENT_STATE_LIST_RESPONSE")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CLIENT_STATE_LIST_RESPONSE")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCLIENT_STATE_LIST_RESPONSE
-        parseJSONPB (HsJSONPB.String "CLIENT_STATE_GET_REQUEST")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CLIENT_STATE_GET_REQUEST")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCLIENT_STATE_GET_REQUEST
-        parseJSONPB (HsJSONPB.String "CLIENT_STATE_GET_RESPONSE")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CLIENT_STATE_GET_RESPONSE")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCLIENT_STATE_GET_RESPONSE
-        parseJSONPB (HsJSONPB.String "CLIENT_BATCH_STATUS_REQUEST")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CLIENT_BATCH_STATUS_REQUEST")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCLIENT_BATCH_STATUS_REQUEST
-        parseJSONPB (HsJSONPB.String "CLIENT_BATCH_STATUS_RESPONSE")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CLIENT_BATCH_STATUS_RESPONSE")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCLIENT_BATCH_STATUS_RESPONSE
-        parseJSONPB (HsJSONPB.String "CLIENT_RECEIPT_GET_REQUEST")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CLIENT_RECEIPT_GET_REQUEST")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCLIENT_RECEIPT_GET_REQUEST
-        parseJSONPB (HsJSONPB.String "CLIENT_RECEIPT_GET_RESPONSE")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CLIENT_RECEIPT_GET_RESPONSE")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCLIENT_RECEIPT_GET_RESPONSE
-        parseJSONPB (HsJSONPB.String "CLIENT_BLOCK_GET_BY_NUM_REQUEST")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CLIENT_BLOCK_GET_BY_NUM_REQUEST")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCLIENT_BLOCK_GET_BY_NUM_REQUEST
-        parseJSONPB (HsJSONPB.String "CLIENT_PEERS_GET_REQUEST")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CLIENT_PEERS_GET_REQUEST")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCLIENT_PEERS_GET_REQUEST
-        parseJSONPB (HsJSONPB.String "CLIENT_PEERS_GET_RESPONSE")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CLIENT_PEERS_GET_RESPONSE")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCLIENT_PEERS_GET_RESPONSE
-        parseJSONPB
-          (HsJSONPB.String "CLIENT_BLOCK_GET_BY_TRANSACTION_ID_REQUEST")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB
+          (HsJSONPB.String Text
+"CLIENT_BLOCK_GET_BY_TRANSACTION_ID_REQUEST")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure
-              Message_MessageType
+Hs.pure
+              Message_MessageType
 Message_MessageTypeCLIENT_BLOCK_GET_BY_TRANSACTION_ID_REQUEST
-        parseJSONPB
-          (HsJSONPB.String "CLIENT_BLOCK_GET_BY_BATCH_ID_REQUEST")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB
+          (HsJSONPB.String Text
+"CLIENT_BLOCK_GET_BY_BATCH_ID_REQUEST")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCLIENT_BLOCK_GET_BY_BATCH_ID_REQUEST
-        parseJSONPB (HsJSONPB.String "CLIENT_STATUS_GET_REQUEST")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CLIENT_STATUS_GET_REQUEST")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCLIENT_STATUS_GET_REQUEST
-        parseJSONPB (HsJSONPB.String "CLIENT_STATUS_GET_RESPONSE")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CLIENT_STATUS_GET_RESPONSE")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCLIENT_STATUS_GET_RESPONSE
-        parseJSONPB (HsJSONPB.String "GOSSIP_MESSAGE")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"GOSSIP_MESSAGE")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeGOSSIP_MESSAGE
-        parseJSONPB (HsJSONPB.String "GOSSIP_REGISTER")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"GOSSIP_REGISTER")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeGOSSIP_REGISTER
-        parseJSONPB (HsJSONPB.String "GOSSIP_UNREGISTER")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"GOSSIP_UNREGISTER")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeGOSSIP_UNREGISTER
-        parseJSONPB (HsJSONPB.String "GOSSIP_BLOCK_REQUEST")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"GOSSIP_BLOCK_REQUEST")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeGOSSIP_BLOCK_REQUEST
-        parseJSONPB (HsJSONPB.String "GOSSIP_BLOCK_RESPONSE")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"GOSSIP_BLOCK_RESPONSE")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeGOSSIP_BLOCK_RESPONSE
-        parseJSONPB (HsJSONPB.String "GOSSIP_BATCH_BY_BATCH_ID_REQUEST")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"GOSSIP_BATCH_BY_BATCH_ID_REQUEST")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeGOSSIP_BATCH_BY_BATCH_ID_REQUEST
-        parseJSONPB
-          (HsJSONPB.String "GOSSIP_BATCH_BY_TRANSACTION_ID_REQUEST")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB
+          (HsJSONPB.String Text
+"GOSSIP_BATCH_BY_TRANSACTION_ID_REQUEST")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeGOSSIP_BATCH_BY_TRANSACTION_ID_REQUEST
-        parseJSONPB (HsJSONPB.String "GOSSIP_BATCH_RESPONSE")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"GOSSIP_BATCH_RESPONSE")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeGOSSIP_BATCH_RESPONSE
-        parseJSONPB (HsJSONPB.String "GOSSIP_GET_PEERS_REQUEST")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"GOSSIP_GET_PEERS_REQUEST")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeGOSSIP_GET_PEERS_REQUEST
-        parseJSONPB (HsJSONPB.String "GOSSIP_GET_PEERS_RESPONSE")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"GOSSIP_GET_PEERS_RESPONSE")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeGOSSIP_GET_PEERS_RESPONSE
-        parseJSONPB (HsJSONPB.String "GOSSIP_CONSENSUS_MESSAGE")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"GOSSIP_CONSENSUS_MESSAGE")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeGOSSIP_CONSENSUS_MESSAGE
-        parseJSONPB (HsJSONPB.String "NETWORK_ACK")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"NETWORK_ACK")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeNETWORK_ACK
-        parseJSONPB (HsJSONPB.String "NETWORK_CONNECT")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"NETWORK_CONNECT")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeNETWORK_CONNECT
-        parseJSONPB (HsJSONPB.String "NETWORK_DISCONNECT")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"NETWORK_DISCONNECT")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeNETWORK_DISCONNECT
-        parseJSONPB (HsJSONPB.String "CLIENT_EVENTS_SUBSCRIBE_REQUEST")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CLIENT_EVENTS_SUBSCRIBE_REQUEST")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCLIENT_EVENTS_SUBSCRIBE_REQUEST
-        parseJSONPB (HsJSONPB.String "CLIENT_EVENTS_SUBSCRIBE_RESPONSE")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CLIENT_EVENTS_SUBSCRIBE_RESPONSE")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCLIENT_EVENTS_SUBSCRIBE_RESPONSE
-        parseJSONPB (HsJSONPB.String "CLIENT_EVENTS_UNSUBSCRIBE_REQUEST")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CLIENT_EVENTS_UNSUBSCRIBE_REQUEST")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCLIENT_EVENTS_UNSUBSCRIBE_REQUEST
-        parseJSONPB (HsJSONPB.String "CLIENT_EVENTS_UNSUBSCRIBE_RESPONSE")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CLIENT_EVENTS_UNSUBSCRIBE_RESPONSE")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCLIENT_EVENTS_UNSUBSCRIBE_RESPONSE
-        parseJSONPB (HsJSONPB.String "CLIENT_EVENTS")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CLIENT_EVENTS")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCLIENT_EVENTS
-        parseJSONPB (HsJSONPB.String "CLIENT_EVENTS_GET_REQUEST")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CLIENT_EVENTS_GET_REQUEST")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCLIENT_EVENTS_GET_REQUEST
-        parseJSONPB (HsJSONPB.String "CLIENT_EVENTS_GET_RESPONSE")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CLIENT_EVENTS_GET_RESPONSE")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCLIENT_EVENTS_GET_RESPONSE
-        parseJSONPB (HsJSONPB.String "AUTHORIZATION_CONNECTION_RESPONSE")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"AUTHORIZATION_CONNECTION_RESPONSE")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeAUTHORIZATION_CONNECTION_RESPONSE
-        parseJSONPB (HsJSONPB.String "AUTHORIZATION_VIOLATION")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"AUTHORIZATION_VIOLATION")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeAUTHORIZATION_VIOLATION
-        parseJSONPB (HsJSONPB.String "AUTHORIZATION_TRUST_REQUEST")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"AUTHORIZATION_TRUST_REQUEST")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeAUTHORIZATION_TRUST_REQUEST
-        parseJSONPB (HsJSONPB.String "AUTHORIZATION_TRUST_RESPONSE")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"AUTHORIZATION_TRUST_RESPONSE")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeAUTHORIZATION_TRUST_RESPONSE
-        parseJSONPB (HsJSONPB.String "AUTHORIZATION_CHALLENGE_REQUEST")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"AUTHORIZATION_CHALLENGE_REQUEST")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeAUTHORIZATION_CHALLENGE_REQUEST
-        parseJSONPB (HsJSONPB.String "AUTHORIZATION_CHALLENGE_RESPONSE")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"AUTHORIZATION_CHALLENGE_RESPONSE")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeAUTHORIZATION_CHALLENGE_RESPONSE
-        parseJSONPB (HsJSONPB.String "AUTHORIZATION_CHALLENGE_SUBMIT")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"AUTHORIZATION_CHALLENGE_SUBMIT")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeAUTHORIZATION_CHALLENGE_SUBMIT
-        parseJSONPB (HsJSONPB.String "AUTHORIZATION_CHALLENGE_RESULT")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"AUTHORIZATION_CHALLENGE_RESULT")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeAUTHORIZATION_CHALLENGE_RESULT
-        parseJSONPB (HsJSONPB.String "PING_REQUEST")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"PING_REQUEST")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypePING_REQUEST
-        parseJSONPB (HsJSONPB.String "PING_RESPONSE")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"PING_RESPONSE")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypePING_RESPONSE
-        parseJSONPB (HsJSONPB.String "CONSENSUS_REGISTER_REQUEST")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CONSENSUS_REGISTER_REQUEST")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCONSENSUS_REGISTER_REQUEST
-        parseJSONPB (HsJSONPB.String "CONSENSUS_REGISTER_RESPONSE")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CONSENSUS_REGISTER_RESPONSE")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCONSENSUS_REGISTER_RESPONSE
-        parseJSONPB (HsJSONPB.String "CONSENSUS_SEND_TO_REQUEST")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CONSENSUS_SEND_TO_REQUEST")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCONSENSUS_SEND_TO_REQUEST
-        parseJSONPB (HsJSONPB.String "CONSENSUS_SEND_TO_RESPONSE")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CONSENSUS_SEND_TO_RESPONSE")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCONSENSUS_SEND_TO_RESPONSE
-        parseJSONPB (HsJSONPB.String "CONSENSUS_BROADCAST_REQUEST")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CONSENSUS_BROADCAST_REQUEST")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCONSENSUS_BROADCAST_REQUEST
-        parseJSONPB (HsJSONPB.String "CONSENSUS_BROADCAST_RESPONSE")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CONSENSUS_BROADCAST_RESPONSE")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCONSENSUS_BROADCAST_RESPONSE
-        parseJSONPB (HsJSONPB.String "CONSENSUS_INITIALIZE_BLOCK_REQUEST")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CONSENSUS_INITIALIZE_BLOCK_REQUEST")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCONSENSUS_INITIALIZE_BLOCK_REQUEST
-        parseJSONPB (HsJSONPB.String "CONSENSUS_INITIALIZE_BLOCK_RESPONSE")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CONSENSUS_INITIALIZE_BLOCK_RESPONSE")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCONSENSUS_INITIALIZE_BLOCK_RESPONSE
-        parseJSONPB (HsJSONPB.String "CONSENSUS_FINALIZE_BLOCK_REQUEST")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CONSENSUS_FINALIZE_BLOCK_REQUEST")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCONSENSUS_FINALIZE_BLOCK_REQUEST
-        parseJSONPB (HsJSONPB.String "CONSENSUS_FINALIZE_BLOCK_RESPONSE")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CONSENSUS_FINALIZE_BLOCK_RESPONSE")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCONSENSUS_FINALIZE_BLOCK_RESPONSE
-        parseJSONPB (HsJSONPB.String "CONSENSUS_CANCEL_BLOCK_REQUEST")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CONSENSUS_CANCEL_BLOCK_REQUEST")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCONSENSUS_CANCEL_BLOCK_REQUEST
-        parseJSONPB (HsJSONPB.String "CONSENSUS_CANCEL_BLOCK_RESPONSE")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CONSENSUS_CANCEL_BLOCK_RESPONSE")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCONSENSUS_CANCEL_BLOCK_RESPONSE
-        parseJSONPB (HsJSONPB.String "CONSENSUS_CHECK_BLOCKS_REQUEST")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CONSENSUS_CHECK_BLOCKS_REQUEST")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCONSENSUS_CHECK_BLOCKS_REQUEST
-        parseJSONPB (HsJSONPB.String "CONSENSUS_CHECK_BLOCKS_RESPONSE")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CONSENSUS_CHECK_BLOCKS_RESPONSE")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCONSENSUS_CHECK_BLOCKS_RESPONSE
-        parseJSONPB (HsJSONPB.String "CONSENSUS_COMMIT_BLOCK_REQUEST")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CONSENSUS_COMMIT_BLOCK_REQUEST")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCONSENSUS_COMMIT_BLOCK_REQUEST
-        parseJSONPB (HsJSONPB.String "CONSENSUS_COMMIT_BLOCK_RESPONSE")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CONSENSUS_COMMIT_BLOCK_RESPONSE")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCONSENSUS_COMMIT_BLOCK_RESPONSE
-        parseJSONPB (HsJSONPB.String "CONSENSUS_IGNORE_BLOCK_REQUEST")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CONSENSUS_IGNORE_BLOCK_REQUEST")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCONSENSUS_IGNORE_BLOCK_REQUEST
-        parseJSONPB (HsJSONPB.String "CONSENSUS_IGNORE_BLOCK_RESPONSE")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CONSENSUS_IGNORE_BLOCK_RESPONSE")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCONSENSUS_IGNORE_BLOCK_RESPONSE
-        parseJSONPB (HsJSONPB.String "CONSENSUS_FAIL_BLOCK_REQUEST")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CONSENSUS_FAIL_BLOCK_REQUEST")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCONSENSUS_FAIL_BLOCK_REQUEST
-        parseJSONPB (HsJSONPB.String "CONSENSUS_FAIL_BLOCK_RESPONSE")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CONSENSUS_FAIL_BLOCK_RESPONSE")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCONSENSUS_FAIL_BLOCK_RESPONSE
-        parseJSONPB (HsJSONPB.String "CONSENSUS_SETTINGS_GET_REQUEST")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CONSENSUS_SETTINGS_GET_REQUEST")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCONSENSUS_SETTINGS_GET_REQUEST
-        parseJSONPB (HsJSONPB.String "CONSENSUS_SETTINGS_GET_RESPONSE")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CONSENSUS_SETTINGS_GET_RESPONSE")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCONSENSUS_SETTINGS_GET_RESPONSE
-        parseJSONPB (HsJSONPB.String "CONSENSUS_STATE_GET_REQUEST")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CONSENSUS_STATE_GET_REQUEST")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCONSENSUS_STATE_GET_REQUEST
-        parseJSONPB (HsJSONPB.String "CONSENSUS_STATE_GET_RESPONSE")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CONSENSUS_STATE_GET_RESPONSE")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCONSENSUS_STATE_GET_RESPONSE
-        parseJSONPB (HsJSONPB.String "CONSENSUS_BLOCKS_GET_REQUEST")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CONSENSUS_BLOCKS_GET_REQUEST")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCONSENSUS_BLOCKS_GET_REQUEST
-        parseJSONPB (HsJSONPB.String "CONSENSUS_BLOCKS_GET_RESPONSE")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CONSENSUS_BLOCKS_GET_RESPONSE")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCONSENSUS_BLOCKS_GET_RESPONSE
-        parseJSONPB (HsJSONPB.String "CONSENSUS_CHAIN_HEAD_GET_REQUEST")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CONSENSUS_CHAIN_HEAD_GET_REQUEST")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCONSENSUS_CHAIN_HEAD_GET_REQUEST
-        parseJSONPB (HsJSONPB.String "CONSENSUS_CHAIN_HEAD_GET_RESPONSE")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CONSENSUS_CHAIN_HEAD_GET_RESPONSE")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCONSENSUS_CHAIN_HEAD_GET_RESPONSE
-        parseJSONPB (HsJSONPB.String "CONSENSUS_SUMMARIZE_BLOCK_REQUEST")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CONSENSUS_SUMMARIZE_BLOCK_REQUEST")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCONSENSUS_SUMMARIZE_BLOCK_REQUEST
-        parseJSONPB (HsJSONPB.String "CONSENSUS_SUMMARIZE_BLOCK_RESPONSE")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CONSENSUS_SUMMARIZE_BLOCK_RESPONSE")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCONSENSUS_SUMMARIZE_BLOCK_RESPONSE
-        parseJSONPB (HsJSONPB.String "CONSENSUS_NOTIFY_PEER_CONNECTED")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CONSENSUS_NOTIFY_PEER_CONNECTED")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCONSENSUS_NOTIFY_PEER_CONNECTED
-        parseJSONPB (HsJSONPB.String "CONSENSUS_NOTIFY_PEER_DISCONNECTED")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CONSENSUS_NOTIFY_PEER_DISCONNECTED")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCONSENSUS_NOTIFY_PEER_DISCONNECTED
-        parseJSONPB (HsJSONPB.String "CONSENSUS_NOTIFY_PEER_MESSAGE")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CONSENSUS_NOTIFY_PEER_MESSAGE")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCONSENSUS_NOTIFY_PEER_MESSAGE
-        parseJSONPB (HsJSONPB.String "CONSENSUS_NOTIFY_BLOCK_NEW")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CONSENSUS_NOTIFY_BLOCK_NEW")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCONSENSUS_NOTIFY_BLOCK_NEW
-        parseJSONPB (HsJSONPB.String "CONSENSUS_NOTIFY_BLOCK_VALID")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CONSENSUS_NOTIFY_BLOCK_VALID")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCONSENSUS_NOTIFY_BLOCK_VALID
-        parseJSONPB (HsJSONPB.String "CONSENSUS_NOTIFY_BLOCK_INVALID")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CONSENSUS_NOTIFY_BLOCK_INVALID")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCONSENSUS_NOTIFY_BLOCK_INVALID
-        parseJSONPB (HsJSONPB.String "CONSENSUS_NOTIFY_BLOCK_COMMIT")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CONSENSUS_NOTIFY_BLOCK_COMMIT")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCONSENSUS_NOTIFY_BLOCK_COMMIT
-        parseJSONPB (HsJSONPB.String "CONSENSUS_NOTIFY_ENGINE_ACTIVATED")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CONSENSUS_NOTIFY_ENGINE_ACTIVATED")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCONSENSUS_NOTIFY_ENGINE_ACTIVATED
-        parseJSONPB (HsJSONPB.String "CONSENSUS_NOTIFY_ENGINE_DEACTIVATED")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CONSENSUS_NOTIFY_ENGINE_DEACTIVATED")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCONSENSUS_NOTIFY_ENGINE_DEACTIVATED
-        parseJSONPB (HsJSONPB.String "CONSENSUS_NOTIFY_ACK")
-          = Message_MessageType -> Parser Message_MessageType
+        parseJSONPB (HsJSONPB.String Text
+"CONSENSUS_NOTIFY_ACK")
+          = Message_MessageType -> Parser Message_MessageType
 forall (f :: * -> *) a. Applicative f => a -> f a
-Hs.pure Message_MessageType
+Hs.pure Message_MessageType
 Message_MessageTypeCONSENSUS_NOTIFY_ACK
-        parseJSONPB v :: Value
-v = (String -> Value -> Parser Message_MessageType
+        parseJSONPB Value
+v = (String -> Value -> Parser Message_MessageType
 forall a. String -> Value -> Parser a
-HsJSONPB.typeMismatch "Message_MessageType" Value
-v)
- 
-instance HsJSONPB.ToJSON Message_MessageType where
-        toJSON :: Message_MessageType -> Value
-toJSON = Message_MessageType -> Value
+HsJSONPB.typeMismatch String
+"Message_MessageType" Value
+v)
+ 
+instance HsJSONPB.ToJSON Message_MessageType where
+        toJSON :: Message_MessageType -> Value
+toJSON = Message_MessageType -> Value
 forall a. ToJSONPB a => a -> Value
-HsJSONPB.toAesonValue
-        toEncoding :: Message_MessageType -> Encoding
-toEncoding = Message_MessageType -> Encoding
+HsJSONPB.toAesonValue
+        toEncoding :: Message_MessageType -> Encoding
+toEncoding = Message_MessageType -> Encoding
 forall a. ToJSONPB a => a -> Encoding
-HsJSONPB.toAesonEncoding
- 
-instance HsJSONPB.FromJSON Message_MessageType where
-        parseJSON :: Value -> Parser Message_MessageType
-parseJSON = Value -> Parser Message_MessageType
+HsJSONPB.toAesonEncoding
+ 
+instance HsJSONPB.FromJSON Message_MessageType where
+        parseJSON :: Value -> Parser Message_MessageType
+parseJSON = Value -> Parser Message_MessageType
 forall a. FromJSONPB a => Value -> Parser a
-HsJSONPB.parseJSONPB
- 
-instance HsProtobuf.Finite Message_MessageType

\ No newline at end of file
+HsJSONPB.parseJSONPB
+ 
+instance HsProtobuf.Finite Message_MessageType
\ No newline at end of file diff --git a/src/Paths_sawtooth_haskell_protos.html b/src/Paths_sawtooth_haskell_protos.html index 023621e..c8e4d49 100644 --- a/src/Paths_sawtooth_haskell_protos.html +++ b/src/Paths_sawtooth_haskell_protos.html @@ -7,15 +7,15 @@ getDataFileName, getSysconfDir ) where -import qualified Control.Exception as Exception -import Data.Version (Version(..)) -import System.Environment (getEnv) -import Prelude +import qualified Control.Exception as Exception +import Data.Version (Version(..)) +import System.Environment (getEnv) +import Prelude #if defined(VERSION_base) #if MIN_VERSION_base(4,0,0) -catchIO :: IO a -> (Exception.IOException -> IO a) -> IO a +catchIO :: IO a -> (Exception.IOException -> IO a) -> IO a #else catchIO :: IO a -> (Exception.Exception -> IO a) -> IO a #endif @@ -26,91 +26,113 @@ catchIO :: IO a -> (IOException -> IO a) -> IO a catchIO = IO a -> (IOException -> IO a) -> IO a forall e a. Exception e => IO a -> (e -> IO a) -> IO a -Exception.catch +Exception.catch -version :: Version +version :: Version version :: Version version = [Int] -> [String] -> Version -Version [0,0,0] [] -bindir, libdir, dynlibdir, datadir, libexecdir, sysconfdir :: FilePath +Version [Int +0,Int +0,Int +0] [] +bindir, libdir, dynlibdir, datadir, libexecdir, sysconfdir :: FilePath bindir :: String -bindir = "/nix/store/eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee-sawtooth-haskell-protos-0.0.0/bin" +bindir = String +"/nix/store/eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee-sawtooth-haskell-protos-0.0.0/bin" libdir :: String -libdir = "/nix/store/eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee-sawtooth-haskell-protos-0.0.0/lib/ghc-8.8.2/x86_64-linux-ghc-8.8.2/sawtooth-haskell-protos-0.0.0-FsC9yRbEqPQIUdGGs1AFpZ" +libdir = String +"/nix/store/eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee-sawtooth-haskell-protos-0.0.0/lib/ghc-8.10.3/x86_64-linux-ghc-8.10.3/sawtooth-haskell-protos-0.0.0-9R9szE9iJS02ZReAEZ8CCi" dynlibdir :: String -dynlibdir = "/nix/store/eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee-sawtooth-haskell-protos-0.0.0/lib/ghc-8.8.2/x86_64-linux-ghc-8.8.2" +dynlibdir = String +"/nix/store/eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee-sawtooth-haskell-protos-0.0.0/lib/ghc-8.10.3/x86_64-linux-ghc-8.10.3" datadir :: String -datadir = "/nix/store/eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee-sawtooth-haskell-protos-0.0.0/share/x86_64-linux-ghc-8.8.2/sawtooth-haskell-protos-0.0.0" +datadir = String +"/nix/store/eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee-sawtooth-haskell-protos-0.0.0/share/x86_64-linux-ghc-8.10.3/sawtooth-haskell-protos-0.0.0" libexecdir :: String -libexecdir = "/nix/store/eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee-sawtooth-haskell-protos-0.0.0/libexec/x86_64-linux-ghc-8.8.2/sawtooth-haskell-protos-0.0.0" +libexecdir = String +"/nix/store/eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee-sawtooth-haskell-protos-0.0.0/libexec/x86_64-linux-ghc-8.10.3/sawtooth-haskell-protos-0.0.0" sysconfdir :: String -sysconfdir = "/nix/store/eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee-sawtooth-haskell-protos-0.0.0/etc" +sysconfdir = String +"/nix/store/eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee-sawtooth-haskell-protos-0.0.0/etc" -getBinDir, getLibDir, getDynLibDir, getDataDir, getLibexecDir, getSysconfDir :: IO FilePath +getBinDir, getLibDir, getDynLibDir, getDataDir, getLibexecDir, getSysconfDir :: IO FilePath getBinDir :: IO String getBinDir = IO String -> (IOException -> IO String) -> IO String forall a. IO a -> (IOException -> IO a) -> IO a catchIO (String -> IO String -getEnv "sawtooth_haskell_protos_bindir") (\_ -> String -> IO String +getEnv String +"sawtooth_haskell_protos_bindir") (\IOException +_ -> String -> IO String forall (m :: * -> *) a. Monad m => a -> m a -return String +return String bindir) getLibDir :: IO String getLibDir = IO String -> (IOException -> IO String) -> IO String forall a. IO a -> (IOException -> IO a) -> IO a catchIO (String -> IO String -getEnv "sawtooth_haskell_protos_libdir") (\_ -> String -> IO String +getEnv String +"sawtooth_haskell_protos_libdir") (\IOException +_ -> String -> IO String forall (m :: * -> *) a. Monad m => a -> m a -return String +return String libdir) getDynLibDir :: IO String getDynLibDir = IO String -> (IOException -> IO String) -> IO String forall a. IO a -> (IOException -> IO a) -> IO a catchIO (String -> IO String -getEnv "sawtooth_haskell_protos_dynlibdir") (\_ -> String -> IO String +getEnv String +"sawtooth_haskell_protos_dynlibdir") (\IOException +_ -> String -> IO String forall (m :: * -> *) a. Monad m => a -> m a -return String +return String dynlibdir) getDataDir :: IO String getDataDir = IO String -> (IOException -> IO String) -> IO String forall a. IO a -> (IOException -> IO a) -> IO a catchIO (String -> IO String -getEnv "sawtooth_haskell_protos_datadir") (\_ -> String -> IO String +getEnv String +"sawtooth_haskell_protos_datadir") (\IOException +_ -> String -> IO String forall (m :: * -> *) a. Monad m => a -> m a -return String +return String datadir) getLibexecDir :: IO String getLibexecDir = IO String -> (IOException -> IO String) -> IO String forall a. IO a -> (IOException -> IO a) -> IO a catchIO (String -> IO String -getEnv "sawtooth_haskell_protos_libexecdir") (\_ -> String -> IO String +getEnv String +"sawtooth_haskell_protos_libexecdir") (\IOException +_ -> String -> IO String forall (m :: * -> *) a. Monad m => a -> m a -return String +return String libexecdir) getSysconfDir :: IO String getSysconfDir = IO String -> (IOException -> IO String) -> IO String forall a. IO a -> (IOException -> IO a) -> IO a catchIO (String -> IO String -getEnv "sawtooth_haskell_protos_sysconfdir") (\_ -> String -> IO String +getEnv String +"sawtooth_haskell_protos_sysconfdir") (\IOException +_ -> String -> IO String forall (m :: * -> *) a. Monad m => a -> m a -return String +return String sysconfdir) -getDataFileName :: FilePath -> IO FilePath +getDataFileName :: FilePath -> IO FilePath getDataFileName :: String -> IO String -getDataFileName name :: String -name = do - String -dir <- IO String +getDataFileName String +name = do + String +dir <- IO String getDataDir String -> IO String forall (m :: * -> *) a. Monad m => a -> m a -return (String -dir String -> String -> String +return (String +dir String -> String -> String forall a. [a] -> [a] -> [a] -++ "/" String -> String -> String +++ String +"/" String -> String -> String forall a. [a] -> [a] -> [a] -++ String -name) +++ String +name) \ No newline at end of file