{- This file was auto-generated from cardano/rpc/node.proto by the proto-lens-protoc program. -}
{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, UndecidableInstances, GeneralizedNewtypeDeriving, MultiParamTypeClasses, FlexibleContexts, FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude, DataKinds, BangPatterns, TypeApplications, OverloadedStrings, DerivingStrategies#-}
{-# OPTIONS_GHC -Wno-unused-imports#-}
{-# OPTIONS_GHC -Wno-duplicate-exports#-}
{-# OPTIONS_GHC -Wno-dodgy-exports#-}
module Proto.Cardano.Rpc.Node (
        Node(..), CurrentEra(), Era(..), Era(), Era'UnrecognizedValue,
        ProtocolParamsJson()
    ) where
import qualified Data.ProtoLens.Runtime.Control.DeepSeq as Control.DeepSeq
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Prism as Data.ProtoLens.Prism
import qualified Data.ProtoLens.Runtime.Prelude as Prelude
import qualified Data.ProtoLens.Runtime.Data.Int as Data.Int
import qualified Data.ProtoLens.Runtime.Data.Monoid as Data.Monoid
import qualified Data.ProtoLens.Runtime.Data.Word as Data.Word
import qualified Data.ProtoLens.Runtime.Data.ProtoLens as Data.ProtoLens
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Bytes as Data.ProtoLens.Encoding.Bytes
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Growing as Data.ProtoLens.Encoding.Growing
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Parser.Unsafe as Data.ProtoLens.Encoding.Parser.Unsafe
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Wire as Data.ProtoLens.Encoding.Wire
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Field as Data.ProtoLens.Field
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Message.Enum as Data.ProtoLens.Message.Enum
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Service.Types as Data.ProtoLens.Service.Types
import qualified Data.ProtoLens.Runtime.Lens.Family2 as Lens.Family2
import qualified Data.ProtoLens.Runtime.Lens.Family2.Unchecked as Lens.Family2.Unchecked
import qualified Data.ProtoLens.Runtime.Data.Text as Data.Text
import qualified Data.ProtoLens.Runtime.Data.Map as Data.Map
import qualified Data.ProtoLens.Runtime.Data.ByteString as Data.ByteString
import qualified Data.ProtoLens.Runtime.Data.ByteString.Char8 as Data.ByteString.Char8
import qualified Data.ProtoLens.Runtime.Data.Text.Encoding as Data.Text.Encoding
import qualified Data.ProtoLens.Runtime.Data.Vector as Data.Vector
import qualified Data.ProtoLens.Runtime.Data.Vector.Generic as Data.Vector.Generic
import qualified Data.ProtoLens.Runtime.Data.Vector.Unboxed as Data.Vector.Unboxed
import qualified Data.ProtoLens.Runtime.Text.Read as Text.Read
import qualified Proto.Google.Protobuf.Empty
{- | Fields :
     
         * 'Proto.Cardano.Rpc.Node_Fields.era' @:: Lens' CurrentEra Era@ -}
data CurrentEra
  = CurrentEra'_constructor {CurrentEra -> Era
_CurrentEra'era :: !Era,
                             CurrentEra -> FieldSet
_CurrentEra'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (CurrentEra -> CurrentEra -> Bool
(CurrentEra -> CurrentEra -> Bool)
-> (CurrentEra -> CurrentEra -> Bool) -> Eq CurrentEra
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: CurrentEra -> CurrentEra -> Bool
== :: CurrentEra -> CurrentEra -> Bool
$c/= :: CurrentEra -> CurrentEra -> Bool
/= :: CurrentEra -> CurrentEra -> Bool
Prelude.Eq, Eq CurrentEra
Eq CurrentEra =>
(CurrentEra -> CurrentEra -> Ordering)
-> (CurrentEra -> CurrentEra -> Bool)
-> (CurrentEra -> CurrentEra -> Bool)
-> (CurrentEra -> CurrentEra -> Bool)
-> (CurrentEra -> CurrentEra -> Bool)
-> (CurrentEra -> CurrentEra -> CurrentEra)
-> (CurrentEra -> CurrentEra -> CurrentEra)
-> Ord CurrentEra
CurrentEra -> CurrentEra -> Bool
CurrentEra -> CurrentEra -> Ordering
CurrentEra -> CurrentEra -> CurrentEra
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: CurrentEra -> CurrentEra -> Ordering
compare :: CurrentEra -> CurrentEra -> Ordering
$c< :: CurrentEra -> CurrentEra -> Bool
< :: CurrentEra -> CurrentEra -> Bool
$c<= :: CurrentEra -> CurrentEra -> Bool
<= :: CurrentEra -> CurrentEra -> Bool
$c> :: CurrentEra -> CurrentEra -> Bool
> :: CurrentEra -> CurrentEra -> Bool
$c>= :: CurrentEra -> CurrentEra -> Bool
>= :: CurrentEra -> CurrentEra -> Bool
$cmax :: CurrentEra -> CurrentEra -> CurrentEra
max :: CurrentEra -> CurrentEra -> CurrentEra
$cmin :: CurrentEra -> CurrentEra -> CurrentEra
min :: CurrentEra -> CurrentEra -> CurrentEra
Prelude.Ord)
instance Prelude.Show CurrentEra where
  showsPrec :: Int -> CurrentEra -> ShowS
showsPrec Int
_ CurrentEra
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (CurrentEra -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort CurrentEra
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField CurrentEra "era" Era where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "era" -> (Era -> f Era) -> CurrentEra -> f CurrentEra
fieldOf Proxy# "era"
_
    = ((Era -> f Era) -> CurrentEra -> f CurrentEra)
-> ((Era -> f Era) -> Era -> f Era)
-> (Era -> f Era)
-> CurrentEra
-> f CurrentEra
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CurrentEra -> Era)
-> (CurrentEra -> Era -> CurrentEra)
-> Lens CurrentEra CurrentEra Era Era
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CurrentEra -> Era
_CurrentEra'era (\ CurrentEra
x__ Era
y__ -> CurrentEra
x__ {_CurrentEra'era = y__}))
        (Era -> f Era) -> Era -> f Era
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message CurrentEra where
  messageName :: Proxy CurrentEra -> Text
messageName Proxy CurrentEra
_ = String -> Text
Data.Text.pack String
"cardano.rpc.CurrentEra"
  packedMessageDescriptor :: Proxy CurrentEra -> ByteString
packedMessageDescriptor Proxy CurrentEra
_
    = ByteString
"\n\
      \\n\
      \CurrentEra\DC2\"\n\
      \\ETXera\CAN\SOH \SOH(\SO2\DLE.cardano.rpc.EraR\ETXera"
  packedFileDescriptor :: Proxy CurrentEra -> ByteString
packedFileDescriptor Proxy CurrentEra
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor CurrentEra)
fieldsByTag
    = let
        era__field_descriptor :: FieldDescriptor CurrentEra
era__field_descriptor
          = String
-> FieldTypeDescriptor Era
-> FieldAccessor CurrentEra Era
-> FieldDescriptor CurrentEra
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"era"
              (ScalarField Era -> FieldTypeDescriptor Era
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Era
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
                 Data.ProtoLens.FieldTypeDescriptor Era)
              (WireDefault Era
-> Lens CurrentEra CurrentEra Era Era
-> FieldAccessor CurrentEra Era
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Era
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"era")) ::
              Data.ProtoLens.FieldDescriptor CurrentEra
      in
        [(Tag, FieldDescriptor CurrentEra)]
-> Map Tag (FieldDescriptor CurrentEra)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor CurrentEra
era__field_descriptor)]
  unknownFields :: Lens' CurrentEra FieldSet
unknownFields
    = (CurrentEra -> FieldSet)
-> (CurrentEra -> FieldSet -> CurrentEra)
-> Lens' CurrentEra FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        CurrentEra -> FieldSet
_CurrentEra'_unknownFields
        (\ CurrentEra
x__ FieldSet
y__ -> CurrentEra
x__ {_CurrentEra'_unknownFields = y__})
  defMessage :: CurrentEra
defMessage
    = CurrentEra'_constructor
        {_CurrentEra'era :: Era
_CurrentEra'era = Era
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _CurrentEra'_unknownFields :: FieldSet
_CurrentEra'_unknownFields = []}
  parseMessage :: Parser CurrentEra
parseMessage
    = let
        loop ::
          CurrentEra -> Data.ProtoLens.Encoding.Bytes.Parser CurrentEra
        loop :: CurrentEra -> Parser CurrentEra
loop CurrentEra
x
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
8 -> do y <- Parser Era -> String -> Parser Era
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Int -> Era) -> Parser Int -> Parser Era
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Int -> Era
forall a. Enum a => Int -> a
Prelude.toEnum
                                          ((Word64 -> Int) -> Parser Word64 -> Parser Int
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                             Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                             Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt))
                                       String
"era"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"era") y x)
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
      in
        Parser CurrentEra -> String -> Parser CurrentEra
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do CurrentEra -> Parser CurrentEra
loop CurrentEra
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"CurrentEra"
  buildMessage :: CurrentEra -> Builder
