{- 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
    ) 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
"CurrentEra"
  packedMessageDescriptor :: Proxy CurrentEra -> ByteString
packedMessageDescriptor Proxy CurrentEra
_
    = ByteString
"\n\
      \\n\
      \CurrentEra\DC2\SYN\n\
      \\ETXera\CAN\SOH \SOH(\SO2\EOT.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__ ()
data Node = Node {}
instance Data.ProtoLens.Service.Types.Service Node where
  type ServiceName Node = "Node"
  type ServicePackage Node = ""
  type ServiceMethods Node = '["getEra"]
  packedServiceDescriptor :: Proxy Node -> ByteString
packedServiceDescriptor Proxy Node
_
    = ByteString
"\n\
      \\EOTNode\DC2/\n\
      \\ACKGetEra\DC2\SYN.google.protobuf.Empty\SUB\v.CurrentEra\"\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
packedFileDescriptor :: Data.ByteString.ByteString
packedFileDescriptor :: ByteString
packedFileDescriptor
  = ByteString
"\n\
    \\SYNcardano/rpc/node.proto\SUB\ESCgoogle/protobuf/empty.proto\"$\n\
    \\n\
    \CurrentEra\DC2\SYN\n\
    \\ETXera\CAN\SOH \SOH(\SO2\EOT.EraR\ETXera*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\ACK27\n\
    \\EOTNode\DC2/\n\
    \\ACKGetEra\DC2\SYN.google.protobuf.Empty\SUB\v.CurrentEra\"\NULJ\242\ETX\n\
    \\ACK\DC2\EOT\SOH\NUL\CAN\SOH\n\
    \\b\n\
    \\SOH\f\DC2\ETX\SOH\NUL\DC2\n\
    \\t\n\
    \\STX\ETX\NUL\DC2\ETX\ETX\NUL%\n\
    \\n\
    \\n\
    \\STX\ACK\NUL\DC2\EOT\ENQ\NUL\t\SOH\n\
    \\n\
    \\n\
    \\ETX\ACK\NUL\SOH\DC2\ETX\ENQ\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\
    \\n\
    \\n\
    \\STX\ENQ\NUL\DC2\EOT\v\NUL\DC3\SOH\n\
    \\n\
    \\n\
    \\ETX\ENQ\NUL\SOH\DC2\ETX\v\ENQ\b\n\
    \\v\n\
    \\EOT\ENQ\NUL\STX\NUL\DC2\ETX\f\EOT\SO\n\
    \\f\n\
    \\ENQ\ENQ\NUL\STX\NUL\SOH\DC2\ETX\f\EOT\t\n\
    \\f\n\
    \\ENQ\ENQ\NUL\STX\NUL\STX\DC2\ETX\f\f\r\n\
    \\v\n\
    \\EOT\ENQ\NUL\STX\SOH\DC2\ETX\r\EOT\DLE\n\
    \\f\n\
    \\ENQ\ENQ\NUL\STX\SOH\SOH\DC2\ETX\r\EOT\v\n\
    \\f\n\
    \\ENQ\ENQ\NUL\STX\SOH\STX\DC2\ETX\r\SO\SI\n\
    \\v\n\
    \\EOT\ENQ\NUL\STX\STX\DC2\ETX\SO\EOT\DLE\n\
    \\f\n\
    \\ENQ\ENQ\NUL\STX\STX\SOH\DC2\ETX\SO\EOT\v\n\
    \\f\n\
    \\ENQ\ENQ\NUL\STX\STX\STX\DC2\ETX\SO\SO\SI\n\
    \\v\n\
    \\EOT\ENQ\NUL\STX\ETX\DC2\ETX\SI\EOT\r\n\
    \\f\n\
    \\ENQ\ENQ\NUL\STX\ETX\SOH\DC2\ETX\SI\EOT\b\n\
    \\f\n\
    \\ENQ\ENQ\NUL\STX\ETX\STX\DC2\ETX\SI\v\f\n\
    \\v\n\
    \\EOT\ENQ\NUL\STX\EOT\DC2\ETX\DLE\EOT\SI\n\
    \\f\n\
    \\ENQ\ENQ\NUL\STX\EOT\SOH\DC2\ETX\DLE\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\ENQ\NUL\STX\EOT\STX\DC2\ETX\DLE\r\SO\n\
    \\v\n\
    \\EOT\ENQ\NUL\STX\ENQ\DC2\ETX\DC1\EOT\DLE\n\
    \\f\n\
    \\ENQ\ENQ\NUL\STX\ENQ\SOH\DC2\ETX\DC1\EOT\v\n\
    \\f\n\
    \\ENQ\ENQ\NUL\STX\ENQ\STX\DC2\ETX\DC1\SO\SI\n\
    \\v\n\
    \\EOT\ENQ\NUL\STX\ACK\DC2\ETX\DC2\EOT\SI\n\
    \\f\n\
    \\ENQ\ENQ\NUL\STX\ACK\SOH\DC2\ETX\DC2\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\ENQ\NUL\STX\ACK\STX\DC2\ETX\DC2\r\SO\n\
    \\n\
    \\n\
    \\STX\EOT\NUL\DC2\EOT\SYN\NUL\CAN\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\NUL\SOH\DC2\ETX\SYN\b\DC2\n\
    \\v\n\
    \\EOT\EOT\NUL\STX\NUL\DC2\ETX\ETB\ETX\SI\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\ACK\DC2\ETX\ETB\ETX\ACK\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX\ETB\a\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX\ETB\r\SOb\ACKproto3"