buildMessage
    = \ CurrentEra
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Era
_v = FoldLike Era CurrentEra CurrentEra Era Era -> CurrentEra -> Era
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"era") CurrentEra
_x
              in
                if Era -> Era -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Era
_v Era
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                    Builder
forall a. Monoid a => a
Data.Monoid.mempty
                else
                    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
8)
                      ((Int -> Builder) -> (Era -> Int) -> Era -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                         ((Word64 -> Builder) -> (Int -> Word64) -> Int -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                            Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral)
                         Era -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum Era
_v))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike FieldSet CurrentEra CurrentEra FieldSet FieldSet
-> CurrentEra -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet CurrentEra CurrentEra FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' CurrentEra FieldSet
Data.ProtoLens.unknownFields CurrentEra
_x))
instance Control.DeepSeq.NFData CurrentEra where
  rnf :: CurrentEra -> ()
rnf
    = \ CurrentEra
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (CurrentEra -> FieldSet
_CurrentEra'_unknownFields CurrentEra
x__)
             (Era -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (CurrentEra -> Era
_CurrentEra'era CurrentEra
x__) ())
newtype Era'UnrecognizedValue
  = Era'UnrecognizedValue Data.Int.Int32
  deriving stock (Era'UnrecognizedValue -> Era'UnrecognizedValue -> Bool
(Era'UnrecognizedValue -> Era'UnrecognizedValue -> Bool)
-> (Era'UnrecognizedValue -> Era'UnrecognizedValue -> Bool)
-> Eq Era'UnrecognizedValue
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Era'UnrecognizedValue -> Era'UnrecognizedValue -> Bool
== :: Era'UnrecognizedValue -> Era'UnrecognizedValue -> Bool
$c/= :: Era'UnrecognizedValue -> Era'UnrecognizedValue -> Bool
/= :: Era'UnrecognizedValue -> Era'UnrecognizedValue -> Bool
Prelude.Eq, Eq Era'UnrecognizedValue
Eq Era'UnrecognizedValue =>
(Era'UnrecognizedValue -> Era'UnrecognizedValue -> Ordering)
-> (Era'UnrecognizedValue -> Era'UnrecognizedValue -> Bool)
-> (Era'UnrecognizedValue -> Era'UnrecognizedValue -> Bool)
-> (Era'UnrecognizedValue -> Era'UnrecognizedValue -> Bool)
-> (Era'UnrecognizedValue -> Era'UnrecognizedValue -> Bool)
-> (Era'UnrecognizedValue
    -> Era'UnrecognizedValue -> Era'UnrecognizedValue)
-> (Era'UnrecognizedValue
    -> Era'UnrecognizedValue -> Era'UnrecognizedValue)
-> Ord Era'UnrecognizedValue
Era'UnrecognizedValue -> Era'UnrecognizedValue -> Bool
Era'UnrecognizedValue -> Era'UnrecognizedValue -> Ordering
Era'UnrecognizedValue
-> Era'UnrecognizedValue -> Era'UnrecognizedValue
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: Era'UnrecognizedValue -> Era'UnrecognizedValue -> Ordering
compare :: Era'UnrecognizedValue -> Era'UnrecognizedValue -> Ordering
$c< :: Era'UnrecognizedValue -> Era'UnrecognizedValue -> Bool
< :: Era'UnrecognizedValue -> Era'UnrecognizedValue -> Bool
$c<= :: Era'UnrecognizedValue -> Era'UnrecognizedValue -> Bool
<= :: Era'UnrecognizedValue -> Era'UnrecognizedValue -> Bool
$c> :: Era'UnrecognizedValue -> Era'UnrecognizedValue -> Bool
> :: Era'UnrecognizedValue -> Era'UnrecognizedValue -> Bool
$c>= :: Era'UnrecognizedValue -> Era'UnrecognizedValue -> Bool
>= :: Era'UnrecognizedValue -> Era'UnrecognizedValue -> Bool
$cmax :: Era'UnrecognizedValue
-> Era'UnrecognizedValue -> Era'UnrecognizedValue
max :: Era'UnrecognizedValue
-> Era'UnrecognizedValue -> Era'UnrecognizedValue
$cmin :: Era'UnrecognizedValue
-> Era'UnrecognizedValue -> Era'UnrecognizedValue
min :: Era'UnrecognizedValue
-> Era'UnrecognizedValue -> Era'UnrecognizedValue
Prelude.Ord, Int -> Era'UnrecognizedValue -> ShowS
[Era'UnrecognizedValue] -> ShowS
Era'UnrecognizedValue -> String
(Int -> Era'UnrecognizedValue -> ShowS)
-> (Era'UnrecognizedValue -> String)
-> ([Era'UnrecognizedValue] -> ShowS)
-> Show Era'UnrecognizedValue
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> Era'UnrecognizedValue -> ShowS
showsPrec :: Int -> Era'UnrecognizedValue -> ShowS
$cshow :: Era'UnrecognizedValue -> String
show :: Era'UnrecognizedValue -> String
$cshowList :: [Era'UnrecognizedValue] -> ShowS
showList :: [Era'UnrecognizedValue] -> ShowS
Prelude.Show)
data Era
  = Byron |
    Shelley |
    Allegra |
    Mary |
    Alonzo |
    Babbage |
    Conway |
    Era'Unrecognized !Era'UnrecognizedValue
  deriving stock (Int -> Era -> ShowS
[Era] -> ShowS
Era -> String
(Int -> Era -> ShowS)
-> (Era -> String) -> ([Era] -> ShowS) -> Show Era
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> Era -> ShowS
showsPrec :: Int -> Era -> ShowS
$cshow :: Era -> String
show :: Era -> String
$cshowList :: [Era] -> ShowS
showList :: [Era] -> ShowS
Prelude.Show, Era -> Era -> Bool
(Era -> Era -> Bool) -> (Era -> Era -> Bool) -> Eq Era
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Era -> Era -> Bool
== :: Era -> Era -> Bool
$c/= :: Era -> Era -> Bool
/= :: Era -> Era -> Bool
Prelude.Eq, Eq Era
Eq Era =>
(Era -> Era -> Ordering)
-> (Era -> Era -> Bool)
-> (Era -> Era -> Bool)
-> (Era -> Era -> Bool)
-> (Era -> Era -> Bool)
-> (Era -> Era -> Era)
-> (Era -> Era -> Era)
-> Ord Era
Era -> Era -> Bool
Era -> Era -> Ordering
Era -> Era -> Era
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: Era -> Era -> Ordering
compare :: Era -> Era -> Ordering
$c< :: Era -> Era -> Bool
< :: Era -> Era -> Bool
$c<= :: Era -> Era -> Bool
<= :: Era -> Era -> Bool
$c> :: Era -> Era -> Bool
> :: Era -> Era -> Bool
$c>= :: Era -> Era -> Bool
>= :: Era -> Era -> Bool
$cmax :: Era -> Era -> Era
max :: Era -> Era -> Era
$cmin :: Era -> Era -> Era
min :: Era -> Era -> Era
Prelude.Ord)
instance Data.ProtoLens.MessageEnum Era where
  maybeToEnum :: Int -> Maybe Era
maybeToEnum Int
0 = Era -> Maybe Era
forall a. a -> Maybe a
Prelude.Just Era
Byron
  maybeToEnum Int
1 = Era -> Maybe Era
forall a. a -> Maybe a
Prelude.Just Era
Shelley
  maybeToEnum Int
2 = Era -> Maybe Era
forall a. a -> Maybe a
Prelude.Just Era
Allegra
  maybeToEnum Int
3 = Era -> Maybe Era
forall a. a -> Maybe a
Prelude.Just Era
Mary
  maybeToEnum Int
4 = Era -> Maybe Era
forall a. a -> Maybe a
Prelude.Just Era
Alonzo
  maybeToEnum Int
5 = Era -> Maybe Era
forall a. a -> Maybe a
Prelude.Just Era
Babbage
  maybeToEnum Int
6 = Era -> Maybe Era
forall a. a -> Maybe a
Prelude.Just Era
Conway
  maybeToEnum Int
k
    = Era -> Maybe Era
forall a. a -> Maybe a
Prelude.Just
        (Era'UnrecognizedValue -> Era
Era'Unrecognized (Int32 -> Era'UnrecognizedValue
Era'UnrecognizedValue (Int -> Int32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int
k)))
  showEnum :: Era -> String
showEnum Era
Byron = String
"byron"
  showEnum Era
Shelley = String
"shelley"
  showEnum Era
Allegra = String
"allegra"
  showEnum Era
Mary = String
"mary"
  showEnum Era
Alonzo = String
"alonzo"
  showEnum Era
Babbage = String
"babbage"
  showEnum Era
Conway = String
"conway"
  showEnum (Era'Unrecognized (Era'UnrecognizedValue Int32
k))
    = Int32 -> String
forall a. Show a => a -> String
Prelude.show Int32
k
  readEnum :: String -> Maybe Era
readEnum String
k
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"byron" = Era -> Maybe Era
forall a. a -> Maybe a
Prelude.Just Era
Byron
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"shelley" = Era -> Maybe Era
forall a. a -> Maybe a
Prelude.Just Era
Shelley
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"allegra" = Era -> Maybe Era
forall a. a -> Maybe a
Prelude.Just Era
Allegra
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"mary" = Era -> Maybe Era
forall a. a -> Maybe a
Prelude.Just Era
Mary
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"alonzo" = Era -> Maybe Era
forall a. a -> Maybe a
Prelude.Just Era
Alonzo
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"babbage" = Era -> Maybe Era
forall a. a -> Maybe a
Prelude.Just Era
Babbage
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"conway" = Era -> Maybe Era
forall a. a -> Maybe a
Prelude.Just Era
Conway
    | Bool
Prelude.otherwise
    = Maybe Int -> (Int -> Maybe Era) -> Maybe Era
forall a b. Maybe a -> (a -> Maybe b) -> Maybe b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
(Prelude.>>=) (String -> Maybe Int
forall a. Read a => String -> Maybe a
Text.Read.readMaybe String
k) Int -> Maybe Era
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum
instance Prelude.Bounded Era where
  minBound :: Era
minBound = Era
Byron
  maxBound :: Era
maxBound = Era
Conway
instance Prelude.Enum Era where
  toEnum :: Int -> Era
toEnum Int
k__
    = Era -> (Era -> Era) -> Maybe Era -> Era
forall b a. b -> (a -> b) -> Maybe a -> b
Prelude.maybe
        (String -> Era
forall a. HasCallStack => String -> a
Prelude.error
           (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
              String
"toEnum: unknown value for enum Era: " (Int -> String
forall a. Show a => a -> String
Prelude.show Int
k__)))
        Era -> Era
forall a. a -> a
Prelude.id (Int -> Maybe Era
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum Int
k__)
  fromEnum :: Era -> Int
fromEnum Era
Byron = Int
0
  fromEnum Era
Shelley = Int
1
  fromEnum Era
Allegra = Int
2
  fromEnum Era
Mary = Int
3
  fromEnum Era
Alonzo = Int
4
  fromEnum Era
Babbage = Int
5
  fromEnum Era
Conway = Int
6
  fromEnum (Era'Unrecognized (Era'UnrecognizedValue Int32
k))
    = Int32 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int32
k
  succ :: Era -> Era
succ Era
Conway
    = String -> Era
forall a. HasCallStack => String -> a
Prelude.error
        String
"Era.succ: bad argument Conway. This value would be out of bounds."
  succ Era
Byron = Era
Shelley
  succ Era
Shelley = Era
Allegra
  succ Era
Allegra = Era
Mary
  succ Era
Mary = Era
Alonzo
  succ Era
Alonzo = Era
Babbage
  succ Era
Babbage = Era
Conway
  succ (Era'Unrecognized Era'UnrecognizedValue
_)
    = String -> Era
forall a. HasCallStack => String -> a
Prelude.error String
"Era.succ: bad argument: unrecognized value"
  pred :: Era -> Era
pred Era
Byron
    = String -> Era
forall a. HasCallStack => String -> a
Prelude.error
        String
"Era.pred: bad argument Byron. This value would be out of bounds."
  pred Era
Shelley = Era
Byron
  pred Era
Allegra = Era
Shelley
  pred Era
Mary = Era
Allegra
  pred Era
Alonzo = Era
Mary
  pred Era
Babbage = Era
Alonzo
  pred Era
Conway = Era
Babbage
  pred (Era'Unrecognized Era'UnrecognizedValue
_)
    = String -> Era
forall a. HasCallStack => String -> a
Prelude.error String
"Era.pred: bad argument: unrecognized value"
  enumFrom :: Era -> [Era]
enumFrom = Era -> [Era]
forall a. (Enum a, Bounded a) => a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFrom
  enumFromTo :: Era -> Era -> [Era]
enumFromTo = Era -> Era -> [Era]
forall a. Enum a => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromTo
  enumFromThen :: Era -> Era -> [Era]
enumFromThen = Era -> Era -> [Era]
forall a. (Enum a, Bounded a) => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThen
  enumFromThenTo :: Era -> Era -> Era -> [Era]
enumFromThenTo = Era -> Era -> Era -> [Era]
forall a. Enum a => a -> a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThenTo
instance Data.ProtoLens.FieldDefault Era where
  fieldDefault :: Era
fieldDefault = Era
Byron
instance Control.DeepSeq.NFData Era where
  rnf :: Era -> ()
rnf Era
x__ = Era -> () -> ()
forall a b. a -> b -> b
Prelude.seq Era
x__ ()
{- | Fields :
     
         * 'Proto.Cardano.Rpc.Node_Fields.json' @:: Lens' ProtocolParamsJson Data.ByteString.ByteString@ -}
data ProtocolParamsJson
  = ProtocolParamsJson'_constructor {ProtocolParamsJson -> ByteString
_ProtocolParamsJson'json :: !Data.ByteString.ByteString,
                                     ProtocolParamsJson -> FieldSet
_ProtocolParamsJson'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (ProtocolParamsJson -> ProtocolParamsJson -> Bool
(ProtocolParamsJson -> ProtocolParamsJson -> Bool)
-> (ProtocolParamsJson -> ProtocolParamsJson -> Bool)
-> Eq ProtocolParamsJson
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ProtocolParamsJson -> ProtocolParamsJson -> Bool
== :: ProtocolParamsJson -> ProtocolParamsJson -> Bool
$c/= :: ProtocolParamsJson -> ProtocolParamsJson -> Bool
/= :: ProtocolParamsJson -> ProtocolParamsJson -> Bool
Prelude.Eq, Eq ProtocolParamsJson
Eq ProtocolParamsJson =>
(ProtocolParamsJson -> ProtocolParamsJson -> Ordering)
-> (ProtocolParamsJson -> ProtocolParamsJson -> Bool)
-> (ProtocolParamsJson -> ProtocolParamsJson -> Bool)
-> (ProtocolParamsJson -> ProtocolParamsJson -> Bool)
-> (ProtocolParamsJson -> ProtocolParamsJson -> Bool)
-> (ProtocolParamsJson -> ProtocolParamsJson -> ProtocolParamsJson)
-> (ProtocolParamsJson -> ProtocolParamsJson -> ProtocolParamsJson)
-> Ord ProtocolParamsJson
ProtocolParamsJson -> ProtocolParamsJson -> Bool
ProtocolParamsJson -> ProtocolParamsJson -> Ordering
ProtocolParamsJson -> ProtocolParamsJson -> ProtocolParamsJson
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: ProtocolParamsJson -> ProtocolParamsJson -> Ordering
compare :: ProtocolParamsJson -> ProtocolParamsJson -> Ordering
$c< :: ProtocolParamsJson -> ProtocolParamsJson -> Bool
< :: ProtocolParamsJson -> ProtocolParamsJson -> Bool
$c<= :: ProtocolParamsJson -> ProtocolParamsJson -> Bool
<= :: ProtocolParamsJson -> ProtocolParamsJson -> Bool
$c> :: ProtocolParamsJson -> ProtocolParamsJson -> Bool
> :: ProtocolParamsJson -> ProtocolParamsJson -> Bool
$c>= :: ProtocolParamsJson -> ProtocolParamsJson -> Bool
>= :: ProtocolParamsJson -> ProtocolParamsJson -> Bool
$cmax :: ProtocolParamsJson -> ProtocolParamsJson -> ProtocolParamsJson
max :: ProtocolParamsJson -> ProtocolParamsJson -> ProtocolParamsJson
$cmin :: ProtocolParamsJson -> ProtocolParamsJson -> ProtocolParamsJson
min :: ProtocolParamsJson -> ProtocolParamsJson -> ProtocolParamsJson
Prelude.Ord)
instance Prelude.Show ProtocolParamsJson where
  showsPrec :: Int -> ProtocolParamsJson -> ShowS
showsPrec Int
_ ProtocolParamsJson
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (ProtocolParamsJson -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ProtocolParamsJson
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField ProtocolParamsJson "json" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "json"
-> (ByteString -> f ByteString)
-> ProtocolParamsJson
-> f ProtocolParamsJson
fieldOf Proxy# "json"
_
    = ((ByteString -> f ByteString)
 -> ProtocolParamsJson -> f ProtocolParamsJson)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> ProtocolParamsJson
-> f ProtocolParamsJson
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ProtocolParamsJson -> ByteString)
-> (ProtocolParamsJson -> ByteString -> ProtocolParamsJson)
-> Lens ProtocolParamsJson ProtocolParamsJson ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ProtocolParamsJson -> ByteString
_ProtocolParamsJson'json
           (\ ProtocolParamsJson
x__ ByteString
y__ -> ProtocolParamsJson
x__ {_ProtocolParamsJson'json = y__}))
        (ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ProtocolParamsJson where
  messageName :: Proxy ProtocolParamsJson -> Text
messageName Proxy ProtocolParamsJson
_ = String -> Text
Data.Text.pack String
"cardano.rpc.ProtocolParamsJson"
  packedMessageDescriptor :: Proxy ProtocolParamsJson -> ByteString
packedMessageDescriptor Proxy ProtocolParamsJson
_
    = ByteString
"\n\
      \\DC2ProtocolParamsJson\DC2\DC2\n\
      \\EOTjson\CAN\SOH \SOH(\fR\EOTjson"
  packedFileDescriptor :: Proxy ProtocolParamsJson -> ByteString
packedFileDescriptor Proxy ProtocolParamsJson
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor ProtocolParamsJson)
fieldsByTag
    = let
        json__field_descriptor :: FieldDescriptor ProtocolParamsJson
json__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor ProtocolParamsJson ByteString
-> FieldDescriptor ProtocolParamsJson
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"json"
              (ScalarField ByteString -> FieldTypeDescriptor ByteString
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ByteString
Data.ProtoLens.BytesField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
              (WireDefault ByteString
-> Lens ProtocolParamsJson ProtocolParamsJson ByteString ByteString
-> FieldAccessor ProtocolParamsJson ByteString
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault ByteString
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"json")) ::
              Data.ProtoLens.FieldDescriptor ProtocolParamsJson
      in
        [(Tag, FieldDescriptor ProtocolParamsJson)]
-> Map Tag (FieldDescriptor ProtocolParamsJson)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ProtocolParamsJson
json__field_descriptor)]
  unknownFields :: Lens' ProtocolParamsJson FieldSet
unknownFields
    = (ProtocolParamsJson -> FieldSet)
-> (ProtocolParamsJson -> FieldSet -> ProtocolParamsJson)
-> Lens' ProtocolParamsJson FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        ProtocolParamsJson -> FieldSet
_ProtocolParamsJson'_unknownFields
        (\ ProtocolParamsJson
x__ FieldSet
y__ -> ProtocolParamsJson
x__ {_ProtocolParamsJson'_unknownFields = y__})
  defMessage :: ProtocolParamsJson
defMessage
    = ProtocolParamsJson'_constructor
        {_ProtocolParamsJson'json :: ByteString
_ProtocolParamsJson'json = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _ProtocolParamsJson'_unknownFields :: FieldSet
_ProtocolParamsJson'_unknownFields = []}
  parseMessage :: Parser ProtocolParamsJson
parseMessage
    = let
        loop ::
          ProtocolParamsJson
          -> Data.ProtoLens.Encoding.Bytes.Parser ProtocolParamsJson
        loop :: ProtocolParamsJson -> Parser ProtocolParamsJson
loop ProtocolParamsJson
x
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Prelude.fromIntegral len))
                                       String
"json"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"json") y x)
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
      in
        Parser ProtocolParamsJson -> String -> Parser ProtocolParamsJson
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do ProtocolParamsJson -> Parser ProtocolParamsJson
loop ProtocolParamsJson
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"ProtocolParamsJson"
  buildMessage :: ProtocolParamsJson -> Builder
buildMessage
    = \ ProtocolParamsJson
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: ByteString
_v = FoldLike
  ByteString
  ProtocolParamsJson
  ProtocolParamsJson
  ByteString
  ByteString
-> ProtocolParamsJson -> ByteString
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"json") ProtocolParamsJson
_x
              in
                if ByteString -> ByteString -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) ByteString
_v ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                    Builder
forall a. Monoid a => a
Data.Monoid.mempty
                else
                    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                      ((\ ByteString
bs
                          -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                               (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                  (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                               (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                         ByteString
_v))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet ProtocolParamsJson ProtocolParamsJson FieldSet FieldSet
-> ProtocolParamsJson -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet ProtocolParamsJson ProtocolParamsJson FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ProtocolParamsJson FieldSet
Data.ProtoLens.unknownFields ProtocolParamsJson
_x))
instance Control.DeepSeq.NFData ProtocolParamsJson where
  rnf :: ProtocolParamsJson -> ()
rnf
    = \ ProtocolParamsJson
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (ProtocolParamsJson -> FieldSet
_ProtocolParamsJson'_unknownFields ProtocolParamsJson
x__)
             (ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (ProtocolParamsJson -> ByteString
_ProtocolParamsJson'json ProtocolParamsJson
x__) ())
data Node = Node {}
instance Data.ProtoLens.Service.Types.Service Node where
  type ServiceName Node = "Node"
  type ServicePackage Node = "cardano.rpc"
  type ServiceMethods Node = '["getEra", "getProtocolParamsJson"]
  packedServiceDescriptor :: Proxy Node -> ByteString
packedServiceDescriptor Proxy Node
_
    = ByteString
"\n\
      \\EOTNode\DC2;\n\
      \\ACKGetEra\DC2\SYN.google.protobuf.Empty\SUB\ETB.cardano.rpc.CurrentEra\"\NUL\DC2R\n\
      \\NAKGetProtocolParamsJson\DC2\SYN.google.protobuf.Empty\SUB\US.cardano.rpc.ProtocolParamsJson\"\NUL"
instance Data.ProtoLens.Service.Types.HasMethodImpl Node "getEra" where
  type MethodName Node "getEra" = "GetEra"
  type MethodInput Node "getEra" = Proto.Google.Protobuf.Empty.Empty
  type MethodOutput Node "getEra" = CurrentEra
  type MethodStreamingType Node "getEra" = 'Data.ProtoLens.Service.Types.NonStreaming
instance Data.ProtoLens.Service.Types.HasMethodImpl Node "getProtocolParamsJson" where
  type MethodName Node "getProtocolParamsJson" = "GetProtocolParamsJson"
  type MethodInput Node "getProtocolParamsJson" = Proto.Google.Protobuf.Empty.Empty
  type MethodOutput Node "getProtocolParamsJson" = ProtocolParamsJson
  type MethodStreamingType Node "getProtocolParamsJson" = 'Data.ProtoLens.Service.Types.NonStreaming
packedFileDescriptor :: Data.ByteString.ByteString
packedFileDescriptor :: ByteString
packedFileDescriptor
  = ByteString
"\n\
    \\SYNcardano/rpc/node.proto\DC2\vcardano.rpc\SUB\ESCgoogle/protobuf/empty.proto\"0\n\
    \\n\
    \CurrentEra\DC2\"\n\
    \\ETXera\CAN\SOH \SOH(\SO2\DLE.cardano.rpc.EraR\ETXera\"(\n\
    \\DC2ProtocolParamsJson\DC2\DC2\n\
    \\EOTjson\CAN\SOH \SOH(\fR\EOTjson*Y\n\
    \\ETXEra\DC2\t\n\
    \\ENQbyron\DLE\NUL\DC2\v\n\
    \\ashelley\DLE\SOH\DC2\v\n\
    \\aallegra\DLE\STX\DC2\b\n\
    \\EOTmary\DLE\ETX\DC2\n\
    \\n\
    \\ACKalonzo\DLE\EOT\DC2\v\n\
    \\ababbage\DLE\ENQ\DC2\n\
    \\n\
    \\ACKconway\DLE\ACK2\151\SOH\n\
    \\EOTNode\DC2;\n\
    \\ACKGetEra\DC2\SYN.google.protobuf.Empty\SUB\ETB.cardano.rpc.CurrentEra\"\NUL\DC2R\n\
    \\NAKGetProtocolParamsJson\DC2\SYN.google.protobuf.Empty\SUB\US.cardano.rpc.ProtocolParamsJson\"\NULJ\180\ENQ\n\
    \\ACK\DC2\EOT\NUL\NUL\GS\SOH\n\
    \\b\n\
    \\SOH\f\DC2\ETX\NUL\NUL\DC2\n\
    \\b\n\
    \\SOH\STX\DC2\ETX\STX\NUL\DC4\n\
    \\t\n\
    \\STX\ETX\NUL\DC2\ETX\EOT\NUL%\n\
    \\n\
    \\n\
    \\STX\ACK\NUL\DC2\EOT\ACK\NUL\n\
    \\SOH\n\
    \\n\
    \\n\
    \\ETX\ACK\NUL\SOH\DC2\ETX\ACK\b\f\n\
    \\v\n\
    \\EOT\ACK\NUL\STX\NUL\DC2\ETX\a\EOT=\n\
    \\f\n\
    \\ENQ\ACK\NUL\STX\NUL\SOH\DC2\ETX\a\b\SO\n\
    \\f\n\
    \\ENQ\ACK\NUL\STX\NUL\STX\DC2\ETX\a\SI$\n\
    \\f\n\
    \\ENQ\ACK\NUL\STX\NUL\ETX\DC2\ETX\a/9\n\
    \\v\n\
    \\EOT\ACK\NUL\STX\SOH\DC2\ETX\t\EOTT\n\
    \\f\n\
    \\ENQ\ACK\NUL\STX\SOH\SOH\DC2\ETX\t\b\GS\n\
    \\f\n\
    \\ENQ\ACK\NUL\STX\SOH\STX\DC2\ETX\t\RS3\n\
    \\f\n\
    \\ENQ\ACK\NUL\STX\SOH\ETX\DC2\ETX\t>P\n\
    \\n\
    \\n\
    \\STX\ENQ\NUL\DC2\EOT\f\NUL\DC4\SOH\n\
    \\n\
    \\n\
    \\ETX\ENQ\NUL\SOH\DC2\ETX\f\ENQ\b\n\
    \\v\n\
    \\EOT\ENQ\NUL\STX\NUL\DC2\ETX\r\EOT\SO\n\
    \\f\n\
    \\ENQ\ENQ\NUL\STX\NUL\SOH\DC2\ETX\r\EOT\t\n\
    \\f\n\
    \\ENQ\ENQ\NUL\STX\NUL\STX\DC2\ETX\r\f\r\n\
    \\v\n\
    \\EOT\ENQ\NUL\STX\SOH\DC2\ETX\SO\EOT\DLE\n\
    \\f\n\
    \\ENQ\ENQ\NUL\STX\SOH\SOH\DC2\ETX\SO\EOT\v\n\
    \\f\n\
    \\ENQ\ENQ\NUL\STX\SOH\STX\DC2\ETX\SO\SO\SI\n\
    \\v\n\
    \\EOT\ENQ\NUL\STX\STX\DC2\ETX\SI\EOT\DLE\n\
    \\f\n\
    \\ENQ\ENQ\NUL\STX\STX\SOH\DC2\ETX\SI\EOT\v\n\
    \\f\n\
    \\ENQ\ENQ\NUL\STX\STX\STX\DC2\ETX\SI\SO\SI\n\
    \\v\n\
    \\EOT\ENQ\NUL\STX\ETX\DC2\ETX\DLE\EOT\r\n\
    \\f\n\
    \\ENQ\ENQ\NUL\STX\ETX\SOH\DC2\ETX\DLE\EOT\b\n\
    \\f\n\
    \\ENQ\ENQ\NUL\STX\ETX\STX\DC2\ETX\DLE\v\f\n\
    \\v\n\
    \\EOT\ENQ\NUL\STX\EOT\DC2\ETX\DC1\EOT\SI\n\
    \\f\n\
    \\ENQ\ENQ\NUL\STX\EOT\SOH\DC2\ETX\DC1\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\ENQ\NUL\STX\EOT\STX\DC2\ETX\DC1\r\SO\n\
    \\v\n\
    \\EOT\ENQ\NUL\STX\ENQ\DC2\ETX\DC2\EOT\DLE\n\
    \\f\n\
    \\ENQ\ENQ\NUL\STX\ENQ\SOH\DC2\ETX\DC2\EOT\v\n\
    \\f\n\
    \\ENQ\ENQ\NUL\STX\ENQ\STX\DC2\ETX\DC2\SO\SI\n\
    \\v\n\
    \\EOT\ENQ\NUL\STX\ACK\DC2\ETX\DC3\EOT\SI\n\
    \\f\n\
    \\ENQ\ENQ\NUL\STX\ACK\SOH\DC2\ETX\DC3\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\ENQ\NUL\STX\ACK\STX\DC2\ETX\DC3\r\SO\n\
    \\n\
    \\n\
    \\STX\EOT\NUL\DC2\EOT\ETB\NUL\EM\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\NUL\SOH\DC2\ETX\ETB\b\DC2\n\
    \\v\n\
    \\EOT\EOT\NUL\STX\NUL\DC2\ETX\CAN\EOT\DLE\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\ACK\DC2\ETX\CAN\EOT\a\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX\CAN\b\v\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX\CAN\SO\SI\n\
    \\n\
    \\n\
    \\STX\EOT\SOH\DC2\EOT\ESC\NUL\GS\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\SOH\SOH\DC2\ETX\ESC\b\SUB\n\
    \=\n\
    \\EOT\EOT\SOH\STX\NUL\DC2\ETX\FS\EOT\DC3\"0 JSON representation of the protocol parameters\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\ENQ\DC2\ETX\FS\EOT\t\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETX\FS\n\
    \\SO\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETX\FS\DC1\DC2b\ACKproto3"